Edit D:\xinhaisoft\crisis_new\school\admin\student_trans.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJJJ, CJJJJC,CJJJCJ, CJJJCC, CJJCJJ:Set CJJJJJ = server.CreateObject(CCCCCCC("ps~sq]r@??64E:@?")):CJJJJJ.open Application(CCCCCCC("r@??64E:@?$EC:?8")):Set CJJJJC=CJJJJJ::Function CCJCJCJ(CJJJJJJJ):Dim str,CJJCCJ:str = Trim(CJJJJJJJ):If IsNull(str) Or str = "" Then CCJCJCJ = "" else str=Replace(str, CCCCCCC("V"), "") str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCCCCC("k:7C2>6"), CCCCCCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCCCCC("kD4C:AE"), CCCCCCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCCJ=new RegExp:CJJCCJ.Pattern=CCCCCCC("@?W,2\K.ZXl"):CJJCCJ.IgnoreCase = True:CJJCCJ.Global=True:str=CJJCCJ.Replace(str,CCCCCCC("@?S`U6BF2=Dj")):set CJJCCJ=nothing:CCJCJCJ=str End If:End Function:Function IIf(CJJJJJJC, CJJJJJCJ, CJJJJJCC):if isnull(CJJJJJJC) or isempty(CJJJJJJC) then IIf = CJJJJJCC elseif CJJJJJJC Then IIf = CJJJJJCJ Else IIf = CJJJJJCC end if:End Function:Const CCJCJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCJCCJJ():dim CJJCCC:CJJCCC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJCCC = "" Then CJJCCC = Cstr(Request.ServerVariables(CCCCCCC("#t|~%t0pss#"))) if instr(CJJCCC,CCCCCCC("i"))>0 then CJJCCC=left(CJJCCC,instr(CJJCCC,CCCCCCC("i"))-1) elseif instr(CJJCCC,CCCCCCC("["))>0 then CJJCCC=left(CJJCCC,instr(CJJCCC,CCCCCCC("["))-1) end if:CCJCCJJ=left(CJJCCC,15):End Function:Sub Debug(str):response.Charset=CCCCCCC("FE7\g"):dim CJCJJJ,CJCJJC,CJCJCJ:if isarray(str) then on error resume next:CJCJJJ=ubound(str,2):CJCJCJ=err.number:err.clear:on error goto 0:if CJCJCJ<>0 then for CJCJJJ=0 to ubound(str):if CJCJJJ>0 then response.Write CCCCCCC("k3C ,^m") response.Write CJCJJJ & CCCCCCC("i ,") & str(CJCJJJ):next else response.Write CCCCCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCJJJ=0 to ubound(str,2):response.Write CCCCCCC("kE9 ,2=:8?lV=67EVm") & CJCJJJ & CCCCCCC("k^E9m") next:response.Write CCCCCCC("k^ECm"):for CJCJJJ=0 to ubound(str):response.Write CCCCCCC("kECmkE9m") & CJCJJJ & CCCCCCC("k^E9m"):for CJCJJC=0 to ubound(str,2):response.Write CCCCCCC("kE5m") & str(CJCJJJ,CJCJJC) & CCCCCCC("k^E5m"):next:response.Write CCCCCCC("k^ECm"):next:response.Write CCCCCCC("k^E23=6m") end if elseif isnull(str) then response.Write CCCCCCC(",}F==.") else Response.Write replace(str,vbcrlf,CCCCCCC("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CCJCCJC():Dim CJCJCC, CJCCJJ:CJCCJJ = Request.ServerVariables(CCCCCCC("!p%w0x}u~")):CJCJCC = Request.ServerVariables(CCCCCCC("""&t#*0$%#x}v")):If CJCJCC <> Empty Then if instr(lcase(CJCJCC),CCCCCCC("Tb4:7C2>6"))>0 or instr(lcase(CJCJCC),CCCCCCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CCCCCCC("????????,????????????????????????,??,??,")) CJCCJJ = CJCCJJ & CCCCCCC("n") & CJCJCC end if:CCJCCJC = CJCCJJ:End Function:Sub SetHttpOnlyCookie(CJJJJCJJ,CJJJJCJC):dim CJCCJC:CJCCJC=CJJJJCJJ & CCCCCCC("l") & CJJJJCJC & CCCCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCCC("$6E\r@@<:6"),CJCCJC):End Sub:::::::Function CCJCCCJ(CJCJCJ):if isnull(CJCJCJ) or trim(CJCJCJ)="" or not isnumeric(CJCJCJ) then CCJCCCJ=false else Dim CJJCCJ:Set CJJCCJ = New RegExp:CJJCCJ.Pattern = CCCCCCC("/-5ZS"):CJJCCJ.IgnoreCase = True:CCJCCCJ = CJJCCJ.test(CJCJCJ):set CJJCCJ=nothing end if:End Function:Function CCJCCCC(CJJJJCCJ):dim CJCCCJ,CJCCCC:CJCCCJ=CCCCCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJCCJ & CCCCCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCC=CJJJJJ.execute(CJCCCJ):CCJCCCC = CJCCCC(0):if isnull(CCJCCCC) then CCJCCCC=1 CJCCCC.close : set CJCCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCCJ=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:CJCCCC.close : set CJCCCC=nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:CCCJJCC.Close : Set CCCJJCC = Nothing:CJJJJJ.Close : Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCCC("!$*0|6DD286"),server.URLEncode(CCJJCJC)):Response.Redirect CCCCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCCJCJJ(Table):Dim CJCCCC, CCJJJJ, str(), CJCJJJ,CJCJJC,CCJJJC:CCJJJC=UCase(Table):If Not IsArray(Application(CCCCCCC("!$*0") & CCJJJC)) Then CJJCJJ=CCCCCCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCCCCCC(". ,@C56C ,3J ,D@CE[:5"):set CJCCCC=server.createobject(CCCCCCC("25@53]C64@C5D6E")):CJCCCC.open CJJCJJ,CJJJJJ,1:CCJJJJ = CJCCCC.RecordCount:ReDim str(CCJJJJ, 2):If CCJJJJ > 0 Then For CJCJJJ = 1 To CCJJJJ:for CJCJJC=0 to 2:str(CJCJJJ, CJCJJC) = CJCCCC(CJCJJC):next:CJCCCC.MoveNext:Next End If:CJCCCC.Close: Set CJCCCC = Nothing:Application(CCCCCCC("!$*0") & CCJJJC) = str End If:CCCJCJJ = Application(CCCCCCC("!$*0") & CCJJJC):End Function:Sub ShowListSelect(CJJJJCCJ,CJJJJCCC,CJJJCJJJ):Dim str, CJCJJJ, CCJJCJ:CCJJCJ = CCCJCJJ(CJJJJCCJ):For CJCJJJ = 1 To UBound(CCJJCJ):if Cstr(CCJJCJ(CJCJJJ,2))=Cstr(CJJJJCCC) then str = str & CCCCCCC("k@AE:@? ,G2=F6lV") & CCJJCJ(CJCJJJ, 0) & CCCCCCC("V") If CStr(CCJJCJ(CJCJJJ, 0)) = CJJJCJJJ & "" Then str = str & CCCCCCC(" ,D6=64E65lVD6=64E65V") str = str & CCCCCCC("m") & CCJJCJ(CJCJJJ, 1) & CCCCCCC("k^@AE:@?m") end if:Next:Response.Write str:End Sub:Function CCCJCJC(CJJJJCCJ,CJJJJCCC,CCCCCJJ):Dim str, CJCJJJ, CCJJCJ:CCJJCJ = CCCJCJJ(CJJJJCCJ):For CJCJJJ = 1 To UBound(CCJJCJ):if Cstr(CCJJCJ(CJCJJJ,2))=Cstr(CJJJJCCC) and CStr(CCJJCJ(CJCJJJ, 0)) = CCCCCJJ & "" then str=CCJJCJ(CJCJJJ,1):exit for end if:Next:if str="" then str=CCCCCCC(",????.") CCCJCJC=str:End Function:Sub InsertLog(CJJJCJJC,CCCCCCJ):dim CJCCCJ:CJCCCJ=CCCCCCC("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCCJJJ & CCCCCCC("[V") & CCJCCJJ & CCCCCCC("V") & CCCCCCC("[V") & CCJCJCJ(CCCCCCJ) & CCCCCCC("V") & CCCCCCC("[") & CJJJCJJC & CCCCCCC("[V") & CCJCCJC & CCCCCCC("V") & CCCCCCC("X") CJJJJJ.execute CJCCCJ:End Sub::::::::::::::Function CCCJCCJ(CJJJCJCJ,str):dim CJCJJJ,CCJJCC,CCJCJJ,CCJCJC,CJCJCJ,CCJCCJ,CCJCCC:CCJCCC=ucase(CJJJCJCJ):CCJCCJ=str:if CCJCCJ="" then CCJCCJ=request.cookies(CCJCCC):if CCJCCJ="" then CCCJCCJ="" else CCJCCJ=strreverse(CCJCCJ):CCJJCC=len(CCJCCJ):for CJCJJJ=1 to CCJJCC-1 step 2:CCJCJC=mid(CCJCCJ,CJCJJJ,1):CJCJCJ=mid(CCJCCJ,CJCJJJ+1,1):CCJCJJ=CCJCJJ & CJCJCJ & CCJCJC:next:CCJCJJ=replace(CCJCJJ,CCCCCCC("L0N"),CCCCCCC(" ,")):CCJCJJ=replace(CCJCJJ,CCCCCCC("LIN"),CCCCCCC("Y")):CCJCJJ=replace(CCJCJJ,CCCCCCC("L:N"),CCCCCCC("^")):CCCJCCJ=trim(CCJCJJ) end if else if Len(CCJCCJ) Mod 2=1 then CCJCCJ=CCJCCJ & CCCCCCC(" ,") CCJCCJ=replace(CCJCCJ,CCCCCCC(" ,"),CCCCCCC("L0N")):CCJCCJ=replace(CCJCCJ,CCCCCCC("Y"),CCCCCCC("LIN")):CCJCCJ=replace(CCJCCJ,CCCCCCC("^"),CCCCCCC("L:N")):CCJJCC=len(CCJCCJ):for CJCJJJ=1 to CCJJCC-1 step 2:CCJCJC=mid(CCJCCJ,CJCJJJ,1):CJCJCJ=mid(CCJCCJ,CJCJJJ+1,1):CCJCJJ=CCJCJJ & CJCJCJ & CCJCJC:next:CCJCJJ=Trim(strreverse(CCJCJJ)):CCCJCCJ=CCJCJJ:response.cookies(CCJCCC)=CCJCJJ end if:End Function::Sub ClearCache(CJJJCJCC):Application.Contents.Remove CJJJCJCC End Sub::Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ:CJJCJCJ=Trim(Request.Cookies(CCCCCCC("!$*|t|qt#"))):if CJJCJCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJJJ>0 then CJJCJJ=CCCCCCC("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") & CCCJJC & CCCCCCC("V ,2?5 ,:5l") & CCCJJJ set CJJJCJ=CJJJJJ.execute(CJJCJJ):If CJJJCJ.EOF Then Call ClearMemberCookie Else CCCJCJ=CJJJCJ(2) & "":CCCJCC=CJJJCJ(3):CCCCJJ=CJJJCJ(5):CCCCJC=CJJJCJ(6):CCCCCJ=CJJJCJ(9):CCCCCC=CJJJCJ(15):CJJJJJC=CJJJCJ(0):CJJCJJJ=CJJJCJ(1):CJJJCCC=CJJJCJ(11) & "":CJJJJCJ=CJJJCJ(10) & "":CJJJJJJ=CJJJCJ(12):CJJJJCC=CJJJCJ(14):CJJJCJJ=CJJJCJ(13):CJJJCJC=CJJJCJ(7) & "":CJJJCCJ=CJJJCJ(4):CJJCJJC=CJJJCJ(8):if isnull(CCCCCC) then CCCCCC=0 if isnull(CCCCCJ) or CCCCCJ=0 then CCCCCJ=CCCJCC if isnull(CJJJCCJ) then CJJJCCJ=0 if isnull(CCCCJJ) then CCCCJJ=0 if instr(CCCCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJC)>0 then Call RedirectMessage(CCCCCCC("????????,????????????????????????????????,")) Call SetMemberCookie(CCCJJJ,CCCJJC) End IF end if:Sub CheckRight(CCJJJJ):dim CJCJJJ,CJJCJCC:if CCCJJJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCCCC("??????????????,????????????,")) elseIf not CCCJCCC(CCJJJJ) then Call RedirectMessage(CCCCCCC("????W") & CCJJJJ & CCCCCCC("X????????,????????????????????,")) end if:End Sub:Function CCCJCCC(CCJJJJ):dim CJCJJJ,CJJCJCC:CJJCJCC=split(CCJJJJ,CCCCCCC("[")):CCCJCCC=False:for CJCJJJ=0 to ubound(CJJCJCC):If Mid(CCCJCJ,CJJCJCC(CJCJJJ),1)="1" then CCCJCCC=True:exit function end if:next:End Function:Sub CheckLogined():if CCCJJJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJJCCJJ:CJJCCJJ=trim(request.QueryString(CCCCCCC("D49@@="))):if isnumeric(CJJCCJJ) then response.Redirect CCCCCCC("^>^G2?E^R^D49@@=^") & CJJCCJJ & CCCCCCC("^DEF56?E^=@8:?nC65:C64El") & CJCCJJ else Call RedirectMessage(CCCCCCC("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCCCCC("!$*|t|qt#"))="":CCCJJJ=0:CCCCJC=0:CCCJJC=Empty:CCCCJJ=0:CCCCCC=0:CCCCCJ=0:CCCJCC=0:CJJJJJC=False:CJJCJJJ=False:CJJCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJC,CJJCCJC,CJCJJJ,CJCJJC,CCJCCC:CJCCJC=split(CJJCJCJ,CCCCCCC("]")):if ubound(CJCCJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCJC(0)) or len(CJCCJC(1))<>32 or len(CJCCJC(2))<>32 then Call ClearMemberCookie else CJJCCJC=CJCCJC(1):for CJCJJJ=1 to len(CJJCCJC):CJCJJC=mid(CJJCCJC,CJCJJJ,1):if isnumeric(CJCJJC) then CCJCCC=CCJCCC & CJCJJC if len(CCJCCC)=7 then exit for next:CJJCCJC=CJCCJC(2):if CCJCCC<>mid(CJJCCJC,6,7) then Call ClearMemberCookie else CJCJJC=mid(CJJCCJC,18,10)/2:if CJCJJC<DateDiff(CCCCCCC("D"), CCCCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CCCJJJ=Clng(CJCCJC(0)):CCCJJC=CJCCJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CCCCCJJ,CJJJCCJJ):dim CJCJJJ,CJCJJC,CCJCCC:for CJCJJJ=1 to len(CJJJCCJJ):CJCJJC=mid(CJJJCCJJ,CJCJJJ,1):if isnumeric(CJCJJC) then CCJCCC=CCJCCC & CJCJJC if len(CCJCCC)=7 then exit for next:CCJCCC=CCCCCJJ & CCCCCCC("]") & CJJJCCJJ & CCCCCCC("]") & Fix(10000*(Rnd+1)) & CCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CCCCCCC("D"), CCCCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCCC("!$*|t|qt#"))=CCJCCC:End Sub::Class jTree:Private CJJCJJ, CJJCCCJ, CJJCCCC, CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Private Sub Class_Initialize():CJJCCCC = 0:CJCJJJJ = 0:CJCJCJJ=10:End Sub:Public Property Let Table(CJJJCCJC):if CJJJCCJC="" then Call RedirectMessage(CCCCCCC("????????,;%C66????????????????????@??????????,")) CJCJJJC=CJJJCCJC:CJCJJCJ=CCCCCCC("!$*0") & UCase(CJCJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJJC:End Property:::Private Sub GetTreeArray():Dim CJCJJJ, CJCJJC, CJCJCJC,RecordCount:CJJCCCJ = Application(CJCJJCJ):If Not IsArray(CJJCCCJ) Then CJJCJJ = CCCCCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJJC:if CJCJJCC<>"" then CJJCJJ=CJJCJJ & CCCCCCC(" ,H96C6 ,") & CJCJJCC set CJCJCJC=CJJJJJ.execute(CJJCJJ):RecordCount=CJCJCJC(0):if RecordCount=0 then Call RedirectMessage(CCCCCCC("????W") & CJCJJJC & CCCCCCC("^") & CJCJJCC & CCCCCCC("X????????????")) CJCJJJJ=RecordCount+CJCJCJJ:ReDim CJJCCCJ(CJCJJJJ, 4):CJJCJJ = CCCCCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CCCCCCC(" ,H:E9 ,W?@=@4<X"):if CJCJJCC<>"" then CJJCJJ=CJJCJJ & CCCCCCC(" ,H96C6 ,") & CJCJJCC CJJCJJ=CJJCJJ & CCCCCCC(" ,@C56C ,3J ,D@CE[:5"):set CJCJCJC=CJJJJJ.execute(CJJCJJ):For CJCJJJ = 1 To RecordCount:For CJCJJC = 0 To 4:CJJCCCJ(CJCJJJ, CJCJJC) = CJCJCJC(CJCJJC):if IsNull(CJJCCCJ(CJCJJJ,4)) then CJJCCCJ(CJCJJJ,4)=0 If CJJCCCJ(CJCJJJ,2)="" then CJJCCCJ(CJCJJJ,2)=CCCCCCC(",??.") Next:CJCJCJC.MoveNext:Next:CJCJCJC.Close: Set CJCJCJC = Nothing:for CJCJJJ=CJCJJJJ-(CJCJCJJ-1) to CJCJJJJ:CJJCCCJ(CJCJJJ,0)=CJCJJJ:next:Application.Lock():Application(CJCJJCJ) = CJJCCCJ:Application.UnLock() else CJCJJJJ=Ubound(CJJCCCJ) End If:End Sub:::::Private Function CCCCJJC(CCCCCJJ):dim CJCJJJ,CJCJCCC:CCCCJJC=0:CJCJCCC=CStr(CCCCCJJ):if CJCJCCC<>"0" then for CJCJJJ=1 to CJCJJJJ:If CStr(CJJCCCJ(CJCJJJ, 0))=CJCJCCC Then CCCCJJC = CJCJJJ:Exit For End If:Next end if:End Function::::Public Function CCCCJCJ(CCCCCJJ):Dim CJCJJJ,CJCCJJJ:CJCJJJ=CCCCJJC(CCCCCJJ):if CJCJJJ=0 then CJCCJJJ=CCCCJCC(CCCCCJJ) else CJCCJJJ=CJJCCCJ(CJCJJJ,3):if isnull(CJCCJJJ) or CJCCJJJ="" then CJCCJJJ=CCCCJCC(CCCCCJJ) elseif Mid(CJCCJJJ,instrrev(CJCCJJJ,CCCCCCC("["))+1)<>CStr(CCCCCJJ) then CJCCJJJ=CCCCJCC(CCCCCJJ) elseif Left(CJCCJJJ,1)=CCCCCCC("[") then CJCCJJJ=CCCCJCC(CCCCCJJ) end if end if:CCCCJCJ=CJCCJJJ:End Function:Private Function CCCCJCC(CCCCCJJ):dim CJCJCCC:CJCJCCC=CStr(CCCCCJJ):if CJCJCCC="0" then CCCCJCC="" else dim CJCJCJC:set CJCJCJC=CJJJJJ.execute(CCCCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJC & CCCCCCC(" ,H96C6 ,:5l") & CCCCCJJ):if CJCJCJC.eof then Call UpdateCache(CCCCCJJ,"","","",""):Call RedirectMessage(CCCCCCC("??????,xs??,") & CCCCCJJ & CCCCCCC("??,????????,????????????????????,")) else if CJCJCJC(0)=0 then CCCCJCC="0," & CCCCCJJ else CCCCJCC=CCCCJCJ(CJCJCJC(0)) & CCCCCCC("[") & CCCCCJJ end if:if CJCJCJC(2)<>CCCCJCC then CJJJJJ.execute CCCCCCC("FA52E6 ,") & CJCJJJC & CCCCCCC(" ,D6E ,A2E9lV") & CCCCJCC & CCCCCCC("V ,H96C6 ,:5l") & CCCCCJJ else CCCCJCC=CJCJCJC(2) end if end if:Call UpdateCache(CCCCCJJ,CJCJCJC(0),CJCJCJC(1),CCCCJCC,CJCJCJC(3)):CJCJCJC.Close: Set CJCJCJC = Nothing end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJCJ End Sub:Public Sub UpdateCache(CCCCCJJ,CJJJCCCJ,CJJJCCCC,CJCCJJJ,CJJCJJJJ):dim CJCJJJ,CJCJJC:CCCCCJJ=CLng(CCCCCJJ):CJCJJJ=CCCCJJC(CCCCCJJ):if CJJJCCCJ="" and CJJJCCCC="" and CJCCJJJ="" and CJJCJJJJ="" then if CJCJJJ>0 then for CJCJJC=1 to 4:CJJCCCJ(CJCJJJ,CJCJJC)=Null:next end if else if CJCJJJ=0 then for CJCJJC=1 to CJCJJJJ:if CJJCCCJ(CJCJJC,1) & ""="" then CJCJJJ=CJCJJC:exit for end if:next end if:if CJCJJJ=0 then Call ClearCache else CJJCCCJ(CJCJJJ,0)=CLng(CCCCCJJ):if CJJJCCCJ<>"" then CJJCCCJ(CJCJJJ,1)=CLng(CJJJCCCJ) if CJJJCCCC<>"" then CJJCCCJ(CJCJJJ,2)=CJJJCCCC if CJCCJJJ<>"" then CJJCCCJ(CJCJJJ,3)=CJCCJJJ if CJJCJJJJ<>"" then CJJCCCJ(CJCJJJ,4)=CLng(CJJCJJJJ) end if end if:if CJCJJJ>0 then Application.Lock():Application(CJCJJCJ) = CJJCCCJ:Application.UnLock() end if:End Sub:Private Sub Debug(CCJJCJC):Call ConnClose:Response.Write CCJJCJC:Response.End:End Sub:Private Function CCJCCCC():CCJCCCC=CCCCCJC+1:End Function:Private Function CCCCCJC():dim CJCCCC:set CJCCCC=CJJJJJ.execute(CCCCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJJC & CCCCCCC(" ,@C56C ,3J ,:5 ,56D4")):CCCCCJC=CJCCCC(0):CJCCCC.Close: Set CJCCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCCJJ:CJJCJJ=Request.ServerVariables(CCCCCCC("!p%w0x}u~")):if instr(CJJCJJ,CCCCCCC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJJJJJC and not CJJCJJJ then Call RedirectMessage(CCCCCCC("????????,????????????????????????,")) CJJCCJJ=CCCCCJ elseif instr(CJJCJJ,CCCCCCC("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJJ,CCCCCCC("^DEF56?E^"))>0 then Call CheckLogined:CJJCCJJ=CCCCCJ elseif instr(CJJCJJ,CCCCCCC("^D49@@="))>0 then CJJCCJJ=Request.QueryString(CCCCCCC("D49@@=")):if not CCJCCCJ(CJJCCJJ) then CJJCCJJ=Request.QueryString(CCCCCCC("F")) if not CCJCCCJ(CJJCCJJ) then CJJCCJJ=Request.QueryString(CCCCCCC("D4")) if not CCJCCCJ(CJJCCJJ) then Call RedirectMessage(CCCCCCC("????????W$49@@=X??@??????????,")) CJJCCJJ=csng(CJJCCJJ) end if:if CJJCCJJ=0 then Call RedirectMessage(CCCCCCC("????????W$49@@=X????W_X??,")) Dim CJCCJJC:Call SetConfig:Sub SetConfig():dim CJJCJCC,CJCCCC:CJJCJJ=CCCCCCC("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") & CJJCCJJ:set CJCCCC=CJJJJJ.execute(CJJCJJ):if CJCCCC.eof then Call RedirectMessage(CCCCCCC("??W") & CCCJJJ & CCCCCCC("X??????????W") & CJJCCJJ & CCCCCCC("X????????,")) ReDim CJJCJCC(61):CJJCJCC(0)=CJCCCC(CCCCCCC(";:2@H6:")) & "":CJJCJCC(1)=CJCCCC(CCCCCCC("EJA6")):CJJCJCC(2)=CJCCCC(CCCCCCC("D>D")):CJJCJCC(3)=CJCCCC(CCCCCCC("4FDE@>8C@FA")) & "":CJJCJCC(4)=CJCCCC(CCCCCCC("D:5632C0@E96C")) & "":CJJCJCC(5)=IIf(isnull(CJCCCC(CCCCCCC("E6DEC6DF=EG:6H"))),0,CJCCCC(CCCCCCC("E6DEC6DF=EG:6H"))):CJJCJCC(6)=CJCCCC(CCCCCCC("K:IF?E:>6")):CJJCJCC(7)=CJCCCC(CCCCCCC("766")):CJJCJCC(8)=CJCCCC(CCCCCCC("C6E6DE52J")):CJJCJCC(9)=CJCCCC(CCCCCCC("6IA:C652E6")):CJJCJCC(10)=CJCCCC(CCCCCCC("E:E=6")):CJJCJCC(11)=CJCCCC(CCCCCCC(":?EC@")) & "":CJJCJCC(12)=CJCCCC(CCCCCCC("A:4EFC6")) & "":CJJCJCC(13)=CJCCCC(CCCCCCC("72>:=J")):CJJCJCC(14)=CJCCCC(CCCCCCC("4@AJC:89E")) & "":CJJCJCC(15)=IIf(isnull(CJCCCC(CCCCCCC("D6>6DE6C0DE2CE052E6"))),CCCCCCC("`h__\`\`"),CJCCCC(CCCCCCC("D6>6DE6C0DE2CE052E6"))):CJJCJCC(16)=IIf(isnull(CJCCCC(CCCCCCC("K:IF?0E:>6D09:89=:89E"))),0,CJCCCC(CCCCCCC("K:IF?0E:>6D09:89=:89E"))):CJJCJCC(17)=CJCCCC(CCCCCCC("4@?E24E")) & "":CJJCJCC(18)=CJCCCC(CCCCCCC("D2?5E23=6")):CJJCJCC(19)=CJCCCC(CCCCCCC("4C:D:D")):CJJCJCC(20)=CJCCCC(CCCCCCC("JJ52E6")):CJJCJCC(21)=CJCCCC(CCCCCCC("BB")):CJJCJCC(22)=CJCCCC(CCCCCCC("JFJF60D>D0EA=")) & "":CJJCJCC(23)=CJCCCC(CCCCCCC("JFJF60E6DE0=3")) & "":CJJCJCC(25)=CJCCCC(CCCCCCC("6IA6CE")):CJJCJCC(26)=CJCCCC(CCCCCCC(">@5:?7@")):CJJCJCC(27)=CJCCCC(CCCCCCC("9@>6A286E@AA:4EFC6")) & "":CJJCJCC(28)=CJCCCC(CCCCCCC("4C:D:D=3")):CJJCJCC(29)=IIf(CJCCCC(CCCCCCC("4C:D:D@=5")),False,True):CJJCJCC(30)=CJCCCC(CCCCCCC("8C@FA8F:52?46")):CJJCJCC(31)=CJCCCC(CCCCCCC("3:@7665324<")):CJJCJCC(32)=CJCCCC(CCCCCCC("<6JDEC")):CJJCJCC(33)=CJCCCC(CCCCCCC("=@8@")) & "":CJJCJCC(34)=CJCCCC(CCCCCCC("K:46")):CJJCJCC(35)=IIf(CJCCCC(CCCCCCC(":D?6H")),True,False):CJJCJCC(36)=121:CJJCJCC(37)=111:CJJCJCC(38)=160:CJJCJCC(39)=CJCCCC(CCCCCCC("8F6DE3@@<")):CJJCJCC(40)=CJCCCC(CCCCCCC("75D")):CJJCJCC(42)=CJCCCC(CCCCCCC("9@>6=@8:?")):CJJCJCC(43)=CJCCCC(CCCCCCC("K:IF?0?6657665324<")):CJJCJCC(44)=CJCCCC(CCCCCCC("K:IF?0E:>6D0=:>:E")):CJJCJCC(45)=CJCCCC(CCCCCCC("4@>A=6E60:?7@")):CJJCJCC(46)=CJCCCC(CCCCCCC("E6DE:?EC@")) & "":CJJCJCC(47)=IIf(isnull(CJCCCC(CCCCCCC("JFJF60367@C60E:>6"))),0,CJCCCC(CCCCCCC("JFJF60367@C60E:>6"))):CJJCJCC(49)=CJCCCC(CCCCCCC("D>D0C646:G6C")):CJJCJCC(50)=CJCCCC(CCCCCCC("D>D0D:8?")) & "":CJJCJCC(52)=CJCCCC(CCCCCCC("JFJF602CC2?86")):CJJCJCC(53)=IIf(isnull(CJCCCC(CCCCCCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCC(CCCCCCC("DEF56?E0BF6DE:@?04@F?E"))):CJJCJCC(54)=CJCCCC(CCCCCCC("9:560=30@FE@7286")):CJJCJCC(55)=CJCCCC(CCCCCCC("JFJF60E6DE052JD")):CJJCJCC(56)=CJCCCC(CCCCCCC("JFJF60H66<0=:>:E")):CJJCJCC(57)=CJCCCC(CCCCCCC("JFJF604964<65")):CJJCJCC(58)=CJCCCC(CCCCCCC("K:IF?0?6657665324<0?6IE")):CJJCJCC(59)=CJCCCC(CCCCCCC("4964<?6HDEF56?E")):CJJCJCC(60)=CJCCCC(CCCCCCC("K:IF?04=@D6052E6")):CJCCCC.close : set CJCCCC=nothing:if isNull(CJJCJCC(8)) or CJJCJCC(8)="" then CJJCJCC(8)=0 if isdate(CJJCJCC(9)) then CJJCJCC(9)=cdate(CJJCJCC(9)):if CJJCJCC(9)<Date then Call RedirectMessage(CCCCCCC("????????,????????????????W") & CJJCJCC(9) & CCCCCCC("X??????,")) end if:if not CCJCCCJ(CJJCJCC(20)) then CJJCJCC(20)=7 select case CJJCJCC(1):case 1,2,16:CJJCJCC(36)=159:case 4,5,6,10,11:CJJCJCC(36)=190:CJJCJCC(37)=178:CJJCJCC(38)=191:case 7,13:CJJCJCC(36)=164:CJJCJCC(37)=178:CJJCJCC(38)=179:end select:CJCCJJC=CJJCJCC:End Sub:Function CCCJJCJ(CJJJCJCJ):dim CJJCJCC(7,1),CJCJJJ,CJCCJCJ,CJCCJCC:CJCCJCJ=Array(CCCCCCC("$49@@="),CCCCCCC("$EF56?E"),CCCCCCC("s6AE"),CCCCCCC("vC256"),CCCCCCC("r=2DD>2E6"),CCCCCCC("}F>36C"),CCCCCCC("%62496C"),CCCCCCC("!2C6?E")):select case CJCCJJC(1):case 1,2 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????")):case 3,16 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????")):case 4 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("??????@"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????")):case 5 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????")):case 6 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("??????@"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case 7 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case 8 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("??????@"),CCCCCCC("????"),CCCCCCC("????????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case 9 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case 10 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case 11 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case 12 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case 13 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????")):case 14 : CJCCJCC=Array(CCCCCCC("??????"),CCCCCCC("??@??"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case 15 : CJCCJCC=Array(CCCCCCC("????"),CCCCCCC("????????"),CCCCCCC("????"),CCCCCCC("????????"),CCCCCCC("????"),CCCCCCC("????"),CCCCCCC("??????"),CCCCCCC("????")):case else : CJCCJCC=CJCCJCJ end select:for CJCJJJ=0 to Ubound(CJJCJCC):CJJCJCC(CJCJJJ,0)=CJCCJCJ(CJCJJJ):CJJCJCC(CJCJJJ,1)=CJCCJCC(CJCJJJ):next:for CJCJJJ=0 to Ubound(CJJCJCC):if CJJCJCC(CJCJJJ,0)=CJJJCJCJ then CCCJJCJ=CJJCJCC(CJCJJJ,1):exit for end if:next:End Function::Call CheckRight(68):if CJCCJJC(7)<2 then Call RedirectMessage(CCCCCCC("????????,??????????????????????,")) dim CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:CCJJJCJ=Request.QueryString(CCCCCCC("24E")):CCJJJCC=Request.QueryString(CCCCCCC("H:?")):CCJJCJJ=Request.QueryString(CCCCCCC(":5=:DE")):If Request.ServerVariables(CCCCCCC("#t""&t$%0|t%w~s"))=CCCCCCC("!~$%") then dim CCJJCJC:CJCCCJJ=Request.Form(CCCCCCC("5`")):CJCCCJC=Request.Form(CCCCCCC("5a")):CJCCCCJ=Request.Form(CCCCCCC("8`")):CJCCCCC=Request.Form(CCCCCCC("8a")):CCJJJJJ=Request.Form(CCCCCCC("K`")):CCJJJJC=Request.Form(CCCCCCC("Ka")):if CCJJJCJ=CCCCCCC("D6=64E65") then if CCJJCJJ="" then CCJJCJC=CCCCCCC("????????W:5=:DEX??????,") else CJJCJJ=CCCCCCC("FA52E6 ,>6>36C ,D6E ,EJA6l") & CJCCCJC:if CCJCCCJ(CJCCCCC) then CJJCJJ=CJJCJJ & CCCCCCC("[8C256l") & CJCCCCC if CCJCCCJ(CCJJJJC) then CJJCJJ=CJJCJJ & CCCCCCC("[4FDE@>8C@FAl") & CCJJJJC CJJCJJ=CJJCJJ & CCCCCCC(" ,H96C6 ,:5 ,:? ,W") & CCJJCJJ & CCCCCCC("X"):CJJJJJ.execute CJJCJJ:Call InsertLog(2,CCCCCCC("????????????W") & CCJJCJJ & CCCCCCC("X")) end if elseif CCJJJCJ=CCCCCCC("2==") then CJJCJJ=CCCJCCJ(CCCCCCC("$""{"),""):if CJJCJJ="" then CCJJCJC=CCCCCCC("????????W$""{X??????,") else CJJCJJ=CCCCCCC("D6=64E ,DEF77WWD6=64E ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0>6>36C ,") & CJJCJJ & CCCCCCC(" ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE") set CJJJCJ=CJJJJJ.execute(CJJCJJ):CCJJCJJ=CJJJCJ(0):if isnull(CCJJCJJ) then CCJJCJC=CCCCCCC("??????@????????") else CJJCJJ=CCCCCCC("FA52E6 ,>6>36C ,D6E ,EJA6l") & CJCCCJC:if CCJCCCJ(CJCCCCC) then CJJCJJ=CJJCJJ & CCCCCCC("[8C256l") & CJCCCCC if CCJCCCJ(CCJJJJC) then CJJCJJ=CJJCJJ & CCCCCCC("[4FDE@>8C@FAl") & CCJJJJC CJJCJJ=CJJCJJ & CCCCCCC(" ,H96C6 ,:5 ,:? ,W") & CCJJCJJ & CCCCCCC("X"):CJJJJJ.execute CJJCJJ:Call InsertLog(2,CCCCCCC("????????????")) end if end if elseif CJCCCJJ=CJCCCJC and CJCCCCJ=CJCCCCC and CCJJJJJ=CCJJJJC then CCJJCJC=CCCCCCC("????????????????????????????,??????????,") else dim CCJJCCJ:CCJJCCJ=CCCCCCC(" ,H96C6 ,:5km") & CCCJJJ & CCCCCCC(" ,2?5 ,EJA6l") & CJCCCJJ:if CJCCCCJ="0" then CCJJCCJ=CCJJCCJ & CCCCCCC(" ,2?5 ,W8C256l_ ,@C ,8C256 ,:D ,?F==X") elseif CCJCCCJ(CJCCCCJ) then CCJJCCJ=CCJJCCJ & CCCCCCC(" ,2?5 ,8C256l") & CJCCCCJ end if:if CCJJJJJ="0" then CCJJCCJ=CCJJCCJ & CCCCCCC(" ,2?5 ,W4FDE@>8C@FAl_ ,@C ,4FDE@>8C@FA ,:D ,?F==X") elseif CCJCCCJ(CCJJJJJ) then CCJJCCJ=CCJJCCJ & CCCCCCC(" ,2?5 ,4FDE@>8C@FAl") & CCJJJJJ end if:dim CCJJCCC:CCJJCCC=CCCCCCC("FA52E6 ,>6>36C ,D6E ,EJA6l") & CJCCCJC:if CCJCCCJ(CJCCCCC) then CCJJCCC=CCJJCCC & CCCCCCC("[8C256l") & CJCCCCC if CCJCCCJ(CCJJJJC) then CCJJCCC=CCJJCCC & CCCCCCC("[4FDE@>8C@FAl") & CCJJJJC CJJCJJ=CCJJCCC & CCJJCCJ:CJJJJJ.execute(CJJCJJ):Call InsertLog(2,CCCCCCC("????????????W") & CJCCCJJ & CCCCCCC("??,") & CJCCCJC & CCCCCCC("[") & CJCCCCJ & CCCCCCC("??,") & CJCCCCC & CCCCCCC("[") & CCJJJJJ & CCCCCCC("??,") & CCJJJJC & CCCCCCC("X")) end if:Call ConnClose:response.Charset=CCCCCCC("FE7\g"):Response.Write CCJJCJC:response.end end if:dim CJJCCCJ:set CJJCCCJ=new jtree:CJJCCCJ.table=CCCCCCC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCCCCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCCCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCCCCC("k9625m") & vbCrLf):Response.Write(CCCCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCCCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCCCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCCCCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCCCCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCCCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCCCCCC("k^9625m") & vbCrLf):Response.Write(CCCCCCC("k3@5Jm") & vbCrLf)::if CCJJJCC="" then Response.Write(vbCrLf):Response.Write(CCCCCCC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCCCCCC(" ,")):If CCCJCCC(67) Then Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k=:mk2 ,9C67lQDEF56?ED]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,k=:mk2 ,9C67lQDEF56?E0BF6DE:@?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQDEF56?E0EC2?D]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,")):If CJCCJJC(7)>=2 and CCCJCCC(72) Then Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k=:mk2 ,9C67lQADH0BF6CJ]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCCCCCC("k^F=m") & vbCrLf) end if:Response.Write(vbCrLf):Response.Write(CCCCCCC("k7@C>m") & vbCrLf):Response.Write(CCCCCCC(" ,")):if CCJJJCC="" then Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CCCCCCC(" ,kECm") & vbCrLf):Response.Write(CCCCCCC(" ,kE5 ,H:5E9lQg_Q ,2=:8?lQC:89EQm")):Response.Write CCCJJCJ(CCCCCCC("s6AE")):Response.Write(CCCCCCC("??,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE5mkD6=64E ,?2>6lQ5`Q ,52E2\G2=F6lQ")):Response.Write CJCCCJJ:Response.Write(CCCCCCC("Qmk^D6=64Emk^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCCC(" ,")):If CJCCJJC(1)>=3 Then Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,kECm") & vbCrLf):Response.Write(CCCCCCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CCCJJCJ(CCCCCCC("vC256")):Response.Write(CCCCCCC("??,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE5m") & vbCrLf):Response.Write(CCCCCCC(" ,kD6=64E ,?2>6lQ8`Qm") & vbCrLf):Response.Write(CCCCCCC(" ,")):if CCCCCC=0 then response.Write CCCCCCC("k@AE:@? ,G2=F6lV_Vm,??.k^@AE:@?m") Call ShowListSelect(CCCCCCC(">6>36C08C256"),CJJCCJJ,CJCCCCJ) else response.Write CCCCCCC("k@AE:@? ,G2=F6lV") & CCCCCC & CCCCCCC("Vm") & CCCJCJC(CCCCCCC(">6>36C08C256"),CJJCCJJ,CCCCCC) & CCCCCCC("k^@AE:@?m") end if:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCCC(" ,")) End If::If CJCCJJC(3)<>"" Then Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,kECm") & vbCrLf):Response.Write(CCCCCCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJCCJJC(3):Response.Write(CCCCCCC("??,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE5m") & vbCrLf):Response.Write(CCCCCCC(" ,kD6=64E ,?2>6lQK`Qm") & vbCrLf):Response.Write(CCCCCCC(" ,")):if CJJJCCJ=0 then response.Write CCCCCCC("k@AE:@? ,G2=F6lV_Vm,??.k^@AE:@?m") Call ShowListSelect(CCCCCCC(">6>36C04FDE@>8C@FA"),CJJCCJJ,CCJJJJJ) else response.Write CCCCCCC("k@AE:@? ,G2=F6lV") & CJJJCCJ & CCCCCCC("Vm") & CCCJCJC(CCCCCCC(">6>36C04FDE@>8C@FA"),CJJCCJJ,CJJJCCJ) & CCCCCCC("k^@AE:@?m") end if:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCCCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC(" ,")) end if:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE23=6 ,H:5E9lQ`__TQm") & vbCrLf):Response.Write(CCCCCCC(" ,kECm") & vbCrLf):Response.Write(CCCCCCC(" ,kE5 ,H:5E9lQg_Q ,2=:8?lQC:89EQm")):Response.Write CCCJJCJ(CCCCCCC("s6AE")):Response.Write(CCCCCCC("??,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE5mkD6=64E ,?2>6lQ5aQ ,52E2\G2=F6lQ")):Response.Write CJCCCJC:Response.Write(CCCCCCC("Qmk^D6=64Emk^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCCC(" ,")):If CJCCJJC(1)>=3 Then Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,kECm") & vbCrLf):Response.Write(CCCCCCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CCCJJCJ(CCCCCCC("vC256")):Response.Write(CCCCCCC("??,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE5m") & vbCrLf):Response.Write(CCCCCCC(" ,kD6=64E ,?2>6lQ8aQm") & vbCrLf):Response.Write(CCCCCCC(" ,")):if CCCCCC=0 then response.Write CCCCCCC("k@AE:@? ,G2=F6lVVm,????.k^@AE:@?m") Call ShowListSelect(CCCCCCC(">6>36C08C256"),CJJCCJJ,CJCCCCC) else response.Write CCCCCCC("k@AE:@? ,G2=F6lV") & CCCCCC & CCCCCCC("Vm") & CCCJCJC(CCCCCCC(">6>36C08C256"),CJJCCJJ,CCCCCC) & CCCCCCC("k^@AE:@?m") end if:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCCC(" ,")) End If::If CJCCJJC(3)<>"" Then Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,kECm") & vbCrLf):Response.Write(CCCCCCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJCCJJC(3):Response.Write(CCCCCCC("??,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE5m") & vbCrLf):Response.Write(CCCCCCC(" ,kD6=64E ,?2>6lQKaQm") & vbCrLf):Response.Write(CCCCCCC(" ,")):if CJJJCCJ=0 then response.Write CCCCCCC("k@AE:@? ,G2=F6lV_Vm,??.k^@AE:@?m") Call ShowListSelect(CCCCCCC(">6>36C04FDE@>8C@FA"),CJJCCJJ,CCJJJJJ) else response.Write CCCCCCC("k@AE:@? ,G2=F6lV") & CJJJCCJ & CCCCCCC("Vm") & CCCJCJC(CCCCCCC(">6>36C04FDE@>8C@FA"),CJJCCJJ,CJJJCCJ) & CCCCCCC("k^@AE:@?m") end if:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCCC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,kECm") & vbCrLf):Response.Write(CCCCCCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,kE5m") & vbCrLf):Response.Write(CCCCCCC(" ,k3Cm") & vbCrLf):Response.Write(CCCCCCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CCCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CCCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CCCCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCCCCCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC("k^7@C>m") & vbCrLf):Response.Write(CCCCCCC("k7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CCCCCCC(" ,k@=m") & vbCrLf):Response.Write(CCCCCCC(" ,")):if CCJJJCC="" then Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k=:m????????????????????,??????")):Response.Write CCCJJCJ(CCCCCCC("s6AE")):Response.Write(CCCCCCC("??????,????????")):Response.Write CCCJJCJ(CCCCCCC("s6AE")):Response.Write(CCCCCCC("??????????,????k2 ,9C67lQDEF56?E056AE]2DAQm????????????k^2m??????????,k^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,k=:m??????????????????????????????????,??????")):Response.Write CCCJJCJ(CCCCCCC("s6AE")):Response.Write(CCCCCCC("????????????")):Response.Write CCCJJCJ(CCCCCCC("$EF56?E")):Response.Write(CCCCCCC("k7@?E ,4@=@ClQRuu____Qmk3m????k^3mk^7@?Em??????????,k^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,")) else Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k=:m??????????????,????????????????,k^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,")) end if:Response.Write(vbCrLf):Response.Write(CCCCCCC(" ,k=:m??????????????,??????,????????????????????????@????????????????????,k^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,k=:m??????????????????????,????????????????,????????????????????,k^=:m") & vbCrLf):Response.Write(CCCCCCC(" ,k^@=m") & vbCrLf):Response.Write(CCCCCCC("k^7:6=5D6Em") & vbCrLf):Response.Write(CCCCCCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CCCJCC:Response.Write(CCCCCCC("Qm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("kD4C:AEm") & vbCrLf):Response.Write(CCCCCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCCCCCC(" ,SWVD6=64E,?2>6lQ5`Q.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCCCCCC(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCCCCCC(" ,EC66iECF6") & vbCrLf):Response.Write(CCCCCCC(" ,NX") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCCCCCC(" ,SWVD6=64E,?2>6lQ5aQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCCCCCC(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCCCCCC(" ,EC66iECF6") & vbCrLf):Response.Write(CCCCCCC(" ,NX") & vbCrLf):Response.Write(CCCCCCC(" ,^^ ,????") & vbCrLf):Response.Write(CCCCCCC(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CCCCCCC(" ,G2C ,=@25:?8l=2J6C]=@25WX") & vbCrLf):Response.Write(CCCCCCC(" ,S]A@DEWVV[SWE9:DX]D6C:2=:K6WX[7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CCCCCCC(" ,=2J6C]4=@D6W=@25:?8X") & vbCrLf):Response.Write(CCCCCCC(" ,:7WC6DXL=2J6C]2=6CEWC6DXN") & vbCrLf):Response.Write(CCCCCCC(" ,6=D6 ,L=2J6C]>D8WV??????????,VXN") & vbCrLf):Response.Write(CCCCCCC(" ,NX") & vbCrLf):Response.Write(CCCCCCC(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CCCCCCC(" ,NX") & vbCrLf):Response.Write(CCCCCCC("NX") & vbCrLf):Response.Write(CCCCCCC("k^D4C:AEm") & vbCrLf):Response.Write(CCCCCCC("k^3@5Jm") & vbCrLf):Response.Write(CCCCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCCJ=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJCJ.Close:Set CJJJCJ=Nothing:CJJJJJ.Close:Set CJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCCCCCC(ByVal CCCCCCJ) Dim CCJCJJJ, CJCJJJ, CJCJCJ CCCCCCJ = Replace(CCCCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJJJ = 1 To Len(CCCCCCJ) If CJCJJJ <> CJCJCJ Then CCJCJJJ = AscW(Mid(CCCCCCJ, CJCJJJ, 1)) If CCJCJJJ >= 33 And CCJCJJJ <= 79 Then CCCCCCC = CCCCCCC & Chr(CCJCJJJ + 47) ElseIf CCJCJJJ >= 80 And CCJCJJJ <= 126 Then CCCCCCC = CCCCCCC & Chr(CCJCJJJ - 47) Else CJCJCJ = CJCJJJ + 1 If Mid(CCCCCCJ, CJCJCJ, 1) = Chr(64) Then CCCCCCC = CCCCCCC & ChrW(CCJCJJJ + 5) Else CCCCCCC = CCCCCCC & Mid(CCCCCCJ, CJCJJJ, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de