Edit D:\xinhaisoft\crisis_new\m\school\admin\yuyue.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJCCC, CCCJJJ,CCCJJC, CCCJCJ, CCCJCC:Set CCJCCC = server.CreateObject(CJJJCJJC("ps~sq]r@??64E:@?")):CCJCCC.open Application(CJJJCJJC("r@??64E:@?$EC:?8")):Set CCCJJJ=CCJCCC::Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ:CJJCCCJ=Trim(Request.Cookies(CJJJCJJC("!$*|t|qt#"))):if CJJCCCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCCJJ>0 then CCCJCC=CJJJCJJC("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") & CCCCJC & CJJJCJJC("V ,2?5 ,:5l") & CCCCJJ set CCCJJC=CCJCCC.execute(CCCJCC):If CCCJJC.EOF Then Call ClearMemberCookie Else CCCCCJ=CCCJJC(2) & "":CCCCCC=CCCJJC(3):CJJJJJJ=CCCJJC(5):CJJJJJC=CCCJJC(6):CJJJJCJ=CCCJJC(9):CJJJJCC=CCCJJC(15):CJJJCJC=CCCJJC(0):CJJCCJJ=CCCJJC(1):CJJCJCC=CCCJJC(11) & "":CJJJCCJ=CCCJJC(10) & "":CJJJCJJ=CCCJJC(12):CJJJCCC=CCCJJC(14):CJJCJJJ=CCCJJC(13):CJJCJJC=CCCJJC(7) & "":CJJCJCJ=CCCJJC(4):CJJCCJC=CCCJJC(8):if isnull(CJJJJCC) then CJJJJCC=0 if isnull(CJJJJCJ) or CJJJJCJ=0 then CJJJJCJ=CCCCCC if isnull(CJJCJCJ) then CJJCJCJ=0 if isnull(CJJJJJJ) then CJJJJJJ=0 if instr(CJJJCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJC)>0 then Call RedirectMessage(CJJJCJJC("????????,????????????????????????????????,")) Call SetMemberCookie(CCCCJJ,CCCCJC) End IF end if:::Sub CheckLogined():if CCCCJJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJJCCCC:CJJCCCC=trim(request.QueryString(CJJJCJJC("D49@@="))):if isnumeric(CJJCCCC) then response.Redirect CJJJCJJC("^>^G2?E^R^D49@@=^") & CJJCCCC & CJJJCJJC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CJJJCJJC("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJCJJC("!$*|t|qt#"))="":CCCCJJ=0:CJJJJJC=0:CCCCJC=Empty:CJJJJJJ=0:CJJJJCC=0:CJJJJCJ=0:CCCCCC=0:CJJJCJC=False:CJJCCJJ=False:CJJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:CJCJJJJ=split(CJJCCCJ,CJJJCJJC("]")):if ubound(CJCJJJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCJJJJ(0)) or len(CJCJJJJ(1))<>32 or len(CJCJJJJ(2))<>32 then Call ClearMemberCookie else CJCJJJC=CJCJJJJ(1):for CJCJJCJ=1 to len(CJCJJJC):CJCJJCC=mid(CJCJJJC,CJCJJCJ,1):if isnumeric(CJCJJCC) then CJCJCJJ=CJCJCJJ & CJCJJCC if len(CJCJCJJ)=7 then exit for next:CJCJJJC=CJCJJJJ(2):if CJCJCJJ<>mid(CJCJJJC,6,7) then Call ClearMemberCookie else CJCJJCC=mid(CJCJJJC,18,10)/2:if CJCJJCC<DateDiff(CJJJCJJC("D"), CJJJCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCCCJJ=Clng(CJCJJJJ(0)):CCCCJC=CJCJJJJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CCCJJJC,CJJJCJCJ):dim CJCJJCJ,CJCJJCC,CJCJCJJ:for CJCJJCJ=1 to len(CJJJCJCJ):CJCJJCC=mid(CJJJCJCJ,CJCJJCJ,1):if isnumeric(CJCJJCC) then CJCJCJJ=CJCJCJJ & CJCJJCC if len(CJCJCJJ)=7 then exit for next:CJCJCJJ=CCCJJJC & CJJJCJJC("]") & CJJJCJCJ & CJJJCJJC("]") & Fix(10000*(Rnd+1)) & CJCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCJJC("D"), CJJJCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCJJC("!$*|t|qt#"))=CJCJCJJ:End Sub::Function CCCJCCJ(CJJJCJCC):Dim str,CJCJCCJ:str = Trim(CJJJCJCC):If IsNull(str) Or str = "" Then CCCJCCJ = "" else str=Replace(str, CJJJCJJC("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJCJJC("k:7C2>6"), CJJJCJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJCJJC("kD4C:AE"), CJJJCJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJCCJ=new RegExp:CJCJCCJ.Pattern=CJJJCJJC("@?W,2\K.ZXl"):CJCJCCJ.IgnoreCase = True:CJCJCCJ.Global=True:str=CJCJCCJ.Replace(str,CJJJCJJC("@?S`U6BF2=Dj")):set CJCJCCJ=nothing:CCCJCCJ=str End If:End Function:Function IIf(CJJJCCJJ, CJJJCCJC, CJJJCCCJ):if isnull(CJJJCCJJ) or isempty(CJJJCCJJ) then IIf = CJJJCCCJ elseif CJJJCCJJ Then IIf = CJJJCCJC Else IIf = CJJJCCCJ end if:End Function:Const CCCJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCJJC("FE7\g"):dim CJCJJCJ,CJCJJCC,CJCJCCC:if isarray(str) then on error resume next:CJCJJCJ=ubound(str,2):CJCJCCC=err.number:err.clear:on error goto 0:if CJCJCCC<>0 then for CJCJJCJ=0 to ubound(str):if CJCJJCJ>0 then response.Write CJJJCJJC("k3C ,^m") response.Write CJCJJCJ & CJJJCJJC("i ,") & str(CJCJJCJ):next else response.Write CJJJCJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCJJCJ=0 to ubound(str,2):response.Write CJJJCJJC("kE9 ,2=:8?lV=67EVm") & CJCJJCJ & CJJJCJJC("k^E9m") next:response.Write CJJJCJJC("k^ECm"):for CJCJJCJ=0 to ubound(str):response.Write CJJJCJJC("kECmkE9m") & CJCJJCJ & CJJJCJJC("k^E9m"):for CJCJJCC=0 to ubound(str,2):response.Write CJJJCJJC("kE5m") & str(CJCJJCJ,CJCJJCC) & CJJJCJJC("k^E5m"):next:response.Write CJJJCJJC("k^ECm"):next:response.Write CJJJCJJC("k^E23=6m") end if elseif isnull(str) then response.Write CJJJCJJC(",}F==.") else Response.Write replace(str,vbcrlf,CJJJCJJC("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCCC,CJJCJJJJ):dim CJCJJJJ:CJCJJJJ=CJJJCCCC & CJJJCJJC("l") & CJJCJJJJ & CJJJCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCJJC("$6E\r@@<:6"),CJCJJJJ):End Sub:::::::Function CCCCJJJ(CJCJCCC):if isnull(CJCJCCC) or trim(CJCJCCC)="" or not isnumeric(CJCJCCC) then CCCCJJJ=false else Dim CJCJCCJ:Set CJCJCCJ = New RegExp:CJCJCCJ.Pattern = CJJJCJJC("/-5ZS"):CJCJCCJ.IgnoreCase = True:CCCCJJJ = CJCJCCJ.test(CJCJCCC):set CJCJCCJ=nothing end if:End Function:Function CCCCJJC(CJJCJJJC):dim CJCCJJJ,CJCCJJC:CJCCJJJ=CJJJCJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJJC & CJJJCJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJJC=CCJCCC.execute(CJCCJJJ):CCCCJJC = CJCCJJC(0):if isnull(CCCCJJC) then CCCCJJC=1 CJCCJJC.close : set CJCCJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJCJ=nothing:set CCCCJCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:CJCCJJC.close : set CJCCJJC=nothing:CCCJCJ.Close : Set CCCJCJ=Nothing:CCCJJC.Close : Set CCCJJC=Nothing:CCCCCJC.Close : Set CCCCCJC = Nothing:CCJCCC.Close : Set CCJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCJJC("!$*0|6DD286"),server.URLEncode(CJJCJJCJ)):Response.Redirect CJJJCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCCCCJ(ByVal CCCCCCC,style):if not isdate(CCCCCCC) then CCCCCCJ=CCCCCCC:exit function end if:dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CCCCCCC=cdate(CCCCCCC):CJCCJCJ=Year(CCCCCCC):CJCCJCC=Month(CCCCCCC):CJCCCJJ=Day(CCCCCCC):select case style:case 0:CCCCCCJ=CJCCJCJ & CJJJCJJC("\") & right(0 & CJCCJCC,2) & CJJJCJJC("\") & right(0 & CJCCCJJ,2):case 1:CCCCCCJ=CJCCJCJ & right(0 & CJCCJCC,2) & right(0 & CJCCCJJ,2):case 2:CCCCCCJ=right(CJCCJCJ,2) & CJJJCJJC("\") & right(0 & CJCCJCC,2) & CJJJCJJC("\") & right(0 & CJCCCJJ,2):case 3:CCCCCCJ=CJCCJCJ & CJJJCJJC("\") & right(0 & CJCCJCC,2):case 4:CCCCCCJ=right(0 & CJCCJCC,2) & CJJJCJJC("\") & right(0 & CJCCCJJ,2):case 5:CCCCCCJ=right(0 & CJCCCJJ,2):case 6:CCCCCCJ=CJCCJCJ & CJJJCJJC("??") & right(0 & CJCCJCC,2) & CJJJCJJC("??") & right(0 & CJCCCJJ,2) & CJJJCJJC("??"):case else CCCCCCJ=CCCCCCC:end select:End Function:::::::Function CJJJJJJJ(CCCJJC):dim CJCJJCJ,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC:CCJJJJC=CCCJJC.fields.count-1:do while not CCCJJC.eof:CJCCCCJ=CJCCCCJ & CJJJCJJC("[L"):for CJCJJCJ=0 to CCJJJJC:CJCCCCC=CCCJJC(CJCJJCJ).value:if CJCJJCJ>0 then CJCCCCJ=CJCCCCJ & CJJJCJJC("[") CJCCCCJ=CJCCCCJ & CJJJCJJC("Q") & CCCJJC(CJCJJCJ).name & CJJJCJJC("Qi"):if isnull(CJCCCCC) or CJCCCCC="" then CJCCCCJ=CJCCCCJ & CJJJCJJC("QQ") elseif CCCJJC(CJCJJCJ).type=11 then CJCCCCJ=CJCCCCJ & IIf(CJCCCCC,1,0) elseif isnumeric(CJCCCCC) and instr(CJCCCCC,CJJJCJJC("["))=0 and len(CJCCCCC)<7 then CJCCCCJ=CJCCCCJ & CJCCCCC elseif lcase(CJCCCCC)=CJJJCJJC("ECF6") then CJCCCCJ=CJCCCCJ & CJJJCJJC("ECF6") elseif lcase(CJCCCCC)=CJJJCJJC("72=D6") then CJCCCCJ=CJCCCCJ & CJJJCJJC("72=D6") elseif isdate(CJCCCCC) then CJCCCCJ=CJCCCCJ & CJJJCJJC("Q") & replace(CJCCCCC,CJJJCJJC("^"),CJJJCJJC("\")) & CJJJCJJC("Q") else CCJJJJJ=CJCCCCC:CCJJJJJ=replace(CCJJJJJ,vbcrlf,CJJJCJJC("-?")):CCJJJJJ=replace(CCJJJJJ,chr(9),""):CCJJJJJ=replace(CCJJJJJ,CJJJCJJC("Q"),CJJJCJJC("-Q")):CJCCCCJ=CJCCCCJ & CJJJCJJC("Q") & CCJJJJJ & CJJJCJJC("Q") end if:next:CJCCCCJ=CJCCCCJ & CJJJCJJC("N"):CCCJJC.movenext:if CCCJJC.eof then exit do loop:if CJCCCCJ<>"" then CJCCCCJ=mid(CJCCCCJ,2) CJJJJJJJ=CJJJCJJC(",") & CJCCCCJ & CJJJCJJC("."):End Function:Function CJJJJJJC(CCCJCC):dim CJCCJJC:set CJCCJJC=CCJCCC.execute(CCCJCC):CJJJJJJC=CJJJJJJJ(CJCCJJC):CJCCJJC.close:set CJCCJJC=nothing:End Function::::::::::::Sub ClearCache(CJJCJJCC):Application.Contents.Remove CJJCJJCC End Sub::Class jTree:Private CCCJCC, CCJJJCJ, CCJJJCC, CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ:Private Sub Class_Initialize():CCJJJCC = 0:CCJJCJJ = 0:CCJCJJJ=10:End Sub:Public Property Let CJJJJJCJ(value):if value="" then Call RedirectMessage(CJJJCJJC("????????,;%C66????????????????????@??????????,")) CCJJCJC=value:CCJJCCJ=CJJJCJJC("!$*0") & UCase(CCJJCJC):Call GetTreeArray:End Property:Public Property Get CJJJJJCJ():CJJJJJCJ=CCJJCJC:End Property::Public Property Get Count():Count=CCJJCJJ-CCJCJJJ:End Property:Private Sub GetTreeArray():Dim CJCJJCJ, CJCJJCC, CCJCJJC,CCJCJCJ:CCJJJCJ = Application(CCJJCCJ):If Not IsArray(CCJJJCJ) Then CCCJCC = CJJJCJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCJC:if CCJJCCC<>"" then CCCJCC=CCCJCC & CJJJCJJC(" ,H96C6 ,") & CCJJCCC set CCJCJJC=CCJCCC.execute(CCCJCC):CCJCJCJ=CCJCJJC(0):if CCJCJCJ=0 then Call RedirectMessage(CJJJCJJC("????W") & CCJJCJC & CJJJCJJC("^") & CCJJCCC & CJJJCJJC("X????????????")) CCJJCJJ=CCJCJCJ+CCJCJJJ:ReDim CCJJJCJ(CCJJCJJ, 4):CCCJCC = CJJJCJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJC & CJJJCJJC(" ,H:E9 ,W?@=@4<X"):if CCJJCCC<>"" then CCCJCC=CCCJCC & CJJJCJJC(" ,H96C6 ,") & CCJJCCC CCCJCC=CCCJCC & CJJJCJJC(" ,@C56C ,3J ,D@CE[:5"):set CCJCJJC=CCJCCC.execute(CCCJCC):For CJCJJCJ = 1 To CCJCJCJ:For CJCJJCC = 0 To 4:CCJJJCJ(CJCJJCJ, CJCJJCC) = CCJCJJC(CJCJJCC):if IsNull(CCJJJCJ(CJCJJCJ,4)) then CCJJJCJ(CJCJJCJ,4)=0 If CCJJJCJ(CJCJJCJ,2)="" then CCJJJCJ(CJCJJCJ,2)=CJJJCJJC(",??.") Next:CCJCJJC.MoveNext:Next:CCJCJJC.Close: Set CCJCJJC = Nothing:for CJCJJCJ=CCJJCJJ-(CCJCJJJ-1) to CCJJCJJ:CCJJJCJ(CJCJJCJ,0)=CJCJJCJ:next:Application.Lock():Application(CCJJCCJ) = CCJJJCJ:Application.UnLock() else CCJJCJJ=Ubound(CCJJJCJ) End If:End Sub:::::Private Function CJJJJCJJ(CCCJJJC):dim CJCJJCJ,CCJCJCC:CJJJJCJJ=0:CCJCJCC=CStr(CCCJJJC):if CCJCJCC<>"0" then for CJCJJCJ=1 to CCJJCJJ:If CStr(CCJJJCJ(CJCJJCJ, 0))=CCJCJCC Then CJJJJCJJ = CJCJJCJ:Exit For End If:Next end if:End Function::::Public Function CJJJJCJC(CCCJJJC):Dim CJCJJCJ,CCJCCJJ:CJCJJCJ=CJJJJCJJ(CCCJJJC):if CJCJJCJ=0 then CCJCCJJ=CJJJJCCJ(CCCJJJC) else CCJCCJJ=CCJJJCJ(CJCJJCJ,3):if isnull(CCJCCJJ) or CCJCCJJ="" then CCJCCJJ=CJJJJCCJ(CCCJJJC) elseif Mid(CCJCCJJ,instrrev(CCJCCJJ,CJJJCJJC("["))+1)<>CStr(CCCJJJC) then CCJCCJJ=CJJJJCCJ(CCCJJJC) elseif Left(CCJCCJJ,1)=CJJJCJJC("[") then CCJCCJJ=CJJJJCCJ(CCCJJJC) end if end if:CJJJJCJC=CCJCCJJ:End Function:Private Function CJJJJCCJ(CCCJJJC):dim CCJCJCC:CCJCJCC=CStr(CCCJJJC):if CCJCJCC="0" then CJJJJCCJ="" else dim CCJCJJC:set CCJCJJC=CCJCCC.execute(CJJJCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJC & CJJJCJJC(" ,H96C6 ,:5l") & CCCJJJC):if CCJCJJC.eof then Call UpdateCache(CCCJJJC,"","","",""):Call RedirectMessage(CJJJCJJC("??????,xs??,") & CCCJJJC & CJJJCJJC("??,????????,????????????????????,")) else if CCJCJJC(0)=0 then CJJJJCCJ="0," & CCCJJJC else CJJJJCCJ=CJJJJCJC(CCJCJJC(0)) & CJJJCJJC("[") & CCCJJJC end if:if CCJCJJC(2)<>CJJJJCCJ then CCJCCC.execute CJJJCJJC("FA52E6 ,") & CCJJCJC & CJJJCJJC(" ,D6E ,A2E9lV") & CJJJJCCJ & CJJJCJJC("V ,H96C6 ,:5l") & CCCJJJC else CJJJJCCJ=CCJCJJC(2) end if end if:Call UpdateCache(CCCJJJC,CCJCJJC(0),CCJCJJC(1),CJJJJCCJ,CCJCJJC(3)):CCJCJJC.Close: Set CCJCJJC = Nothing end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJCCJ End Sub:Public Sub UpdateCache(CCCJJJC,CJJCJCJC,name,CCJCCJJ,CJJCJCCC):dim CJCJJCJ,CJCJJCC:CCCJJJC=CLng(CCCJJJC):CJCJJCJ=CJJJJCJJ(CCCJJJC):if CJJCJCJC="" and name="" and CCJCCJJ="" and CJJCJCCC="" then if CJCJJCJ>0 then for CJCJJCC=1 to 4:CCJJJCJ(CJCJJCJ,CJCJJCC)=Null:next end if else if CJCJJCJ=0 then for CJCJJCC=1 to CCJJCJJ:if CCJJJCJ(CJCJJCC,1) & ""="" then CJCJJCJ=CJCJJCC:exit for end if:next end if:if CJCJJCJ=0 then Call ClearCache else CCJJJCJ(CJCJJCJ,0)=CLng(CCCJJJC):if CJJCJCJC<>"" then CCJJJCJ(CJCJJCJ,1)=CLng(CJJCJCJC) if name<>"" then CCJJJCJ(CJCJJCJ,2)=name if CCJCCJJ<>"" then CCJJJCJ(CJCJJCJ,3)=CCJCCJJ if CJJCJCCC<>"" then CCJJJCJ(CJCJJCJ,4)=CLng(CJJCJCCC) end if end if:if CJCJJCJ>0 then Application.Lock():Application(CCJJCCJ) = CCJJJCJ:Application.UnLock() end if:End Sub:Private Sub Debug(CJJCJJCJ):Call ConnClose:Response.Write CJJCJJCJ:Response.End:End Sub:Private Function CCCCJJC():CCCCJJC=CJJJJCCC+1:End Function:Private Function CJJJJCCC():dim CJCCJJC:set CJCCJJC=CCJCCC.execute(CJJJCJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCJC & CJJJCJJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCCC=CJCCJJC(0):CJCCJJC.Close: Set CJCCJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCCCC:CCCJCC=Request.ServerVariables(CJJJCJJC("!p%w0x}u~")):if instr(CCCJCC,CJJJCJJC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJJCJC and not CJJCCJJ then Call RedirectMessage(CJJJCJJC("????????,????????????????????????,")) CJJCCCC=CJJJJCJ elseif instr(CCCJCC,CJJJCJJC("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJCC,CJJJCJJC("^DEF56?E^"))>0 then Call CheckLogined:CJJCCCC=CJJJJCJ elseif instr(CCCJCC,CJJJCJJC("^D49@@="))>0 then CJJCCCC=Request.QueryString(CJJJCJJC("D49@@=")):if not CCCCJJJ(CJJCCCC) then CJJCCCC=Request.QueryString(CJJJCJJC("F")) if not CCCCJJJ(CJJCCCC) then CJJCCCC=Request.QueryString(CJJJCJJC("D4")) if not CCCCJJJ(CJJCCCC) then Call RedirectMessage(CJJJCJJC("????????W$49@@=X??@??????????,")) CJJCCCC=csng(CJJCCCC) end if:if CJJCCCC=0 then Call RedirectMessage(CJJJCJJC("????????W$49@@=X????W_X??,")) Dim CCJCCJC:Call SetConfig:Sub SetConfig():dim CCJCCCJ,CJCCJJC:CCCJCC=CJJJCJJC("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") & CJJCCCC:set CJCCJJC=CCJCCC.execute(CCCJCC):if CJCCJJC.eof then Call RedirectMessage(CJJJCJJC("??W") & CCCCJJ & CJJJCJJC("X??????????W") & CJJCCCC & CJJJCJJC("X????????,")) ReDim CCJCCCJ(61):CCJCCCJ(0)=CJCCJJC(CJJJCJJC(";:2@H6:")) & "":CCJCCCJ(1)=CJCCJJC(CJJJCJJC("EJA6")):CCJCCCJ(2)=CJCCJJC(CJJJCJJC("D>D")):CCJCCCJ(3)=CJCCJJC(CJJJCJJC("4FDE@>8C@FA")) & "":CCJCCCJ(4)=CJCCJJC(CJJJCJJC("D:5632C0@E96C")) & "":CCJCCCJ(5)=IIf(isnull(CJCCJJC(CJJJCJJC("E6DEC6DF=EG:6H"))),0,CJCCJJC(CJJJCJJC("E6DEC6DF=EG:6H"))):CCJCCCJ(6)=CJCCJJC(CJJJCJJC("K:IF?E:>6")):CCJCCCJ(7)=CJCCJJC(CJJJCJJC("766")):CCJCCCJ(8)=CJCCJJC(CJJJCJJC("C6E6DE52J")):CCJCCCJ(9)=CJCCJJC(CJJJCJJC("6IA:C652E6")):CCJCCCJ(10)=CJCCJJC(CJJJCJJC("E:E=6")):CCJCCCJ(11)=CJCCJJC(CJJJCJJC(":?EC@")) & "":CCJCCCJ(12)=CJCCJJC(CJJJCJJC("A:4EFC6")) & "":CCJCCCJ(13)=CJCCJJC(CJJJCJJC("72>:=J")):CCJCCCJ(14)=CJCCJJC(CJJJCJJC("4@AJC:89E")) & "":CCJCCCJ(15)=IIf(isnull(CJCCJJC(CJJJCJJC("D6>6DE6C0DE2CE052E6"))),CJJJCJJC("`h__\`\`"),CJCCJJC(CJJJCJJC("D6>6DE6C0DE2CE052E6"))):CCJCCCJ(16)=IIf(isnull(CJCCJJC(CJJJCJJC("K:IF?0E:>6D09:89=:89E"))),0,CJCCJJC(CJJJCJJC("K:IF?0E:>6D09:89=:89E"))):CCJCCCJ(17)=CJCCJJC(CJJJCJJC("4@?E24E")) & "":CCJCCCJ(18)=CJCCJJC(CJJJCJJC("D2?5E23=6")):CCJCCCJ(19)=CJCCJJC(CJJJCJJC("4C:D:D")):CCJCCCJ(20)=CJCCJJC(CJJJCJJC("JJ52E6")):CCJCCCJ(21)=CJCCJJC(CJJJCJJC("BB")):CCJCCCJ(22)=CJCCJJC(CJJJCJJC("JFJF60D>D0EA=")) & "":CCJCCCJ(23)=CJCCJJC(CJJJCJJC("JFJF60E6DE0=3")) & "":CCJCCCJ(25)=CJCCJJC(CJJJCJJC("6IA6CE")):CCJCCCJ(26)=CJCCJJC(CJJJCJJC(">@5:?7@")):CCJCCCJ(27)=CJCCJJC(CJJJCJJC("9@>6A286E@AA:4EFC6")) & "":CCJCCCJ(28)=CJCCJJC(CJJJCJJC("4C:D:D=3")):CCJCCCJ(29)=IIf(CJCCJJC(CJJJCJJC("4C:D:D@=5")),False,True):CCJCCCJ(30)=CJCCJJC(CJJJCJJC("8C@FA8F:52?46")):CCJCCCJ(31)=CJCCJJC(CJJJCJJC("3:@7665324<")):CCJCCCJ(32)=CJCCJJC(CJJJCJJC("<6JDEC")):CCJCCCJ(33)=CJCCJJC(CJJJCJJC("=@8@")) & "":CCJCCCJ(34)=CJCCJJC(CJJJCJJC("K:46")):CCJCCCJ(35)=IIf(CJCCJJC(CJJJCJJC(":D?6H")),True,False):CCJCCCJ(36)=121:CCJCCCJ(37)=111:CCJCCCJ(38)=160:CCJCCCJ(39)=CJCCJJC(CJJJCJJC("8F6DE3@@<")):CCJCCCJ(40)=CJCCJJC(CJJJCJJC("75D")):CCJCCCJ(42)=CJCCJJC(CJJJCJJC("9@>6=@8:?")):CCJCCCJ(43)=CJCCJJC(CJJJCJJC("K:IF?0?6657665324<")):CCJCCCJ(44)=CJCCJJC(CJJJCJJC("K:IF?0E:>6D0=:>:E")):CCJCCCJ(45)=CJCCJJC(CJJJCJJC("4@>A=6E60:?7@")):CCJCCCJ(46)=CJCCJJC(CJJJCJJC("E6DE:?EC@")) & "":CCJCCCJ(47)=IIf(isnull(CJCCJJC(CJJJCJJC("JFJF60367@C60E:>6"))),0,CJCCJJC(CJJJCJJC("JFJF60367@C60E:>6"))):CCJCCCJ(49)=CJCCJJC(CJJJCJJC("D>D0C646:G6C")):CCJCCCJ(50)=CJCCJJC(CJJJCJJC("D>D0D:8?")) & "":CCJCCCJ(52)=CJCCJJC(CJJJCJJC("JFJF602CC2?86")):CCJCCCJ(53)=IIf(isnull(CJCCJJC(CJJJCJJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJJC(CJJJCJJC("DEF56?E0BF6DE:@?04@F?E"))):CCJCCCJ(54)=CJCCJJC(CJJJCJJC("9:560=30@FE@7286")):CCJCCCJ(55)=CJCCJJC(CJJJCJJC("JFJF60E6DE052JD")):CCJCCCJ(56)=CJCCJJC(CJJJCJJC("JFJF60H66<0=:>:E")):CCJCCCJ(57)=CJCCJJC(CJJJCJJC("JFJF604964<65")):CCJCCCJ(58)=CJCCJJC(CJJJCJJC("K:IF?0?6657665324<0?6IE")):CCJCCCJ(59)=CJCCJJC(CJJJCJJC("4964<?6HDEF56?E")):CCJCCCJ(60)=CJCCJJC(CJJJCJJC("K:IF?04=@D6052E6")):CJCCJJC.close : set CJCCJJC=nothing:if isNull(CCJCCCJ(8)) or CCJCCCJ(8)="" then CCJCCCJ(8)=0 if isdate(CCJCCCJ(9)) then CCJCCCJ(9)=cdate(CCJCCCJ(9)):if CCJCCCJ(9)<Date then Call RedirectMessage(CJJJCJJC("????????,????????????????W") & CCJCCCJ(9) & CJJJCJJC("X??????,")) end if:if not CCCCJJJ(CCJCCCJ(20)) then CCJCCCJ(20)=7 select case CCJCCCJ(1):case 1,2,16:CCJCCCJ(36)=159:case 4,5,6,10,11:CCJCCCJ(36)=190:CCJCCCJ(37)=178:CCJCCCJ(38)=191:case 7,13:CCJCCCJ(36)=164:CCJCCCJ(37)=178:CCJCCCJ(38)=179:end select:CCJCCJC=CCJCCCJ:End Sub:Function CCCCCJJ(CJJCCJJJ):dim CCJCCCJ(7,1),CJCJJCJ,CCJCCCC,CCCJJJJ:CCJCCCC=Array(CJJJCJJC("$49@@="),CJJJCJJC("$EF56?E"),CJJJCJJC("s6AE"),CJJJCJJC("vC256"),CJJJCJJC("r=2DD>2E6"),CJJJCJJC("}F>36C"),CJJJCJJC("%62496C"),CJJJCJJC("!2C6?E")):select case CCJCCJC(1):case 1,2 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????")):case 3,16 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????")):case 4 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("??????@"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????")):case 5 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????")):case 6 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("??????@"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case 7 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case 8 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("??????@"),CJJJCJJC("????"),CJJJCJJC("????????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case 9 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case 10 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case 11 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case 12 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case 13 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????")):case 14 : CCCJJJJ=Array(CJJJCJJC("??????"),CJJJCJJC("??@??"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case 15 : CCCJJJJ=Array(CJJJCJJC("????"),CJJJCJJC("????????"),CJJJCJJC("????"),CJJJCJJC("????????"),CJJJCJJC("????"),CJJJCJJC("????"),CJJJCJJC("??????"),CJJJCJJC("????")):case else : CCCJJJJ=CCJCCCC end select:for CJCJJCJ=0 to Ubound(CCJCCCJ):CCJCCCJ(CJCJJCJ,0)=CCJCCCC(CJCJJCJ):CCJCCCJ(CJCJJCJ,1)=CCCJJJJ(CJCJJCJ):next:for CJCJJCJ=0 to Ubound(CCJCCCJ):if CCJCCCJ(CJCJJCJ,0)=CJJCCJJJ then CCCCCJJ=CCJCCCJ(CJCJJCJ,1):exit for end if:next:End Function::dim CCCJJJC:CCCJJJC=request.querystring(CJJJCJJC(":5")):if CCCCJJJ(CCCJJJC) then dim CJCCCCJ:CCCJCC=CJJJCJJC("D6=64E ,E@A ,` ,Y ,7C@> ,G0KI ,H96C6 ,:5l") & CCCJJJC & CJJJCJJC(" ,2?5 ,4@?DF=E2?El") & CCCCJJ:CJCCCCJ=CJJJJJJC(CCCJCC):response.charset="utf-8":response.write CJCCCCJ:Call ConnClose:response.end end if:If Request.ServerVariables(CJJJCJJC("#t""&t$%0|t%w~s"))=CJJJCJJC("!~$%") then dim CCCJJCJ:CCCJJJC=Request.Form(CJJJCJJC(":5")):CCCJJCJ=Request.Form(CJJJCJJC("DE2EFD")):CCCJCC=CJJJCJJC("FA52E6 ,KI ,D6E") & CJJJCJJC(" ,DE2EFDl") & CCCJJCJ & CJJJCJJC("[C6A=JlV") & CCCJCCJ(Request.Form(CJJJCJJC("C6A=J"))) & CJJJCJJC("V") & CJJJCJJC(" ,H96C6 ,:5l") & CCCJJJC & CJJJCJJC(" ,2?5 ,4@?DF=E2?El") & CCCCJJ CCJCCC.execute CCCJCC:Call ConnClose:response.end end if:Response.Write(vbCrLf):Response.Write(CJJJCJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCJJC("k9625m") & vbCrLf):Response.Write(CJJJCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCJJC("kE:E=6m")):Response.Write CCJCCJC(10):Response.Write(CJJJCJJC("\????k^E:E=6m") & vbCrLf):Response.Write(CJJJCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJJCJJC("E6>A=2E6[ ,]E6>A=2E6[ ,,52E2\E6>A=2E6. ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCJJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,Rugugugj ,N") & vbCrLf):Response.Write(CJJJCJJC("96256C ,L ,>2C8:?\3@EE@>i ,`]dC6>j ,N") & vbCrLf):Response.Write(CJJJCJJC("]=@25:?8 ,L ,H:5E9i ,`eAIj ,96:89Ei ,``AIj ,>2C8:?i ,_ ,2FE@j ,324<8C@F?5i ,FC=W]]^]]^]]^:>286D^=@25:?8]8:7X ,?@\C6A62Ej ,N") & vbCrLf):Response.Write(CJJJCJJC("]2>\=:DEm=: ,L ,3@C56C\=67Ei ,_j ,3@C56C\C:89Ei ,_j ,N") & vbCrLf):Response.Write(CJJJCJJC("]2>\=:DEm=:m]2>\32586 ,L ,7@?E\H6:89Ei ,?@C>2=j ,>2C8:?\E@Ai ,`dAIj ,>2C8:?\C:89Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJJCJJC("]2>\A@AFA\35 ,L ,324<8C@F?5\4@=@Ci ,R777j ,N") & vbCrLf):Response.Write(CJJJCJJC("E5]2>\DF446DD[ ,E5]2>\AC:>2CJ ,L ,E6IE\2=:8?i ,C:89Ej ,N") & vbCrLf):Response.Write(CJJJCJJC("=236= ,L ,7@?E\H6:89Ei ,c__j ,5:DA=2Ji ,3=@4<j ,N") & vbCrLf):Response.Write(CJJJCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCJJC("k^9625m") & vbCrLf):Response.Write(CJJJCJJC("k3@5Jm") & vbCrLf):Response.Write(CJJJCJJC("kP\\ ,???? ,\\m") & vbCrLf):Response.Write(CJJJCJJC("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQmk2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m ,k2 ,9C67lQ:?56I]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm????????k^9`m") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQ2>\96256C\C:89E ,2>\96256C\?2GQmk2 ,9C67lQ>J]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\FD6CQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJJJCJJC("k^96256Cm") & vbCrLf):Response.Write(CJJJCJJC("kP\\ ,???????? ,\\m") & vbCrLf)::dim CCCJJCC:set CCCJJC=CCJCCC.execute(CJJJCJJC("D6=64E ,:5[C62=?2>6[JJ52E6[JJE:>6[DE2EFD ,7C@> ,G0KI ,H96C6 ,DE2EFDklb ,2?5 ,JJ52E6mlV") & CCCCCCJ(Date,0) & CJJJCJJC("V ,2?5 ,4@?DF=E2?El") & CCCCJJ & CJJJCJJC(" ,2?5 ,>6>36C0EJA60E@Al") & CJJCCCC & CJJJCJJC(" ,@C56C ,3J ,JJ52E6[JJE:>6")) if CCCJJC.eof then Response.Write(vbCrLf):Response.Write(CJJJCJJC("k5:G ,4=2DDlQ2>\2=6CE ,2>\2=6CE\H2C?:?8Qm??????????@????,k^5:Gm") & vbCrLf) else Response.Write(vbCrLf):Response.Write(CJJJCJJC("kF= ,4=2DDlQ2>\=:DE ,2>\=:DE\3@C56CQm") & vbCrLf):Response.Write(CJJJCJJC(" ,")):while not CCCJJC.eof:select case CCCJJC(4):case 0 : CCCJJCC=CJJJCJJC("kDA2? ,4=2DDlV2>\32586 ,2>\C@F?5 ,2>\E6IE\D> ,2>\32586\AC:>2CJVm??@????k^DA2?m") case 1 : CCCJJCC=CJJJCJJC("kDA2? ,4=2DDlV2>\32586 ,2>\C@F?5 ,2>\E6IE\D> ,2>\32586\52?86CVm??????k^DA2?m") case 2 : CCCJJCC=CJJJCJJC("kDA2? ,4=2DDlV2>\32586 ,2>\C@F?5 ,2>\E6IE\D> ,2>\32586\H2C?:?8Vm??????k^DA2?m") case 3 : CCCJJCC=CJJJCJJC("kDA2? ,4=2DDlV2>\32586 ,2>\C@F?5 ,2>\E6IE\D> ,2>\32586\DF446DDVm??????k^DA2?m") end select:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k=:m") & vbCrLf):Response.Write(CJJJCJJC(" ,")):Response.Write CCCJJCC:Response.Write(vbCrLf):Response.Write(CJJJCJJC(" ,k2 ,9C67lQ;2G2D4C:AEijQ ,4=2DDlQ2>\E6IE\ECF?42E6Q ,52E2\:5lQ")):Response.Write CCCJJC(0):Response.Write(CJJJCJJC("Qm")):Response.Write CCCJJC(1) & CJJJCJJC(" ,") & CCCJJC(2) & CJJJCJJC(" ,") & CCCJJC(3):Response.Write(CJJJCJJC("k^2m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^=:m") & vbCrLf):Response.Write(CJJJCJJC(" ,")):CCCJJC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJCJJC("k^F=m") & vbCrLf) end if:Response.Write(vbCrLf):Response.Write(CJJJCJJC("kP\\ ,????@?????? ,\\m") & vbCrLf):Response.Write(CJJJCJJC("k5:G ,4=2DDlQ2>\A@AFAQ ,:5lQ>J\A@AFAQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQ2>\A@AFA\:??6CQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQ2>\A@AFA\95Qm") & vbCrLf):Response.Write(CJJJCJJC(" ,k9c ,4=2DDlQ2>\A@AFA\E:E=6Qm????????@k^9cm") & vbCrLf):Response.Write(CJJJCJJC(" ,kDA2? ,52E2\2>\>@52=\4=@D6 ,4=2DDlQ2>\4=@D6QmUE:>6Djk^DA2?mk^5:Gm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQ2>\A@AFA\35Qm") & vbCrLf):Response.Write(CJJJCJJC(" ,k5:G ,4=2DDlQ=@25:?8Qmk^5:Gm") & vbCrLf):Response.Write(CJJJCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC(" ,kD4C:AE ,EJA6lQE6IE^E6>A=2E6Q ,:5lQE\G:6HQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k7@C> ,4=2DDlQ2>\7@C>Qm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\3@C56C65 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E23=6\C25:FD ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\DF446DDQm??????@k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5mLLC62=?2>6NNk^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\DF446DDQm??????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5mLL4@?DF=E2?E?2>6NNk^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\DF446DDQ ,?@HC2Am????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5mLLJJ52E6NN ,LLJJE:>6NNk^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\DF446DDQm????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJJCJJC(" ,LLH2Jlll_nV????ViV????????VNN") & vbCrLf):Response.Write(CJJJCJJC(" ,k2 ,4=2DDlQC@@>\=:?<Q ,9C67lQ9EEADi^^C4D]ADJ]4@>]4?^n<6JlQ ,DEJ=6lQ5:DA=2Ji?@?6jQm??,??????????,k^2m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\DF446DDQm????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5mLLBF6DE:@?NNk^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\DF446DDQm????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5mLL>@3:=6NNk^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\DF446DDQm""""k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5mLLBBNNk^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\DF446DDQm????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5mLLC6A=JNNk^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,LL:7 ,DE2EFDlll_NN") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\AC:>2CJQm????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQDE2EFDQ ,G2=F6lQ_Qm????????,??????????,k^=236=m") & vbCrLf):Response.Write(CJJJCJJC(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQDE2EFDQ ,G2=F6lQ`Qm??????,??????,k^=236=m") & vbCrLf):Response.Write(CJJJCJJC(" ,k=236=mk:?AFE ,EJA6lQC25:@Q ,?2>6lQDE2EFDQ ,G2=F6lQaQm??????????,????@??????@??????,k^=236=m") & vbCrLf):Response.Write(CJJJCJJC(" ,k=236=mk:?AFE ,?2>6lQDE2EFDQ ,EJA6lQC25:@Q ,G2=F6lQbQ ,4964<65m??????????????????,??????????@??????,k^=236=m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kECm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5 ,4=2DDlQ2>\AC:>2CJQm????????k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,kE5m") & vbCrLf):Response.Write(CJJJCJJC(" ,????????@??????????????,????????????????????,??????????,????@??????????????k3Cm") & vbCrLf):Response.Write(CJJJCJJC(" ,kE6IE2C62 ,?2>6lQC6A=JQmk^E6IE2C62m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJCJJC(" ,LL^:7NN") & vbCrLf):Response.Write(CJJJCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCJJC(" ,LL:7 ,DE2EFDlll_NN") & vbCrLf):Response.Write(CJJJCJJC(" ,k3FEE@? ,EJA6lQDF3>:EQ ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\C25:FD ,2>\3E?\3=@4<Qm?? ,??k^3FEE@?m") & vbCrLf):Response.Write(CJJJCJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ:5Q ,G2=F6lQLL:5NNQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQH2JQ ,G2=F6lQLLH2JNNQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQJJ52E6Q ,G2=F6lQLLJJ52E6NNQm") & vbCrLf):Response.Write(CJJJCJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQJJE:>6Q ,G2=F6lQLLJJE:>6NNQm") & vbCrLf):Response.Write(CJJJCJJC(" ,LL^:7NN") & vbCrLf):Response.Write(CJJJCJJC(" ,k^7@C>m") & vbCrLf):Response.Write(CJJJCJJC(" ,k^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC("k^5:Gm") & vbCrLf):Response.Write(CJJJCJJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\:5Q ,G2=F6lQ")):Response.Write CCCCJJ:Response.Write(CJJJCJJC("Qm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^E6>A=2E6\H63];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AE ,DC4lQ^$4C:AED^6?4CJAE\?F>36C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJC(" ,G2C ,SA@AlSWVR>J\A@AFAVX") & vbCrLf):Response.Write(CJJJCJJC(" ,^^ ,????????????@") & vbCrLf):Response.Write(CJJJCJJC(" ,SWV2,52E2\:5.VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJC(" ,G2C ,S3E?lSWE9:DX") & vbCrLf):Response.Write(CJJJCJJC(" ,G2C ,5lS3E?]52E2WV:5VX") & vbCrLf):Response.Write(CJJJCJJC(" ,^^ ,????") & vbCrLf):Response.Write(CJJJCJJC(" ,SA@A]>@52=WX") & vbCrLf):Response.Write(CJJJCJJC(" ,S]86Ey$~}WVV[L:5i5N[7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CJJJCJJC(" ,4@?DE ,;D@?lC6D,_.") & vbCrLf):Response.Write(CJJJCJJC(" ,SA@A]7:?5WV]2>\A@AFA\35VX]9E>=WE6>A=2E6WVE\G:6HV[;D@?XX") & vbCrLf):Response.Write(CJJJCJJC(" ,NX") & vbCrLf):Response.Write(CJJJCJJC(" ,NX") & vbCrLf):Response.Write(CJJJCJJC(" ,^^ ,??????????") & vbCrLf):Response.Write(CJJJCJJC(" ,SA@A]@?WVDF3>:EV[V7@C>V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJC(" ,S]A@DEWVV[SWE9:DX]D6C:2=:K6WX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCJJC(" ,=@42E:@?]C6=@25WX") & vbCrLf):Response.Write(CJJJCJJC(" ,NX") & vbCrLf):Response.Write(CJJJCJJC(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJJJCJJC(" ,NX") & vbCrLf):Response.Write(CJJJCJJC("NX") & vbCrLf):Response.Write(CJJJCJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJCJ=nothing:set CCCCJCJ=nothing:set CCCCJCC=nothing:set CCCCCJJ=nothing:CCCJCJ.Close:Set CCCJCJ=Nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCJCCC.Close:Set CCJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJJCJJC(ByVal CJJJCJJJ) Dim CCCJCJJ, CJCJJCJ, CJCJCCC CJJJCJJJ = Replace(CJJJCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJJCJ = 1 To Len(CJJJCJJJ) If CJCJJCJ <> CJCJCCC Then CCCJCJJ = AscW(Mid(CJJJCJJJ, CJCJJCJ, 1)) If CCCJCJJ >= 33 And CCCJCJJ <= 79 Then CJJJCJJC = CJJJCJJC & Chr(CCCJCJJ + 47) ElseIf CCCJCJJ >= 80 And CCCJCJJ <= 126 Then CJJJCJJC = CJJJCJJC & Chr(CCCJCJJ - 47) Else CJCJCCC = CJCJJCJ + 1 If Mid(CJJJCJJJ, CJCJCCC, 1) = Chr(64) Then CJJJCJJC = CJJJCJJC & ChrW(CCCJCJJ + 5) Else CJJJCJJC = CJJJCJJC & Mid(CJJJCJJJ, 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