Edit D:\xinhaisoft\crisis_new\admin\lb\factor.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCCJC, CCCCJ,CCCCC, CJJJJJ, CJJJJC:Set CCCJC = server.CreateObject(CJCCJCC("ps~sq]r@??64E:@?")):CCCJC.open Application(CJCCJCC("r@??64E:@?$EC:?8")):Set CCCCJ=CCCJC::Function CJJCCCJ(CJCCCJJ):Dim str,CJJJCC:str = Trim(CJCCCJJ):If IsNull(str) Or str = "" Then CJJCCCJ = "" else str=Replace(str, CJCCJCC("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCJCC("k:7C2>6"), CJCCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJCC("kD4C:AE"), CJCCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJCC=new RegExp:CJJJCC.Pattern=CJCCJCC("@?W,2\K.ZXl"):CJJJCC.IgnoreCase = True:CJJJCC.Global=True:str=CJJJCC.Replace(str,CJCCJCC("@?S`U6BF2=Dj")):set CJJJCC=nothing:CJJCCCJ=str End If:End Function::Const CJJCCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCJC,CJCCCCJ):dim CJJCJJ:CJJCJJ=CJCCCJC & "=" & CJCCCCJ & CJCCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJCC("$6E\r@@<:6"),CJJCJJ):End Sub:::Function CJJCCCC(ByVal Str, ByVal StrLen):Dim CJJCJC, CJJCCJ, CJJCCC, CJCJJJ:if isnull(str) then CJJCCCC="" else CJJCJC = Len(Str):CJJCCJ = 0:For CJCJJJ = 1 To CJJCJC:CJJCCC = AscW(Mid(Str, CJCJJJ, 1)):If CJJCCC < 0 Or CJJCCC > 255 Then CJJCCJ = CJJCCJ + 2 Else CJJCCJ = CJJCCJ + 1 If CJJCCJ >= StrLen Then CJJCCCC = Left(Str, CJCJJJ) & CJCCJCC("]]]"):Exit For Else CJJCCCC = Str End If:Next end if:End Function::::Function CJCJJJJ(CJCCCC):if isnull(CJCCCC) or trim(CJCCCC)="" or not isnumeric(CJCCCC) then CJCJJJJ=false else Dim CJJJCC:Set CJJJCC = New RegExp:CJJJCC.Pattern = CJCCJCC("/-5ZS"):CJJJCC.IgnoreCase = True:CJCJJJJ = CJJJCC.test(CJCCCC):set CJJJCC=nothing end if:End Function:Function CJCJJJC(CJCCCCC):dim CJCJJC,CJCJCJ:CJCJJC=CJCCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCCCC & CJCCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJ=CCCJC.execute(CJCJJC):CJCJJJC = CJCJCJ(0):if isnull(CJCJJJC) then CJCJJJC=1 CJCJCJ.close : set CJCJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJJCJ=nothing:set CJCJJCC=nothing:set CJCJCJJ=nothing:set CJCJCJC=nothing:CJCJCJ.close : set CJCJCJ=nothing:CJJJJJ.Close : Set CJJJJJ=Nothing:CCCCC.Close : Set CCCCC=Nothing:CJCJCCJ.Close : Set CJCJCCJ = Nothing:CCCJC.Close : Set CCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJCC("!$*0|6DD286"),server.URLEncode(CCJJJJJ)):Response.Redirect CJCCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJCJCCC():Dim CJCJCJ, CJCJCC(), CJCJJJ, CJCCJJ, CJCCJC,CJCCCJ:If Not IsArray(Application(CJCCJCC("!$*0%6DED"))) Then CJJJJC=CJCCJCC("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJCJCJ=server.createobject(CJCCJCC("25@53]C64@C5D6E")):CJCJCJ.open CJJJJC,CCCJC,1:CJCCJC = CJCJCJ.RecordCount:CJCCCJ=CJCJCJ.fields.count-1:ReDim CJCJCC(CJCCJC, CJCCCJ):If CJCCJC > 0 Then For CJCJJJ = 1 To CJCCJC:For CJCCJJ = 0 To CJCCCJ:if CJCCJJ=4 or CJCCJJ=6 or CJCCJJ=19 then CJCJCC(CJCJJJ, CJCCJJ) = CJCCJJC(CJCJCJ(CJCCJJ)) else CJCJCC(CJCJJJ, CJCCJJ) = CJCJCJ(CJCCJJ):if CJCJCJ(CJCCJJ).type<>11 and isnull(CJCJCC(CJCJJJ, CJCCJJ)) then CJCJCC(CJCJJJ, CJCCJJ)="" end if:Next:CJCJCJ.MoveNext:Next End If:CJCJCJ.Close: Set CJCJCJ = Nothing:Application(CJCCJCC("!$*0%6DED")) = CJCJCC End If:CJCJCCC = Application(CJCCJCC("!$*0%6DED")):End Function::::::::::function CJCCJJJ(str):dim CJCJJJ,CJJCCC,CJCCCC,CCJJJJ:if isnull(str) then exit function str=trim(str):for CJCJJJ=1 to len(str):CJJCCC=mid(str,CJCJJJ,1):CJCCCC=AscW(CJJCCC):if CJCCCC=12288 then CJJCCC=chrw(32) elseif CJCCCC=-29 then CJJCCC=chrw(CJCCCC+155) elseif CJCCCC<0 then CJJCCC=chrw(CJCCCC+288) end if:CCJJJJ=CCJJJJ & CJJCCC:next:CJCCJJJ=CCJJJJ:end function::::::::::::::::::::Function CJCCJJC(CCJJJJC):if isnull(CCJJJJC) then CJCCJJC="" else On Error Resume Next:CJCCJJC=CCJJJJC:if err.number=-2147352567 then CJCCJJC="":err.Clear end if end if:End Function::::::Dim CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ,CJJJJJC,CJJJJCJ:Dim CJJJJCC:CJJJJCC=Trim(Request.Cookies(CJCCJCC("!$*|t|qt#"))):if CJJJJCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCJJJC>0 then CJJJJC=CJCCJCC("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CCJJCJ & CJCCJCC("V ,2?5 ,:5l") & CCJJJC set CCCCC=CCCJC.execute(CJJJJC):If CCCCC.EOF Then Call ClearMemberCookie Else CCJJCC=CCCCC(2) & "":CCJCJJ=CCCCC(3):CCJCJC=CCCCC(5):CCJCCJ=CCCCC(6):CCJCCC=CCCCC(9):CCCJJJ=CCCCC(15):CCCJCJ=CCCCC(0):CJJJJJC=CCCCC(1):CJJJJJJ=CCCCC(11) & "":CCCJCC=CCCCC(10) & "":CCCJJC=CCCCC(12):CCCCJJ=CCCCC(14):CCCCJC=CCCCC(13):CCCCCJ=CCCCC(7) & "":CCCCCC=CCCCC(4):CJJJJCJ=CCCCC(8):if isnull(CCCJJJ) then CCCJJJ=0 if isnull(CCJCCC) or CCJCCC=0 then CCJCCC=CCJCJJ if isnull(CCCCCC) then CCCCCC=0 if isnull(CCJCJC) then CCJCJC=0 if instr(CJCCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJCJ)>0 then Call RedirectMessage(CJCCJCC("????????,????????????????????????????????,")) Call SetMemberCookie(CCJJJC,CCJJCJ) End IF end if:Sub CheckRight(CJCCJC):dim CJCJJJ,CJJJCJJ:if CCJJJC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJCC("??????????????,????????????,")) elseIf not CJCCJCJ(CJCCJC) then Call RedirectMessage(CJCCJCC("????W") & CJCCJC & CJCCJCC("X????????,????????????????????,")) end if:End Sub:Function CJCCJCJ(CJCCJC):dim CJCJJJ,CJJJCJJ:CJJJCJJ=split(CJCCJC,CJCCJCC("[")):CJCCJCJ=False:for CJCJJJ=0 to ubound(CJJJCJJ):If Mid(CCJJCC,CJJJCJJ(CJCJJJ),1)="1" then CJCCJCJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCJCC("!$*|t|qt#"))="":CCJJJC=0:CCJCCJ=0:CCJJCJ=Empty:CCJCJC=0:CCCJJJ=0:CCJCCC=0:CCJCJJ=0:CCCJCJ=False:CJJJJJC=False:CJJJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJ,CJJJCJC,CJCJJJ,CJCCJJ,CJJJCCJ:CJJCJJ=split(CJJJJCC,CJCCJCC("]")):if ubound(CJJCJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJCJJ(0)) or len(CJJCJJ(1))<>32 or len(CJJCJJ(2))<>32 then Call ClearMemberCookie else CJJJCJC=CJJCJJ(1):for CJCJJJ=1 to len(CJJJCJC):CJCCJJ=mid(CJJJCJC,CJCJJJ,1):if isnumeric(CJCCJJ) then CJJJCCJ=CJJJCCJ & CJCCJJ if len(CJJJCCJ)=7 then exit for next:CJJJCJC=CJJCJJ(2):if CJJJCCJ<>mid(CJJJCJC,6,7) then Call ClearMemberCookie else CJCCJJ=mid(CJJJCJC,18,10)/2:if CJCCJJ<DateDiff(CJCCJCC("D"), CJCCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCJJJC=Clng(CJJCJJ(0)):CCJJCJ=CJJCJJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CJJCJJC,CCJJJCJ):dim CJCJJJ,CJCCJJ,CJJJCCJ:for CJCJJJ=1 to len(CCJJJCJ):CJCCJJ=mid(CCJJJCJ,CJCJJJ,1):if isnumeric(CJCCJJ) then CJJJCCJ=CJJJCCJ & CJCCJJ if len(CJJJCCJ)=7 then exit for next:CJJJCCJ=CJJCJJC & CJCCJCC("]") & CCJJJCJ & CJCCJCC("]") & Fix(10000*(Rnd+1)) & CJJJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCJCC("D"), CJCCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJCC("!$*|t|qt#"))=CJJJCCJ:End Sub::Call CheckRight(13):Const CJJCCJC="lbfactor":dim CJJJCCC,CJJCJJJ,CJJCJJC:CJJJCCC=Request.QueryString("lbid"):CJJCJJJ=Request.QueryString(CJCCJCC("24E")):CJJCJJC=Request.QueryString(CJCCJCC(":5")):if not CJCJJJJ(CJJJCCC) then Call RedirectMessage(CJCCJCC("????????,??????????????,")) if CJJCJJJ=CJCCJCC("56=") and CJCJJJJ(CJJCJJC) then CCCJC.execute(CJCCJCC("56=6E6 ,7C@> ,") & CJJCCJC & CJCCJCC(" ,H96C6 ,:5l") & CJJCJJC) end if:if Request.ServerVariables(CJCCJCC("#t""&t$%0|t%w~s"))=CJCCJCC("!~$%") then if CJJCJJJ=CJCCJCC("255") then CJJJJC=CJCCJCC(":?D6CE ,:?E@ ,") & CJJCCJC & CJCCJCC("W:5[?2>6[6?[D9@CE[6IA=2:?[BF6DE:@?`[BF6DE:@?a[D@CE[=3X ,G2=F6DW") & CJCJJJC(CJJCCJC) & CJCCJCC("[V") & CJJCCCJ(Request.Form(CJCCJCC("?2>6"))) & CJCCJCC("V") & CJCCJCC("[V") & CJJCCCJ(Request.Form(CJCCJCC("6?"))) & CJCCJCC("V") & CJCCJCC("[V") & CJJCCCJ(Request.Form(CJCCJCC("D9@CE"))) & CJCCJCC("V") & CJCCJCC("[V") & CJJCCCJ(Request.Form(CJCCJCC("6IA=2:?"))) & CJCCJCC("V") & CJCCJCC("[V") & CJCCJJJ(Request.Form(CJCCJCC("BF6DE:@?`"))) & CJCCJCC("V") & CJCCJCC("[V") & CJCCJJJ(Request.Form(CJCCJCC("BF6DE:@?a"))) & CJCCJCC("V") & CJCCJCC("[") & Request.Form(CJCCJCC("D@CE")) & CJCCJCC("[") & CJJJCCC & CJCCJCC("X") CCCJC.execute CJJJJC elseif CJJCJJJ=CJCCJCC(">@5") and CJCJJJJ(CJJCJJC) then CJJJJC=CJCCJCC("FA52E6 ,") & CJJCCJC & CJCCJCC(" ,D6E") & CJCCJCC(" ,?2>6lV") & CJJCCCJ(Request.Form(CJCCJCC("?2>6"))) & CJCCJCC("V") & CJCCJCC("[6?lV") & CJJCCCJ(Request.Form(CJCCJCC("6?"))) & CJCCJCC("V") & CJCCJCC("[D9@CElV") & CJJCCCJ(Request.Form(CJCCJCC("D9@CE"))) & CJCCJCC("V") & CJCCJCC("[6IA=2:?lV") & CJJCCCJ(Request.Form(CJCCJCC("6IA=2:?"))) & CJCCJCC("V") & CJCCJCC("[BF6DE:@?`lV") & CJCCJJJ(Request.Form(CJCCJCC("BF6DE:@?`"))) & CJCCJCC("V") & CJCCJCC("[BF6DE:@?alV") & CJCCJJJ(Request.Form(CJCCJCC("BF6DE:@?a"))) & CJCCJCC("V") & CJCCJCC("[D@CEl") & Request.Form(CJCCJCC("D@CE")) & CJCCJCC(" ,H96C6 ,:5l") & CJJCJJC CCCJC.execute CJJJJC:CJJCJJJ="" end if end if:dim CJCJCC,CJJCJCJ,CJCJJJ:CJCJCC=CJCJCCC:for CJCJJJ=1 to ubound(CJCJCC):if CJCJCC(CJCJJJ,0)=cint(CJJJCCC) then CJJCJCJ=CJCJCC(CJCJJJ,1):exit for end if:next:Response.Write(vbCrLf):Response.Write(CJCCJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJCC("k9625m") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCCJCC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCCJCC("kDEJ=6m") & vbCrLf):Response.Write(CJCCJCC("E5 ,L ,G6CE:42=\2=:8?i ,E@Aj ,N") & vbCrLf):Response.Write(CJCCJCC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJCC("k^9625m") & vbCrLf):Response.Write(CJCCJCC("k3@5Jm") & vbCrLf):Response.Write(CJCCJCC("k5:G ,4=2DDlQE:E=6Qm")):Response.Write CJJCJCJ:Response.Write(CJCCJCC("k^5:Gm") & vbCrLf):Response.Write(CJCCJCC("kF= ,4=2DDlQE23Qm") & vbCrLf):Response.Write(CJCCJCC(" ,k=:mk2 ,9C67lQ>@5:7J]2DAn:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC(" ,k=:mk2 ,9C67lQBF6DE:@?]2DAn=3:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ724E@C]2DAn=3:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC(" ,k=:mk2 ,9C67lQ6IA=2:?]2DAn=3:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("Qm????^????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC(" ,k=:mk2 ,9C67lQ=:DE]2DAn:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("UA@DEl`Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCJCC("k^F=m") & vbCrLf):Response.Write(CJCCJCC("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCCJCC(" ,??,??????????????????????,??????????@????,????????????,????,k2 ,9C67lQ>@5:7J]2DAn:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("Qm????????????k^2m.??????,") & vbCrLf):Response.Write(CJCCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCJCC(" ,kE9 ,E:E=6lQ,D@CE.????????,_??,??????,????????????????????,??????????????????????,????????????????Qm????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9 ,E:E=6lQ,?2>6.????????Qm????????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9 ,E:E=6lQ,6?.????????Qm????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9 ,E:E=6lQ,D9@CE.????????Qm????????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9 ,E:E=6lQ,6IA=2:?.Qm????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9 ,E:E=6lQ,BF6DE:@?`.??????????????????????????????????,????????????????????,????????????,??,??????????????,??????????????????????,??????,??????Qm????????`k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9 ,E:E=6lQ,BF6DE:@?a.????????????Wr!xX^????????????????W!wr$$X??????,????,????????????,??????,????,????????????????????????`??,Qm????????ak^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCC(" ,")):CJCJJJ=1:set CCCCC=CCCJC.execute(CJCCJCC("D6=64E ,:5[?2>6[6?[D9@CE[6IA=2:?[D@CE[BF6DE:@?`[BF6DE:@?a ,7C@> ,") & CJJCCJC & CJCCJCC(" ,H96C6 ,=3l") & CJJJCCC & CJCCJCC(" ,@C56C ,3J ,D@CE")):while not CCCCC.eof:if CJJCJJJ=CJCCJCC(">@5") and CJJCJJC=cstr(CCCCC(0)) then Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,D:K6lQaQ ,G2=F6lQ")):Response.Write CCCCC(5):Response.Write(CJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,D:K6lQa_Q ,G2=F6lQ")):Response.Write CCCCC(1):Response.Write(CJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQ6?Q ,EJA6lQE6IEQ ,D:K6lQa_Q ,G2=F6lQ")):Response.Write CCCCC(2):Response.Write(CJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQD9@CEQ ,EJA6lQE6IEQ ,D:K6lQdQ ,G2=F6lQ")):Response.Write CCCCC(3):Response.Write(CJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mkE6IE2C62 ,?2>6lQ6IA=2:?Q ,4@=DlQb_Qm")):Response.Write CCCCC(4):Response.Write(CJCCJCC("k^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQBF6DE:@?`Q ,EJA6lQE6IEQ ,D:K6lQb_Q ,G2=F6lQ")):Response.Write CCCCC(6):Response.Write(CJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQBF6DE:@?aQ ,EJA6lQE6IEQ ,D:K6lQb_Q ,G2=F6lQ")):Response.Write CCCCC(7):Response.Write(CJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQC:89EQ ,?@HC2Am") & vbCrLf):Response.Write(CJCCJCC(" ,k2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m") & vbCrLf):Response.Write(CJCCJCC(" ,k2 ,9C67lQn=3:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("Qm????k^2m") & vbCrLf):Response.Write(CJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCCC(5):Response.Write(CJCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5m")):Response.Write CCCCC(1):Response.Write(CJCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5m")):Response.Write CCCCC(2):Response.Write(CJCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5m")):Response.Write CCCCC(3):Response.Write(CJCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5m")):Response.Write replace(CCCCC(4),vbcrlf,CJCCJCC("k3Cm")):Response.Write(CJCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:>8 ,4=2DDlQG:6HQ ,DC4lQ]]^]]^:>286D^G:6H]8:7Q ,E:E=6lQ")):Response.Write CCCCC(6):Response.Write(CJCCJCC("Qm")):Response.Write CJJCCCC(CCCCC(6),40):Response.Write(CJCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:>8 ,4=2DDlQG:6HQ ,DC4lQ]]^]]^:>286D^G:6H]8:7Q ,E:E=6lQ")):Response.Write CCCCC(7):Response.Write(CJCCJCC("Qm")):Response.Write CJJCCCC(CCCCC(7),40):Response.Write(CJCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQC:89EQ ,?@HC2Am") & vbCrLf):Response.Write(CJCCJCC(" ,k2 ,9C67lQn=3:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("U24El>@5U:5l")):Response.Write CCCCC(0):Response.Write(CJCCJCC("Qm????k^2m") & vbCrLf):Response.Write(CJCCJCC(" ,k2 ,9C67lQn=3:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("U24El56=U:5l")):Response.Write CCCCC(0):Response.Write(CJCCJCC("Qm????k^2m") & vbCrLf):Response.Write(CJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCC(" ,")) end if:CCCCC.movenext:CJCJJJ=CJCJJJ+1:wend:if CJJCJJJ=CJCCJCC("255") then Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,D:K6lQaQ ,G2=F6lQ")):Response.Write CJCJJJ:Response.Write(CJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,D:K6lQa_Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQ6?Q ,EJA6lQE6IEQ ,D:K6lQa_Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQD9@CEQ ,EJA6lQE6IEQ ,D:K6lQdQmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mkE6IE2C62 ,?2>6lQ6IA=2:?Q ,4@=DlQb_Qmk^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQBF6DE:@?`Q ,EJA6lQE6IEQ ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5mk:?AFE ,?2>6lQBF6DE:@?aQ ,EJA6lQE6IEQ ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,2=:8?lQC:89EQ ,?@HC2Am") & vbCrLf):Response.Write(CJCCJCC(" ,k2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm????k^2m") & vbCrLf):Response.Write(CJCCJCC(" ,k2 ,9C67lQn=3:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("Qm????k^2m") & vbCrLf):Response.Write(CJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCJCC(" ,kE5 ,4@=DA2?lQgQ ,2=:8?lQC:89EQmk2 ,9C67lQn=3:5l")):Response.Write CJJJCCC:Response.Write(CJCCJCC("U24El255Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJCC("k^7@C>m") & vbCrLf):Response.Write(CJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCCJCC(" ,SWVE9,E:E=6.VX];%:E=6WLDEJ=6iV3=24<VNX") & vbCrLf):Response.Write(CJCCJCC(" ,SWV:>8,E:E=6.VX];%:E=6WLDEJ=6iV3=F6VNX") & vbCrLf):Response.Write(CJCCJCC(" ,SWV2i4@?E2:?DWQ????QXV[SWVE23=6]E30=:DEVXX]4=:4<W7F?4E:@?WXLC6EFC? ,4@?7:C>WV??????,????????????????????????,VXNX") & vbCrLf):Response.Write(CJCCJCC(" ,2FE@D:K6WSWVE6IE2C62VXX") & vbCrLf):Response.Write(CJCCJCC("NX") & vbCrLf):Response.Write(CJCCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJCJ=nothing:set CJCJJCC=nothing:set CJCJCJJ=nothing:set CJCJCJC=nothing:CJJJJJ.Close:Set CJJJJJ=Nothing:CCCCC.Close:Set CCCCC=Nothing:CCCJC.Close:Set CCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCJCC(ByVal CJJCCC) Dim CJJCJCC, CJCJJJ, CJCCCC CJJCCC = Replace(CJJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJJJ = 1 To Len(CJJCCC) If CJCJJJ <> CJCCCC Then CJJCJCC = AscW(Mid(CJJCCC, CJCJJJ, 1)) If CJJCJCC >= 33 And CJJCJCC <= 79 Then CJCCJCC = CJCCJCC & Chr(CJJCJCC + 47) ElseIf CJJCJCC >= 80 And CJJCJCC <= 126 Then CJCCJCC = CJCCJCC & Chr(CJJCJCC - 47) Else CJCCCC = CJCJJJ + 1 If Mid(CJJCCC, CJCCCC, 1) = Chr(64) Then CJCCJCC = CJCCJCC & ChrW(CJJCJCC + 5) Else CJCCJCC = CJCCJCC & Mid(CJJCCC, CJCJJJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de