Edit D:\xinhaisoft\crisis_new\school\admin\test_export.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Buffer=False Dim CCCJCJ, CCCJCC,CCCCJJ, CCCCJC, CCCCCJ:Set CCCJCJ = server.CreateObject(CJJJCCJJ("ps~sq]r@??64E:@?")):CCCJCJ.open Application(CJJJCCJJ("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(CJJJCCJJ("!$*|t|qt#"))):if CJCJJJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCCCC>0 then CCCCCJ=CJJJCCJJ("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 & CJJJCCJJ("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(CJJJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJJ)>0 then Call RedirectMessage(CJJJCCJJ("????????,????????????????????????????????,")) Call SetMemberCookie(CCCCCC,CJJJJJJ) End IF end if:Sub CheckRight(CJCCCJJ):dim CJCJJCJ,CJCJJCC:if CCCCCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCJJ("??????????????,????????????,")) elseIf not CCCCCJJ(CJCCCJJ) then Call RedirectMessage(CJJJCCJJ("????W") & CJCCCJJ & CJJJCCJJ("X????????,????????????????????,")) end if:End Sub:Function CCCCCJJ(CJCCCJJ):dim CJCJJCJ,CJCJJCC:CJCJJCC=split(CJCCCJJ,CJJJCCJJ("[")):CCCCCJJ=False:for CJCJJCJ=0 to ubound(CJCJJCC):If Mid(CJJJJJC,CJCJJCC(CJCJJCJ),1)="1" then CCCCCJJ=True:exit function end if:next:End Function:Sub CheckLogined():if CCCCCC=0 then Call ClearMemberCookie:Call ConnClose:dim CJCJCJJ:CJCJCJJ=trim(request.QueryString(CJJJCCJJ("D49@@="))):if isnumeric(CJCJCJJ) then response.Redirect CJJJCCJJ("^>^G2?E^R^D49@@=^") & CJCJCJJ & CJJJCCJJ("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CJJJCCJJ("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJCCJJ("!$*|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 CJCJCJC,CJCJCCJ,CJCJJCJ,CJCJCCC,CJCCJJJ:CJCJCJC=split(CJCJJJC,CJJJCCJJ("]")):if ubound(CJCJCJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCJCJC(0)) or len(CJCJCJC(1))<>32 or len(CJCJCJC(2))<>32 then Call ClearMemberCookie else CJCJCCJ=CJCJCJC(1):for CJCJJCJ=1 to len(CJCJCCJ):CJCJCCC=mid(CJCJCCJ,CJCJJCJ,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC if len(CJCCJJJ)=7 then exit for next:CJCJCCJ=CJCJCJC(2):if CJCCJJJ<>mid(CJCJCCJ,6,7) then Call ClearMemberCookie else CJCJCCC=mid(CJCJCCJ,18,10)/2:if CJCJCCC<DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCCCCC=Clng(CJCJCJC(0)):CJJJJJJ=CJCJCJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CJJJCCJC,CJJJCCCJ):dim CJCJJCJ,CJCJCCC,CJCCJJJ:for CJCJJCJ=1 to len(CJJJCCCJ):CJCJCCC=mid(CJJJCCCJ,CJCJJCJ,1):if isnumeric(CJCJCCC) then CJCCJJJ=CJCCJJJ & CJCJCCC if len(CJCCJJJ)=7 then exit for next:CJCCJJJ=CJJJCCJC & CJJJCCJJ("]") & CJJJCCCJ & CJJJCCJJ("]") & Fix(10000*(Rnd+1)) & CJCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJJ("!$*|t|qt#"))=CJCCJJJ:End Sub:::Function IIf(CJJJCCCC, CJJCJJJJ, CJJCJJJC):if isnull(CJJJCCCC) or isempty(CJJJCCCC) then IIf = CJJCJJJC elseif CJJJCCCC Then IIf = CJJCJJJJ Else IIf = CJJCJJJC end if:End Function:Const CCCCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJCJJCJ,CJJCJJCC):dim CJCJCJC:CJCJCJC=CJJCJJCJ & "=" & CJJCJJCC & CJJJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJJ("$6E\r@@<:6"),CJCJCJC):End Sub:::::::Function CCCCCCJ(CCJJCJJ):if isnull(CCJJCJJ) or trim(CCJJCJJ)="" or not isnumeric(CCJJCJJ) then CCCCCCJ=false else Dim CJCCJJC:Set CJCCJJC = New RegExp:CJCCJJC.Pattern = CJJJCCJJ("/-5ZS"):CJCCJJC.IgnoreCase = True:CCCCCCJ = CJCCJJC.test(CCJJCJJ):set CJCCJJC=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:CJCCJCJ.close : set CJCCJCJ=nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CJJJJJCC.Close : Set CJJJJJCC = Nothing:CCCJCJ.Close : Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJJ("!$*0|6DD286"),server.URLEncode(CJJCJCJJ)):Response.Redirect CJJJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJJJCJJ():Dim CJCCJCJ, CJCCJCC(), CJCJJCJ, CJCJCCC, CJCCCJJ,CJCCCJC:If Not IsArray(Application(CJJJCCJJ("!$*0%6DED"))) Then CCCCCJ=CJJJCCJJ("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 CJCCJCJ=server.createobject(CJJJCCJJ("25@53]C64@C5D6E")):CJCCJCJ.open CCCCCJ,CCCJCJ,1:CJCCCJJ = CJCCJCJ.RecordCount:CJCCCJC=CJCCJCJ.fields.count-1:ReDim CJCCJCC(CJCCCJJ, CJCCCJC):If CJCCCJJ > 0 Then For CJCJJCJ = 1 To CJCCCJJ:For CJCJCCC = 0 To CJCCCJC:if CJCJCCC=4 or CJCJCCC=6 or CJCJCCC=19 then CJCCJCC(CJCJJCJ, CJCJCCC) = CJJJCJJJ(CJCCJCJ(CJCJCCC)) else CJCCJCC(CJCJJCJ, CJCJCCC) = CJCCJCJ(CJCJCCC):if CJCCJCJ(CJCJCCC).type<>11 and isnull(CJCCJCC(CJCJJCJ, CJCJCCC)) then CJCCJCC(CJCJJCJ, CJCJCCC)="" end if:Next:CJCCJCJ.MoveNext:Next End If:CJCCJCJ.Close: Set CJCCJCJ = Nothing:Application(CJJJCCJJ("!$*0%6DED")) = CJCCJCC End If:CJJJJCJJ = Application(CJJJCCJJ("!$*0%6DED")):End Function:::::::::::::::Function CJJJJCJC(CJJCJCJC):Dim CJCCJCJ, CJCCCJJ, str(), CJCJJCJ,CJCJCCC,CJCCCCC:CJCCCCC=UCase(CJJCJCJC):If Not IsArray(Application(CJJJCCJJ("!$*0") & CJCCCCC)) Then CCCCCJ=CJJJCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & CJJCJCJC & CJJJCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCJCJ=server.createobject(CJJJCCJJ("25@53]C64@C5D6E")):CJCCJCJ.open CCCCCJ,CCCJCJ,1:CJCCCJJ = CJCCJCJ.RecordCount:ReDim str(CJCCCJJ, 2):If CJCCCJJ > 0 Then For CJCJJCJ = 1 To CJCCCJJ:for CJCJCCC=0 to 2:str(CJCJJCJ, CJCJCCC) = CJCCJCJ(CJCJCCC):next:CJCCJCJ.MoveNext:Next End If:CJCCJCJ.Close: Set CJCCJCJ = Nothing:Application(CJJJCCJJ("!$*0") & CJCCCCC) = str End If:CJJJJCJC = Application(CJJJCCJJ("!$*0") & CJCCCCC):End Function::Function CJJJJCCJ(CJJCJCCJ,CJJCJCCC,CJJJCCJC):Dim str, CJCJJCJ, CCJJJJJ:CCJJJJJ = CJJJJCJC(CJJCJCCJ):For CJCJJCJ = 1 To UBound(CCJJJJJ):if Cstr(CCJJJJJ(CJCJJCJ,2))=Cstr(CJJCJCCC) and CStr(CCJJJJJ(CJCJJCJ, 0)) = CJJJCCJC & "" then str=CCJJJJJ(CJCJJCJ,1):exit for end if:Next:if str="" then str=CJJJCCJJ(",????.") CJJJJCCJ=str:End Function:::function CJJJJCCC(CCCJCCC,CJJJCCJC):dim CJCJJCC,CJCJJCJ:if isArray(CCCJCCC) then CJCJJCC=CCCJCCC else CJCJJCC=split(CCCJCCC & "",CJJJCCJJ("M")) for CJCJJCJ=0 to ubound(CJCJJCC)-1 step 2:if CJCJJCC(CJCJJCJ)=cstr(CJJJCCJC) then CJJJJCCC=server.htmlencode(CJCJJCC(CJCJJCJ+1)):exit for end if:next:end function::::::::::Function CJJJCJJJ(CJJCCJJJ):if isnull(CJJCCJJJ) then CJJJCJJJ="" else On Error Resume Next:CJJJCJJJ=CJJCCJJJ:if err.number=-2147352567 then CJJJCJJJ="":err.Clear end if end if:End Function::Function CJJJCJJC(CJJCCJJC,str):dim CJCJJCJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC,CJCCJJJ:CJCCJJJ=ucase(CJJCCJJC):CCJJCJC=str:if CCJJCJC="" then CCJJCJC=request.cookies(CJCCJJJ):if CCJJCJC="" then CJJJCJJC="" else CCJJCJC=strreverse(CCJJCJC):CCJJJJC=len(CCJJCJC):for CJCJJCJ=1 to CCJJJJC-1 step 2:CCJJJCC=mid(CCJJCJC,CJCJJCJ,1):CCJJCJJ=mid(CCJJCJC,CJCJJCJ+1,1):CCJJJCJ=CCJJJCJ & CCJJCJJ & CCJJJCC:next:CCJJJCJ=replace(CCJJJCJ,CJJJCCJJ("L0N"),CJJJCCJJ(" ,")):CCJJJCJ=replace(CCJJJCJ,CJJJCCJJ("LIN"),CJJJCCJJ("Y")):CCJJJCJ=replace(CCJJJCJ,CJJJCCJJ("L:N"),CJJJCCJJ("^")):CJJJCJJC=trim(CCJJJCJ) end if else if Len(CCJJCJC) Mod 2=1 then CCJJCJC=CCJJCJC & CJJJCCJJ(" ,") CCJJCJC=replace(CCJJCJC,CJJJCCJJ(" ,"),CJJJCCJJ("L0N")):CCJJCJC=replace(CCJJCJC,CJJJCCJJ("Y"),CJJJCCJJ("LIN")):CCJJCJC=replace(CCJJCJC,CJJJCCJJ("^"),CJJJCCJJ("L:N")):CCJJJJC=len(CCJJCJC):for CJCJJCJ=1 to CCJJJJC-1 step 2:CCJJJCC=mid(CCJJCJC,CJCJJCJ,1):CCJJCJJ=mid(CCJJCJC,CJCJJCJ+1,1):CCJJJCJ=CCJJJCJ & CCJJCJJ & CCJJJCC:next:CCJJJCJ=Trim(strreverse(CCJJJCJ)):CJJJCJJC=CCJJJCJ:response.cookies(CJCCJJJ)=CCJJJCJ end if:End Function:Function CJJJCJCJ(str,CJJCCJCJ):if isnull(str) or str="" or CJJCCJCJ="" then CJJJCJCJ=False:exit function end if:Dim CJCCJJC:Set CJCCJJC = New RegExp:CJCCJJC.Pattern = CJJCCJCJ:CJCCJJC.IgnoreCase = True:CJJJCJCJ = CJCCJJC.test(str):set CJCCJJC=nothing:End Function:::dim CJCJCJJ:CCCCCJ=Request.ServerVariables(CJJJCCJJ("!p%w0x}u~")):if instr(CCCCCJ,CJJJCCJJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJCJJJ and not CJJCCCC then Call RedirectMessage(CJJJCCJJ("????????,????????????????????????,")) CJCJCJJ=CJJJCJC elseif instr(CCCCCJ,CJJJCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCCJ,CJJJCCJJ("^DEF56?E^"))>0 then Call CheckLogined:CJCJCJJ=CJJJCJC elseif instr(CCCCCJ,CJJJCCJJ("^D49@@="))>0 then CJCJCJJ=Request.QueryString(CJJJCCJJ("D49@@=")):if not CCCCCCJ(CJCJCJJ) then CJCJCJJ=Request.QueryString(CJJJCCJJ("F")) if not CCCCCCJ(CJCJCJJ) then CJCJCJJ=Request.QueryString(CJJJCCJJ("D4")) if not CCCCCCJ(CJCJCJJ) then Call RedirectMessage(CJJJCCJJ("????????W$49@@=X??@??????????,")) CJCJCJJ=csng(CJCJCJJ) end if:if CJCJCJJ=0 then Call RedirectMessage(CJJJCCJJ("????????W$49@@=X????W_X??,")) Dim CCJJCCJ:Call SetConfig:Sub SetConfig():dim CJCJJCC,CJCCJCJ:CCCCCJ=CJJJCCJJ("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") & CJCJCJJ:set CJCCJCJ=CCCJCJ.execute(CCCCCJ):if CJCCJCJ.eof then Call RedirectMessage(CJJJCCJJ("??W") & CCCCCC & CJJJCCJJ("X??????????W") & CJCJCJJ & CJJJCCJJ("X????????,")) ReDim CJCJJCC(61):CJCJJCC(0)=CJCCJCJ(CJJJCCJJ(";:2@H6:")) & "":CJCJJCC(1)=CJCCJCJ(CJJJCCJJ("EJA6")):CJCJJCC(2)=CJCCJCJ(CJJJCCJJ("D>D")):CJCJJCC(3)=CJCCJCJ(CJJJCCJJ("4FDE@>8C@FA")) & "":CJCJJCC(4)=CJCCJCJ(CJJJCCJJ("D:5632C0@E96C")) & "":CJCJJCC(5)=IIf(isnull(CJCCJCJ(CJJJCCJJ("E6DEC6DF=EG:6H"))),0,CJCCJCJ(CJJJCCJJ("E6DEC6DF=EG:6H"))):CJCJJCC(6)=CJCCJCJ(CJJJCCJJ("K:IF?E:>6")):CJCJJCC(7)=CJCCJCJ(CJJJCCJJ("766")):CJCJJCC(8)=CJCCJCJ(CJJJCCJJ("C6E6DE52J")):CJCJJCC(9)=CJCCJCJ(CJJJCCJJ("6IA:C652E6")):CJCJJCC(10)=CJCCJCJ(CJJJCCJJ("E:E=6")):CJCJJCC(11)=CJCCJCJ(CJJJCCJJ(":?EC@")) & "":CJCJJCC(12)=CJCCJCJ(CJJJCCJJ("A:4EFC6")) & "":CJCJJCC(13)=CJCCJCJ(CJJJCCJJ("72>:=J")):CJCJJCC(14)=CJCCJCJ(CJJJCCJJ("4@AJC:89E")) & "":CJCJJCC(15)=IIf(isnull(CJCCJCJ(CJJJCCJJ("D6>6DE6C0DE2CE052E6"))),CJJJCCJJ("`h__\`\`"),CJCCJCJ(CJJJCCJJ("D6>6DE6C0DE2CE052E6"))):CJCJJCC(16)=IIf(isnull(CJCCJCJ(CJJJCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJCJ(CJJJCCJJ("K:IF?0E:>6D09:89=:89E"))):CJCJJCC(17)=CJCCJCJ(CJJJCCJJ("4@?E24E")) & "":CJCJJCC(18)=CJCCJCJ(CJJJCCJJ("D2?5E23=6")):CJCJJCC(19)=CJCCJCJ(CJJJCCJJ("4C:D:D")):CJCJJCC(20)=CJCCJCJ(CJJJCCJJ("JJ52E6")):CJCJJCC(21)=CJCCJCJ(CJJJCCJJ("BB")):CJCJJCC(22)=CJCCJCJ(CJJJCCJJ("JFJF60D>D0EA=")) & "":CJCJJCC(23)=CJCCJCJ(CJJJCCJJ("JFJF60E6DE0=3")) & "":CJCJJCC(25)=CJCCJCJ(CJJJCCJJ("6IA6CE")):CJCJJCC(26)=CJCCJCJ(CJJJCCJJ(">@5:?7@")):CJCJJCC(27)=CJCCJCJ(CJJJCCJJ("9@>6A286E@AA:4EFC6")) & "":CJCJJCC(28)=CJCCJCJ(CJJJCCJJ("4C:D:D=3")):CJCJJCC(29)=IIf(CJCCJCJ(CJJJCCJJ("4C:D:D@=5")),False,True):CJCJJCC(30)=CJCCJCJ(CJJJCCJJ("8C@FA8F:52?46")):CJCJJCC(31)=CJCCJCJ(CJJJCCJJ("3:@7665324<")):CJCJJCC(32)=CJCCJCJ(CJJJCCJJ("<6JDEC")):CJCJJCC(33)=CJCCJCJ(CJJJCCJJ("=@8@")) & "":CJCJJCC(34)=CJCCJCJ(CJJJCCJJ("K:46")):CJCJJCC(35)=IIf(CJCCJCJ(CJJJCCJJ(":D?6H")),True,False):CJCJJCC(36)=121:CJCJJCC(37)=111:CJCJJCC(38)=160:CJCJJCC(39)=CJCCJCJ(CJJJCCJJ("8F6DE3@@<")):CJCJJCC(40)=CJCCJCJ(CJJJCCJJ("75D")):CJCJJCC(42)=CJCCJCJ(CJJJCCJJ("9@>6=@8:?")):CJCJJCC(43)=CJCCJCJ(CJJJCCJJ("K:IF?0?6657665324<")):CJCJJCC(44)=CJCCJCJ(CJJJCCJJ("K:IF?0E:>6D0=:>:E")):CJCJJCC(45)=CJCCJCJ(CJJJCCJJ("4@>A=6E60:?7@")):CJCJJCC(46)=CJCCJCJ(CJJJCCJJ("E6DE:?EC@")) & "":CJCJJCC(47)=IIf(isnull(CJCCJCJ(CJJJCCJJ("JFJF60367@C60E:>6"))),0,CJCCJCJ(CJJJCCJJ("JFJF60367@C60E:>6"))):CJCJJCC(49)=CJCCJCJ(CJJJCCJJ("D>D0C646:G6C")):CJCJJCC(50)=CJCCJCJ(CJJJCCJJ("D>D0D:8?")) & "":CJCJJCC(52)=CJCCJCJ(CJJJCCJJ("JFJF602CC2?86")):CJCJJCC(53)=IIf(isnull(CJCCJCJ(CJJJCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJCJ(CJJJCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJJCC(54)=CJCCJCJ(CJJJCCJJ("9:560=30@FE@7286")):CJCJJCC(55)=CJCCJCJ(CJJJCCJJ("JFJF60E6DE052JD")):CJCJJCC(56)=CJCCJCJ(CJJJCCJJ("JFJF60H66<0=:>:E")):CJCJJCC(57)=CJCCJCJ(CJJJCCJJ("JFJF604964<65")):CJCJJCC(58)=CJCCJCJ(CJJJCCJJ("K:IF?0?6657665324<0?6IE")):CJCJJCC(59)=CJCCJCJ(CJJJCCJJ("4964<?6HDEF56?E")):CJCJJCC(60)=CJCCJCJ(CJJJCCJJ("K:IF?04=@D6052E6")):CJCCJCJ.close : set CJCCJCJ=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(CJJJCCJJ("????????,????????????????W") & CJCJJCC(9) & CJJJCCJJ("X??????,")) end if:if not CCCCCCJ(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:CCJJCCJ=CJCJJCC:End Sub:Function CJJJJJCJ(CJJCCJJC):dim CJCJJCC(7,1),CJCJJCJ,CCJJCCC,CCJCJJJ:CCJJCCC=Array(CJJJCCJJ("$49@@="),CJJJCCJJ("$EF56?E"),CJJJCCJJ("s6AE"),CJJJCCJJ("vC256"),CJJJCCJJ("r=2DD>2E6"),CJJJCCJJ("}F>36C"),CJJJCCJJ("%62496C"),CJJJCCJJ("!2C6?E")):select case CCJJCCJ(1):case 1,2 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 3,16 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 4 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("??????@"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 5 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 6 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("??????@"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 7 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 8 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("??????@"),CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 9 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 10 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 11 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 12 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 13 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????")):case 14 : CCJCJJJ=Array(CJJJCCJJ("??????"),CJJJCCJJ("??@??"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case 15 : CCJCJJJ=Array(CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????????"),CJJJCCJJ("????"),CJJJCCJJ("????"),CJJJCCJJ("??????"),CJJJCCJJ("????")):case else : CCJCJJJ=CCJJCCC end select:for CJCJJCJ=0 to Ubound(CJCJJCC):CJCJJCC(CJCJJCJ,0)=CCJJCCC(CJCJJCJ):CJCJJCC(CJCJJCJ,1)=CCJCJJJ(CJCJJCJ):next:for CJCJJCJ=0 to Ubound(CJCJJCC):if CJCJJCC(CJCJJCJ,0)=CJJCCJJC then CJJJJJCJ=CJCJJCC(CJCJJCJ,1):exit for end if:next:End Function::Call CheckRight(42)::server.ScriptTimeout=180:dim CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ:CCJCJCJ=request.QueryString(CJJJCCJJ(":5=:DE")):CCJCJCC=request.QueryString(CJJJCCJJ("=3:5")):CCJCCJJ=request.QueryString(CJJJCCJJ("92G62?DH6C")):CCJCJJC=CJJJCJJC(CJJJCCJJ("$""{"),""):if not CCCCCCJ(CCJCJCC) or (CCJCJCJ="" and CCJCJJC="") then Call RedirectMessage(CJJJCCJJ("????????,??????????????,")) CCJCJCC=cint(CCJCJCC):dim CJCCJCC,CCJCCJC,CCJCCCJ,CCJCCCC,CJCJJCJ,CCCJJJJ:CJCCJCC = CJJJJCJJ:For CJCJJCJ = 1 To UBound(CJCCJCC):If CJCCJCC(CJCJJCJ, 0) = CCJCJCC Then CCJCCCJ=CJCCJCC(CJCJJCJ,1):CCJCCJC=CJCCJCC(CJCJJCJ,3):CCJCCCC=CJCCJCC(CJCJJCJ,15):CCCJJJJ=CJCCJCC(CJCJJCJ,20):Exit For End If:Next:if CCJCCCJ="" then Call RedirectMessage(CJJJCCJJ("??????,") & CCJCJCC & CJJJCCJJ("??,????????,")) Dim CCCJJJC,CCCJJCJ,CCCJJCC:CCCJJJC=CCJJCCJ(1):CCCJJCJ=CCJJCCJ(3):CCCJJCC=CCJJCCJ(53):dim CCCJCJJ(),CCCJCJC(),CCCJCCJ,CCCJCCC:if CCCJJCC>=0 then if CCCJJCC=0 then CCCJCCJ=14 else CCCJCCJ=CCCJJCC redim CCCJCJJ(CCCJCCJ):redim CCCJCJC(CCCJCCJ):CCCCCJ=CJJJCCJJ("D6=64E ,:5[BF6DE ,7C@> ,>6>36C0BF6DE:@? ,H96C6 ,D49@@=l` ,@C56C ,3J ,D@CE"):set CCCCJJ=CCCJCJ.execute(CCCCCJ):for CJCJJCJ=1 to CCCJCCJ:CCCJCJJ(CJCJJCJ)=CCCCJJ(0):CCCJCJC(CJCJJCJ)=CCCCJJ(1):CCCCJJ.movenext:next end if:CCCCCJ = CJJJCCJJ("D6=64E ,?F>36C[C62=?2>6[D6I?2>6[E6DE286[>6>36CEJA6[8C256[4FDE@>8C@FA[>6>36C2?DH6C[>@3:=6[6>2:=[52E6E:>6[:5[D4@C60C2H[D4@C60E[C6DF=E[C6DF=E056E2:=[?@C>2=[>6>36CEJA6?2>6"):if CCJCCJJ="1" then CCCCCJ=CCCCCJ & CJJJCCJJ("[2?DH6C") CCCCCJ=CCCCCJ & CJJJCCJJ(" ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,"):if CCJCJCJ="" then CCCCCJ=CCCCCJ & CCJCJJC elseif CJJJCJCJ(CCJCJCJ,CJJJCCJJ("/W,`\h.-5Y[XY,`\h.-5YS")) then CCCCCJ=CCCCCJ & CJJJCCJJ("H96C6 ,:5 ,:? ,W") & CCJCJCJ & CJJJCCJJ("X") else Call RedirectMessage(CJJJCCJJ("????????,??????????????,")) end if:Set CCCCJJ = CCCJCC.execute(CCCCCJ):if CCCCJJ.eof then Call RedirectMessage(CJJJCCJJ("????????,??????????????@??????????,")) Response.Write(vbCrLf):Response.Write(CJJJCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJJ("k9625m") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCCJJ("kE:E=6m")):Response.Write CCJJCCJ(10):Response.Write(CJJJCCJJ(" ,\ ,")):Response.Write CCJCCCJ:Response.Write(CJJJCCJJ(" ,\ ,????k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("R3E?\6IA@CE ,L5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJJJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("k^9625m") & vbCrLf):Response.Write(CJJJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k5:G ,4=2DDlQ2>\8Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ2>\F\D>\`aQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,DEJ=6lQ>2C8:?\3@EE@>idAIjQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,:5lQ3E?\=@25:?8Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\IDQ ,5:D23=65mk: ,4=2DDlQ2>\:4@?\DA:??6C ,2>\:4@?\DA:?Qmk^:m ,????????????,kDA2?mk^DA2?m??,??????]]]k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,:5lQ3E?\6IA@CEQ ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\IDQmk: ,4=2DDlQ2>\:4@?\7:=6\6I46=\@Qmk^:m ,????tI46=????k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):Response.Write CJJJCCJJ("kE23=6 ,4=2DDlV2>\E23=6 ,2>\E23=6\3@C56C65 ,2>\E23=6\4@>A24E ,2>\E6IE\IDVmkE9625m") dim CCJJCJC,CJCCCCC,CCCCJJJ,str,CCCCJJC:CCJJCJC = CJJJCCJJ("k^E5mkE5m"):CJCCCCC=CJJJCCJJ("kECmkE5mRk^E5mkE5m????k^E5mkE5m????k^E5mkE5m????k^E5mkE5m????k^E5mkE5m????xsk^E5mkE5m????????k^E5m"):if CCCJJJC>=3 then CJCCCCC=CJCCCCC & CJJJCCJJ("kE5m????^????k^E5m") if CCCJJCJ<>"" then CJCCCCC=CJCCCCC & CJJJCCJJ("kE5m") & CCCJJCJ & CJJJCCJJ("k^E5m") for CJCJJCJ=1 to CCCJCCJ:CJCCCCC=CJCCCCC & CJJJCCJJ("kE5m") & CCCJCJC(CJCJJCJ) & CJJJCCJJ("k^E5m"):next:CJCCCCC=CJCCCCC & CJJJCCJJ("kE5m????k^E5mkE5mt>2:=k^E5mkE5m????????k^E5m"):if CCJCCJJ="1" then if CCJCJCC=59 or CCJCJCC=85 then CJCCCCC=CJCCCCC & CJJJCCJJ("kE5m????k^E5m") else For CJCJJCJ = 1 To CCJCCJC:if CCJCJCC=9 then CJCCCCC = CJCCCCC & CJJJCCJJ("kE5m") & CJCJJCJ & CJJJCCJJ("WuXk^E5mkE5m") & CJCJJCJ & CJJJCCJJ("W|Xk^E5m") else CJCCCCC = CJCCCCC & CJJJCCJJ("kE5m") & CJCJJCJ & CJJJCCJJ("k^E5m") end if:Next end if end if:if CCCJJJJ then str="":set CCCCJC=CCCJCJ.execute(CJJJCCJJ("D6=64E ,?2>6[BF6DE:@?` ,7C@> ,=3724E@C ,H96C6 ,=3l") & CCJCJCC & CJJJCCJJ(" ,@C56C ,3J ,D@CE")):while not CCCCJC.eof:str=str & CCJJCJC & CCCCJC(0):CCCCJC.movenext:wend:if str="" then str=str & CCJJCJC & CJJJCCJJ("????") else select case CCJCJCC:case 1 : str=CCJJCJC & replace(CCJCCCC,CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & replace(CCJCCCC & CJJJCCJJ("M)`M)aM)b"),CJJJCCJJ("M"),CCJJCJC):case 2:str=str & CCJJCJC & replace(CJJJCCJJ("????????M??????????M????@??????????M??????M??????M??????M??????M??????M??????@????M??????M????M??????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????M??????????M????@??????????M??????M??????M??????M??????M??????M??????@????M??????M??????M????????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & CJJJCCJJ("??????"):case 3,5,33,47,85:str=CCJJCJC & replace(CCJCCCC & CJJJCCJJ("M") & CCJCCCC,CJJJCCJJ("M"),CCJJCJC):case 4,7,12,13,14,15,17,19,20,32,35,36,38,39,48,49,50,63,67,68,71,72,81,90,95,96,99,110,123,128,131,134,135,136,165,166,183,192,193,195,219,226,228,270,272,284,286,288,289,297:str=CCJJCJC & replace(CCJCCCC,CJJJCCJJ("M"),CCJJCJC):case 6 : str=CCJJCJC & replace(CJJJCCJJ("2[3[4[6[7[8[9[:[=[>[?[@[B`[Ba[Bb[Bc"),CJJJCCJJ("["),CCJJCJC) & CCJJCJC & replace(ucase(CJJJCCJJ("2[3[4[6[7[8[9[:[=[>[?[@[B`[Ba[Bb[Bc[I`[Ia[Ib[Ic[J`[Ja[Jb[Jc")),CJJJCCJJ("["),CCJJCJC):case 8 : str=CCJJCJC & replace(CJJJCCJJ("??????M??????"),CJJJCCJJ("M"),CCJJCJC):case 9 : str=CCJJCJC & replace(CJJJCCJJ("??,????,??@????????,????M??,????,??????,????M??,????,????????M??,????,????????M??,????,??????,????M??,????,????????M??,????,??@????????,????M??,????,????????,??????M??,????,??????,????M??,????,??????,????M??,????,????????"),CJJJCCJJ("M"),CCJJCJC):case 10,207:str=CCJJCJC & replace(CJJJCCJJ("????M????????M????????M????M????????M????"),CJJJCCJJ("M"),CCJJCJC):case 11,30,37,53,54,55,56,57,58,60,73,76,112,137,148,150,160,168,269,274:str=CCJJCJC & CJJJCCJJ("????"):case 16:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????M????????@??????M??????????????M??????????????M??????????????????M??????????????M??????????????M??????????????M??????????????M??????????????M????????????M??@????????M??????????????M????????\??????M????????\??????M????????M????????M??????,????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????M????????@??????M??????????????M??????????????M??????????????????M??????????????M??????????????M??????????????M??????????????M??????????????M????????????M??@????????M??????????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M????????????M????????????M????????M????????@????M????????????M????????????M????????????????M????????????M????????????M????????????M????????????M????????????M??????????M??@??????M????????????M????????\??????????M????????\??????????M????????????M????????M??????,????????"),CJJJCCJJ("M"),CCJJCJC):case 18:for CJCJJCJ=1 to 10:str=str & CCJJCJC & CJJJCCJJ("????") & CJCJJCJ:next:case 26 : str=CCJJCJC & replace(CJJJCCJJ("????`M????aM????bM????cM????dM????eM????fM????gM????hM????`_M??????M????????????"),CJJJCCJJ("M"),CCJJCJC):case 59 : str=CCJJCJC & replace(CJJJCCJJ("""`M{`Mu`Mz`MwD`Ms`MwJ`M!5`M|7`M!2`M!E`M$4`M|2`M$:`Mp`M#`M|p$`MtD``MsJMs@`M#6`M!C`M$E`Mr?`M""aM{aMuaMzaMwDaMsaMwJaM!5aM|7aM!2aM!EaM$4aM|2aM$:aMpaM#aM|p$aMtDaMsJaMs@aM#6aM!CaM$EaMr?a"),CJJJCCJJ("M"),CCJJCJC):case 61 : str=CCJJCJC & replace(CJJJCCJJ("????@????[????????[??????[????[????????[????[????????????[????????"),CJJJCCJJ("["),CCJJCJC):case 64 : str=CCJJCJC & replace(CJJJCCJJ("`]`[a]`[b]`[c]`[`]a[a]a[b]a[c]a"),CJJJCCJJ("["),CCJJCJC):case 66 : str=CCJJCJC & replace(CJJJCCJJ("????M????"),CJJJCCJJ("["),CCJJCJC):case 70 : str=CCJJCJC & replace(CJJJCCJJ("{MrwM%wMrwZ%w"),CJJJCCJJ("M"),CCJJCJC):case 83:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????????M??????????@????????M??????????????M??????????M????????M????????M??????,????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????????M??????????@????????M??????????????M??????????"),CJJJCCJJ("M"),CCJJCJC):case 84:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????M????????@??????M??????????????M??????????????M??????????????M??????????????M????????????M??@????????M??????????????M????????\??????M????????\\??????M????????M????????M??????,????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????M????????@??????M??????????????M??????????????M??????????????M??????????????M????????????M??@????????M??????????????"),CJJJCCJJ("M"),CCJJCJC):case 89:str=str & CCJJCJC & replace(CJJJCCJJ("??????????M??@????????????M??????????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????M??@????????????M??????????????"),CJJJCCJJ("M"),CCJJCJC):case 98 : str=CCJJCJC & replace(CJJJCCJJ("`MaMbMcMdMeMfM????????????"),CJJJCCJJ("M"),CCJJCJC):case 102:str=str & CCJJCJC & replace(CCJCCCC,CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????M????????M????@????????M????M????M????M????M????M??????@??M????M????????M????M????M????M??????M????????M????????????"),CJJJCCJJ("M"),CCJJCJC):case 106:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????@????????M??????????M??????,????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????@????????M??????????"),CJJJCCJJ("M"),CCJJCJC):case 109:str=str & CCJJCJC & replace(CJJJCCJJ("#\""M#\{M#\uM#\zM#\sM#\!5M#\!2M#\$4M#\|2"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("%\""M%\{M%\uM%\zM%\sM%\!5M%\!2M%\$4M%\|2"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("v\""Mv\{Mv\uMv\zMv\sMv\!5Mv\!2Mv\$4Mv\|2M????????"),CJJJCCJJ("M"),CCJJCJC):case 111,178 : str=CCJJCJC & replace(CJJJCCJJ("??????M??????M????????M????????M????M??????M??????,_????^`????^a????^b????^c??????,"),CJJJCCJJ("M"),CCJJCJC):case 116 : str=CCJJCJC & replace(CJJJCCJJ("????tM????}M????!M????{M????tM????}M????!M????{"),CJJJCCJJ("M"),CCJJCJC):case 121:str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M????????????M????????????M????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M????????????M????????????M????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):case 129:str=str & CCJJCJC & replace(CJJJCCJJ("????????????M??????@??????M????????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????????M??????@??????M????????????M????????"),CJJJCCJJ("M"),CCJJCJC):case 130:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????????????M????????????????M????????????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????????????M????????????????M????????????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????????????M????????????????M????????????????M????????"),CJJJCCJJ("M"),CCJJCJC):case 132:str=str & CCJJCJC & replace(CJJJCCJJ("??????????M????????????M????????????M????????????M????????????M??????????M??????????????M??????????M??????????M??????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????M????????????M????????????M????????????M????????????M??????????M??????????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????M??????????M??????????M??????????M??????????M????????M????????????M????????M????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & CJJJCCJJ("??????????"):case 133:str=str & CCJJCJC & replace(CJJJCCJJ("????????@\??????????M??????????M??????????M??????????????M??????????????M????????????????M??????????M??????????M??????????M??????????M????????????M????????????M??????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????@\??????????M??????????M??????????M??????????????M??????????????M????????????????M??????????M??????????M??????????M??????????M????????????M????????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????@\????????M????????M????????M????????????M????????????M??????????????M????????M????????M????????M????????M??????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????"),CJJJCCJJ("M"),CCJJCJC):case 154:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????@????????M??????????M??????,????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????@????????M??????????"),CJJJCCJJ("M"),CCJJCJC):case 155:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????????M??????????@????????M??????????????M??????????M????????M????????M??????,????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????????M??????????@????????M??????????????M??????????"),CJJJCCJJ("M"),CCJJCJC):case 157:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????M????????@??????M??????????????M??????????????M??????????????????M??????????????M??????????????M??????????????M??????????????M??????????????M????????????M??@????????M??????????????M????????\??????M????????\??????M????????M????????M??????,????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????M????????@??????M??????????????M??????????????M??????????????????M??????????????M??????????????M??????????????M??????????????M??????????????M????????????M??@????????M??????????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M????????????M????????????M????????M????????@????M????????????M????????????M????????????????M????????????M????????????M????????????M????????????M????????????M??????????M??@??????M????????????M????????\??????????M????????\??????????M????????????M????????????M??????,????????"),CJJJCCJJ("M"),CCJJCJC):case 158:str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????M????????@??????M??????????????M??????????????M??????????????M??????????????M????????????M??@????????M??????????????M????????\??????M????????\\??????M????????M????????M??????,????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M??????????????M??????????????M??????????????M??????????M????????@??????M??????????????M??????????????M??????????????M??????????????M????????????M??@????????M??????????????"),CJJJCCJJ("M"),CCJJCJC):case 159:str=str & CCJJCJC & replace(CJJJCCJJ("????????????M??????????????????M????????????M????????????M????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????????M??????????????????M????????????M????????????M????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):case 161,164,190,213:str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M????????????M????????????M????????M????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M????????????M????????????M????????M????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):case 162:str=str & CCJJCJC & replace(CJJJCCJJ("??????????M????????M??????????M??????M??????M??????M??????M????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("??????????????M????????????M??????????????M??????????M??????????M??????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & CJJJCCJJ("??????????"):case 163,167 : str=CCJJCJC & replace(CJJJCCJJ("????`M????aM????bM????cM????dM????eM????fM????gM????hM????`_M??????M????????????"),CJJJCCJJ("M"),CCJJCJC):case 180:str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M??@??????????M????????????M????????????M????????????M????????????M????????????M????????????M????????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M??@??????????M????????????M????????????M????????????M????????????M????????????M????????????M????????????"),CJJJCCJJ("M"),CCJJCJC):case 182:str=str & CCJJCJC & replace(CJJJCCJJ("????????M????????M????????M????????????????M??????????????M????\??????@??????M??????????????M????????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????M????????M????????M????????????????M??????????????M????\??????@??????M??????????????M????????????"),CJJJCCJJ("M"),CCJJCJC):case 194 : str=CCJJCJC & replace(CJJJCCJJ("??????????????@M????????????????M????????????M????????????M????????????M????????M??????????????@M????????????????M????????????M????????????M????????????M????????"),CJJJCCJJ("M"),CCJJCJC):case 214 : str=CCJJCJC & replace(CJJJCCJJ("??,??????????M??????M????????M??????M????????M??@??????M??????????????,????M????????????M????????????M????????????M????????????????M????????????????M????????????????M????"),CJJJCCJJ("M"),CCJJCJC):case 227:str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M????????????M????????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):str=str & CCJJCJC & replace(CJJJCCJJ("????????????M????????????M????????????M????????????M??????????M????????"),CJJJCCJJ("M"),CCJJCJC):case 271 : str=str & CCJJCJC & replace(CJJJCCJJ("????????M????????M????????M????????"),CJJJCCJJ("M"),CCJJCJC):case 296 : str=str & CCJJCJC & replace(CJJJCCJJ("????M??????"),CJJJCCJJ("M"),CCJJCJC):end select end if:CJCCCCC=CJCCCCC & str:CJCCCCC=CJCCCCC & CJJJCCJJ("k^ECmk^E9625mkE3@5Jm"):Response.Write CJCCCCC:CCCCJJJ=1:While Not CCCCJJ.EOF:CJCCCCC=CJJJCCJJ("kECmkE5 ,E:E=6lV") & CCCCJJ(11) & CJJJCCJJ("Vm") & CCCCJJJ & CJJJCCJJ("k^E5mkE5 ,DEJ=6lQ>D@\?F>36C\7@C>2EiV-oVjQm") & CCCCJJ(0) & CCJJCJC & CCCCJJ(1) & CCJJCJC & CCCCJJ(2) & CCJJCJC & CCCCJJ(3) CJCCCCC=CJCCCCC & CCJJCJC & CCCCJJ(4) & CCJJCJC & CCCCJJ(17):if CCCJJJC>=3 then CJCCCCC=CJCCCCC & CCJJCJC & CJJJJCCJ(CJJJCCJJ(">6>36C08C256"),CJCJCJJ,CCCCJJ(5)) if CCCJJCJ<>"" then CJCCCCC=CJCCCCC & CCJJCJC & CJJJJCCJ(CJJJCCJJ(">6>36C04FDE@>8C@FA"),CJCJCJJ,CCCCJJ(6)) CCCJCCC=split(CCCCJJ(7) & "",CJJJCCJJ("M")):for CJCJJCJ=1 to CCCJCCJ:CJCCCCC=CJCCCCC & CCJJCJC & CJJJJCCC(CCCJCCC,CCCJCJJ(CJCJJCJ)):next:CJCCCCC=CJCCCCC & CCJJCJC & CCCCJJ(8) & CCJJCJC & CCCCJJ(9) & CCJJCJC & CCCCJJ(10):if CCJCCJJ="1" then if CCJCJCC=59 or CCJCJCC=85 then CJCCCCC=CJCCCCC & CCJJCJC & CCCCJJ(18) else CCCCJJC=CCCCJJ(18) & "":CCCCJJC=replace(CCCCJJC,vbcrlf,""):CCCCJJC=replace(CCCCJJC,CJJJCCJJ("M"),CCJJCJC):CJCCCCC=CJCCCCC & CCJJCJC & CCCCJJC end if end if:str="":if CCCJJJJ then str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) else select case CCJCJCC:case 2:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(13) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & IIf(CCCCJJ(16),1,0):case 3:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC):CCCCJJC=CJJJCCJJ("M") & CCCCJJ(14) & CJJJCCJJ("M"):for CJCJJCJ=0 to 5:str=str & CCJJCJC:if instr(CCCCJJC,CJJJCCJJ("M") & CJCJJCJ & CJJJCCJJ("M"))>0 then str=str & 1 next:case 10:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(13) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & CCCCJJ(14):case 121,159,161,164,190,213,227:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(15) & "",CJJJCCJJ("M"),CCJJCJC):case 50:str=str & CCJJCJC & CCCCJJ(12) & CCJJCJC & CCCCJJ(13) & CCJJCJC & CCCCJJ(14):case 16,109,111,130,157,178,207:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(13) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(14) & "",CJJJCCJJ("M"),CCJJCJC):case 66,102,129,180,182,271:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(14) & "",CJJJCCJJ("M"),CCJJCJC):case 26,163,167,192,193:str=str & CCJJCJC & Replace(CCCCJJ(13) & "",CJJJCCJJ("M"),CCJJCJC):case 8:str=str & CCJJCJC & CCCCJJ(12) & CCJJCJC & CCCCJJ(13):case 132,133:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(13) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(14) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(15) & "",CJJJCCJJ("M"),CCJJCJC):case 162:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(14) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(15) & "",CJJJCCJJ("M"),CCJJCJC):case 1,5,6,33,47,59,64,70,83,84,85,89,106,116,154,155,158,157:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC) & CCJJCJC & Replace(CCCCJJ(13) & "",CJJJCCJJ("M"),CCJJCJC):case 3,4,7,9,12,13,14,15,17,19,20,32,35,36,38,39,48,49,61,63,67,68,71,72,81,90,95,96,98,99,110,123,128,131,134,135,136,160,165,166,179,183,191,194,195,219,214,226,228,272,284,286,288,289,297:str=str & CCJJCJC & Replace(CCCCJJ(12) & "",CJJJCCJJ("M"),CCJJCJC):case 270:str=str & CCJJCJC & Replace(CCCCJJ(14) & "",CJJJCCJJ("M"),CCJJCJC):case 296:str=str & CCJJCJC & CCCCJJ(12) & CCJJCJC & IIf(CCCCJJ(16),1,0):case 11,30,37,53,54,55,56,57,58,60,73,76,112,137,148,150,168,269,274:str=str & CCJJCJC & CCCCJJ(12):end select end if:CJCCCCC=CJCCCCC & str:CJCCCCC=CJCCCCC & CJJJCCJJ("k^E5mk^ECm"):Response.Write CJCCCCC:Response.Write CJJJCCJJ("k") & CJJJCCJJ("D4C:AEmSWVR3E?\=@25:?8VX]49:=5C6?WVDA2?VX]E6IEW") & CCCCJJJ & CJJJCCJJ("Xk^D4C:AEm") CCCCJJ.MoveNext:CCCCJJJ=CCCCJJJ+1:Wend:Response.Write CJJJCCJJ("k^E3@5Jmk^E23=6m"):Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("k5:G ,52E2\2>\H:586ElQ8@E@AQ ,4=2DDlQ2>\8@E@A ,2>\8@E@A\7:I65Q ,m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k2 ,9C67lQRE@AQ ,E:E=6lQ????????Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kDA2? ,4=2DDlQ2>\8@E@A\E:E=6Qm????????k^DA2?m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k: ,4=2DDlQ2>\8@E@A\:4@? ,2>\:4@?\496GC@?\FAQmk^:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^2m") & vbCrLf):Response.Write(CJJJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,^^ ,????") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR3E?\=@25:?8VX]9:56WX") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR3E?\6IA@CEVX]D9@HWX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWE9:DX]9E>=WVk: ,4=2DDlQ2>\:4@?\DA:??6C ,2>\:4@?\DA:?Qmk^:m ,??????????,????????????????????????????,??????????????????????????,????????????????????,VX]AC@AWV5:D23=65V[ECF6X") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6VX]E23=6a6I46=WSWVE:E=6VX]E6IEWXX") & vbCrLf):Response.Write(CJJJCCJJ(" ,NX") & vbCrLf):Response.Write(CJJJCCJJ("NX") & vbCrLf):Response.Write(CJJJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=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 CJJJCCJJ(ByVal CJJJCJCC) Dim CCCCJCJ, CJCJJCJ, CCJJCJJ CJJJCJCC = Replace(CJJJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJJCJ = 1 To Len(CJJJCJCC) If CJCJJCJ <> CCJJCJJ Then CCCCJCJ = AscW(Mid(CJJJCJCC, CJCJJCJ, 1)) If CCCCJCJ >= 33 And CCCCJCJ <= 79 Then CJJJCCJJ = CJJJCCJJ & Chr(CCCCJCJ + 47) ElseIf CCCCJCJ >= 80 And CCCCJCJ <= 126 Then CJJJCCJJ = CJJJCCJJ & Chr(CCCCJCJ - 47) Else CCJJCJJ = CJCJJCJ + 1 If Mid(CJJJCJCC, CCJJCJJ, 1) = Chr(64) Then CJJJCCJJ = CJJJCCJJ & ChrW(CCCCJCJ + 5) Else CJJJCCJJ = CJJJCCJJ & Mid(CJJJCJCC, CJCJJCJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de