<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJJ, CCCJJC,CCCJCJ, CCCJCC, CCCCJJ:Set CCCJJJ = server.CreateObject(CJJJCCJJ("ps~sq]r@??64E:@?")):CCCJJJ.open Application(CJJJCCJJ("r@??64E:@?$EC:?8")):Set CCCJJC=CCCJJJ::Dim CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC:CJJCCCC=Trim(Request.Cookies(CJJJCCJJ("!$*|t|qt#"))):if CJJCCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCJC>0 then
CCCCJJ=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") & CCCCCJ & CJJJCCJJ("V ,2?5 ,:5l") & CCCCJC
set CCCJCJ=CCCJJJ.execute(CCCCJJ):If CCCJCJ.EOF Then
Call ClearMemberCookie
Else
CCCCCC=CCCJCJ(2) & "":CJJJJJJ=CCCJCJ(3):CJJJJJC=CCCJCJ(5):CJJJJCJ=CCCJCJ(6):CJJJJCC=CCCJCJ(9):CJJJCJJ=CCCJCJ(15):CJJJCCJ=CCCJCJ(0):CJJCCJC=CCCJCJ(1):CJJCCJJ=CCCJCJ(11) & "":CJJJCCC=CCCJCJ(10) & "":CJJJCJC=CCCJCJ(12):CJJCJJJ=CCCJCJ(14):CJJCJJC=CCCJCJ(13):CJJCJCJ=CCCJCJ(7) & "":CJJCJCC=CCCJCJ(4):CJJCCCJ=CCCJCJ(8):if isnull(CJJJCJJ) then CJJJCJJ=0
if isnull(CJJJJCC) or CJJJJCC=0 then CJJJJCC=CJJJJJJ
if isnull(CJJCJCC) then CJJCJCC=0
if isnull(CJJJJJC) then CJJJJJC=0
if instr(CJJJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCCJ)>0 then Call RedirectMessage(CJJJCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCJC,CCCCCJ)
End IF
end if:Sub CheckRight(CJCCJCC):dim CJCJJJJ,CJCJJJC:if CCCCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCCJJJ(CJCCJCC) then
Call RedirectMessage(CJJJCCJJ("朾@陋@W") & CJCCJCC & CJJJCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCCJJJ(CJCCJCC):dim CJCJJJJ,CJCJJJC:CJCJJJC=split(CJCCJCC,CJJJCCJJ("[")):CCCCJJJ=False:for CJCJJJJ=0 to ubound(CJCJJJC):If Mid(CCCCCC,CJCJJJC(CJCJJJJ),1)="1" then
CCCCJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCJ:CJCJJCJ=trim(request.QueryString(CJJJCCJJ("D49@@="))):if isnumeric(CJCJJCJ) then
response.Redirect CJJJCCJJ("^>^G2?E^R^D49@@=^") & CJCJJCJ & CJJJCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJCCJJ("!$*|t|qt#"))="":CCCCJC=0:CJJJJCJ=0:CCCCCJ=Empty:CJJJJJC=0:CJJJCJJ=0:CJJJJCC=0:CJJJJJJ=0:CJJJCCJ=False:CJJCCJC=False:CJJCCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCC,CJCJCJJ,CJCJJJJ,CJCJCJC,CJCJCCJ:CJCJJCC=split(CJJCCCC,CJJJCCJJ("]")):if ubound(CJCJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCC(0)) or len(CJCJJCC(1))<>32 or len(CJCJJCC(2))<>32 then
Call ClearMemberCookie
else
CJCJCJJ=CJCJJCC(1):for CJCJJJJ=1 to len(CJCJCJJ):CJCJCJC=mid(CJCJCJJ,CJCJJJJ,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC
if len(CJCJCCJ)=7 then exit for
next:CJCJCJJ=CJCJJCC(2):if CJCJCCJ<>mid(CJCJCJJ,6,7) then
Call ClearMemberCookie
else
CJCJCJC=mid(CJCJCJJ,18,10)/2:if CJCJCJC<DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCJC=Clng(CJCJJCC(0)):CCCCCJ=CJCJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJCJJC,CJJJCCJC):dim CJCJJJJ,CJCJCJC,CJCJCCJ:for CJCJJJJ=1 to len(CJJJCCJC):CJCJCJC=mid(CJJJCCJC,CJCJJJJ,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC
if len(CJCJCCJ)=7 then exit for
next:CJCJCCJ=CJJJCJJC & CJJJCCJJ("]") & CJJJCCJC & CJJJCCJJ("]") & Fix(10000*(Rnd+1)) & CJCJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCJJ("D"), CJJJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCJJ("!$*|t|qt#"))=CJCJCCJ:End Sub:::Function IIf(CJJJCCCJ, CJJJCCCC, CJJCJJJJ):if isnull(CJJJCCCJ) or isempty(CJJJCCCJ) then
IIf = CJJCJJJJ
elseif CJJJCCCJ Then
IIf = CJJJCCCC
Else
IIf = CJJCJJJJ
end if:End Function:Const CCCJCCC="^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 CJCJJJJ,CJCJCJC,CJCJCCC:if isarray(str) then
on error resume next:CJCJJJJ=ubound(str,2):CJCJCCC=err.number:err.clear:on error goto 0:if CJCJCCC<>0 then
for CJCJJJJ=0 to ubound(str):if CJCJJJJ>0 then response.Write CJJJCCJJ("k3C ,^m")
response.Write CJCJJJJ & CJJJCCJJ("i ,") & str(CJCJJJJ):next
else
response.Write CJJJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJJJ=0 to ubound(str,2):response.Write CJJJCCJJ("kE9 ,2=:8?lV=67EVm") & CJCJJJJ & CJJJCCJJ("k^E9m")
next:response.Write CJJJCCJJ("k^ECm"):for CJCJJJJ=0 to ubound(str):response.Write CJJJCCJJ("kECmkE9m") & CJCJJJJ & CJJJCCJJ("k^E9m"):for CJCJCJC=0 to ubound(str,2):response.Write CJJJCCJJ("kE5m") & str(CJCJJJJ,CJCJCJC) & 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(CJJCJJJC,CJJCJJCJ):dim CJCJJCC:CJCJJCC=CJJCJJJC & CJJJCCJJ("l") & CJJCJJCJ & CJJJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCJJ("$6E\r@@<:6"),CJCJJCC):End Sub::::::sub ShowMessage(CJJCJJCC):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") & CJJCJJCC & CJJJCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCJCJ(CJCJCCC):if isnull(CJCJCCC) or trim(CJCJCCC)="" or not isnumeric(CJCJCCC) then
CCCCJCJ=false
else
Dim CJCCJJJ:Set CJCCJJJ = New RegExp:CJCCJJJ.Pattern = CJJJCCJJ("/-5ZS"):CJCCJJJ.IgnoreCase = True:CCCCJCJ = CJCCJJJ.test(CJCJCCC):set CJCCJJJ=nothing
end if:End Function:Function CCCCJCC(CJJCJCJJ):dim CJCCJJC,CJCCJCJ:CJCCJJC=CJJJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCJJ & CJJJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJCJ=CCCJJJ.execute(CJCCJJC):CCCCJCC = CJCCJCJ(0):if isnull(CCCCJCC) then CCCCJCC=1
CJCCJCJ.close : set CJCCJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:CJCCJCJ.close : set CJCCJCJ=nothing:CCCJCC.Close : Set CCCJCC=Nothing:CCCJCJ.Close : Set CCCJCJ=Nothing:CCCCCCC.Close : Set CCCCCCC = Nothing:CCCJJJ.Close : Set CCCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCJJ("!$*0|6DD286"),server.URLEncode(CJJCJJCC)):Response.Redirect CJJJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::Function CJJJJJJJ(Table):Dim CJCCJCJ, CJCCJCC, str(), CJCJJJJ,CJCJCJC,CJCCCJC:CJCCCJC=UCase(Table):If Not IsArray(Application(CJJJCCJJ("!$*0") & CJCCCJC)) Then
CCCCJJ=CJJJCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJJCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCJCJ=server.createobject(CJJJCCJJ("25@53]C64@C5D6E")):CJCCJCJ.open CCCCJJ,CCCJJJ,1:CJCCJCC = CJCCJCJ.RecordCount:ReDim str(CJCCJCC, 2):If CJCCJCC > 0 Then
For CJCJJJJ = 1 To CJCCJCC:for CJCJCJC=0 to 2:str(CJCJJJJ, CJCJCJC) = CJCCJCJ(CJCJCJC):next:CJCCJCJ.MoveNext:Next
End If:CJCCJCJ.Close: Set CJCCJCJ = Nothing:Application(CJJJCCJJ("!$*0") & CJCCCJC) = str
End If:CJJJJJJJ = Application(CJJJCCJJ("!$*0") & CJCCCJC):End Function:Sub ShowListSelect(CJJCJCJJ,CJJCJCJC,CJJCJCCJ):Dim str, CJCJJJJ, CJCCCCJ:CJCCCCJ = CJJJJJJJ(CJJCJCJJ):For CJCJJJJ = 1 To UBound(CJCCCCJ):if Cstr(CJCCCCJ(CJCJJJJ,2))=Cstr(CJJCJCJC) then
str = str & CJJJCCJJ("k@AE:@? ,G2=F6lV") & CJCCCCJ(CJCJJJJ, 0) & CJJJCCJJ("V")
If CStr(CJCCCCJ(CJCJJJJ, 0)) = CJJCJCCJ & "" Then str = str & CJJJCCJJ(" ,D6=64E65lVD6=64E65V")
str = str & CJJJCCJJ("m") & CJCCCCJ(CJCJJJJ, 1) & CJJJCCJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJJJJJC(CJJCJCJJ,CJJCJCJC,CJJJCJJC):Dim str, CJCJJJJ, CJCCCCJ:CJCCCCJ = CJJJJJJJ(CJJCJCJJ):For CJCJJJJ = 1 To UBound(CJCCCCJ):if Cstr(CJCCCCJ(CJCJJJJ,2))=Cstr(CJJCJCJC) and CStr(CJCCCCJ(CJCJJJJ, 0)) = CJJJCJJC & "" then
str=CJCCCCJ(CJCJJJJ,1):exit for
end if:Next:if str="" then str=CJJJCCJJ(",朥@矠@.")
CJJJJJJC=str:End Function:::::::Sub CheckQueryTime(CJJCJCCC,CJJCCJJJ):dim str,CJCJCCC:str=CJJJCCJJ("!$*0") & Ucase(CJJCJCCC):if Session(str)<>"" then
CJCJCCC=DateDiff(CJJJCCJJ("D"),Session(str),Time):if CJCJCCC<CJJCCJJJ and CJCJCCC>0 then
Call ConnClose:Call ShowMessage(CJJJCCJJ("柠@话@闯@随@忀@顶@夢@争@ ,") & CJJCCJJJ & CJJJCCJJ(" ,种@，,迓@剤@ ,") & CJJCCJJJ-CJCJCCC & CJJJCCJJ(" ,种@！,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::Sub ClearCache(CJJCCJJC):Application.Contents.Remove CJJCCJJC
End Sub::Class jTree:Private CCCCJJ, CJCCCCC, CCJJJJJ, CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC:Private Sub Class_Initialize():CCJJJJJ = 0:CCJJJJC = 0:CCJJCJC=10:End Sub:Public Property Let Table(CJJCCJCJ):if CJJCCJCJ="" then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJJJCJ=CJJCCJCJ:CCJJJCC=CJJJCCJJ("!$*0") & UCase(CCJJJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJCJ:End Property:::Private Sub GetTreeArray():Dim CJCJJJJ, CJCJCJC, CCJJCCJ,RecordCount:CJCCCCC = Application(CCJJJCC):If Not IsArray(CJCCCCC) Then
CCCCJJ = CJJJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJCJ:if CCJJCJJ<>"" then CCCCJJ=CCCCJJ & CJJJCCJJ(" ,H96C6 ,") & CCJJCJJ
set CCJJCCJ=CCCJJJ.execute(CCCCJJ):RecordCount=CCJJCCJ(0):if RecordCount=0 then Call RedirectMessage(CJJJCCJJ("柠@话@W") & CCJJJCJ & CJJJCCJJ("^") & CCJJCJJ & CJJJCCJJ("X沜@朄@绎@林@敫@捩@"))
CCJJJJC=RecordCount+CCJJCJC:ReDim CJCCCCC(CCJJJJC, 4):CCCCJJ = CJJJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCJ & CJJJCCJJ(" ,H:E9 ,W?@=@4<X"):if CCJJCJJ<>"" then CCCCJJ=CCCCJJ & CJJJCCJJ(" ,H96C6 ,") & CCJJCJJ
CCCCJJ=CCCCJJ & CJJJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCCJ=CCCJJJ.execute(CCCCJJ):For CJCJJJJ = 1 To RecordCount:For CJCJCJC = 0 To 4:CJCCCCC(CJCJJJJ, CJCJCJC) = CCJJCCJ(CJCJCJC):if IsNull(CJCCCCC(CJCJJJJ,4)) then CJCCCCC(CJCJJJJ,4)=0
If CJCCCCC(CJCJJJJ,2)="" then CJCCCCC(CJCJJJJ,2)=CJJJCCJJ(",穵@.")
Next:CCJJCCJ.MoveNext:Next:CCJJCCJ.Close: Set CCJJCCJ = Nothing:for CJCJJJJ=CCJJJJC-(CCJJCJC-1) to CCJJJJC:CJCCCCC(CJCJJJJ,0)=CJCJJJJ:next:Application.Lock():Application(CCJJJCC) = CJCCCCC:Application.UnLock()
else
CCJJJJC=Ubound(CJCCCCC)
End If:End Sub:::::Private Function CJJJJJCC(CJJJCJJC):dim CJCJJJJ,CCJCJJJ:CJJJJJCC=0:CCJCJJJ=CStr(CJJJCJJC):if CCJCJJJ<>"0" then
for CJCJJJJ=1 to CCJJJJC:If CStr(CJCCCCC(CJCJJJJ, 0))=CCJCJJJ Then
CJJJJJCC = CJCJJJJ:Exit For
End If:Next
end if:End Function::::Public Function CJJJJCJJ(CJJJCJJC):Dim CJCJJJJ,CCJCJJC:CJCJJJJ=CJJJJJCC(CJJJCJJC):if CJCJJJJ=0 then
CCJCJJC=CJJJJCJC(CJJJCJJC)
else
CCJCJJC=CJCCCCC(CJCJJJJ,3):if isnull(CCJCJJC) or CCJCJJC="" then
CCJCJJC=CJJJJCJC(CJJJCJJC)
elseif Mid(CCJCJJC,instrrev(CCJCJJC,CJJJCCJJ("["))+1)<>CStr(CJJJCJJC) then
CCJCJJC=CJJJJCJC(CJJJCJJC)
elseif Left(CCJCJJC,1)=CJJJCCJJ("[") then
CCJCJJC=CJJJJCJC(CJJJCJJC)
end if
end if:CJJJJCJJ=CCJCJJC:End Function:Private Function CJJJJCJC(CJJJCJJC):dim CCJCJJJ:CCJCJJJ=CStr(CJJJCJJC):if CCJCJJJ="0" then
CJJJJCJC=""
else
dim CCJJCCJ:set CCJJCCJ=CCCJJJ.execute(CJJJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCJ & CJJJCCJJ(" ,H96C6 ,:5l") & CJJJCJJC):if CCJJCCJ.eof then
Call UpdateCache(CJJJCJJC,"","","",""):Call RedirectMessage(CJJJCCJJ("顴@盩@（,xs：,") & CJJJCJJC & CJJJCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJJCCJ(0)=0 then
CJJJJCJC="0," & CJJJCJJC
else
CJJJJCJC=CJJJJCJJ(CCJJCCJ(0)) & CJJJCCJJ("[") & CJJJCJJC
end if:if CCJJCCJ(2)<>CJJJJCJC then
CCCJJJ.execute CJJJCCJJ("FA52E6 ,") & CCJJJCJ & CJJJCCJJ(" ,D6E ,A2E9lV") & CJJJJCJC & CJJJCCJJ("V ,H96C6 ,:5l") & CJJJCJJC
else
CJJJJCJC=CCJJCCJ(2)
end if
end if:Call UpdateCache(CJJJCJJC,CCJJCCJ(0),CCJJCCJ(1),CJJJJCJC,CCJJCCJ(3)):CCJJCCJ.Close: Set CCJJCCJ = Nothing
end if:End Function::::::::Public Function GetAllChildID(CJJJCJJC):Dim Str, CJCJJJJ:if CJJJCJJJ(CJJJCJJC) then
For CJCJJJJ = 1 To CCJJJJC:If InStr(CJCCCCC(CJCJJJJ, 3) & CJJJCCJJ("["), CJJJCCJJ("[") & CJJJCJJC & CJJJCCJJ("[")) > 0 Then
Str = Str & CJJJCCJJ("[") & CJCCCCC(CJCJJJJ, 0)
End If:Next:Str = Mid(Str, 2)
else
str=CJJJCJJC
end if:GetAllChildID = Str:End Function::::Public Function Sql_GetChildren(CJJJCJJC):dim CCJCJJC:CCJCJJC=CJJJJCJJ(CJJJCJJC):Sql_GetChildren = CCJJJCJ & CJJJCCJJ("0A2E9ZV[V ,=:<6 ,V") & CCJCJJC & CJJJCCJJ("[TV")
End Function:Public Function CJJJCJJJ(CJJJCJJC):Dim CJCJJJJ:CJJJCJJJ = False:CJJJCJJC=CLng(CJJJCJJC):For CJCJJJJ = 1 To CCJJJJC:If CJCCCCC(CJCJJJJ, 1) = CJJJCJJC Then
CJJJCJJJ = True:Exit For
End If:Next:End Function:::::::::Public Sub ClearCache():Application.Contents.Remove CCJJJCC
End Sub:Public Sub UpdateCache(CJJJCJJC,CJJCCJCC,CJJCCCJJ,CCJCJJC,CJJCCCJC):dim CJCJJJJ,CJCJCJC:CJJJCJJC=CLng(CJJJCJJC):CJCJJJJ=CJJJJJCC(CJJJCJJC):if CJJCCJCC="" and CJJCCCJJ="" and CCJCJJC="" and CJJCCCJC="" then
if CJCJJJJ>0 then
for CJCJCJC=1 to 4:CJCCCCC(CJCJJJJ,CJCJCJC)=Null:next
end if
else
if CJCJJJJ=0 then
for CJCJCJC=1 to CCJJJJC:if CJCCCCC(CJCJCJC,1) & ""="" then
CJCJJJJ=CJCJCJC:exit for
end if:next
end if:if CJCJJJJ=0 then
Call ClearCache
else
CJCCCCC(CJCJJJJ,0)=CLng(CJJJCJJC):if CJJCCJCC<>"" then CJCCCCC(CJCJJJJ,1)=CLng(CJJCCJCC)
if CJJCCCJJ<>"" then CJCCCCC(CJCJJJJ,2)=CJJCCCJJ
if CCJCJJC<>"" then CJCCCCC(CJCJJJJ,3)=CCJCJJC
if CJJCCCJC<>"" then CJCCCCC(CJCJJJJ,4)=CLng(CJJCCCJC)
end if
end if:if CJCJJJJ>0 then
Application.Lock():Application(CCJJJCC) = CJCCCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJJCC):Call ConnClose:Response.Write CJJCJJCC:Response.End:End Sub:Private Function CCCCJCC():CCCCJCC=CJJJCJCJ+1:End Function:Private Function CJJJCJCJ():dim CJCCJCJ:set CJCCJCJ=CCCJJJ.execute(CJJJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJCJ & CJJJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCJCJ=CJCCJCJ(0):CJCCJCJ.Close: Set CJCCJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJCJJCJ:CCCCJJ=Request.ServerVariables(CJJJCCJJ("!p%w0x}u~")):if instr(CCCCJJ,CJJJCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJCCJ and not CJJCCJC then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJCJJCJ=CJJJJCC
elseif instr(CCCCJJ,CJJJCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCCCJJ,CJJJCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJCJ=CJJJJCC
elseif instr(CCCCJJ,CJJJCCJJ("^D49@@="))>0 then
CJCJJCJ=Request.QueryString(CJJJCCJJ("D49@@=")):if not CCCCJCJ(CJCJJCJ) then CJCJJCJ=Request.QueryString(CJJJCCJJ("F"))
if not CCCCJCJ(CJCJJCJ) then CJCJJCJ=Request.QueryString(CJJJCCJJ("D4"))
if not CCCCJCJ(CJCJJCJ) then Call RedirectMessage(CJJJCCJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJCJJCJ=csng(CJCJJCJ)
end if:if CJCJJCJ=0 then Call RedirectMessage(CJJJCCJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJCJCJ:Call SetConfig:Sub SetConfig():dim CJCJJJC,CJCCJCJ:CCCCJJ=CJJJCCJJ("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") & CJCJJCJ:set CJCCJCJ=CCCJJJ.execute(CCCCJJ):if CJCCJCJ.eof then Call RedirectMessage(CJJJCCJJ("患@W") & CCCCJC & CJJJCCJJ("X戻@圣@癿@卐@佈@W") & CJCJJCJ & CJJJCCJJ("X朥@批@别@。,"))
ReDim CJCJJJC(61):CJCJJJC(0)=CJCCJCJ(CJJJCCJJ(";:2@H6:")) & "":CJCJJJC(1)=CJCCJCJ(CJJJCCJJ("EJA6")):CJCJJJC(2)=CJCCJCJ(CJJJCCJJ("D>D")):CJCJJJC(3)=CJCCJCJ(CJJJCCJJ("4FDE@>8C@FA")) & "":CJCJJJC(4)=CJCCJCJ(CJJJCCJJ("D:5632C0@E96C")) & "":CJCJJJC(5)=IIf(isnull(CJCCJCJ(CJJJCCJJ("E6DEC6DF=EG:6H"))),0,CJCCJCJ(CJJJCCJJ("E6DEC6DF=EG:6H"))):CJCJJJC(6)=CJCCJCJ(CJJJCCJJ("K:IF?E:>6")):CJCJJJC(7)=CJCCJCJ(CJJJCCJJ("766")):CJCJJJC(8)=CJCCJCJ(CJJJCCJJ("C6E6DE52J")):CJCJJJC(9)=CJCCJCJ(CJJJCCJJ("6IA:C652E6")):CJCJJJC(10)=CJCCJCJ(CJJJCCJJ("E:E=6")):CJCJJJC(11)=CJCCJCJ(CJJJCCJJ(":?EC@")) & "":CJCJJJC(12)=CJCCJCJ(CJJJCCJJ("A:4EFC6")) & "":CJCJJJC(13)=CJCCJCJ(CJJJCCJJ("72>:=J")):CJCJJJC(14)=CJCCJCJ(CJJJCCJJ("4@AJC:89E")) & "":CJCJJJC(15)=IIf(isnull(CJCCJCJ(CJJJCCJJ("D6>6DE6C0DE2CE052E6"))),CJJJCCJJ("`h__\`\`"),CJCCJCJ(CJJJCCJJ("D6>6DE6C0DE2CE052E6"))):CJCJJJC(16)=IIf(isnull(CJCCJCJ(CJJJCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJCJ(CJJJCCJJ("K:IF?0E:>6D09:89=:89E"))):CJCJJJC(17)=CJCCJCJ(CJJJCCJJ("4@?E24E")) & "":CJCJJJC(18)=CJCCJCJ(CJJJCCJJ("D2?5E23=6")):CJCJJJC(19)=CJCCJCJ(CJJJCCJJ("4C:D:D")):CJCJJJC(20)=CJCCJCJ(CJJJCCJJ("JJ52E6")):CJCJJJC(21)=CJCCJCJ(CJJJCCJJ("BB")):CJCJJJC(22)=CJCCJCJ(CJJJCCJJ("JFJF60D>D0EA=")) & "":CJCJJJC(23)=CJCCJCJ(CJJJCCJJ("JFJF60E6DE0=3")) & "":CJCJJJC(25)=CJCCJCJ(CJJJCCJJ("6IA6CE")):CJCJJJC(26)=CJCCJCJ(CJJJCCJJ(">@5:?7@")):CJCJJJC(27)=CJCCJCJ(CJJJCCJJ("9@>6A286E@AA:4EFC6")) & "":CJCJJJC(28)=CJCCJCJ(CJJJCCJJ("4C:D:D=3")):CJCJJJC(29)=IIf(CJCCJCJ(CJJJCCJJ("4C:D:D@=5")),False,True):CJCJJJC(30)=CJCCJCJ(CJJJCCJJ("8C@FA8F:52?46")):CJCJJJC(31)=CJCCJCJ(CJJJCCJJ("3:@7665324<")):CJCJJJC(32)=CJCCJCJ(CJJJCCJJ("<6JDEC")):CJCJJJC(33)=CJCCJCJ(CJJJCCJJ("=@8@")) & "":CJCJJJC(34)=CJCCJCJ(CJJJCCJJ("K:46")):CJCJJJC(35)=IIf(CJCCJCJ(CJJJCCJJ(":D?6H")),True,False):CJCJJJC(36)=121:CJCJJJC(37)=111:CJCJJJC(38)=160:CJCJJJC(39)=CJCCJCJ(CJJJCCJJ("8F6DE3@@<")):CJCJJJC(40)=CJCCJCJ(CJJJCCJJ("75D")):CJCJJJC(42)=CJCCJCJ(CJJJCCJJ("9@>6=@8:?")):CJCJJJC(43)=CJCCJCJ(CJJJCCJJ("K:IF?0?6657665324<")):CJCJJJC(44)=CJCCJCJ(CJJJCCJJ("K:IF?0E:>6D0=:>:E")):CJCJJJC(45)=CJCCJCJ(CJJJCCJJ("4@>A=6E60:?7@")):CJCJJJC(46)=CJCCJCJ(CJJJCCJJ("E6DE:?EC@")) & "":CJCJJJC(47)=IIf(isnull(CJCCJCJ(CJJJCCJJ("JFJF60367@C60E:>6"))),0,CJCCJCJ(CJJJCCJJ("JFJF60367@C60E:>6"))):CJCJJJC(49)=CJCCJCJ(CJJJCCJJ("D>D0C646:G6C")):CJCJJJC(50)=CJCCJCJ(CJJJCCJJ("D>D0D:8?")) & "":CJCJJJC(52)=CJCCJCJ(CJJJCCJJ("JFJF602CC2?86")):CJCJJJC(53)=IIf(isnull(CJCCJCJ(CJJJCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJCJ(CJJJCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJJJC(54)=CJCCJCJ(CJJJCCJJ("9:560=30@FE@7286")):CJCJJJC(55)=CJCCJCJ(CJJJCCJJ("JFJF60E6DE052JD")):CJCJJJC(56)=CJCCJCJ(CJJJCCJJ("JFJF60H66<0=:>:E")):CJCJJJC(57)=CJCCJCJ(CJJJCCJJ("JFJF604964<65")):CJCJJJC(58)=CJCCJCJ(CJJJCCJJ("K:IF?0?6657665324<0?6IE")):CJCJJJC(59)=CJCCJCJ(CJJJCCJJ("4964<?6HDEF56?E")):CJCJJJC(60)=CJCCJCJ(CJJJCCJJ("K:IF?04=@D6052E6")):CJCCJCJ.close : set CJCCJCJ=nothing:if isNull(CJCJJJC(8)) or CJCJJJC(8)="" then CJCJJJC(8)=0
if isdate(CJCJJJC(9)) then
CJCJJJC(9)=cdate(CJCJJJC(9)):if CJCJJJC(9)<Date then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJCJJJC(9) & CJJJCCJJ("X巭@迂@。,"))
end if:if not CCCCJCJ(CJCJJJC(20)) then CJCJJJC(20)=7
select case CJCJJJC(1):case 1,2,16:CJCJJJC(36)=159:case 4,5,6,10,11:CJCJJJC(36)=190:CJCJJJC(37)=178:CJCJJJC(38)=191:case 7,13:CJCJJJC(36)=164:CJCJJJC(37)=178:CJCJJJC(38)=179:end select:CCJCJCJ=CJCJJJC:End Sub:Function CCCCCCJ(CJJCJCCC):dim CJCJJJC(7,1),CJCJJJJ,CCJCJCC,CCJCCJJ:CCJCJCC=Array(CJJJCCJJ("$49@@="),CJJJCCJJ("$EF56?E"),CJJJCCJJ("s6AE"),CJJJCCJJ("vC256"),CJJJCCJJ("r=2DD>2E6"),CJJJCCJJ("}F>36C"),CJJJCCJJ("%62496C"),CJJJCCJJ("!2C6?E")):select case CCJCJCJ(1):case 1,2 : CCJCCJJ=Array(CJJJCCJJ("孡@栜@"),CJJJCCJJ("孡@甚@"),CJJJCCJJ("珨@红@"),CJJJCCJJ("幯@红@"),CJJJCCJJ("吇@孡@"),CJJJCCJJ("孡@史@"),CJJJCCJJ("敔@布@"),CJJJCCJJ("宱@镺@")):case 3,16 : CCJCCJJ=Array(CJJJCCJJ("孡@栜@"),CJJJCCJJ("孡@甚@"),CJJJCCJJ("陝@糶@"),CJJJCCJJ("幯@红@"),CJJJCCJJ("吇@孡@"),CJJJCCJJ("孡@史@"),CJJJCCJJ("敔@布@"),CJJJCCJJ("宱@镺@")):case 4 : CCJCCJJ=Array(CJJJCCJJ("匶@陝@"),CJJJCCJJ("杠@论@耀@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("匶@甚@"),CJJJCCJJ("宱@屙@")):case 5 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("呓@巠@"),CJJJCCJJ("郣@闣@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("呓@巠@"),CJJJCCJJ("宱@屙@")):case 6 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("杠@论@耀@"),CJJJCCJJ("线@刦@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 7 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("宓@兰@"),CJJJCCJJ("郣@闣@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("戓@叆@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 8 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("杠@论@耀@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("兠@聇@幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("酈@偱@")):case 9 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("敔@布@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("酈@偱@")):case 10 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("氌@譡@"),CJJJCCJJ("郣@闣@"),CJJJCCJJ("兠@譡@幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 11 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("內@劜@呓@"),CJJJCCJJ("郣@闣@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 12 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("幭@譡@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("兠@譡@幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 13 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("孡@呓@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("戓@叆@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("敔@呓@"),CJJJCCJJ("宱@屙@")):case 14 : CCJCCJJ=Array(CJJJCCJJ("月@劜@炴@"),CJJJCCJJ("局@氌@"),CJJJCCJJ("线@刦@"),CJJJCCJJ("幯@仸@"),CJJJCCJJ("邶@采@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case 15 : CCJCCJJ=Array(CJJJCCJJ("卐@佈@"),CJJJCCJJ("盌@独@氌@譡@"),CJJJCCJJ("卐@佈@"),CJJJCCJJ("兠@譡@幯@仸@"),CJJJCCJJ("吇@了@"),CJJJCCJJ("缑@史@"),CJJJCCJJ("咣@话@布@"),CJJJCCJJ("宱@屙@")):case else : CCJCCJJ=CCJCJCC
end select:for CJCJJJJ=0 to Ubound(CJCJJJC):CJCJJJC(CJCJJJJ,0)=CCJCJCC(CJCJJJJ):CJCJJJC(CJCJJJJ,1)=CCJCCJJ(CJCJJJJ):next:for CJCJJJJ=0 to Ubound(CJCJJJC):if CJCJJJC(CJCJJJJ,0)=CJJCJCCC then
CCCCCCJ=CJCJJJC(CJCJJJJ,1):exit for
end if:next:End Function::if CCJCJCJ(7)<3 then Call RedirectMessage(CJJJCCJJ("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
Call CheckRight(79):dim CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CCCJJCC:CCJCCJC=Request.QueryString(CJJJCCJJ("s6AE")):CCJCCCC=Request.QueryString(CJJJCCJJ("vC256")):CCCJJJJ=Request.QueryString(CJJJCCJJ("vC@FA")):CCJCCCJ=Request.QueryString(CJJJCCJJ("!@DE")):CCCJJJC=Request.QueryString(CJJJCCJJ("5E`")):CCCJJCJ=Request.QueryString(CJJJCCJJ("5Ea")):CCCJJCC=Request.QueryString(CJJJCCJJ("=3:5")):if not CCCCJCJ(CCJCCJC) then CCJCCJC=CJJJJJJ
dim CJCCCCC:set CJCCCCC=new jtree:CJCCCCC.table=CJJJCCJJ(">6>36C0EJA6"):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("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJCCJJ("kE:E=6m浆@访@敫@k^E:E=6m") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^;BF6CJ\EC66E23=6^4DD^;BF6CJ]EC66E23=6]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^;BF6CJ\EC66E23=6^4DD^;BF6CJ]EC66E23=6]E96>6]5672F=E]>:?]4DDQm") & vbCrLf):Response.Write(CJJJCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("E23=6]E30=:DE ,L ,5:DA=2Ji?@?6jN") & vbCrLf):Response.Write(CJJJCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJCCJJ("k^9625m") & vbCrLf):Response.Write(CJJJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCCJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQE6DEC6DF=E]2DAQm巭@浆@惀@冰@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQE6DE0C6A62E]2DAQm釈@夈@讫@彐@柠@话@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):If CCJCJCJ(7)=3 and CCCCJJJ(79) Then
Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=:mk2 ,9C67lQE6DE0DE2E]2DAQm厽@浆@玂@绚@讜@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQE6DE04@F?E]2DAQm浆@访@敫@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCJJ("k^F=m") & vbCrLf):Response.Write(CJJJCCJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm苾@囯@k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):Response.Write CJJJCCJJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CCJCCJC & CJJJCCJJ("Vmk^D6=64Em")
If CCJCJCJ(1)>=3 Then
Response.Write CJJJCCJJ(" ,kD6=64E ,?2>6lV8C256Vm")
if CJJJCJJ=0 then
Response.Write CJJJCCJJ("k@AE:@? ,G2=F6lVVm,") & CCCCCCJ(CJJJCCJJ("vC256")) & CJJJCCJJ(".k^@AE:@?m")
Call ShowListSelect(CJJJCCJJ(">6>36C08C256"),CJCJJCJ,CCJCCCC)
else
Response.Write CJJJCCJJ("k@AE:@? ,G2=F6lV") & CJJJCJJ & CJJJCCJJ("Vm") & CJJJJJJC(CJJJCCJJ(">6>36C08C256"),CJCJJCJ,CJJJCJJ) & CJJJCCJJ("k^@AE:@?m")
end if:Response.Write CJJJCCJJ("k^D6=64Em")
End If:If CCJCJCJ(3)<>"" Then
Response.Write CJJJCCJJ(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJJCJCC=0 then
Response.Write CJJJCCJJ("k@AE:@? ,G2=F6lVVm,") & CCJCJCJ(3) & CJJJCCJJ(".k^@AE:@?m")
Call ShowListSelect(CJJJCCJJ(">6>36C04FDE@>8C@FA"),CJCJJCJ,CCCJJJJ)
else
Response.Write CJJJCCJJ("k@AE:@? ,G2=F6lV") & CJJCJCC & CJJJCCJJ("Vm") & CJJJJJJC(CJJJCCJJ(">6>36C04FDE@>8C@FA"),CJCJJCJ,CJJCJCC) & CJJJCCJJ("k^@AE:@?m")
end if:Response.Write CJJJCCJJ("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@赲@k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk:?AFE ,?2>6lQ5E`Q ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CCCJJJC:Response.Write(CJJJCCJJ("Qmk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,C@HDA2?lQaQ ,4=2DDlQ24EQmk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6I46=Q ,G2=F6lQ寷@ ,凵@Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm释@衣@k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mkD6=64E ,?2>6lQ=3:5Q ,52E2\G2=F6lQ")):Response.Write  CCCJJCC:Response.Write(CJJJCCJJ("Qmk^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@歝@k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5mk:?AFE ,?2>6lQ5EaQ ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CCCJJCJ:Response.Write(CJJJCCJJ("Qmk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCJJ("k^7@C>m") & vbCrLf)::If CCJCCCJ="1" Then
Call CheckQueryTime(CJJJCCJJ("E6DE04@F?E"),60):Response.Write(vbCrLf):Response.Write(CJJJCCJJ("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m合@秫@ ,,k2 ,9C67lQ;2G2D4C:AEijQ ,:5lQr@==2AD6Qm攱@缤@k^2m.,k2 ,9C67lQ;2G2D4C:AEijQ ,:5lQtIA2?5Qm屐@廻@k^2m.k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9 ,E:E=6lQ筻@卐@莲@发@浆@访@杜@敫@（,忸@畠@浆@访@耀@觍@艭@、,浆@访@欜@敫@筄@）,Qm浆@访@敫@WnXk^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9 ,E:E=6lQ莲@发@戻@朄@亵@呓@敫@释@（,忸@畠@浆@访@耀@觍@艭@）,Qm亵@敫@WnXk^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE9m每@來@k^E9m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):dim CCCJCJJ(),CJCJJJJ,CJCJCJC,CCCJCJC:CCCCJJ=CJJJCCJJ("D6=64E ,:5[A2C:5[?2>6 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5 ,:? ,W") & CJCCCCC.GetAllChildID(CCJCCJC) & CJJJCCJJ("X ,@C56C ,3J ,A2E9"):set CCCJCJ=server.createobject(CJJJCCJJ("25@53]C64@C5D6E")):CCCJCJ.open CCCCJJ,CCCJJJ,1:CCCJCJC=CCCJCJ.recordcount:redim CCCJCJJ(CCCJCJC,4):for CJCJJJJ=1 to CCCJCJC:for CJCJCJC=0 to 2:CCCJCJJ(CJCJJJJ,CJCJCJC)=CCCJCJ(CJCJCJC):next:CCCJCJJ(CJCJJJJ,3)=0:CCCJCJJ(CJCJJJJ,4)=0:CCCJCJ.movenext:next:CCCCJJ=CJJJCCJJ("D6=64E ,>6>36C0EJA60A2E9[4@F?EW:5X ,2D ,4@F?E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,") & CJCCCCC.Sql_GetChildren(CCJCCJC) & CJJJCCJJ(" ,2?5 ,G2=:5l` ,2?5 ,=3l") & CCCJJCC:if CCCCJCJ(CCJCCCC) then CCCCJJ=CCCCJJ & CJJJCCJJ(" ,2?5 ,8C256l") & CCJCCCC
if CCCCJCJ(CCCJJJJ) then CCCCJJ=CCCCJJ & CJJJCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CCCJJJJ
if isDate(CCCJJJC) then CCCCJJ=CCCCJJ & CJJJCCJJ(" ,2?5 ,52E6E:>6mlV") & CCCJJJC & CJJJCCJJ("V")
if isDate(CCCJJCJ) then CCCCJJ=CCCCJJ & CJJJCCJJ(" ,2?5 ,52E6E:>6kV") & cdate(CCCJJCJ)+1 & CJJJCCJJ("V")
CCCCJJ=CCCCJJ & CJJJCCJJ(" ,8C@FA ,3J ,>6>36C0EJA60A2E9"):set CCCJCJ=CCCJJC.execute(CCCCJJ):while not CCCJCJ.eof:for CJCJJJJ=1 to CCCJCJC:if instr(CCCJCJ(0) & CJJJCCJJ("["),CJJJCCJJ("[") & CCCJCJJ(CJCJJJJ,0) & CJJJCCJJ("["))>0 then CCCJCJJ(CJCJJJJ,3)=CCCJCJJ(CJCJJJJ,3)+CCCJCJ(1)
next:CCCJCJ.movenext:wend:CCCCJJ=CJJJCCJJ("D6=64E ,>6>36C0EJA60A2E9[4@F?EW:5X ,2D ,4@F?E ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,DE2E6ld ,2?5 ,") & CJCCCCC.Sql_GetChildren(CCJCCJC):if CCCCJCJ(CCJCCCC) then CCCCJJ=CCCCJJ & CJJJCCJJ(" ,2?5 ,8C256l") & CCJCCCC
if CCCCJCJ(CCCJJJJ) then CCCCJJ=CCCCJJ & CJJJCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CCCJJJJ
CCCCJJ=CCCCJJ & CJJJCCJJ(" ,8C@FA ,3J ,>6>36C0EJA60A2E9"):set CCCJCJ=CCCJJJ.execute(CCCCJJ):while not CCCJCJ.eof:for CJCJJJJ=1 to CCCJCJC:if instr(CCCJCJ(0) & CJJJCCJJ("["),CJJJCCJJ("[") & CCCJCJJ(CJCJJJJ,0) & CJJJCCJJ("["))>0 then CCCJCJJ(CJCJJJJ,4)=CCCJCJJ(CJCJJJJ,4)+CCCJCJ(1)
next:CCCJCJ.movenext:wend:for CJCJJJJ=1 to CCCJCJC:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kEC ,52E2\EE\:5lQ")):Response.Write  CCCJCJJ(CJCJJJJ,0):Response.Write(CJJJCCJJ("Q ,52E2\EE\A2C6?E\:5lQ")):Response.Write  CCCJCJJ(CJCJJJJ,1):Response.Write(CJJJCCJJ("Qm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,DEJ=6lQ4@=@CiR444jQm")):Response.Write  CCCJCJJ(CJCJJJJ,0):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5m")):Response.Write  CCCJCJJ(CJCJJJJ,2):Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):if CCCJCJJ(CJCJJJJ,3)>0 then response.write CCCJCJJ(CJCJJJJ,3)
Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):if CCCJCJJ(CJCJJJJ,4)>0 then response.write CCCJCJJ(CJCJJJJ,4)
Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,2=:8?lQC:89EQm")):if CCCJCJJ(CJCJJJJ,3)>0 and CCCJCJJ(CJCJJJJ,4)>0 then response.write formatpercent(CCCJCJJ(CJCJJJJ,3)/CCCJCJJ(CJCJJJJ,4),2,-1)
Response.Write(CJJJCCJJ("k^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCJJ(" ,kE5 ,4@=DA2?lQdQmk^E5m") & vbCrLf):Response.Write(CJJJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCJJ("k^E23=6m") & vbCrLf)
end if:Response.Write(vbCrLf):Response.Write(CJJJCCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write  CJCJJCJ:Response.Write(CJJJCCJJ("Qm") & vbCrLf):Response.Write(CJJJCCJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CJJJJJJ:Response.Write(CJJJCCJJ("Qm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ\EC66E23=6^;BF6CJ]EC66E23=6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVE23=6]E30=:DEVX]EC66E23=6WL4@=F>?i`[6IA2?523=6iECF6NX]D9@HWX") & vbCrLf):Response.Write(CJJJCCJJ(" ,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(CJJJCCJJ(" ,SWVR3E?\6I46=VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30=:DEVX]E23=6a6I46=WV浆@访@敫@VXNX") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVRr@==2AD6VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30=:DEVX]EC66E23=6WV4@==2AD6p==VXjC6EFC? ,72=D6NX") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVRtIA2?5VX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30=:DEVX]EC66E23=6WV6IA2?5p==VXjC6EFC? ,72=D6NX") & vbCrLf):Response.Write(CJJJCCJJ(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJJJCCJJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJJJCCJJ(" ,EC66iECF6") & vbCrLf):Response.Write(CJJJCCJJ(" ,NX") & vbCrLf):Response.Write(CJJJCCJJ(" ,^^ ,释@衣@划@衣@") & vbCrLf):Response.Write(CJJJCCJJ(" ,SWVD6=64E,?2>6lQ=3:5Q.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJJJCCJJ(" ,FC=iV^D49@@=^VZSWVRD49@@=VX]G2=WXZV^D42=6=:DEn>:?:l`V[") & vbCrLf):Response.Write(CJJJCCJJ(" ,:?56IiECF6") & vbCrLf):Response.Write(CJJJCCJJ(" ,NX") & 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 CJCCCCC=nothing:set CCCCCJJ=nothing:set CCCCCJC=nothing:set CCCCCCJ=nothing:CCCJCC.Close:Set CCCJCC=Nothing:CCCJCJ.Close:Set CCCJCJ=Nothing:CCCJJJ.Close:Set CCCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCJJ(ByVal CJJJCJCC)
Dim CCCJCCJ, CJCJJJJ, CJCJCCC
CJJJCJCC = Replace(CJJJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJJJ = 1 To Len(CJJJCJCC)
If CJCJJJJ <> CJCJCCC Then
CCCJCCJ = AscW(Mid(CJJJCJCC, CJCJJJJ, 1))
If CCCJCCJ >= 33 And CCCJCCJ <= 79 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCCJCCJ + 47)
ElseIf CCCJCCJ >= 80 And CCCJCCJ <= 126 Then
CJJJCCJJ = CJJJCCJJ & Chr(CCCJCCJ - 47)
Else
CJCJCCC = CJCJJJJ + 1
If Mid(CJJJCJCC, CJCJCCC, 1) = Chr(64) Then CJJJCCJJ = CJJJCCJJ & ChrW(CCCJCCJ + 5) Else CJJJCCJJ = CJJJCCJJ & Mid(CJJJCJCC, CJCJJJJ, 1)
End If
End If
Next
End Function
%>