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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJC, CCCJCJ,CCCJCC, CCCCJJ, CCCCJC:Set CCCJJC = server.CreateObject(CCJCCJJ("ps~sq]r@??64E:@?")):CCCJJC.open Application(CCJCCJJ("r@??64E:@?$EC:?8")):Set CCCJCJ=CCCJJC::Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ:CJCJJJJ=Trim(Request.Cookies(CCJCCJJ("!$*|t|qt#"))):if CJCJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCCJ>0 then
CCCCJC=CCJCCJJ("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") & CCCCCC & CCJCCJJ("V ,2?5 ,:5l") & CCCCCJ
set CCCJCC=CCCJJC.execute(CCCCJC):If CCCJCC.EOF Then
Call ClearMemberCookie
Else
CJJJJJJ=CCCJCC(2) & "":CJJJJJC=CCCJCC(3):CJJJJCJ=CCCJCC(5):CJJJJCC=CCCJCC(6):CJJJCJJ=CCCJCC(9):CJJJCJC=CCCJCC(15):CJJJCCC=CCCJCC(0):CJJCCCJ=CCCJCC(1):CJJCCJC=CCCJCC(11) & "":CJJCJJJ=CCCJCC(10) & "":CJJJCCJ=CCCJCC(12):CJJCJJC=CCCJCC(14):CJJCJCJ=CCCJCC(13):CJJCJCC=CCCJCC(7) & "":CJJCCJJ=CCCJCC(4):CJJCCCC=CCCJCC(8):if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CJJJCJJ) or CJJJCJJ=0 then CJJJCJJ=CJJJJJC
if isnull(CJJCCJJ) then CJJCCJJ=0
if isnull(CJJJJCJ) then CJJJJCJ=0
if instr(CCJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCCC)>0 then Call RedirectMessage(CCJCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCCJ,CCCCCC)
End IF
end if:::Sub CheckLogined():if CCCCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJJC:CJCJJJC=trim(request.QueryString(CCJCCJJ("D49@@="))):if isnumeric(CJCJJJC) then
response.Redirect CCJCCJJ("^>^G2?E^R^D49@@=^") & CJCJJJC & CCJCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCJCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCJJ("!$*|t|qt#"))="":CCCCCJ=0:CJJJJCC=0:CCCCCC=Empty:CJJJJCJ=0:CJJJCJC=0:CJJJCJJ=0:CJJJJJC=0:CJJJCCC=False:CJJCCCJ=False:CJJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ:CJCJJCJ=split(CJCJJJJ,CCJCCJJ("]")):if ubound(CJCJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCJ(0)) or len(CJCJJCJ(1))<>32 or len(CJCJJCJ(2))<>32 then
Call ClearMemberCookie
else
CJCJJCC=CJCJJCJ(1):for CJCJCJJ=1 to len(CJCJJCC):CJCJCJC=mid(CJCJJCC,CJCJCJJ,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC
if len(CJCJCCJ)=7 then exit for
next:CJCJJCC=CJCJJCJ(2):if CJCJCCJ<>mid(CJCJJCC,6,7) then
Call ClearMemberCookie
else
CJCJCJC=mid(CJCJJCC,18,10)/2:if CJCJCJC<DateDiff(CCJCCJJ("D"), CCJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCCJ=Clng(CJCJJCJ(0)):CCCCCC=CJCJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCCC,CCJCCJC):dim CJCJCJJ,CJCJCJC,CJCJCCJ:for CJCJCJJ=1 to len(CCJCCJC):CJCJCJC=mid(CCJCCJC,CJCJCJJ,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC
if len(CJCJCCJ)=7 then exit for
next:CJCJCCJ=CJCCCCC & CCJCCJJ("]") & CCJCCJC & CCJCCJJ("]") & Fix(10000*(Rnd+1)) & CJCJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCCJJ("D"), CCJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCJJ("!$*|t|qt#"))=CJCJCCJ:End Sub::Function CCJJJCC(CCJCCCJ):Dim str,CJCCJJJ:str = Trim(CCJCCCJ):If IsNull(str) Or str = "" Then
CCJJJCC = ""
else
str=Replace(str, CCJCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCCJJ("k:7C2>6"), CCJCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCCJJ("kD4C:AE"), CCJCCJJ("U=EjD4C:AE"),1,-1,1):str=Replace(str,CCJCCJJ(";2G2D4C:AEi"), CCJCCJJ(",IDD."),1,-1,1):str=Replace(str,CCJCCJJ("2=6CEW"), CCJCCJJ(",IDD."),1,-1,1):str=Replace(str,CCJCCJJ("4@?7:C>W"), CCJCCJJ(",IDD."),1,-1,1):str=Replace(str,CCJCCJJ("AC@>AEW"), CCJCCJJ(",IDD."),1,-1,1):str=Replace(str,CCJCCJJ("6G2=W"), CCJCCJJ(",IDD."),1,-1,1):str=Replace(str,CCJCCJJ("5@4F>6?E]"), CCJCCJJ(",IDD."),1,-1,1):On Error Goto 0:set CJCCJJJ=new RegExp:CJCCJJJ.Pattern=CCJCCJJ("@?W,2\K.ZXl"):CJCCJJJ.IgnoreCase = True:CJCCJJJ.Global=True:str=CJCCJJJ.Replace(str,CCJCCJJ("@?S`U6BF2=Dj")):set CJCCJJJ=nothing:CCJJJCC=str
End If:End Function:Function IIf(CCJCCCC, CCCJJJJ, CCCJJJC):if isnull(CCJCCCC) or isempty(CCJCCCC) then
IIf = CCCJJJC
elseif CCJCCCC Then
IIf = CCCJJJJ
Else
IIf = CCCJJJC
end if:End Function:Const CCJJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJJCJ,CCCJJCC):dim CJCJJCJ:CJCJJCJ=CCCJJCJ & "=" & CCCJJCC & CCJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCJJ("$6E\r@@<:6"),CJCJJCJ):End Sub:::::::Function CCJJCJC(CCJJJJC):if isnull(CCJJJJC) or trim(CCJJJJC)="" or not isnumeric(CCJJJJC) then
CCJJCJC=false
else
Dim CJCCJJJ:Set CJCCJJJ = New RegExp:CJCCJJJ.Pattern = CCJCCJJ("/-5ZS"):CJCCJJJ.IgnoreCase = True:CCJJCJC = CJCCJJJ.test(CCJJJJC):set CJCCJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:CJCCJCC.close : set CJCCJCC=nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CCCJCC.Close : Set CCCJCC=Nothing:CCJCJCJ.Close : Set CCJCJCJ = Nothing:CCCJJC.Close : Set CCCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCJJ("!$*0|6DD286"),server.URLEncode(CCCJCJJ)):Response.Redirect CCJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::dim CJCJJJC:CCCCJC=Request.ServerVariables(CCJCCJJ("!p%w0x}u~")):if instr(CCCCJC,CCJCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJCCC and not CJJCCCJ then Call RedirectMessage(CCJCCJJ("????????,????????????????????????,"))
CJCJJJC=CJJJCJJ
elseif instr(CCCCJC,CCJCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCJC,CCJCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJJC=CJJJCJJ
elseif instr(CCCCJC,CCJCCJJ("^D49@@="))>0 then
CJCJJJC=Request.QueryString(CCJCCJJ("D49@@=")):if not CCJJCJC(CJCJJJC) then CJCJJJC=Request.QueryString(CCJCCJJ("F"))
if not CCJJCJC(CJCJJJC) then CJCJJJC=Request.QueryString(CCJCCJJ("D4"))
if not CCJJCJC(CJCJJJC) then Call RedirectMessage(CCJCCJJ("????????W$49@@=X??@??????????,"))
CJCJJJC=csng(CJCJJJC)
end if:if CJCJJJC=0 then Call RedirectMessage(CCJCCJJ("????????W$49@@=X????W_X??,"))
Dim CJCCJJC:Call SetConfig:Sub SetConfig():dim CJCCJCJ,CJCCJCC:CCCCJC=CCJCCJJ("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") & CJCJJJC:set CJCCJCC=CCCJJC.execute(CCCCJC):if CJCCJCC.eof then Call RedirectMessage(CCJCCJJ("??W") & CCCCCJ & CCJCCJJ("X??????????W") & CJCJJJC & CCJCCJJ("X????????,"))
ReDim CJCCJCJ(61):CJCCJCJ(0)=CJCCJCC(CCJCCJJ(";:2@H6:")) & "":CJCCJCJ(1)=CJCCJCC(CCJCCJJ("EJA6")):CJCCJCJ(2)=CJCCJCC(CCJCCJJ("D>D")):CJCCJCJ(3)=CJCCJCC(CCJCCJJ("4FDE@>8C@FA")) & "":CJCCJCJ(4)=CJCCJCC(CCJCCJJ("D:5632C0@E96C")) & "":CJCCJCJ(5)=IIf(isnull(CJCCJCC(CCJCCJJ("E6DEC6DF=EG:6H"))),0,CJCCJCC(CCJCCJJ("E6DEC6DF=EG:6H"))):CJCCJCJ(6)=CJCCJCC(CCJCCJJ("K:IF?E:>6")):CJCCJCJ(7)=CJCCJCC(CCJCCJJ("766")):CJCCJCJ(8)=CJCCJCC(CCJCCJJ("C6E6DE52J")):CJCCJCJ(9)=CJCCJCC(CCJCCJJ("6IA:C652E6")):CJCCJCJ(10)=CJCCJCC(CCJCCJJ("E:E=6")):CJCCJCJ(11)=CJCCJCC(CCJCCJJ(":?EC@")) & "":CJCCJCJ(12)=CJCCJCC(CCJCCJJ("A:4EFC6")) & "":CJCCJCJ(13)=CJCCJCC(CCJCCJJ("72>:=J")):CJCCJCJ(14)=CJCCJCC(CCJCCJJ("4@AJC:89E")) & "":CJCCJCJ(15)=IIf(isnull(CJCCJCC(CCJCCJJ("D6>6DE6C0DE2CE052E6"))),CCJCCJJ("`h__\`\`"),CJCCJCC(CCJCCJJ("D6>6DE6C0DE2CE052E6"))):CJCCJCJ(16)=IIf(isnull(CJCCJCC(CCJCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJCC(CCJCCJJ("K:IF?0E:>6D09:89=:89E"))):CJCCJCJ(17)=CJCCJCC(CCJCCJJ("4@?E24E")) & "":CJCCJCJ(18)=CJCCJCC(CCJCCJJ("D2?5E23=6")):CJCCJCJ(19)=CJCCJCC(CCJCCJJ("4C:D:D")):CJCCJCJ(20)=CJCCJCC(CCJCCJJ("JJ52E6")):CJCCJCJ(21)=CJCCJCC(CCJCCJJ("BB")):CJCCJCJ(22)=CJCCJCC(CCJCCJJ("JFJF60D>D0EA=")) & "":CJCCJCJ(23)=CJCCJCC(CCJCCJJ("JFJF60E6DE0=3")) & "":CJCCJCJ(25)=CJCCJCC(CCJCCJJ("6IA6CE")):CJCCJCJ(26)=CJCCJCC(CCJCCJJ(">@5:?7@")):CJCCJCJ(27)=CJCCJCC(CCJCCJJ("9@>6A286E@AA:4EFC6")) & "":CJCCJCJ(28)=CJCCJCC(CCJCCJJ("4C:D:D=3")):CJCCJCJ(29)=IIf(CJCCJCC(CCJCCJJ("4C:D:D@=5")),False,True):CJCCJCJ(30)=CJCCJCC(CCJCCJJ("8C@FA8F:52?46")):CJCCJCJ(31)=CJCCJCC(CCJCCJJ("3:@7665324<")):CJCCJCJ(32)=CJCCJCC(CCJCCJJ("<6JDEC")):CJCCJCJ(33)=CJCCJCC(CCJCCJJ("=@8@")) & "":CJCCJCJ(34)=CJCCJCC(CCJCCJJ("K:46")):CJCCJCJ(35)=IIf(CJCCJCC(CCJCCJJ(":D?6H")),True,False):CJCCJCJ(36)=121:CJCCJCJ(37)=111:CJCCJCJ(38)=160:CJCCJCJ(39)=CJCCJCC(CCJCCJJ("8F6DE3@@<")):CJCCJCJ(40)=CJCCJCC(CCJCCJJ("75D")):CJCCJCJ(42)=CJCCJCC(CCJCCJJ("9@>6=@8:?")):CJCCJCJ(43)=CJCCJCC(CCJCCJJ("K:IF?0?6657665324<")):CJCCJCJ(44)=CJCCJCC(CCJCCJJ("K:IF?0E:>6D0=:>:E")):CJCCJCJ(45)=CJCCJCC(CCJCCJJ("4@>A=6E60:?7@")):CJCCJCJ(46)=CJCCJCC(CCJCCJJ("E6DE:?EC@")) & "":CJCCJCJ(47)=IIf(isnull(CJCCJCC(CCJCCJJ("JFJF60367@C60E:>6"))),0,CJCCJCC(CCJCCJJ("JFJF60367@C60E:>6"))):CJCCJCJ(49)=CJCCJCC(CCJCCJJ("D>D0C646:G6C")):CJCCJCJ(50)=CJCCJCC(CCJCCJJ("D>D0D:8?")) & "":CJCCJCJ(52)=CJCCJCC(CCJCCJJ("JFJF602CC2?86")):CJCCJCJ(53)=IIf(isnull(CJCCJCC(CCJCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJCC(CCJCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCJCJ(54)=CJCCJCC(CCJCCJJ("9:560=30@FE@7286")):CJCCJCJ(55)=CJCCJCC(CCJCCJJ("JFJF60E6DE052JD")):CJCCJCJ(56)=CJCCJCC(CCJCCJJ("JFJF60H66<0=:>:E")):CJCCJCJ(57)=CJCCJCC(CCJCCJJ("JFJF604964<65")):CJCCJCJ(58)=CJCCJCC(CCJCCJJ("K:IF?0?6657665324<0?6IE")):CJCCJCJ(59)=CJCCJCC(CCJCCJJ("4964<?6HDEF56?E")):CJCCJCJ(60)=CJCCJCC(CCJCCJJ("K:IF?04=@D6052E6")):CJCCJCC.close : set CJCCJCC=nothing:if isNull(CJCCJCJ(8)) or CJCCJCJ(8)="" then CJCCJCJ(8)=0
if isdate(CJCCJCJ(9)) then
CJCCJCJ(9)=cdate(CJCCJCJ(9)):if CJCCJCJ(9)<Date then Call RedirectMessage(CCJCCJJ("????????,????????????????W") & CJCCJCJ(9) & CCJCCJJ("X??????,"))
end if:if not CCJJCJC(CJCCJCJ(20)) then CJCCJCJ(20)=7
select case CJCCJCJ(1):case 1,2,16:CJCCJCJ(36)=159:case 4,5,6,10,11:CJCCJCJ(36)=190:CJCCJCJ(37)=178:CJCCJCJ(38)=191:case 7,13:CJCCJCJ(36)=164:CJCCJCJ(37)=178:CJCCJCJ(38)=179:end select:CJCCJJC=CJCCJCJ:End Sub:Function CCJCJJC(CCCJCJC):dim CJCCJCJ(7,1),CJCJCJJ,CJCCCJJ,CJCCCJC:CJCCCJJ=Array(CCJCCJJ("$49@@="),CCJCCJJ("$EF56?E"),CCJCCJJ("s6AE"),CCJCCJJ("vC256"),CCJCCJJ("r=2DD>2E6"),CCJCCJJ("}F>36C"),CCJCCJJ("%62496C"),CCJCCJJ("!2C6?E")):select case CJCCJJC(1):case 1,2 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????")):case 3,16 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????")):case 4 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("??????@"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????")):case 5 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????")):case 6 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("??????@"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case 7 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case 8 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("??????@"),CCJCCJJ("????"),CCJCCJJ("????????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case 9 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case 10 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case 11 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case 12 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case 13 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????")):case 14 : CJCCCJC=Array(CCJCCJJ("??????"),CCJCCJJ("??@??"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case 15 : CJCCCJC=Array(CCJCCJJ("????"),CCJCCJJ("????????"),CCJCCJJ("????"),CCJCCJJ("????????"),CCJCCJJ("????"),CCJCCJJ("????"),CCJCCJJ("??????"),CCJCCJJ("????")):case else : CJCCCJC=CJCCCJJ
end select:for CJCJCJJ=0 to Ubound(CJCCJCJ):CJCCJCJ(CJCJCJJ,0)=CJCCCJJ(CJCJCJJ):CJCCJCJ(CJCJCJJ,1)=CJCCCJC(CJCJCJJ):next:for CJCJCJJ=0 to Ubound(CJCCJCJ):if CJCCJCJ(CJCJCJJ,0)=CCCJCJC then
CCJCJJC=CJCCJCJ(CJCJCJJ,1):exit for
end if:next:End Function::dim CJCCCCJ,CJCCCCC:CJCCCCJ=request.querystring(CCJCCJJ("24E")):CJCCCCC=request.querystring(CCJCCJJ(":5")):If Request.ServerVariables(CCJCCJJ("#t""&t$%0|t%w~s"))=CCJCCJJ("!~$%") then
CCCCJC=CCJCCJJ(":?D6CE ,:?E@ ,KI083@@<W2FE9@C[E:E=6[4@?E6?EX ,G2=F6DW") & CCCCCJ  & CCJCCJJ("[V") & CCJJJCC(Request.Form(CCJCCJJ("E:E=6"))) & CCJCCJJ("V") & CCJCCJJ("[V") & CCJJJCC(Request.Form(CCJCCJJ("4@?E6?E"))) & CCJCCJJ("V") & CCJCCJJ("X")
CCCJJC.execute CCCCJC:Call ConnClose:response.Redirect CCJCCJJ("n")
End If:Response.Write(vbCrLf):Response.Write(CCJCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCCJJ("k9625m") & vbCrLf):Response.Write(CCJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCCJJ("kE:E=6m")):Response.Write  CJCCJJC(10):Response.Write(CCJCCJJ("k^E:E=6m") & vbCrLf):Response.Write(CCJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CCJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCJCCJJ("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CCJCCJJ("]2>\3E?\DF446DDL324<8C@F?5\4@=@CiRd2ha`gj3@C56C\4@=@CiRd2ha`gjN") & vbCrLf):Response.Write(CCJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJCCJJ("k^9625m") & vbCrLf):Response.Write(CCJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CCJCCJJ("kP\\????\\m") & vbCrLf):Response.Write(CCJCCJJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CCJCCJJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm????k^9`m") & vbCrLf):Response.Write(CCJCCJJ(" ,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(CCJCCJJ("k^96256Cm") & vbCrLf):Response.Write(CCJCCJJ("kP\\??????\\m") & vbCrLf):Response.Write(CCJCCJJ("k5:G ,4=2DDlQ2>\3E?\8C@FA ,2>\3E?\8C@FA\;FDE:7JQmk2 ,4=2DDlQ2>\3E? ,2>\3E?\DF446DDQ ,9C67lQ=:FJ2?]2DAQm????????k^2mk2 ,4=2DDlQ2>\3E? ,2>\3E?\DF446DDQ ,9C67lQn24El255Qm????????k^2mk^5:Gm") & vbCrLf)::If CJCCCCJ=CCJCCJJ("255") Then
Response.Write(vbCrLf):Response.Write(CCJCCJJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k7@C> ,>6E9@5lQA@DEQ ,4=2DDlQ2>\7@C>Qm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\7@C>\8C@FAQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k=236=m????k^=236=m") & vbCrLf):Response.Write(CCJCCJJ(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQE:E=6Q ,4=2DDlQ2>\7@C>\7:6=5Q ,C6BF:C65m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\7@C>\8C@FAQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k=236=m??@??k^=236=m") & vbCrLf):Response.Write(CCJCCJJ(" ,kE6IE2C62 ,?2>6lQ4@?E6?EQ ,4=2DDlQ2>\7@C>\7:6=5Q ,C6BF:C65mk^E6IE2C62m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k3FEE@? ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJQm?? ,??k^3FEE@?m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^7@C>m") & vbCrLf):Response.Write(CCJCCJJ("k^5:Gm") & vbCrLf)
ElseIf CJCCCCJ=CCJCCJJ("G:6H") and CCJJCJC(CJCCCCC) Then
set CCCJCC=CCCJJC.execute(CCJCCJJ("D6=64E ,E@A ,` ,E:E=6[4@?E6?E[52E6E:>6 ,7C@> ,KI083@@< ,H96C6 ,C6l_ ,2?5 ,:5l") & CJCCCCC & CCJCCJJ(" ,2?5 ,2FE9@Cl") & CCCCCJ):Response.Write(vbCrLf):Response.Write(CCJCCJJ("k5:G ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k2CE:4=6 ,4=2DDlQ2>\2CE:4=6Qm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\95Qm") & vbCrLf):Response.Write(CCJCCJJ(" ,k9` ,4=2DDlQ2>\2CE:4=6\E:E=6Qm")):Response.Write  CCCJCC(0):Response.Write(CCJCCJJ("k^9`m") & vbCrLf):Response.Write(CCJCCJJ(" ,kA ,4=2DDlQ2>\2CE:4=6\>6E2Qm,????@??,")):Response.Write  CJJCJCJ:Response.Write(CCJCCJJ(" ,??????,")):Response.Write  CCCJCC(2):Response.Write(CCJCCJJ(".k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\2CE:4=6\35Qm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  replace(CCCJCC(1),vbcrlf,CCJCCJJ("k^AmkAm")):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k^2CE:4=6m") & vbCrLf):Response.Write(CCJCCJJ(" ,kF= ,4=2DDlQ2>\4@>>6?ED\=:DEQm") & vbCrLf):Response.Write(CCJCCJJ(" ,")):set CCCJCC=CCCJJC.execute(CCJCCJJ("D6=64E ,2FE9@C[C62=?2>6[4@?E6?E[52E6E:>6[7246 ,7C@> ,G0KI083@@< ,H96C6 ,C6l") & CJCCCCC & CCJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):while not CCCJCC.eof:Response.Write(vbCrLf):Response.Write(CCJCCJJ(" ,k=: ,4=2DDlQ2>\4@>>6?EQmk2 ,9C67lQ>^G2?E^R^D49@@=^DEF56?E^JFJF6n:5l")):Response.Write  CCCJCC(0):Response.Write(CCJCCJJ("Qmk:>8 ,4=2DDlQ2>\4@>>6?E\2G2E2CQ ,DC4lQ")):Response.Write  CCCJCC(4):Response.Write(CCJCCJJ("Q ,2=ElQ")):Response.Write  CCCJCC(1):Response.Write(CCJCCJJ("Qmk^2m") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\4@>>6?E\>2:?Qm") & vbCrLf):Response.Write(CCJCCJJ(" ,k96256C ,4=2DDlQ2>\4@>>6?E\95Qm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\4@>>6?E\>6E2Qmk2 ,9C67lQ>^G2?E^R^D49@@=^DEF56?E^JFJF6n:5l")):Response.Write  CCCJCC(0):Response.Write(CCJCCJJ("Q ,4=2DDlQ2>\4@>>6?E\2FE9@CQm")):Response.Write  CCCJCC(1):Response.Write(CCJCCJJ("k^2m ,??????") & vbCrLf):Response.Write(CCJCCJJ(" ,kE:>6m")):Response.Write  CCCJCC(3):Response.Write(CCJCCJJ("k^E:>6m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k^96256Cm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\4@>>6?E\35Qm") & vbCrLf):Response.Write(CCJCCJJ(" ,kAm")):Response.Write  replace(CCCJCC(2),vbcrlf,CCJCCJJ("k^AmkAm")):Response.Write(CCJCCJJ("k^Am") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CCJCCJJ(" ,")):CCCJCC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCJCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCCJJ("k^5:Gm") & vbCrLf)
Else
Response.Write(vbCrLf):Response.Write(CCJCCJJ("k5:G ,52E2\2>\H:586ElQ=:DE0?6HDQ ,4=2DDlQ2>\=:DE\?6HD ,2>\=:DE\?6HD\5672F=EQm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\=:DE\?6HD\35Qm") & vbCrLf):Response.Write(CCJCCJJ(" ,kF= ,4=2DDlQ2>\=:DEQm") & vbCrLf):Response.Write(CCJCCJJ(" ,")):set CCCJCC=CCCJJC.execute(CCJCCJJ("D6=64E ,:5[E:E=6[52E6E:>6[FA52E6E:>6[WD6=64E ,4@F?EW:5X ,7C@> ,KI083@@< ,H96C6 ,C6l2]:5X ,2D ,C6A=J ,7C@> ,KI083@@< ,2 ,H96C6 ,2FE9@Cl") & CCCCCJ & CCJCCJJ(" ,2?5 ,C6l_ ,@C56C ,3J ,:5 ,56D4")):while not CCCJCC.eof:Response.Write(vbCrLf):Response.Write(CCJCCJJ(" ,k=: ,4=2DDlQ2>\8 ,2>\=:DE\:E6>\56D465Qmk2 ,9C67lQn24ElG:6HU:5l")):Response.Write  CCCJCC(0):Response.Write(CCJCCJJ("Q ,4=2DDlQ2>\=:DE\:E6>\95Qmk: ,4=2DDlQ2>\:4@?\496GC@?\4:C4=6\C:89EQmk^:m ,")):Response.Write  CCCJCC(1):Response.Write(CCJCCJJ("k^2m") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\=:DE\:E6>\E6IEQm??????????,")):Response.Write  CCCJCC(2):Response.Write(CCJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\=:DE\:E6>\E6IEQm????????,")):Response.Write  CCCJCC(4):Response.Write(CCJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k5:G ,4=2DDlQ2>\=:DE\:E6>\E6IEQm??????????????,")):Response.Write  CCCJCC(3):Response.Write(CCJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ(" ,k^=:m") & vbCrLf):Response.Write(CCJCCJJ(" ,")):CCCJCC.movenext:wend:Response.Write(vbCrLf):Response.Write(CCJCCJJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJJ("k^5:Gm") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CCJCCJJ("kP\\????????\\m") & vbCrLf):Response.Write(CCJCCJJ("k5:G ,52E2\2>\H:586ElQ8@E@AQ ,4=2DDlQ2>\8@E@A ,2>\8@E@A\7:I65Qmk2 ,9C67lQRE@AQ ,E:E=6lQ????????QmkDA2? ,4=2DDlQ2>\8@E@A\E:E=6Qm????????k^DA2?mk: ,4=2DDlQ2>\8@E@A\:4@? ,2>\:4@?\496GC@?\FAQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJJ(" ,2FE@D:K6WSWVE6IE2C62VXX") & vbCrLf):Response.Write(CCJCCJJ("NX") & vbCrLf):Response.Write(CCJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCC.Close:Set CCCJCC=Nothing:CCCJJC.Close:Set CCCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCCJJ(ByVal CCJCJCC)
Dim CCJJJJJ, CJCJCJJ, CCJJJJC
CCJCJCC = Replace(CCJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJJ = 1 To Len(CCJCJCC)
If CJCJCJJ <> CCJJJJC Then
CCJJJJJ = AscW(Mid(CCJCJCC, CJCJCJJ, 1))
If CCJJJJJ >= 33 And CCJJJJJ <= 79 Then
CCJCCJJ = CCJCCJJ & Chr(CCJJJJJ + 47)
ElseIf CCJJJJJ >= 80 And CCJJJJJ <= 126 Then
CCJCCJJ = CCJCCJJ & Chr(CCJJJJJ - 47)
Else
CCJJJJC = CJCJCJJ + 1
If Mid(CCJCJCC, CCJJJJC, 1) = Chr(64) Then CCJCCJJ = CCJCCJJ & ChrW(CCJJJJJ + 5) Else CCJCCJJ = CCJCCJJ & Mid(CCJCJCC, CJCJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de