<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCCJ, CCCCCC,CJJJJJJ, CJJJJJC, CJJJJCJ:Set CCCCCJ = server.CreateObject(CJJJCCJJ("ps~sq]r@??64E:@?")):CCCCCJ.open Application(CJJJCCJJ("r@??64E:@?$EC:?8")):Set CCCCCC=CCCCCJ::Dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC:CJCJCJC=Trim(Request.Cookies(CJJJCCJJ("!$*|t|qt#"))):if CJCJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCC>0 then
CJJJJCJ=CJJJCCJJ("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") & CJJJCJJ & CJJJCCJJ("V ,2?5 ,:5l") & CJJJJCC
set CJJJJJJ=CCCCCJ.execute(CJJJJCJ):If CJJJJJJ.EOF Then
Call ClearMemberCookie
Else
CJJJCJC=CJJJJJJ(2) & "":CJJJCCJ=CJJJJJJ(3):CJJJCCC=CJJJJJJ(5):CJJCJJJ=CJJJJJJ(6):CJJCJJC=CJJJJJJ(9):CJJCJCJ=CJJJJJJ(15):CJJCCJJ=CJJJJJJ(0):CJCJJCC=CJJJJJJ(1):CJCJJCJ=CJJJJJJ(11) & "":CJJCCJC=CJJJJJJ(10) & "":CJJCJCC=CJJJJJJ(12):CJJCCCJ=CJJJJJJ(14):CJJCCCC=CJJJJJJ(13):CJCJJJJ=CJJJJJJ(7) & "":CJCJJJC=CJJJJJJ(4):CJCJCJJ=CJJJJJJ(8):if isnull(CJJCJCJ) then CJJCJCJ=0
if isnull(CJJCJJC) or CJJCJJC=0 then CJJCJJC=CJJJCCJ
if isnull(CJCJJJC) then CJCJJJC=0
if isnull(CJJJCCC) then CJJJCCC=0
if instr(CJJJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJJ)>0 then Call RedirectMessage(CJJJCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJCC,CJJJCJJ)
End IF
end if:Sub CheckRight(CCCJJCJ):dim CJCJCCJ,CJCJCCC:if CJJJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCCCJJ(CCCJJCJ) then
Call RedirectMessage(CJJJCCJJ("朾@陋@W") & CCCJJCJ & CJJJCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCCCJJ(CCCJJCJ):dim CJCJCCJ,CJCJCCC:CJCJCCC=split(CCCJJCJ,CJJJCCJJ("[")):CCCCCJJ=False:for CJCJCCJ=0 to ubound(CJCJCCC):If Mid(CJJJCJC,CJCJCCC(CJCJCCJ),1)="1" then
CCCCCJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCCJJ("!$*|t|qt#"))="":CJJJJCC=0:CJJCJJJ=0:CJJJCJJ=Empty:CJJJCCC=0:CJJCJCJ=0:CJJCJJC=0:CJJJCCJ=0:CJJCCJJ=False:CJCJJCC=False:CJCJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJJ,CJCCJJC,CJCJCCJ,CJCCJCJ,CJCCJCC:CJCCJJJ=split(CJCJCJC,CJJJCCJJ("]")):if ubound(CJCCJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJJJ(0)) or len(CJCCJJJ(1))<>32 or len(CJCCJJJ(2))<>32 then
Call ClearMemberCookie
else
CJCCJJC=CJCCJJJ(1):for CJCJCCJ=1 to len(CJCCJJC):CJCCJCJ=mid(CJCCJJC,CJCJCCJ,1):if isnumeric(CJCCJCJ) then CJCCJCC=CJCCJCC & CJCCJCJ
if len(CJCCJCC)=7 then exit for
next:CJCCJJC=CJCCJJJ(2):if CJCCJCC<>mid(CJCCJJC,6,7) then
Call ClearMemberCookie
else
CJCCJCJ=mid(CJCCJJC,18,10)/2:if CJCCJCJ<DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJCC=Clng(CJCCJJJ(0)):CJJJCJJ=CJCCJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJCJJC,CJJJCCJC):dim CJCJCCJ,CJCCJCJ,CJCCJCC:for CJCJCCJ=1 to len(CJJJCCJC):CJCCJCJ=mid(CJJJCCJC,CJCJCCJ,1):if isnumeric(CJCCJCJ) then CJCCJCC=CJCCJCC & CJCCJCJ
if len(CJCCJCC)=7 then exit for
next:CJCCJCC=CJJJCJJC & CJJJCCJJ("]") & CJJJCCJC & CJJJCCJJ("]") & Fix(10000*(Rnd+1)) & CJCCJCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJJ("!$*|t|qt#"))=CJCCJCC:End Sub::::Const CCCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCCJJ("FE7\g"):dim CJCJCCJ,CJCCJCJ,CJCCCJJ:if isarray(str) then
on error resume next:CJCJCCJ=ubound(str,2):CJCCCJJ=err.number:err.clear:on error goto 0:if CJCCCJJ<>0 then
for CJCJCCJ=0 to ubound(str):if CJCJCCJ>0 then response.Write CJJJCCJJ("k3C ,^m")
response.Write CJCJCCJ & CJJJCCJJ("i ,") & str(CJCJCCJ):next
else
response.Write CJJJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJCCJ=0 to ubound(str,2):response.Write CJJJCCJJ("kE9 ,2=:8?lV=67EVm") & CJCJCCJ & CJJJCCJJ("k^E9m")
next:response.Write CJJJCCJJ("k^ECm"):for CJCJCCJ=0 to ubound(str):response.Write CJJJCCJJ("kECmkE9m") & CJCJCCJ & CJJJCCJJ("k^E9m"):for CJCCJCJ=0 to ubound(str,2):response.Write CJJJCCJJ("kE5m") & str(CJCJCCJ,CJCCJCJ) & CJJJCCJJ("k^E5m"):next:response.Write CJJJCCJJ("k^ECm"):next:response.Write CJJJCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCCCJ,CJJJCCCC):dim CJCCJJJ:CJCCJJJ=CJJJCCCJ & CJJJCCJJ("l") & CJJJCCCC & CJJJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJJ("$6E\r@@<:6"),CJCCJJJ):End Sub::::::sub ShowMessage(CJJCJJJJ):response.Charset="utf-8":Response.Write CJJJCCJJ("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") & CJJCJJJJ & CJJJCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCCJC(CJCCCJJ):if isnull(CJCCCJJ) or trim(CJCCCJJ)="" or not isnumeric(CJCCCJJ) then
CCCCCJC=false
else
Dim CJCCCJC:Set CJCCCJC = New RegExp:CJCCCJC.Pattern = CJJJCCJJ("/-5ZS"):CJCCCJC.IgnoreCase = True:CCCCCJC = CJCCCJC.test(CJCCCJJ):set CJCCCJC=nothing
end if:End Function:Function CCCCCCJ(CJJCJJJC):dim CJCCCCJ,CJCCCCC:CJCCCCJ=CJJJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJJJC & CJJJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCCC=CCCCCJ.execute(CJCCCCJ):CCCCCCJ = CJCCCCC(0):if isnull(CCCCCCJ) then CCCCCCJ=1
CJCCCCC.close : set CJCCCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJJC=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:CJCCCCC.close : set CJCCCCC=nothing:CJJJJJC.Close : Set CJJJJJC=Nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:CJJJJJCJ.Close : Set CJJJJJCJ = Nothing:CCCCCJ.Close : Set CCCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJJ("!$*0|6DD286"),server.URLEncode(CJJCJJJJ)):Response.Redirect CJJJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::Sub CheckQueryTime(CJJCJJCJ,CJJCJJCC):dim str,CJCCCJJ:str=CJJJCCJJ("!$*0") & Ucase(CJJCJJCJ):if Session(str)<>"" then
CJCCCJJ=DateDiff(CJJJCCJJ("D"),Session(str),Time):if CJCCCJJ<CJJCJJCC and CJCCCJJ>0 then
Call ConnClose:Call ShowMessage(CJJJCCJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCJJCC & CJJJCCJJ(" ,种@，,迓@剤@ ,") & CJJCJJCC-CJCCCJJ & CJJJCCJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCJCJJ):Application.Contents.Remove CJJCJCJJ
End Sub::Class jTree:Private CJJJJCJ, CCJJJJC, CCJJJCJ, CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC:Private Sub Class_Initialize():CCJJJCJ = 0:CCJJJCC = 0:CCJJCCC=10:End Sub:Public Property Let Table(CJJCJCJC):if CJJCJCJC="" then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJJCJJ=CJJCJCJC:CCJJCJC=CJJJCCJJ("!$*0") & UCase(CCJJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJCJJ:End Property:::Private Sub GetTreeArray():Dim CJCJCCJ, CJCCJCJ, CCJCJJJ,CCJCJJC:CCJJJJC = Application(CCJJCJC):If Not IsArray(CCJJJJC) Then
CJJJJCJ = CJJJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCJJ:if CCJJCCJ<>"" then CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,H96C6 ,") & CCJJCCJ
set CCJCJJJ=CCCCCJ.execute(CJJJJCJ):CCJCJJC=CCJCJJJ(0):if CCJCJJC=0 then Call RedirectMessage(CJJJCCJJ("柠@话@W") & CCJJCJJ & CJJJCCJJ("^") & CCJJCCJ & CJJJCCJJ("X沜@朄@绎@林@敫@捩@"))
CCJJJCC=CCJCJJC+CCJJCCC:ReDim CCJJJJC(CCJJJCC, 4):CJJJJCJ = CJJJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJJ & CJJJCCJJ(" ,H:E9 ,W?@=@4<X"):if CCJJCCJ<>"" then CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,H96C6 ,") & CCJJCCJ
CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCJJJ=CCCCCJ.execute(CJJJJCJ):For CJCJCCJ = 1 To CCJCJJC:For CJCCJCJ = 0 To 4:CCJJJJC(CJCJCCJ, CJCCJCJ) = CCJCJJJ(CJCCJCJ):if IsNull(CCJJJJC(CJCJCCJ,4)) then CCJJJJC(CJCJCCJ,4)=0
If CCJJJJC(CJCJCCJ,2)="" then CCJJJJC(CJCJCCJ,2)=CJJJCCJJ(",穵@.")
Next:CCJCJJJ.MoveNext:Next:CCJCJJJ.Close: Set CCJCJJJ = Nothing:for CJCJCCJ=CCJJJCC-(CCJJCCC-1) to CCJJJCC:CCJJJJC(CJCJCCJ,0)=CJCJCCJ:next:Application.Lock():Application(CCJJCJC) = CCJJJJC:Application.UnLock()
else
CCJJJCC=Ubound(CCJJJJC)
End If:End Sub:::::Private Function CJJJJCJJ(CJJJCJJC):dim CJCJCCJ,CCJCJCJ:CJJJJCJJ=0:CCJCJCJ=CStr(CJJJCJJC):if CCJCJCJ<>"0" then
for CJCJCCJ=1 to CCJJJCC:If CStr(CCJJJJC(CJCJCCJ, 0))=CCJCJCJ Then
CJJJJCJJ = CJCJCCJ:Exit For
End If:Next
end if:End Function::::Public Function CJJJJCJC(CJJJCJJC):Dim CJCJCCJ,CCJCJCC:CJCJCCJ=CJJJJCJJ(CJJJCJJC):if CJCJCCJ=0 then
CCJCJCC=CJJJJCCJ(CJJJCJJC)
else
CCJCJCC=CCJJJJC(CJCJCCJ,3):if isnull(CCJCJCC) or CCJCJCC="" then
CCJCJCC=CJJJJCCJ(CJJJCJJC)
elseif Mid(CCJCJCC,instrrev(CCJCJCC,CJJJCCJJ("["))+1)<>CStr(CJJJCJJC) then
CCJCJCC=CJJJJCCJ(CJJJCJJC)
elseif Left(CCJCJCC,1)=CJJJCCJJ("[") then
CCJCJCC=CJJJJCCJ(CJJJCJJC)
end if
end if:CJJJJCJC=CCJCJCC:End Function:Private Function CJJJJCCJ(CJJJCJJC):dim CCJCJCJ:CCJCJCJ=CStr(CJJJCJJC):if CCJCJCJ="0" then
CJJJJCCJ=""
else
dim CCJCJJJ:set CCJCJJJ=CCCCCJ.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJJ & CJJJCCJJ(" ,H96C6 ,:5l") & CJJJCJJC):if CCJCJJJ.eof then
Call UpdateCache(CJJJCJJC,"","","",""):Call RedirectMessage(CJJJCCJJ("顴@盩@（,xs：,") & CJJJCJJC & CJJJCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJCJJJ(0)=0 then
CJJJJCCJ="0," & CJJJCJJC
else
CJJJJCCJ=CJJJJCJC(CCJCJJJ(0)) & CJJJCCJJ("[") & CJJJCJJC
end if:if CCJCJJJ(2)<>CJJJJCCJ then
CCCCCJ.execute CJJJCCJJ("FA52E6 ,") & CCJJCJJ & CJJJCCJJ(" ,D6E ,A2E9lV") & CJJJJCCJ & CJJJCCJJ("V ,H96C6 ,:5l") & CJJJCJJC
else
CJJJJCCJ=CCJCJJJ(2)
end if
end if:Call UpdateCache(CJJJCJJC,CCJCJJJ(0),CCJCJJJ(1),CJJJJCCJ,CCJCJJJ(3)):CCJCJJJ.Close: Set CCJCJJJ = Nothing
end if:End Function::::Public Function IsParent(CJJCJCCJ, CJJCJCCC):IsParent=InStr(CJJJJCJC(CJJCJCCC) & CJJJCCJJ("["), CJJJCCJJ("[") & CJJCJCCJ & CJJJCCJJ("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CJJJCJJC):dim CCJCJCC:CCJCJCC=CJJJJCJC(CJJJCJJC):Sql_GetChildren = CCJJCJJ & CJJJCCJJ("0A2E9ZV[V ,=:<6 ,V") & CCJCJCC & CJJJCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJCJC
End Sub:Public Sub UpdateCache(CJJJCJJC,CJJCCJJJ,CJJCCJJC,CCJCJCC,CJJCCJCJ):dim CJCJCCJ,CJCCJCJ:CJJJCJJC=CLng(CJJJCJJC):CJCJCCJ=CJJJJCJJ(CJJJCJJC):if CJJCCJJJ="" and CJJCCJJC="" and CCJCJCC="" and CJJCCJCJ="" then
if CJCJCCJ>0 then
for CJCCJCJ=1 to 4:CCJJJJC(CJCJCCJ,CJCCJCJ)=Null:next
end if
else
if CJCJCCJ=0 then
for CJCCJCJ=1 to CCJJJCC:if CCJJJJC(CJCCJCJ,1) & ""="" then
CJCJCCJ=CJCCJCJ:exit for
end if:next
end if:if CJCJCCJ=0 then
Call ClearCache
else
CCJJJJC(CJCJCCJ,0)=CLng(CJJJCJJC):if CJJCCJJJ<>"" then CCJJJJC(CJCJCCJ,1)=CLng(CJJCCJJJ)
if CJJCCJJC<>"" then CCJJJJC(CJCJCCJ,2)=CJJCCJJC
if CCJCJCC<>"" then CCJJJJC(CJCJCCJ,3)=CCJCJCC
if CJJCCJCJ<>"" then CCJJJJC(CJCJCCJ,4)=CLng(CJJCCJCJ)
end if
end if:if CJCJCCJ>0 then
Application.Lock():Application(CCJJCJC) = CCJJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJJJ):Call ConnClose:Response.Write CJJCJJJJ:Response.End:End Sub:Private Function CCCCCCJ():CCCCCCJ=CJJJCJCJ+1:End Function:Private Function CJJJCJCJ():dim CJCCCCC:set CJCCCCC=CCCCCJ.execute(CJJJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCJJ & CJJJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJCJ=CJCCCCC(0):CJCCCCC.Close: Set CJCCCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCJCC=162:Call CheckRight("54,81"):Call CheckQueryTime(CJJJCCJJ("%6DE0#6A@CE"),15):dim CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC:CCCJJJC=Request.QueryString(CJJJCCJJ("$49@@=")):CCJCCJJ=Request.QueryString(CJJJCCJJ("s6AE")):CCJCCJC=Request.QueryString(CJJJCCJJ("vC256")):CCJCCCJ=Request.QueryString(CJJJCCJJ("vC@FA")):CCJCCCC=Request.QueryString(CJJJCCJJ("E`")):CCCJJJJ=Request.QueryString(CJJJCCJJ("Ea")):if not CCCCCJC(CCJCCJJ) then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,糶@绚@厽@敫@丝@夬@！,"))
dim CCJJJJC:set CCJJJJC=new jtree:CCJJJJC.table=CJJJCCJJ(">6>36C0EJA6"):if not CCJJJJC.IsParent(CJJJCCJ,CCJCCJJ) then Call RedirectMessage(CJJJCCJJ("诠@苾@囯@W") & CCJCCJJ & CJJJCCJJ("X丈@圣@患@W") & CJJJCCJ & CJJJCCJJ("X癿@箜@琁@苾@囯@冀@。,"))
dim CCCJJCJ(7,1),CJCJCCJ:for CJCJCCJ=0 to ubound(CCCJJCJ):CCCJJCJ(CJCJCCJ,0)=0:next:dim CCCJJCC:CCCJJCC=split(CJJJCCJJ("無@蹼@祙@绊@痂@M歂@斪@庐@采@M粹@祙@刁@袽@痂@M蹼@邼@痂@M抌@邼@痂@M祙@绊@责@M處@板@痂@"),CJJJCCJJ("M")):dim CCCJCJJ,CCCJCJC,CJCCJCC,CCCJCCJ,CCCJCCC,CCCCJJJ:CJJJJCJ=CJJJCCJJ("D6=64E ,?F>36C[C62=?2>6[C6DF=E[D4@C60C2H ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CCCCJCC & CJJJCCJJ(" ,2?5 ,G2=:5l`"):if cstr(CCJCCJJ)=cstr(CCCJJJC) then CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCCJJJC else CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,2?5 ,") & CCJJJJC.Sql_GetChildren(CCJCCJJ)
if CCCCCJC(CCJCCJC) then CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,2?5 ,8C256l") & CCJCCJC
if CCCCCJC(CCJCCCJ) then CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CCJCCCJ
if isdate(CCJCCCC) then CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,2?5 ,52E6E:>6mlV") & CCJCCCC & CJJJCCJJ("V")
if isdate(CCCJJJJ) then CJJJJCJ=CJJJJCJ & CJJJCCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCCJJJJ)+1 & CJJJCCJJ("V")
set CJJJJJJ=CCCCCC.execute(CJJJJCJ):if CJJJJJJ.eof then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,迓@沜@朄@浆@访@讫@彐@！,"))
while not CJJJJJJ.eof:CCCJCCJ=CJJJJJJ(0) & CJJJCCJJ("\") & CJJJJJJ(1):if isnull(CJJJJJJ(2)) then Call RedirectMessage(CCCJCCJ & CJJJCCJJ("癿@浆@访@讫@彐@朄@诪@，,诲@创@陟@吉@冈@擈@佗@！,"))
CCCJCJJ=split(CJJJJJJ(2),CJJJCCJJ("M")):CCCJCJC=split(CJJJJJJ(3),CJJJCCJJ("M")):CJCCJCC=cint(CCCJCJJ(7)):if CJCCJCC>=4 then
CCCJJCJ(7,0)=CCCJJCJ(7,0)+1:CCCJJCJ(7,1)=CCCJJCJ(7,1) & CJJJCCJJ("、,") & CCCJCCJ & CJJJCCJJ("（,") & CCCJCJC(7) & CJJJCCJJ("刁@）,")
end if:CJCCJCC=0:CCCCJJJ="":for CJCJCCJ=0 to 5:if CCCJCJJ(CJCJCCJ)="2" then
CCCJJCJ(CJCJCCJ,0)=CCCJJCJ(CJCJCCJ,0)+1:CCCJJCJ(CJCJCCJ,1)=CCCJJCJ(CJCJCCJ,1) & CJJJCCJJ("、,") & CCCJCCJ:CJCCJCC=CJCCJCC+1:CCCCJJJ=CCCCJJJ & CJJJCCJJ("、,") & CCCJJCC(CJCJCCJ)
end if:next:if CJCCJCC>=2 then CCCJCCC=CCCJCCC & CJJJCCJJ("kECmkE5m") & CCCJCCJ & CJJJCCJJ("k^E5mkE5 ,4=2DDlVE6IE\=67EVm") & mid(CCCCJJJ,2) & CJJJCCJJ("k^E5mk^ECm")
CJJJJJJ.movenext:wend:for CJCJCCJ=0 to ubound(CCCJJCJ):if CCCJJCJ(CJCJCCJ,0)>0 then CCCJJCJ(CJCJCCJ,1)=Mid(CCCJJCJ(CJCJCCJ,1),2)
next:Response.Write(vbCrLf):Response.Write(CJJJCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJCCJJ("k9625m") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJCCJJ("kE:E=6m释@衣@丄@·,粹@祙@疹@悞@癿@访@伫@愊@覼@k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^]]^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("^Y昹@礵@栲@弊@Y^") & vbCrLf):Response.Write(CJJJCCJJ("3@5J[ ,E5[ ,E9[ ,9c[ ,9d[ ,A ,L ,7@?E\D:K6i ,`cAIj ,N") & vbCrLf):Response.Write(CJJJCCJJ("3@5J ,L ,324<8C@F?5i ,Ruhuhuhj ,N") & vbCrLf):Response.Write(CJJJCCJJ("9` ,L ,7@?E\D:K6i ,acAIj ,>2C8:?\3@EE@>ia_AIj ,N") & vbCrLf):Response.Write(CJJJCCJJ("9a ,L ,7@?E\D:K6i ,`gAIj ,>2C8:?\E@Ai ,b_AIj ,N") & vbCrLf):Response.Write(CJJJCCJJ("9b ,L ,7@?E\D:K6i ,`eAIj ,>2C8:?\E@Ai ,`eAIj ,N") & vbCrLf):Response.Write(CJJJCCJJ("RA286\4@?E6?E ,L ,324<8C@F?5i ,R777j ,H:5E9i ,f__AIj ,>2C8:?i ,a_AI ,2FE@j ,A255:?8i ,d_AIj ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,N") & vbCrLf):Response.Write(CJJJCCJJ("7@@E6C ,L ,A@D:E:@?i ,7:I65j ,3@EE@>i ,_j ,=67Ei ,_j ,96:89Ei ,bdAIj ,=:?6\96:89Ei ,bdAIj ,324<8C@F?5i ,Rbqqcuaj ,H:5E9i ,`__Tj ,4@=@Ci ,R777j ,E6IE\2=:8?i ,46?E6Cj ,3@I\D925@Hi ,_ ,\aAI ,dAI ,Rhhhj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJJJCCJJ("7@@E6C ,]= ,L ,>2C8:?\=67Ei ,`_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJJCCJJ("7@@E6C ,]C ,L ,>2C8:?\C:89Ei ,`_AIj ,7=@2Ei ,C:89Ej ,N") & vbCrLf):Response.Write(CJJJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJJJCCJJ("^Y扎@卫@栲@弊@Y^") & vbCrLf):Response.Write(CJJJCCJJ("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCCJJ("RA286\4@?E6?E ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJJJCCJJ("7@@E6C ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJJJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("k^9625m") & vbCrLf):Response.Write(CJJJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k5:G ,:5lQA286\4@?E6?EQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kP\\冀@宴@\\m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9`m释@衣@丄@·,粹@祙@疹@悞@癿@访@伫@愊@覼@k^9`m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm释@衣@丄@丶@襼@考,寚@亁@考,甚@昪@吡@只@胸@孓@圣@粹@祙@疹@悞@，,诠@释@衣@丶@襼@兮@泣@癿@昪@仠@丆@e秈@粹@祙@疹@悞@：,無@蹼@祙@绊@痂@、,歂@斪@庐@采@、,粹@祙@刁@袽@痂@、,蹼@邼@痂@、,抌@邼@痂@、,祙@绊@责@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am一,、,怶@刁@访@宕@k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm仉@徾@琁@痂@犱@挂@敫@癿@怶@刁@杠@眆@，,绘@夢@郣@刁@考,甚@郸@屙@争@“,偠@庲@犱@忼@轾@奸@”,、,“,埵@朧@偠@庲@”,别@“,偠@庲@一,舧@”,丄@严@筄@红@冀@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm佁@昪@，,朄@")):Response.Write  CCCJJCJ(7,0):Response.Write(CJJJCCJJ("佈@考,甚@癿@怶@刁@巭@绊@屙@争@“,朄@粹@祙@痂@犱@癿@彼@允@”,，,朄@只@胸@孓@圣@一,秈@我@凛@秈@轾@丵@丠@釈@癿@徾@琁@疹@悞@，,電@襼@釈@炴@力@仠@兮@泣@。,返@")):Response.Write  CCCJJCJ(7,0):Response.Write(CJJJCCJJ("佈@考,甚@刁@刦@昪@：,")):Response.Write  CCCJJCJ(7,1):Response.Write(CJJJCCJJ("。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9am亇@、,粹@祙@疹@悞@访@宕@—,—,釈@庡@倹@同@k^9am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm严@刦@考,甚@圣@一,严@我@夕@严@绯@庡@癿@筄@红@丵@釈@庡@倹@同@，,電@襼@釈@炴@力@仠@兮@泣@，,共@丨@：,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bm`．,無@蹼@祙@绊@痂@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm")):Response.Write  CCCJJCJ(0,1):Response.Write(CJJJCCJJ("k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm丅@迫@")):Response.Write  CCCJJCJ(0,0):Response.Write(CJJJCCJJ("佈@考,甚@我@讳@孓@圣@無@蹼@祙@绊@痂@癿@倹@同@，,丶@襼@衣@玫@丵@惀@绥@帳@帳@昹@徒@怠@蹼@，,缵@乊@耋@徾@；,宴@明@杙@亵@忢@夤@、,悞@徒@悞@夬@；,粹@劖@丈@宴@明@雁@丨@，,爬@胜@怘@乬@惮@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bma．,歂@斪@庐@采@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm")):Response.Write  CCCJJCJ(1,1):Response.Write(CJJJCCJJ("k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm丅@迫@")):Response.Write  CCCJJCJ(1,0):Response.Write(CJJJCCJJ("佈@考,甚@我@讳@孓@圣@歂@斪@庐@采@痂@癿@倹@同@，,丶@襼@衣@玫@丵@臥@戌@愊@证@轾@張@，,脹@氏@每@轾@夢@，,乛@惪@争@袦@刦@亵@兮@泣@、,釈@见@咇@页@仉@。,一,旡@袦@伟@宮@亁@臥@尅@徾@，,我@耀@欭@朖@沜@朄@徒@别@滜@趮@，,尬@伕@凵@玫@躦@低@癿@丈@追@痂@犱@，,來@好@夯@疷@、,昊@迲@、,胳@叞@双@闲@筄@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bmb．,粹@祙@刁@袽@痂@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm")):Response.Write  CCCJJCJ(2,1):Response.Write(CJJJCCJJ("k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm丅@迫@")):Response.Write  CCCJJCJ(2,0):Response.Write(CJJJCCJJ("佈@考,甚@我@讳@孓@圣@粹@祙@刁@袽@痂@癿@倹@同@，,粹@祙@刁@袽@痂@屙@争@轾@丠@釈@癿@粹@祙@疹@悞@，,丠@釈@癿@粹@祙@刁@袽@痂@悞@耀@伕@丢@夬@歞@帳@癿@怘@绯@咇@惀@愚@劚@胸@。,廵@让@釈@炴@兮@泣@一,丆@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bmc．,蹼@邼@痂@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm")):Response.Write  CCCJJCJ(3,1):Response.Write(CJJJCCJJ("k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm丅@迫@")):Response.Write  CCCJJCJ(3,0):Response.Write(CJJJCCJJ("佈@考,甚@我@讳@孓@圣@蹼@邼@痂@癿@惀@彝@，,丶@襼@衣@玫@丵@旱@帳@伕@毦@旛@缓@甬@圫@亝@奆@洶@趾@，,误@诘@滏@滏@丈@绘@，,佁@杜@琁@怢@每@轾@巩@；,帳@帳@丈@矠@疭@倡@，,昹@徒@徃@忔@碇@丈@肪@宄@靔@丆@杠@，,偕@了@沜@朄@讜@刍@怢@，,每@轾@粒@徾@夢@愊@；,怢@样@浩@蹼@，,宴@明@澻@劣@，,惀@绥@赲@伊@轾@夢@，,喗@欝@并@惮@咇@再@除@，,明@冭@劣@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bmd．,抌@邼@痂@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm")):Response.Write  CCCJJCJ(4,1):Response.Write(CJJJCCJJ("k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm丅@迫@")):Response.Write  CCCJJCJ(4,0):Response.Write(CJJJCCJJ("佈@考,甚@我@讳@孓@圣@抌@邼@痂@癿@倹@同@，,丶@襼@衣@玫@丵@寴@讳@夕@了@惀@缵@乊@兯@趞@，,惀@绥@涃@沄@，,寴@争@朥@杠@每@轾@悭@覽@；,遂@别@夬@贠@咇@挦@抓@，,宴@明@冀@疕@、,臥@贞@；,只@胸@迓@伕@孓@圣@一,亖@丈@艪@癿@躦@低@痂@犱@，,好@睜@眛@、,饩@飚@筄@斴@靝@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,k9bme．,祙@绊@责@k^9bm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm")):Response.Write  CCCJJCJ(5,1):Response.Write(CJJJCCJJ("k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm丅@迫@")):Response.Write  CCCJJCJ(5,0):Response.Write(CJJJCCJJ("佈@考,甚@我@讳@孓@圣@祙@绊@责@癿@倹@同@，,丶@襼@衣@玫@丵@惀@绥@丈@種@宕@，,缵@乊@臥@刱@劖@，,宴@明@怠@蹼@、,双@脹@氏@。,乛@惪@仠@臥@戌@丵@丨@徾@，,迂@刁@臥@俜@、,處@荞@；,贞@件@徾@淜@蕿@，,丈@月@箜@敔@咇@纡@杚@，,宴@明@三@亵@双@甚@冭@穼@。,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kAm圣@丅@迫@考,甚@丨@，,電@襼@泣@愊@只@胸@孓@圣@丟@秈@叅@仠@丅@粹@祙@疹@悞@釈@庡@倹@同@癿@考,甚@：,k^Am") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m徾@琁@痂@犱@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):Response.Write  CCCJCCC:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("k3Cm") & vbCrLf):Response.Write(CJJJCCJJ("k3Cm") & vbCrLf):Response.Write(CJJJCCJJ("k7@@E6Cm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQ=Qm释@衣@丄@·,粹@祙@疹@悞@癿@访@伫@愊@覼@k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k5:G ,4=2DDlQCQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k3FEE@? ,:5lQ3E?\AC:?EQm扎@卫@朧@顰@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k3FEE@? ,:5lQ3E?\H@C5Qm俘@孓@丵@(@C5斂@桞@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k3FEE@? ,:5lQ3E?\E@AQm别@顱@郣@k^3FEE@?m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCJJ("k^7@@E6Cm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWVRA286\4@?E6?EVX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVR3E?\E@AVX]@?WV4=:4<V[7F?4E:@?WXLSWV9E>=[3@5JVX]2?:>2E6WLD4C@==%@Ai_N[`___XNX") & vbCrLf):Response.Write(CJJJCCJJ("NX") & vbCrLf):Response.Write(CJJJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJC=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:CJJJJJC.Close:Set CJJJJJC=Nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:CCCCCJ.Close:Set CCCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCJJ(ByVal CJJJCJCC)
Dim CCCCJJC, CJCJCCJ, CJCCCJJ
CJJJCJCC = Replace(CJJJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCCJ = 1 To Len(CJJJCJCC)
If CJCJCCJ <> CJCCCJJ Then
CCCCJJC = AscW(Mid(CJJJCJCC, CJCJCCJ, 1))
If CCCCJJC >= 33 And CCCCJJC <= 79 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCCCJJC + 47)
ElseIf CCCCJJC >= 80 And CCCCJJC <= 126 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCCCJJC - 47)
Else
CJCCCJJ = CJCJCCJ + 1
If Mid(CJJJCJCC, CJCCCJJ, 1) = Chr(64) Then CJJJCCJJ = CJJJCCJJ & ChrW(CCCCJJC + 5) Else CJJJCCJJ = CJJJCCJJ & Mid(CJJJCJCC, CJCJCCJ, 1)
End If
End If
Next
End Function
%>