Edit D:\xinhaisoft\crisis_new\school\index.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCJ, CJCCC,CCJJJ, CCJJC, CCJCJ:Set CJCCJ = server.CreateObject(CJCJJCC("ps~sq]r@??64E:@?")):CJCCJ.open Application(CJCJJCC("r@??64E:@?$EC:?8")):Set CJCCC=CJCCJ::Dim CCJCC,CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC:Dim CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ:Dim CJCCJC:CJCCJC=Trim(Request.Cookies(CJCJJCC("!$*|t|qt#"))):if CJCCJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCJCC>0 then CCJCJ=CJCJJCC("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") & CCCJJ & CJCJJCC("V ,2?5 ,:5l") & CCJCC set CCJJJ=CJCCJ.execute(CCJCJ):If CCJJJ.EOF Then Call ClearMemberCookie Else CCCJC=CCJJJ(2) & "":CCCCJ=CCJJJ(3):CCCCC=CCJJJ(5):CJJJJJ=CCJJJ(6):CJJJJC=CCJJJ(9):CJJJCJ=CCJJJ(15):CJJCJJ=CCJJJ(0):CJCJCC=CCJJJ(1):CJCJCJ=CCJJJ(11) & "":CJJCJC=CCJJJ(10) & "":CJJJCC=CCJJJ(12):CJJCCJ=CCJJJ(14):CJJCCC=CCJJJ(13):CJCJJJ=CCJJJ(7) & "":CJCJJC=CCJJJ(4):CJCCJJ=CCJJJ(8):if isnull(CJJJCJ) then CJJJCJ=0 if isnull(CJJJJC) or CJJJJC=0 then CJJJJC=CCCCJ if isnull(CJCJJC) then CJCJJC=0 if isnull(CCCCC) then CCCCC=0 if instr(CJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJ)>0 then Call RedirectMessage(CJCJJCC("????????,????????????????????????????????,")) Call SetMemberCookie(CCJCC,CCCJJ) End IF end if:::Sub CheckLogined():if CCJCC=0 then Call ClearMemberCookie:Call ConnClose:dim CJCCCJ:CJCCCJ=trim(request.QueryString(CJCJJCC("D49@@="))):if isnumeric(CJCCCJ) then response.Redirect CJCJJCC("^>^G2?E^R^D49@@=^") & CJCCCJ & CJCJJCC("^DEF56?E^=@8:?nC65:C64El") & CCJCJC else Call RedirectMessage(CJCJJCC("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJCC("!$*|t|qt#"))="":CCJCC=0:CJJJJJ=0:CCCJJ=Empty:CCCCC=0:CJJJCJ=0:CJJJJC=0:CCCCJ=0:CJJCJJ=False:CJCJCC=False:CJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:CJCCCC=split(CJCCJC,CJCJJCC("]")):if ubound(CJCCCC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCCC(0)) or len(CJCCCC(1))<>32 or len(CJCCCC(2))<>32 then Call ClearMemberCookie else CCJJJJ=CJCCCC(1):for CCJJJC=1 to len(CCJJJJ):CCJJCJ=mid(CCJJJJ,CCJJJC,1):if isnumeric(CCJJCJ) then CCJJCC=CCJJCC & CCJJCJ if len(CCJJCC)=7 then exit for next:CCJJJJ=CJCCCC(2):if CCJJCC<>mid(CCJJJJ,6,7) then Call ClearMemberCookie else CCJJCJ=mid(CCJJJJ,18,10)/2:if CCJJCJ<DateDiff(CJCJJCC("D"), CJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCJCC=Clng(CJCCCC(0)):CCCJJ=CJCCCC(1) end if end if end if:End Sub:Sub SetMemberCookie(CJCJCJJ,CJCJCJC):dim CCJJJC,CCJJCJ,CCJJCC:for CCJJJC=1 to len(CJCJCJC):CCJJCJ=mid(CJCJCJC,CCJJJC,1):if isnumeric(CCJJCJ) then CCJJCC=CCJJCC & CCJJCJ if len(CCJJCC)=7 then exit for next:CCJJCC=CJCJCJJ & CJCJJCC("]") & CJCJCJC & CJCJJCC("]") & Fix(10000*(Rnd+1)) & CCJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJJCC("D"), CJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJCC("!$*|t|qt#"))=CCJJCC:End Sub:::Function IIf(CJCJCCJ, CJCJCCC, CJCCJJJ):if isnull(CJCJCCJ) or isempty(CJCJCCJ) then IIf = CJCCJJJ elseif CJCJCCJ Then IIf = CJCJCCC Else IIf = CJCCJJJ end if:End Function:Const CJJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::::Public Function CJJCJJC():Dim CCJCJJ, CCJCJC:CCJCJC = Request.ServerVariables(CJCJJCC("!p%w0x}u~")):CCJCJJ = Request.ServerVariables(CJCJJCC("""&t#*0$%#x}v")):If CCJCJJ <> Empty Then if instr(lcase(CCJCJJ),CJCJJCC("Tb4:7C2>6"))>0 or instr(lcase(CCJCJJ),CJCJJCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCJJCC("????????,????????????????????????,??,??,")) CCJCJC = CCJCJC & CJCJJCC("n") & CCJCJJ end if:CJJCJJC = CCJCJC:End Function:Sub SetHttpOnlyCookie(CJCCJJC,CJCCJCJ):dim CJCCCC:CJCCCC=CJCCJJC & CJCJJCC("l") & CJCCJCJ & CJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCC("$6E\r@@<:6"),CJCCCC):End Sub:::Function CJJCJCJ(ByVal Str, ByVal StrLen):Dim CCJCCJ, CCJCCC, CCCJJJ, CCJJJC:if isnull(str) then CJJCJCJ="" else CCJCCJ = Len(Str):CCJCCC = 0:For CCJJJC = 1 To CCJCCJ:CCCJJJ = AscW(Mid(Str, CCJJJC, 1)):If CCCJJJ < 0 Or CCCJJJ > 255 Then CCJCCC = CCJCCC + 2 Else CCJCCC = CCJCCC + 1 If CCJCCC >= StrLen Then CJJCJCJ = Left(Str, CCJJJC) & CJCJJCC("]]]"):Exit For Else CJJCJCJ = Str End If:Next end if:End Function::::Function CJJCJCC(CJJJCJC):if isnull(CJJJCJC) or trim(CJJJCJC)="" or not isnumeric(CJJJCJC) then CJJCJCC=false else Dim CCCJJC:Set CCCJJC = New RegExp:CCCJJC.Pattern = CJCJJCC("/-5ZS"):CCCJJC.IgnoreCase = True:CJJCJCC = CCCJJC.test(CJJJCJC):set CCCJJC=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CJJJJJJ.close : set CJJJJJJ=nothing:CCJJC.Close : Set CCJJC=Nothing:CCJJJ.Close : Set CCJJJ=Nothing:CJCJJJJ.Close : Set CJCJJJJ = Nothing:CJCCJ.Close : Set CJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJCC("!$*0|6DD286"),server.URLEncode(CJCCCJJ)):Response.Redirect CJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJJJC(ByVal CJCJJCJ,style):if not isdate(CJCJJCJ) then CJCJJJC=CJCJJCJ:exit function end if:dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:CJCJJCJ=cdate(CJCJJCJ):CCCJCJ=Year(CJCJJCJ):CCCJCC=Month(CJCJJCJ):CCCCJJ=Day(CJCJJCJ):select case style:case 0:CJCJJJC=CCCJCJ & CJCJJCC("\") & right(0 & CCCJCC,2) & CJCJJCC("\") & right(0 & CCCCJJ,2):case 1:CJCJJJC=CCCJCJ & right(0 & CCCJCC,2) & right(0 & CCCCJJ,2):case 2:CJCJJJC=right(CCCJCJ,2) & CJCJJCC("\") & right(0 & CCCJCC,2) & CJCJJCC("\") & right(0 & CCCCJJ,2):case 3:CJCJJJC=CCCJCJ & CJCJJCC("\") & right(0 & CCCJCC,2):case 4:CJCJJJC=right(0 & CCCJCC,2) & CJCJJCC("\") & right(0 & CCCCJJ,2):case 5:CJCJJJC=right(0 & CCCCJJ,2):case 6:CJCJJJC=CCCJCJ & CJCJJCC("??") & right(0 & CCCJCC,2) & CJCJJCC("??") & right(0 & CCCCJJ,2) & CJCJJCC("??"):case else CJCJJJC=CJCJJCJ:end select:End Function::::::::::::::::::::::dim CJCCCJ:CCJCJ=Request.ServerVariables("PATH_INFO"):if instr(CCJCJ,CJCJJCC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJCJJ and not CJCJCC then Call RedirectMessage(CJCJJCC("????????,????????????????????????,")) CJCCCJ=CJJJJC elseif instr(CCJCJ,CJCJJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CCJCJ,CJCJJCC("^DEF56?E^"))>0 then Call CheckLogined:CJCCCJ=CJJJJC elseif instr(CCJCJ,CJCJJCC("^D49@@="))>0 then CJCCCJ=Request.QueryString(CJCJJCC("D49@@=")):if not CJJCJCC(CJCCCJ) then CJCCCJ=Request.QueryString(CJCJJCC("F")) if not CJJCJCC(CJCCCJ) then CJCCCJ=Request.QueryString(CJCJJCC("D4")) if not CJJCJCC(CJCCCJ) then Call RedirectMessage(CJCJJCC("????????W$49@@=X??@??????????,")) CJCCCJ=csng(CJCCCJ) end if:if CJCCCJ=0 then Call RedirectMessage(CJCJJCC("????????W$49@@=X????W_X??,")) Dim CCCCCJ:Call SetConfig:Sub SetConfig():dim CCCCCC,CJJJJJJ:CCJCJ=CJCJJCC("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") & CJCCCJ:set CJJJJJJ=CJCCJ.execute(CCJCJ):if CJJJJJJ.eof then Call RedirectMessage(CJCJJCC("??W") & CCJCC & CJCJJCC("X??????????W") & CJCCCJ & CJCJJCC("X????????,")) ReDim CCCCCC(61):CCCCCC(0)=CJJJJJJ(CJCJJCC(";:2@H6:")) & "":CCCCCC(1)=CJJJJJJ(CJCJJCC("EJA6")):CCCCCC(2)=CJJJJJJ(CJCJJCC("D>D")):CCCCCC(3)=CJJJJJJ(CJCJJCC("4FDE@>8C@FA")) & "":CCCCCC(4)=CJJJJJJ(CJCJJCC("D:5632C0@E96C")) & "":CCCCCC(5)=IIf(isnull(CJJJJJJ(CJCJJCC("E6DEC6DF=EG:6H"))),0,CJJJJJJ(CJCJJCC("E6DEC6DF=EG:6H"))):CCCCCC(6)=CJJJJJJ(CJCJJCC("K:IF?E:>6")):CCCCCC(7)=CJJJJJJ(CJCJJCC("766")):CCCCCC(8)=CJJJJJJ(CJCJJCC("C6E6DE52J")):CCCCCC(9)=CJJJJJJ(CJCJJCC("6IA:C652E6")):CCCCCC(10)=CJJJJJJ(CJCJJCC("E:E=6")):CCCCCC(11)=CJJJJJJ(CJCJJCC(":?EC@")) & "":CCCCCC(12)=CJJJJJJ(CJCJJCC("A:4EFC6")) & "":CCCCCC(13)=CJJJJJJ(CJCJJCC("72>:=J")):CCCCCC(14)=CJJJJJJ(CJCJJCC("4@AJC:89E")) & "":CCCCCC(15)=IIf(isnull(CJJJJJJ(CJCJJCC("D6>6DE6C0DE2CE052E6"))),CJCJJCC("`h__\`\`"),CJJJJJJ(CJCJJCC("D6>6DE6C0DE2CE052E6"))):CCCCCC(16)=IIf(isnull(CJJJJJJ(CJCJJCC("K:IF?0E:>6D09:89=:89E"))),0,CJJJJJJ(CJCJJCC("K:IF?0E:>6D09:89=:89E"))):CCCCCC(17)=CJJJJJJ(CJCJJCC("4@?E24E")) & "":CCCCCC(18)=CJJJJJJ(CJCJJCC("D2?5E23=6")):CCCCCC(19)=CJJJJJJ(CJCJJCC("4C:D:D")):CCCCCC(20)=CJJJJJJ(CJCJJCC("JJ52E6")):CCCCCC(21)=CJJJJJJ(CJCJJCC("BB")):CCCCCC(22)=CJJJJJJ(CJCJJCC("JFJF60D>D0EA=")) & "":CCCCCC(23)=CJJJJJJ(CJCJJCC("JFJF60E6DE0=3")) & "":CCCCCC(25)=CJJJJJJ(CJCJJCC("6IA6CE")):CCCCCC(26)=CJJJJJJ(CJCJJCC(">@5:?7@")):CCCCCC(27)=CJJJJJJ(CJCJJCC("9@>6A286E@AA:4EFC6")) & "":CCCCCC(28)=CJJJJJJ(CJCJJCC("4C:D:D=3")):CCCCCC(29)=IIf(CJJJJJJ(CJCJJCC("4C:D:D@=5")),False,True):CCCCCC(30)=CJJJJJJ(CJCJJCC("8C@FA8F:52?46")):CCCCCC(31)=CJJJJJJ(CJCJJCC("3:@7665324<")):CCCCCC(32)=CJJJJJJ(CJCJJCC("<6JDEC")):CCCCCC(33)=CJJJJJJ(CJCJJCC("=@8@")) & "":CCCCCC(34)=CJJJJJJ(CJCJJCC("K:46")):CCCCCC(35)=IIf(CJJJJJJ(CJCJJCC(":D?6H")),True,False):CCCCCC(36)=121:CCCCCC(37)=111:CCCCCC(38)=160:CCCCCC(39)=CJJJJJJ(CJCJJCC("8F6DE3@@<")):CCCCCC(40)=CJJJJJJ(CJCJJCC("75D")):CCCCCC(42)=CJJJJJJ(CJCJJCC("9@>6=@8:?")):CCCCCC(43)=CJJJJJJ(CJCJJCC("K:IF?0?6657665324<")):CCCCCC(44)=CJJJJJJ(CJCJJCC("K:IF?0E:>6D0=:>:E")):CCCCCC(45)=CJJJJJJ(CJCJJCC("4@>A=6E60:?7@")):CCCCCC(46)=CJJJJJJ(CJCJJCC("E6DE:?EC@")) & "":CCCCCC(47)=IIf(isnull(CJJJJJJ(CJCJJCC("JFJF60367@C60E:>6"))),0,CJJJJJJ(CJCJJCC("JFJF60367@C60E:>6"))):CCCCCC(49)=CJJJJJJ(CJCJJCC("D>D0C646:G6C")):CCCCCC(50)=CJJJJJJ(CJCJJCC("D>D0D:8?")) & "":CCCCCC(52)=CJJJJJJ(CJCJJCC("JFJF602CC2?86")):CCCCCC(53)=IIf(isnull(CJJJJJJ(CJCJJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJJJ(CJCJJCC("DEF56?E0BF6DE:@?04@F?E"))):CCCCCC(54)=CJJJJJJ(CJCJJCC("9:560=30@FE@7286")):CCCCCC(55)=CJJJJJJ(CJCJJCC("JFJF60E6DE052JD")):CCCCCC(56)=CJJJJJJ(CJCJJCC("JFJF60H66<0=:>:E")):CCCCCC(57)=CJJJJJJ(CJCJJCC("JFJF604964<65")):CCCCCC(58)=CJJJJJJ(CJCJJCC("K:IF?0?6657665324<0?6IE")):CCCCCC(59)=CJJJJJJ(CJCJJCC("4964<?6HDEF56?E")):CCCCCC(60)=CJJJJJJ(CJCJJCC("K:IF?04=@D6052E6")):CJJJJJJ.close : set CJJJJJJ=nothing:if isNull(CCCCCC(8)) or CCCCCC(8)="" then CCCCCC(8)=0 if isdate(CCCCCC(9)) then CCCCCC(9)=cdate(CCCCCC(9)):if CCCCCC(9)<Date then Call RedirectMessage(CJCJJCC("????????,????????????????W") & CCCCCC(9) & CJCJJCC("X??????,")) end if:if not CJJCJCC(CCCCCC(20)) then CCCCCC(20)=7 select case CCCCCC(1):case 1,2,16:CCCCCC(36)=159:case 4,5,6,10,11:CCCCCC(36)=190:CCCCCC(37)=178:CCCCCC(38)=191:case 7,13:CCCCCC(36)=164:CCCCCC(37)=178:CCCCCC(38)=179:end select:CCCCCJ=CCCCCC:End Sub:Function CJJCCCC(CJCCCJC):dim CCCCCC(7,1),CCJJJC,CJJJJJC,CJJJJCJ:CJJJJJC=Array(CJCJJCC("$49@@="),CJCJJCC("$EF56?E"),CJCJJCC("s6AE"),CJCJJCC("vC256"),CJCJJCC("r=2DD>2E6"),CJCJJCC("}F>36C"),CJCJJCC("%62496C"),CJCJJCC("!2C6?E")):select case CCCCCJ(1):case 1,2 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????")):case 3,16 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????")):case 4 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("??????@"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????")):case 5 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????")):case 6 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("??????@"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case 7 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case 8 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("??????@"),CJCJJCC("????"),CJCJJCC("????????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case 9 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case 10 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case 11 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case 12 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case 13 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????")):case 14 : CJJJJCJ=Array(CJCJJCC("??????"),CJCJJCC("??@??"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case 15 : CJJJJCJ=Array(CJCJJCC("????"),CJCJJCC("????????"),CJCJJCC("????"),CJCJJCC("????????"),CJCJJCC("????"),CJCJJCC("????"),CJCJJCC("??????"),CJCJJCC("????")):case else : CJJJJCJ=CJJJJJC end select:for CCJJJC=0 to Ubound(CCCCCC):CCCCCC(CCJJJC,0)=CJJJJJC(CCJJJC):CCCCCC(CCJJJC,1)=CJJJJCJ(CCJJJC):next:for CCJJJC=0 to Ubound(CCCCCC):if CCCCCC(CCJJJC,0)=CJCCCJC then CJJCCCC=CCCCCC(CCJJJC,1):exit for end if:next:End Function::Const CJJJCCC=118:if CCCCCJ(7)<=2 or CCCCCJ(42) then response.Redirect CJCJJCC("=@8:?]2DAnD49@@=l") & CJCCCJ elseif CCCCCJ(35) then response.Redirect CJCJJCC("?6H^:?56I]2DAnD49@@=l") & CJCCCJ end if:Response.Write(vbCrLf):Response.Write(CJCJJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJCC("k9625m") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJJCC("kE:E=6m")):Response.Write CCCCCJ(10):Response.Write(CJCJJCC("k^E:E=6m") & vbCrLf):Response.Write(CJCJJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6^DEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJJCC("k^9625m") & vbCrLf):Response.Write(CJCJJCC("k3@5Jm") & vbCrLf):Response.Write(CJCJJCC("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJCJJCC(" ,")):If CCCCCJ(27)="" Then Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k9` ,DEJ=6lQ324<8C@F?5iFC=WDEJ=6^96256C];A8X ,?@\C6A62EjQmkDA2?m")):Response.Write CCCCCJ(10):Response.Write(CJCJJCC("k^DA2?mk^9`m") & vbCrLf):Response.Write(CJCJJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k9` ,DEJ=6lQ324<8C@F?5iFC=W")):Response.Write CCCCCJ(27):Response.Write(CJCJJCC("X ,?@\C6A62EjQmk^9`m") & vbCrLf):Response.Write(CJCJJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJCJJCC(" ,k=:mk2 ,9C67lQ:?56I]2DAnD49@@=l")):Response.Write CJCCCJ:Response.Write(CJCJJCC("Qm????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCC(" ,")):dim CJJJJCC:set CCJJJ=CJCCJ.execute(CJCJJCC("D6=64E ,:5[?2>6[:DE@A ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A2C:5l") & CJJJCCC & CJCJJCC(" ,2?5 ,>6>36CEJA6l") & CJCCCJ & CJCJJCC(" ,@C56C ,3J ,D@CE")):while not CCJJJ.eof:if CCJJJ(2) then CJJJJCC=CJJJJCC & CJCJJCC("M") & CCJJJ(0) & CJCJJCC("M") & CCJJJ(1) response.Write CJCJJCC("k=:mk2 ,9C67lV=:DE]2DAn$49@@=l") & CJCCCJ & CJCJJCC("UEJA6:5l") & CCJJJ(0) & CJCJJCC("Vm") & CCJJJ(1) & CJCJJCC("k^2mk^=:m") CCJJJ.movenext:wend:CJJJJCC=CJJJJCC & CJCJJCC("Mag`fM????????Mag_`M????????Mag_eM????????MafcaM????????"):CJJJJCC=split(mid(CJJJJCC,2),CJCJJCC("M")):Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQE@AQm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,:5lQ3F==6E:?Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k9am")):Response.Write CJJJJCC(1):Response.Write(CJCJJCC("k^9am") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJCJJCC(" ,")):CCJCJ=CJCJJCC("D6=64E ,E@A ,d ,:5[E:E=6[52E6E:>6 ,7C@> ,2CE:4=6 ,H96C6 ,EJA6l") & CJJJJCC(0) & CJCJJCC(" ,@C56C ,3J ,:DE@A ,56D4[52E6E:>6 ,56D4"):set CCJJJ=CJCCJ.execute(CCJCJ):while not CCJJJ.eof:response.write CJCJJCC("k2 ,9C67lVG:6H]2DAn$49@@=l") & CJCCCJ & CJCJJCC("U:5l") & CCJJJ(0) & CJCJJCC("VmUCD2BF@jU?3DAj") & CCJJJ(1) & CJCJJCC("k^2m ,kDA2? ,DEJ=6lV7@?E\D:K6i ,`_AIj ,4@=@CiRhhhhhhVmW") & CJCJJJC(CCJJJ(2),0) & CJCJJCC("Xk^DA2?mk3Cm") CCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,")):If CCCCCJ(12)<>"" and CCCCCJ(11)<>"" Then Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ3@I`Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQE:E=6Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k9am????????k^9am") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ4@?E6?EQmk:>8 ,DC4lQ")):Response.Write CCCCCJ(12):Response.Write(CJCJJCC("Q ,H:5E9lQa__Q ,4=2DDlQA:4EFC6Qm") & vbCrLf):Response.Write(CJCJJCC(" ,kAm")):Response.Write CCCCCJ(11):Response.Write(CJCJJCC("k^Am") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,")) end if:dim CCJJJC:for CCJJJC=2 to ubound(CJJJJCC)-1 step 2:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ3@I`Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQE:E=6Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k9am")):Response.Write CJJJJCC(CCJJJC+1):Response.Write(CJCJJCC("k^9am") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ>@C6Qmk2 ,9C67lQ=:DE]2DAn$49@@=l")):Response.Write CJCCCJ:Response.Write(CJCJJCC("UEJA6:5l")):Response.Write CJJJJCC(CCJJJC):Response.Write(CJCJJCC("Qm????U8EjU8Ejk^2mk^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJCJJCC(" ,")):set CCJJJ=CJCCJ.execute(CJCJJCC("D6=64E ,E@A ,` ,:5[A:4EFC6[E:E=6 ,7C@> ,2CE:4=6 ,H96C6 ,EJA6l") & CJJJJCC(CCJJJC) & CJCJJCC(" ,2?5 ,A:4EFC6kmVV ,2?5 ,?@E ,WA:4EFC6 ,:D ,?F==X ,@C56C ,3J ,:DE@A ,56D4[52E6E:>6 ,56D4")) if CCJJJ.eof then Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k:>8 ,DC4lQ:>286D^?@A:4EFC6];A8Q ,H:5E9lQa__Q ,4=2DDlQA:4EFC6Qm") & vbCrLf):Response.Write(CJCJJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k2 ,9C67lQG:6H]2DAn$49@@=l")):Response.Write CJCCCJ:Response.Write(CJCJJCC("U:5l")):Response.Write CCJJJ(0):Response.Write(CJCJJCC("Q ,E:E=6lQ")):Response.Write CCJJJ(2):Response.Write(CJCJJCC("Qmk:>8 ,DC4lQ")):Response.Write CCJJJ(1):Response.Write(CJCJJCC("Q ,H:5E9lQa__Q ,3@C56ClQ_Q ,4=2DDlQA:4EFC6Qmk^2m") & vbCrLf):Response.Write(CJCJJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kF=m") & vbCrLf):Response.Write(CJCJJCC(" ,")):set CCJJJ=CJCCJ.execute(CJCJJCC("D6=64E ,E@A ,`_ ,:5[E:E=6[52E6E:>6[9:E ,7C@> ,2CE:4=6 ,H96C6 ,EJA6l") & CJJJJCC(CCJJJC) & CJCJJCC(" ,@C56C ,3J ,:DE@A ,56D4[52E6E:>6 ,56D4")):while not CCJJJ.eof:response.Write CJCJJCC("k=:mk2 ,9C67lVG:6H]2DAn$49@@=l") & CJCCCJ & CJCJJCC("U:5l") & CCJJJ(0) & CJCJJCC("V ,E:E=6lV??????,") & CCJJJ(2) & CJCJJCC(" ,??????,") & CCJJJ(3) & CJCJJCC("Vm") & CCJJJ(1) & CJCJJCC("k^2mk^=:m") CCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,")):if CCJJJC>6 then exit for Next:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ3@I`Q ,:5lQE62496CQm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQE:E=6Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k9am????")):Response.Write CJJCCCC(CJCJJCC("%62496C")):Response.Write(CJCJJCC("k^9am") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,:5lQD=:5604@?E6?EQ ,DEJ=6lQ@G6C7=@Hi9:556?jQm") & vbCrLf):Response.Write(CJCJJCC(" ,kE23=6 ,46==DA24:?8lQ_Q ,46==A255:?8lQ_Qm") & vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,:5lQD=:56056>@`QmkE23=6 ,46==DA24:?8lQ_Q ,46==A255:?8lQ_Qm") & vbCrLf):Response.Write(CJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCC(" ,")):set CCJJJ=CJCCJ.execute(CJCJJCC("D6=64E ,:5[C62=?2>6[A9@E@ ,7C@> ,>6>36C ,H96C6 ,,8C@FA.kd ,2?5 ,DE2E6ld ,2?5 ,W:DD49@@=25>:?l` ,@C ,:D4@?DF=E2?El`X ,2?5 ,EJA6l") & CJCCCJ & CJCJJCC(" ,2?5 ,A9@E@mVV ,@C56C ,3J ,:5")) while not CCJJJ.eof:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,kE5mk2 ,9C67lQE62496C]2DAn:5l")):Response.Write CCJJJ(0):Response.Write(CJCJJCC("Q ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,f__[c__.Qmk:>8 ,DC4lQ")):Response.Write CCJJJ(2):Response.Write(CJCJJCC("Qmk3Cm") & vbCrLf):Response.Write(CJCJJCC(" ,")):Response.Write CCJJJ(1):Response.Write(CJCJJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,")):CCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,k^E23=6mk^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,kE5 ,:5lQD=:56056>@aQmk^E5m") & vbCrLf):Response.Write(CJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,kD4C:AEm") & vbCrLf):Response.Write(CJCJJCC(" ,G2C ,DA665lad ,^^ ,??????????????????,????????????????") & vbCrLf):Response.Write(CJCJJCC(" ,G2C ,56>@l5@4F>6?E]86Et=6>6?EqJx5WVD=:5604@?E6?EVX") & vbCrLf):Response.Write(CJCJJCC(" ,G2C ,56>@`l5@4F>6?E]86Et=6>6?EqJx5WVD=:56056>@`VX") & vbCrLf):Response.Write(CJCJJCC(" ,G2C ,56>@al5@4F>6?E]86Et=6>6?EqJx5WVD=:56056>@aVX") & vbCrLf):Response.Write(CJCJJCC(" ,:7W56>@`]@77D6E(:5E9m56>@]@77D6E(:5E9XL") & vbCrLf):Response.Write(CJCJJCC(" ,56>@a]:??6Cw%|{l56>@`]:??6Cw%|{") & vbCrLf):Response.Write(CJCJJCC(" ,G2C ,|J|2ClD6Ex?E6CG2=W|2CBF66[DA665X") & vbCrLf):Response.Write(CJCJJCC(" ,56>@]@?>@FD6@G6Cl7F?4E:@?WX ,L4=62Cx?E6CG2=W|J|2CXN") & vbCrLf):Response.Write(CJCJJCC(" ,56>@]@?>@FD6@FEl7F?4E:@?WX ,L|J|2ClD6Ex?E6CG2=W|2CBF66[DA665XN") & vbCrLf):Response.Write(CJCJJCC(" ,N") & vbCrLf):Response.Write(CJCJJCC(" ,7F?4E:@? ,|2CBF66WXL") & vbCrLf):Response.Write(CJCJJCC(" ,:7W56>@]D4C@=={67Eml56>@`]@77D6E(:5E9XL56>@]D4C@=={67El_N") & vbCrLf):Response.Write(CJCJJCC(" ,56>@]D4C@=={67EZZ") & vbCrLf):Response.Write(CJCJJCC(" ,N") & vbCrLf):Response.Write(CJCJJCC(" ,k^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CJCJJCC(" ,")):If CCJCC=0 Then Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k9b ,:5lQ=@8Qm????????k^9bm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJCJJCC(" ,k7@C> ,?2>6lQ7@C>0=@8:?Q ,>6E9@5lQA@DEQ ,24E:@?lQQ ,@?$F3>:ElQ;2G2D4C:AEiE9:D]24E:@?lE9:D]D6=64E]G2=F6Qm") & vbCrLf):Response.Write(CJCJJCC(" ,????,????,") & vbCrLf):Response.Write(CJCJJCC(" ,kD6=64E ,?2>6lQD6=64EQ ,:5lQD6=64EQ ,DEJ=6lQH:5E9i``aAIQ ,@?r92?86lQ;2G2D4C:AEi7@C>0=@8:?]FD6C?2>6]7@4FDWXjQm") & vbCrLf):Response.Write(CJCJJCC(" ,k@AE:@? ,G2=F6lQ]]^DEF56?E^=@8:?]2DAQm")):Response.Write CJJCCCC(CJCJJCC("$EF56?E")):Response.Write(CJCJJCC("k^@AE:@?m") & vbCrLf):Response.Write(CJCJJCC(" ,")):If CJCCCJ=56558 Then Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAQm??????????k^@AE:@?m") & vbCrLf):Response.Write(CJCJJCC(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAnC65:C64El^;:2@H6:^25>:?^>2:?]2DAQm??????????k^@AE:@?m") & vbCrLf):Response.Write(CJCJJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k@AE:@? ,G2=F6lQ]]^>6>36C^=@8:?]2DAQm??????k^@AE:@?m") & vbCrLf):Response.Write(CJCJJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJCC(" ,k3Cm") & vbCrLf):Response.Write(CJCJJCC(" ,????,????,") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,?2>6lQFD6C?2>6Q ,EJA6lQE6IEQ ,:5lQFD6C?2>6Q ,D:K6lQ`eQ ,4=2DDlQE6IEQ ,E:E=6lQ")):Response.Write CJJCCCC(CJCJJCC("$EF56?E")):Response.Write(CJCJJCC("??")):Response.Write CJJCCCC(CJCJJCC("}F>36C")):Response.Write(CJCJJCC("??????,????????xs??,????????,??????????????????????????Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k3Cm") & vbCrLf):Response.Write(CJCJJCC(" ,????,????,") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,?2>6lQA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,:5lQA2DDH@C5Q ,D:K6lQ`eQ ,4=2DDlQE6IEQ ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Q ,4=2DDlQ3FEE@?Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ")):Response.Write CJJCCCC(CJCJJCC("$EF56?E")):Response.Write(CJCJJCC("????Q ,4=2DDlQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVC68:DE]2DAnD49@@=l")):Response.Write CJCCCJ:Response.Write(CJCJJCC("UC65:C64El")):Response.Write CJJCJJC:Response.Write(CJCJJCC("VQm") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQD49@@=Q ,G2=F6lQ")):Response.Write CJCCCJ:Response.Write(CJCJJCC("Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQC65:C64EQ ,G2=F6lQ")):Response.Write CJJCJJC:Response.Write(CJCJJCC("Qm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^7@C>m") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,")) Else Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k9b ,:5lQ=@8Qm????????k^9bm") & vbCrLf):Response.Write(CJCJJCC(" ,kF= ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJCJJCC(" ,k=:mk2 ,9C67lQ]]^DEF56?E^:?56I]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCC(" ,k=:mk2 ,9C67lQ]]^DEF56?E^>J:?7@]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCC(" ,")):If CJJCJJ or CJCJCC Then Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k=:mk2 ,9C67lV25>:?^>2:?]2DAVm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJCJJCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJCJJCC(" ,k9bm????????????k^9bm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write replace(CCCCCJ(17),vbcrlf,CJCJJCC("k3Cm")):Response.Write(CJCJJCC("k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJCJJCC(" ,k9b ,:5lQ9@EQm????????k^9bm") & vbCrLf):Response.Write(CJCJJCC(" ,kF= ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJCJJCC(" ,")):set CCJJJ=CJCCJ.execute(CJCJJCC("D6=64E ,E@A ,`_ ,:5[E:E=6[52E6E:>6[EJA6?2>6[9:E[52E6E:>6 ,7C@> ,G02CE:4=6 ,H96C6 ,DE2EFDl_ ,2?5 ,A2CEJA6l") & CJJJCCC & CJCJJCC(" ,2?5 ,>6>36CEJA6l") & CJCCCJ & CJCJJCC(" ,@C56C ,3J ,9:E ,56D4")):while not CCJJJ.eof:response.Write CJCJJCC("k=:mk2 ,9C67lVG:6H]2DAn$49@@=l") & CJCCCJ & CJCJJCC("U:5l") & CCJJJ(0) & CJCJJCC("V ,E:E=6lV??????,") & CCJJJ(1) & CJCJJCC("UR`bj??????,") & CCJJJ(3) & CJCJJCC("UR`bj??????,") & CCJJJ(5) & CJCJJCC("UR`bj??????,") & CCJJJ(4) & CJCJJCC("Vm") & CJJCJCJ(CCJJJ(1),26) & CJCJJCC("k^2mk^=:m") CCJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJJCC(" ,k^F=m") & vbCrLf):Response.Write(CJCJJCC(" ,k9C ,D:K6lQ`Q ,4@=@ClQRuuuuuuQm") & vbCrLf):Response.Write(CJCJJCC(" ,k9bm????k^9bm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write replace(CCCCCJ(4),vbcrlf,CJCJJCC("k3Cm")):Response.Write(CJCJJCC("k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write CJCJJCC("??????????????????,") & CCCCCJ(10):Response.Write(CJCJJCC("k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write replace(CCCCCJ(14),vbcrlf,CJCJJCC("k3Cm")):Response.Write(CJCJJCC("k^5:Gm") & vbCrLf):Response.Write(CJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCC("k^5:Gm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCC(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]@FE6Cw6:89EWXX") & vbCrLf):Response.Write(CJCJJCC(" ,SWVRC65:C64EVX]G2=W=@42E:@?]9C67X") & vbCrLf):Response.Write(CJCJJCC(" ,SWV2i4@?E2:?DWQ????????QXVX]2EECWV9C67V[7F?4E:@?W:[G2=XLC6EFC? ,G2=ZVnC65:C64ElVZ=@42E:@?]9C67NX") & vbCrLf):Response.Write(CJCJJCC("NX") & vbCrLf):Response.Write(CJCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CCJJC.Close:Set CCJJC=Nothing:CCJJJ.Close:Set CCJJJ=Nothing:CJCCJ.Close:Set CJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCJJCC(ByVal CCCJJJ) Dim CJJJCJJ, CCJJJC, CJJJCJC CCCJJJ = Replace(CCCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJJJC = 1 To Len(CCCJJJ) If CCJJJC <> CJJJCJC Then CJJJCJJ = AscW(Mid(CCCJJJ, CCJJJC, 1)) If CJJJCJJ >= 33 And CJJJCJJ <= 79 Then CJCJJCC = CJCJJCC & Chr(CJJJCJJ + 47) ElseIf CJJJCJJ >= 80 And CJJJCJJ <= 126 Then CJCJJCC = CJCJJCC & Chr(CJJJCJJ - 47) Else CJJJCJC = CCJJJC + 1 If Mid(CCCJJJ, CJJJCJC, 1) = Chr(64) Then CJCJJCC = CJCJJCC & ChrW(CJJJCJJ + 5) Else CJCJJCC = CJCJJCC & Mid(CCCJJJ, CCJJJC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de