Edit D:\xinhaisoft\crisis_new\m\school\student\testedlist.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJJ, CJJJJJC,CJJJJCJ, CJJJJCC, CJJJCJJ:Set CJJJJJJ = server.CreateObject(CCCCCCJ("ps~sq]r@??64E:@?")):CJJJJJJ.open Application(CCCCCCJ("r@??64E:@?$EC:?8")):Set CJJJJJC=CJJJJJJ::Dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC:CJCJCCC=Trim(Request.Cookies(CCCCCCJ("!$*|t|qt#"))):if CJCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCJC>0 then
CJJJCJJ=CCCCCCJ("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") & CJJJCCJ & CCCCCCJ("V ,2?5 ,:5l") & CJJJCJC
set CJJJJCJ=CJJJJJJ.execute(CJJJCJJ):If CJJJJCJ.EOF Then
Call ClearMemberCookie
Else
CJJJCCC=CJJJJCJ(2) & "":CJJCJJJ=CJJJJCJ(3):CJJCJJC=CJJJJCJ(5):CJJCJCJ=CJJJJCJ(6):CJJCJCC=CJJJJCJ(9):CJJCCJJ=CJJJJCJ(15):CJJCCCJ=CJJJJCJ(0):CJCJCJC=CJJJJCJ(1):CJCJCJJ=CJJJJCJ(11) & "":CJJCCCC=CJJJJCJ(10) & "":CJJCCJC=CJJJJCJ(12):CJCJJJJ=CJJJJCJ(14):CJCJJJC=CJJJJCJ(13):CJCJJCJ=CJJJJCJ(7) & "":CJCJJCC=CJJJJCJ(4):CJCJCCJ=CJJJJCJ(8):if isnull(CJJCCJJ) then CJJCCJJ=0
if isnull(CJJCJCC) or CJJCJCC=0 then CJJCJCC=CJJCJJJ
if isnull(CJCJJCC) then CJCJJCC=0
if isnull(CJJCJJC) then CJJCJJC=0
if instr(CCCCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCJ)>0 then Call RedirectMessage(CCCCCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCJC,CJJJCCJ)
End IF
end if:::Sub CheckLogined():if CJJJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJJJ:CJCCJJJ=trim(request.QueryString(CCCCCCJ("D49@@="))):if isnumeric(CJCCJJJ) then
response.Redirect CCCCCCJ("^>^G2?E^R^D49@@=^") & CJCCJJJ & CCCCCCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCCCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCCCJ("!$*|t|qt#"))="":CJJJCJC=0:CJJCJCJ=0:CJJJCCJ=Empty:CJJCJJC=0:CJJCCJJ=0:CJJCJCC=0:CJJCJJJ=0:CJJCCCJ=False:CJCJCJC=False:CJCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCCJJC=split(CJCJCCC,CCCCCCJ("]")):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 CJCCJCC=1 to len(CJCCJCJ):CJCCCJJ=mid(CJCCJCJ,CJCCJCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ
if len(CJCCCJC)=7 then exit for
next:CJCCJCJ=CJCCJJC(2):if CJCCCJC<>mid(CJCCJCJ,6,7) then
Call ClearMemberCookie
else
CJCCCJJ=mid(CJCCJCJ,18,10)/2:if CJCCCJJ<DateDiff(CCCCCCJ("D"), CCCCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCJC=Clng(CJCCJJC(0)):CJJJCCJ=CJCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCCC,CJJJJJJJ):dim CJCCJCC,CJCCCJJ,CJCCCJC:for CJCCJCC=1 to len(CJJJJJJJ):CJCCCJJ=mid(CJJJJJJJ,CJCCJCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ
if len(CJCCCJC)=7 then exit for
next:CJCCCJC=CCCCCCC & CCCCCCJ("]") & CJJJJJJJ & CCCCCCJ("]") & Fix(10000*(Rnd+1)) & CJCCCJC & Fix(10000*(Rnd+1)) & DateDiff(CCCCCCJ("D"), CCCCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCCJ("!$*|t|qt#"))=CJCCCJC:End Sub::::Const CCJCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJJJJC,CJJJJJCJ):dim CJCCJJC:CJCCJJC=CJJJJJJC & "=" & CJJJJJCJ & CCCCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCCJ("$6E\r@@<:6"),CJCCJJC):End Sub:::::::Function CCCJJJJ(CCJCCJJ):if isnull(CCJCCJJ) or trim(CCJCCJJ)="" or not isnumeric(CCJCCJJ) then
CCCJJJJ=false
else
Dim CJCCCCJ:Set CJCCCCJ = New RegExp:CJCCCCJ.Pattern = CCCCCCJ("/-5ZS"):CJCCCCJ.IgnoreCase = True:CCCJJJJ = CJCCCCJ.test(CCJCCJJ):set CJCCCCJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:CJCCCCC.close : set CJCCCCC=nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CJJJJCJ.Close : Set CJJJJCJ=Nothing:CCCJCJC.Close : Set CCCJCJC = Nothing:CJJJJJJ.Close : Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCCJ("!$*0|6DD286"),server.URLEncode(CJJJJJCC)):Response.Redirect CCCCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCCJCCJ():Dim CJCCCCC, CCJJJJJ(), CJCCJCC, CJCCCJJ, CCJJJJC,CCJJJCJ:If Not IsArray(Application(CCCCCCJ("!$*0%6DED"))) Then
CJJJCJJ=CCCCCCJ("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 CJCCCCC=server.createobject(CCCCCCJ("25@53]C64@C5D6E")):CJCCCCC.open CJJJCJJ,CJJJJJJ,1:CCJJJJC = CJCCCCC.RecordCount:CCJJJCJ=CJCCCCC.fields.count-1:ReDim CCJJJJJ(CCJJJJC, CCJJJCJ):If CCJJJJC > 0 Then
For CJCCJCC = 1 To CCJJJJC:For CJCCCJJ = 0 To CCJJJCJ:if CJCCCJJ=4 or CJCCCJJ=6 or CJCCCJJ=19 then
CCJJJJJ(CJCCJCC, CJCCCJJ) = CCCCJJJ(CJCCCCC(CJCCCJJ))
else
CCJJJJJ(CJCCJCC, CJCCCJJ) = CJCCCCC(CJCCCJJ):if CJCCCCC(CJCCCJJ).type<>11 and isnull(CCJJJJJ(CJCCJCC, CJCCCJJ)) then CCJJJJJ(CJCCJCC, CJCCCJJ)=""
end if:Next:CJCCCCC.MoveNext:Next
End If:CJCCCCC.Close: Set CJCCCCC = Nothing:Application(CCCCCCJ("!$*0%6DED")) = CCJJJJJ
End If:CCCJCCJ = Application(CCCCCCJ("!$*0%6DED")):End Function::Function CCCJCCC(CCJCCJJ):Dim CCJJJCC, CCJJCJJ, CCJJCJC, CCJJCCJ, str:If Not CCCJJJJ(CCJCCJJ) or CCJCCJJ=0 Then
str=0
else
CCJJJCC = Fix(CCJCCJJ / 86400):CCJJCJJ = Fix((CCJCCJJ - CCJJJCC * 86400) / 3600):CCJJCJC = Fix((CCJCCJJ - CCJJJCC * 86400 - CCJJCJJ * 3600) / 60):CCJJCCJ = Fix(CCJCCJJ - CCJJJCC * 86400 - CCJJCJJ * 3600 - CCJJCJC * 60):If CCJJJCC <> 0 Then str = CCJJJCC & CCCCCCJ("??")
If CCJJCJJ <> 0 Then str = str & CCJJCJJ & CCCCCCJ("????")
If CCJJCJC <> 0 Then str = str & CCJJCJC & CCCCCCJ("??")
if CCJJCCJ <> 0 Then str = str & CCJJCCJ & CCCCCCJ("??")
end if:CCCJCCC = str:End Function::::::::::::::::::::::::::::Function CCCCJJJ(CJJJJCJJ):if isnull(CJJJJCJJ) then
CCCCJJJ=""
else
On Error Resume Next:CCCCJJJ=CJJJJCJJ:if err.number=-2147352567 then
CCCCJJJ="":err.Clear
end if
end if:End Function::::::Public Function CCCCJJC(CCJCCJJ):dim CCJCJJJ:if isnull(CCJCCJJ) or trim(CCJCCJJ)="" or not isnumeric(CCJCCJJ) or instr(CCJCCJJ,CCCCCCJ("\"))>0 or instr(CCJCCJJ,CCCCCCJ("]"))>0 or left(CCJCCJJ,1)="0" then
CCJCJJJ=""
else
CCJCJJJ=CCJCCJJ:if Len(CCJCJJJ) Mod 2=1 then CCJCJJJ="0" & CCJCJJJ
Randomize:CCJCJJJ=CCJCJJJ & Int((99-10+1)*Rnd+10):CCJCJJJ=CCCCJCJ(CCJCJJJ):CCJCJJJ=CCJCJJJ & CCCCJCC(CCJCJJJ)
end if:CCCCJJC=CCJCJJJ:End Function::Private Function CCCCJCJ(str):Dim CCJCJJC, CJCCJCC, CJCCCJC, CCJCJCJ, CCJCJCC, CCJCCJJ,CCJCJJJ:CCJCJCJ = Len(str):For CJCCJCC = 1 To CCJCJCJ:CJCCCJC = CInt(Mid(str, CJCCJCC, 1)):If CJCCCJC < 5 Then CJCCCJC = CJCCCJC + 5 Else CJCCCJC = CJCCCJC - 5
CCJCJJC = CCJCJJC & CJCCCJC:Next:For CJCCJCC = 1 To CCJCJCJ - 1 Step 2:CCJCJCC = Mid(CCJCJJC, CJCCJCC, 1):CCJCCJJ = Mid(CCJCJJC, CJCCJCC + 1, 1):CCJCJJJ = CCJCJJJ & CCJCCJJ & CCJCJCC:Next:CCCCJCJ = StrReverse(CCJCJJJ):End Function:Private Function CCCCJCC(CJJJJCJC):Dim CCJCJCJ, CJCCJCC, CCJCCJJ, CCJCJJC:CCJCJCJ = Len(CJJJJCJC):CCJCCJJ = 0:For CJCCJCC = 1 To CCJCJCJ:CCJCJJC = CInt(Mid(CJJJJCJC, CJCCJCC, 1)):If CJCCJCC Mod 2 = 0 Then CCJCCJJ = CCJCCJJ + CCJCJJC * 3 Else CCJCCJJ = CCJCCJJ + CCJCJJC
Next:CCJCCJJ = CCJCCJJ Mod 100:CCJCCJJ = 100 - CCJCCJJ:CCCCJCC = Right("0" & CCJCCJJ, 2):End Function::Call CheckLogined:Response.Write(vbCrLf):Response.Write(CCCCCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCCJ("k9625m") & vbCrLf):Response.Write(CCCCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCCJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CCCCCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCCCCCJ("kDEJ=6m") & vbCrLf):Response.Write(CCCCCCJ("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CCCCCCJ("E6IE2C62 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCCCCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCCCCJ("k^9625m") & vbCrLf):Response.Write(CCCCCCJ("k3@5Jm") & vbCrLf):Response.Write(CCCCCCJ("kP\\????\\m") & vbCrLf):Response.Write(CCCCCCJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CCCCCCJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm????????k^9`m") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\96256C\C:89E ,2>\96256C\?2GQmk2 ,9C67lQ>J]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\FD6CQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CCCCCCJ("k^96256Cm") & vbCrLf):Response.Write(CCCCCCJ("kP\\????????????\\m") & vbCrLf):Response.Write(CCCCCCJ("k5:G ,52E2\2>\H:586ElQ=:DE0?6HDQ ,4=2DDlQ2>\=:DE\?6HD ,2>\=:DE\?6HD\5672F=EQ ,m") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\=:DE\?6HD\35Qm") & vbCrLf):Response.Write(CCCCCCJ(" ,kF= ,4=2DDlQ2>\=:DEQm") & vbCrLf):Response.Write(CCCCCCJ(" ,")):dim CCJCCJC:CJJJCJJ=CCCCCCJ("D6=64E ,:5[=3?2>67C[52E6E:>6[9@H=@?8[=3?2>649[A6C>:EG:6H[G2=:5[=3 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36Cl") & CJJJCJC & CCCCCCJ(" ,2?5 ,W=3k`_f ,@C ,=3m`_gX ,@C56C ,3J ,:5 ,56D4"):set CJJJJCJ=CJJJJJJ.execute(CJJJCJJ):while not CJJJJCJ.eof:CCJCCJC=CJJJJCJ(1):if CCJCCJC & ""="" then CCJCCJC=CJJJJCJ(4)
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k=: ,4=2DDlQ2>\8 ,2>\=:DE\:E6>\56D465Qm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\F\D>\gQm") & vbCrLf):Response.Write(CCCCCCJ(" ,k2 ,9C67lQ;2G2D4C:AEijQ ,4=2DDlQ2>\=:DE\:E6>\95Qm")):Response.Write  CCJCCJC:Response.Write(CCCCCCJ("k^2m") & vbCrLf):Response.Write(CCCCCCJ(" ,kE6IE2C62m")):Response.Write  CCCCCJJ(CJJJJCJ(7)):Response.Write(CCCCCCJ("k^E6IE2C62m") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\=:DE\:E6>\E6IEQm") & vbCrLf):Response.Write(CCCCCCJ(" ,??????????,")):Response.Write  CJJJJCJ(2):Response.Write(CCCCCCJ("k3Cm") & vbCrLf):Response.Write(CCCCCCJ(" ,??????????,")):Response.Write  CCCJCCC(CJJJJCJ(3)):Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k5:G ,4=2DDlQ2>\F\D>\cQm") & vbCrLf):Response.Write(CCCCCCJ(" ,")):If not CJJJJCJ(6) Then
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\H2C?:?8 ,2>\3E?\ID ,2>\3E?\3=@4<Q ,5:D23=65m????k^3FEE@?m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
ElseIf instr(CCCCCCJ("[`_heb`[`db`cf[`db`af["),CCCCCCJ("[") & CJJCJCC & CCCCCCJ("["))>0 Then
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k2 ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\AC:>2CJ ,2>\3E?\ID ,2>\3E?\3=@4<Q ,9C67lQ^>6>36C^E6DEC6A@CE]2DAn:5l")):Response.Write  CCCCJJC(CJJJJCJ(0)):Response.Write(CCCCCCJ("Qm????????k^2m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
ElseIf CJJJJCJ(5) Then
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k2 ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\AC:>2CJ ,2>\3E?\ID ,2>\3E?\3=@4<Q ,9C67lQE6DE0G:6H]2DAn:5l")):Response.Write  CJJJJCJ(0):Response.Write(CCCCCCJ("Qm????????k^2m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\C25:FD ,2>\3E?\5672F=E ,2>\3E?\ID ,2>\3E?\3=@4<Q ,5:D23=65m??????????k^3FEE@?m") & vbCrLf):Response.Write(CCCCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ(" ,k^=:m") & vbCrLf):Response.Write(CCCCCCJ(" ,")):CJJJJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CCCCCCJ(" ,k^F=m") & vbCrLf):Response.Write(CCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCCCCCJ("k^5:Gm") & vbCrLf)::Function CCCCCJJ(CJJJJCCC):dim CCJJJJJ,CJCCJCC,str:CCJJJJJ=CCCJCCJ:for CJCCJCC=1 to ubound(CCJJJJJ):if CCJJJJJ(CJCCJCC,0)=CJJJJCCC then
str=CCJJJJJ(CJCCJCC,19):if str="" then str=CCJJJJJ(CJCCJCC,6)
exit for
end if:next:CCCCCJJ=str:End Function:Response.Write(vbCrLf):Response.Write(CCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^2>2K6F:]5:2=@8]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCJ(" ,SWV2]2>\=:DE\:E6>\95VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCJ(" ,p|&x]5:2=@8]A@AFAWLE:E=6iV????V[4@?E6?EiVkAmVZSWE9:DX]?6IEWVE6IE2C62VX]G2=WX]C6A=246W^-?^8[Vk^AmkAmVXZVk^AmVNX") & vbCrLf):Response.Write(CCCCCCJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CCCCCCJ(" ,NX") & vbCrLf):Response.Write(CCCCCCJ("NX") & vbCrLf):Response.Write(CCCCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJCJ.Close:Set CJJJJCJ=Nothing:CJJJJJJ.Close:Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCCJ(ByVal CCCCCJC)
Dim CCJCCCJ, CJCCJCC, CCJCCJJ
CCCCCJC = Replace(CCCCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJCC = 1 To Len(CCCCCJC)
If CJCCJCC <> CCJCCJJ Then
CCJCCCJ = AscW(Mid(CCCCCJC, CJCCJCC, 1))
If CCJCCCJ >= 33 And CCJCCCJ <= 79 Then
CCCCCCJ = CCCCCCJ & Chr(CCJCCCJ + 47)
ElseIf CCJCCCJ >= 80 And CCJCCCJ <= 126 Then
CCCCCCJ = CCCCCCJ & Chr(CCJCCCJ - 47)
Else
CCJCCJJ = CJCCJCC + 1
If Mid(CCCCCJC, CCJCCJJ, 1) = Chr(64) Then CCCCCCJ = CCCCCCJ & ChrW(CCJCCCJ + 5) Else CCCCCCJ = CCCCCCJ & Mid(CCCCCJC, CJCCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de