<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCJC, CJCCCJ,rs, CCJJJJ, sql:Set CJCCJC = server.CreateObject(CJJCCCCC("ps~sq]r@??64E:@?")):CJCCJC.open Application(CJJCCCCC("r@??64E:@?$EC:?8")):Set CJCCCJ=CJCCJC::Dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ:CJJJCJJ=Trim(Request.Cookies(CJJCCCCC("!$*|t|qt#"))):if CJJJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCJ>0 then
sql=CJJCCCCC("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") & CCJJCC & CJJCCCCC("V ,2?5 ,:5l") & CCJJCJ
set rs=CJCCJC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCJCJJ=rs(2) & "":CCJCJC=rs(3):CCJCCJ=rs(5):CCJCCC=rs(6):CCCJJJ=rs(9):CCCJJC=rs(15):CCCJCC=rs(0):CJJJJCJ=rs(1):CJJJJJC=rs(11) & "":CCCCJJ=rs(10) & "":CCCJCJ=rs(12):CCCCJC=rs(14):CCCCCJ=rs(13):CCCCCC=rs(7) & "":CJJJJJJ=rs(4):CJJJJCC=rs(8):if isnull(CCCJJC) then CCCJJC=0
if isnull(CCCJJJ) or CCCJJJ=0 then CCCJJJ=CCJCJC
if isnull(CJJJJJJ) then CJJJJJJ=0
if isnull(CCJCCJ) then CCJCCJ=0
if instr(CJJCCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJCC)>0 then Call RedirectMessage(CJJCCCCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJJCJ,CCJJCC)
End IF
end if:Sub CheckRight(CCJCCJC):dim CJJJCJC,CJJJCCJ:if CCJJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCCCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCCCCJ(CCJCCJC) then
Call RedirectMessage(CJJCCCCC("朾@陋@W") & CCJCCJC & CJJCCCCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCCCCJ(CCJCCJC):dim CJJJCJC,CJJJCCJ:CJJJCCJ=split(CCJCCJC,CJJCCCCC("[")):CCCCCCJ=False:for CJJJCJC=0 to ubound(CJJJCCJ):If Mid(CCJCJJ,CJJJCCJ(CJJJCJC),1)="1" then
CCCCCCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCCCCC("!$*|t|qt#"))="":CCJJCJ=0:CCJCCC=0:CCJJCC=Empty:CCJCCJ=0:CCCJJC=0:CCCJJJ=0:CCJCJC=0:CCCJCC=False:CJJJJCJ=False:CJJJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCC,CJJCJJJ,CJJJCJC,CJJCJJC,CJJCJCJ:CJJJCCC=split(CJJJCJJ,CJJCCCCC("]")):if ubound(CJJJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJCCC(0)) or len(CJJJCCC(1))<>32 or len(CJJJCCC(2))<>32 then
Call ClearMemberCookie
else
CJJCJJJ=CJJJCCC(1):for CJJJCJC=1 to len(CJJCJJJ):CJJCJJC=mid(CJJCJJJ,CJJJCJC,1):if isnumeric(CJJCJJC) then CJJCJCJ=CJJCJCJ & CJJCJJC
if len(CJJCJCJ)=7 then exit for
next:CJJCJJJ=CJJJCCC(2):if CJJCJCJ<>mid(CJJCJJJ,6,7) then
Call ClearMemberCookie
else
CJJCJJC=mid(CJJCJJJ,18,10)/2:if CJJCJJC<DateDiff(CJJCCCCC("D"), CJJCCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCJ=Clng(CJJJCCC(0)):CCJJCC=CJJJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCJJ,CJCJJJJJ):dim CJJJCJC,CJJCJJC,CJJCJCJ:for CJJJCJC=1 to len(CJCJJJJJ):CJJCJJC=mid(CJCJJJJJ,CJJJCJC,1):if isnumeric(CJJCJJC) then CJJCJCJ=CJJCJCJ & CJJCJJC
if len(CJJCJCJ)=7 then exit for
next:CJJCJCJ=CCCJCJJ & CJJCCCCC("]") & CJCJJJJJ & CJJCCCCC("]") & Fix(10000*(Rnd+1)) & CJJCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCCC("D"), CJJCCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCCC("!$*|t|qt#"))=CJJCJCJ:End Sub::Function CCCCCCC(CJCJJJJC):Dim str,CJJCCJJ:str = Trim(CJCJJJJC):If IsNull(str) Or str = "" Then
CCCCCCC = ""
else
str=Replace(str, CJJCCCCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCCCCC("k:7C2>6"), CJJCCCCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCCCC("kD4C:AE"), CJJCCCCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCCJJ=new RegExp:CJJCCJJ.Pattern=CJJCCCCC("@?W,2\K.ZXl"):CJJCCJJ.IgnoreCase = True:CJJCCJJ.Global=True:str=CJJCCJJ.Replace(str,CJJCCCCC("@?S`U6BF2=Dj")):set CJJCCJJ=nothing:CCCCCCC=str
End If:End Function:Function IIf(CJCJJJCJ, CJCJJJCC, CJCJJCJJ):if isnull(CJCJJJCJ) or isempty(CJCJJJCJ) then
IIf = CJCJJCJJ
elseif CJCJJJCJ Then
IIf = CJCJJJCC
Else
IIf = CJCJJCJJ
end if:End Function:Const CCCJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJJJCJC,CJJCJJC,CJJCCJC:if isarray(str) then
on error resume next:CJJJCJC=ubound(str,2):CJJCCJC=err.number:err.clear:on error goto 0:if CJJCCJC<>0 then
for CJJJCJC=0 to ubound(str):if CJJJCJC>0 then response.Write CJJCCCCC("k3C ,^m")
response.Write CJJJCJC & CJJCCCCC("i ,") & str(CJJJCJC):next
else
response.Write CJJCCCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCJC=0 to ubound(str,2):response.Write CJJCCCCC("kE9 ,2=:8?lV=67EVm") & CJJJCJC & CJJCCCCC("k^E9m")
next:response.Write CJJCCCCC("k^ECm"):for CJJJCJC=0 to ubound(str):response.Write CJJCCCCC("kECmkE9m") & CJJJCJC & CJJCCCCC("k^E9m"):for CJJCJJC=0 to ubound(str,2):response.Write CJJCCCCC("kE5m") & str(CJJJCJC,CJJCJJC) & CJJCCCCC("k^E5m"):next:response.Write CJJCCCCC("k^ECm"):next:response.Write CJJCCCCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCCCCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCCCCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJJJJJC():Dim CJJCCCJ, CJJCCCC:CJJCCCC = Request.ServerVariables(CJJCCCCC("!p%w0x}u~")):CJJCCCJ = Request.ServerVariables(CJJCCCCC("""&t#*0$%#x}v")):If CJJCCCJ <> Empty Then
if instr(lcase(CJJCCCJ),CJJCCCCC("Tb4:7C2>6"))>0 or instr(lcase(CJJCCCJ),CJJCCCCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCCCCC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CJJCCCC = CJJCCCC & CJJCCCCC("n") & CJJCCCJ
end if:CJJJJJJC = CJJCCCC:End Function:Sub SetHttpOnlyCookie(CJCJJCJC,CJCJJCCJ):dim CJJJCCC:CJJJCCC=CJCJJCJC & CJJCCCCC("l") & CJCJJCCJ & CJJCCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCCC("$6E\r@@<:6"),CJJJCCC):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJCCCCC("!$*"))(CJJCCCCC("&#{")) = CJJJJJJC:End Sub::::::Function CJJJJJCJ(CJJCCJC):if isnull(CJJCCJC) or trim(CJJCCJC)="" or not isnumeric(CJJCCJC) then
CJJJJJCJ=false
else
Dim CJJCCJJ:Set CJJCCJJ = New RegExp:CJJCCJJ.Pattern = CJJCCCCC("/-5ZS"):CJJCCJJ.IgnoreCase = True:CJJJJJCJ = CJJCCJJ.test(CJJCCJC):set CJJCCJJ=nothing
end if:End Function:Function CJJJJJCC(CJCJJCCC):dim CJCJJJJ,CJCJJJC:CJCJJJJ=CJJCCCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJCCC & CJJCCCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJJC=CJCCJC.execute(CJCJJJJ):CJJJJJCC = CJCJJJC(0):if isnull(CJJJJJCC) then CJJJJJCC=1
CJCJJJC.close : set CJCJJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJJCJ=nothing:set CJJJJCJJ=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:CJCJJJC.close : set CJCJJJC=nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:rs.Close : Set rs=Nothing:CJJJJCCC.Close : Set CJJJJCCC = Nothing:CJCCJC.Close : Set CJCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCCC("!$*0|6DD286"),server.URLEncode(CJCJCJJJ)):Response.Redirect CJJCCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::Function CJJJCJJJ(CJCJCJJC):CJJJCJJJ=CJCJCJJC:End Function:::::::::::::::::::::::::Sub ClearCache(CJCJCJCJ):Application.Contents.Remove CJCJCJCJ
End Sub::Class jTree:Private Sql, CJCJJCJ, CJCJJCC, CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ:Private Sub Class_Initialize():CJCJJCC = 0:CJCJCJJ = 0:CJCCJJJ=10:End Sub:Public Property Let Table(CJCJCJCC):if CJCJCJCC="" then Call RedirectMessage(CJJCCCCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJCJC=CJCJCJCC:CJCJCCJ=CJJCCCCC("!$*0") & UCase(CJCJCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCJC:End Property:::Private Sub GetTreeArray():Dim CJJJCJC, CJJCJJC, CJCCJJC,RecordCount:CJCJJCJ = Application(CJCJCCJ):If Not IsArray(CJCJJCJ) Then
Sql = CJJCCCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCJC:if CJCJCCC<>"" then Sql=Sql & CJJCCCCC(" ,H96C6 ,") & CJCJCCC
set CJCCJJC=CJCCJC.execute(sql):RecordCount=CJCCJJC(0):if RecordCount=0 then Call RedirectMessage(CJJCCCCC("柠@话@W") & CJCJCJC & CJJCCCCC("^") & CJCJCCC & CJJCCCCC("X沜@朄@绎@林@敫@捩@"))
CJCJCJJ=RecordCount+CJCCJJJ:ReDim CJCJJCJ(CJCJCJJ, 4):Sql = CJJCCCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJC & CJJCCCCC(" ,H:E9 ,W?@=@4<X"):if CJCJCCC<>"" then Sql=Sql & CJJCCCCC(" ,H96C6 ,") & CJCJCCC
Sql=Sql & CJJCCCCC(" ,@C56C ,3J ,D@CE[:5"):set CJCCJJC=CJCCJC.execute(sql):For CJJJCJC = 1 To RecordCount:For CJJCJJC = 0 To 4:CJCJJCJ(CJJJCJC, CJJCJJC) = CJCCJJC(CJJCJJC):if IsNull(CJCJJCJ(CJJJCJC,4)) then CJCJJCJ(CJJJCJC,4)=0
If CJCJJCJ(CJJJCJC,2)="" then CJCJJCJ(CJJJCJC,2)=CJJCCCCC(",穵@.")
Next:CJCCJJC.MoveNext:Next:CJCCJJC.Close: Set CJCCJJC = Nothing:for CJJJCJC=CJCJCJJ-(CJCCJJJ-1) to CJCJCJJ:CJCJJCJ(CJJJCJC,0)=CJJJCJC:next:Application.Lock():Application(CJCJCCJ) = CJCJJCJ:Application.UnLock()
else
CJCJCJJ=Ubound(CJCJJCJ)
End If:End Sub:::::Private Function CJJJCJCJ(CCCJCJJ):dim CJJJCJC,CJCCJCC:CJJJCJCJ=0:CJCCJCC=CStr(CCCJCJJ):if CJCCJCC<>"0" then
for CJJJCJC=1 to CJCJCJJ:If CStr(CJCJJCJ(CJJJCJC, 0))=CJCCJCC Then
CJJJCJCJ = CJJJCJC:Exit For
End If:Next
end if:End Function::::Public Function CJJJCJCC(CCCJCJJ):Dim CJJJCJC,CJCCCJJ:CJJJCJC=CJJJCJCJ(CCCJCJJ):if CJJJCJC=0 then
CJCCCJJ=CJJJCCJJ(CCCJCJJ)
else
CJCCCJJ=CJCJJCJ(CJJJCJC,3):if isnull(CJCCCJJ) or CJCCCJJ="" then
CJCCCJJ=CJJJCCJJ(CCCJCJJ)
elseif Mid(CJCCCJJ,instrrev(CJCCCJJ,CJJCCCCC("["))+1)<>CStr(CCCJCJJ) then
CJCCCJJ=CJJJCCJJ(CCCJCJJ)
elseif Left(CJCCCJJ,1)=CJJCCCCC("[") then
CJCCCJJ=CJJJCCJJ(CCCJCJJ)
end if
end if:CJJJCJCC=CJCCCJJ:End Function:Private Function CJJJCCJJ(CCCJCJJ):dim CJCCJCC:CJCCJCC=CStr(CCCJCJJ):if CJCCJCC="0" then
CJJJCCJJ=""
else
dim CJCCJJC:set CJCCJJC=CJCCJC.execute(CJJCCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJC & CJJCCCCC(" ,H96C6 ,:5l") & CCCJCJJ):if CJCCJJC.eof then
Call UpdateCache(CCCJCJJ,"","","",""):Call RedirectMessage(CJJCCCCC("顴@盩@（,xs：,") & CCCJCJJ & CJJCCCCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCCJJC(0)=0 then
CJJJCCJJ="0," & CCCJCJJ
else
CJJJCCJJ=CJJJCJCC(CJCCJJC(0)) & CJJCCCCC("[") & CCCJCJJ
end if:if CJCCJJC(2)<>CJJJCCJJ then
CJCCJC.execute CJJCCCCC("FA52E6 ,") & CJCJCJC & CJJCCCCC(" ,D6E ,A2E9lV") & CJJJCCJJ & CJJCCCCC("V ,H96C6 ,:5l") & CCCJCJJ
else
CJJJCCJJ=CJCCJJC(2)
end if
end if:Call UpdateCache(CCCJCJJ,CJCCJJC(0),CJCCJJC(1),CJJJCCJJ,CJCCJJC(3)):CJCCJJC.Close: Set CJCCJJC = Nothing
end if:End Function::::Public Function IsParent(CJCJCCJJ, CJCJCCJC):IsParent=InStr(CJJJCJCC(CJCJCCJC) & CJJCCCCC("["), CJJCCCCC("[") & CJCJCCJJ & CJJCCCCC("[")) > 0:End Function::::::::Public Function Sql_GetChildren(CCCJCJJ):dim CJCCCJJ:CJCCCJJ=CJJJCJCC(CCCJCJJ):Sql_GetChildren = CJCJCJC & CJJCCCCC("0A2E9ZV[V ,=:<6 ,V") & CJCCCJJ & CJJCCCCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJCCJ
End Sub:Public Sub UpdateCache(CCCJCJJ,CJCJCCCJ,CJCJCCCC,CJCCCJJ,CJCCJJJJ):dim CJJJCJC,CJJCJJC:CCCJCJJ=CLng(CCCJCJJ):CJJJCJC=CJJJCJCJ(CCCJCJJ):if CJCJCCCJ="" and CJCJCCCC="" and CJCCCJJ="" and CJCCJJJJ="" then
if CJJJCJC>0 then
for CJJCJJC=1 to 4:CJCJJCJ(CJJJCJC,CJJCJJC)=Null:next
end if
else
if CJJJCJC=0 then
for CJJCJJC=1 to CJCJCJJ:if CJCJJCJ(CJJCJJC,1) & ""="" then
CJJJCJC=CJJCJJC:exit for
end if:next
end if:if CJJJCJC=0 then
Call ClearCache
else
CJCJJCJ(CJJJCJC,0)=CLng(CCCJCJJ):if CJCJCCCJ<>"" then CJCJJCJ(CJJJCJC,1)=CLng(CJCJCCCJ)
if CJCJCCCC<>"" then CJCJJCJ(CJJJCJC,2)=CJCJCCCC
if CJCCCJJ<>"" then CJCJJCJ(CJJJCJC,3)=CJCCCJJ
if CJCCJJJJ<>"" then CJCJJCJ(CJJJCJC,4)=CLng(CJCCJJJJ)
end if
end if:if CJJJCJC>0 then
Application.Lock():Application(CJCJCCJ) = CJCJJCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJCJJJ):Call ConnClose:Response.Write CJCJCJJJ:Response.End:End Sub:Private Function CJJJJJCC():CJJJJJCC=CJJJCCCC+1:End Function:Private Function CJJJCCCC():dim CJCJJJC:set CJCJJJC=CJCCJC.execute(CJJCCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCJC & CJJCCCCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCCC=CJCJJJC(0):CJCJJJC.Close: Set CJCJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJCCC ="<span style='font-family:webdings;'>9</span>"
Const CCCCJJJ ="<span style='font-family:webdings;'>7</span>"
Const CCCCJJC ="<span style='font-family:webdings;'>3</span>"
Const CCCCJCJ ="<span style='font-family:webdings;'>4</span>"
Const CCCCJCC ="<span style='font-family:webdings;'>8</span>"
Const CCCCCJJ ="<span style='font-family:webdings;'>:</span>"
Const CCCCCJC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCCCCJ, CJCCCCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CJJCCCC, CCJJJCC, CCJJCJJ, CCJJCJC, CCJJCCJ:Private Function CJJCJJJJ():Dim CCJJCCC:CCJJCCC = "共<span style='color:#f00;'><b>" & CCJJJCJ & CJJCCCCC("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJJCJC & CJJCCCCC("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJJJJC & CJJCCCCC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCCCCC("k^3mk^DA2?m顰@")
CJJCJJJJ = CCJJCCC:End Function:Private Function CJJCJJJC():CJJCJJJC = CJJCCCCC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCJJJJC & CJJCCCCC("V ,DEJ=6lV") & CCCCCJC & CJJCCCCC("V ,D:K6lVaV ,E:E=6lV宕@顰@V ,@?>@FD6@G6ClV;2G2D4C:AEiE9:D]7@4FDWXjE9:D]D6=64EWXV ,@?z6Js@H?lQ;2G2D4C:AEi ,:7WH:?5@H]6G6?E]<6Jr@56 ,ll ,`bX ,=@42E:@?lV") & CJJCCCC & CJJCCCCC("VZE9:D]G2=F6Qm")
End Function:Private Function CJJCJJCJ():CJJCJJCJ = CJJCCCCC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCCJC & CJJCCCCC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJJCCCC & CJJCCCCC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJCJJCC():Dim CCJJCCC, CJJJCJC:CCJJCCC = CJJCCCCC(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJJCCCC & CJJCCCCC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJJJCJC = 1 To PageCount:CCJJCCC = CCJJCCC & CJJCCCCC("k@AE:@? ,G2=F6lV") & CJJJCJC & CJJCCCCC("V")
If CJJJCJC = CCJJJJC Then CCJJCCC = CCJJCCC & CJJCCCCC(" ,D6=64E65")
CCJJCCC = CCJJCCC & CJJCCCCC("m") & CJJJCJC & CJJCCCCC("k^@AE:@?m"):Next:CCJJCCC = CCJJCCC & CJJCCCCC("k^D6=64Em顰@"):CJJCJJCC = CCJJCCC:End Function:Public Sub ShowPage():Dim CJJJCJC, CCJCJJJ,CCJCJJC,CCJCJCJ:if CCJJJCJ>0 then
CCJCJJJ = CJJCCCCC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJCJJJJ & CJJCCCCC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CCJJCCJ:Case 1: CCJCJCJ = CJJCJCCJ:Case 2: CCJCJCJ = CJJCJCCC:Case 3: CCJCJCJ = CJJCCJJJ:Case 4: CCJCJCJ = CJJCCJJC:Case 5: CCJCJCJ = CJJCCJCJ:Case 6: CCJCJCJ = CJJCCJCC:Case 7: CCJCJCJ = CJJCCCJJ:Case 8: CCJCJCJ = CJJCCCJC:End Select
End If:CCJCJJC = CJJCCCCC("k^5:Gmk^5:Gm")
end if:if CCJJCCJ>=6 then
Response.Write CCJCJCJ
else
Response.Write CCJCJJJ & CCJCJCJ & CCJCJJC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCCCCC = Server.CreateObject(CJJCCCCC("ps~sq]#64@C5$6E")):CJCCCCC.PageSize = CCJJCJC:CJCCCCC.Open CCJJJJJ, CJCCCCJ, 1:If err then
Response.Write	CJJCCCCC("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:5E9ib__AIj ,7@?E\D:K6i`aAIVm敫@捩@庎@柠@话@凵@锔@，,") & err.description & CJJCCCCC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCCCCC.EOF Then
CCJJJCJ = CJCCCCC.RecordCount:PageCount = CJCCCCC.PageCount:If CCJJJJC > PageCount Then CCJJJJC = PageCount
CJCCCCC.AbsolutePage = CCJJJJC
End If:Set Rs = CJCCCCC:End Function:Public Property Let CJCCCJ(CJCCJJJC):Set CJCCCCJ = CJCCJJJC:End Property:Public Property Let SQL(str):CCJJJJJ = str:End Property:Public Property Let Style(CCJCCJC):If IsNumeric(CCJCCJC) Then
CCJJCCJ = CInt(CCJCCJC):If CCJJCCJ < 1 Or CCJJCCJ > 8 Then CCJJCCJ = 1
Else
CCJJCCJ = 1
End If:End Property:Public Property Let PageSize(CCJCCJC):If IsNumeric(CCJCCJC) Then
CCJJCJC = CInt(CCJCCJC):If CCJJCJC < 1 Then CCJJCJC = 10
Else
CCJJCJC = 10
End If:End Property:Public Property Get PageSize():If CCJJJJC = PageCount Then
PageSize = CCJJJCJ - CCJJCJC * (PageCount - 1)
Elseif CCJJJCJ=0 then
pagesize=0
else
PageSize = CCJJCJC
end if:End Property:Private Sub Class_Initialize():dim CCJCJCC:CCJJCJC = 10:CCJJCCJ = 1:Set CJCCCCJ = CJCCJC:CCJJJJC = Trim(Request.QueryString(CJJCCCCC("!286"))):If IsNumeric(CCJJJJC) Then
CCJJJJC = CLng(CCJJJJC):If CCJJJJC < 1 Then CCJJJJC = 1
Else
CCJJJJC = 1
End If:CCJJCJJ = Trim(Request.ServerVariables(CJJCCCCC("&#{"))):CCJJCJJ = Mid(CCJJCJJ, InStrRev(CCJJCJJ, CJJCCCCC("^")) + 1):CCJJJCC = Split(Trim(Request.ServerVariables(CJJCCCCC("""&t#*0$%#x}v"))), CJJCCCCC("U")):CJJCCCC = Server.HtmlEncode(CJCCJJCJ):CCJCJCC=lcase(CJJCCCC):if instr(CCJCJCC,CJJCCCCC("Tb4:7C2>6"))>0 or instr(CCJCJCC,CJJCCCCC("Tb4D4C:AE"))>0 or instr(CCJCJCC,CJJCCCCC("V"))>0 or instr(CCJCJCC,CJJCCCCC(";2G2D4C:AE"))>0 or instr(CCJCJCC,CJJCCCCC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCCCCC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
End Sub:Public Function ListNum(CCJCCJC):ListNum = CCJJCJC * (CCJJJJC - 1) + CCJCCJC:End Function:Private Function CJCCJJCJ():Dim CJJJCJC, str:For CJJJCJC = 0 To UBound(CCJJJCC):If InStr(LCase(CCJJJCC(CJJJCJC)), CJJCCCCC("A286l")) = 0 Then str = str & CJJCCCCC("U") & CCJJJCC(CJJJCJC)
Next:str = Mid(str, 2):If str = "" Then CJCCJJCJ = CCJJCJJ & CJJCCCCC("n") & CJJCCCCC("A286l") Else CJCCJJCJ = CCJJCJJ & CJJCCCCC("n") & str & CJJCCCCC("UA286l")
End Function:Private Function CJJCJCCJ():dim str:str = CJJCCCCC("轧@别@ ,笧@"):For CJJJCJC = 1 To PageCount:If CJJJCJC = CCJJJJC Then str = str & CJJCCCCC("k3m") & CJJJCJC & CJJCCCCC("k^3m ,") Else str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CJJJCJC & CJJCCCCC("Vm") & CJJJCJC & CJJCCCCC("k^2m ,")
Next:str = str & CJJCCCCC("顰@"):CJJCJCCJ = str:End Function:Private Function CJJCJCCC():Dim str:If CCJJJJC > 1 Then
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CJJCCCCC("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCC & CJJCCCCC("k^2m ,")
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC - 1 & CJJCCCCC("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJC & CJJCCCCC("k^2m ,")
Else
str = str & CCCJCCC & CJJCCCCC(" ,") & CCCCJJC
End If:If CCJJJJC < PageCount Then
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC + 1 & CJJCCCCC("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJCJ & CJJCCCCC("k^2m ,")
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & PageCount & CJJCCCCC("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCCJJ & CJJCCCCC("k^2m ,")
Else
str = str & CCCCJCJ & CJJCCCCC(" ,") & CCCCCJJ
End If:str = str & CJJCJJJC:str = str & CJJCJJCJ:CJJCJCCC = str:End Function:Private Function CJJCCJJJ():Dim str, CJJCJJJ:CJJCJJJ = (CCJJJJC - 1) \ 10:If CCJJJJC = 1 Then str = str & CCCJCCC & CJJCCCCC(" ,") Else str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CJJCCCCC("`V ,E:E=6lV馑@顰@Vm") & CCCJCCC & CJJCCCCC("k^2m ,")
If CJJCJJJ * 10 > 0 Then str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC - 10 & CJJCCCCC("V ,E:E=6lV丅@匼@顰@Vm") & CCCCJJJ & CJJCCCCC("k^2m ,")
For CJJJCJC = (CJJCJJJ * 10 + 1) To (CJJCJJJ * 10 + 10):If CJJJCJC = CCJJJJC Then str = str & CJJCCCCC("k3m") & CJJJCJC & CJJCCCCC("k^3m ,") Else str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CJJJCJC & CJJCCCCC("V ,E:E=6lV轧@别@笧@") & CJJJCJC & CJJCCCCC("顰@Vm") & CJJJCJC & CJJCCCCC("k^2m ,")
If CJJJCJC = PageCount Then Exit For
Next:If CJJJCJC < PageCount Then str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CJJJCJC & CJJCCCCC("V ,E:E=6lV丆@匼@顰@Vm") & CCCCJCC & CJJCCCCC("k^2m ,")
If CCJJJJC = PageCount Then str = str & CCCCCJJ Else str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & PageCount & CJJCCCCC("V ,E:E=6lV朦@顰@Vm") & CCCCCJJ & CJJCCCCC("k^2m")
CJJCCJJJ = str:End Function:Private Function CJJCCJJC():Dim str, CJJCCJC, CCJCCJJ, CJJJCJC:If CCJJJJC > 4 Then str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CJJCCCCC("`Vm,`.k^2m ,]]]")
If CCJJJJC < PageCount - 3 Then CCJCCJJ = CCJJJJC + 3 Else CCJCCJJ = PageCount
For CJJJCJC = CCJJJJC - 3 To CCJCCJJ:If CJJJCJC >= 1 Then
If CJJJCJC = CCJJJJC Then str = str & CJJCCCCC(" ,k3m,") & CJJJCJC & CJJCCCCC(".k^3m") Else str = str & CJJCCCCC(" ,k2 ,9C67lV") & CJJCCCC & CJJJCJC & CJJCCCCC("Vm,") & CJJJCJC & CJJCCCCC(".k^2m")
End If:Next:If CCJJJJC < PageCount - 3 Then str = str & CJJCCCCC(" ,]]] ,k2 ,9C67lV") & CJJCCCC & PageCount & CJJCCCCC("Vm,") & PageCount & CJJCCCCC(".k^2m")
CJJCCJJC = str:End Function:Private Function CJJCCJCJ():Dim str:If CCJJJJC > 1 Then
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CJJCCCCC("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,")
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC - 1 & CJJCCCCC("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,")
Else
str = str & CJJCCCCC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m")
End If:If CCJJJJC < PageCount Then
str = str & CJJCCCCC(" ,k2 ,9C67lV") & CJJCCCC & CCJJJJC + 1 & CJJCCCCC("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,")
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & PageCount & CJJCCCCC("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,")
Else
str = str & CJJCCCCC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m")
End If:str = str & CJJCJJCC:CJJCCJCJ = str:End Function:Private Function CJJCCJCC():Dim str:if CCJJJJC>=2 then
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC - 1 & CJJCCCCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC - 1 & CJJCCCCC("V ,52E2\C@=6lV3FEE@?Vm") & CCJJJJC-1 & CJJCCCCC("k^2m")
end if:str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC & CJJCCCCC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCJJJJC & CJJCCCCC("k^2m")
if pagecount>CCJJJJC then
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC + 1 & CJJCCCCC("V ,52E2\C@=6lV3FEE@?Vm") & CCJJJJC+1 & CJJCCCCC("k^2m")
str = str & CJJCCCCC("k2 ,9C67lV") & CJJCCCC & CCJJJJC + 1 & CJJCCCCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJCCJCC=str:End Function:Private Function CJJCCCJJ():Dim str:str=CJJCCCCC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CCJJJJC>=2 then
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJJCCCC & CCJJJJC - 1 & CJJCCCCC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJJCCCC & CCJJJJC - 1 & CJJCCCCC("Vm") & CCJJJJC-1 & CJJCCCCC("k^2mk^=:m")
end if:str = str & CJJCCCCC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJJCCCC & CCJJJJC & CJJCCCCC("Vm") & CCJJJJC & CJJCCCCC("k^2mk^=:m")
if pagecount>CCJJJJC then
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJJCCCC & CCJJJJC + 1 & CJJCCCCC("Vm") & CCJJJJC+1 & CJJCCCCC("k^2mk^=:m")
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJJCCCC & CCJJJJC + 1 & CJJCCCCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCCCC("k^F=m"):CJJCCCJJ=str:End Function:Private Function CJJCCCJC():Dim str:str=CJJCCCCC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CCJJJJC>=2 then
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJJCCCC & CCJJJJC - 1 & CJJCCCCC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJJCCCC & CCJJJJC - 1 & CJJCCCCC("Vm") & CCJJJJC-1 & CJJCCCCC("k^2mk^=:m")
end if:str = str & CJJCCCCC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJJCCCC & CCJJJJC & CJJCCCCC("Vm") & CCJJJJC & CJJCCCCC("k^2mk^=:m")
if pagecount>CCJJJJC then
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJJCCCC & CCJJJJC + 1 & CJJCCCCC("Vm") & CCJJJJC+1 & CJJCCCCC("k^2mk^=:m")
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJJCCCC & CCJJJJC + 1 & CJJCCCCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCCCC("k^F=m"):CJJCCCJC=str:End Function:End Class::Call CheckRight(5):::Call CheckRight(50):Call WriteCurrentURL:dim CJJJCJC,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CJJCJJJ,CCCJJJC,CCCJJCJ:CCJCCJC=CCCCCCC(Request.QueryString(CJJCCCCC("}F>"))):CCJCCCJ=CCCCCCC(Request.QueryString(CJJCCCCC("}:4<"))):CCJCCCC=Request.QueryString(CJJCCCCC("s6AE")):CCCJJJJ=Request.QueryString(CJJCCCCC("!@DE")):CJJCJJJ=Request.QueryString(CJJCCCCC("!")):CCCJJJC=Request.QueryString(CJJCCCCC("$")):CCCJJCJ=Request.QueryString(CJJCCCCC("$6I")):dim CJCJJCJ:set CJCJJCJ=new jtree:CJCJJCJ.table=CJJCCCCC(">6>36C0EJA6"):if not CJJJJJCJ(CCJCCCC) then CCJCCCC=CCJCJC
if not CJCJJCJ.IsParent(CCJCJC,CCJCCCC) then Call RedirectMessage(CJJCCCCC("徾@琁@箜@琁@糶@绚@M寴@丈@赲@，,患@沜@朄@迖@兠@诠@尽@欜@癿@朾@陋@！,"))
Response.Write(vbCrLf):Response.Write(CJJCCCCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCCCCC("k9E>=m") & vbCrLf):Response.Write(CJJCCCCC("k9625m") & vbCrLf):Response.Write(CJJCCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJCCCCC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJJCCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^62DJF:^E96>6D^5672F=E^62DJF:]4DDQm") & vbCrLf):Response.Write(CJJCCCCC("k^9625m") & vbCrLf):Response.Write(CJJCCCCC("k3@5Jm") & vbCrLf):Response.Write(CJJCCCCC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m·,産@戲@·,k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm卐@佈@k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mk:?AFE ,?2>6lQs6AEQ ,:5lQs6AEQ ,G2=F6lQ")):Response.Write  CCJCCCC:Response.Write(CJJCCCCC("Q ,DEJ=6lQH:5E9ia__AIjQmk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm缑@史@k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CCJCCJC:Response.Write(CJJCCCCC("Q ,2FE@7@4FD ,^mk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm姎@合@k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CCJCCCJ:Response.Write(CJJCCCCC("Q ,^mk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm怢@刦@k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mkD6=64E ,?2>6lQ$6IQ ,:5lQ$6IQm") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCJJCJ=CJJCCCCC("%CF6"),CJJCCCCC("D6=64E65"),""):Response.Write(CJJCCCCC("m甲@k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CCCJJCJ=CJJCCCCC("u2=D6"),CJJCCCCC("D6=64E65"),""):Response.Write(CJJCCCCC("m奮@k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm掍@床@k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mkD6=64E ,?2>6lQ$Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQEJA60D@CEQ ,")):Response.Write  IIf(CCCJJJC=CJJCCCCC("EJA60D@CE"),CJJCCCCC("D6=64E65"),""):Response.Write(CJJCCCCC("m卐@佈@k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQ3:CE952J ,56D4Q ,")):Response.Write  IIf(CCCJJJC=CJJCCCCC("3:CE952J ,56D4"),CJJCCCCC("D6=64E65"),""):Response.Write(CJJCCCCC("m幯@齿@k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQ=2DEE:>6 ,56D4Q ,")):Response.Write  IIf(CCCJJJC=CJJCCCCC("=2DEE:>6 ,56D4"),CJJCCCCC("D6=64E65"),""):Response.Write(CJJCCCCC("m癶@彐@旱@闯@k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQ=@8E:>6D ,56D4Q ,")):Response.Write  IIf(CCCJJJC=CJJCCCCC("=@8E:>6D ,56D4"),CJJCCCCC("D6=64E65"),""):Response.Write(CJJCCCCC("m癶@彐@欜@敫@k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm毊@顰@k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mkD6=64E ,?2>6lQ!Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQQm—,—,—,—,k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,")):for CJJJCJC=10 to 100 step 10:response.write CJJCCCCC("k@AE:@? ,G2=F6lV") & CJJJCJC & CJJCCCCC("V") & IIf(CJJCJJJ=cstr(CJJJCJC),CJJCCCCC(" ,D6=64E65"),"") & CJJCCCCC("m") & CJJJCJC & CJJCCCCC("杜@k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJJCCCCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCCC(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ柠@ ,话@Q ,^m") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Q ,E:E=6lQ釈@罩@戻@朄@杜@仱@Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,^m") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Q ,^m") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>EJA6Q ,G2=F6lQ")):Response.Write  CCJCJC:Response.Write(CJJCCCCC("Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCCC("k^7@C>m") & vbCrLf):Response.Write(CJJCCCCC("k3Cm") & vbCrLf):Response.Write(CJJCCCCC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m床@k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m缑@史@k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m幯@齿@k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m卐@佈@k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m癶@彐@欜@敫@^x!^旱@闯@k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,")):if CCCJJJJ="1" then
sql=CJJCCCCC("H96C6 ,") & CJCJJCJ.Sql_GetChildren(CCJCCCC) & CJJCCCCC(" ,2?5 ,W:DD49@@=25>:?l_ ,@C ,:DD49@@=25>:? ,:D ,?F==X ,2?5 ,W:D!2C6?El_ ,@C ,:D!2C6?E ,:D ,?F==X"):if CCJCCJC<>"" then sql=sql & CJJCCCCC(" ,2?5 ,?F>36ClV") & CCJCCJC & CJJCCCCC("V")
if CCJCCCJ<>"" then sql=sql & CJJCCCCC(" ,2?5 ,C62=?2>6lV") & CCJCCCJ & CJJCCCCC("V")
if CJJJJJCJ(CCCJJCJ) then sql=sql & CJJCCCCC(" ,2?5 ,D6Il") & CCCJJCJ
if CCCJJJC="" then sql=sql & CJJCCCCC(" ,@C56C ,3J ,:5") else sql=sql & CJJCCCCC(" ,@C56C ,3J ,") & CCCJJJC
Session(CJJCCCCC("!$*0$B="))=sql:sql=CJJCCCCC("D6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[286[EJA6[=2DEE:>6[=2DE:A[=@8E:>6D[EJA6?2>6 ,7C@> ,G0>6>36C ,") & sql:dim CCCJJCC:set CCCJJCC=new splitpage:with CCCJJCC:.sql=sql:.pagesize=IIf(CJJJJJCJ(CJJCJJJ),CJJCJJJ,20):.style=5:end with:set rs=CCCJJCC.rs:dim CCCJCJJ:for CJJJCJC=1 to CCCJJCC.pagesize:CCCJCJJ=rs(0):Response.Write(vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJJCC.listnum(CJJJCJC):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5m")):Response.Write  rs(1):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,d__[a__.Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write  CCCJCJJ:Response.Write(CJJCCCCC("Q ,E:E=6lQ柠@眆@Qm")):Response.Write  rs(2):Response.Write(CJJCCCCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(3):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(4):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5m")):Response.Write  rs(9):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ7E`_Qm")):Response.Write  rs(8) & CJJCCCCC("^") & CJJJCJJJ(rs(7)) & CJJCCCCC("^") & rs(6):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Call ShowSelect(CCCJCJJ,rs(1)):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4@=DA2?lQhQ ,4=2DDlQE5`Qm")):Call CCCJJCC.showpage:set CCCJJCC=nothing:Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,?2>6lQ24EQ ,EJA6lQ9:556?Q ,:5lQ24EQ ,^m") & vbCrLf):Response.Write(CJJCCCCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCCCCC("k^7@C>m") & vbCrLf)::sub ShowSelect(CCCJCJJ,CCJCCJC):dim str:str=CJJCCCCC("kD6=64E ,@?492?86lQ;2G2D4C:AEi:7WE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6PlVVX ,=@42E:@?lE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Qm")  & CJJCCCCC("k@AE:@? ,G2=F6lVVm诲@逄@拤@：,k^@AE:@?m")  & CJJCCCCC("k@AE:@? ,G2=F6lVVm—,—,—,—,k^@AE:@?m")  & CJJCCCCC("k@AE:@? ,G2=F6lVE6DEC6DF=E]2DAn}F>l") & CCJCCJC & CJJCCCCC("UA@DEl`Vm浆@访@讫@彐@k^@AE:@?m")  & CJJCCCCC("k@AE:@? ,G2=F6lVK:IF?]2DAnxsl") & CCCJCJJ & CJJCCCCC("UA@DEl`Vm徾@琁@咣@话@k^@AE:@?m")  & CJJCCCCC("k@AE:@? ,G2=F6lVC6>2C<]2DAn}F>l") & CCJCCJC & CJJCCCCC("UA@DEl`Vm産@戲@访@诨@k^@AE:@?m")  & CJJCCCCC("k^D6=64Em")
response.write str:end sub:Response.Write(vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^;BF6CJ]62DJF:]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^=@42=6^62DJF:\=2?8\K90r}];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]KII3@I];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJCCCCC(" ,SWQRs6AEQX") & vbCrLf):Response.Write(CJJCCCCC(" ,]4@>3@EC66WL") & vbCrLf):Response.Write(CJJCCCCC(" ,FC=iV^2A:^:?56I]2DAn24E:@?lv6E|6>36C%JA6r9:=5qJ!2CxsUAlVZSWQR>6>EJA6QX]G2=WX[") & vbCrLf):Response.Write(CJJCCCCC(" ,>6E9@5iV86EV[") & vbCrLf):Response.Write(CJJCCCCC(" ,2?:>2E6iECF6[") & vbCrLf):Response.Write(CJJCCCCC(" ,=:?6DiECF6[") & vbCrLf):Response.Write(CJJCCCCC(" ,@?{@25$F446DDi7F?4E:@?WXLSWQRs6AEQX]4@>3@EC66WVD6E'2=F6V[SWQRs6AEQX]G2=WXXjN") & vbCrLf):Response.Write(CJJCCCCC(" ,NXj") & vbCrLf):Response.Write(CJJCCCCC("NXj") & vbCrLf):Response.Write(CJJCCCCC("7F?4E:@? ,@A6?%C2?D(:?WXL") & vbCrLf):Response.Write(CJJCCCCC(" ,@A6?WQ23@FEi3=2?<Q[Q%C2?DQ[QH:5E9lc__[96:89El`b_QXj") & vbCrLf):Response.Write(CJJCCCCC(" ,H:E9W7@C>aXL") & vbCrLf):Response.Write(CJJCCCCC(" ,24E:@?lVDEF56?E0EC2?D]2DAVj") & vbCrLf):Response.Write(CJJCCCCC(" ,E2C86ElQ%C2?DQj") & vbCrLf):Response.Write(CJJCCCCC(" ,DF3>:EWXj") & vbCrLf):Response.Write(CJJCCCCC(" ,N") & vbCrLf):Response.Write(CJJCCCCC("N") & vbCrLf):Response.Write(CJJCCCCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJCJ=nothing:set CJJJJCJJ=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:rs.Close:Set rs=Nothing:CJCCJC.Close:Set CJCCJC = Nothing:err.Clear:On Error Goto 0
Function CJJCCCCC(ByVal CJJCCCCJ)
Dim CCCJCJC, CJJJCJC, CJJCCJC
CJJCCCCJ = Replace(CJJCCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJC = 1 To Len(CJJCCCCJ)
If CJJJCJC <> CJJCCJC Then
CCCJCJC = AscW(Mid(CJJCCCCJ, CJJJCJC, 1))
If CCCJCJC >= 33 And CCCJCJC <= 79 Then
CJJCCCCC = CJJCCCCC & Chr(CCCJCJC + 47)
ElseIf CCCJCJC >= 80 And CCCJCJC <= 126 Then
CJJCCCCC = CJJCCCCC & Chr(CCCJCJC - 47)
Else
CJJCCJC = CJJJCJC + 1
If Mid(CJJCCCCJ, CJJCCJC, 1) = Chr(64) Then CJJCCCCC = CJJCCCCC & ChrW(CCCJCJC + 5) Else CJJCCCCC = CJJCCCCC & Mid(CJJCCCCJ, CJJJCJC, 1)
End If
End If
Next
End Function
%>