Edit D:\xinhaisoft\crisis_new\school\admin\lbselect.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJCJ, CCCJCC,CCCCJJ, CCCCJC, CCCCCJ:Set CCCJCJ = server.CreateObject(CCCJJCJ("ps~sq]r@??64E:@?")):CCCJCJ.open Application(CCCJJCJ("r@??64E:@?$EC:?8")):Set CCCJCC=CCCJCJ::Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC:CJCJJJC=Trim(Request.Cookies(CCCJJCJ("!$*|t|qt#"))):if CJCJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCCC>0 then
CCCCCJ=CCCJJCJ("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") & CJJJJJJ & CCCJJCJ("V ,2?5 ,:5l") & CCCCCC
set CCCCJJ=CCCJCJ.execute(CCCCCJ):If CCCCJJ.EOF Then
Call ClearMemberCookie
Else
CJJJJJC=CCCCJJ(2) & "":CJJJJCJ=CCCCJJ(3):CJJJJCC=CCCCJJ(5):CJJJCJJ=CCCCJJ(6):CJJJCJC=CCCCJJ(9):CJJJCCJ=CCCCJJ(15):CJJCJJJ=CCCCJJ(0):CJJCCCC=CCCCJJ(1):CJJCCCJ=CCCCJJ(11) & "":CJJCJJC=CCCCJJ(10) & "":CJJJCCC=CCCCJJ(12):CJJCJCJ=CCCCJJ(14):CJJCJCC=CCCCJJ(13):CJJCCJJ=CCCCJJ(7) & "":CJJCCJC=CCCCJJ(4):CJCJJJJ=CCCCJJ(8):if isnull(CJJJCCJ) then CJJJCCJ=0
if isnull(CJJJCJC) or CJJJCJC=0 then CJJJCJC=CJJJJCJ
if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJJJCC) then CJJJJCC=0
if instr(CCCJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJJ)>0 then Call RedirectMessage(CCCJJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCCC,CJJJJJJ)
End IF
end if:::Sub CheckLogined():if CCCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCJ:CJCJJCJ=trim(request.QueryString(CCCJJCJ("D49@@="))):if isnumeric(CJCJJCJ) then
response.Redirect CCCJJCJ("^>^G2?E^R^D49@@=^") & CJCJJCJ & CCCJJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CCCJJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJJCJ("!$*|t|qt#"))="":CCCCCC=0:CJJJCJJ=0:CJJJJJJ=Empty:CJJJJCC=0:CJJJCCJ=0:CJJJCJC=0:CJJJJCJ=0:CJJCJJJ=False:CJJCCCC=False:CJCJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:CJCJJCC=split(CJCJJJC,CCCJJCJ("]")):if ubound(CJCJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCC(0)) or len(CJCJJCC(1))<>32 or len(CJCJJCC(2))<>32 then
Call ClearMemberCookie
else
CJCJCJJ=CJCJJCC(1):for CJCJCJC=1 to len(CJCJCJJ):CJCJCCJ=mid(CJCJCJJ,CJCJCJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCJJ=CJCJJCC(2):if CJCJCCC<>mid(CJCJCJJ,6,7) then
Call ClearMemberCookie
else
CJCJCCJ=mid(CJCJCJJ,18,10)/2:if CJCJCCJ<DateDiff(CCCJJCJ("D"), CCCJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCCC=Clng(CJCJJCC(0)):CJJJJJJ=CJCJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJJ,CCCJJCC):dim CJCJCJC,CJCJCCJ,CJCJCCC:for CJCJCJC=1 to len(CCCJJCC):CJCJCCJ=mid(CCCJJCC,CJCJCJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCCC=CCJJCJJ & CCCJJCJ("]") & CCCJJCC & CCCJJCJ("]") & Fix(10000*(Rnd+1)) & CJCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCCJJCJ("D"), CCCJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJCJ("!$*|t|qt#"))=CJCJCCC:End Sub:::Function IIf(CCCJCJJ, CCCJCJC, CCCJCCJ):if isnull(CCCJCJJ) or isempty(CCCJCJJ) then
IIf = CCCJCCJ
elseif CCCJCJJ Then
IIf = CCCJCJC
Else
IIf = CCCJCCJ
end if:End Function:Const CCJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJCCC,CCCCJJJ):dim CJCJJCC:CJCJJCC=CCCJCCC & "=" & CCCCJJJ & CCCJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJCJ("$6E\r@@<:6"),CJCJJCC):End Sub::::::sub ShowMessage(CCCCJJC):response.Charset=CCCJJCJ("FE7\g"):Response.Write CCCJJCJ("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCCCJJC & CCCJJCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJCJJC(CCJJCCJ):if isnull(CCJJCCJ) or trim(CCJJCCJ)="" or not isnumeric(CCJJCCJ) then
CCJCJJC=false
else
Dim CJCCJJJ:Set CJCCJJJ = New RegExp:CJCCJJJ.Pattern = CCCJJCJ("/-5ZS"):CJCCJJJ.IgnoreCase = True:CCJCJJC = CJCCJJJ.test(CCJJCCJ):set CJCCJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CJCCJJC.close : set CJCCJJC=nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CCJCCCJ.Close : Set CCJCCCJ = Nothing:CCCJCJ.Close : Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJCJ("!$*0|6DD286"),server.URLEncode(CCCCJJC)):Response.Redirect CCCJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCJCCCC():Dim CJCCJJC, CJCCJCJ(), CJCJCJC, CJCJCCJ, CJCCJCC,CJCCCJJ:If Not IsArray(Application(CCCJJCJ("!$*0%6DED"))) Then
CCCCCJ=CCCJJCJ("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 CJCCJJC=server.createobject(CCCJJCJ("25@53]C64@C5D6E")):CJCCJJC.open CCCCCJ,CCCJCJ,1:CJCCJCC = CJCCJJC.RecordCount:CJCCCJJ=CJCCJJC.fields.count-1:ReDim CJCCJCJ(CJCCJCC, CJCCCJJ):If CJCCJCC > 0 Then
For CJCJCJC = 1 To CJCCJCC:For CJCJCCJ = 0 To CJCCCJJ:if CJCJCCJ=4 or CJCJCCJ=6 or CJCJCCJ=19 then
CJCCJCJ(CJCJCJC, CJCJCCJ) = CCCJJJJ(CJCCJJC(CJCJCCJ))
else
CJCCJCJ(CJCJCJC, CJCJCCJ) = CJCCJJC(CJCJCCJ):if CJCCJJC(CJCJCCJ).type<>11 and isnull(CJCCJCJ(CJCJCJC, CJCJCCJ)) then CJCCJCJ(CJCJCJC, CJCJCCJ)=""
end if:Next:CJCCJJC.MoveNext:Next
End If:CJCCJJC.Close: Set CJCCJJC = Nothing:Application(CCCJJCJ("!$*0%6DED")) = CJCCJCJ
End If:CCJCCCC = Application(CCCJJCJ("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CCCJJJJ(CCCCJCJ):if isnull(CCCCJCJ) then
CCCJJJJ=""
else
On Error Resume Next:CCCJJJJ=CCCCJCJ:if err.number=-2147352567 then
CCCJJJJ="":err.Clear
end if
end if:End Function::::::dim CJCJJCJ:CCCCCJ=Request.ServerVariables(CCCJJCJ("!p%w0x}u~")):if instr(CCCCCJ,CCCJJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJJJ and not CJJCCCC then Call RedirectMessage(CCCJJCJ("????????,????????????????????????,"))
CJCJJCJ=CJJJCJC
elseif instr(CCCCCJ,CCCJJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCCJ,CCCJJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJCJ=CJJJCJC
elseif instr(CCCCCJ,CCCJJCJ("^D49@@="))>0 then
CJCJJCJ=Request.QueryString(CCCJJCJ("D49@@=")):if not CCJCJJC(CJCJJCJ) then CJCJJCJ=Request.QueryString(CCCJJCJ("F"))
if not CCJCJJC(CJCJJCJ) then CJCJJCJ=Request.QueryString(CCCJJCJ("D4"))
if not CCJCJJC(CJCJJCJ) then Call RedirectMessage(CCCJJCJ("????????W$49@@=X??@??????????,"))
CJCJJCJ=csng(CJCJJCJ)
end if:if CJCJJCJ=0 then Call RedirectMessage(CCCJJCJ("????????W$49@@=X????W_X??,"))
Dim CJCCCJC:Call SetConfig:Sub SetConfig():dim CJCCCCJ,CJCCJJC:CCCCCJ=CCCJJCJ("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") & CJCJJCJ:set CJCCJJC=CCCJCJ.execute(CCCCCJ):if CJCCJJC.eof then Call RedirectMessage(CCCJJCJ("??W") & CCCCCC & CCCJJCJ("X??????????W") & CJCJJCJ & CCCJJCJ("X????????,"))
ReDim CJCCCCJ(61):CJCCCCJ(0)=CJCCJJC(CCCJJCJ(";:2@H6:")) & "":CJCCCCJ(1)=CJCCJJC(CCCJJCJ("EJA6")):CJCCCCJ(2)=CJCCJJC(CCCJJCJ("D>D")):CJCCCCJ(3)=CJCCJJC(CCCJJCJ("4FDE@>8C@FA")) & "":CJCCCCJ(4)=CJCCJJC(CCCJJCJ("D:5632C0@E96C")) & "":CJCCCCJ(5)=IIf(isnull(CJCCJJC(CCCJJCJ("E6DEC6DF=EG:6H"))),0,CJCCJJC(CCCJJCJ("E6DEC6DF=EG:6H"))):CJCCCCJ(6)=CJCCJJC(CCCJJCJ("K:IF?E:>6")):CJCCCCJ(7)=CJCCJJC(CCCJJCJ("766")):CJCCCCJ(8)=CJCCJJC(CCCJJCJ("C6E6DE52J")):CJCCCCJ(9)=CJCCJJC(CCCJJCJ("6IA:C652E6")):CJCCCCJ(10)=CJCCJJC(CCCJJCJ("E:E=6")):CJCCCCJ(11)=CJCCJJC(CCCJJCJ(":?EC@")) & "":CJCCCCJ(12)=CJCCJJC(CCCJJCJ("A:4EFC6")) & "":CJCCCCJ(13)=CJCCJJC(CCCJJCJ("72>:=J")):CJCCCCJ(14)=CJCCJJC(CCCJJCJ("4@AJC:89E")) & "":CJCCCCJ(15)=IIf(isnull(CJCCJJC(CCCJJCJ("D6>6DE6C0DE2CE052E6"))),CCCJJCJ("`h__\`\`"),CJCCJJC(CCCJJCJ("D6>6DE6C0DE2CE052E6"))):CJCCCCJ(16)=IIf(isnull(CJCCJJC(CCCJJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJJC(CCCJJCJ("K:IF?0E:>6D09:89=:89E"))):CJCCCCJ(17)=CJCCJJC(CCCJJCJ("4@?E24E")) & "":CJCCCCJ(18)=CJCCJJC(CCCJJCJ("D2?5E23=6")):CJCCCCJ(19)=CJCCJJC(CCCJJCJ("4C:D:D")):CJCCCCJ(20)=CJCCJJC(CCCJJCJ("JJ52E6")):CJCCCCJ(21)=CJCCJJC(CCCJJCJ("BB")):CJCCCCJ(22)=CJCCJJC(CCCJJCJ("JFJF60D>D0EA=")) & "":CJCCCCJ(23)=CJCCJJC(CCCJJCJ("JFJF60E6DE0=3")) & "":CJCCCCJ(25)=CJCCJJC(CCCJJCJ("6IA6CE")):CJCCCCJ(26)=CJCCJJC(CCCJJCJ(">@5:?7@")):CJCCCCJ(27)=CJCCJJC(CCCJJCJ("9@>6A286E@AA:4EFC6")) & "":CJCCCCJ(28)=CJCCJJC(CCCJJCJ("4C:D:D=3")):CJCCCCJ(29)=IIf(CJCCJJC(CCCJJCJ("4C:D:D@=5")),False,True):CJCCCCJ(30)=CJCCJJC(CCCJJCJ("8C@FA8F:52?46")):CJCCCCJ(31)=CJCCJJC(CCCJJCJ("3:@7665324<")):CJCCCCJ(32)=CJCCJJC(CCCJJCJ("<6JDEC")):CJCCCCJ(33)=CJCCJJC(CCCJJCJ("=@8@")) & "":CJCCCCJ(34)=CJCCJJC(CCCJJCJ("K:46")):CJCCCCJ(35)=IIf(CJCCJJC(CCCJJCJ(":D?6H")),True,False):CJCCCCJ(36)=121:CJCCCCJ(37)=111:CJCCCCJ(38)=160:CJCCCCJ(39)=CJCCJJC(CCCJJCJ("8F6DE3@@<")):CJCCCCJ(40)=CJCCJJC(CCCJJCJ("75D")):CJCCCCJ(42)=CJCCJJC(CCCJJCJ("9@>6=@8:?")):CJCCCCJ(43)=CJCCJJC(CCCJJCJ("K:IF?0?6657665324<")):CJCCCCJ(44)=CJCCJJC(CCCJJCJ("K:IF?0E:>6D0=:>:E")):CJCCCCJ(45)=CJCCJJC(CCCJJCJ("4@>A=6E60:?7@")):CJCCCCJ(46)=CJCCJJC(CCCJJCJ("E6DE:?EC@")) & "":CJCCCCJ(47)=IIf(isnull(CJCCJJC(CCCJJCJ("JFJF60367@C60E:>6"))),0,CJCCJJC(CCCJJCJ("JFJF60367@C60E:>6"))):CJCCCCJ(49)=CJCCJJC(CCCJJCJ("D>D0C646:G6C")):CJCCCCJ(50)=CJCCJJC(CCCJJCJ("D>D0D:8?")) & "":CJCCCCJ(52)=CJCCJJC(CCCJJCJ("JFJF602CC2?86")):CJCCCCJ(53)=IIf(isnull(CJCCJJC(CCCJJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJJC(CCCJJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCCCJ(54)=CJCCJJC(CCCJJCJ("9:560=30@FE@7286")):CJCCCCJ(55)=CJCCJJC(CCCJJCJ("JFJF60E6DE052JD")):CJCCCCJ(56)=CJCCJJC(CCCJJCJ("JFJF60H66<0=:>:E")):CJCCCCJ(57)=CJCCJJC(CCCJJCJ("JFJF604964<65")):CJCCCCJ(58)=CJCCJJC(CCCJJCJ("K:IF?0?6657665324<0?6IE")):CJCCCCJ(59)=CJCCJJC(CCCJJCJ("4964<?6HDEF56?E")):CJCCCCJ(60)=CJCCJJC(CCCJJCJ("K:IF?04=@D6052E6")):CJCCJJC.close : set CJCCJJC=nothing:if isNull(CJCCCCJ(8)) or CJCCCCJ(8)="" then CJCCCCJ(8)=0
if isdate(CJCCCCJ(9)) then
CJCCCCJ(9)=cdate(CJCCCCJ(9)):if CJCCCCJ(9)<Date then Call RedirectMessage(CCCJJCJ("????????,????????????????W") & CJCCCCJ(9) & CCCJJCJ("X??????,"))
end if:if not CCJCJJC(CJCCCCJ(20)) then CJCCCCJ(20)=7
select case CJCCCCJ(1):case 1,2,16:CJCCCCJ(36)=159:case 4,5,6,10,11:CJCCCCJ(36)=190:CJCCCCJ(37)=178:CJCCCCJ(38)=191:case 7,13:CJCCCCJ(36)=164:CJCCCCJ(37)=178:CJCCCCJ(38)=179:end select:CJCCCJC=CJCCCCJ:End Sub:Function CCJCCJC(CCCCJCC):dim CJCCCCJ(7,1),CJCJCJC,CJCCCCC,CCJJJJJ:CJCCCCC=Array(CCCJJCJ("$49@@="),CCCJJCJ("$EF56?E"),CCCJJCJ("s6AE"),CCCJJCJ("vC256"),CCCJJCJ("r=2DD>2E6"),CCCJJCJ("}F>36C"),CCCJJCJ("%62496C"),CCCJJCJ("!2C6?E")):select case CJCCCJC(1):case 1,2 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 3,16 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 4 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("??????@"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 5 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 6 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("??????@"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 7 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 8 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("??????@"),CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 9 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 10 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 11 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 12 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 13 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????")):case 14 : CCJJJJJ=Array(CCCJJCJ("??????"),CCCJJCJ("??@??"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case 15 : CCJJJJJ=Array(CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????????"),CCCJJCJ("????"),CCCJJCJ("????"),CCCJJCJ("??????"),CCCJJCJ("????")):case else : CCJJJJJ=CJCCCCC
end select:for CJCJCJC=0 to Ubound(CJCCCCJ):CJCCCCJ(CJCJCJC,0)=CJCCCCC(CJCJCJC):CJCCCCJ(CJCJCJC,1)=CCJJJJJ(CJCJCJC):next:for CJCJCJC=0 to Ubound(CJCCCCJ):if CJCCCCJ(CJCJCJC,0)=CCCCJCC then
CCJCCJC=CJCCCCJ(CJCJCJC,1):exit for
end if:next:End Function::dim CCJJJJC,CJCCJCJ:CCJJJJC=Trim(Request.QueryString(CCCJJCJ("@"))):CJCCJCJ=Trim(Request.QueryString(CCCJJCJ("=3"))):if CCJJJJC="" then
Call ConnClose:Call Showmessage(CCCJJCJ("????????,??????????????,")):response.end
end if:CJCCJCJ=CCCJJCJ("[") & CJCCJCJ & CCCJJCJ("["):Response.Write(vbCrLf):Response.Write(CCCJJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJJCJ("k9625m") & vbCrLf):Response.Write(CCCJJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJJCJ("kE:E=6m????????k^E:E=6m") & vbCrLf):Response.Write(CCCJJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJJCJ("kDEJ=6m") & vbCrLf):Response.Write(CCCJJCJ("3@5J ,L ,>2C8:?i ,_j ,N") & vbCrLf):Response.Write(CCCJJCJ("7@C>L>2C8:?i_ ,dAIjN") & vbCrLf):Response.Write(CCCJJCJ("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,H:5E9i ,`__Tj324<8C@F?5i ,Rhprhu_j ,A255:?8idAIj ,N") & vbCrLf):Response.Write(CCCJJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCJJCJ("k^9625m") & vbCrLf):Response.Write(CCCJJCJ("k3@5Jm") & vbCrLf)::dim CCJJJCJ,CCJJJCC,CJCJCJC,CCJJCJJ:CCJJJCC=CCJCCCC:set CCCCJJ=CCCJCJ.execute(CCCJJCJ("D6=64E ,E@A ,` ,=3 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CJJJCJC):CCJJJCJ=CCCCJJ(0):Response.Write(vbCrLf):Response.Write(CCCJJCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCCJJCJ(" ,")):set CCCCJJ=CCCJCJ.execute(CCCJJCJ("D6=64E ,?2>6[=3 ,7C@> ,=38C@FA ,H96C6 ,>6>36CEJA6l") & CJJJJCJ & CCCJJCJ(" ,@C56C ,3J ,D@CE")):if not CCCCJJ.eof then
response.Write CCCJJCJ("kECmkE9 ,2=:8?lV=67EVm????????????????k^E9mk^ECm")
while not CCCCJJ.eof:response.Write CCCJJCJ("kECmkE5mk:>8 ,DC4lV]]^]]^:>286D^2CC@H]8:7V ,2=:8?lV23D>:55=6V ,9DA246lVdV ,GDA246lVaVmU?3DAjk2 ,9C67lV;2G2D4C:AEiG@:5W_XV ,4=2DDlV=38C@FAV ,52E2\=3lV") & CCCCJJ(1) & CCCJJCJ("Vm") & CCCCJJ(0) & CCCJJCJ("k^2mk^E5mk^ECm")
CCCCJJ.movenext:wend
end if:set CCCCJJ=CCCJCJ.execute(CCCJJCJ("D6=64E ,?2>6[=3[:5 ,7C@> ,=3EJA6 ,H96C6 ,A=246l_ ,@C56C ,3J ,D@CE")):while not CCCCJJ.eof:Response.Write(vbCrLf):Response.Write(CCCJJCJ(" ,kEC ,:5lQEJA60")):Response.Write  CCCCJJ(2):Response.Write(CCCJJCJ("Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE9 ,2=:8?lQ=67EQm")):Response.Write  CCCCJJ(0):Response.Write(CCCJJCJ("k^E9m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,")):for CJCJCJC=1 to ubound(CCJJJCC):CCJJCJJ=CCJJJCC(CJCJCJC,0):if instr(CCCJJCJ("[") & CCCCJJ(1) & CCCJJCJ("["),CCCJJCJ("[") & CCJJCJJ & CCCJJCJ("["))>0 and (instr(CCCJJCJ("[") & CCJJJCJ & CCCJJCJ("["),CCCJJCJ("[") & CCJJCJJ & CCCJJCJ("["))>0) then
Response.Write(vbCrLf):Response.Write(CCCJJCJ(" ,kEC ,4=2DDlQEJA60")):Response.Write  CCCCJJ(2):Response.Write(CCCJJCJ("Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,:5lQ430")):Response.Write  CCJJCJJ:Response.Write(CCCJJCJ("Q ,G2=F6lQ")):Response.Write  CCJJCJJ:Response.Write(CCCJJCJ("Q ,")):Response.Write  IIf(instr(CJCCJCJ,CCCJJCJ("[") & CCJJCJJ & CCCJJCJ("[")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,")):Response.Write  CCJJJCC(CJCJCJC,1):Response.Write(CCCJJCJ("k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,"))
end if:next:CCCCJJ.movenext:wend:if CJCCCJC(7)>=2 then
Response.Write(vbCrLf):Response.Write(CCCJJCJ(" ,kEC ,:5lQEJA60\`Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE9 ,2=:8?lQ=67EQm??????????k^E9m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,")):set CCCCJJ=CCCJCJ.execute(CCCJJCJ("D6=64E ,:5[?2>6049 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,>6>36CEJA6l") & CJCJJCJ & CCCJJCJ(" ,@C56C ,3J ,D@CE")):while not CCCCJJ.eof:CCJJCJJ=CCCCJJ(0):Response.Write(vbCrLf):Response.Write(CCCJJCJ(" ,kEC ,4=2DDlQEJA60\`Qm") & vbCrLf):Response.Write(CCCJJCJ(" ,kE5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,:5lQ430")):Response.Write  CCJJCJJ:Response.Write(CCCJJCJ("Q ,G2=F6lQ")):Response.Write  CCJJCJJ:Response.Write(CCCJJCJ("Q ,")):Response.Write  IIf(instr(CJCCJCJ,CCCJJCJ("[") & CCJJCJJ & CCCJJCJ("[")),CCCJJCJ("4964<65"),""):Response.Write(CCCJJCJ("m") & vbCrLf):Response.Write(CCCJJCJ(" ,")):Response.Write  CCCCJJ(1):Response.Write(vbCrLf):Response.Write(CCCJJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJJCJ(" ,")):CCCCJJ.movenext:wend
end if:Response.Write(vbCrLf):Response.Write(CCCJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJJCJ(" ,k3Cm") & vbCrLf):Response.Write(CCCJJCJ(" ,k3Cm") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ@Q ,G2=F6lQ")):Response.Write  CCJJJJC:Response.Write(CCCJJCJ("Qm") & vbCrLf):Response.Write(CCCJJCJ("k^7@C>m") & vbCrLf):Response.Write(CCCJJCJ("k7@@E6Cm") & vbCrLf):Response.Write(CCCJJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\@<Q ,G2=F6lQ?? ,??Qmk^E5m") & vbCrLf):Response.Write(CCCJJCJ("k^7@@E6Cm") & vbCrLf):Response.Write(CCCJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCCJJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCCJJCJ(" ,7@CWG2C ,:l\`j:klhj:ZZXL:7WSWVEC]EJA60VZ:X]=6?8E9lll_XLSWVREJA60VZ:X]9:56WXNN") & vbCrLf):Response.Write(CCCJJCJ(" ,^^ ,????") & vbCrLf):Response.Write(CCCJJCJ(" ,SWVR3E?\@<VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCJ(" ,G2C ,@lSWVR@VX]G2=WX") & vbCrLf):Response.Write(CCCJJCJ(" ,G2C ,=3lSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCCJJCJ(" ,A2C6?E]5@4F>6?E]86Et=6>6?EqJx5W@X]G2=F6l=3") & vbCrLf):Response.Write(CCCJJCJ(" ,A2C6?E]=2J6C ,UU ,A2C6?E]=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCCJJCJ(" ,A2C6?E]4FCC6?EH:?=2J6C ,UU ,A2C6?E]4FCC6?EH:?=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCCJJCJ(" ,NX") & vbCrLf):Response.Write(CCCJJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCCJJCJ(" ,SWV2]=38C@FAVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJJCJ(" ,G2C ,=3lSWE9:DX]52E2WV=3VX") & vbCrLf):Response.Write(CCCJJCJ(" ,=3l=3]DA=:EWV[VX") & vbCrLf):Response.Write(CCCJJCJ(" ,S]6249W=3[7F?4E:@?W:?56I[G2=F6XLSWVR430VZG2=F6X]4=:4<WXNX") & vbCrLf):Response.Write(CCCJJCJ(" ,NX") & vbCrLf):Response.Write(CCCJJCJ("NX") & vbCrLf):Response.Write(CCCJJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCJJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCCJJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCJ=nothing:set CCJCJCC=nothing:set CCJCCJJ=nothing:set CCJCCJC=nothing:CCCCJC.Close:Set CCCCJC=Nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCJ.Close:Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJJCJ(ByVal CCCJJJC)
Dim CCJJCJC, CJCJCJC, CCJJCCJ
CCCJJJC = Replace(CCCJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJC = 1 To Len(CCCJJJC)
If CJCJCJC <> CCJJCCJ Then
CCJJCJC = AscW(Mid(CCCJJJC, CJCJCJC, 1))
If CCJJCJC >= 33 And CCJJCJC <= 79 Then
CCCJJCJ = CCCJJCJ & Chr(CCJJCJC + 47)
ElseIf CCJJCJC >= 80 And CCJJCJC <= 126 Then
CCCJJCJ = CCCJJCJ & Chr(CCJJCJC - 47)
Else
CCJJCCJ = CJCJCJC + 1
If Mid(CCCJJJC, CCJJCCJ, 1) = Chr(64) Then CCCJJCJ = CCCJJCJ & ChrW(CCJJCJC + 5) Else CCCJJCJ = CCCJJCJ & Mid(CCCJJJC, CJCJCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de