<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJCC, CJJCJJ,CJJCJC, CJJCCJ, CJJCCC:Set CJJJCC = server.CreateObject(CJCJJCCJ("ps~sq]r@??64E:@?")):CJJJCC.open Application(CJCJJCCJ("r@??64E:@?$EC:?8")):Set CJJCJJ=CJJJCC::Function CJJJCJCJ(CJCJJCCC):Dim str,CJCJJC:str = Trim(CJCJJCCC):If IsNull(str) Or str = "" Then
CJJJCJCJ = ""
else
str=Replace(str, CJCJJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJJCCJ("k:7C2>6"), CJCJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJJCCJ("kD4C:AE"), CJCJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJJC=new RegExp:CJCJJC.Pattern=CJCJJCCJ("@?W,2\K.ZXl"):CJCJJC.IgnoreCase = True:CJCJJC.Global=True:str=CJCJJC.Replace(str,CJCJJCCJ("@?S`U6BF2=Dj")):set CJCJJC=nothing:CJJJCJCJ=str
End If:End Function:Function IIf(CJCJCJJJ, CJCJCJJC, CJCJCJCJ):if isnull(CJCJCJJJ) or isempty(CJCJCJJJ) then
IIf = CJCJCJCJ
elseif CJCJCJJJ Then
IIf = CJCJCJJC
Else
IIf = CJCJCJCJ
end if:End Function:Const CCCJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCJJCCJ("FE7\g"):dim CJCJCJ,CJCJCC,CJCCJJ:if isarray(str) then
on error resume next:CJCJCJ=ubound(str,2):CJCCJJ=err.number:err.clear:on error goto 0:if CJCCJJ<>0 then
for CJCJCJ=0 to ubound(str):if CJCJCJ>0 then response.Write CJCJJCCJ("k3C ,^m")
response.Write CJCJCJ & CJCJJCCJ("i ,") & str(CJCJCJ):next
else
response.Write CJCJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJCJ=0 to ubound(str,2):response.Write CJCJJCCJ("kE9 ,2=:8?lV=67EVm") & CJCJCJ & CJCJJCCJ("k^E9m")
next:response.Write CJCJJCCJ("k^ECm"):for CJCJCJ=0 to ubound(str):response.Write CJCJJCCJ("kECmkE9m") & CJCJCJ & CJCJJCCJ("k^E9m"):for CJCJCC=0 to ubound(str,2):response.Write CJCJJCCJ("kE5m") & str(CJCJCJ,CJCJCC) & CJCJJCCJ("k^E5m"):next:response.Write CJCJJCCJ("k^ECm"):next:response.Write CJCJJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCJCJCC,CJCJCCJJ):dim CJCCJC:CJCCJC=CJCJCJCC & CJCJJCCJ("l") & CJCJCCJJ & CJCJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCCJ("$6E\r@@<:6"),CJCCJC):End Sub:::::Sub CheckValidPost():dim CJCCCJ:CJCCCJ=false:Dim CJCCCC : CJCCCC=lcase(Request.ServerVariables(CJCJJCCJ("w%%!0#tut#t#"))):if(instr(CJCCCC,Application(CJCJJCCJ("s@>2:?(9:E6{:DE")))>0) then
CJCCCJ=true
else
Dim CCJJJJ : CCJJJJ=lcase(Request.ServerVariables(CJCJJCCJ("$t#'t#0}p|t"))):Dim CCJJJC : CCJJJC=Request.ServerVariables(CJCJJCCJ("{~rp{0pss#")):if Mid(CJCCCC,8,Len(CCJJJJ))=CCJJJJ or Mid(CJCCCC,9,Len(CCJJJJ))=CCJJJJ or CCJJJJ=CCJJJC then CJCCCJ=true
end if:if not CJCCCJ then Call RedirectMessage(CJCJJCCJ("寴@丈@赲@，,朧@糶@绚@丈@儼@讳@竔@夑@揋@亟@敫@捩@。,"))
end sub::Function CJJJCCJJ(CJCCJJ):if isnull(CJCCJJ) or trim(CJCCJJ)="" or not isnumeric(CJCCJJ) then
CJJJCCJJ=false
else
Dim CJCJJC:Set CJCJJC = New RegExp:CJCJJC.Pattern = CJCJJCCJ("/-5ZS"):CJCJJC.IgnoreCase = True:CJJJCCJJ = CJCJJC.test(CJCCJJ):set CJCJJC=nothing
end if:End Function:Function CJJJCCJC(CJCJCCJC):dim CCJJCJ,CCJJCC:CCJJCJ=CJCJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJCCJC & CJCJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCC=CJJJCC.execute(CCJJCJ):CJJJCCJC = CCJJCC(0):if isnull(CJJJCCJC) then CJJJCCJC=1
CCJJCC.close : set CCJJCC=nothing:End Function:Function CJJJCCCJ():dim CCJJCJ,CCJJCC,CCJCJJ:CCJCJJ=10001:CCJJCJ=CJCJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\WC@H0?F>36CWX@G6CW@C56C ,3J ,:5XZ") & CCJCJJ-1 & CJCJJCCJ("X ,2D ,5:77 ,7C@> ,>6>36C ,H96C6 ,:5m") & CCJCJJ-1 & CJCJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCC=CJJJCC.execute(CCJJCJ):CJJJCCCJ = CCJJCC(0):if isnull(CJJJCCCJ) then CJJJCCCJ=CCJCJJ
CCJJCC.close : set CCJJCC=nothing:End Function:::Sub ConnClose():On Error Resume Next:set CCJJCJJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:CCJJCC.close : set CCJJCC=nothing:CJJCCJ.Close : Set CJJCCJ=Nothing:CJJCJC.Close : Set CJJCJC=Nothing:CJJCJJCJ.Close : Set CJJCJJCJ = Nothing:CJJJCC.Close : Set CJJJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJCCJ("!$*0|6DD286"),server.URLEncode(CJCJCCCJ)):Response.Redirect CJCJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJCJCCCC):Application.Contents.Remove CJCJCCCC
End Sub::Dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC:CJJJCCC=Trim(Request.Cookies(CJCJJCCJ("!$*|t|qt#"))):if CJJJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJC>0 then
CJJCCC=CJCJJCCJ("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") & CCJCCJ & CJCJJCCJ("V ,2?5 ,:5l") & CCJCJC
set CJJCJC=CJJJCC.execute(CJJCCC):If CJJCJC.EOF Then
Call ClearMemberCookie
Else
CCJCCC=CJJCJC(2) & "":CCCJJJ=CJJCJC(3):CCCJJC=CJJCJC(5):CCCJCJ=CJJCJC(6):CCCJCC=CJJCJC(9):CCCCJJ=CJJCJC(15):CCCCCJ=CJJCJC(0):CJJJCJC=CJJCJC(1):CJJJCJJ=CJJCJC(11) & "":CCCCCC=CJJCJC(10) & "":CCCCJC=CJJCJC(12):CJJJJJJ=CJJCJC(14):CJJJJJC=CJJCJC(13):CJJJJCJ=CJJCJC(7) & "":CJJJJCC=CJJCJC(4):CJJJCCJ=CJJCJC(8):if isnull(CCCCJJ) then CCCCJJ=0
if isnull(CCCJCC) or CCCJCC=0 then CCCJCC=CCCJJJ
if isnull(CJJJJCC) then CJJJJCC=0
if isnull(CCCJJC) then CCCJJC=0
if instr(CJCJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCCJ)>0 then Call RedirectMessage(CJCJJCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCJC,CCJCCJ)
End IF
end if:Sub CheckRight(CCCJJCJ):dim CJCJCJ,CJJCJJJ:if CCJCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJCJJCC(CCCJJCJ) then
Call RedirectMessage(CJCJJCCJ("朾@陋@W") & CCCJJCJ & CJCJJCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJCJJCC(CCCJJCJ):dim CJCJCJ,CJJCJJJ:CJJCJJJ=split(CCCJJCJ,CJCJJCCJ("[")):CJJCJJCC=False:for CJCJCJ=0 to ubound(CJJCJJJ):If Mid(CCJCCC,CJJCJJJ(CJCJCJ),1)="1" then
CJJCJJCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJJC:CJJCJJC=trim(request.QueryString(CJCJJCCJ("D49@@="))):if isnumeric(CJJCJJC) then
response.Redirect CJCJJCCJ("^>^G2?E^R^D49@@=^") & CJJCJJC & CJCJJCCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJCCJ("!$*|t|qt#"))="":CCJCJC=0:CCCJCJ=0:CCJCCJ=Empty:CCCJJC=0:CCCCJJ=0:CCCJCC=0:CCCJJJ=0:CCCCCJ=False:CJJJCJC=False:CJJJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJC,CJJCJCJ,CJCJCJ,CJCJCC,CJJCJCC:CJCCJC=split(CJJJCCC,CJCJJCCJ("]")):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
CJJCJCJ=CJCCJC(1):for CJCJCJ=1 to len(CJJCJCJ):CJCJCC=mid(CJJCJCJ,CJCJCJ,1):if isnumeric(CJCJCC) then CJJCJCC=CJJCJCC & CJCJCC
if len(CJJCJCC)=7 then exit for
next:CJJCJCJ=CJCCJC(2):if CJJCJCC<>mid(CJJCJCJ,6,7) then
Call ClearMemberCookie
else
CJCJCC=mid(CJJCJCJ,18,10)/2:if CJCJCC<DateDiff(CJCJJCCJ("D"), CJCJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJC=Clng(CJCCJC(0)):CCJCCJ=CJCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJCJJ,CJCCJJJJ):dim CJCJCJ,CJCJCC,CJJCJCC:for CJCJCJ=1 to len(CJCCJJJJ):CJCJCC=mid(CJCCJJJJ,CJCJCJ,1):if isnumeric(CJCJCC) then CJJCJCC=CJJCJCC & CJCJCC
if len(CJJCJCC)=7 then exit for
next:CJJCJCC=CJCJJCJJ & CJCJJCCJ("]") & CJCCJJJJ & CJCJJCCJ("]") & Fix(10000*(Rnd+1)) & CJJCJCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJJCCJ("D"), CJCJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJCCJ("!$*|t|qt#"))=CJJCJCC:End Sub::Private Const CCCJCJC =8:Private Const CCCJCCJ =4:Private Const CCCJCCC =32:Private CJJCCJJ(30):Private CJJCCJC(30):Private Function CJJCJCJJ(CJCCJJJC, CJCCJJCJ):If CJCCJJCJ = 0 Then
CJJCJCJJ = CJCCJJJC:Exit Function
ElseIf CJCCJJCJ = 31 Then
If CJCCJJJC And 1 Then
CJJCJCJJ = &H80000000
Else
CJJCJCJJ = 0
End If:Exit Function
ElseIf CJCCJJCJ < 0 Or CJCCJJCJ > 31 Then
Err.Raise 6
End If:If (CJCCJJJC And CJJCCJC(31 - CJCCJJCJ)) Then
CJJCJCJJ = ((CJCCJJJC And CJJCCJJ(31 - (CJCCJJCJ + 1))) * CJJCCJC(CJCCJJCJ)) Or &H80000000
Else
CJJCJCJJ = ((CJCCJJJC And CJJCCJJ(31 - CJCCJJCJ)) * CJJCCJC(CJCCJJCJ))
End If:End Function:Private Function CJJCJCJC(CJCCJJJC, CJCCJJCJ):If CJCCJJCJ = 0 Then
CJJCJCJC = CJCCJJJC:Exit Function
ElseIf CJCCJJCJ = 31 Then
If CJCCJJJC And &H80000000 Then
CJJCJCJC = 1
Else
CJJCJCJC = 0
End If:Exit Function
ElseIf CJCCJJCJ < 0 Or CJCCJJCJ > 31 Then
Err.Raise 6
End If:CJJCJCJC = (CJCCJJJC And &H7FFFFFFE) \ CJJCCJC(CJCCJJCJ):If (CJCCJJJC And &H80000000) Then
CJJCJCJC = (CJJCJCJC Or (&H40000000 \ CJJCCJC(CJCCJJCJ - 1)))
End If:End Function:Private Function CJJCJCCJ(CJCCJJJC, CJCCJJCJ):CJJCJCCJ = CJJCJCJJ(CJCCJJJC, CJCCJJCJ) Or CJJCJCJC(CJCCJJJC, (32 - CJCCJJCJ)):End Function:Private Function CJJCJCCC(CJCCJJCC, CJCCJCJJ):Dim CJJCCCJ:Dim CJJCCCC:Dim CJCJJJJ:Dim CJCJJJC:Dim CJCJJCJ:CJCJJJJ = CJCCJJCC And &H80000000:CJCJJJC = CJCCJCJJ And &H80000000:CJJCCCJ = CJCCJJCC And &H40000000:CJJCCCC = CJCCJCJJ And &H40000000:CJCJJCJ = (CJCCJJCC And &H3FFFFFFF) + (CJCCJCJJ And &H3FFFFFFF):If CJJCCCJ And CJJCCCC Then
CJCJJCJ = CJCJJCJ Xor &H80000000 Xor CJCJJJJ Xor CJCJJJC
ElseIf CJJCCCJ Or CJJCCCC Then
If CJCJJCJ And &H40000000 Then
CJCJJCJ = CJCJJCJ Xor &HC0000000 Xor CJCJJJJ Xor CJCJJJC
Else
CJCJJCJ = CJCJJCJ Xor &H40000000 Xor CJCJJJJ Xor CJCJJJC
End If
Else
CJCJJCJ = CJCJJCJ Xor CJCJJJJ Xor CJCJJJC
End If:CJJCJCCC = CJCJJCJ:End Function:Private Function CJJCCJJJ(CJCCJCC, CJCCJCJC, CJCCJCCJ):CJJCCJJJ = (CJCCJCC And CJCCJCJC) Or ((Not CJCCJCC) And CJCCJCCJ):End Function:Private Function CJJCCJJC(CJCCJCC, CJCCJCJC, CJCCJCCJ):CJJCCJJC = (CJCCJCC And CJCCJCCJ) Or (CJCCJCJC And (Not CJCCJCCJ)):End Function:Private Function CJJCCJCJ(CJCCJCC, CJCCJCJC, CJCCJCCJ):CJJCCJCJ = (CJCCJCC Xor CJCCJCJC Xor CJCCJCCJ):End Function:Private Function CJJCCJCC(CJCCJCC, CJCCJCJC, CJCCJCCJ):CJJCCJCC = (CJCCJCJC Xor (CJCCJCC Or (Not CJCCJCCJ))):End Function:Private Sub md5_FF(CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC, CJCCJCCC, CJCCCJJJ):CCJJJJJ = CJJCJCCC(CCJJJJJ, CJJCJCCC(CJJCJCCC(CJJCCJJJ(CCJJJJC, CCJJJCJ, CCJJJCC), CJCCJCC), CJCCCJJJ)):CCJJJJJ = CJJCJCCJ(CCJJJJJ, CJCCJCCC):CCJJJJJ = CJJCJCCC(CCJJJJJ, CCJJJJC):End Sub:Private Sub md5_GG(CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC, CJCCJCCC, CJCCCJJJ):CCJJJJJ = CJJCJCCC(CCJJJJJ, CJJCJCCC(CJJCJCCC(CJJCCJJC(CCJJJJC, CCJJJCJ, CCJJJCC), CJCCJCC), CJCCCJJJ)):CCJJJJJ = CJJCJCCJ(CCJJJJJ, CJCCJCCC):CCJJJJJ = CJJCJCCC(CCJJJJJ, CCJJJJC):End Sub:Private Sub md5_HH(CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC, CJCCJCCC, CJCCCJJJ):CCJJJJJ = CJJCJCCC(CCJJJJJ, CJJCJCCC(CJJCJCCC(CJJCCJCJ(CCJJJJC, CCJJJCJ, CCJJJCC), CJCCJCC), CJCCCJJJ)):CCJJJJJ = CJJCJCCJ(CCJJJJJ, CJCCJCCC):CCJJJJJ = CJJCJCCC(CCJJJJJ, CCJJJJC):End Sub:Private Sub md5_II(CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC, CJCCJCCC, CJCCCJJJ):CCJJJJJ = CJJCJCCC(CCJJJJJ, CJJCJCCC(CJJCJCCC(CJJCCJCC(CCJJJJC, CCJJJCJ, CCJJJCC), CJCCJCC), CJCCCJJJ)):CCJJJJJ = CJJCJCCJ(CCJJJJJ, CJCCJCCC):CCJJJJJ = CJJCJCCC(CCJJJJJ, CCJJJJC):End Sub:Private Function CJJCCCJJ(CJCCCJJC):Dim CJCJJCC:Dim CJCJCJJ:Dim CJCJCJC():Dim CJCJCCJ:Dim CJCJCCC:Dim CJCCJJJ:Const CCCCJJJ =512:Const CCCCJJC =448:CJCJJCC = Len(CJCCCJJC):CJCJCJJ = (((CJCJJCC + ((CCCCJJJ - CCCCJJC) \ CCCJCJC)) \ (CCCCJJJ \ CCCJCJC)) + 1) * (CCCCJJJ \ CCCJCCC):ReDim CJCJCJC(CJCJCJJ - 1):CJCJCCJ = 0:CJCJCCC = 0:Do Until CJCJCCC >= CJCJJCC:CJCCJJJ = CJCJCCC \ CCCJCCJ:CJCJCCJ = (CJCJCCC Mod CCCJCCJ) * CCCJCJC:CJCJCJC(CJCCJJJ) = CJCJCJC(CJCCJJJ) Or CJJCJCJJ(Asc(Mid(CJCCCJJC, CJCJCCC + 1, 1)), CJCJCCJ):CJCJCCC = CJCJCCC + 1:Loop:CJCCJJJ = CJCJCCC \ CCCJCCJ:CJCJCCJ = (CJCJCCC Mod CCCJCCJ) * CCCJCJC:CJCJCJC(CJCCJJJ) = CJCJCJC(CJCCJJJ) Or CJJCJCJJ(&H80, CJCJCCJ):CJCJCJC(CJCJCJJ - 2) = CJJCJCJJ(CJCJJCC, 3):CJCJCJC(CJCJCJJ - 1) = CJJCJCJC(CJCJJCC, 29):CJJCCCJJ = CJCJCJC:End Function:Private Function CJJCCCJC(CJCCJJJC):Dim CJCCJJC:Dim CJCCJCJ:For CJCCJCJ = 0 To 3:CJCCJJC = CJJCJCJC(CJCCJJJC, CJCCJCJ * CCCJCJC) And CJJCCJJ(CCCJCJC - 1):CJJCCCJC = CJJCCCJC & Right("0" & Hex(CJCCJJC), 2):Next:End Function:Public Function CJJCCCCJ(CJCCCJJC):CJJCCJJ(0) = CLng(1):CJJCCJJ(1) = CLng(3):CJJCCJJ(2) = CLng(7):CJJCCJJ(3) = CLng(15):CJJCCJJ(4) = CLng(31):CJJCCJJ(5) = CLng(63):CJJCCJJ(6) = CLng(127):CJJCCJJ(7) = CLng(255):CJJCCJJ(8) = CLng(511):CJJCCJJ(9) = CLng(1023):CJJCCJJ(10) = CLng(2047):CJJCCJJ(11) = CLng(4095):CJJCCJJ(12) = CLng(8191):CJJCCJJ(13) = CLng(16383):CJJCCJJ(14) = CLng(32767):CJJCCJJ(15) = CLng(65535):CJJCCJJ(16) = CLng(131071):CJJCCJJ(17) = CLng(262143):CJJCCJJ(18) = CLng(524287):CJJCCJJ(19) = CLng(1048575):CJJCCJJ(20) = CLng(2097151):CJJCCJJ(21) = CLng(4194303):CJJCCJJ(22) = CLng(8388607):CJJCCJJ(23) = CLng(16777215):CJJCCJJ(24) = CLng(33554431):CJJCCJJ(25) = CLng(67108863):CJJCCJJ(26) = CLng(134217727):CJJCCJJ(27) = CLng(268435455):CJJCCJJ(28) = CLng(536870911):CJJCCJJ(29) = CLng(1073741823):CJJCCJJ(30) = CLng(2147483647):CJJCCJC(0) = CLng(1):CJJCCJC(1) = CLng(2):CJJCCJC(2) = CLng(4):CJJCCJC(3) = CLng(8):CJJCCJC(4) = CLng(16):CJJCCJC(5) = CLng(32):CJJCCJC(6) = CLng(64):CJJCCJC(7) = CLng(128):CJJCCJC(8) = CLng(256):CJJCCJC(9) = CLng(512):CJJCCJC(10) = CLng(1024):CJJCCJC(11) = CLng(2048):CJJCCJC(12) = CLng(4096):CJJCCJC(13) = CLng(8192):CJJCCJC(14) = CLng(16384):CJJCCJC(15) = CLng(32768):CJJCCJC(16) = CLng(65536):CJJCCJC(17) = CLng(131072):CJJCCJC(18) = CLng(262144):CJJCCJC(19) = CLng(524288):CJJCCJC(20) = CLng(1048576):CJJCCJC(21) = CLng(2097152):CJJCCJC(22) = CLng(4194304):CJJCCJC(23) = CLng(8388608):CJJCCJC(24) = CLng(16777216):CJJCCJC(25) = CLng(33554432):CJJCCJC(26) = CLng(67108864):CJJCCJC(27) = CLng(134217728):CJJCCJC(28) = CLng(268435456):CJJCCJC(29) = CLng(536870912):CJJCCJC(30) = CLng(1073741824):Dim CJCCJCC:Dim CJJCJCC:Dim CJCCCJJ:Dim CJCCCJC:Dim CJCCCCJ:Dim CJCCCCC:Dim CCJJJJJ:Dim CCJJJJC:Dim CCJJJCJ:Dim CCJJJCC:Const CCCCJCJ =7:Const CCCCJCC =12:Const CCCCCJJ =17:Const CCCCCJC =22:Const CCCCCCJ =5:Const CCCCCCC =9:Const CJJJJJJJ =14:Const CJJJJJJC =20:Const CJJJJJCJ =4:Const CJJJJJCC =11:Const CJJJJCJJ =16:Const CJJJJCJC =23:Const CJJJJCCJ =6:Const CJJJJCCC =10:Const CJJJCJJJ =15:Const CJJJCJJC =21:CJCCJCC = CJJCCCJJ(CJCCCJJC):CCJJJJJ = &H67452301:CCJJJJC = &HEFCDAB89:CCJJJCJ = &H98BADCFE:CCJJJCC = &H10325476:For CJJCJCC = 0 To UBound(CJCCJCC) Step 16:CJCCCJJ = CCJJJJJ:CJCCCJC = CCJJJJC:CJCCCCJ = CCJJJCJ:CJCCCCC = CCJJJCC:md5_FF CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 0), CCCCJCJ, &HD76AA478:md5_FF CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 1), CCCCJCC, &HE8C7B756:md5_FF CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 2), CCCCCJJ, &H242070DB:md5_FF CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 3), CCCCCJC, &HC1BDCEEE:md5_FF CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 4), CCCCJCJ, &HF57C0FAF:md5_FF CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 5), CCCCJCC, &H4787C62A:md5_FF CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 6), CCCCCJJ, &HA8304613:md5_FF CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 7), CCCCCJC, &HFD469501:md5_FF CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 8), CCCCJCJ, &H698098D8:md5_FF CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 9), CCCCJCC, &H8B44F7AF:md5_FF CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 10), CCCCCJJ, &HFFFF5BB1:md5_FF CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 11), CCCCCJC, &H895CD7BE:md5_FF CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 12), CCCCJCJ, &H6B901122:md5_FF CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 13), CCCCJCC, &HFD987193:md5_FF CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 14), CCCCCJJ, &HA679438E:md5_FF CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 15), CCCCCJC, &H49B40821:md5_GG CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 1), CCCCCCJ, &HF61E2562:md5_GG CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 6), CCCCCCC, &HC040B340:md5_GG CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 11), CJJJJJJJ, &H265E5A51:md5_GG CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 0), CJJJJJJC, &HE9B6C7AA:md5_GG CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 5), CCCCCCJ, &HD62F105D:md5_GG CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 10), CCCCCCC, &H2441453:md5_GG CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 15), CJJJJJJJ, &HD8A1E681:md5_GG CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 4), CJJJJJJC, &HE7D3FBC8:md5_GG CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 9), CCCCCCJ, &H21E1CDE6:md5_GG CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 14), CCCCCCC, &HC33707D6:md5_GG CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 3), CJJJJJJJ, &HF4D50D87:md5_GG CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 8), CJJJJJJC, &H455A14ED:md5_GG CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 13), CCCCCCJ, &HA9E3E905:md5_GG CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 2), CCCCCCC, &HFCEFA3F8:md5_GG CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 7), CJJJJJJJ, &H676F02D9:md5_GG CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 12), CJJJJJJC, &H8D2A4C8A:md5_HH CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 5), CJJJJJCJ, &HFFFA3942:md5_HH CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 8), CJJJJJCC, &H8771F681:md5_HH CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 11), CJJJJCJJ, &H6D9D6122:md5_HH CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 14), CJJJJCJC, &HFDE5380C:md5_HH CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 1), CJJJJJCJ, &HA4BEEA44:md5_HH CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 4), CJJJJJCC, &H4BDECFA9:md5_HH CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 7), CJJJJCJJ, &HF6BB4B60:md5_HH CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 10), CJJJJCJC, &HBEBFBC70:md5_HH CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 13), CJJJJJCJ, &H289B7EC6:md5_HH CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 0), CJJJJJCC, &HEAA127FA:md5_HH CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 3), CJJJJCJJ, &HD4EF3085:md5_HH CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 6), CJJJJCJC, &H4881D05:md5_HH CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 9), CJJJJJCJ, &HD9D4D039:md5_HH CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 12), CJJJJJCC, &HE6DB99E5:md5_HH CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 15), CJJJJCJJ, &H1FA27CF8:md5_HH CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 2), CJJJJCJC, &HC4AC5665:md5_II CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 0), CJJJJCCJ, &HF4292244:md5_II CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 7), CJJJJCCC, &H432AFF97:md5_II CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 14), CJJJCJJJ, &HAB9423A7:md5_II CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 5), CJJJCJJC, &HFC93A039:md5_II CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 12), CJJJJCCJ, &H655B59C3:md5_II CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 3), CJJJJCCC, &H8F0CCC92:md5_II CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 10), CJJJCJJJ, &HFFEFF47D:md5_II CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 1), CJJJCJJC, &H85845DD1:md5_II CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 8), CJJJJCCJ, &H6FA87E4F:md5_II CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 15), CJJJJCCC, &HFE2CE6E0:md5_II CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 6), CJJJCJJJ, &HA3014314:md5_II CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 13), CJJJCJJC, &H4E0811A1:md5_II CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CJCCJCC(CJJCJCC + 4), CJJJJCCJ, &HF7537E82:md5_II CCJJJCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJCCJCC(CJJCJCC + 11), CJJJJCCC, &HBD3AF235:md5_II CCJJJCJ, CCJJJCC, CCJJJJJ, CCJJJJC, CJCCJCC(CJJCJCC + 2), CJJJCJJJ, &H2AD7D2BB:md5_II CCJJJJC, CCJJJCJ, CCJJJCC, CCJJJJJ, CJCCJCC(CJJCJCC + 9), CJJJCJJC, &HEB86D391:CCJJJJJ = CJJCJCCC(CCJJJJJ, CJCCCJJ):CCJJJJC = CJJCJCCC(CCJJJJC, CJCCCJC):CCJJJCJ = CJJCJCCC(CCJJJCJ, CJCCCCJ):CCJJJCC = CJJCJCCC(CCJJJCC, CJCCCCC):Next:CJJCCCCJ = LCase(CJJCCCJC(CCJJJJJ) & CJJCCCJC(CCJJJJC) & CJJCCCJC(CCJJJCJ) & CJJCCCJC(CCJJJCC)):End Function::Class jTree:Private CJJCCC, CCJJCJJ, CCJJCJC, CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:Private Sub Class_Initialize():CCJJCJC = 0:CCJJCCJ = 0:CCJCJCJ=10:End Sub:Public Property Let Table(CJCCCJCJ):if CJCCCJCJ="" then Call RedirectMessage(CJCJJCCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJJCCC=CJCCCJCJ:CCJCJJJ=CJCJJCCJ("!$*0") & UCase(CCJJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJCCC:End Property:::Private Sub GetTreeArray():Dim CJCJCJ, CJCJCC, CCJCJCC,CCJCCJJ:CCJJCJJ = Application(CCJCJJJ):If Not IsArray(CCJJCJJ) Then
CJJCCC = CJCJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCCC:if CCJCJJC<>"" then CJJCCC=CJJCCC & CJCJJCCJ(" ,H96C6 ,") & CCJCJJC
set CCJCJCC=CJJJCC.execute(CJJCCC):CCJCCJJ=CCJCJCC(0):if CCJCCJJ=0 then Call RedirectMessage(CJCJJCCJ("柠@话@W") & CCJJCCC & CJCJJCCJ("^") & CCJCJJC & CJCJJCCJ("X沜@朄@绎@林@敫@捩@"))
CCJJCCJ=CCJCCJJ+CCJCJCJ:ReDim CCJJCJJ(CCJJCCJ, 4):CJJCCC = CJCJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJCJJCCJ(" ,H:E9 ,W?@=@4<X"):if CCJCJJC<>"" then CJJCCC=CJJCCC & CJCJJCCJ(" ,H96C6 ,") & CCJCJJC
CJJCCC=CJJCCC & CJCJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCJCC=CJJJCC.execute(CJJCCC):For CJCJCJ = 1 To CCJCCJJ:For CJCJCC = 0 To 4:CCJJCJJ(CJCJCJ, CJCJCC) = CCJCJCC(CJCJCC):if IsNull(CCJJCJJ(CJCJCJ,4)) then CCJJCJJ(CJCJCJ,4)=0
If CCJJCJJ(CJCJCJ,2)="" then CCJJCJJ(CJCJCJ,2)=CJCJJCCJ(",穵@.")
Next:CCJCJCC.MoveNext:Next:CCJCJCC.Close: Set CCJCJCC = Nothing:for CJCJCJ=CCJJCCJ-(CCJCJCJ-1) to CCJJCCJ:CCJJCJJ(CJCJCJ,0)=CJCJCJ:next:Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock()
else
CCJJCCJ=Ubound(CCJJCJJ)
End If:End Sub:::::Private Function CJCJJJJJ(CJCJJCJJ):dim CJCJCJ,CCJCCJC:CJCJJJJJ=0:CCJCCJC=CStr(CJCJJCJJ):if CCJCCJC<>"0" then
for CJCJCJ=1 to CCJJCCJ:If CStr(CCJJCJJ(CJCJCJ, 0))=CCJCCJC Then
CJCJJJJJ = CJCJCJ:Exit For
End If:Next
end if:End Function:Public Function CJCJJJJC(CJCJJCJJ):if Cstr(CJCJJCJJ)="0" then
CJCJJJJC=CJCJJCCJ("栴@")
else
Dim CJCJCJ,CCJCJCC:CJCJCJ=CJCJJJJJ(CJCJJCJJ):if CJCJCJ>0 then
CJCJJJJC=CCJJCJJ(CJCJCJ,2):if CJCJJJJC="" then
set CCJCJCC=CJJJCC.execute(CJCJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJCJJCCJ(" ,H96C6 ,:5l") & CJCJJCJJ):if CCJCJCC.eof then Call RedirectMessage(CJCJJCCJ("xs（,") & CJCJJCJJ & CJCJJCCJ("）,朥@批@别@"))
CJCJJJJC=CCJCJCC(1):Call UpdateCache(CJCJJCJJ,CCJCJCC(0),CJCJJJJC,CCJCJCC(2),CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing
end if
else
set CCJCJCC=CJJJCC.execute(CJCJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJCJJCCJ(" ,H96C6 ,:5l") & CJCJJCJJ):if CCJCJCC.eof then Call RedirectMessage(CJCJJCCJ("xs（,") & CJCJJCJJ & CJCJJCCJ("）,朥@批@别@"))
CJCJJJJC=CCJCJCC(1):Call UpdateCache(CJCJJCJJ,CCJCJCC(0),CJCJJJJC,CCJCJCC(2),CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing
end if
end if:End Function:::Public Function CJCJJJCJ(CJCJJCJJ):Dim CJCJCJ,CCJCCCJ:CJCJCJ=CJCJJJJJ(CJCJJCJJ):if CJCJCJ=0 then
CCJCCCJ=CJCJJJCC(CJCJJCJJ)
else
CCJCCCJ=CCJJCJJ(CJCJCJ,3):if isnull(CCJCCCJ) or CCJCCCJ="" then
CCJCCCJ=CJCJJJCC(CJCJJCJJ)
elseif Mid(CCJCCCJ,instrrev(CCJCCCJ,CJCJJCCJ("["))+1)<>CStr(CJCJJCJJ) then
CCJCCCJ=CJCJJJCC(CJCJJCJJ)
elseif Left(CCJCCCJ,1)=CJCJJCCJ("[") then
CCJCCCJ=CJCJJJCC(CJCJJCJJ)
end if
end if:CJCJJJCJ=CCJCCCJ:End Function:Private Function CJCJJJCC(CJCJJCJJ):dim CCJCCJC:CCJCCJC=CStr(CJCJJCJJ):if CCJCCJC="0" then
CJCJJJCC=""
else
dim CCJCJCC:set CCJCJCC=CJJJCC.execute(CJCJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCCC & CJCJJCCJ(" ,H96C6 ,:5l") & CJCJJCJJ):if CCJCJCC.eof then
Call UpdateCache(CJCJJCJJ,"","","",""):Call RedirectMessage(CJCJJCCJ("顴@盩@（,xs：,") & CJCJJCJJ & CJCJJCCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJCJCC(0)=0 then
CJCJJJCC="0," & CJCJJCJJ
else
CJCJJJCC=CJCJJJCJ(CCJCJCC(0)) & CJCJJCCJ("[") & CJCJJCJJ
end if:if CCJCJCC(2)<>CJCJJJCC then
CJJJCC.execute CJCJJCCJ("FA52E6 ,") & CCJJCCC & CJCJJCCJ(" ,D6E ,A2E9lV") & CJCJJJCC & CJCJJCCJ("V ,H96C6 ,:5l") & CJCJJCJJ
else
CJCJJJCC=CCJCJCC(2)
end if
end if:Call UpdateCache(CJCJJCJJ,CCJCJCC(0),CCJCJCC(1),CJCJJJCC,CCJCJCC(3)):CCJCJCC.Close: Set CCJCJCC = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CJCJJCJJ,ByVal CJCCCJCC):Dim Str, CJCJCJ:CJCJJCJJ=CLng(CJCJJCJJ):if isnumeric(CJCCCJCC) then CJCCCJCC=CLng(CJCCCJCC) else CJCCCJCC=0
if CJCJJCJJ>0 then str=CJCJJCCJ("k@AE:@? ,G2=F6lV") & CJCJJCJJ & CJCJJCCJ("V ,52E2\A:5lV_Vm") & CJCJJJJC(CJCJJCJJ) & CJCJJCCJ("k^@AE:@?m")
For CJCJCJ = 1 To CCJJCCJ:If CJCJJCJJ=0 or (CJCJJCJJ>0 and InStr(CCJJCJJ(CJCJCJ, 3), CJCJJCCJ("[") & CJCJJCJJ & CJCJJCCJ("[")) > 0) Then
str=str & CJCJJCCJ("k@AE:@?"):if CCJJCJJ(CJCJCJ,0)=CJCCCJCC then str=str & CJCJJCCJ(" ,D6=64E65")
str=str & CJCJJCCJ(" ,G2=F6lV") & CCJJCJJ(CJCJCJ,0) & CJCJJCCJ("V ,52E2\A:5lV") & CCJJCJJ(CJCJCJ,1) & CJCJJCCJ("Vm") & CCJJCJJ(CJCJCJ,2) & CJCJJCCJ("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCJJJ
End Sub:Public Sub UpdateCache(CJCJJCJJ,CJCCCCJJ,CJCCCCJC,CCJCCCJ,CJCCCCCJ):dim CJCJCJ,CJCJCC:CJCJJCJJ=CLng(CJCJJCJJ):CJCJCJ=CJCJJJJJ(CJCJJCJJ):if CJCCCCJJ="" and CJCCCCJC="" and CCJCCCJ="" and CJCCCCCJ="" then
if CJCJCJ>0 then
for CJCJCC=1 to 4:CCJJCJJ(CJCJCJ,CJCJCC)=Null:next
end if
else
if CJCJCJ=0 then
for CJCJCC=1 to CCJJCCJ:if CCJJCJJ(CJCJCC,1) & ""="" then
CJCJCJ=CJCJCC:exit for
end if:next
end if:if CJCJCJ=0 then
Call ClearCache
else
CCJJCJJ(CJCJCJ,0)=CLng(CJCJJCJJ):if CJCCCCJJ<>"" then CCJJCJJ(CJCJCJ,1)=CLng(CJCCCCJJ)
if CJCCCCJC<>"" then CCJJCJJ(CJCJCJ,2)=CJCCCCJC
if CCJCCCJ<>"" then CCJJCJJ(CJCJCJ,3)=CCJCCCJ
if CJCCCCCJ<>"" then CCJJCJJ(CJCJCJ,4)=CLng(CJCCCCCJ)
end if
end if:if CJCJCJ>0 then
Application.Lock():Application(CCJCJJJ) = CCJJCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJCCCJ):Call ConnClose:Response.Write CJCJCCCJ:Response.End:End Sub:Private Function CJJJCCJC():CJJJCCJC=CJCJJCJC+1:End Function:Private Function CJCJJCJC():dim CCJJCC:set CCJJCC=CJJJCC.execute(CJCJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCCC & CJCJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCJJCJC=CCJJCC(0):CCJJCC.Close: Set CCJJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCJJC:CJJCCC=Request.ServerVariables(CJCJJCCJ("!p%w0x}u~")):if instr(CJJCCC,CJCJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCCJ and not CJJJCJC then Call RedirectMessage(CJCJJCCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCJJC=CCCJCC
elseif instr(CJJCCC,CJCJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCCC,CJCJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJJC=CCCJCC
elseif instr(CJJCCC,CJCJJCCJ("^D49@@="))>0 then
CJJCJJC=Request.QueryString(CJCJJCCJ("D49@@=")):if not CJJJCCJJ(CJJCJJC) then CJJCJJC=Request.QueryString(CJCJJCCJ("F"))
if not CJJJCCJJ(CJJCJJC) then CJJCJJC=Request.QueryString(CJCJJCCJ("D4"))
if not CJJJCCJJ(CJJCJJC) then Call RedirectMessage(CJCJJCCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCJJC=csng(CJJCJJC)
end if:if CJJCJJC=0 then Call RedirectMessage(CJCJJCCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJCCCC:Call SetConfig:Sub SetConfig():dim CJJCJJJ,CCJJCC:CJJCCC=CJCJJCCJ("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") & CJJCJJC:set CCJJCC=CJJJCC.execute(CJJCCC):if CCJJCC.eof then Call RedirectMessage(CJCJJCCJ("患@W") & CCJCJC & CJCJJCCJ("X戻@圣@癿@卐@佈@W") & CJJCJJC & CJCJJCCJ("X朥@批@别@。,"))
ReDim CJJCJJJ(61):CJJCJJJ(0)=CCJJCC(CJCJJCCJ(";:2@H6:")) & "":CJJCJJJ(1)=CCJJCC(CJCJJCCJ("EJA6")):CJJCJJJ(2)=CCJJCC(CJCJJCCJ("D>D")):CJJCJJJ(3)=CCJJCC(CJCJJCCJ("4FDE@>8C@FA")) & "":CJJCJJJ(4)=CCJJCC(CJCJJCCJ("D:5632C0@E96C")) & "":CJJCJJJ(5)=IIf(isnull(CCJJCC(CJCJJCCJ("E6DEC6DF=EG:6H"))),0,CCJJCC(CJCJJCCJ("E6DEC6DF=EG:6H"))):CJJCJJJ(6)=CCJJCC(CJCJJCCJ("K:IF?E:>6")):CJJCJJJ(7)=CCJJCC(CJCJJCCJ("766")):CJJCJJJ(8)=CCJJCC(CJCJJCCJ("C6E6DE52J")):CJJCJJJ(9)=CCJJCC(CJCJJCCJ("6IA:C652E6")):CJJCJJJ(10)=CCJJCC(CJCJJCCJ("E:E=6")):CJJCJJJ(11)=CCJJCC(CJCJJCCJ(":?EC@")) & "":CJJCJJJ(12)=CCJJCC(CJCJJCCJ("A:4EFC6")) & "":CJJCJJJ(13)=CCJJCC(CJCJJCCJ("72>:=J")):CJJCJJJ(14)=CCJJCC(CJCJJCCJ("4@AJC:89E")) & "":CJJCJJJ(15)=IIf(isnull(CCJJCC(CJCJJCCJ("D6>6DE6C0DE2CE052E6"))),CJCJJCCJ("`h__\`\`"),CCJJCC(CJCJJCCJ("D6>6DE6C0DE2CE052E6"))):CJJCJJJ(16)=IIf(isnull(CCJJCC(CJCJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCC(CJCJJCCJ("K:IF?0E:>6D09:89=:89E"))):CJJCJJJ(17)=CCJJCC(CJCJJCCJ("4@?E24E")) & "":CJJCJJJ(18)=CCJJCC(CJCJJCCJ("D2?5E23=6")):CJJCJJJ(19)=CCJJCC(CJCJJCCJ("4C:D:D")):CJJCJJJ(20)=CCJJCC(CJCJJCCJ("JJ52E6")):CJJCJJJ(21)=CCJJCC(CJCJJCCJ("BB")):CJJCJJJ(22)=CCJJCC(CJCJJCCJ("JFJF60D>D0EA=")) & "":CJJCJJJ(23)=CCJJCC(CJCJJCCJ("JFJF60E6DE0=3")) & "":CJJCJJJ(25)=CCJJCC(CJCJJCCJ("6IA6CE")):CJJCJJJ(26)=CCJJCC(CJCJJCCJ(">@5:?7@")):CJJCJJJ(27)=CCJJCC(CJCJJCCJ("9@>6A286E@AA:4EFC6")) & "":CJJCJJJ(28)=CCJJCC(CJCJJCCJ("4C:D:D=3")):CJJCJJJ(29)=IIf(CCJJCC(CJCJJCCJ("4C:D:D@=5")),False,True):CJJCJJJ(30)=CCJJCC(CJCJJCCJ("8C@FA8F:52?46")):CJJCJJJ(31)=CCJJCC(CJCJJCCJ("3:@7665324<")):CJJCJJJ(32)=CCJJCC(CJCJJCCJ("<6JDEC")):CJJCJJJ(33)=CCJJCC(CJCJJCCJ("=@8@")) & "":CJJCJJJ(34)=CCJJCC(CJCJJCCJ("K:46")):CJJCJJJ(35)=IIf(CCJJCC(CJCJJCCJ(":D?6H")),True,False):CJJCJJJ(36)=121:CJJCJJJ(37)=111:CJJCJJJ(38)=160:CJJCJJJ(39)=CCJJCC(CJCJJCCJ("8F6DE3@@<")):CJJCJJJ(40)=CCJJCC(CJCJJCCJ("75D")):CJJCJJJ(42)=CCJJCC(CJCJJCCJ("9@>6=@8:?")):CJJCJJJ(43)=CCJJCC(CJCJJCCJ("K:IF?0?6657665324<")):CJJCJJJ(44)=CCJJCC(CJCJJCCJ("K:IF?0E:>6D0=:>:E")):CJJCJJJ(45)=CCJJCC(CJCJJCCJ("4@>A=6E60:?7@")):CJJCJJJ(46)=CCJJCC(CJCJJCCJ("E6DE:?EC@")) & "":CJJCJJJ(47)=IIf(isnull(CCJJCC(CJCJJCCJ("JFJF60367@C60E:>6"))),0,CCJJCC(CJCJJCCJ("JFJF60367@C60E:>6"))):CJJCJJJ(49)=CCJJCC(CJCJJCCJ("D>D0C646:G6C")):CJJCJJJ(50)=CCJJCC(CJCJJCCJ("D>D0D:8?")) & "":CJJCJJJ(52)=CCJJCC(CJCJJCCJ("JFJF602CC2?86")):CJJCJJJ(53)=IIf(isnull(CCJJCC(CJCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCC(CJCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCJJJ(54)=CCJJCC(CJCJJCCJ("9:560=30@FE@7286")):CJJCJJJ(55)=CCJJCC(CJCJJCCJ("JFJF60E6DE052JD")):CJJCJJJ(56)=CCJJCC(CJCJJCCJ("JFJF60H66<0=:>:E")):CJJCJJJ(57)=CCJJCC(CJCJJCCJ("JFJF604964<65")):CJJCJJJ(58)=CCJJCC(CJCJJCCJ("K:IF?0?6657665324<0?6IE")):CJJCJJJ(59)=CCJJCC(CJCJJCCJ("4964<?6HDEF56?E")):CJJCJJJ(60)=CCJJCC(CJCJJCCJ("K:IF?04=@D6052E6")):CCJJCC.close : set CCJJCC=nothing:if isNull(CJJCJJJ(8)) or CJJCJJJ(8)="" then CJJCJJJ(8)=0
if isdate(CJJCJJJ(9)) then
CJJCJJJ(9)=cdate(CJJCJJJ(9)):if CJJCJJJ(9)<Date then Call RedirectMessage(CJCJJCCJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJCJJJ(9) & CJCJJCCJ("X巭@迂@。,"))
end if:if not CJJJCCJJ(CJJCJJJ(20)) then CJJCJJJ(20)=7
select case CJJCJJJ(1):case 1,2,16:CJJCJJJ(36)=159:case 4,5,6,10,11:CJJCJJJ(36)=190:CJJCJJJ(37)=178:CJJCJJJ(38)=191:case 7,13:CJJCJJJ(36)=164:CJJCJJJ(37)=178:CJJCJJJ(38)=179:end select:CCJCCCC=CJJCJJJ:End Sub:Function CJJCJJJC(CJCCCCCC):dim CJJCJJJ(7,1),CJCJCJ,CCCJJJJ,CCCJJJC:CCCJJJJ=Array(CJCJJCCJ("$49@@="),CJCJJCCJ("$EF56?E"),CJCJJCCJ("s6AE"),CJCJJCCJ("vC256"),CJCJJCCJ("r=2DD>2E6"),CJCJJCCJ("}F>36C"),CJCJJCCJ("%62496C"),CJCJJCCJ("!2C6?E")):select case CCJCCCC(1):case 1,2 : CCCJJJC=Array(CJCJJCCJ("孡@栜@"),CJCJJCCJ("孡@甚@"),CJCJJCCJ("珨@红@"),CJCJJCCJ("幯@红@"),CJCJJCCJ("吇@孡@"),CJCJJCCJ("孡@史@"),CJCJJCCJ("敔@布@"),CJCJJCCJ("宱@镺@")):case 3,16 : CCCJJJC=Array(CJCJJCCJ("孡@栜@"),CJCJJCCJ("孡@甚@"),CJCJJCCJ("陝@糶@"),CJCJJCCJ("幯@红@"),CJCJJCCJ("吇@孡@"),CJCJJCCJ("孡@史@"),CJCJJCCJ("敔@布@"),CJCJJCCJ("宱@镺@")):case 4 : CCCJJJC=Array(CJCJJCCJ("匶@陝@"),CJCJJCCJ("杠@论@耀@"),CJCJJCCJ("卐@佈@"),CJCJJCCJ("幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("匶@甚@"),CJCJJCCJ("宱@屙@")):case 5 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("呓@巠@"),CJCJJCCJ("郣@闣@"),CJCJJCCJ("幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("呓@巠@"),CJCJJCCJ("宱@屙@")):case 6 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("杠@论@耀@"),CJCJJCCJ("线@刦@"),CJCJJCCJ("幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("宱@屙@")):case 7 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("宓@兰@"),CJCJJCCJ("郣@闣@"),CJCJJCCJ("幯@仸@"),CJCJJCCJ("戓@叆@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("宱@屙@")):case 8 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("杠@论@耀@"),CJCJJCCJ("卐@佈@"),CJCJJCCJ("兠@聇@幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("酈@偱@")):case 9 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("敔@布@"),CJCJJCCJ("卐@佈@"),CJCJJCCJ("幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("酈@偱@")):case 10 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("氌@譡@"),CJCJJCCJ("郣@闣@"),CJCJJCCJ("兠@譡@幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("宱@屙@")):case 11 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("內@劜@呓@"),CJCJJCCJ("郣@闣@"),CJCJJCCJ("幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("宱@屙@")):case 12 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("幭@譡@"),CJCJJCCJ("卐@佈@"),CJCJJCCJ("兠@譡@幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("宱@屙@")):case 13 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("孡@呓@"),CJCJJCCJ("卐@佈@"),CJCJJCCJ("幯@仸@"),CJCJJCCJ("戓@叆@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("敔@呓@"),CJCJJCCJ("宱@屙@")):case 14 : CCCJJJC=Array(CJCJJCCJ("月@劜@炴@"),CJCJJCCJ("局@氌@"),CJCJJCCJ("线@刦@"),CJCJJCCJ("幯@仸@"),CJCJJCCJ("邶@采@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("宱@屙@")):case 15 : CCCJJJC=Array(CJCJJCCJ("卐@佈@"),CJCJJCCJ("盌@独@氌@譡@"),CJCJJCCJ("卐@佈@"),CJCJJCCJ("兠@譡@幯@仸@"),CJCJJCCJ("吇@了@"),CJCJJCCJ("缑@史@"),CJCJJCCJ("咣@话@布@"),CJCJJCCJ("宱@屙@")):case else : CCCJJJC=CCCJJJJ
end select:for CJCJCJ=0 to Ubound(CJJCJJJ):CJJCJJJ(CJCJCJ,0)=CCCJJJJ(CJCJCJ):CJJCJJJ(CJCJCJ,1)=CCCJJJC(CJCJCJ):next:for CJCJCJ=0 to Ubound(CJJCJJJ):if CJJCJJJ(CJCJCJ,0)=CJCCCCCC then
CJJCJJJC=CJJCJJJ(CJCJCJ,1):exit for
end if:next:End Function::Call CheckRight(63):dim CCCJJCJ:CCCJJCJ=Request.QueryString(CJCJJCCJ("?F>")):If Request.ServerVariables(CJCJJCCJ("#t""&t$%0|t%w~s"))=CJCJJCCJ("!~$%") then
Call CheckValidPost:CCCJJCJ=CJJJCJCJ(Request.Form(CJCJJCCJ("E6IE7:6=5f"))):CJJCCC=CJCJJCCJ(":?D6CE ,:?E@ ,>6>36CW:5[?F>36C[A2DDH@C5[7:CDEADH[EJA6[C62=?2>6[D6I[3:CE952J[255C6DD[A@DE2=4@56[6>2:=[A9@?6[>@3:=6[,DE2E6.[,8C@FA.[:DDEF56?EX ,G2=F6DW") & CJJJCCCJ  & CJCJJCCJ("[V") & CCCJJCJ & CJCJJCCJ("V") & CJCJJCCJ("[V") & CJJCCCCJ(CCCJJCJ) & CJCJJCCJ("V") & CJCJJCCJ("[V") & CCCJJCJ & CJCJJCCJ("V") & CJCJJCCJ("[") & Request.Form(CJCJJCCJ("56AE")) & CJCJJCCJ("[V") & CJJJCJCJ(Request.Form(CJCJJCCJ("E6IE7:6=5"))) & CJCJJCCJ("V") & CJCJJCCJ("[") & Request.Form(CJCJJCCJ("D6=64E")) & CJCJJCCJ("[V") & Trim(Request.Form(CJCJJCCJ("E6IE7:6=5a"))) & CJCJJCCJ("V") & CJCJJCCJ("[V") & CJJJCJCJ(Request.Form(CJCJJCCJ("E6IE7:6=5c"))) & CJCJJCCJ("V") & CJCJJCCJ("[V") & CJJJCJCJ(Request.Form(CJCJJCCJ("E6IE7:6=5b"))) & CJCJJCCJ("V") & CJCJJCCJ("[V") & CJJJCJCJ(Request.Form(CJCJJCCJ("E6IE7:6=5e"))) & CJCJJCCJ("V") & CJCJJCCJ("[V") & CJJJCJCJ(Request.Form(CJCJJCCJ("E6IE7:6=5d"))) & CJCJJCCJ("V") & CJCJJCCJ("[V") & CJJJCJCJ(Request.Form(CJCJJCCJ("E6IE7:6=5g"))) & CJCJJCCJ("V") & CJCJJCCJ("[d") & CJCJJCCJ("[`") & CJCJJCCJ("[`") & CJCJJCCJ("X")
CJJJCC.Execute(CJJCCC):Response.Charset="utf-8":Response.Write CJCJJCCJ("kD4C:AEm2=6CEWV揋@礵@：,") & CJJCJJJC(CJCJJCCJ("$EF56?E")) & Trim(Request.Form(CJCJJCCJ("E6IE7:6=5"))) & CJCJJCCJ(" ,癿@严@亵@贿@斔@淶@力@戋@劚@，,炴@凶@硩@宕@兮@门@诠@窒@叞@。,VXj ,D6=7]4=@D6WXjk^D4C:AEm")
response.End()
End if:dim CCJJCJJ:set CCJJCJJ=new jtree:CCJJCJJ.table=CJCJJCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCJJCCJ("k9E>=m") & vbCrLf):Response.Write(CJCJJCCJ("k9625m") & vbCrLf):Response.Write(CJCJJCCJ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJCJJCCJ("kE:E=6m淶@力@")):Response.Write  CJJCJJJC(CJCJJCCJ("$EF56?E")):Response.Write(CJCJJCCJ("k^E:E=6m") & vbCrLf):Response.Write(CJCJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];52E6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWVR56AEVX];%C66$6=64EWX") & vbCrLf):Response.Write(CJCJJCCJ(" ,SWV:?AFE]>J52E6VX];s2E6WL6?552E6i?6H ,s2E6WXNX") & vbCrLf):Response.Write(CJCJJCCJ("NX") & vbCrLf):Response.Write(CJCJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCJ("k^9625m") & vbCrLf):Response.Write(CJCJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJCJJCCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJCJJCCJ(" ,k=686?5m埵@朧@俜@恪@k^=686?5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Qm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm孡@史@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5fQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write  CCCJJCJ:Response.Write(CJCJJCCJ("Qm") & vbCrLf):Response.Write(CJCJJCCJ(" ,（,癶@彐@寁@矼@黓@讟@丵@孡@史@）,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm姎@合@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5Q ,EJA6lQE6IEQ ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  CJJCJJJC(CJCJJCCJ("s6AE")):Response.Write(CJCJJCCJ("：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mkD6=64E ,?2>6lQ56AEQ ,:5lQ56AEQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,")):Call CCJJCJJ.ShowTree_Select(CCCJJJ, 0):Response.Write(vbCrLf):Response.Write(CJCJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm怢@刦@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mkD6=64E ,?2>6lQD6=64EQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k@AE:@? ,G2=F6lQ`Qm甲@k^@AE:@?m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k@AE:@? ,G2=F6lQ_Qm奮@k^@AE:@?m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm甚@无@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5aQ ,EJA6lQE6IEQ ,4=2DDlQE6IE ,>J52E6Q ,C625@?=J ,G2=F6lQ")):Response.Write  Date:Response.Write(CJCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm逕@俜@圫@圻@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5cQ ,EJA6lQE6IEQ ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm邩@缑@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5bQ ,EJA6lQE6IEQ ,D:K6lQ`dQ ,>2I=6?8E9lQeQmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm田@孋@邩@仱@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5eQ ,EJA6lQE6IEQ ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm田@诘@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5dQ ,EJA6lQE6IEQ ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm扆@朵@：,k^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5gQ ,EJA6lQE6IEQ ,:5lQE6IE7:6=5Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5 ,2=:8?lQC:89EQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJCJJCCJ(" ,k3Cm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k5:G ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ墙@ ,力@Qm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi7@C>`]$F3>:E]5:D23=65l72=D6Q ,G2=F6lQ釈@ ,塦@Qm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ兮@门@窒@叞@Q ,@?r=:4<lQ;2G2D4C:AEiH:?5@H]4=@D6WXQm") & vbCrLf):Response.Write(CJCJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCCJ("k^7@C>m") & vbCrLf):Response.Write(CJCJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCJJ=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:CJJCCJ.Close:Set CJJCCJ=Nothing:CJJCJC.Close:Set CJJCJC=Nothing:CJJJCC.Close:Set CJJJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJCCJ(ByVal CCJJJCJ)
Dim CCCJJCC, CJCJCJ, CJCCJJ
CCJJJCJ = Replace(CCJJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJ = 1 To Len(CCJJJCJ)
If CJCJCJ <> CJCCJJ Then
CCCJJCC = AscW(Mid(CCJJJCJ, CJCJCJ, 1))
If CCCJJCC >= 33 And CCCJJCC <= 79 Then
CJCJJCCJ = CJCJJCCJ & Chr(CCCJJCC + 47)
ElseIf CCCJJCC >= 80 And CCCJJCC <= 126 Then
CJCJJCCJ = CJCJJCCJ & Chr(CCCJJCC - 47)
Else
CJCCJJ = CJCJCJ + 1
If Mid(CCJJJCJ, CJCCJJ, 1) = Chr(64) Then CJCJJCCJ = CJCJJCCJ & ChrW(CCCJJCC + 5) Else CJCJJCCJ = CJCJJCCJ & Mid(CCJJJCJ, CJCJCJ, 1)
End If
End If
Next
End Function
%>