Edit D:\xinhaisoft\crisis_new\admin\member\view.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Buffer=False Dim CCCCCC, CJJJJJJ,CJJJJJC, CJJJJCJ, CJJJJCC:Set CCCCCC = server.CreateObject(CCJCJCC("ps~sq]r@??64E:@?")):CCCCCC.open Application(CCJCJCC("r@??64E:@?$EC:?8")):Set CJJJJJJ=CCCCCC::Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC,CJCJCJJ,CJCJCJC:Dim CJCJCCJ:CJCJCCJ=Trim(Request.Cookies(CCJCJCC("!$*|t|qt#"))):if CJCJCCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJJCJJ>0 then CJJJJCC=CCJCJCC("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") & CJJJCJC & CCJCJCC("V ,2?5 ,:5l") & CJJJCJJ set CJJJJJC=CCCCCC.execute(CJJJJCC):If CJJJJJC.EOF Then Call ClearMemberCookie Else CJJJCCJ=CJJJJJC(2) & "":CJJJCCC=CJJJJJC(3):CJJCJJJ=CJJJJJC(5):CJJCJJC=CJJJJJC(6):CJJCJCJ=CJJJJJC(9):CJJCJCC=CJJJJJC(15):CJJCCJC=CJJJJJC(0):CJCJCJJ=CJJJJJC(1):CJCJJCC=CJJJJJC(11) & "":CJJCCCJ=CJJJJJC(10) & "":CJJCCJJ=CJJJJJC(12):CJJCCCC=CJJJJJC(14):CJCJJJJ=CJJJJJC(13):CJCJJJC=CJJJJJC(7) & "":CJCJJCJ=CJJJJJC(4):CJCJCJC=CJJJJJC(8):if isnull(CJJCJCC) then CJJCJCC=0 if isnull(CJJCJCJ) or CJJCJCJ=0 then CJJCJCJ=CJJJCCC if isnull(CJCJJCJ) then CJCJJCJ=0 if isnull(CJJCJJJ) then CJJCJJJ=0 if instr(CCJCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJC)>0 then Call RedirectMessage(CCJCJCC("????????,????????????????????????????????,")) Call SetMemberCookie(CJJJCJJ,CJJJCJC) End IF end if:Sub CheckRight(CCJCCJJ):dim CJCJCCC,CJCCJJJ:if CJJJCJJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCJCC("??????????????,????????????,")) elseIf not CCJJJCJ(CCJCCJJ) then Call RedirectMessage(CCJCJCC("????W") & CCJCCJJ & CCJCJCC("X????????,????????????????????,")) end if:End Sub:Function CCJJJCJ(CCJCCJJ):dim CJCJCCC,CJCCJJJ:CJCCJJJ=split(CCJCCJJ,CCJCJCC("[")):CCJJJCJ=False:for CJCJCCC=0 to ubound(CJCCJJJ):If Mid(CJJJCCJ,CJCCJJJ(CJCJCCC),1)="1" then CCJJJCJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJCJCC("!$*|t|qt#"))="":CJJJCJJ=0:CJJCJJC=0:CJJJCJC=Empty:CJJCJJJ=0:CJJCJCC=0:CJJCJCJ=0:CJJJCCC=0:CJJCCJC=False:CJCJCJJ=False:CJCJCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJC,CJCCJCJ,CJCJCCC,CJCCJCC,CJCCCJJ:CJCCJJC=split(CJCJCCJ,CCJCJCC("]")):if ubound(CJCCJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCJJC(0)) or len(CJCCJJC(1))<>32 or len(CJCCJJC(2))<>32 then Call ClearMemberCookie else CJCCJCJ=CJCCJJC(1):for CJCJCCC=1 to len(CJCCJCJ):CJCCJCC=mid(CJCCJCJ,CJCJCCC,1):if isnumeric(CJCCJCC) then CJCCCJJ=CJCCCJJ & CJCCJCC if len(CJCCCJJ)=7 then exit for next:CJCCJCJ=CJCCJJC(2):if CJCCCJJ<>mid(CJCCJCJ,6,7) then Call ClearMemberCookie else CJCCJCC=mid(CJCCJCJ,18,10)/2:if CJCCJCC<DateDiff(CCJCJCC("D"), CCJCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJJCJJ=Clng(CJCCJJC(0)):CJJJCJC=CJCCJJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CJCCCCJ,CCJCCJC):dim CJCJCCC,CJCCJCC,CJCCCJJ:for CJCJCCC=1 to len(CCJCCJC):CJCCJCC=mid(CCJCCJC,CJCJCCC,1):if isnumeric(CJCCJCC) then CJCCCJJ=CJCCCJJ & CJCCJCC if len(CJCCCJJ)=7 then exit for next:CJCCCJJ=CJCCCCJ & CCJCJCC("]") & CCJCCJC & CCJCJCC("]") & Fix(10000*(Rnd+1)) & CJCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCJCC("D"), CCJCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCJCC("!$*|t|qt#"))=CJCCCJJ:End Sub::::Const CCJJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCCCJ,CCJCCCC):dim CJCCJJC:CJCCJJC=CCJCCCJ & "=" & CCJCCCC & CCJCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJCC("$6E\r@@<:6"),CJCCJJC):End Sub:::::::Function CCJJJCC(CCJJJJJ):if isnull(CCJJJJJ) or trim(CCJJJJJ)="" or not isnumeric(CCJJJJJ) then CCJJJCC=false else Dim CJCCCJC:Set CJCCCJC = New RegExp:CJCCCJC.Pattern = CCJCJCC("/-5ZS"):CJCCCJC.IgnoreCase = True:CCJJJCC = CJCCCJC.test(CCJJJJJ):set CJCCCJC=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJCJJ=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:CCJCJJJ.close : set CCJCJJJ=nothing:CJJJJCJ.Close : Set CJJJJCJ=Nothing:CJJJJJC.Close : Set CJJJJJC=Nothing:CCJCJJC.Close : Set CCJCJJC = Nothing:CCCCCC.Close : Set CCCCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJCC("!$*0|6DD286"),server.URLEncode(CCCJJJJ)):Response.Redirect CCJCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckRight(25)::dim CJCCCCJ:CJCCCCJ=Request.QueryString(CCJCJCC(":5")):if not CCJJJCC(CJCCCCJ) then RedirectMessage(CCJCJCC("????????M??????????????,??????????????????????,")) set CJJJJJC=CCCCCC.execute(CCJCJCC("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CJCCCCJ):if CJJJJJC.eof then RedirectMessage(CCJCJCC("????????M??????????????????????,")) Response.Write(vbCrLf):Response.Write(CCJCJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCJCC("k9E>=m") & vbCrLf):Response.Write(CCJCJCC("k9625m") & vbCrLf):Response.Write(CCJCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJCJCC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCJCJCC("k^9625m") & vbCrLf):Response.Write(CCJCJCC("k3@5Jm") & vbCrLf):Response.Write(CCJCJCC("k5:G ,4=2DDlQE:E=6Qm??????????????????????k^5:Gm") & vbCrLf):Response.Write(CCJCJCC("k9am????????k^9am") & vbCrLf):Response.Write(CCJCJCC("kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC(":5")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m????????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("?F>36C")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("FD6C?2>6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("A2DDH@C5")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("D6I")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("?:4<?2>6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("3:CE952J")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("H@C<F?:E")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("9625D9:A")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("AC@G:?46")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("4:EJ")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("255C6DD")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("A@DE2=4@56")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m""""??,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("BB")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mt>2:=??,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("6>2:=")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("A9@?6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC(">@3:=6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("H63D:E6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("C68E:>6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m????????x!??,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("=2DE:A")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,?@HC2AlQ?@HC2AQm??????????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("=2DEE:>6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("A@:?E")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("D4@C6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("EJA6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("8C@FA")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("2CE:4=60EJA6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("@?=:?6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,?@HC2AlQ?@HC2AQm??????????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("=2DEG:56@")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("7:CDEADH")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("=@8E:>6D")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC(":D3=@886C")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m``c??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("``c0DE2EFD")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("6>2:=04@?7:C>")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m????????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC(":DD49@@=25>:?")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m????xs??,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("A2C6?E")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,?@HC2AlQ?@HC2AQm??????????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("E@52J=@8")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("DE2E6")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC(":D!2C6?E")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m????^??????k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CJJJJJC(CCJCJCC("286?4J")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,4@=DA2?lQdQm")):Response.Write CJJJJJC(CCJCJCC(":?EC@")):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5 ,4@=DA2?lQdQm")):Response.Write CJJJJJC(CCJCJCC("C6>2C<")) Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC("k^E23=6m") & vbCrLf):Response.Write(CCJCJCC("k9am????k^9am") & vbCrLf):Response.Write(CCJCJCC("kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk2 ,9C67lQ]]^2CE:4=6^=:DE]2DAnpl")):Response.Write CJCCCCJ:Response.Write(CCJCJCC("U!l`Qm")):Response.Write CCCCCC.execute(CCJCJCC("D6=64E ,4@F?EW:5X ,7C@> ,2CE:4=6 ,H96C6 ,2FE9@Cl") & CJCCCCJ)(0):Response.Write(CCJCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):If CCJJJCJ(40) Then Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,k2 ,9C67lQ]]^EC2:?^=:DE]2DAnpl")):Response.Write CJCCCCJ:Response.Write(CCJCJCC("U!l`Qm")):Response.Write CCCCCC.execute(CCJCJCC("D6=64E ,4@F?EW:5X ,7C@> ,EC2:? ,H96C6 ,2FE9@Cl") & CJCCCCJ)(0):Response.Write(CCJCJCC("k^2m") & vbCrLf):Response.Write(CCJCJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJCJCC(" ,,????????.") & vbCrLf):Response.Write(CCJCJCC(" ,")) End If:Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CCCCCC.execute(CCJCJCC("D6=64E ,4@F?EW:5X ,7C@> ,E6DE ,H96C6 ,>6>36Cl") & CJCCCCJ & CCJCJCC(" ,2?5 ,G2=:5l`"))(0):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CCCCCC.execute(CCJCJCC("D6=64E ,4@F?EW:5X ,7C@> ,I=96=A ,H96C6 ,2FE9@Cl") & CJCCCCJ)(0):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????????????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m")):Response.Write CCCCCC.execute(CCJCJCC("D6=64E ,4@F?EW:5X ,7C@> ,I=96=A0C6A=J ,H96C6 ,2FE9@Cl") & CJCCCCJ)(0):Response.Write(CCJCJCC("k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCJCC(" ,kE5m??????,k^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mk2 ,9C67lQ]]^46CE:7:42E6^=:DE]2DAn|l")):Response.Write CJCCCCJ:Response.Write(CCJCJCC("Qm")):Response.Write CCCCCC.execute(CCJCJCC("D6=64E ,4@F?EW:5X ,7C@> ,K96?8D9F ,H96C6 ,>6>36Cl") & CJCCCCJ)(0):Response.Write(CCJCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCJCC("k^E23=6m") & vbCrLf):Response.Write(CCJCJCC("k^3@5Jm") & vbCrLf):Response.Write(CCJCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJJ=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:CJJJJCJ.Close:Set CJJJJCJ=Nothing:CJJJJJC.Close:Set CJJJJJC=Nothing:CCCCCC.Close:Set CCCCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJCJCC(ByVal CCJCJCJ) Dim CJCCCCC, CJCJCCC, CCJJJJJ CCJCJCJ = Replace(CCJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJCCC = 1 To Len(CCJCJCJ) If CJCJCCC <> CCJJJJJ Then CJCCCCC = AscW(Mid(CCJCJCJ, CJCJCCC, 1)) If CJCCCCC >= 33 And CJCCCCC <= 79 Then CCJCJCC = CCJCJCC & Chr(CJCCCCC + 47) ElseIf CJCCCCC >= 80 And CJCCCCC <= 126 Then CCJCJCC = CCJCJCC & Chr(CJCCCCC - 47) Else CCJJJJJ = CJCJCCC + 1 If Mid(CCJCJCJ, CCJJJJJ, 1) = Chr(64) Then CCJCJCC = CCJCJCC & ChrW(CJCCCCC + 5) Else CCJCJCC = CCJCJCC & Mid(CCJCJCJ, CJCJCCC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de