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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CJCCCJCC("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CJCCCJCC("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC:CJJJCJC=Trim(Request.Cookies(CJCCCJCC("!$*|t|qt#"))):if CJJJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCC>0 then
CCJJCJ=CJCCCJCC("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") & CCJCJJ & CJCCCJCC("V ,2?5 ,:5l") & CCJJCC
set CCJJJJ=CJCCCJ.execute(CCJJCJ):If CCJJJJ.EOF Then
Call ClearMemberCookie
Else
CCJCJC=CCJJJJ(2) & "":CCJCCJ=CCJJJJ(3):CCJCCC=CCJJJJ(5):CCCJJJ=CCJJJJ(6):CCCJJC=CCJJJJ(9):CCCJCJ=CCJJJJ(15):CCCCJJ=CCJJJJ(0):CJJJJCC=CCJJJJ(1):CJJJJCJ=CCJJJJ(11) & "":CCCCJC=CCJJJJ(10) & "":CCCJCC=CCJJJJ(12):CCCCCJ=CCJJJJ(14):CCCCCC=CCJJJJ(13):CJJJJJJ=CCJJJJ(7) & "":CJJJJJC=CCJJJJ(4):CJJJCJJ=CCJJJJ(8):if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCCJJC) or CCCJJC=0 then CCCJJC=CCJCCJ
if isnull(CJJJJJC) then CJJJJJC=0
if isnull(CCJCCC) then CCJCCC=0
if instr(CJCCCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJJ)>0 then Call RedirectMessage(CJCCCJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJJCC,CCJCJJ)
End IF
end if:Sub CheckRight(CJCJCJC):dim CJJJCCJ,CJJJCCC:if CCJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCJCC("??????????????,????????????,"))
elseIf not CJJCCJJC(CJCJCJC) then
Call RedirectMessage(CJCCCJCC("????W") & CJCJCJC & CJCCCJCC("X????????,????????????????????,"))
end if:End Sub:Function CJJCCJJC(CJCJCJC):dim CJJJCCJ,CJJJCCC:CJJJCCC=split(CJCJCJC,CJCCCJCC("[")):CJJCCJJC=False:for CJJJCCJ=0 to ubound(CJJJCCC):If Mid(CCJCJC,CJJJCCC(CJJJCCJ),1)="1" then
CJJCCJJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJJJ:CJJCJJJ=trim(request.QueryString(CJCCCJCC("D49@@="))):if isnumeric(CJJCJJJ) then
response.Redirect CJCCCJCC("^>^G2?E^R^D49@@=^") & CJJCJJJ & CJCCCJCC("^DEF56?E^=@8:?nC65:C64El") & CJCJJCJ
else
Call RedirectMessage(CJCCCJCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJCC("!$*|t|qt#"))="":CCJJCC=0:CCCJJJ=0:CCJCJJ=Empty:CCJCCC=0:CCCJCJ=0:CCCJJC=0:CCJCCJ=0:CCCCJJ=False:CJJJJCC=False:CJJJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJC,CJJCJCJ,CJJJCCJ,CJJCJCC,CJJCCJJ:CJJCJJC=split(CJJJCJC,CJCCCJCC("]")):if ubound(CJJCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJC(0)) or len(CJJCJJC(1))<>32 or len(CJJCJJC(2))<>32 then
Call ClearMemberCookie
else
CJJCJCJ=CJJCJJC(1):for CJJJCCJ=1 to len(CJJCJCJ):CJJCJCC=mid(CJJCJCJ,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCJCJ=CJJCJJC(2):if CJJCCJJ<>mid(CJJCJCJ,6,7) then
Call ClearMemberCookie
else
CJJCJCC=mid(CJJCJCJ,18,10)/2:if CJJCJCC<DateDiff(CJCCCJCC("D"), CJCCCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCC=Clng(CJJCJJC(0)):CCJCJJ=CJJCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJCCJC,CJJJJJJJ):dim CJJJCCJ,CJJCJCC,CJJCCJJ:for CJJJCCJ=1 to len(CJJJJJJJ):CJJCJCC=mid(CJJJJJJJ,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCCJJ=CJCJCCJC & CJCCCJCC("]") & CJJJJJJJ & CJCCCJCC("]") & Fix(10000*(Rnd+1)) & CJJCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJCC("D"), CJCCCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJCC("!$*|t|qt#"))=CJJCCJJ:End Sub::Function CJJCCJCJ(CJCCCCJJ):Dim str,CJJCCCJ:str = Trim(CJCCCCJJ):If IsNull(str) Or str = "" Then
CJJCCJCJ = ""
else
str=Replace(str, CJCCCJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCJCC("k:7C2>6"), CJCCCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCJCC("kD4C:AE"), CJCCCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCCCJ=new RegExp:CJJCCCJ.Pattern=CJCCCJCC("@?W,2\K.ZXl"):CJJCCCJ.IgnoreCase = True:CJJCCCJ.Global=True:str=CJJCCCJ.Replace(str,CJCCCJCC("@?S`U6BF2=Dj")):set CJJCCCJ=nothing:CJJCCJCJ=str
End If:End Function:Function IIf(CJCCCCJC, CJCCCCCJ, CJCCCCCC):if isnull(CJCCCCJC) or isempty(CJCCCCJC) then
IIf = CJCCCCCC
elseif CJCCCCJC Then
IIf = CJCCCCCJ
Else
IIf = CJCCCCCC
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}$"::Function CJJCCCJJ():dim CJJCCCC:CJJCCCC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJJCCCC = "" Then CJJCCCC = Cstr(Request.ServerVariables(CJCCCJCC("#t|~%t0pss#")))
if instr(CJJCCCC,CJCCCJCC("i"))>0 then
CJJCCCC=left(CJJCCCC,instr(CJJCCCC,CJCCCJCC("i"))-1)
elseif instr(CJJCCCC,CJCCCJCC("["))>0 then
CJJCCCC=left(CJJCCCC,instr(CJJCCCC,CJCCCJCC("["))-1)
end if:CJJCCCJJ=left(CJJCCCC,15):End Function:Sub Debug(str):response.Charset=CJCCCJCC("FE7\g"):dim CJJJCCJ,CJJCJCC,CJCJJJJ:if isarray(str) then
on error resume next:CJJJCCJ=ubound(str,2):CJCJJJJ=err.number:err.clear:on error goto 0:if CJCJJJJ<>0 then
for CJJJCCJ=0 to ubound(str):if CJJJCCJ>0 then response.Write CJCCCJCC("k3C ,^m")
response.Write CJJJCCJ & CJCCCJCC("i ,") & str(CJJJCCJ):next
else
response.Write CJCCCJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCCJ=0 to ubound(str,2):response.Write CJCCCJCC("kE9 ,2=:8?lV=67EVm") & CJJJCCJ & CJCCCJCC("k^E9m")
next:response.Write CJCCCJCC("k^ECm"):for CJJJCCJ=0 to ubound(str):response.Write CJCCCJCC("kECmkE9m") & CJJJCCJ & CJCCCJCC("k^E9m"):for CJJCJCC=0 to ubound(str,2):response.Write CJCCCJCC("kE5m") & str(CJJJCCJ,CJJCJCC) & CJCCCJCC("k^E5m"):next:response.Write CJCCCJCC("k^ECm"):next:response.Write CJCCCJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJCCCJC():Dim CJCJJJC, CJCJJCJ:CJCJJCJ = Request.ServerVariables(CJCCCJCC("!p%w0x}u~")):CJCJJJC = Request.ServerVariables(CJCCCJCC("""&t#*0$%#x}v")):If CJCJJJC <> Empty Then
if instr(lcase(CJCJJJC),CJCCCJCC("Tb4:7C2>6"))>0 or instr(lcase(CJCJJJC),CJCCCJCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCCJCC("????????,????????????????????????,??,??,"))
CJCJJCJ = CJCJJCJ & CJCCCJCC("n") & CJCJJJC
end if:CJJCCCJC = CJCJJCJ:End Function:Sub SetHttpOnlyCookie(CCJJJJJJ,CCJJJJJC):dim CJJCJJC:CJJCJJC=CCJJJJJJ & CJCCCJCC("l") & CCJJJJJC & CJCCCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJCC("$6E\r@@<:6"),CJJCJJC):End Sub:::::::Function CJJCCCCJ(CJCJJJJ):if isnull(CJCJJJJ) or trim(CJCJJJJ)="" or not isnumeric(CJCJJJJ) then
CJJCCCCJ=false
else
Dim CJJCCCJ:Set CJJCCCJ = New RegExp:CJJCCCJ.Pattern = CJCCCJCC("/-5ZS"):CJJCCCJ.IgnoreCase = True:CJJCCCCJ = CJJCCCJ.test(CJCJJJJ):set CJJCCCJ=nothing
end if:End Function:Function CJJCCCCC(CCJJJJCJ):dim CJCJJCC,CJCJCJJ:CJCJJCC=CJCCCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJJCJ & CJCCCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJJ=CJCCCJ.execute(CJCJJCC):CJJCCCCC = CJCJCJJ(0):if isnull(CJJCCCCC) then CJJCCCCC=1
CJCJCJJ.close : set CJCJCJJ=nothing:End Function::sub Alert(ByVal CJCJJJJJ):Call ConnClose:CJCJJJJJ=replace(CJCJJJJJ,vbcrlf,CJCCCJCC("-?")):CJCJJJJJ=replace(CJCJJJJJ,CJCCCJCC("V"),CJCCCJCC("-V"))
response.Charset=CJCCCJCC("FE7\g"):response.write CJCCCJCC("kD4C:AEm2=6CEWV") & CJCJJJJJ & CJCCCJCC("VXj9:DE@CJ]324<WXk^D4C:AEm")
response.end:end sub::Sub ConnClose():On Error Resume Next:set CJCCJJJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CJCJCJJ.close : set CJCJCJJ=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CJCJJCJJ.Close : Set CJCJJCJJ = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJCC("!$*0|6DD286"),server.URLEncode(CJCJJJJJ)):Response.Redirect CJCCCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJCJJCJC(Table):Dim CJCJCJJ, CJCJCJC, str(), CJJJCCJ,CJJCJCC,CJCJCCJ:CJCJCCJ=UCase(Table):If Not IsArray(Application(CJCCCJCC("!$*0") & CJCJCCJ)) Then
CCJJCJ=CJCCCJCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCCCJCC(". ,@C56C ,3J ,D@CE[:5"):set CJCJCJJ=server.createobject(CJCCCJCC("25@53]C64@C5D6E")):CJCJCJJ.open CCJJCJ,CJCCCJ,1:CJCJCJC = CJCJCJJ.RecordCount:ReDim str(CJCJCJC, 2):If CJCJCJC > 0 Then
For CJJJCCJ = 1 To CJCJCJC:for CJJCJCC=0 to 2:str(CJJJCCJ, CJJCJCC) = CJCJCJJ(CJJCJCC):next:CJCJCJJ.MoveNext:Next
End If:CJCJCJJ.Close: Set CJCJCJJ = Nothing:Application(CJCCCJCC("!$*0") & CJCJCCJ) = str
End If:CJCJJCJC = Application(CJCCCJCC("!$*0") & CJCJCCJ):End Function:Sub ShowListSelect(CCJJJJCJ,CCJJJJCC,CCJJJCJJ):Dim str, CJJJCCJ, CJCJCCC:CJCJCCC = CJCJJCJC(CCJJJJCJ):For CJJJCCJ = 1 To UBound(CJCJCCC):if Cstr(CJCJCCC(CJJJCCJ,2))=Cstr(CCJJJJCC) then
str = str & CJCCCJCC("k@AE:@? ,G2=F6lV") & CJCJCCC(CJJJCCJ, 0) & CJCCCJCC("V")
If CStr(CJCJCCC(CJJJCCJ, 0)) = CCJJJCJJ & "" Then str = str & CJCCCJCC(" ,D6=64E65lVD6=64E65V")
str = str & CJCCCJCC("m") & CJCJCCC(CJJJCCJ, 1) & CJCCCJCC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJCJJCCJ(CCJJJJCJ,CCJJJJCC,CJCJCCJC):Dim str, CJJJCCJ, CJCJCCC:CJCJCCC = CJCJJCJC(CCJJJJCJ):For CJJJCCJ = 1 To UBound(CJCJCCC):if Cstr(CJCJCCC(CJJJCCJ,2))=Cstr(CCJJJJCC) and CStr(CJCJCCC(CJJJCCJ, 0)) = CJCJCCJC & "" then
str=CJCJCCC(CJJJCCJ,1):exit for
end if:Next:if str="" then str=CJCCCJCC(",????.")
CJCJJCCJ=str:End Function:Sub InsertLog(CCJJJCJC,CCCCJJC):dim CJCJJCC:CJCJJCC=CJCCCJCC("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCJJCC  & CJCCCJCC("[V") & CJJCCCJJ & CJCCCJCC("V") & CJCCCJCC("[V") & CJJCCJCJ(CCCCJJC) & CJCCCJCC("V") & CJCCCJCC("[") & CCJJJCJC  & CJCCCJCC("[V") & CJJCCCJC & CJCCCJCC("V") & CJCCCJCC("X")
CJCCCJ.execute CJCJJCC:End Sub::::::::::::::::Sub ClearCache(CCJJJCCJ):Application.Contents.Remove CCJJJCCJ
End Sub::Class jTree:Private CCJJCJ, CJCCJJJ, CJCCJJC, CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:Private Sub Class_Initialize():CJCCJJC = 0:CJCCJCJ = 0:CJCCCCJ=10:End Sub:Public Property Let Table(CCJJJCCC):if CCJJJCCC="" then Call RedirectMessage(CJCCCJCC("????????,;%C66????????????????????@??????????,"))
CJCCJCC=CCJJJCCC:CJCCCJJ=CJCCCJCC("!$*0") & UCase(CJCCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJCC:End Property:::Private Sub GetTreeArray():Dim CJJJCCJ, CJJCJCC, CJCCCCC,RecordCount:CJCCJJJ = Application(CJCCCJJ):If Not IsArray(CJCCJJJ) Then
CCJJCJ = CJCCCJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJCC:if CJCCCJC<>"" then CCJJCJ=CCJJCJ & CJCCCJCC(" ,H96C6 ,") & CJCCCJC
set CJCCCCC=CJCCCJ.execute(CCJJCJ):RecordCount=CJCCCCC(0):if RecordCount=0 then Call RedirectMessage(CJCCCJCC("????W") & CJCCJCC & CJCCCJCC("^") & CJCCCJC & CJCCCJCC("X????????????"))
CJCCJCJ=RecordCount+CJCCCCJ:ReDim CJCCJJJ(CJCCJCJ, 4):CCJJCJ = CJCCCJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,H:E9 ,W?@=@4<X"):if CJCCCJC<>"" then CCJJCJ=CCJJCJ & CJCCCJCC(" ,H96C6 ,") & CJCCCJC
CCJJCJ=CCJJCJ & CJCCCJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCCCCC=CJCCCJ.execute(CCJJCJ):For CJJJCCJ = 1 To RecordCount:For CJJCJCC = 0 To 4:CJCCJJJ(CJJJCCJ, CJJCJCC) = CJCCCCC(CJJCJCC):if IsNull(CJCCJJJ(CJJJCCJ,4)) then CJCCJJJ(CJJJCCJ,4)=0
If CJCCJJJ(CJJJCCJ,2)="" then CJCCJJJ(CJJJCCJ,2)=CJCCCJCC(",??.")
Next:CJCCCCC.MoveNext:Next:CJCCCCC.Close: Set CJCCCCC = Nothing:for CJJJCCJ=CJCCJCJ-(CJCCCCJ-1) to CJCCJCJ:CJCCJJJ(CJJJCCJ,0)=CJJJCCJ:next:Application.Lock():Application(CJCCCJJ) = CJCCJJJ:Application.UnLock()
else
CJCCJCJ=Ubound(CJCCJJJ)
End If:End Sub:::::Private Function CJCJCJJJ(CJCJCCJC):dim CJJJCCJ,CCJJJJC:CJCJCJJJ=0:CCJJJJC=CStr(CJCJCCJC):if CCJJJJC<>"0" then
for CJJJCCJ=1 to CJCCJCJ:If CStr(CJCCJJJ(CJJJCCJ, 0))=CCJJJJC Then
CJCJCJJJ = CJJJCCJ:Exit For
End If:Next
end if:End Function:Public Function CJCJCJJC(CJCJCCJC):if Cstr(CJCJCCJC)="0" then
CJCJCJJC=CJCCCJCC("??")
else
Dim CJJJCCJ,CJCCCCC:CJJJCCJ=CJCJCJJJ(CJCJCCJC):if CJJJCCJ>0 then
CJCJCJJC=CJCCJJJ(CJJJCCJ,2):if CJCJCJJC="" then
set CJCCCCC=CJCCCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,H96C6 ,:5l") & CJCJCCJC):if CJCCCCC.eof then Call RedirectMessage(CJCCCJCC("xs??,") & CJCJCCJC & CJCCCJCC("??,??????"))
CJCJCJJC=CJCCCCC(1):Call UpdateCache(CJCJCCJC,CJCCCCC(0),CJCJCJJC,CJCCCCC(2),CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing
end if
else
set CJCCCCC=CJCCCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,H96C6 ,:5l") & CJCJCCJC):if CJCCCCC.eof then Call RedirectMessage(CJCCCJCC("xs??,") & CJCJCCJC & CJCCCJCC("??,??????"))
CJCJCJJC=CJCCCCC(1):Call UpdateCache(CJCJCCJC,CJCCCCC(0),CJCJCJJC,CJCCCCC(2),CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing
end if
end if:End Function:::Public Function CJCJCJCJ(CJCJCCJC):Dim CJJJCCJ,CCJJJCJ:CJJJCCJ=CJCJCJJJ(CJCJCCJC):if CJJJCCJ=0 then
CCJJJCJ=CJCJCJCC(CJCJCCJC)
else
CCJJJCJ=CJCCJJJ(CJJJCCJ,3):if isnull(CCJJJCJ) or CCJJJCJ="" then
CCJJJCJ=CJCJCJCC(CJCJCCJC)
elseif Mid(CCJJJCJ,instrrev(CCJJJCJ,CJCCCJCC("["))+1)<>CStr(CJCJCCJC) then
CCJJJCJ=CJCJCJCC(CJCJCCJC)
elseif Left(CCJJJCJ,1)=CJCCCJCC("[") then
CCJJJCJ=CJCJCJCC(CJCJCCJC)
end if
end if:CJCJCJCJ=CCJJJCJ:End Function:Private Function CJCJCJCC(CJCJCCJC):dim CCJJJJC:CCJJJJC=CStr(CJCJCCJC):if CCJJJJC="0" then
CJCJCJCC=""
else
dim CJCCCCC:set CJCCCCC=CJCCCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,H96C6 ,:5l") & CJCJCCJC):if CJCCCCC.eof then
Call UpdateCache(CJCJCCJC,"","","",""):Call RedirectMessage(CJCCCJCC("??????,xs??,") & CJCJCCJC & CJCCCJCC("??,????????,????????????????????,"))
else
if CJCCCCC(0)=0 then
CJCJCJCC="0," & CJCJCCJC
else
CJCJCJCC=CJCJCJCJ(CJCCCCC(0)) & CJCCCJCC("[") & CJCJCCJC
end if:if CJCCCCC(2)<>CJCJCJCC then
CJCCCJ.execute CJCCCJCC("FA52E6 ,") & CJCCJCC & CJCCCJCC(" ,D6E ,A2E9lV") & CJCJCJCC & CJCCCJCC("V ,H96C6 ,:5l") & CJCJCCJC
else
CJCJCJCC=CJCCCCC(2)
end if
end if:Call UpdateCache(CJCJCCJC,CJCCCCC(0),CJCCCCC(1),CJCJCJCC,CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing
end if:End Function::::Public Function IsParent(CCJJCJJJ, CCJJCJJC):IsParent=InStr(CJCJCJCJ(CCJJCJJC) & CJCCCJCC("["), CJCCCJCC("[") & CCJJCJJJ & CJCCCJCC("[")) > 0:End Function:::::::Public Sub ShowTree_Select(CJCJCCJC,ByVal CCJJJCJJ):Dim Str, CJJJCCJ:CJCJCCJC=CLng(CJCJCCJC):if isnumeric(CCJJJCJJ) then CCJJJCJJ=CLng(CCJJJCJJ) else CCJJJCJJ=0
if CJCJCCJC>0 then str=CJCCCJCC("k@AE:@? ,G2=F6lV") & CJCJCCJC & CJCCCJCC("V ,52E2\A:5lV_Vm") & CJCJCJJC(CJCJCCJC) & CJCCCJCC("k^@AE:@?m")
For CJJJCCJ = 1 To CJCCJCJ:If CJCJCCJC=0 or (CJCJCCJC>0 and InStr(CJCCJJJ(CJJJCCJ, 3), CJCCCJCC("[") & CJCJCCJC & CJCCCJCC("[")) > 0) Then
str=str & CJCCCJCC("k@AE:@?"):if CJCCJJJ(CJJJCCJ,0)=CCJJJCJJ then str=str & CJCCCJCC(" ,D6=64E65")
str=str & CJCCCJCC(" ,G2=F6lV") & CJCCJJJ(CJJJCCJ,0) & CJCCCJCC("V ,52E2\A:5lV") & CJCCJJJ(CJJJCCJ,1) & CJCCCJCC("Vm") & CJCCJJJ(CJJJCCJ,2) & CJCCCJCC("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CJCJCCJC):dim CCJJJCJ:CCJJJCJ=CJCJCJCJ(CJCJCCJC):Sql_GetChildren = CJCCJCC & CJCCCJCC("0A2E9ZV[V ,=:<6 ,V") & CCJJJCJ & CJCCCJCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCCJJ
End Sub:Public Sub UpdateCache(CJCJCCJC,CCJJCJCJ,CCJJCJCC,CCJJJCJ,CCJJCCJJ):dim CJJJCCJ,CJJCJCC:CJCJCCJC=CLng(CJCJCCJC):CJJJCCJ=CJCJCJJJ(CJCJCCJC):if CCJJCJCJ="" and CCJJCJCC="" and CCJJJCJ="" and CCJJCCJJ="" then
if CJJJCCJ>0 then
for CJJCJCC=1 to 4:CJCCJJJ(CJJJCCJ,CJJCJCC)=Null:next
end if
else
if CJJJCCJ=0 then
for CJJCJCC=1 to CJCCJCJ:if CJCCJJJ(CJJCJCC,1) & ""="" then
CJJJCCJ=CJJCJCC:exit for
end if:next
end if:if CJJJCCJ=0 then
Call ClearCache
else
CJCCJJJ(CJJJCCJ,0)=CLng(CJCJCCJC):if CCJJCJCJ<>"" then CJCCJJJ(CJJJCCJ,1)=CLng(CCJJCJCJ)
if CCJJCJCC<>"" then CJCCJJJ(CJJJCCJ,2)=CCJJCJCC
if CCJJJCJ<>"" then CJCCJJJ(CJJJCCJ,3)=CCJJJCJ
if CCJJCCJJ<>"" then CJCCJJJ(CJJJCCJ,4)=CLng(CCJJCCJJ)
end if
end if:if CJJJCCJ>0 then
Application.Lock():Application(CJCCCJJ) = CJCCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJJJJJ):Call ConnClose:Response.Write CJCJJJJJ:Response.End:End Sub:Private Function CJJCCCCC():CJJCCCCC=CJCJCCCC+1:End Function:Private Function CJCJCCCC():dim CJCJCJJ:set CJCJCJJ=CJCCCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJCC & CJCCCJCC(" ,@C56C ,3J ,:5 ,56D4")):CJCJCCCC=CJCJCJJ(0):CJCJCJJ.Close: Set CJCJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Private Const CJJJJCJJ =8:Private Const CJJJJCJC =4:Private Const CJJJJCCJ =32:Private CCJJJCC(30):Private CCJJCJJ(30):Private Function CJCCJJJJ(CCJJCCJC, CCJJCCCJ):If CCJJCCCJ = 0 Then
CJCCJJJJ = CCJJCCJC:Exit Function
ElseIf CCJJCCCJ = 31 Then
If CCJJCCJC And 1 Then
CJCCJJJJ = &H80000000
Else
CJCCJJJJ = 0
End If:Exit Function
ElseIf CCJJCCCJ < 0 Or CCJJCCCJ > 31 Then
Err.Raise 6
End If:If (CCJJCCJC And CCJJCJJ(31 - CCJJCCCJ)) Then
CJCCJJJJ = ((CCJJCCJC And CCJJJCC(31 - (CCJJCCCJ + 1))) * CCJJCJJ(CCJJCCCJ)) Or &H80000000
Else
CJCCJJJJ = ((CCJJCCJC And CCJJJCC(31 - CCJJCCCJ)) * CCJJCJJ(CCJJCCCJ))
End If:End Function:Private Function CJCCJJJC(CCJJCCJC, CCJJCCCJ):If CCJJCCCJ = 0 Then
CJCCJJJC = CCJJCCJC:Exit Function
ElseIf CCJJCCCJ = 31 Then
If CCJJCCJC And &H80000000 Then
CJCCJJJC = 1
Else
CJCCJJJC = 0
End If:Exit Function
ElseIf CCJJCCCJ < 0 Or CCJJCCCJ > 31 Then
Err.Raise 6
End If:CJCCJJJC = (CCJJCCJC And &H7FFFFFFE) \ CCJJCJJ(CCJJCCCJ):If (CCJJCCJC And &H80000000) Then
CJCCJJJC = (CJCCJJJC Or (&H40000000 \ CCJJCJJ(CCJJCCCJ - 1)))
End If:End Function:Private Function CJCCJJCJ(CCJJCCJC, CCJJCCCJ):CJCCJJCJ = CJCCJJJJ(CCJJCCJC, CCJJCCCJ) Or CJCCJJJC(CCJJCCJC, (32 - CCJJCCCJ)):End Function:Private Function CJCCJJCC(CCJJCCCC, CCJCJJJJ):Dim CCJJCJC:Dim CCJJCCJ:Dim CCJJCCC:Dim CCJCJJJ:Dim CCJCJJC:CCJJCCC = CCJJCCCC And &H80000000:CCJCJJJ = CCJCJJJJ And &H80000000:CCJJCJC = CCJJCCCC And &H40000000:CCJJCCJ = CCJCJJJJ And &H40000000:CCJCJJC = (CCJJCCCC And &H3FFFFFFF) + (CCJCJJJJ And &H3FFFFFFF):If CCJJCJC And CCJJCCJ Then
CCJCJJC = CCJCJJC Xor &H80000000 Xor CCJJCCC Xor CCJCJJJ
ElseIf CCJJCJC Or CCJJCCJ Then
If CCJCJJC And &H40000000 Then
CCJCJJC = CCJCJJC Xor &HC0000000 Xor CCJJCCC Xor CCJCJJJ
Else
CCJCJJC = CCJCJJC Xor &H40000000 Xor CCJJCCC Xor CCJCJJJ
End If
Else
CCJCJJC = CCJCJJC Xor CCJJCCC Xor CCJCJJJ
End If:CJCCJJCC = CCJCJJC:End Function:Private Function CJCCJCJJ(CCCJJCJ, CCJCJJJC, CCJCJJCJ):CJCCJCJJ = (CCCJJCJ And CCJCJJJC) Or ((Not CCCJJCJ) And CCJCJJCJ):End Function:Private Function CJCCJCJC(CCCJJCJ, CCJCJJJC, CCJCJJCJ):CJCCJCJC = (CCCJJCJ And CCJCJJCJ) Or (CCJCJJJC And (Not CCJCJJCJ)):End Function:Private Function CJCCJCCJ(CCCJJCJ, CCJCJJJC, CCJCJJCJ):CJCCJCCJ = (CCCJJCJ Xor CCJCJJJC Xor CCJCJJCJ):End Function:Private Function CJCCJCCC(CCCJJCJ, CCJCJJJC, CCJCJJCJ):CJCCJCCC = (CCJCJJJC Xor (CCCJJCJ Or (Not CCJCJJCJ))):End Function:Private Sub md5_FF(CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ, CCJCJJCC, CCJCJCJJ):CCCJCCC = CJCCJJCC(CCCJCCC, CJCCJJCC(CJCCJJCC(CJCCJCJJ(CCCCJJJ, CCCCJJC, CCCCJCJ), CCCJJCJ), CCJCJCJJ)):CCCJCCC = CJCCJJCJ(CCCJCCC, CCJCJJCC):CCCJCCC = CJCCJJCC(CCCJCCC, CCCCJJJ):End Sub:Private Sub md5_GG(CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ, CCJCJJCC, CCJCJCJJ):CCCJCCC = CJCCJJCC(CCCJCCC, CJCCJJCC(CJCCJJCC(CJCCJCJC(CCCCJJJ, CCCCJJC, CCCCJCJ), CCCJJCJ), CCJCJCJJ)):CCCJCCC = CJCCJJCJ(CCCJCCC, CCJCJJCC):CCCJCCC = CJCCJJCC(CCCJCCC, CCCCJJJ):End Sub:Private Sub md5_HH(CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ, CCJCJJCC, CCJCJCJJ):CCCJCCC = CJCCJJCC(CCCJCCC, CJCCJJCC(CJCCJJCC(CJCCJCCJ(CCCCJJJ, CCCCJJC, CCCCJCJ), CCCJJCJ), CCJCJCJJ)):CCCJCCC = CJCCJJCJ(CCCJCCC, CCJCJJCC):CCCJCCC = CJCCJJCC(CCCJCCC, CCCCJJJ):End Sub:Private Sub md5_II(CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ, CCJCJJCC, CCJCJCJJ):CCCJCCC = CJCCJJCC(CCCJCCC, CJCCJJCC(CJCCJJCC(CJCCJCCC(CCCCJJJ, CCCCJJC, CCCCJCJ), CCCJJCJ), CCJCJCJJ)):CCCJCCC = CJCCJJCJ(CCCJCCC, CCJCJJCC):CCCJCCC = CJCCJJCC(CCCJCCC, CCCCJJJ):End Sub:Private Function CJCCCJJJ(CCJCJCJC):Dim CCJCJCJ:Dim CCJCJCC:Dim CCJCCJJ():Dim CCJCCJC:Dim CCJCCCJ:Dim CCJCCCC:Const CJJJJCCC =512:Const CJJJCJJJ =448:CCJCJCJ = Len(CCJCJCJC):CCJCJCC = (((CCJCJCJ + ((CJJJJCCC - CJJJCJJJ) \ CJJJJCJJ)) \ (CJJJJCCC \ CJJJJCJJ)) + 1) * (CJJJJCCC \ CJJJJCCJ):ReDim CCJCCJJ(CCJCJCC - 1):CCJCCJC = 0:CCJCCCJ = 0:Do Until CCJCCCJ >= CCJCJCJ:CCJCCCC = CCJCCCJ \ CJJJJCJC:CCJCCJC = (CCJCCCJ Mod CJJJJCJC) * CJJJJCJJ:CCJCCJJ(CCJCCCC) = CCJCCJJ(CCJCCCC) Or CJCCJJJJ(Asc(Mid(CCJCJCJC, CCJCCCJ + 1, 1)), CCJCCJC):CCJCCCJ = CCJCCCJ + 1:Loop:CCJCCCC = CCJCCCJ \ CJJJJCJC:CCJCCJC = (CCJCCCJ Mod CJJJJCJC) * CJJJJCJJ:CCJCCJJ(CCJCCCC) = CCJCCJJ(CCJCCCC) Or CJCCJJJJ(&H80, CCJCCJC):CCJCCJJ(CCJCJCC - 2) = CJCCJJJJ(CCJCJCJ, 3):CCJCCJJ(CCJCJCC - 1) = CJCCJJJC(CCJCJCJ, 29):CJCCCJJJ = CCJCCJJ:End Function:Private Function CJCCCJJC(CCJJCCJC):Dim CCCJJJJ:Dim CCCJJJC:For CCCJJJC = 0 To 3:CCCJJJJ = CJCCJJJC(CCJJCCJC, CCCJJJC * CJJJJCJJ) And CCJJJCC(CJJJJCJJ - 1):CJCCCJJC = CJCCCJJC & Right("0" & Hex(CCCJJJJ), 2):Next:End Function:Public Function CJCCCJCJ(CCJCJCJC):CCJJJCC(0) = CLng(1):CCJJJCC(1) = CLng(3):CCJJJCC(2) = CLng(7):CCJJJCC(3) = CLng(15):CCJJJCC(4) = CLng(31):CCJJJCC(5) = CLng(63):CCJJJCC(6) = CLng(127):CCJJJCC(7) = CLng(255):CCJJJCC(8) = CLng(511):CCJJJCC(9) = CLng(1023):CCJJJCC(10) = CLng(2047):CCJJJCC(11) = CLng(4095):CCJJJCC(12) = CLng(8191):CCJJJCC(13) = CLng(16383):CCJJJCC(14) = CLng(32767):CCJJJCC(15) = CLng(65535):CCJJJCC(16) = CLng(131071):CCJJJCC(17) = CLng(262143):CCJJJCC(18) = CLng(524287):CCJJJCC(19) = CLng(1048575):CCJJJCC(20) = CLng(2097151):CCJJJCC(21) = CLng(4194303):CCJJJCC(22) = CLng(8388607):CCJJJCC(23) = CLng(16777215):CCJJJCC(24) = CLng(33554431):CCJJJCC(25) = CLng(67108863):CCJJJCC(26) = CLng(134217727):CCJJJCC(27) = CLng(268435455):CCJJJCC(28) = CLng(536870911):CCJJJCC(29) = CLng(1073741823):CCJJJCC(30) = CLng(2147483647):CCJJCJJ(0) = CLng(1):CCJJCJJ(1) = CLng(2):CCJJCJJ(2) = CLng(4):CCJJCJJ(3) = CLng(8):CCJJCJJ(4) = CLng(16):CCJJCJJ(5) = CLng(32):CCJJCJJ(6) = CLng(64):CCJJCJJ(7) = CLng(128):CCJJCJJ(8) = CLng(256):CCJJCJJ(9) = CLng(512):CCJJCJJ(10) = CLng(1024):CCJJCJJ(11) = CLng(2048):CCJJCJJ(12) = CLng(4096):CCJJCJJ(13) = CLng(8192):CCJJCJJ(14) = CLng(16384):CCJJCJJ(15) = CLng(32768):CCJJCJJ(16) = CLng(65536):CCJJCJJ(17) = CLng(131072):CCJJCJJ(18) = CLng(262144):CCJJCJJ(19) = CLng(524288):CCJJCJJ(20) = CLng(1048576):CCJJCJJ(21) = CLng(2097152):CCJJCJJ(22) = CLng(4194304):CCJJCJJ(23) = CLng(8388608):CCJJCJJ(24) = CLng(16777216):CCJJCJJ(25) = CLng(33554432):CCJJCJJ(26) = CLng(67108864):CCJJCJJ(27) = CLng(134217728):CCJJCJJ(28) = CLng(268435456):CCJJCJJ(29) = CLng(536870912):CCJJCJJ(30) = CLng(1073741824):Dim CCCJJCJ:Dim CJJCCJJ:Dim CCCJJCC:Dim CCCJCJJ:Dim CCCJCJC:Dim CCCJCCJ:Dim CCCJCCC:Dim CCCCJJJ:Dim CCCCJJC:Dim CCCCJCJ:Const CJJJCJJC =7:Const CJJJCJCJ =12:Const CJJJCJCC =17:Const CJJJCCJJ =22:Const CJJJCCJC =5:Const CJJJCCCJ =9:Const CJJJCCCC =14:Const CJJCJJJJ =20:Const CJJCJJJC =4:Const CJJCJJCJ =11:Const CJJCJJCC =16:Const CJJCJCJJ =23:Const CJJCJCJC =6:Const CJJCJCCJ =10:Const CJJCJCCC =15:Const CJJCCJJJ =21:CCCJJCJ = CJCCCJJJ(CCJCJCJC):CCCJCCC = &H67452301:CCCCJJJ = &HEFCDAB89:CCCCJJC = &H98BADCFE:CCCCJCJ = &H10325476:For CJJCCJJ = 0 To UBound(CCCJJCJ) Step 16:CCCJJCC = CCCJCCC:CCCJCJJ = CCCCJJJ:CCCJCJC = CCCCJJC:CCCJCCJ = CCCCJCJ:md5_FF CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 0), CJJJCJJC, &HD76AA478:md5_FF CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 1), CJJJCJCJ, &HE8C7B756:md5_FF CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 2), CJJJCJCC, &H242070DB:md5_FF CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 3), CJJJCCJJ, &HC1BDCEEE:md5_FF CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 4), CJJJCJJC, &HF57C0FAF:md5_FF CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 5), CJJJCJCJ, &H4787C62A:md5_FF CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 6), CJJJCJCC, &HA8304613:md5_FF CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 7), CJJJCCJJ, &HFD469501:md5_FF CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 8), CJJJCJJC, &H698098D8:md5_FF CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 9), CJJJCJCJ, &H8B44F7AF:md5_FF CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 10), CJJJCJCC, &HFFFF5BB1:md5_FF CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 11), CJJJCCJJ, &H895CD7BE:md5_FF CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 12), CJJJCJJC, &H6B901122:md5_FF CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 13), CJJJCJCJ, &HFD987193:md5_FF CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 14), CJJJCJCC, &HA679438E:md5_FF CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 15), CJJJCCJJ, &H49B40821:md5_GG CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 1), CJJJCCJC, &HF61E2562:md5_GG CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 6), CJJJCCCJ, &HC040B340:md5_GG CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 11), CJJJCCCC, &H265E5A51:md5_GG CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 0), CJJCJJJJ, &HE9B6C7AA:md5_GG CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 5), CJJJCCJC, &HD62F105D:md5_GG CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 10), CJJJCCCJ, &H2441453:md5_GG CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 15), CJJJCCCC, &HD8A1E681:md5_GG CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 4), CJJCJJJJ, &HE7D3FBC8:md5_GG CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 9), CJJJCCJC, &H21E1CDE6:md5_GG CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 14), CJJJCCCJ, &HC33707D6:md5_GG CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 3), CJJJCCCC, &HF4D50D87:md5_GG CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 8), CJJCJJJJ, &H455A14ED:md5_GG CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 13), CJJJCCJC, &HA9E3E905:md5_GG CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 2), CJJJCCCJ, &HFCEFA3F8:md5_GG CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 7), CJJJCCCC, &H676F02D9:md5_GG CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 12), CJJCJJJJ, &H8D2A4C8A:md5_HH CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 5), CJJCJJJC, &HFFFA3942:md5_HH CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 8), CJJCJJCJ, &H8771F681:md5_HH CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 11), CJJCJJCC, &H6D9D6122:md5_HH CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 14), CJJCJCJJ, &HFDE5380C:md5_HH CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 1), CJJCJJJC, &HA4BEEA44:md5_HH CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 4), CJJCJJCJ, &H4BDECFA9:md5_HH CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 7), CJJCJJCC, &HF6BB4B60:md5_HH CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 10), CJJCJCJJ, &HBEBFBC70:md5_HH CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 13), CJJCJJJC, &H289B7EC6:md5_HH CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 0), CJJCJJCJ, &HEAA127FA:md5_HH CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 3), CJJCJJCC, &HD4EF3085:md5_HH CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 6), CJJCJCJJ, &H4881D05:md5_HH CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 9), CJJCJJJC, &HD9D4D039:md5_HH CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 12), CJJCJJCJ, &HE6DB99E5:md5_HH CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 15), CJJCJJCC, &H1FA27CF8:md5_HH CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 2), CJJCJCJJ, &HC4AC5665:md5_II CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 0), CJJCJCJC, &HF4292244:md5_II CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 7), CJJCJCCJ, &H432AFF97:md5_II CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 14), CJJCJCCC, &HAB9423A7:md5_II CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 5), CJJCCJJJ, &HFC93A039:md5_II CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 12), CJJCJCJC, &H655B59C3:md5_II CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 3), CJJCJCCJ, &H8F0CCC92:md5_II CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 10), CJJCJCCC, &HFFEFF47D:md5_II CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 1), CJJCCJJJ, &H85845DD1:md5_II CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 8), CJJCJCJC, &H6FA87E4F:md5_II CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 15), CJJCJCCJ, &HFE2CE6E0:md5_II CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 6), CJJCJCCC, &HA3014314:md5_II CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 13), CJJCCJJJ, &H4E0811A1:md5_II CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJJCJ(CJJCCJJ + 4), CJJCJCJC, &HF7537E82:md5_II CCCCJCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCJJCJ(CJJCCJJ + 11), CJJCJCCJ, &HBD3AF235:md5_II CCCCJJC, CCCCJCJ, CCCJCCC, CCCCJJJ, CCCJJCJ(CJJCCJJ + 2), CJJCJCCC, &H2AD7D2BB:md5_II CCCCJJJ, CCCCJJC, CCCCJCJ, CCCJCCC, CCCJJCJ(CJJCCJJ + 9), CJJCCJJJ, &HEB86D391:CCCJCCC = CJCCJJCC(CCCJCCC, CCCJJCC):CCCCJJJ = CJCCJJCC(CCCCJJJ, CCCJCJJ):CCCCJJC = CJCCJJCC(CCCCJJC, CCCJCJC):CCCCJCJ = CJCCJJCC(CCCCJCJ, CCCJCCJ):Next:CJCCCJCJ = LCase(CJCCCJJC(CCCJCCC) & CJCCCJJC(CCCCJJJ) & CJCCCJJC(CCCCJJC) & CJCCCJJC(CCCCJCJ)):End Function::dim CJJCJJJ:CCJJCJ=Request.ServerVariables(CJCCCJCC("!p%w0x}u~")):if instr(CCJJCJ,CJCCCJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCJJ and not CJJJJCC then Call RedirectMessage(CJCCCJCC("????????,????????????????????????,"))
CJJCJJJ=CCCJJC
elseif instr(CCJJCJ,CJCCCJCC("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCJ,CJCCCJCC("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJJJ=CCCJJC
elseif instr(CCJJCJ,CJCCCJCC("^D49@@="))>0 then
CJJCJJJ=Request.QueryString(CJCCCJCC("D49@@=")):if not CJJCCCCJ(CJJCJJJ) then CJJCJJJ=Request.QueryString(CJCCCJCC("F"))
if not CJJCCCCJ(CJJCJJJ) then CJJCJJJ=Request.QueryString(CJCCCJCC("D4"))
if not CJJCCCCJ(CJJCJJJ) then Call RedirectMessage(CJCCCJCC("????????W$49@@=X??@??????????,"))
CJJCJJJ=csng(CJJCJJJ)
end if:if CJJCJJJ=0 then Call RedirectMessage(CJCCCJCC("????????W$49@@=X????W_X??,"))
Dim CCCCJCC:Call SetConfig:Sub SetConfig():dim CJJJCCC,CJCJCJJ:CCJJCJ=CJCCCJCC("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") & CJJCJJJ:set CJCJCJJ=CJCCCJ.execute(CCJJCJ):if CJCJCJJ.eof then Call RedirectMessage(CJCCCJCC("??W") & CCJJCC & CJCCCJCC("X??????????W") & CJJCJJJ & CJCCCJCC("X????????,"))
ReDim CJJJCCC(61):CJJJCCC(0)=CJCJCJJ(CJCCCJCC(";:2@H6:")) & "":CJJJCCC(1)=CJCJCJJ(CJCCCJCC("EJA6")):CJJJCCC(2)=CJCJCJJ(CJCCCJCC("D>D")):CJJJCCC(3)=CJCJCJJ(CJCCCJCC("4FDE@>8C@FA")) & "":CJJJCCC(4)=CJCJCJJ(CJCCCJCC("D:5632C0@E96C")) & "":CJJJCCC(5)=IIf(isnull(CJCJCJJ(CJCCCJCC("E6DEC6DF=EG:6H"))),0,CJCJCJJ(CJCCCJCC("E6DEC6DF=EG:6H"))):CJJJCCC(6)=CJCJCJJ(CJCCCJCC("K:IF?E:>6")):CJJJCCC(7)=CJCJCJJ(CJCCCJCC("766")):CJJJCCC(8)=CJCJCJJ(CJCCCJCC("C6E6DE52J")):CJJJCCC(9)=CJCJCJJ(CJCCCJCC("6IA:C652E6")):CJJJCCC(10)=CJCJCJJ(CJCCCJCC("E:E=6")):CJJJCCC(11)=CJCJCJJ(CJCCCJCC(":?EC@")) & "":CJJJCCC(12)=CJCJCJJ(CJCCCJCC("A:4EFC6")) & "":CJJJCCC(13)=CJCJCJJ(CJCCCJCC("72>:=J")):CJJJCCC(14)=CJCJCJJ(CJCCCJCC("4@AJC:89E")) & "":CJJJCCC(15)=IIf(isnull(CJCJCJJ(CJCCCJCC("D6>6DE6C0DE2CE052E6"))),CJCCCJCC("`h__\`\`"),CJCJCJJ(CJCCCJCC("D6>6DE6C0DE2CE052E6"))):CJJJCCC(16)=IIf(isnull(CJCJCJJ(CJCCCJCC("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJJ(CJCCCJCC("K:IF?0E:>6D09:89=:89E"))):CJJJCCC(17)=CJCJCJJ(CJCCCJCC("4@?E24E")) & "":CJJJCCC(18)=CJCJCJJ(CJCCCJCC("D2?5E23=6")):CJJJCCC(19)=CJCJCJJ(CJCCCJCC("4C:D:D")):CJJJCCC(20)=CJCJCJJ(CJCCCJCC("JJ52E6")):CJJJCCC(21)=CJCJCJJ(CJCCCJCC("BB")):CJJJCCC(22)=CJCJCJJ(CJCCCJCC("JFJF60D>D0EA=")) & "":CJJJCCC(23)=CJCJCJJ(CJCCCJCC("JFJF60E6DE0=3")) & "":CJJJCCC(25)=CJCJCJJ(CJCCCJCC("6IA6CE")):CJJJCCC(26)=CJCJCJJ(CJCCCJCC(">@5:?7@")):CJJJCCC(27)=CJCJCJJ(CJCCCJCC("9@>6A286E@AA:4EFC6")) & "":CJJJCCC(28)=CJCJCJJ(CJCCCJCC("4C:D:D=3")):CJJJCCC(29)=IIf(CJCJCJJ(CJCCCJCC("4C:D:D@=5")),False,True):CJJJCCC(30)=CJCJCJJ(CJCCCJCC("8C@FA8F:52?46")):CJJJCCC(31)=CJCJCJJ(CJCCCJCC("3:@7665324<")):CJJJCCC(32)=CJCJCJJ(CJCCCJCC("<6JDEC")):CJJJCCC(33)=CJCJCJJ(CJCCCJCC("=@8@")) & "":CJJJCCC(34)=CJCJCJJ(CJCCCJCC("K:46")):CJJJCCC(35)=IIf(CJCJCJJ(CJCCCJCC(":D?6H")),True,False):CJJJCCC(36)=121:CJJJCCC(37)=111:CJJJCCC(38)=160:CJJJCCC(39)=CJCJCJJ(CJCCCJCC("8F6DE3@@<")):CJJJCCC(40)=CJCJCJJ(CJCCCJCC("75D")):CJJJCCC(42)=CJCJCJJ(CJCCCJCC("9@>6=@8:?")):CJJJCCC(43)=CJCJCJJ(CJCCCJCC("K:IF?0?6657665324<")):CJJJCCC(44)=CJCJCJJ(CJCCCJCC("K:IF?0E:>6D0=:>:E")):CJJJCCC(45)=CJCJCJJ(CJCCCJCC("4@>A=6E60:?7@")):CJJJCCC(46)=CJCJCJJ(CJCCCJCC("E6DE:?EC@")) & "":CJJJCCC(47)=IIf(isnull(CJCJCJJ(CJCCCJCC("JFJF60367@C60E:>6"))),0,CJCJCJJ(CJCCCJCC("JFJF60367@C60E:>6"))):CJJJCCC(49)=CJCJCJJ(CJCCCJCC("D>D0C646:G6C")):CJJJCCC(50)=CJCJCJJ(CJCCCJCC("D>D0D:8?")) & "":CJJJCCC(52)=CJCJCJJ(CJCCCJCC("JFJF602CC2?86")):CJJJCCC(53)=IIf(isnull(CJCJCJJ(CJCCCJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJJ(CJCCCJCC("DEF56?E0BF6DE:@?04@F?E"))):CJJJCCC(54)=CJCJCJJ(CJCCCJCC("9:560=30@FE@7286")):CJJJCCC(55)=CJCJCJJ(CJCCCJCC("JFJF60E6DE052JD")):CJJJCCC(56)=CJCJCJJ(CJCCCJCC("JFJF60H66<0=:>:E")):CJJJCCC(57)=CJCJCJJ(CJCCCJCC("JFJF604964<65")):CJJJCCC(58)=CJCJCJJ(CJCCCJCC("K:IF?0?6657665324<0?6IE")):CJJJCCC(59)=CJCJCJJ(CJCCCJCC("4964<?6HDEF56?E")):CJJJCCC(60)=CJCJCJJ(CJCCCJCC("K:IF?04=@D6052E6")):CJCJCJJ.close : set CJCJCJJ=nothing:if isNull(CJJJCCC(8)) or CJJJCCC(8)="" then CJJJCCC(8)=0
if isdate(CJJJCCC(9)) then
CJJJCCC(9)=cdate(CJJJCCC(9)):if CJJJCCC(9)<Date then Call RedirectMessage(CJCCCJCC("????????,????????????????W") & CJJJCCC(9) & CJCCCJCC("X??????,"))
end if:if not CJJCCCCJ(CJJJCCC(20)) then CJJJCCC(20)=7
select case CJJJCCC(1):case 1,2,16:CJJJCCC(36)=159:case 4,5,6,10,11:CJJJCCC(36)=190:CJJJCCC(37)=178:CJJJCCC(38)=191:case 7,13:CJJJCCC(36)=164:CJJJCCC(37)=178:CJJJCCC(38)=179:end select:CCCCJCC=CJJJCCC:End Sub:Function CJCJJJCC(CCJCJCCJ):dim CJJJCCC(7,1),CJJJCCJ,CCCCCJJ,CCCCCJC:CCCCCJJ=Array(CJCCCJCC("$49@@="),CJCCCJCC("$EF56?E"),CJCCCJCC("s6AE"),CJCCCJCC("vC256"),CJCCCJCC("r=2DD>2E6"),CJCCCJCC("}F>36C"),CJCCCJCC("%62496C"),CJCCCJCC("!2C6?E")):select case CCCCJCC(1):case 1,2 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 3,16 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 4 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("??????@"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 5 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 6 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("??????@"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 7 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 8 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("??????@"),CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 9 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 10 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 11 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 12 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 13 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????")):case 14 : CCCCCJC=Array(CJCCCJCC("??????"),CJCCCJCC("??@??"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case 15 : CCCCCJC=Array(CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????????"),CJCCCJCC("????"),CJCCCJCC("????"),CJCCCJCC("??????"),CJCCCJCC("????")):case else : CCCCCJC=CCCCCJJ
end select:for CJJJCCJ=0 to Ubound(CJJJCCC):CJJJCCC(CJJJCCJ,0)=CCCCCJJ(CJJJCCJ):CJJJCCC(CJJJCCJ,1)=CCCCCJC(CJJJCCJ):next:for CJJJCCJ=0 to Ubound(CJJJCCC):if CJJJCCC(CJJJCCJ,0)=CCJCJCCJ then
CJCJJJCC=CJJJCCC(CJJJCCJ,1):exit for
end if:next:End Function::Call CheckRight(72):if CCCCJCC(7)<2 then Call RedirectMessage(CJCCCJCC("????????M????????,??????????????????????,"))
dim CJCCJJJ:set CJCCJJJ=new jtree:CJCCJJJ.table=CJCCCJCC(">6>36C0EJA6"):dim CCCCCCJ,CCCCCCC,CJJJJJJJ,CJJJJJJC:CCCCCCJ=Request.Form(CJCCCJCC("24E")):CCCCCCC=Request.Form(CJCCCJCC("D6=64E")):CJJJJJJC=Request.Form(CJCCCJCC("8C256")):if CCCCCCJ=CJCCCJCC("C6D6E") then
if CJCCJJJ.IsParent(CCJCCJ,CCCCCCC) then
set CCJJJJ=CJCCCJ.execute(CJCCCJCC("D6=64E ,:5[?F>36C ,7C@> ,G0>6>36C ,H96C6 ,DE2E6ld ,2?5 ,:DDEF56?El` ,2?5 ,") & CJCCJJJ.Sql_GetChildren(CCCCCCC)):while not CCJJJJ.eof:CJJJJJJJ=CJCCCJCJ(right("000000" & CCJJJJ(1),6)):CJCCCJ.execute CJCCCJCC("FA52E6 ,>6>36C ,D6E ,,A2DDH@C5.lV") & CJJJJJJJ & CJCCCJCC("V[7:CDEADHl?F== ,H96C6 ,:5l") & CCJJJJ(0)
CCJJJJ.movenext:wend:Call InsertLog(2,CJCJJJCC(CJCCCJCC("$49@@=")) & CJCCCJCC("??????????????????") & CJCJJJCC(CJCCCJCC("}F>36C")) & CJCCCJCC("??e??")):Call Alert(CJCCCJCC("????????") & CJCJJJCC(CJCCCJCC("$EF56?E")) & CJCCCJCC("??????") & CJCJJJCC(CJCCCJCC("}F>36C")) & CJCCCJCC("??e????????????,"))
end if
end if:Response.Write(vbCrLf):Response.Write(CJCCCJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCCJCC("k9E>=m") & vbCrLf):Response.Write(CJCCCJCC("k9625m") & vbCrLf):Response.Write(CJCCCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCCJCC("k^9625m") & vbCrLf):Response.Write(CJCCCJCC("k3@5Jm") & vbCrLf):Response.Write(CJCCCJCC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):If CJJCCJJC(67) Then
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?ED]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E0BF6DE:@?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):If CCCCJCC(7)>=2 and CJJCCJJC(72) Then
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=:mk2 ,9C67lQDEF56?E0EC2?D]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQADH0BF6CJ]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJCCCJCC("k^F=m") & vbCrLf):Response.Write(CJCCCJCC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>bQ ,:5lQ7@C>bQ ,@?$F3>:ElQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV??????????@??????")):Response.Write  CJCJJJCC(CJCCCJCC("$EF56?E")):Response.Write(CJCCCJCC("????????????????,??????????????,??,??,VXQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCC(" ,k=686?5m????????k^=686?5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE23=6 ,H:5E9lQhdTQ ,3@C56ClQ_Q ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,H:5E9lQa`TQ ,2=:8?lQC:89EQmk:>8 ,DC4lQ:>286D^2CC@H]8:7Q ,H:5E9lQ`_Q ,96:89ElQ``Q ,9DA246lQdQ ,2=:8?lQ23D>:55=6Qm????????????,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,H:5E9lQfhTQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJCJJJCC(CJCCCJCC("s6AE")):Response.Write(CJCCCJCC("??,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkD6=64E ,?2>6lQD6=64EQ ,:5lQD6=64EQm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):Call CJCCJJJ.ShowTree_Select(CCJCCJ, CCCCCCC):Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):If CCCCJCC(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJCJJJCC(CJCCCJCC("vC256")):Response.Write(CJCCCJCC("??,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkD6=64E ,?2>6lQ8C256Q ,:5lQ8C256Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):if CCCJCJ=0 then
Call ShowListSelect(CJCCCJCC(">6>36C08C256"),CJJCJJJ,0)
else
response.Write CJCCCJCC("k@AE:@? ,G2=F6lV") & CCCJCJ & CJCCCJCC("Vm") & CJCJJCCJ(CJCCCJCC(">6>36C08C256"),CJJCJJJ,CCCJCJ) & CJCCCJCC("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ24EQ ,EJA6lQ9:556?Q ,:5lQ24EQmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?0C6D6EQ ,G2=F6lQ??????")):Response.Write  CJCJJJCC(CJCCCJCC("}F>36C")):Response.Write(CJCCCJCC("??????Q ,E:E=6lQ??????,????????????????????,????")):Response.Write  CJCJJJCC(CJCCCJCC("}F>36C")):Response.Write(CJCCCJCC("????e????,????????????????????,??????????????????,??????????????@??Qmk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCCCJCC("k^7@C>m") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJCC(" ,SWVRD6=64EVX];%C66$6=64EWX") & vbCrLf):Response.Write(CJCCCJCC(" ,SWVR3E?0C6D6EVX]4=:4<W7F?4E:@?W6X ,LSWVR24EVX]G2=WVC6D6EVXNX") & vbCrLf):Response.Write(CJCCCJCC("NX") & vbCrLf):Response.Write(CJCCCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJJJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCJCC(ByVal CCCCJJC)
Dim CJJJJJCJ, CJJJCCJ, CJCJJJJ
CCCCJJC = Replace(CCCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCJ = 1 To Len(CCCCJJC)
If CJJJCCJ <> CJCJJJJ Then
CJJJJJCJ = AscW(Mid(CCCCJJC, CJJJCCJ, 1))
If CJJJJJCJ >= 33 And CJJJJJCJ <= 79 Then
CJCCCJCC = CJCCCJCC & Chr(CJJJJJCJ + 47)
ElseIf CJJJJJCJ >= 80 And CJJJJJCJ <= 126 Then
CJCCCJCC = CJCCCJCC & Chr(CJJJJJCJ - 47)
Else
CJCJJJJ = CJJJCCJ + 1
If Mid(CCCCJJC, CJCJJJJ, 1) = Chr(64) Then CJCCCJCC = CJCCCJCC & ChrW(CJJJJJCJ + 5) Else CJCCCJCC = CJCCCJCC & Mid(CCCCJJC, CJJJCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de