Edit D:\xinhaisoft\crisis_new\school\admin\test

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJC, CCCJCJ,CCCJCC, CCCCJJ, CCCCJC:Set CCCJJC = server.CreateObject(CJJCCJJJ("ps~sq]r@??64E:@?")):CCCJJC.open Application(CJJCCJJJ("r@??64E:@?$EC:?8")):Set CCCJCJ=CCCJJC::Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ:CJCJJJJ=Trim(Request.Cookies(CJJCCJJJ("!$*|t|qt#"))):if CJCJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCCJ>0 then
CCCCJC=CJJCCJJJ("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") & CCCCCC & CJJCCJJJ("V ,2?5 ,:5l") & CCCCCJ
set CCCJCC=CCCJJC.execute(CCCCJC):If CCCJCC.EOF Then
Call ClearMemberCookie
Else
CJJJJJJ=CCCJCC(2) & "":CJJJJJC=CCCJCC(3):CJJJJCJ=CCCJCC(5):CJJJJCC=CCCJCC(6):CJJJCJJ=CCCJCC(9):CJJJCJC=CCCJCC(15):CJJJCCC=CCCJCC(0):CJJCCCJ=CCCJCC(1):CJJCCJC=CCCJCC(11) & "":CJJCJJJ=CCCJCC(10) & "":CJJJCCJ=CCCJCC(12):CJJCJJC=CCCJCC(14):CJJCJCJ=CCCJCC(13):CJJCJCC=CCCJCC(7) & "":CJJCCJJ=CCCJCC(4):CJJCCCC=CCCJCC(8):if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CJJJCJJ) or CJJJCJJ=0 then CJJJCJJ=CJJJJJC
if isnull(CJJCCJJ) then CJJCCJJ=0
if isnull(CJJJJCJ) then CJJJJCJ=0
if instr(CJJCCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCCC)>0 then Call RedirectMessage(CJJCCJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCCJ,CCCCCC)
End IF
end if:Sub CheckRight(CJCCCCJ):dim CJCJJJC,CJCJJCJ:if CCCCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCJJJ("??????????????,????????????,"))
elseIf not CJJJJCJJ(CJCCCCJ) then
Call RedirectMessage(CJJCCJJJ("????W") & CJCCCCJ & CJJCCJJJ("X????????,????????????????????,"))
end if:End Sub:Function CJJJJCJJ(CJCCCCJ):dim CJCJJJC,CJCJJCJ:CJCJJCJ=split(CJCCCCJ,CJJCCJJJ("[")):CJJJJCJJ=False:for CJCJJJC=0 to ubound(CJCJJCJ):If Mid(CJJJJJJ,CJCJJCJ(CJCJJJC),1)="1" then
CJJJJCJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCC:CJCJJCC=trim(request.QueryString(CJJCCJJJ("D49@@="))):if isnumeric(CJCJJCC) then
response.Redirect CJJCCJJJ("^>^G2?E^R^D49@@=^") & CJCJJCC & CJJCCJJJ("^DEF56?E^=@8:?nC65:C64El") & CJCCJCJ
else
Call RedirectMessage(CJJCCJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCJJJ("!$*|t|qt#"))="":CCCCCJ=0:CJJJJCC=0:CCCCCC=Empty:CJJJJCJ=0:CJJJCJC=0:CJJJCJJ=0:CJJJJJC=0:CJJJCCC=False:CJJCCCJ=False:CJJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJJ,CJCJCJC,CJCJJJC,CJCJCCJ,CJCJCCC:CJCJCJJ=split(CJCJJJJ,CJJCCJJJ("]")):if ubound(CJCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJJ(0)) or len(CJCJCJJ(1))<>32 or len(CJCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CJCJCJC=CJCJCJJ(1):for CJCJJJC=1 to len(CJCJCJC):CJCJCCJ=mid(CJCJCJC,CJCJJJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCJC=CJCJCJJ(2):if CJCJCCC<>mid(CJCJCJC,6,7) then
Call ClearMemberCookie
else
CJCJCCJ=mid(CJCJCJC,18,10)/2:if CJCJCCJ<DateDiff(CJJCCJJJ("D"), CJJCCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCCJ=Clng(CJCJCJJ(0)):CCCCCC=CJCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCJC,CJJCCJJC):dim CJCJJJC,CJCJCCJ,CJCJCCC:for CJCJJJC=1 to len(CJJCCJJC):CJCJCCJ=mid(CJJCCJJC,CJCJJJC,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ
if len(CJCJCCC)=7 then exit for
next:CJCJCCC=CJJCJCJC & CJJCCJJJ("]") & CJJCCJJC & CJJCCJJJ("]") & Fix(10000*(Rnd+1)) & CJCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCJJJ("D"), CJJCCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCJJJ("!$*|t|qt#"))=CJCJCCC:End Sub:::Function IIf(CJJCCJCJ, CJJCCJCC, CJJCCCJJ):if isnull(CJJCCJCJ) or isempty(CJJCCJCJ) then
IIf = CJJCCCJJ
elseif CJJCCJCJ Then
IIf = CJJCCJCC
Else
IIf = CJJCCCJJ
end if:End Function:Const CJJJJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCCJJJ("FE7\g"):dim CJCJJJC,CJCJCCJ,CJCCJJJ:if isarray(str) then
on error resume next:CJCJJJC=ubound(str,2):CJCCJJJ=err.number:err.clear:on error goto 0:if CJCCJJJ<>0 then
for CJCJJJC=0 to ubound(str):if CJCJJJC>0 then response.Write CJJCCJJJ("k3C ,^m")
response.Write CJCJJJC & CJJCCJJJ("i ,") & str(CJCJJJC):next
else
response.Write CJJCCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJJC=0 to ubound(str,2):response.Write CJJCCJJJ("kE9 ,2=:8?lV=67EVm") & CJCJJJC & CJJCCJJJ("k^E9m")
next:response.Write CJJCCJJJ("k^ECm"):for CJCJJJC=0 to ubound(str):response.Write CJJCCJJJ("kECmkE9m") & CJCJJJC & CJJCCJJJ("k^E9m"):for CJCJCCJ=0 to ubound(str,2):response.Write CJJCCJJJ("kE5m") & str(CJCJJJC,CJCJCCJ) & CJJCCJJJ("k^E5m"):next:response.Write CJJCCJJJ("k^ECm"):next:response.Write CJJCCJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCCJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCCJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJJJCCJ():Dim CJCCJJC, CJCCJCJ:CJCCJCJ = Request.ServerVariables(CJJCCJJJ("!p%w0x}u~")):CJCCJJC = Request.ServerVariables(CJJCCJJJ("""&t#*0$%#x}v")):If CJCCJJC <> Empty Then
if instr(lcase(CJCCJJC),CJJCCJJJ("Tb4:7C2>6"))>0 or instr(lcase(CJCCJJC),CJJCCJJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCCJJJ("????????,????????????????????????,??,??,"))
CJCCJCJ = CJCCJCJ & CJJCCJJJ("n") & CJCCJJC
end if:CJJJJCCJ = CJCCJCJ:End Function:Sub SetHttpOnlyCookie(CJJCCCJC,CJJCCCCJ):dim CJCJCJJ:CJCJCJJ=CJJCCCJC & CJJCCJJJ("l") & CJJCCCCJ & CJJCCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCJJJ("$6E\r@@<:6"),CJCJCJJ):End Sub::::::sub ShowMessage(CJJCCCCC):response.Charset="utf-8":Response.Write CJJCCJJJ("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJJCCCCC & CJJCCJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJJJCCC(CJCCJJJ):if isnull(CJCCJJJ) or trim(CJCCJJJ)="" or not isnumeric(CJCCJJJ) then
CJJJJCCC=false
else
Dim CJCCJCC:Set CJCCJCC = New RegExp:CJCCJCC.Pattern = CJJCCJJJ("/-5ZS"):CJCCJCC.IgnoreCase = True:CJJJJCCC = CJCCJCC.test(CJCCJJJ):set CJCCJCC=nothing
end if:End Function:Function CJJJCJJJ(CJCJJJJJ):dim CJCCCJJ,CJCCCJC:CJCCCJJ=CJJCCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJJJJ & CJJCCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJC=CCCJJC.execute(CJCCCJJ):CJJJCJJJ = CJCCCJC(0):if isnull(CJJJCJJJ) then CJJJCJJJ=1
CJCCCJC.close : set CJCCCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJCCJ=nothing:set CJJJCJJC=nothing:set CJJJCJCJ=nothing:set CJJJCJCC=nothing:CJCCCJC.close : set CJCCCJC=nothing:CCCCJJ.Close : Set CCCCJJ=Nothing:CCCJCC.Close : Set CCCJCC=Nothing:CJJJCCJJ.Close : Set CJJJCCJJ = Nothing:CCCJJC.Close : Set CCCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCJJJ("!$*0|6DD286"),server.URLEncode(CJJCCCCC)):Response.Redirect CJJCCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJJJCCJC(Table):Dim CJCCCJC, CJCCCCJ, str(), CJCJJJC,CJCJCCJ,CCJJJJJ:CCJJJJJ=UCase(Table):If Not IsArray(Application(CJJCCJJJ("!$*0") & CCJJJJJ)) Then
CCCCJC=CJJCCJJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJCCJJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCCJC=server.createobject(CJJCCJJJ("25@53]C64@C5D6E")):CJCCCJC.open CCCCJC,CCCJJC,1:CJCCCCJ = CJCCCJC.RecordCount:ReDim str(CJCCCCJ, 2):If CJCCCCJ > 0 Then
For CJCJJJC = 1 To CJCCCCJ:for CJCJCCJ=0 to 2:str(CJCJJJC, CJCJCCJ) = CJCCCJC(CJCJCCJ):next:CJCCCJC.MoveNext:Next
End If:CJCCCJC.Close: Set CJCCCJC = Nothing:Application(CJJCCJJJ("!$*0") & CCJJJJJ) = str
End If:CJJJCCJC = Application(CJJCCJJJ("!$*0") & CCJJJJJ):End Function:Sub ShowListSelect(CJCJJJJJ,CJCJJJJC,CJCJJJCJ):Dim str, CJCJJJC, CCJJJJC:CCJJJJC = CJJJCCJC(CJCJJJJJ):For CJCJJJC = 1 To UBound(CCJJJJC):if Cstr(CCJJJJC(CJCJJJC,2))=Cstr(CJCJJJJC) then
str = str & CJJCCJJJ("k@AE:@? ,G2=F6lV") & CCJJJJC(CJCJJJC, 0) & CJJCCJJJ("V")
If CStr(CCJJJJC(CJCJJJC, 0)) = CJCJJJCJ & "" Then str = str & CJJCCJJJ(" ,D6=64E65lVD6=64E65V")
str = str & CJJCCJJJ("m") & CCJJJJC(CJCJJJC, 1) & CJJCCJJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJJCCCJ(CJCJJJJJ,CJCJJJJC,CJJCJCJC):Dim str, CJCJJJC, CCJJJJC:CCJJJJC = CJJJCCJC(CJCJJJJJ):For CJCJJJC = 1 To UBound(CCJJJJC):if Cstr(CCJJJJC(CJCJJJC,2))=Cstr(CJCJJJJC) and CStr(CCJJJJC(CJCJJJC, 0)) = CJJCJCJC & "" then
str=CCJJJJC(CJCJJJC,1):exit for
end if:Next:if str="" then str=CJJCCJJJ(",????.")
CJJJCCCJ=str:End Function:::::::Sub CheckQueryTime(CJCJJJCC,CJCJJCJJ):dim str,CJCCJJJ:str=CJJCCJJJ("!$*0") & Ucase(CJCJJJCC):if Session(str)<>"" then
CJCCJJJ=DateDiff(CJJCCJJJ("D"),Session(str),Time):if CJCCJJJ<CJCJJCJJ and CJCCJJJ>0 then
Call ConnClose:Call ShowMessage(CJJCCJJJ("??????????@?????? ,") & CJCJJCJJ & CJJCCJJJ(" ,????,???? ,") & CJCJJCJJ-CJCCJJJ & CJJCCJJJ(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::Function CJJJCCCC(CJCJJJCC,str):dim CJCJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CJCCJJJ,CCJJCJC,CJCJCCC:CJCJCCC=ucase(CJCJJJCC):CCJJCJC=str:if CCJJCJC="" then
CCJJCJC=request.cookies(CJCJCCC):if CCJJCJC="" then
CJJJCCCC=""
else
CCJJCJC=strreverse(CCJJCJC):CCJJJCJ=len(CCJJCJC):for CJCJJJC=1 to CCJJJCJ-1 step 2:CCJJCJJ=mid(CCJJCJC,CJCJJJC,1):CJCCJJJ=mid(CCJJCJC,CJCJJJC+1,1):CCJJJCC=CCJJJCC & CJCCJJJ & CCJJCJJ:next:CCJJJCC=replace(CCJJJCC,CJJCCJJJ("L0N"),CJJCCJJJ(" ,")):CCJJJCC=replace(CCJJJCC,CJJCCJJJ("LIN"),CJJCCJJJ("Y")):CCJJJCC=replace(CCJJJCC,CJJCCJJJ("L:N"),CJJCCJJJ("^")):CJJJCCCC=trim(CCJJJCC)
end if
else
if Len(CCJJCJC) Mod 2=1 then CCJJCJC=CCJJCJC & CJJCCJJJ(" ,")
CCJJCJC=replace(CCJJCJC,CJJCCJJJ(" ,"),CJJCCJJJ("L0N")):CCJJCJC=replace(CCJJCJC,CJJCCJJJ("Y"),CJJCCJJJ("LIN")):CCJJCJC=replace(CCJJCJC,CJJCCJJJ("^"),CJJCCJJJ("L:N")):CCJJJCJ=len(CCJJCJC):for CJCJJJC=1 to CCJJJCJ-1 step 2:CCJJCJJ=mid(CCJJCJC,CJCJJJC,1):CJCCJJJ=mid(CCJJCJC,CJCJJJC+1,1):CCJJJCC=CCJJJCC & CJCCJJJ & CCJJCJJ:next:CCJJJCC=Trim(strreverse(CCJJJCC)):CJJJCCCC=CCJJJCC:response.cookies(CJCJCCC)=CCJJJCC
end if:End Function::Sub ClearCache(CJCJJCJC):Application.Contents.Remove CJCJJCJC
End Sub::Class jTree:Private CCCCJC, CCJJCCJ, CCJJCCC, CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ:Private Sub Class_Initialize():CCJJCCC = 0:CCJCJJJ = 0:CCJCCJJ=10:End Sub:Public Property Let Table(CJCJJCCJ):if CJCJJCCJ="" then Call RedirectMessage(CJJCCJJJ("????????,;%C66????????????????????@??????????,"))
CCJCJJC=CJCJJCCJ:CCJCJCJ=CJJCCJJJ("!$*0") & UCase(CCJCJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJJC:End Property:::Private Sub GetTreeArray():Dim CJCJJJC, CJCJCCJ, CCJCCJC,RecordCount:CCJJCCJ = Application(CCJCJCJ):If Not IsArray(CCJJCCJ) Then
CCCCJC = CJJCCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJJC:if CCJCJCC<>"" then CCCCJC=CCCCJC & CJJCCJJJ(" ,H96C6 ,") & CCJCJCC
set CCJCCJC=CCCJJC.execute(CCCCJC):RecordCount=CCJCCJC(0):if RecordCount=0 then Call RedirectMessage(CJJCCJJJ("????W") & CCJCJJC & CJJCCJJJ("^") & CCJCJCC & CJJCCJJJ("X????????????"))
CCJCJJJ=RecordCount+CCJCCJJ:ReDim CCJJCCJ(CCJCJJJ, 4):CCCCJC = CJJCCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CJJCCJJJ(" ,H:E9 ,W?@=@4<X"):if CCJCJCC<>"" then CCCCJC=CCCCJC & CJJCCJJJ(" ,H96C6 ,") & CCJCJCC
CCCCJC=CCCCJC & CJJCCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCCJC=CCCJJC.execute(CCCCJC):For CJCJJJC = 1 To RecordCount:For CJCJCCJ = 0 To 4:CCJJCCJ(CJCJJJC, CJCJCCJ) = CCJCCJC(CJCJCCJ):if IsNull(CCJJCCJ(CJCJJJC,4)) then CCJJCCJ(CJCJJJC,4)=0
If CCJJCCJ(CJCJJJC,2)="" then CCJJCCJ(CJCJJJC,2)=CJJCCJJJ(",??.")
Next:CCJCCJC.MoveNext:Next:CCJCCJC.Close: Set CCJCCJC = Nothing:for CJCJJJC=CCJCJJJ-(CCJCCJJ-1) to CCJCJJJ:CCJJCCJ(CJCJJJC,0)=CJCJJJC:next:Application.Lock():Application(CCJCJCJ) = CCJJCCJ:Application.UnLock()
else
CCJCJJJ=Ubound(CCJJCCJ)
End If:End Sub:::::Private Function CJJCJJJC(CJJCJCJC):dim CJCJJJC,CCJCCCC:CJJCJJJC=0:CCJCCCC=CStr(CJJCJCJC):if CCJCCCC<>"0" then
for CJCJJJC=1 to CCJCJJJ:If CStr(CCJJCCJ(CJCJJJC, 0))=CCJCCCC Then
CJJCJJJC = CJCJJJC:Exit For
End If:Next
end if:End Function::::Public Function CJJCJJCJ(CJJCJCJC):Dim CJCJJJC,CCCJJJJ:CJCJJJC=CJJCJJJC(CJJCJCJC):if CJCJJJC=0 then
CCCJJJJ=CJJCJJCC(CJJCJCJC)
else
CCCJJJJ=CCJJCCJ(CJCJJJC,3):if isnull(CCCJJJJ) or CCCJJJJ="" then
CCCJJJJ=CJJCJJCC(CJJCJCJC)
elseif Mid(CCCJJJJ,instrrev(CCCJJJJ,CJJCCJJJ("["))+1)<>CStr(CJJCJCJC) then
CCCJJJJ=CJJCJJCC(CJJCJCJC)
elseif Left(CCCJJJJ,1)=CJJCCJJJ("[") then
CCCJJJJ=CJJCJJCC(CJJCJCJC)
end if
end if:CJJCJJCJ=CCCJJJJ:End Function:Private Function CJJCJJCC(CJJCJCJC):dim CCJCCCC:CCJCCCC=CStr(CJJCJCJC):if CCJCCCC="0" then
CJJCJJCC=""
else
dim CCJCCJC:set CCJCCJC=CCCJJC.execute(CJJCCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJJC & CJJCCJJJ(" ,H96C6 ,:5l") & CJJCJCJC):if CCJCCJC.eof then
Call UpdateCache(CJJCJCJC,"","","",""):Call RedirectMessage(CJJCCJJJ("??????,xs??,") & CJJCJCJC & CJJCCJJJ("??,????????,????????????????????,"))
else
if CCJCCJC(0)=0 then
CJJCJJCC="0," & CJJCJCJC
else
CJJCJJCC=CJJCJJCJ(CCJCCJC(0)) & CJJCCJJJ("[") & CJJCJCJC
end if:if CCJCCJC(2)<>CJJCJJCC then
CCCJJC.execute CJJCCJJJ("FA52E6 ,") & CCJCJJC & CJJCCJJJ(" ,D6E ,A2E9lV") & CJJCJJCC & CJJCCJJJ("V ,H96C6 ,:5l") & CJJCJCJC
else
CJJCJJCC=CCJCCJC(2)
end if
end if:Call UpdateCache(CJJCJCJC,CCJCCJC(0),CCJCCJC(1),CJJCJJCC,CCJCCJC(3)):CCJCCJC.Close: Set CCJCCJC = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJJCJCJC):dim CCCJJJJ:CCCJJJJ=CJJCJJCJ(CJJCJCJC):Sql_GetChildren = CCJCJJC & CJJCCJJJ("0A2E9ZV[V ,=:<6 ,V") & CCCJJJJ & CJJCCJJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJCJ
End Sub:Public Sub UpdateCache(CJJCJCJC,CJCJJCCC,CJCJCJJJ,CCCJJJJ,CJCJCJJC):dim CJCJJJC,CJCJCCJ:CJJCJCJC=CLng(CJJCJCJC):CJCJJJC=CJJCJJJC(CJJCJCJC):if CJCJJCCC="" and CJCJCJJJ="" and CCCJJJJ="" and CJCJCJJC="" then
if CJCJJJC>0 then
for CJCJCCJ=1 to 4:CCJJCCJ(CJCJJJC,CJCJCCJ)=Null:next
end if
else
if CJCJJJC=0 then
for CJCJCCJ=1 to CCJCJJJ:if CCJJCCJ(CJCJCCJ,1) & ""="" then
CJCJJJC=CJCJCCJ:exit for
end if:next
end if:if CJCJJJC=0 then
Call ClearCache
else
CCJJCCJ(CJCJJJC,0)=CLng(CJJCJCJC):if CJCJJCCC<>"" then CCJJCCJ(CJCJJJC,1)=CLng(CJCJJCCC)
if CJCJCJJJ<>"" then CCJJCCJ(CJCJJJC,2)=CJCJCJJJ
if CCCJJJJ<>"" then CCJJCCJ(CJCJJJC,3)=CCCJJJJ
if CJCJCJJC<>"" then CCJJCCJ(CJCJJJC,4)=CLng(CJCJCJJC)
end if
end if:if CJCJJJC>0 then
Application.Lock():Application(CCJCJCJ) = CCJJCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCCCCC):Call ConnClose:Response.Write CJJCCCCC:Response.End:End Sub:Private Function CJJJCJJJ():CJJJCJJJ=CJJCJCCJ+1:End Function:Private Function CJJCJCCJ():dim CJCCCJC:set CJCCCJC=CCCJJC.execute(CJJCCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJJC & CJJCCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJCJCCJ=CJCCCJC(0):CJCCCJC.Close: Set CJCCCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCJJCC:CCCCJC=Request.ServerVariables(CJJCCJJJ("!p%w0x}u~")):if instr(CCCCJC,CJJCCJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJCCC and not CJJCCCJ then Call RedirectMessage(CJJCCJJJ("????????,????????????????????????,"))
CJCJJCC=CJJJCJJ
elseif instr(CCCCJC,CJJCCJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCJC,CJJCCJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJCC=CJJJCJJ
elseif instr(CCCCJC,CJJCCJJJ("^D49@@="))>0 then
CJCJJCC=Request.QueryString(CJJCCJJJ("D49@@=")):if not CJJJJCCC(CJCJJCC) then CJCJJCC=Request.QueryString(CJJCCJJJ("F"))
if not CJJJJCCC(CJCJJCC) then CJCJJCC=Request.QueryString(CJJCCJJJ("D4"))
if not CJJJJCCC(CJCJJCC) then Call RedirectMessage(CJJCCJJJ("????????W$49@@=X??@??????????,"))
CJCJJCC=csng(CJCJJCC)
end if:if CJCJJCC=0 then Call RedirectMessage(CJJCCJJJ("????????W$49@@=X????W_X??,"))
Dim CCCJJJC:Call SetConfig:Sub SetConfig():dim CJCJJCJ,CJCCCJC:CCCCJC=CJJCCJJJ("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") & CJCJJCC:set CJCCCJC=CCCJJC.execute(CCCCJC):if CJCCCJC.eof then Call RedirectMessage(CJJCCJJJ("??W") & CCCCCJ & CJJCCJJJ("X??????????W") & CJCJJCC & CJJCCJJJ("X????????,"))
ReDim CJCJJCJ(61):CJCJJCJ(0)=CJCCCJC(CJJCCJJJ(";:2@H6:")) & "":CJCJJCJ(1)=CJCCCJC(CJJCCJJJ("EJA6")):CJCJJCJ(2)=CJCCCJC(CJJCCJJJ("D>D")):CJCJJCJ(3)=CJCCCJC(CJJCCJJJ("4FDE@>8C@FA")) & "":CJCJJCJ(4)=CJCCCJC(CJJCCJJJ("D:5632C0@E96C")) & "":CJCJJCJ(5)=IIf(isnull(CJCCCJC(CJJCCJJJ("E6DEC6DF=EG:6H"))),0,CJCCCJC(CJJCCJJJ("E6DEC6DF=EG:6H"))):CJCJJCJ(6)=CJCCCJC(CJJCCJJJ("K:IF?E:>6")):CJCJJCJ(7)=CJCCCJC(CJJCCJJJ("766")):CJCJJCJ(8)=CJCCCJC(CJJCCJJJ("C6E6DE52J")):CJCJJCJ(9)=CJCCCJC(CJJCCJJJ("6IA:C652E6")):CJCJJCJ(10)=CJCCCJC(CJJCCJJJ("E:E=6")):CJCJJCJ(11)=CJCCCJC(CJJCCJJJ(":?EC@")) & "":CJCJJCJ(12)=CJCCCJC(CJJCCJJJ("A:4EFC6")) & "":CJCJJCJ(13)=CJCCCJC(CJJCCJJJ("72>:=J")):CJCJJCJ(14)=CJCCCJC(CJJCCJJJ("4@AJC:89E")) & "":CJCJJCJ(15)=IIf(isnull(CJCCCJC(CJJCCJJJ("D6>6DE6C0DE2CE052E6"))),CJJCCJJJ("`h__\`\`"),CJCCCJC(CJJCCJJJ("D6>6DE6C0DE2CE052E6"))):CJCJJCJ(16)=IIf(isnull(CJCCCJC(CJJCCJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCCJC(CJJCCJJJ("K:IF?0E:>6D09:89=:89E"))):CJCJJCJ(17)=CJCCCJC(CJJCCJJJ("4@?E24E")) & "":CJCJJCJ(18)=CJCCCJC(CJJCCJJJ("D2?5E23=6")):CJCJJCJ(19)=CJCCCJC(CJJCCJJJ("4C:D:D")):CJCJJCJ(20)=CJCCCJC(CJJCCJJJ("JJ52E6")):CJCJJCJ(21)=CJCCCJC(CJJCCJJJ("BB")):CJCJJCJ(22)=CJCCCJC(CJJCCJJJ("JFJF60D>D0EA=")) & "":CJCJJCJ(23)=CJCCCJC(CJJCCJJJ("JFJF60E6DE0=3")) & "":CJCJJCJ(25)=CJCCCJC(CJJCCJJJ("6IA6CE")):CJCJJCJ(26)=CJCCCJC(CJJCCJJJ(">@5:?7@")):CJCJJCJ(27)=CJCCCJC(CJJCCJJJ("9@>6A286E@AA:4EFC6")) & "":CJCJJCJ(28)=CJCCCJC(CJJCCJJJ("4C:D:D=3")):CJCJJCJ(29)=IIf(CJCCCJC(CJJCCJJJ("4C:D:D@=5")),False,True):CJCJJCJ(30)=CJCCCJC(CJJCCJJJ("8C@FA8F:52?46")):CJCJJCJ(31)=CJCCCJC(CJJCCJJJ("3:@7665324<")):CJCJJCJ(32)=CJCCCJC(CJJCCJJJ("<6JDEC")):CJCJJCJ(33)=CJCCCJC(CJJCCJJJ("=@8@")) & "":CJCJJCJ(34)=CJCCCJC(CJJCCJJJ("K:46")):CJCJJCJ(35)=IIf(CJCCCJC(CJJCCJJJ(":D?6H")),True,False):CJCJJCJ(36)=121:CJCJJCJ(37)=111:CJCJJCJ(38)=160:CJCJJCJ(39)=CJCCCJC(CJJCCJJJ("8F6DE3@@<")):CJCJJCJ(40)=CJCCCJC(CJJCCJJJ("75D")):CJCJJCJ(42)=CJCCCJC(CJJCCJJJ("9@>6=@8:?")):CJCJJCJ(43)=CJCCCJC(CJJCCJJJ("K:IF?0?6657665324<")):CJCJJCJ(44)=CJCCCJC(CJJCCJJJ("K:IF?0E:>6D0=:>:E")):CJCJJCJ(45)=CJCCCJC(CJJCCJJJ("4@>A=6E60:?7@")):CJCJJCJ(46)=CJCCCJC(CJJCCJJJ("E6DE:?EC@")) & "":CJCJJCJ(47)=IIf(isnull(CJCCCJC(CJJCCJJJ("JFJF60367@C60E:>6"))),0,CJCCCJC(CJJCCJJJ("JFJF60367@C60E:>6"))):CJCJJCJ(49)=CJCCCJC(CJJCCJJJ("D>D0C646:G6C")):CJCJJCJ(50)=CJCCCJC(CJJCCJJJ("D>D0D:8?")) & "":CJCJJCJ(52)=CJCCCJC(CJJCCJJJ("JFJF602CC2?86")):CJCJJCJ(53)=IIf(isnull(CJCCCJC(CJJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCJC(CJJCCJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJJCJ(54)=CJCCCJC(CJJCCJJJ("9:560=30@FE@7286")):CJCJJCJ(55)=CJCCCJC(CJJCCJJJ("JFJF60E6DE052JD")):CJCJJCJ(56)=CJCCCJC(CJJCCJJJ("JFJF60H66<0=:>:E")):CJCJJCJ(57)=CJCCCJC(CJJCCJJJ("JFJF604964<65")):CJCJJCJ(58)=CJCCCJC(CJJCCJJJ("K:IF?0?6657665324<0?6IE")):CJCJJCJ(59)=CJCCCJC(CJJCCJJJ("4964<?6HDEF56?E")):CJCJJCJ(60)=CJCCCJC(CJJCCJJJ("K:IF?04=@D6052E6")):CJCCCJC.close : set CJCCCJC=nothing:if isNull(CJCJJCJ(8)) or CJCJJCJ(8)="" then CJCJJCJ(8)=0
if isdate(CJCJJCJ(9)) then
CJCJJCJ(9)=cdate(CJCJJCJ(9)):if CJCJJCJ(9)<Date then Call RedirectMessage(CJJCCJJJ("????????,????????????????W") & CJCJJCJ(9) & CJJCCJJJ("X??????,"))
end if:if not CJJJJCCC(CJCJJCJ(20)) then CJCJJCJ(20)=7
select case CJCJJCJ(1):case 1,2,16:CJCJJCJ(36)=159:case 4,5,6,10,11:CJCJJCJ(36)=190:CJCJJCJ(37)=178:CJCJJCJ(38)=191:case 7,13:CJCJJCJ(36)=164:CJCJJCJ(37)=178:CJCJJCJ(38)=179:end select:CCCJJJC=CJCJJCJ:End Sub:Function CJJJCJCC(CJCJJJCC):dim CJCJJCJ(7,1),CJCJJJC,CCCJJCJ,CCCJJCC:CCCJJCJ=Array(CJJCCJJJ("$49@@="),CJJCCJJJ("$EF56?E"),CJJCCJJJ("s6AE"),CJJCCJJJ("vC256"),CJJCCJJJ("r=2DD>2E6"),CJJCCJJJ("}F>36C"),CJJCCJJJ("%62496C"),CJJCCJJJ("!2C6?E")):select case CCCJJJC(1):case 1,2 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 3,16 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 4 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("??????@"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 5 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 6 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("??????@"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 7 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 8 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("??????@"),CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 9 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 10 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 11 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 12 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 13 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????")):case 14 : CCCJJCC=Array(CJJCCJJJ("??????"),CJJCCJJJ("??@??"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case 15 : CCCJJCC=Array(CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????????"),CJJCCJJJ("????"),CJJCCJJJ("????"),CJJCCJJJ("??????"),CJJCCJJJ("????")):case else : CCCJJCC=CCCJJCJ
end select:for CJCJJJC=0 to Ubound(CJCJJCJ):CJCJJCJ(CJCJJJC,0)=CCCJJCJ(CJCJJJC):CJCJJCJ(CJCJJJC,1)=CCCJJCC(CJCJJJC):next:for CJCJJJC=0 to Ubound(CJCJJCJ):if CJCJJCJ(CJCJJJC,0)=CJCJJJCC then
CJJJCJCC=CJCJJCJ(CJCJJJC,1):exit for
end if:next:End Function::Server.ScriptTimeout=180:if CCCJJJC(7)<3 then Call RedirectMessage(CJJCCJJJ("????????,??????????????????????,"))
Call CheckRight(73):Call CJJJCCCC(CJJCCJJJ("&#{"),CJJJJCCJ):dim CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ,CCCCJJC,CCCCJCJ:CCCJCJJ=Request.QueryString(CJJCCJJJ("s6AE")):CCCJCCJ=Request.QueryString(CJJCCJJJ("vC256")):CCCJCCC=Request.QueryString(CJJCCJJJ("vC@FA")):CCCJCJC=Request.QueryString(CJJCCJJJ("!@DE")):CCCCJJJ=Request.QueryString(CJJCCJJJ("=3:5")):CCCCJJC=Request.QueryString(CJJCCJJJ("%`")):CCCCJCJ=Request.QueryString(CJJCCJJJ("%a")):dim CCJJCCJ:set CCJJCCJ=new jtree:CCJJCCJ.table=CJJCCJJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJCCJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCJJJ("k9625m") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCJJJ("kE:E=6m????k^E:E=6m") & vbCrLf):Response.Write(CJJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCJJJ("k^9625m") & vbCrLf):Response.Write(CJJCCJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCCJJJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9 ,C@HDA2?lQaQm??????@??k^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):Response.Write CJJCCJJJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CCCJCJJ & CJJCCJJJ("Vmk^D6=64Em")
If CCCJJJC(1)>=3 Then
Response.Write CJJCCJJJ(" ,kD6=64E ,?2>6lV8C256Vm")
if CJJJCJC=0 then
Call ShowListSelect(CJJCCJJJ(">6>36C08C256"),CJCJJCC,CCCJCCJ)
else
Response.Write CJJCCJJJ("k@AE:@? ,G2=F6lV") & CJJJCJC & CJJCCJJJ("Vm") & CJJJCCCJ(CJJCCJJJ(">6>36C08C256"),CJCJJCC,CJJJCJC) & CJJCCJJJ("k^@AE:@?m")
end if:Response.Write CJJCCJJJ("k^D6=64Em")
End If:If CCCJJJC(3)<>"" Then
Response.Write CJJCCJJJ(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJJCCJJ=0 then
Response.Write CJJCCJJJ("k@AE:@? ,G2=F6lVVm,") & CCCJJJC(3) & CJJCCJJJ(".k^@AE:@?m")
Call ShowListSelect(CJJCCJJJ(">6>36C04FDE@>8C@FA"),CJCJJCC,CCCJCCC)
else
Response.Write CJJCCJJJ("k@AE:@? ,G2=F6lV") & CJJCCJJ & CJJCCJJJ("Vm") & CJJJCCCJ(CJJCCJJJ(">6>36C04FDE@>8C@FA"),CJCJJCC,CJJCCJJ) & CJJCCJJJ("k^@AE:@?m")
end if:Response.Write CJJCCJJJ("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm??????k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CCCCJJC:Response.Write(CJJCCJJJ("Q ,2FE@4@>A=6E6lQ@77Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,C@HDA2?lQaQ ,4=2DDlQ24EQm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\H@C5Q ,G2=F6lQ????(@C5Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6I46=Q ,G2=F6lQ????tI46=Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):if CCCJJJC(2) then
Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\D>DQ ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5mkD6=64E ,?2>6lQ=3:5Q ,52E2\G2=F6lQ")):Response.Write  CCCCJJJ:Response.Write(CJJCCJJJ("Qmk^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ=236=Qm??????k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5mk:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CCCCJCJ:Response.Write(CJJCCJJJ("Q ,2FE@4@>A=6E6lQ@77Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCJJJ("k^7@C>m") & vbCrLf)::dim CCCCJCC:if CCCJCJC="1" then
Call CheckQueryTime(CJJCCJJJ("?@E6DE"),30):Response.Write(vbCrLf):Response.Write(CJJCCJJJ("k3Cm") & vbCrLf):Response.Write(CJJCCJJJ("k2CE:4=6m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9 ,4=2DDlQ?@\I=DQm????k^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9m")):Response.Write  CJJJCJCC(CJJCCJJJ("}F>36C")):Response.Write(CJJCCJJJ("k^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9m")):Response.Write  CJJJCJCC(CJJCCJJJ("s6AE")):Response.Write(CJJCCJJJ("????k^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9m")):Response.Write  CJJJCJCC(CJJCCJJJ("s6AE")):Response.Write(CJJCCJJJ("xsk^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9m")):Response.Write  CJJJCJCC(CJJCCJJJ("vC256")):Response.Write(CJJCCJJJ("xsk^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):if CCCJJJC(3)<>"" then
Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kE9m")):Response.Write  CCCJJJC(3):Response.Write(CJJCCJJJ("xsk^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):dim CJCJJJC,CCCCCJJ,CCCCCJC,CCCCCCJ,CCCCCCC,CJJJJJJJ:if cstr(CCCJCJJ)=cstr(CJCJJCC) then CCCCCJJ=CJJCCJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJJCC else CCCCCJJ=CJJCCJJJ(" ,2?5 ,") & CCJJCCJ.sql_GetChildren(CCCJCJJ)
if CJJJJCCC(CCCJCCJ) then CCCCCJC=CJJCCJJJ(" ,2?5 ,8C256l") & CCCJCCJ
if CJJJJCCC(CCCJCCC) then CCCCCCJ=CJJCCJJJ(" ,2?5 ,4FDE@>8C@FAl") & CCCJCCC
if isdate(CCCCJJC) then CCCCCCC=CJJCCJJJ(" ,2?5 ,52E6E:>6mlV") & CCCCJJC & CJJCCJJJ("V")
if isdate(CCCCJCJ) then CJJJJJJJ=CJJCCJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCCCJCJ)+1 & CJJCCJJJ("V")
dim CJJJJJJC:CCCCJC=CJJCCJJJ("D6=64E ,5:DE:?4E ,>6>36C ,7C@> ,G0E6DE ,H:E9W?@=@4<X ,H96C6 ,=3l") & CCCCJJJ & CJJCCJJJ(" ,2?5 ,G2=:5l`") & CCCCCJJ & CCCCCJC & CCCCCCJ & CCCCCCC & CJJJJJJJ:set CCCCJJ=CCCJCJ.execute(CCCCJC):while not CCCCJJ.eof:CJJJJJJC=CJJJJJJC & CJJCCJJJ("[") & CCCCJJ(0):CCCCJJ.movenext:wend:CJJJJJJC=CJJCCJJJ("[") & CJJJJJJC & CJJCCJJJ("["):CCCCJC=CJJCCJJJ("D6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[EJA6[>@3:=6[EJA6?2>6[8C256[4FDE@>8C@FA ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,:DDEF56?El` ,2?5 ,DE2E6ld") & CCCCCJJ & CCCCCJC & CCCCCCJ:set CCCJCC=CCCJCJ.execute(CCCCJC):CJCJJJC=1:while not CCCJCC.eof:if instr(CJJJJJJC,CJJCCJJJ("[") & CCCJCC(0) & CJJCCJJJ("["))=0 then
CCCCJCC=CCCCJCC & CJJCCJJJ("[") & CCCJCC(0):Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQ?@\I=DQm")):Response.Write  CJCJJJC:Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,DEJ=6lQ>D@\?F>36C\7@C>2EiV-oVjQm")):Response.Write  CCCJCC(1):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m")):Response.Write  CCCJCC(2):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m")):Response.Write  CCCJCC(3):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCCJCC(6):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m")):Response.Write  CCCJCC(4):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m")):Response.Write  CCCJCC(7):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):if CCCJJJC(3)<>"" then
Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m")):Response.Write  CCCJCC(8):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m")):Response.Write  CCCJCC(5):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,kE5m")):Response.Write  CCCJCC(0):Response.Write(CJJCCJJJ("k^E5m") & vbCrLf):Response.Write(CJJCCJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJJ(" ,")):CJCJJJC=CJCJJJC+1
end if:CCCJCC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCCJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCJJJ("k^2CE:4=6m") & vbCrLf):Response.Write(CJJCCJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ:5=:DEQ ,G2=F6lQ")):Response.Write  Mid(CCCCJCC,2):Response.Write(CJJCCJJJ("Qm") & vbCrLf)
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write  CJCJJCC:Response.Write(CJJCCJJJ("Qm") & vbCrLf):Response.Write(CJJCCJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CJJJJJC:Response.Write(CJJCCJJJ("Qm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("^Y ,8=@32= ,H:?0@A6? ,Y^") & vbCrLf):Response.Write(CJJCCJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CJJCCJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJJCCJJJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJJCCJJJ(" ,EC66iECF6[") & vbCrLf):Response.Write(CJJCCJJJ(" ,?@E@AiSWVR>6>\EJA6VX]G2=WXlllSWVRD49@@=VX]G2=WX") & vbCrLf):Response.Write(CJJCCJJJ(" ,NX") & vbCrLf):Response.Write(CJJCCJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVD6=64E,?2>6lQ=3:5Q.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJJCCJJJ(" ,FC=iV^D49@@=^VZSWVRD49@@=VX]G2=WXZV^D42=6=:DEn>:?:l`V[") & vbCrLf):Response.Write(CJJCCJJJ(" ,:?56IiECF6") & vbCrLf):Response.Write(CJJCCJJJ(" ,NX") & vbCrLf):Response.Write(CJJCCJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR3E?\D>DVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJJ(" ,G2C ,:5=:DElSWVR:5=:DEVX]G2=WX") & vbCrLf):Response.Write(CJJCCJJJ(" ,G2C ,=3lSWVD6=64E,?2>6lQ=3:5Q.VX]7:?5WV@AE:@?iD6=64E65VX]E6IEWX") & vbCrLf):Response.Write(CJJCCJJJ(" ,G2C ,4@?E6?ElV??????????,??????,VZ=3]DF3DEC:?8W=3]:?56I~7WV]VXZ`XZV??,??????????????????????,????????????????,??III??II??II??????????????,V") & vbCrLf):Response.Write(CJJCCJJJ(" ,:7W:5=:DEPllVVXLH:?0@A6?WVD6?5D>D]2DAn:5=:DElVZ:5=:DEZVU4@?E6?ElVZ4@?E6?E[V????????V[Vfd_[ca_VXN") & vbCrLf):Response.Write(CJJCCJJJ(" ,NX") & vbCrLf):Response.Write(CJJCCJJJ(" ,^^ ,????(@C5") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJJ(" ,:7WSWV2CE:4=6VX]=6?8E9XLSWV2CE:4=6VX]9E>=a5@4IWV??????@??VXN") & vbCrLf):Response.Write(CJJCCJJJ(" ,6=D6L=2J6C]>D8WV????????VXN") & vbCrLf):Response.Write(CJJCCJJJ(" ,NX") & vbCrLf):Response.Write(CJJCCJJJ(" ,^^ ,????tI46=") & vbCrLf):Response.Write(CJJCCJJJ(" ,SWVR3E?\6I46=VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJJ(" ,:7WSWVE23=6]E30DE2EVX]=6?8E9XLSWVE23=6]E30DE2EVX]E23=6a6I46=WV??????@??VXN") & vbCrLf):Response.Write(CJJCCJJJ(" ,6=D6L=2J6C]>D8WV????????VXN") & vbCrLf):Response.Write(CJJCCJJJ(" ,NX") & vbCrLf):Response.Write(CJJCCJJJ("NX") & vbCrLf):Response.Write(CJJCCJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCJ=nothing:set CJJJCJJC=nothing:set CJJJCJCJ=nothing:set CJJJCJCC=nothing:CCCCJJ.Close:Set CCCCJJ=Nothing:CCCJCC.Close:Set CCCJCC=Nothing:CCCJJC.Close:Set CCCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCJJJ(ByVal CJJCJCCC)
Dim CJJJJJCJ, CJCJJJC, CJCCJJJ
CJJCJCCC = Replace(CJJCJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJJC = 1 To Len(CJJCJCCC)
If CJCJJJC <> CJCCJJJ Then
CJJJJJCJ = AscW(Mid(CJJCJCCC, CJCJJJC, 1))
If CJJJJJCJ >= 33 And CJJJJJCJ <= 79 Then
CJJCCJJJ = CJJCCJJJ & Chr(CJJJJJCJ + 47)
ElseIf CJJJJJCJ >= 80 And CJJJJJCJ <= 126 Then
CJJCCJJJ = CJJCCJJJ & Chr(CJJJJJCJ - 47)
Else
CJCCJJJ = CJCJJJC + 1
If Mid(CJJCJCCC, CJCCJJJ, 1) = Chr(64) Then CJJCCJJJ = CJJCCJJJ & ChrW(CJJJJJCJ + 5) Else CJJCCJJJ = CJJCCJJJ & Mid(CJJCJCCC, CJCJJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de