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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CCJJCCJ("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CCJJCCJ("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC:CJJJCJC=Trim(Request.Cookies(CCJJCCJ("!$*|t|qt#"))):if CJJJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCC>0 then
CCJJCJ=CCJJCCJ("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") & CCJCJJ & CCJJCCJ("V ,2?5 ,:5l") & CCJJCC
set CCJJJJ=CJCCCJ.execute(CCJJCJ):If CCJJJJ.EOF Then
Call ClearMemberCookie
Else
CCJCJC=CCJJJJ(2) & "":CCJCCJ=CCJJJJ(3):CCJCCC=CCJJJJ(5):CCCJJJ=CCJJJJ(6):CCCJJC=CCJJJJ(9):CCCJCJ=CCJJJJ(15):CCCCJJ=CCJJJJ(0):CJJJJCC=CCJJJJ(1):CJJJJCJ=CCJJJJ(11) & "":CCCCJC=CCJJJJ(10) & "":CCCJCC=CCJJJJ(12):CCCCCJ=CCJJJJ(14):CCCCCC=CCJJJJ(13):CJJJJJJ=CCJJJJ(7) & "":CJJJJJC=CCJJJJ(4):CJJJCJJ=CCJJJJ(8):if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCCJJC) or CCCJJC=0 then CCCJJC=CCJCCJ
if isnull(CJJJJJC) then CJJJJJC=0
if isnull(CCJCCC) then CCJCCC=0
if instr(CCJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJJ)>0 then Call RedirectMessage(CCJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJJCC,CCJCJJ)
End IF
end if:::Sub CheckLogined():if CCJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJCCJ:CJJJCCJ=trim(request.QueryString(CCJJCCJ("D49@@="))):if isnumeric(CJJJCCJ) then
response.Redirect CCJJCCJ("^>^G2?E^R^D49@@=^") & CJJJCCJ & CCJJCCJ("^DEF56?E^=@8:?nC65:C64El") & CJCJJJJ
else
Call RedirectMessage(CCJJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJCCJ("!$*|t|qt#"))="":CCJJCC=0:CCCJJJ=0:CCJCJJ=Empty:CCJCCC=0:CCCJCJ=0:CCCJJC=0:CCJCCJ=0:CCCCJJ=False:CJJJJCC=False:CJJJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:CJJJCCC=split(CJJJCJC,CCJJCCJ("]")):if ubound(CJJJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCCC(0)) or len(CJJJCCC(1))<>32 or len(CJJJCCC(2))<>32 then
Call ClearMemberCookie
else
CJJCJJJ=CJJJCCC(1):for CJJCJJC=1 to len(CJJCJJJ):CJJCJCJ=mid(CJJCJJJ,CJJCJJC,1):if isnumeric(CJJCJCJ) then CJJCJCC=CJJCJCC & CJJCJCJ
if len(CJJCJCC)=7 then exit for
next:CJJCJJJ=CJJJCCC(2):if CJJCJCC<>mid(CJJCJJJ,6,7) then
Call ClearMemberCookie
else
CJJCJCJ=mid(CJJCJJJ,18,10)/2:if CJJCJCJ<DateDiff(CCJJCCJ("D"), CCJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCC=Clng(CJJJCCC(0)):CCJCJJ=CJJJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCCC,CCJCJJJ):dim CJJCJJC,CJJCJCJ,CJJCJCC:for CJJCJJC=1 to len(CCJCJJJ):CJJCJCJ=mid(CCJCJJJ,CJJCJJC,1):if isnumeric(CJJCJCJ) then CJJCJCC=CJJCJCC & CJJCJCJ
if len(CJJCJCC)=7 then exit for
next:CJJCJCC=CCJJCCC & CCJJCCJ("]") & CCJCJJJ & CCJJCCJ("]") & Fix(10000*(Rnd+1)) & CJJCJCC & Fix(10000*(Rnd+1)) & DateDiff(CCJJCCJ("D"), CCJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCCJ("!$*|t|qt#"))=CJJCJCC:End Sub::Function CJCCJCC(CCJCJJC):Dim str,CJJCCJC:str = Trim(CCJCJJC):If IsNull(str) Or str = "" Then
CJCCJCC = ""
else
str=Replace(str, CCJJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJJCCJ("k:7C2>6"), CCJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJCCJ("kD4C:AE"), CCJJCCJ("U=EjD4C:AE"),1,-1,1):str=Replace(str,CCJJCCJ(";2G2D4C:AEi"), CCJJCCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCCJ("2=6CEW"), CCJJCCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCCJ("4@?7:C>W"), CCJJCCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCCJ("AC@>AEW"), CCJJCCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCCJ("6G2=W"), CCJJCCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCCJ("5@4F>6?E]"), CCJJCCJ(",IDD."),1,-1,1):On Error Goto 0:set CJJCCJC=new RegExp:CJJCCJC.Pattern=CCJJCCJ("@?W,2\K.ZXl"):CJJCCJC.IgnoreCase = True:CJJCCJC.Global=True:str=CJJCCJC.Replace(str,CCJJCCJ("@?S`U6BF2=Dj")):set CJJCCJC=nothing:CJCCJCC=str
End If:End Function:Function IIf(CCJCJCJ, CCJCJCC, CCJCCJJ):if isnull(CCJCJCJ) or isempty(CCJCJCJ) then
IIf = CCJCCJJ
elseif CCJCJCJ Then
IIf = CCJCJCC
Else
IIf = CCJCCJJ
end if:End Function:Const CJCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CJCCCJC():dim CJJCCCJ:CJJCCCJ = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJCCCJ = "" Then CJJCCCJ = Cstr(Request.ServerVariables(CCJJCCJ("#t|~%t0pss#")))
if instr(CJJCCCJ,CCJJCCJ("i"))>0 then
CJJCCCJ=left(CJJCCCJ,instr(CJJCCCJ,CCJJCCJ("i"))-1)
elseif instr(CJJCCCJ,CCJJCCJ("["))>0 then
CJJCCCJ=left(CJJCCCJ,instr(CJJCCCJ,CCJJCCJ("["))-1)
end if:CJCCCJC=left(CJJCCCJ,15):End Function::Public Function CJCCCCJ():Dim CJJCCCC, CJCJJJJ:CJCJJJJ = Request.ServerVariables(CCJJCCJ("!p%w0x}u~")):CJJCCCC = Request.ServerVariables(CCJJCCJ("""&t#*0$%#x}v")):If CJJCCCC <> Empty Then
if instr(lcase(CJJCCCC),CCJJCCJ("Tb4:7C2>6"))>0 or instr(lcase(CJJCCCC),CCJJCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJJCCJ("????????,????????????????????????,??,??,"))
CJCJJJJ = CJCJJJJ & CCJJCCJ("n") & CJJCCCC
end if:CJCCCCJ = CJCJJJJ:End Function:Sub SetHttpOnlyCookie(CCJCCJC,CCJCCCJ):dim CJJJCCC:CJJJCCC=CCJCCJC & CCJJCCJ("l") & CCJCCCJ & CCJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCCJ("$6E\r@@<:6"),CJJJCCC):End Sub:::::::Function CJCCCCC(CJCCJJC):if isnull(CJCCJJC) or trim(CJCCJJC)="" or not isnumeric(CJCCJJC) then
CJCCCCC=false
else
Dim CJJCCJC:Set CJJCCJC = New RegExp:CJJCCJC.Pattern = CCJJCCJ("/-5ZS"):CJJCCJC.IgnoreCase = True:CJCCCCC = CJJCCJC.test(CJCCJJC):set CJJCCJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJJJJ=nothing:set CCJJJJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:CJCJCJJ.close : set CJCJCJJ=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CCJJCJJ.Close : Set CCJJCJJ = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCCJ("!$*0|6DD286"),server.URLEncode(CCJCCCC)):Response.Redirect CCJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::Sub InsertLog(CCCJJJJ,CCJJCJC):dim CJCJJJC:CJCJJJC=CCJJCCJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCJJCC  & CCJJCCJ("[V") & CJCCCJC & CCJJCCJ("V") & CCJJCCJ("[V") & CJCCJCC(CCJJCJC) & CCJJCCJ("V") & CCJJCCJ("[") & CCCJJJJ  & CCJJCCJ("[V") & CJCCCCJ & CCJJCCJ("V") & CCJJCCJ("X")
CJCCCJ.execute CJCJJJC:End Sub::::::::::::::::::dim CJJJCCJ:CCJJCJ=Request.ServerVariables(CCJJCCJ("!p%w0x}u~")):if instr(CCJJCJ,CCJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCJJ and not CJJJJCC then Call RedirectMessage(CCJJCCJ("????????,????????????????????????,"))
CJJJCCJ=CCCJJC
elseif instr(CCJJCJ,CCJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCJ,CCJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJJCCJ=CCCJJC
elseif instr(CCJJCJ,CCJJCCJ("^D49@@="))>0 then
CJJJCCJ=Request.QueryString(CCJJCCJ("D49@@=")):if not CJCCCCC(CJJJCCJ) then CJJJCCJ=Request.QueryString(CCJJCCJ("F"))
if not CJCCCCC(CJJJCCJ) then CJJJCCJ=Request.QueryString(CCJJCCJ("D4"))
if not CJCCCCC(CJJJCCJ) then Call RedirectMessage(CCJJCCJ("????????W$49@@=X??@??????????,"))
CJJJCCJ=csng(CJJJCCJ)
end if:if CJJJCCJ=0 then Call RedirectMessage(CCJJCCJ("????????W$49@@=X????W_X??,"))
Dim CJCJJCJ:Call SetConfig:Sub SetConfig():dim CJCJJCC,CJCJCJJ:CCJJCJ=CCJJCCJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJJJCCJ:set CJCJCJJ=CJCCCJ.execute(CCJJCJ):if CJCJCJJ.eof then Call RedirectMessage(CCJJCCJ("??W") & CCJJCC & CCJJCCJ("X??????????W") & CJJJCCJ & CCJJCCJ("X????????,"))
ReDim CJCJJCC(61):CJCJJCC(0)=CJCJCJJ(CCJJCCJ(";:2@H6:")) & "":CJCJJCC(1)=CJCJCJJ(CCJJCCJ("EJA6")):CJCJJCC(2)=CJCJCJJ(CCJJCCJ("D>D")):CJCJJCC(3)=CJCJCJJ(CCJJCCJ("4FDE@>8C@FA")) & "":CJCJJCC(4)=CJCJCJJ(CCJJCCJ("D:5632C0@E96C")) & "":CJCJJCC(5)=IIf(isnull(CJCJCJJ(CCJJCCJ("E6DEC6DF=EG:6H"))),0,CJCJCJJ(CCJJCCJ("E6DEC6DF=EG:6H"))):CJCJJCC(6)=CJCJCJJ(CCJJCCJ("K:IF?E:>6")):CJCJJCC(7)=CJCJCJJ(CCJJCCJ("766")):CJCJJCC(8)=CJCJCJJ(CCJJCCJ("C6E6DE52J")):CJCJJCC(9)=CJCJCJJ(CCJJCCJ("6IA:C652E6")):CJCJJCC(10)=CJCJCJJ(CCJJCCJ("E:E=6")):CJCJJCC(11)=CJCJCJJ(CCJJCCJ(":?EC@")) & "":CJCJJCC(12)=CJCJCJJ(CCJJCCJ("A:4EFC6")) & "":CJCJJCC(13)=CJCJCJJ(CCJJCCJ("72>:=J")):CJCJJCC(14)=CJCJCJJ(CCJJCCJ("4@AJC:89E")) & "":CJCJJCC(15)=IIf(isnull(CJCJCJJ(CCJJCCJ("D6>6DE6C0DE2CE052E6"))),CCJJCCJ("`h__\`\`"),CJCJCJJ(CCJJCCJ("D6>6DE6C0DE2CE052E6"))):CJCJJCC(16)=IIf(isnull(CJCJCJJ(CCJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJJ(CCJJCCJ("K:IF?0E:>6D09:89=:89E"))):CJCJJCC(17)=CJCJCJJ(CCJJCCJ("4@?E24E")) & "":CJCJJCC(18)=CJCJCJJ(CCJJCCJ("D2?5E23=6")):CJCJJCC(19)=CJCJCJJ(CCJJCCJ("4C:D:D")):CJCJJCC(20)=CJCJCJJ(CCJJCCJ("JJ52E6")):CJCJJCC(21)=CJCJCJJ(CCJJCCJ("BB")):CJCJJCC(22)=CJCJCJJ(CCJJCCJ("JFJF60D>D0EA=")) & "":CJCJJCC(23)=CJCJCJJ(CCJJCCJ("JFJF60E6DE0=3")) & "":CJCJJCC(25)=CJCJCJJ(CCJJCCJ("6IA6CE")):CJCJJCC(26)=CJCJCJJ(CCJJCCJ(">@5:?7@")):CJCJJCC(27)=CJCJCJJ(CCJJCCJ("9@>6A286E@AA:4EFC6")) & "":CJCJJCC(28)=CJCJCJJ(CCJJCCJ("4C:D:D=3")):CJCJJCC(29)=IIf(CJCJCJJ(CCJJCCJ("4C:D:D@=5")),False,True):CJCJJCC(30)=CJCJCJJ(CCJJCCJ("8C@FA8F:52?46")):CJCJJCC(31)=CJCJCJJ(CCJJCCJ("3:@7665324<")):CJCJJCC(32)=CJCJCJJ(CCJJCCJ("<6JDEC")):CJCJJCC(33)=CJCJCJJ(CCJJCCJ("=@8@")) & "":CJCJJCC(34)=CJCJCJJ(CCJJCCJ("K:46")):CJCJJCC(35)=IIf(CJCJCJJ(CCJJCCJ(":D?6H")),True,False):CJCJJCC(36)=121:CJCJJCC(37)=111:CJCJJCC(38)=160:CJCJJCC(39)=CJCJCJJ(CCJJCCJ("8F6DE3@@<")):CJCJJCC(40)=CJCJCJJ(CCJJCCJ("75D")):CJCJJCC(42)=CJCJCJJ(CCJJCCJ("9@>6=@8:?")):CJCJJCC(43)=CJCJCJJ(CCJJCCJ("K:IF?0?6657665324<")):CJCJJCC(44)=CJCJCJJ(CCJJCCJ("K:IF?0E:>6D0=:>:E")):CJCJJCC(45)=CJCJCJJ(CCJJCCJ("4@>A=6E60:?7@")):CJCJJCC(46)=CJCJCJJ(CCJJCCJ("E6DE:?EC@")) & "":CJCJJCC(47)=IIf(isnull(CJCJCJJ(CCJJCCJ("JFJF60367@C60E:>6"))),0,CJCJCJJ(CCJJCCJ("JFJF60367@C60E:>6"))):CJCJJCC(49)=CJCJCJJ(CCJJCCJ("D>D0C646:G6C")):CJCJJCC(50)=CJCJCJJ(CCJJCCJ("D>D0D:8?")) & "":CJCJJCC(52)=CJCJCJJ(CCJJCCJ("JFJF602CC2?86")):CJCJJCC(53)=IIf(isnull(CJCJCJJ(CCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJJ(CCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJJCC(54)=CJCJCJJ(CCJJCCJ("9:560=30@FE@7286")):CJCJJCC(55)=CJCJCJJ(CCJJCCJ("JFJF60E6DE052JD")):CJCJJCC(56)=CJCJCJJ(CCJJCCJ("JFJF60H66<0=:>:E")):CJCJJCC(57)=CJCJCJJ(CCJJCCJ("JFJF604964<65")):CJCJJCC(58)=CJCJCJJ(CCJJCCJ("K:IF?0?6657665324<0?6IE")):CJCJJCC(59)=CJCJCJJ(CCJJCCJ("4964<?6HDEF56?E")):CJCJJCC(60)=CJCJCJJ(CCJJCCJ("K:IF?04=@D6052E6")):CJCJCJJ.close : set CJCJCJJ=nothing:if isNull(CJCJJCC(8)) or CJCJJCC(8)="" then CJCJJCC(8)=0
if isdate(CJCJJCC(9)) then
CJCJJCC(9)=cdate(CJCJJCC(9)):if CJCJJCC(9)<Date then Call RedirectMessage(CCJJCCJ("????????,????????????????W") & CJCJJCC(9) & CCJJCCJ("X??????,"))
end if:if not CJCCCCC(CJCJJCC(20)) then CJCJJCC(20)=7
select case CJCJJCC(1):case 1,2,16:CJCJJCC(36)=159:case 4,5,6,10,11:CJCJJCC(36)=190:CJCJJCC(37)=178:CJCJJCC(38)=191:case 7,13:CJCJJCC(36)=164:CJCJJCC(37)=178:CJCJJCC(38)=179:end select:CJCJJCJ=CJCJJCC:End Sub:Function CCJJJCC(CCCJJJC):dim CJCJJCC(7,1),CJJCJJC,CJCJCJC,CJCJCCJ:CJCJCJC=Array(CCJJCCJ("$49@@="),CCJJCCJ("$EF56?E"),CCJJCCJ("s6AE"),CCJJCCJ("vC256"),CCJJCCJ("r=2DD>2E6"),CCJJCCJ("}F>36C"),CCJJCCJ("%62496C"),CCJJCCJ("!2C6?E")):select case CJCJJCJ(1):case 1,2 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 3,16 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 4 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("??????@"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 5 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 6 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("??????@"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 7 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 8 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("??????@"),CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 9 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 10 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 11 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 12 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 13 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????")):case 14 : CJCJCCJ=Array(CCJJCCJ("??????"),CCJJCCJ("??@??"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case 15 : CJCJCCJ=Array(CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????????"),CCJJCCJ("????"),CCJJCCJ("????"),CCJJCCJ("??????"),CCJJCCJ("????")):case else : CJCJCCJ=CJCJCJC
end select:for CJJCJJC=0 to Ubound(CJCJJCC):CJCJJCC(CJJCJJC,0)=CJCJCJC(CJJCJJC):CJCJJCC(CJJCJJC,1)=CJCJCCJ(CJJCJJC):next:for CJJCJJC=0 to Ubound(CJCJJCC):if CJCJJCC(CJJCJJC,0)=CCCJJJC then
CCJJJCC=CJCJJCC(CJJCJJC,1):exit for
end if:next:End Function::dim CJCJCCC:CJCJCCC=Request.QueryString(CCJJCCJ("24E")):if CJCJCCC=CCJJCCJ("F?3:?5\H6:I:?") then
CJCCCJ.execute(CCJJCCJ("FA52E6 ,>6>36C ,D6E ,H6:I:?0@A6?:5l?F==[H6:I:?0@A6?:5l?F== ,H96C6 ,:5l") & CCJJCC):Call InsertLog(2,CCJJCC & CCJJCCJ("??????????????????")):Call ConnClose:Response.End
end if:If Request.ServerVariables(CCJJCCJ("#t""&t$%0|t%w~s"))=CCJJCCJ("!~$%") then
dim CJJCJJJ:CJJCJJJ=request.form(CCJJCCJ("A")):CJCCCJ.execute CCJJCCJ("FA52E6 ,>6>36C ,D6E ,,A2DDH@C5.lV") & CJJCJJJ & CCJJCCJ("V ,H96C6 ,:5l") & CCJJCC
Call InsertLog(2,CCJJCC & CCJJCCJ("??????????????????")):Call SetMemberCookie(CCJJCC,CJJCJJJ):Call ConnClose:response.end
end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJJCCJ("k9E>=m") & vbCrLf):Response.Write(CCJJCCJ("k9625m") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`[ ,>2I:>F>\D42=6l`[ ,FD6C\D42=23=6l?@Qm") & vbCrLf):Response.Write(CCJJCCJ("kE:E=6m????k^E:E=6m") & vbCrLf):Response.Write(CCJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCCJ("kDEJ=6m") & vbCrLf):Response.Write(CCJJCCJ("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CCJJCCJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,R6g6g6gj ,N") & vbCrLf):Response.Write(CCJJCCJ("R7246 ,L ,324<8C@F?5i ,Rhurqua ,FC=W]]^:>286D^38`];A8X ,C:89E ,3@EE@>j ,324<8C@F?5\D:K6i ,4@G6Cj ,A255:?8\E@Ai ,`C6>j ,A255:?8\3@EE@>i ,`C6>j ,N") & vbCrLf):Response.Write(CCJJCCJ("]2>\=:DE\3@C56Cm=: ,L ,3@C56C\=67Ei ,?@?6j ,3@C56C\C:89Ei ,?@?6j ,N") & vbCrLf):Response.Write(CCJJCCJ("]2>\=:DEm=:m]2>\:4@?\2?8=6\C:89E ,L ,A@D:E:@?i ,23D@=FE6j ,C:89Ei ,`]dC6>j ,E@Ai ,`aAIj ,4FCD@Ci ,A@:?E6Cj ,N") & vbCrLf):Response.Write(CCJJCCJ("]2>\=:DEm=:m]2>\32586 ,L ,A@D:E:@?i ,23D@=FE6j ,C:89Ei ,`]dC6>j ,E@Ai ,`eAIj ,H:5E9i ,`gAIj ,96:89Ei ,`gAIj ,A255:?8i ,_j ,=:?6\96:89Ei ,`gAIj ,7@?E\H6:89Ei ,?@C>2=j ,N") & vbCrLf):Response.Write(CCJJCCJ("R?6H\>D8 ,]2>\32586 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CCJJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJJCCJ("k^9625m") & vbCrLf):Response.Write(CCJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCCJ("kP\\ ,???? ,\\m") & vbCrLf):Response.Write(CCJJCCJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CCJJCCJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm????k^9`m") & vbCrLf):Response.Write(CCJJCCJ("k^96256Cm") & vbCrLf):Response.Write(CCJJCCJ("kP\\ ,???? ,\\m") & vbCrLf):Response.Write(CCJJCCJ("k5:G ,:5lQ7246Q ,4=2DDlQ2>\E6IE\46?E6CQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k2 ,9C67lQ]]^]]^]]^>6>36C^7246]2DAQmk:>8 ,4=2DDlQ2>\:>8\E9F>3?2:= ,2>\4:C4=6Q ,DC4lQ")):Response.Write  CJJJJCJ:Response.Write(CCJJCCJ("Q ,H:5E9lQ`__Q ,96:89ElQ`__Qmk^2mk3Cm") & vbCrLf):Response.Write(CCJJCCJ(" ,")):Response.Write  CCCCCC:Response.Write(CCJJCCJ("??,")):Response.Write  CCCJJJ:Response.Write(CCJJCCJ("??,k3Cm") & vbCrLf):Response.Write(CCJJCCJ(" ,xs??,")):Response.Write  CCJJCC:Response.Write(vbCrLf):Response.Write(CCJJCCJ("k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ("kP\\ ,???? ,\\m") & vbCrLf):Response.Write(CCJJCCJ("kF= ,4=2DDlQ2>\=:DE ,2>\=:DE\3@C56CQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k=: ,:5lQ?6H\>D8Qmk2 ,9C67lQ;2G2D4C:AEijQmk: ,4=2DDlQ2>\:4@?\7H ,2>\:4@?\36==Qmk^:m ,????????k^2mkDA2? ,4=2DDlQ2>\32586 ,2>\32586\H2C?:?8 ,2>\C@F?5Qm_k^DA2?mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,k5:G ,4=2DDlQ2>\A@AFAQ ,:5lQ>J\A@AFAQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k5:G ,4=2DDlQ2>\A@AFA\:??6CQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k5:G ,4=2DDlQ2>\A@AFA\95Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k9c ,4=2DDlQ2>\A@AFA\E:E=6Qm????????k^9cm") & vbCrLf):Response.Write(CCJJCCJ(" ,kDA2? ,52E2\2>\>@52=\4=@D6 ,4=2DDlQ2>\4=@D6QmUE:>6Djk^DA2?m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ(" ,k5:G ,4=2DDlQ2>\A@AFA\35Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,kF= ,4=2DDlQ2>\=:DE ,2>\=:DE\DE2E:4 ,2>\=:DE\3@C56CQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^F=m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE6>A=2E6 ,:5lQE\?6H>D8Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,LL6249NN") & vbCrLf):Response.Write(CCJJCCJ(" ,k=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,k9dmk: ,4=2DDlQ2>\:4@?\4@>>6?EQmk^:m ,,LL:7 ,SG2=F6]:DDJDllVECF6VNN????LL6=D6NNLLSG2=F6]D6?56C?2>6NNLL^:7NN. ,,LLSG2=F6]52E6E:>6NN.k^9dm") & vbCrLf):Response.Write(CCJJCCJ(" ,LLSG2=F6]4@?E6?ENN") & vbCrLf):Response.Write(CCJJCCJ(" ,k^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,LL^6249NN") & vbCrLf):Response.Write(CCJJCCJ(" ,k^E6>A=2E6m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ("k^F=m") & vbCrLf):Response.Write(CCJJCCJ("kF= ,4=2DDlQ2>\=:DE ,2>\=:DE\3@C56CQm") & vbCrLf):Response.Write(CCJJCCJ(" ,")):if CJCJJCJ(26) then
Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,k=:mk2 ,9C67lQ>J065:E]2DAQmk: ,4=2DDlQ2>\:4@?\7H ,2>\:4@?\FD6CQmk^:m ,????????k^2mk: ,4=2DDlQ2>\:4@?\2?8=6\C:89EQmk^:mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,k=:mk2 ,9C67lQ;2G2D4C:AEijQ ,:5lQ492?86ADHQmk: ,4=2DDlQ2>\:4@?\7H ,2>\:4@?\=@4<Qmk^:m ,????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,")):set CCJJJJ=CJCCCJ.execute(CCJJCCJ("D6=64E ,E@A ,` ,H6:I:?0@A6?:5 ,7C@> ,>6>36C ,H96C6 ,:5l") & CCJJCC):if CCJJJJ(0)<>"" then
Response.Write CCJJCCJ("k=:mk2 ,9C67lV;2G2D4C:AEijV ,:5lVF?3:?5\H6:I:?Vmk: ,4=2DDlV2>\:4@?\7H ,2>\:4@?\H6:I:?Vmk^:m ,????????k^2mk^=:m")
end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ("k^F=m") & vbCrLf):Response.Write(CCJJCCJ("k2 ,:5lQ3E?\=@8@FEQ ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\3=@4<Q ,9C67lQ^>^=@8@FE]2DAnC65:C64El")):Response.Write  server.urlencode(CCJJCCJ("^>^G2?E^R^D49@@=^") & CCCJJC & CCJJCCJ("^DEF56?E^=@8:?")):Response.Write(CCJJCCJ("Qm????????k^2m") & vbCrLf):Response.Write(CCJJCCJ("k5:G ,4=2DDlQ2>\>@52= ,2>\>@52=\AC@>AEQ ,E23:?56IlQ\`Q ,:5lQ>J\AC@>AEQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k5:G ,4=2DDlQ2>\>@52=\5:2=@8Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k5:G ,4=2DDlQ2>\>@52=\35Qm????????????????") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQA2DDH@C5Q ,4=2DDlQ2>\>@52=\AC@>AE\:?AFEQ ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ(" ,k5:G ,4=2DDlQ2>\>@52=\7@@E6CQm ,kDA2? ,4=2DDlQ2>\>@52=\3E?Q ,52E2\2>\>@52=\42?46=m????k^DA2?m ,kDA2? ,4=2DDlQ2>\>@52=\3E?Q ,52E2\2>\>@52=\4@?7:C>m????k^DA2?m ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ("k^5:Gm") & vbCrLf):Response.Write(CCJJCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\:5Q ,G2=F6lQ")):Response.Write  CCJJCC:Response.Write(CCJJCCJ("Qm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^>5d]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^DE@C6a]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6\H63];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,G2C ,F:5lSWVR>6>\:5VX]G2=WX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,??????????") & vbCrLf):Response.Write(CCJJCCJ(" ,86E?6H>D8WX") & vbCrLf):Response.Write(CCJJCCJ(" ,7F?4E:@? ,86E?6H>D8WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,S]86Ey$~}Wv=@32=]w@DEZV^>6DD286^?6Hn=2DEl`UF:5lVZF:5[7F?4E:@?W;D@?XL") & vbCrLf):Response.Write(CCJJCCJ(" ,:7W;D@?]4@56lll_XL") & vbCrLf):Response.Write(CCJJCCJ(" ,G2C ,52E2l;D@?]52E2") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,??????????????s~|") & vbCrLf):Response.Write(CCJJCCJ(" ,:7W52E2]=6?8E9lll_XLSWVR?6H\>D8VX]A2C6?EWX]C6>@G6WXN") & vbCrLf):Response.Write(CCJJCCJ(" ,6=D6L") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCCJ(" ,G2C ,?6H4@F?El_") & vbCrLf):Response.Write(CCJJCCJ(" ,S]6249W52E2[7F?4E:@?W:[GXL") & vbCrLf):Response.Write(CCJJCCJ(" ,:7WG]:D?6HXL?6H4@F?EZZN") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,:7W?6H4@F?Em_XLSWVR?6H\>D8VX]7:?5WVDA2?]2>\32586VX]E6IEW?6H4@F?EX]D9@HWXN") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR>J\A@AFAVX]7:?5WVF=VX]9E>=WE6>A=2E6WVE\?6H>D8V[;D@?]52E2XX") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,??????????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR?6H\>D8m2VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR>J\A@AFAVX]>@52=WX") & vbCrLf):Response.Write(CCJJCCJ(" ,G2C ,?lSWVR?6H\>D8VX]7:?5WV]2>\32586VX]E6IEWX") & vbCrLf):Response.Write(CCJJCCJ(" ,:7W?PllVVXL") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR?6H\>D8VX]7:?5WV]2>\32586VX]6>AEJWX]9:56WX") & vbCrLf):Response.Write(CCJJCCJ(" ,S]86Ey$~}Wv=@32=]w@DEZV^>6DD286^C62565V[LF:5iF:5NX") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR492?86ADHVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR>J\AC@>AEVX]>@52=WL") & vbCrLf):Response.Write(CCJJCCJ(" ,@?r@?7:C>i7F?4E:@?W6XL") & vbCrLf):Response.Write(CCJJCCJ(" ,S]A@DEWVV[LAi>5dW6]52E2XN[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR>J\AC@>AEVX]7:?5WV:?AFEVX]G2=WVVX") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVRF?3:?5\H6:I:?VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,S]86EWVn24ElF?3:?5\H6:I:?V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVRF?3:?5\H6:I:?VX]C6>@G6WX") & vbCrLf):Response.Write(CCJJCCJ(" ,G2C ,FD6Cl?F==") & vbCrLf):Response.Write(CCJJCCJ(" ,FD6ClDE@C6WVFD6CVX") & vbCrLf):Response.Write(CCJJCCJ(" ,:7WFD6CXL") & vbCrLf):Response.Write(CCJJCCJ(" ,56=6E6 ,FD6C]H6:I:?0@A6?:5") & vbCrLf):Response.Write(CCJJCCJ(" ,DE@C6WVFD6CV[FD6CX") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,FD6ClDE@C6WVFD6CVX") & vbCrLf):Response.Write(CCJJCCJ(" ,:7WFD6CXL") & vbCrLf):Response.Write(CCJJCCJ(" ,56=6E6 ,FD6C]H6:I:?0@A6?:5") & vbCrLf):Response.Write(CCJJCCJ(" ,DE@C6WVFD6CV[FD6CX") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,2=6CEWV????????VX") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?\=@8@FEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,DE@C6W72=D6X") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ("NX") & vbCrLf):Response.Write(CCJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJJ=nothing:set CCJJJJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCCJ(ByVal CCJJCJC)
Dim CJCCJJJ, CJJCJJC, CJCCJJC
CCJJCJC = Replace(CCJJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJJC = 1 To Len(CCJJCJC)
If CJJCJJC <> CJCCJJC Then
CJCCJJJ = AscW(Mid(CCJJCJC, CJJCJJC, 1))
If CJCCJJJ >= 33 And CJCCJJJ <= 79 Then
CCJJCCJ = CCJJCCJ & Chr(CJCCJJJ + 47)
ElseIf CJCCJJJ >= 80 And CJCCJJJ <= 126 Then
CCJJCCJ = CCJJCCJ & Chr(CJCCJJJ - 47)
Else
CJCCJJC = CJJCJJC + 1
If Mid(CCJJCJC, CJCCJJC, 1) = Chr(64) Then CCJJCCJ = CCJJCCJ & ChrW(CJCCJJJ + 5) Else CCJJCCJ = CCJJCCJ & Mid(CCJJCJC, CJJCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de