<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJ, CCCJC,CCCCJ, CCCCC, CJJJJJ:Set CCCJJ = server.CreateObject(CCCJCJJ("ps~sq]r@??64E:@?")):CCCJJ.open Application(CCCJCJJ("r@??64E:@?$EC:?8")):Set CCCJC=CCCJJ::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CCCJCJJ("!$*|t|qt#"))):if CCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJC>0 then
CJJJJJ=CCCJCJJ("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") & CJJJCJ & CCCJCJJ("V ,2?5 ,:5l") & CJJJJC
set CCCCJ=CCCJJ.execute(CJJJJJ):If CCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJCC=CCCCJ(2) & "":CJJCJJ=CCCCJ(3):CJJCJC=CCCCJ(5):CJJCCJ=CCCCJ(6):CJJCCC=CCCCJ(9):CJCJJJ=CCCCJ(15):CJCJCJ=CCCCJ(0):CCJJJC=CCCCJ(1):CCJJJJ=CCCCJ(11) & "":CJCJCC=CCCCJ(10) & "":CJCJJC=CCCCJ(12):CJCCJJ=CCCCJ(14):CJCCJC=CCCCJ(13):CJCCCJ=CCCCJ(7) & "":CJCCCC=CCCCJ(4):CCJJCJ=CCCCJ(8):if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CJJCCC) or CJJCCC=0 then CJJCCC=CJJCJJ
if isnull(CJCCCC) then CJCCCC=0
if isnull(CJJCJC) then CJJCJC=0
if instr(CCCJCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJ)>0 then Call RedirectMessage(CCCJCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJC,CJJJCJ)
End IF
end if:Sub CheckRight(CJJJJJC):dim CCJCJJ,CCJCJC:if CJJJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJJJJJ(CJJJJJC) then
Call RedirectMessage(CCCJCJJ("朾@陋@W") & CJJJJJC & CCCJCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJJJJJ(CJJJJJC):dim CCJCJJ,CCJCJC:CCJCJC=split(CJJJJJC,CCCJCJJ("[")):CCJJJJJ=False:for CCJCJJ=0 to ubound(CCJCJC):If Mid(CJJJCC,CCJCJC(CCJCJJ),1)="1" then
CCJJJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJCCJ:CCJCCJ=trim(request.QueryString(CCCJCJJ("D49@@="))):if isnumeric(CCJCCJ) then
response.Redirect CCCJCJJ("^>^G2?E^R^D49@@=^") & CCJCCJ & CCCJCJJ("^DEF56?E^=@8:?nC65:C64El") & CCCCJC
else
Call RedirectMessage(CCCJCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJCJJ("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJCCC,CCCJJJ,CCJCJJ,CCCJJC,CCCJCJ:CCJCCC=split(CCJJCC,CCCJCJJ("]")):if ubound(CCJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCCC(0)) or len(CCJCCC(1))<>32 or len(CCJCCC(2))<>32 then
Call ClearMemberCookie
else
CCCJJJ=CCJCCC(1):for CCJCJJ=1 to len(CCCJJJ):CCCJJC=mid(CCCJJJ,CCJCJJ,1):if isnumeric(CCCJJC) then CCCJCJ=CCCJCJ & CCCJJC
if len(CCCJCJ)=7 then exit for
next:CCCJJJ=CCJCCC(2):if CCCJCJ<>mid(CCCJJJ,6,7) then
Call ClearMemberCookie
else
CCCJJC=mid(CCCJJJ,18,10)/2:if CCCJJC<DateDiff(CCCJCJJ("D"), CCCJCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJC=Clng(CCJCCC(0)):CJJJCJ=CCJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJJC,CCCJCJC):dim CCJCJJ,CCCJJC,CCCJCJ:for CCJCJJ=1 to len(CCCJCJC):CCCJJC=mid(CCCJCJC,CCJCJJ,1):if isnumeric(CCCJJC) then CCCJCJ=CCCJCJ & CCCJJC
if len(CCCJCJ)=7 then exit for
next:CCCJCJ=CCCJJJC & CCCJCJJ("]") & CCCJCJC & CCCJCJJ("]") & Fix(10000*(Rnd+1)) & CCCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CCCJCJJ("D"), CCCJCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJCJJ("!$*|t|qt#"))=CCCJCJ:End Sub:::Function IIf(CCCJCCJ, CCCJCCC, CCCCJJJ):if isnull(CCCJCCJ) or isempty(CCCJCCJ) then
IIf = CCCCJJJ
elseif CCCJCCJ Then
IIf = CCCJCCC
Else
IIf = CCCCJJJ
end if:End Function:Const CJCCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCCJCJJ("FE7\g"):dim CCJCJJ,CCCJJC,CCCJCC:if isarray(str) then
on error resume next:CCJCJJ=ubound(str,2):CCCJCC=err.number:err.clear:on error goto 0:if CCCJCC<>0 then
for CCJCJJ=0 to ubound(str):if CCJCJJ>0 then response.Write CCCJCJJ("k3C ,^m")
response.Write CCJCJJ & CCCJCJJ("i ,") & str(CCJCJJ):next
else
response.Write CCCJCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCJJ=0 to ubound(str,2):response.Write CCCJCJJ("kE9 ,2=:8?lV=67EVm") & CCJCJJ & CCCJCJJ("k^E9m")
next:response.Write CCCJCJJ("k^ECm"):for CCJCJJ=0 to ubound(str):response.Write CCCJCJJ("kECmkE9m") & CCJCJJ & CCCJCJJ("k^E9m"):for CCCJJC=0 to ubound(str,2):response.Write CCCJCJJ("kE5m") & str(CCJCJJ,CCCJJC) & CCCJCJJ("k^E5m"):next:response.Write CCCJCJJ("k^ECm"):next:response.Write CCCJCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCJJJCJ():Dim CCCCJJ, CCCCJC:CCCCJC = Request.ServerVariables(CCCJCJJ("!p%w0x}u~")):CCCCJJ = Request.ServerVariables(CCCJCJJ("""&t#*0$%#x}v")):If CCCCJJ <> Empty Then
if instr(lcase(CCCCJJ),CCCJCJJ("Tb4:7C2>6"))>0 or instr(lcase(CCCCJJ),CCCJCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCCJCJJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CCCCJC = CCCCJC & CCCJCJJ("n") & CCCCJJ
end if:CCJJJCJ = CCCCJC:End Function:Sub SetHttpOnlyCookie(CCCCJJC,CCCCJCJ):dim CCJCCC:CCJCCC=CCCCJJC & CCCJCJJ("l") & CCCCJCJ & CCCJCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJCJJ("$6E\r@@<:6"),CCJCCC):End Sub::::::sub ShowMessage(CCCCJCC):response.Charset="utf-8":Response.Write CCCJCJJ("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") & CCCCJCC & CCCJCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJJJCC(CCCJCC):if isnull(CCCJCC) or trim(CCCJCC)="" or not isnumeric(CCCJCC) then
CCJJJCC=false
else
Dim CCCCCJ:Set CCCCCJ = New RegExp:CCCCCJ.Pattern = CCCJCJJ("/-5ZS"):CCCCCJ.IgnoreCase = True:CCJJJCC = CCCCCJ.test(CCCJCC):set CCCCCJ=nothing
end if:End Function:Function CCJJCJJ(CCCCCJJ):dim CCCCCC,CJJJJJJ:CCCCCC=CCCJCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCCCJJ & CCCJCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJJJ=CCCJJ.execute(CCCCCC):CCJJCJJ = CJJJJJJ(0):if isnull(CCJJCJJ) then CCJJCJJ=1
CJJJJJJ.close : set CJJJJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJJC=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:CJJJJJJ.close : set CJJJJJJ=nothing:CCCCC.Close : Set CCCCC=Nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCJCJJJ.Close : Set CCJCJJJ = Nothing:CCCJJ.Close : Set CCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJCJJ("!$*0|6DD286"),server.URLEncode(CCCCJCC)):Response.Redirect CCCJCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CCJCJJC(Table):Dim CJJJJJJ, CJJJJJC, str(), CCJCJJ,CCCJJC,CJJJJCC:CJJJJCC=UCase(Table):If Not IsArray(Application(CCCJCJJ("!$*0") & CJJJJCC)) Then
CJJJJJ=CCCJCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCCJCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJJJJJJ=server.createobject(CCCJCJJ("25@53]C64@C5D6E")):CJJJJJJ.open CJJJJJ,CCCJJ,1:CJJJJJC = CJJJJJJ.RecordCount:ReDim str(CJJJJJC, 2):If CJJJJJC > 0 Then
For CCJCJJ = 1 To CJJJJJC:for CCCJJC=0 to 2:str(CCJCJJ, CCCJJC) = CJJJJJJ(CCCJJC):next:CJJJJJJ.MoveNext:Next
End If:CJJJJJJ.Close: Set CJJJJJJ = Nothing:Application(CCCJCJJ("!$*0") & CJJJJCC) = str
End If:CCJCJJC = Application(CCCJCJJ("!$*0") & CJJJJCC):End Function:Sub ShowListSelect(CCCCCJJ,CCCCCJC,CCCCCCJ):Dim str, CCJCJJ, CJJJCJJ:CJJJCJJ = CCJCJJC(CCCCCJJ):For CCJCJJ = 1 To UBound(CJJJCJJ):if Cstr(CJJJCJJ(CCJCJJ,2))=Cstr(CCCCCJC) then
str = str & CCCJCJJ("k@AE:@? ,G2=F6lV") & CJJJCJJ(CCJCJJ, 0) & CCCJCJJ("V")
If CStr(CJJJCJJ(CCJCJJ, 0)) = CCCCCCJ & "" Then str = str & CCCJCJJ(" ,D6=64E65lVD6=64E65V")
str = str & CCCJCJJ("m") & CJJJCJJ(CCJCJJ, 1) & CCCJCJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CCJCJCJ(CCCCCJJ,CCCCCJC,CCCJJJC):Dim str, CCJCJJ, CJJJCJJ:CJJJCJJ = CCJCJJC(CCCCCJJ):For CCJCJJ = 1 To UBound(CJJJCJJ):if Cstr(CJJJCJJ(CCJCJJ,2))=Cstr(CCCCCJC) and CStr(CJJJCJJ(CCJCJJ, 0)) = CCCJJJC & "" then
str=CJJJCJJ(CCJCJJ,1):exit for
end if:Next:if str="" then str=CCCJCJJ(",朥@矠@.")
CCJCJCJ=str:End Function:::::::Sub CheckQueryTime(CCCCCCC,CJJJJJJJ):dim str,CCCJCC:str=CCCJCJJ("!$*0") & Ucase(CCCCCCC):if Session(str)<>"" then
CCCJCC=DateDiff(CCCJCJJ("D"),Session(str),Time):if CCCJCC<CJJJJJJJ and CCCJCC>0 then
Call ConnClose:Call ShowMessage(CCCJCJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJJJJJJ & CCCJCJJ(" ,种@，,迓@剤@ ,") & CJJJJJJJ-CCCJCC & CCCJCJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::Function CCJCJCC(CCCCCCC,str):dim CCJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CCCJCC,CJJCJJJ,CCCJCJ:CCCJCJ=ucase(CCCCCCC):CJJCJJJ=str:if CJJCJJJ="" then
CJJCJJJ=request.cookies(CCCJCJ):if CJJCJJJ="" then
CCJCJCC=""
else
CJJCJJJ=strreverse(CJJCJJJ):CJJJCJC=len(CJJCJJJ):for CCJCJJ=1 to CJJJCJC-1 step 2:CJJJCCC=mid(CJJCJJJ,CCJCJJ,1):CCCJCC=mid(CJJCJJJ,CCJCJJ+1,1):CJJJCCJ=CJJJCCJ & CCCJCC & CJJJCCC:next:CJJJCCJ=replace(CJJJCCJ,CCCJCJJ("L0N"),CCCJCJJ(" ,")):CJJJCCJ=replace(CJJJCCJ,CCCJCJJ("LIN"),CCCJCJJ("Y")):CJJJCCJ=replace(CJJJCCJ,CCCJCJJ("L:N"),CCCJCJJ("^")):CCJCJCC=trim(CJJJCCJ)
end if
else
if Len(CJJCJJJ) Mod 2=1 then CJJCJJJ=CJJCJJJ & CCCJCJJ(" ,")
CJJCJJJ=replace(CJJCJJJ,CCCJCJJ(" ,"),CCCJCJJ("L0N")):CJJCJJJ=replace(CJJCJJJ,CCCJCJJ("Y"),CCCJCJJ("LIN")):CJJCJJJ=replace(CJJCJJJ,CCCJCJJ("^"),CCCJCJJ("L:N")):CJJJCJC=len(CJJCJJJ):for CCJCJJ=1 to CJJJCJC-1 step 2:CJJJCCC=mid(CJJCJJJ,CCJCJJ,1):CCCJCC=mid(CJJCJJJ,CCJCJJ+1,1):CJJJCCJ=CJJJCCJ & CCCJCC & CJJJCCC:next:CJJJCCJ=Trim(strreverse(CJJJCCJ)):CCJCJCC=CJJJCCJ:response.cookies(CCCJCJ)=CJJJCCJ
end if:End Function::Sub ClearCache(CJJJJJJC):Application.Contents.Remove CJJJJJJC
End Sub::Class jTree:Private CJJJJJ, CJJCJJC, CJJCJCJ, CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Private Sub Class_Initialize():CJJCJCJ = 0:CJJCJCC = 0:CJJCCCC=10:End Sub:Public Property Let Table(CJJJJJCJ):if CJJJJJCJ="" then Call RedirectMessage(CCCJCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJCCJJ=CJJJJJCJ:CJJCCJC=CCCJCJJ("!$*0") & UCase(CJJCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCJJ:End Property:::Private Sub GetTreeArray():Dim CCJCJJ, CCCJJC, CJCJJJJ,RecordCount:CJJCJJC = Application(CJJCCJC):If Not IsArray(CJJCJJC) Then
CJJJJJ = CCCJCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCJJ:if CJJCCCJ<>"" then CJJJJJ=CJJJJJ & CCCJCJJ(" ,H96C6 ,") & CJJCCCJ
set CJCJJJJ=CCCJJ.execute(CJJJJJ):RecordCount=CJCJJJJ(0):if RecordCount=0 then Call RedirectMessage(CCCJCJJ("柠@话@W") & CJJCCJJ & CCCJCJJ("^") & CJJCCCJ & CCCJCJJ("X沜@朄@绎@林@敫@捩@"))
CJJCJCC=RecordCount+CJJCCCC:ReDim CJJCJJC(CJJCJCC, 4):CJJJJJ = CCCJCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CCCJCJJ(" ,H:E9 ,W?@=@4<X"):if CJJCCCJ<>"" then CJJJJJ=CJJJJJ & CCCJCJJ(" ,H96C6 ,") & CJJCCCJ
CJJJJJ=CJJJJJ & CCCJCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJJJJ=CCCJJ.execute(CJJJJJ):For CCJCJJ = 1 To RecordCount:For CCCJJC = 0 To 4:CJJCJJC(CCJCJJ, CCCJJC) = CJCJJJJ(CCCJJC):if IsNull(CJJCJJC(CCJCJJ,4)) then CJJCJJC(CCJCJJ,4)=0
If CJJCJJC(CCJCJJ,2)="" then CJJCJJC(CCJCJJ,2)=CCCJCJJ(",穵@.")
Next:CJCJJJJ.MoveNext:Next:CJCJJJJ.Close: Set CJCJJJJ = Nothing:for CCJCJJ=CJJCJCC-(CJJCCCC-1) to CJJCJCC:CJJCJJC(CCJCJJ,0)=CCJCJJ:next:Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock()
else
CJJCJCC=Ubound(CJJCJJC)
End If:End Sub:::::Private Function CCJCCJC(CCCJJJC):dim CCJCJJ,CJCJJCJ:CCJCCJC=0:CJCJJCJ=CStr(CCCJJJC):if CJCJJCJ<>"0" then
for CCJCJJ=1 to CJJCJCC:If CStr(CJJCJJC(CCJCJJ, 0))=CJCJJCJ Then
CCJCCJC = CCJCJJ:Exit For
End If:Next
end if:End Function::::Public Function CCJCCCJ(CCCJJJC):Dim CCJCJJ,CJCJJCC:CCJCJJ=CCJCCJC(CCCJJJC):if CCJCJJ=0 then
CJCJJCC=CCJCCCC(CCCJJJC)
else
CJCJJCC=CJJCJJC(CCJCJJ,3):if isnull(CJCJJCC) or CJCJJCC="" then
CJCJJCC=CCJCCCC(CCCJJJC)
elseif Mid(CJCJJCC,instrrev(CJCJJCC,CCCJCJJ("["))+1)<>CStr(CCCJJJC) then
CJCJJCC=CCJCCCC(CCCJJJC)
elseif Left(CJCJJCC,1)=CCCJCJJ("[") then
CJCJJCC=CCJCCCC(CCCJJJC)
end if
end if:CCJCCCJ=CJCJJCC:End Function:Private Function CCJCCCC(CCCJJJC):dim CJCJJCJ:CJCJJCJ=CStr(CCCJJJC):if CJCJJCJ="0" then
CCJCCCC=""
else
dim CJCJJJJ:set CJCJJJJ=CCCJJ.execute(CCCJCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CCCJCJJ(" ,H96C6 ,:5l") & CCCJJJC):if CJCJJJJ.eof then
Call UpdateCache(CCCJJJC,"","","",""):Call RedirectMessage(CCCJCJJ("顴@盩@（,xs：,") & CCCJJJC & CCCJCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJJJJ(0)=0 then
CCJCCCC="0," & CCCJJJC
else
CCJCCCC=CCJCCCJ(CJCJJJJ(0)) & CCCJCJJ("[") & CCCJJJC
end if:if CJCJJJJ(2)<>CCJCCCC then
CCCJJ.execute CCCJCJJ("FA52E6 ,") & CJJCCJJ & CCCJCJJ(" ,D6E ,A2E9lV") & CCJCCCC & CCCJCJJ("V ,H96C6 ,:5l") & CCCJJJC
else
CCJCCCC=CJCJJJJ(2)
end if
end if:Call UpdateCache(CCCJJJC,CJCJJJJ(0),CJCJJJJ(1),CCJCCCC,CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCCJJJC):dim CJCJJCC:CJCJJCC=CCJCCCJ(CCCJJJC):Sql_GetChildren = CJJCCJJ & CCCJCJJ("0A2E9ZV[V ,=:<6 ,V") & CJCJJCC & CCCJCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCCJC
End Sub:Public Sub UpdateCache(CCCJJJC,CJJJJJCC,CJJJJCJJ,CJCJJCC,CJJJJCJC):dim CCJCJJ,CCCJJC:CCCJJJC=CLng(CCCJJJC):CCJCJJ=CCJCCJC(CCCJJJC):if CJJJJJCC="" and CJJJJCJJ="" and CJCJJCC="" and CJJJJCJC="" then
if CCJCJJ>0 then
for CCCJJC=1 to 4:CJJCJJC(CCJCJJ,CCCJJC)=Null:next
end if
else
if CCJCJJ=0 then
for CCCJJC=1 to CJJCJCC:if CJJCJJC(CCCJJC,1) & ""="" then
CCJCJJ=CCCJJC:exit for
end if:next
end if:if CCJCJJ=0 then
Call ClearCache
else
CJJCJJC(CCJCJJ,0)=CLng(CCCJJJC):if CJJJJJCC<>"" then CJJCJJC(CCJCJJ,1)=CLng(CJJJJJCC)
if CJJJJCJJ<>"" then CJJCJJC(CCJCJJ,2)=CJJJJCJJ
if CJCJJCC<>"" then CJJCJJC(CCJCJJ,3)=CJCJJCC
if CJJJJCJC<>"" then CJJCJJC(CCJCJJ,4)=CLng(CJJJJCJC)
end if
end if:if CCJCJJ>0 then
Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCCJCC):Call ConnClose:Response.Write CCCCJCC:Response.End:End Sub:Private Function CCJJCJJ():CCJJCJJ=CCCJJCJ+1:End Function:Private Function CCCJJCJ():dim CJJJJJJ:set CJJJJJJ=CCCJJ.execute(CCCJCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCJJ & CCCJCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCCJJCJ=CJJJJJJ(0):CJJJJJJ.Close: Set CJJJJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCJCCJ:CJJJJJ=Request.ServerVariables(CCCJCJJ("!p%w0x}u~")):if instr(CJJJJJ,CCCJCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJCJ and not CCJJJC then Call RedirectMessage(CCCJCJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCJCCJ=CJJCCC
elseif instr(CJJJJJ,CCCJCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJJJJ,CCCJCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCJCCJ=CJJCCC
elseif instr(CJJJJJ,CCCJCJJ("^D49@@="))>0 then
CCJCCJ=Request.QueryString(CCCJCJJ("D49@@=")):if not CCJJJCC(CCJCCJ) then CCJCCJ=Request.QueryString(CCCJCJJ("F"))
if not CCJJJCC(CCJCCJ) then CCJCCJ=Request.QueryString(CCCJCJJ("D4"))
if not CCJJJCC(CCJCCJ) then Call RedirectMessage(CCCJCJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCJCCJ=csng(CCJCCJ)
end if:if CCJCCJ=0 then Call RedirectMessage(CCCJCJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJCJCJJ:Call SetConfig:Sub SetConfig():dim CCJCJC,CJJJJJJ:CJJJJJ=CCCJCJJ("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") & CCJCCJ:set CJJJJJJ=CCCJJ.execute(CJJJJJ):if CJJJJJJ.eof then Call RedirectMessage(CCCJCJJ("患@W") & CJJJJC & CCCJCJJ("X戻@圣@癿@卐@佈@W") & CCJCCJ & CCCJCJJ("X朥@批@别@。,"))
ReDim CCJCJC(61):CCJCJC(0)=CJJJJJJ(CCCJCJJ(";:2@H6:")) & "":CCJCJC(1)=CJJJJJJ(CCCJCJJ("EJA6")):CCJCJC(2)=CJJJJJJ(CCCJCJJ("D>D")):CCJCJC(3)=CJJJJJJ(CCCJCJJ("4FDE@>8C@FA")) & "":CCJCJC(4)=CJJJJJJ(CCCJCJJ("D:5632C0@E96C")) & "":CCJCJC(5)=IIf(isnull(CJJJJJJ(CCCJCJJ("E6DEC6DF=EG:6H"))),0,CJJJJJJ(CCCJCJJ("E6DEC6DF=EG:6H"))):CCJCJC(6)=CJJJJJJ(CCCJCJJ("K:IF?E:>6")):CCJCJC(7)=CJJJJJJ(CCCJCJJ("766")):CCJCJC(8)=CJJJJJJ(CCCJCJJ("C6E6DE52J")):CCJCJC(9)=CJJJJJJ(CCCJCJJ("6IA:C652E6")):CCJCJC(10)=CJJJJJJ(CCCJCJJ("E:E=6")):CCJCJC(11)=CJJJJJJ(CCCJCJJ(":?EC@")) & "":CCJCJC(12)=CJJJJJJ(CCCJCJJ("A:4EFC6")) & "":CCJCJC(13)=CJJJJJJ(CCCJCJJ("72>:=J")):CCJCJC(14)=CJJJJJJ(CCCJCJJ("4@AJC:89E")) & "":CCJCJC(15)=IIf(isnull(CJJJJJJ(CCCJCJJ("D6>6DE6C0DE2CE052E6"))),CCCJCJJ("`h__\`\`"),CJJJJJJ(CCCJCJJ("D6>6DE6C0DE2CE052E6"))):CCJCJC(16)=IIf(isnull(CJJJJJJ(CCCJCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJJJ(CCCJCJJ("K:IF?0E:>6D09:89=:89E"))):CCJCJC(17)=CJJJJJJ(CCCJCJJ("4@?E24E")) & "":CCJCJC(18)=CJJJJJJ(CCCJCJJ("D2?5E23=6")):CCJCJC(19)=CJJJJJJ(CCCJCJJ("4C:D:D")):CCJCJC(20)=CJJJJJJ(CCCJCJJ("JJ52E6")):CCJCJC(21)=CJJJJJJ(CCCJCJJ("BB")):CCJCJC(22)=CJJJJJJ(CCCJCJJ("JFJF60D>D0EA=")) & "":CCJCJC(23)=CJJJJJJ(CCCJCJJ("JFJF60E6DE0=3")) & "":CCJCJC(25)=CJJJJJJ(CCCJCJJ("6IA6CE")):CCJCJC(26)=CJJJJJJ(CCCJCJJ(">@5:?7@")):CCJCJC(27)=CJJJJJJ(CCCJCJJ("9@>6A286E@AA:4EFC6")) & "":CCJCJC(28)=CJJJJJJ(CCCJCJJ("4C:D:D=3")):CCJCJC(29)=IIf(CJJJJJJ(CCCJCJJ("4C:D:D@=5")),False,True):CCJCJC(30)=CJJJJJJ(CCCJCJJ("8C@FA8F:52?46")):CCJCJC(31)=CJJJJJJ(CCCJCJJ("3:@7665324<")):CCJCJC(32)=CJJJJJJ(CCCJCJJ("<6JDEC")):CCJCJC(33)=CJJJJJJ(CCCJCJJ("=@8@")) & "":CCJCJC(34)=CJJJJJJ(CCCJCJJ("K:46")):CCJCJC(35)=IIf(CJJJJJJ(CCCJCJJ(":D?6H")),True,False):CCJCJC(36)=121:CCJCJC(37)=111:CCJCJC(38)=160:CCJCJC(39)=CJJJJJJ(CCCJCJJ("8F6DE3@@<")):CCJCJC(40)=CJJJJJJ(CCCJCJJ("75D")):CCJCJC(42)=CJJJJJJ(CCCJCJJ("9@>6=@8:?")):CCJCJC(43)=CJJJJJJ(CCCJCJJ("K:IF?0?6657665324<")):CCJCJC(44)=CJJJJJJ(CCCJCJJ("K:IF?0E:>6D0=:>:E")):CCJCJC(45)=CJJJJJJ(CCCJCJJ("4@>A=6E60:?7@")):CCJCJC(46)=CJJJJJJ(CCCJCJJ("E6DE:?EC@")) & "":CCJCJC(47)=IIf(isnull(CJJJJJJ(CCCJCJJ("JFJF60367@C60E:>6"))),0,CJJJJJJ(CCCJCJJ("JFJF60367@C60E:>6"))):CCJCJC(49)=CJJJJJJ(CCCJCJJ("D>D0C646:G6C")):CCJCJC(50)=CJJJJJJ(CCCJCJJ("D>D0D:8?")) & "":CCJCJC(52)=CJJJJJJ(CCCJCJJ("JFJF602CC2?86")):CCJCJC(53)=IIf(isnull(CJJJJJJ(CCCJCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJJJ(CCCJCJJ("DEF56?E0BF6DE:@?04@F?E"))):CCJCJC(54)=CJJJJJJ(CCCJCJJ("9:560=30@FE@7286")):CCJCJC(55)=CJJJJJJ(CCCJCJJ("JFJF60E6DE052JD")):CCJCJC(56)=CJJJJJJ(CCCJCJJ("JFJF60H66<0=:>:E")):CCJCJC(57)=CJJJJJJ(CCCJCJJ("JFJF604964<65")):CCJCJC(58)=CJJJJJJ(CCCJCJJ("K:IF?0?6657665324<0?6IE")):CCJCJC(59)=CJJJJJJ(CCCJCJJ("4964<?6HDEF56?E")):CCJCJC(60)=CJJJJJJ(CCCJCJJ("K:IF?04=@D6052E6")):CJJJJJJ.close : set CJJJJJJ=nothing:if isNull(CCJCJC(8)) or CCJCJC(8)="" then CCJCJC(8)=0
if isdate(CCJCJC(9)) then
CCJCJC(9)=cdate(CCJCJC(9)):if CCJCJC(9)<Date then Call RedirectMessage(CCCJCJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCJCJC(9) & CCCJCJJ("X巭@迂@。,"))
end if:if not CCJJJCC(CCJCJC(20)) then CCJCJC(20)=7
select case CCJCJC(1):case 1,2,16:CCJCJC(36)=159:case 4,5,6,10,11:CCJCJC(36)=190:CCJCJC(37)=178:CCJCJC(38)=191:case 7,13:CCJCJC(36)=164:CCJCJC(37)=178:CCJCJC(38)=179:end select:CJCJCJJ=CCJCJC:End Sub:Function CCJJCCC(CCCCCCC):dim CCJCJC(7,1),CCJCJJ,CJCJCJC,CJCJCCJ:CJCJCJC=Array(CCCJCJJ("$49@@="),CCCJCJJ("$EF56?E"),CCCJCJJ("s6AE"),CCCJCJJ("vC256"),CCCJCJJ("r=2DD>2E6"),CCCJCJJ("}F>36C"),CCCJCJJ("%62496C"),CCCJCJJ("!2C6?E")):select case CJCJCJJ(1):case 1,2 : CJCJCCJ=Array(CCCJCJJ("孡@栜@"),CCCJCJJ("孡@甚@"),CCCJCJJ("珨@红@"),CCCJCJJ("幯@红@"),CCCJCJJ("吇@孡@"),CCCJCJJ("孡@史@"),CCCJCJJ("敔@布@"),CCCJCJJ("宱@镺@")):case 3,16 : CJCJCCJ=Array(CCCJCJJ("孡@栜@"),CCCJCJJ("孡@甚@"),CCCJCJJ("陝@糶@"),CCCJCJJ("幯@红@"),CCCJCJJ("吇@孡@"),CCCJCJJ("孡@史@"),CCCJCJJ("敔@布@"),CCCJCJJ("宱@镺@")):case 4 : CJCJCCJ=Array(CCCJCJJ("匶@陝@"),CCCJCJJ("杠@论@耀@"),CCCJCJJ("卐@佈@"),CCCJCJJ("幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("匶@甚@"),CCCJCJJ("宱@屙@")):case 5 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("呓@巠@"),CCCJCJJ("郣@闣@"),CCCJCJJ("幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("呓@巠@"),CCCJCJJ("宱@屙@")):case 6 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("杠@论@耀@"),CCCJCJJ("线@刦@"),CCCJCJJ("幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("宱@屙@")):case 7 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("宓@兰@"),CCCJCJJ("郣@闣@"),CCCJCJJ("幯@仸@"),CCCJCJJ("戓@叆@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("宱@屙@")):case 8 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("杠@论@耀@"),CCCJCJJ("卐@佈@"),CCCJCJJ("兠@聇@幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("酈@偱@")):case 9 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("敔@布@"),CCCJCJJ("卐@佈@"),CCCJCJJ("幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("酈@偱@")):case 10 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("氌@譡@"),CCCJCJJ("郣@闣@"),CCCJCJJ("兠@譡@幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("宱@屙@")):case 11 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("內@劜@呓@"),CCCJCJJ("郣@闣@"),CCCJCJJ("幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("宱@屙@")):case 12 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("幭@譡@"),CCCJCJJ("卐@佈@"),CCCJCJJ("兠@譡@幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("宱@屙@")):case 13 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("孡@呓@"),CCCJCJJ("卐@佈@"),CCCJCJJ("幯@仸@"),CCCJCJJ("戓@叆@"),CCCJCJJ("缑@史@"),CCCJCJJ("敔@呓@"),CCCJCJJ("宱@屙@")):case 14 : CJCJCCJ=Array(CCCJCJJ("月@劜@炴@"),CCCJCJJ("局@氌@"),CCCJCJJ("线@刦@"),CCCJCJJ("幯@仸@"),CCCJCJJ("邶@采@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("宱@屙@")):case 15 : CJCJCCJ=Array(CCCJCJJ("卐@佈@"),CCCJCJJ("盌@独@氌@譡@"),CCCJCJJ("卐@佈@"),CCCJCJJ("兠@譡@幯@仸@"),CCCJCJJ("吇@了@"),CCCJCJJ("缑@史@"),CCCJCJJ("咣@话@布@"),CCCJCJJ("宱@屙@")):case else : CJCJCCJ=CJCJCJC
end select:for CCJCJJ=0 to Ubound(CCJCJC):CCJCJC(CCJCJJ,0)=CJCJCJC(CCJCJJ):CCJCJC(CCJCJJ,1)=CJCJCCJ(CCJCJJ):next:for CCJCJJ=0 to Ubound(CCJCJC):if CCJCJC(CCJCJJ,0)=CCCCCCC then
CCJJCCC=CCJCJC(CCJCJJ,1):exit for
end if:next:End Function::if CJCJCJJ(7)<3 then Call RedirectMessage(CCCJCJJ("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
Call CheckRight(79):Call CCJCJCC(CCCJCJJ("&#{"),CCJJJCJ):dim CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCJCCC=Request.QueryString(CCCJCJJ("s6AE")):CJCCJJC=Request.QueryString(CCCJCJJ("vC256")):CJCCJCJ=Request.QueryString(CCCJCJJ("vC@FA")):CJCCJJJ=Request.QueryString(CCCJCJJ("!@DE")):CJCCJCC=Request.QueryString(CCCJCJJ("=3:5")):CJCCCJJ=Request.QueryString(CCCJCJJ("%`")):CJCCCJC=Request.QueryString(CCCJCJJ("%a")):dim CJJCJJC:set CJJCJJC=new jtree:CJJCJJC.table=CCCJCJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCCJCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCCJCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCCJCJJ("k9625m") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCCJCJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCCJCJJ("kE:E=6m釈@夈@讫@彐@柠@话@k^E:E=6m") & vbCrLf):Response.Write(CCCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCCJCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCCJCJJ("kDEJ=6m") & vbCrLf):Response.Write(CCCJCJJ("5:G]:E6> ,L ,7=@2Ei ,=67Ej ,>2C8:?\3@EE@>i ,dAIj ,>2C8:?\C:89Ei ,dAIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CCCJCJJ("5:G]:E6> ,2 ,L ,5:DA=2Ji ,3=@4<j ,E6IE\564@C2E:@?i ,?@?6j ,4@=@Ci ,R___j ,3@C56Ci ,`AI ,D@=:5 ,Rpaqstej ,A255:?8i ,dAIj ,324<8C@F?5i ,Rtetsuhj ,H:5E9i ,`a_AIj ,@G6C7=@Hi ,9:556?j ,H9:E6\DA246i ,?@HC2Aj ,E6IE\@G6C7=@Hi ,6==:AD:Dj ,N") & vbCrLf):Response.Write(CCCJCJJ("5:G]:E6> ,2i9@G6C ,L ,324<8C@F?5i ,Rsgtbudj ,N") & vbCrLf):Response.Write(CCCJCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CCCJCJJ("k^9625m") & vbCrLf):Response.Write(CCCJCJJ("k3@5Jm") & vbCrLf):Response.Write(CCCJCJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCCJCJJ(" ,k=:mk2 ,9C67lQE6DEC6DF=E]2DAQm巭@浆@惀@冰@k^2mk^=:m") & vbCrLf):Response.Write(CCCJCJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQE6DE0C6A62E]2DAQm釈@夈@讫@彐@柠@话@k^2mk^=:m") & vbCrLf):Response.Write(CCCJCJJ(" ,")):If CJCJCJJ(7)=3 and CCJJJJJ(79) Then
Response.Write(vbCrLf):Response.Write(CCCJCJJ(" ,k=:mk2 ,9C67lQE6DE0DE2E]2DAQm厽@浆@玂@绚@讜@k^2mk^=:m") & vbCrLf):Response.Write(CCCJCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCCJCJJ("k^F=m") & vbCrLf):Response.Write(CCCJCJJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm苾@囯@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5m") & vbCrLf):Response.Write(CCCJCJJ(" ,")):Response.Write CCCJCJJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CJCJCCC & CCCJCJJ("Vmk^D6=64Em")
If CJCJCJJ(1)>=3 Then
Response.Write CCCJCJJ(" ,kD6=64E ,?2>6lV8C256Vm")
if CJCJJJ=0 then
Response.Write CCCJCJJ("k@AE:@? ,G2=F6lVVm,") & CCJJCCC(CCCJCJJ("vC256")) & CCCJCJJ(".k^@AE:@?m")
Call ShowListSelect(CCCJCJJ(">6>36C08C256"),CCJCCJ,CJCCJJC)
else
Response.Write CCCJCJJ("k@AE:@? ,G2=F6lV") & CJCJJJ & CCCJCJJ("Vm") & CCJCJCJ(CCCJCJJ(">6>36C08C256"),CCJCCJ,CJCJJJ) & CCCJCJJ("k^@AE:@?m")
end if:Response.Write CCCJCJJ("k^D6=64Em")
End If:If CJCJCJJ(3)<>"" Then
Response.Write CCCJCJJ(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJCCCC=0 then
Response.Write CCCJCJJ("k@AE:@? ,G2=F6lVVm,") & CJCJCJJ(3) & CCCJCJJ(".k^@AE:@?m")
Call ShowListSelect(CCCJCJJ(">6>36C04FDE@>8C@FA"),CCJCCJ,CJCCJCJ)
else
Response.Write CCCJCJJ("k@AE:@? ,G2=F6lV") & CJCCCC & CCCJCJJ("Vm") & CCJCJCJ(CCCJCJJ(">6>36C04FDE@>8C@FA"),CCJCCJ,CJCCCC) & CCCJCJJ("k^@AE:@?m")
end if:Response.Write CCCJCJJ("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CCCJCJJ(" ,k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@赲@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CJCCCJJ:Response.Write(CCCJCJJ("Qmk^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,C@HDA2?lQaQ ,4=2DDlQ24EQm") & vbCrLf):Response.Write(CCCJCJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CCCJCJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQm釈@ ,罩@k^2m") & vbCrLf):Response.Write(CCCJCJJ(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCCJCJJ(" ,k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kECm") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm释@衣@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5mkD6=64E ,?2>6lQ=3:5Q ,52E2\G2=F6lQ")):Response.Write  CJCCJCC:Response.Write(CCCJCJJ("Qmk^D6=64Emk^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@歝@k^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,kE5mk:?AFE ,?2>6lQ%aQ ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CJCCCJC:Response.Write(CCCJCJJ("Qmk^E5m") & vbCrLf):Response.Write(CCCJCJJ(" ,k^ECm") & vbCrLf):Response.Write(CCCJCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCCJCJJ("k^7@C>m") & vbCrLf)::if CJCCJJJ="1" then
Call CheckQueryTime(CCCJCJJ("E6DE0C6A62E"),30):CJJJJJ=CCCJCJJ("=3l") & CJCCJCC & CCCJCJJ(" ,2?5 ,G2=:5l`"):if cstr(CJCJCCC)=cstr(CCJCCJ) then CJJJJJ=CJJJJJ & CCCJCJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CCJCCJ else CJJJJJ=CJJJJJ & CCCJCJJ(" ,2?5 ,") & CJJCJJC.Sql_GetChildren(CJCJCCC)
if CCJJJCC(CJCCJJC) then CJJJJJ=CJJJJJ & CCCJCJJ(" ,2?5 ,8C256l") & CJCCJJC
if CCJJJCC(CJCCJCJ) then CJJJJJ=CJJJJJ & CCCJCJJ(" ,2?5 ,4FDE@>8C@FAl") & CJCCJCJ
if isdate(CJCCCJJ) then CJJJJJ=CJJJJJ & CCCJCJJ(" ,2?5 ,52E6E:>6mlV") & CJCCCJJ & CCCJCJJ("V")
if isdate(CJCCCJC) then CJJJJJ=CJJJJJ & CCCJCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJCCCJC)+1 & CCCJCJJ("V")
CJJJJJ=CCCJCJJ("D6=64E ,5:DE:?4E ,>6>36C[C62=?2>6[?F>36C ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,") & CJJJJJ & CCCJCJJ(" ,2?5 ,>6>36C ,:? ,WD6=64E ,>6>36C ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,") & CJJJJJ & CCCJCJJ(" ,8C@FA ,3J ,>6>36C ,92G:?8 ,4@F?EW>6>36CXm`X ,@C56C ,3J ,>6>36C"):set CCCCJ=CCCJC.execute(CJJJJJ):if CCCCJ.eof then
Call ShowMessage(CCCJCJJ("彎@剈@沜@朄@柠@话@绎@林@！,"))
else
response.Write CCCJCJJ("k7:6=5D6Emk=686?5m柠@话@划@衣@（,炴@凶@柠@眆@诡@绁@）,k^=686?5m"):while not CCCCJ.eof:response.Write CCCJCJJ("k5:G ,4=2DDlV:E6>Vmk2 ,4=2DDlVH:?V ,9C67lVE6DE0>6>36C]2DAn>l") & CCCCJ(0) & CCCJCJJ("U=3:5l") & CJCCJCC & CCCJCJJ("Vm") & CCCCJ(1) & CCCJCJJ("W") & CCCCJ(2) & CCCJCJJ("Xk^5:Gm")
CCCCJ.movenext:wend:response.Write CCCJCJJ("k^7:6=5D6Em")
end if
else
response.write CCCJCJJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m诲@逄@拤@杜@仱@吉@炴@凶@“,柠@话@”,挄@钩@！,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CCCJCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write  CCJCCJ:Response.Write(CCCJCJJ("Qm") & vbCrLf):Response.Write(CCCJCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CJJCJJ:Response.Write(CCCJCJJ("Qm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("kD4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCCJCJJ(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV沜@朄@绎@林@匴@酈@：,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CCCJCJJ(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CCCJCJJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCCJCJJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCCJCJJ(" ,EC66iECF6") & vbCrLf):Response.Write(CCCJCJJ(" ,NX") & vbCrLf):Response.Write(CCCJCJJ(" ,^^ ,释@衣@划@衣@") & vbCrLf):Response.Write(CCCJCJJ(" ,SWVD6=64E,?2>6lQ=3:5Q.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCCJCJJ(" ,FC=iV^D49@@=^VZSWVRD49@@=VX]G2=WXZV^D42=6=:DEn>:?:l`V[") & vbCrLf):Response.Write(CCCJCJJ(" ,:?56IiECF6") & vbCrLf):Response.Write(CCCJCJJ(" ,NX") & vbCrLf):Response.Write(CCCJCJJ("NX") & vbCrLf):Response.Write(CCCJCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCCJCJJ("k^3@5Jm") & vbCrLf):Response.Write(CCCJCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJC=nothing:set CCJJCJC=nothing:set CCJJCCJ=nothing:set CCJJCCC=nothing:CCCCC.Close:Set CCCCC=Nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJJ.Close:Set CCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCJCJJ(ByVal CCCJJCC)
Dim CJCCCCJ, CCJCJJ, CCCJCC
CCCJJCC = Replace(CCCJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCJJ = 1 To Len(CCCJJCC)
If CCJCJJ <> CCCJCC Then
CJCCCCJ = AscW(Mid(CCCJJCC, CCJCJJ, 1))
If CJCCCCJ >= 33 And CJCCCCJ <= 79 Then
CCCJCJJ = CCCJCJJ & Chr(CJCCCCJ + 47)
ElseIf CJCCCCJ >= 80 And CJCCCCJ <= 126 Then
CCCJCJJ = CCCJCJJ & Chr(CJCCCCJ - 47)
Else
CCCJCC = CCJCJJ + 1
If Mid(CCCJJCC, CCCJCC, 1) = Chr(64) Then CCCJCJJ = CCCJCJJ & ChrW(CJCCCCJ + 5) Else CCCJCJJ = CCCJCJJ & Mid(CCCJJCC, CCJCJJ, 1)
End If
End If
Next
End Function
%>