<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJ, CCCCC,rs, CJJJJC, sql:Set CCCCJ = server.CreateObject(CJJJCCCJ("ps~sq]r@??64E:@?")):CCCCJ.open Application(CJJJCCCJ("r@??64E:@?$EC:?8")):Set CCCCC=CCCCJ::Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC:CCJCJC=Trim(Request.Cookies(CJJJCCCJ("!$*|t|qt#"))):if CCJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCC>0 then
sql=CJJJCCCJ("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") & CJJCJJ & CJJJCCCJ("V ,2?5 ,:5l") & CJJJCC
set rs=CCCCJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJCJC=rs(2) & "":CJJCCJ=rs(3):CJJCCC=rs(5):CJCJJJ=rs(6):CJCJJC=rs(9):CJCJCJ=rs(15):CJCCJJ=rs(0):CCJJCC=rs(1):CCJJCJ=rs(11) & "":CJCCJC=rs(10) & "":CJCJCC=rs(12):CJCCCJ=rs(14):CJCCCC=rs(13):CCJJJJ=rs(7) & "":CCJJJC=rs(4):CCJCJJ=rs(8):if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJCJJC) or CJCJJC=0 then CJCJJC=CJJCCJ
if isnull(CCJJJC) then CCJJJC=0
if isnull(CJJCCC) then CJJCCC=0
if instr(CJJJCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJ)>0 then Call RedirectMessage(CJJJCCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJCC,CJJCJJ)
End IF
end if:Sub CheckRight(CJJJCCCC):dim CCJCCJ,CCJCCC:if CJJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCCCC(CJJJCCCC) then
Call RedirectMessage(CJJJCCCJ("朾@陋@W") & CJJJCCCC & CJJJCCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCCCC(CJJJCCCC):dim CCJCCJ,CCJCCC:CCJCCC=split(CJJJCCCC,CJJJCCCJ("[")):CCJCCCC=False:for CCJCCJ=0 to ubound(CCJCCC):If Mid(CJJCJC,CCJCCC(CCJCCJ),1)="1" then
CCJCCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJCCCJ("!$*|t|qt#"))="":CJJJCC=0:CJCJJJ=0:CJJCJJ=Empty:CJJCCC=0:CJCJCJ=0:CJCJJC=0:CJJCCJ=0:CJCCJJ=False:CCJJCC=False:CCJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJJJ,CCCJJC,CCJCCJ,CCCJCJ,CCCJCC:CCCJJJ=split(CCJCJC,CJJJCCCJ("]")):if ubound(CCCJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJJJ(0)) or len(CCCJJJ(1))<>32 or len(CCCJJJ(2))<>32 then
Call ClearMemberCookie
else
CCCJJC=CCCJJJ(1):for CCJCCJ=1 to len(CCCJJC):CCCJCJ=mid(CCCJJC,CCJCCJ,1):if isnumeric(CCCJCJ) then CCCJCC=CCCJCC & CCCJCJ
if len(CCCJCC)=7 then exit for
next:CCCJJC=CCCJJJ(2):if CCCJCC<>mid(CCCJJC,6,7) then
Call ClearMemberCookie
else
CCCJCJ=mid(CCCJJC,18,10)/2:if CCCJCJ<DateDiff(CJJJCCCJ("D"), CJJJCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCC=Clng(CCCJJJ(0)):CJJCJJ=CCCJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJCJC,CJJCJJJJ):dim CCJCCJ,CCCJCJ,CCCJCC:for CCJCCJ=1 to len(CJJCJJJJ):CCCJCJ=mid(CJJCJJJJ,CCJCCJ,1):if isnumeric(CCCJCJ) then CCCJCC=CCCJCC & CCCJCJ
if len(CCCJCC)=7 then exit for
next:CCCJCC=CCJJCJC & CJJJCCCJ("]") & CJJCJJJJ & CJJJCCCJ("]") & Fix(10000*(Rnd+1)) & CCCJCC & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCCJ("D"), CJJJCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCCJ("!$*|t|qt#"))=CCCJCC:End Sub::Function CCCJJJJ(CJJCJJJC):Dim str,CCCCJC:str = Trim(CJJCJJJC):If IsNull(str) Or str = "" Then
CCCJJJJ = ""
else
str=Replace(str, CJJJCCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJCCCJ("k:7C2>6"), CJJJCCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJCCCJ("kD4C:AE"), CJJJCCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCCJC=new RegExp:CCCCJC.Pattern=CJJJCCCJ("@?W,2\K.ZXl"):CCCCJC.IgnoreCase = True:CCCCJC.Global=True:str=CCCCJC.Replace(str,CJJJCCCJ("@?S`U6BF2=Dj")):set CCCCJC=nothing:CCCJJJJ=str
End If:End Function:Function IIf(CJJCJJCJ, CJJCJJCC, CJJCJCJJ):if isnull(CJJCJJCJ) or isempty(CJJCJJCJ) then
IIf = CJJCJCJJ
elseif CJJCJJCJ Then
IIf = CJJCJJCC
Else
IIf = CJJCJCJJ
end if:End Function:Const CCJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJCCCJ("FE7\g"):dim CCJCCJ,CCCJCJ,CCCCCJ:if isarray(str) then
on error resume next:CCJCCJ=ubound(str,2):CCCCCJ=err.number:err.clear:on error goto 0:if CCCCCJ<>0 then
for CCJCCJ=0 to ubound(str):if CCJCCJ>0 then response.Write CJJJCCCJ("k3C ,^m")
response.Write CCJCCJ & CJJJCCCJ("i ,") & str(CCJCCJ):next
else
response.Write CJJJCCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCCJ=0 to ubound(str,2):response.Write CJJJCCCJ("kE9 ,2=:8?lV=67EVm") & CCJCCJ & CJJJCCCJ("k^E9m")
next:response.Write CJJJCCCJ("k^ECm"):for CCJCCJ=0 to ubound(str):response.Write CJJJCCCJ("kECmkE9m") & CCJCCJ & CJJJCCCJ("k^E9m"):for CCCJCJ=0 to ubound(str,2):response.Write CJJJCCCJ("kE5m") & str(CCJCCJ,CCCJCJ) & CJJJCCCJ("k^E5m"):next:response.Write CJJJCCCJ("k^ECm"):next:response.Write CJJJCCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCJJCJ():Dim CCCCCC, CJJJJJJ:CJJJJJJ = Request.ServerVariables(CJJJCCCJ("!p%w0x}u~")):CCCCCC = Request.ServerVariables(CJJJCCCJ("""&t#*0$%#x}v")):If CCCCCC <> Empty Then
if instr(lcase(CCCCCC),CJJJCCCJ("Tb4:7C2>6"))>0 or instr(lcase(CCCCCC),CJJJCCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJCCCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CJJJJJJ = CJJJJJJ & CJJJCCCJ("n") & CCCCCC
end if:CCCJJCJ = CJJJJJJ:End Function:Sub SetHttpOnlyCookie(CJJCJCJC,CJJCJCCJ):dim CCCJJJ:CCCJJJ=CJJCJCJC & CJJJCCCJ("l") & CJJCJCCJ & CJJJCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCCJ("$6E\r@@<:6"),CCCJJJ):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJJCCCJ("!$*"))(CJJJCCCJ("&#{")) = CCCJJCJ:End Sub:::::sub ShowMessage(CJJCJCCC):response.Charset="utf-8":Response.Write CJJJCCCJ("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") & CJJCJCCC & CJJJCCCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCJJCC(CCCCCJ):if isnull(CCCCCJ) or trim(CCCCCJ)="" or not isnumeric(CCCCCJ) then
CCCJJCC=false
else
Dim CCCCJC:Set CCCCJC = New RegExp:CCCCJC.Pattern = CJJJCCCJ("/-5ZS"):CCCCJC.IgnoreCase = True:CCCJJCC = CCCCJC.test(CCCCCJ):set CCCCJC=nothing
end if:End Function:Function CCCJCJJ(CJJCCJJJ):dim CJJJJJC,CJJJJCJ:CJJJJJC=CJJJCCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJJJ & CJJJCCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJCJ=CCCCJ.execute(CJJJJJC):CCCJCJJ = CJJJJCJ(0):if isnull(CCCJCJJ) then CCCJCJJ=1
CJJJJCJ.close : set CJJJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJJCC=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:CJJJJCJ.close : set CJJJJCJ=nothing:CJJJJC.Close : Set CJJJJC=Nothing:rs.Close : Set rs=Nothing:CCCCJJJ.Close : Set CCCCJJJ = Nothing:CCCCJ.Close : Set CCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCCJ("!$*0|6DD286"),server.URLEncode(CJJCJCCC)):Response.Redirect CJJJCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJCCJJC):Application.Contents.Remove CJJCCJJC
End Sub::Class jTree:Private Sql, CJJJJCC, CJJJCJJ, CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Private Sub Class_Initialize():CJJJCJJ = 0:CJJJCJC = 0:CJJCJJC=10:End Sub:Public Property Let Table(CJJCCJCJ):if CJJCCJCJ="" then Call RedirectMessage(CJJJCCCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJJCCJ=CJJCCJCJ:CJJJCCC=CJJJCCCJ("!$*0") & UCase(CJJJCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJCCJ:End Property:::Private Sub GetTreeArray():Dim CCJCCJ, CCCJCJ, CJJCJCJ,RecordCount:CJJJJCC = Application(CJJJCCC):If Not IsArray(CJJJJCC) Then
Sql = CJJJCCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJCCJ:if CJJCJJJ<>"" then Sql=Sql & CJJJCCCJ(" ,H96C6 ,") & CJJCJJJ
set CJJCJCJ=CCCCJ.execute(sql):RecordCount=CJJCJCJ(0):if RecordCount=0 then Call RedirectMessage(CJJJCCCJ("柠@话@W") & CJJJCCJ & CJJJCCCJ("^") & CJJCJJJ & CJJJCCCJ("X沜@朄@绎@林@敫@捩@"))
CJJJCJC=RecordCount+CJJCJJC:ReDim CJJJJCC(CJJJCJC, 4):Sql = CJJJCCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJ & CJJJCCCJ(" ,H:E9 ,W?@=@4<X"):if CJJCJJJ<>"" then Sql=Sql & CJJJCCCJ(" ,H96C6 ,") & CJJCJJJ
Sql=Sql & CJJJCCCJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCJCJ=CCCCJ.execute(sql):For CCJCCJ = 1 To RecordCount:For CCCJCJ = 0 To 4:CJJJJCC(CCJCCJ, CCCJCJ) = CJJCJCJ(CCCJCJ):if IsNull(CJJJJCC(CCJCCJ,4)) then CJJJJCC(CCJCCJ,4)=0
If CJJJJCC(CCJCCJ,2)="" then CJJJJCC(CCJCCJ,2)=CJJJCCCJ(",穵@.")
Next:CJJCJCJ.MoveNext:Next:CJJCJCJ.Close: Set CJJCJCJ = Nothing:for CCJCCJ=CJJJCJC-(CJJCJJC-1) to CJJJCJC:CJJJJCC(CCJCCJ,0)=CCJCCJ:next:Application.Lock():Application(CJJJCCC) = CJJJJCC:Application.UnLock()
else
CJJJCJC=Ubound(CJJJJCC)
End If:End Sub:::::Private Function CCCCJCJ(CCJJCJC):dim CCJCCJ,CJJCCJJ:CCCCJCJ=0:CJJCCJJ=CStr(CCJJCJC):if CJJCCJJ<>"0" then
for CCJCCJ=1 to CJJJCJC:If CStr(CJJJJCC(CCJCCJ, 0))=CJJCCJJ Then
CCCCJCJ = CCJCCJ:Exit For
End If:Next
end if:End Function:Public Function CCCCJCC(CCJJCJC):if Cstr(CCJJCJC)="0" then
CCCCJCC=CJJJCCCJ("栴@")
else
Dim CCJCCJ,CJJCJCJ:CCJCCJ=CCCCJCJ(CCJJCJC):if CCJCCJ>0 then
CCCCJCC=CJJJJCC(CCJCCJ,2):if CCCCJCC="" then
set CJJCJCJ=CCCCJ.execute(CJJJCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJ & CJJJCCCJ(" ,H96C6 ,:5l") & CCJJCJC):if CJJCJCJ.eof then Call RedirectMessage(CJJJCCCJ("xs（,") & CCJJCJC & CJJJCCCJ("）,朥@批@别@"))
CCCCJCC=CJJCJCJ(1):Call UpdateCache(CCJJCJC,CJJCJCJ(0),CCCCJCC,CJJCJCJ(2),CJJCJCJ(3)):CJJCJCJ.Close: Set CJJCJCJ = Nothing
end if
else
set CJJCJCJ=CCCCJ.execute(CJJJCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJ & CJJJCCCJ(" ,H96C6 ,:5l") & CCJJCJC):if CJJCJCJ.eof then Call RedirectMessage(CJJJCCCJ("xs（,") & CCJJCJC & CJJJCCCJ("）,朥@批@别@"))
CCCCJCC=CJJCJCJ(1):Call UpdateCache(CCJJCJC,CJJCJCJ(0),CCCCJCC,CJJCJCJ(2),CJJCJCJ(3)):CJJCJCJ.Close: Set CJJCJCJ = Nothing
end if
end if:End Function:::Public Function CCCCCJJ(CCJJCJC):Dim CCJCCJ,CJJCCJC:CCJCCJ=CCCCJCJ(CCJJCJC):if CCJCCJ=0 then
CJJCCJC=CCCCCJC(CCJJCJC)
else
CJJCCJC=CJJJJCC(CCJCCJ,3):if isnull(CJJCCJC) or CJJCCJC="" then
CJJCCJC=CCCCCJC(CCJJCJC)
elseif Mid(CJJCCJC,instrrev(CJJCCJC,CJJJCCCJ("["))+1)<>CStr(CCJJCJC) then
CJJCCJC=CCCCCJC(CCJJCJC)
elseif Left(CJJCCJC,1)=CJJJCCCJ("[") then
CJJCCJC=CCCCCJC(CCJJCJC)
end if
end if:CCCCCJJ=CJJCCJC:End Function:Private Function CCCCCJC(CCJJCJC):dim CJJCCJJ:CJJCCJJ=CStr(CCJJCJC):if CJJCCJJ="0" then
CCCCCJC=""
else
dim CJJCJCJ:set CJJCJCJ=CCCCJ.execute(CJJJCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJ & CJJJCCCJ(" ,H96C6 ,:5l") & CCJJCJC):if CJJCJCJ.eof then
Call UpdateCache(CCJJCJC,"","","",""):Call RedirectMessage(CJJJCCCJ("顴@盩@（,xs：,") & CCJJCJC & CJJJCCCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJCJCJ(0)=0 then
CCCCCJC="0," & CCJJCJC
else
CCCCCJC=CCCCCJJ(CJJCJCJ(0)) & CJJJCCCJ("[") & CCJJCJC
end if:if CJJCJCJ(2)<>CCCCCJC then
CCCCJ.execute CJJJCCCJ("FA52E6 ,") & CJJJCCJ & CJJJCCCJ(" ,D6E ,A2E9lV") & CCCCCJC & CJJJCCCJ("V ,H96C6 ,:5l") & CCJJCJC
else
CCCCCJC=CJJCJCJ(2)
end if
end if:Call UpdateCache(CCJJCJC,CJJCJCJ(0),CJJCJCJ(1),CCCCCJC,CJJCJCJ(3)):CJJCJCJ.Close: Set CJJCJCJ = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CCJJCJC,ByVal CJJCCJCC):Dim Str, CCJCCJ:CCJJCJC=CLng(CCJJCJC):if isnumeric(CJJCCJCC) then CJJCCJCC=CLng(CJJCCJCC) else CJJCCJCC=0
if CCJJCJC>0 then str=CJJJCCCJ("k@AE:@? ,G2=F6lV") & CCJJCJC & CJJJCCCJ("V ,52E2\A:5lV_Vm") & CCCCJCC(CCJJCJC) & CJJJCCCJ("k^@AE:@?m")
For CCJCCJ = 1 To CJJJCJC:If CCJJCJC=0 or (CCJJCJC>0 and InStr(CJJJJCC(CCJCCJ, 3), CJJJCCCJ("[") & CCJJCJC & CJJJCCCJ("[")) > 0) Then
str=str & CJJJCCCJ("k@AE:@?"):if CJJJJCC(CCJCCJ,0)=CJJCCJCC then str=str & CJJJCCCJ(" ,D6=64E65")
str=str & CJJJCCCJ(" ,G2=F6lV") & CJJJJCC(CCJCCJ,0) & CJJJCCCJ("V ,52E2\A:5lV") & CJJJJCC(CCJCCJ,1) & CJJJCCCJ("Vm") & CJJJJCC(CCJCCJ,2) & CJJJCCCJ("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CCJJCJC):dim CJJCCJC:CJJCCJC=CCCCCJJ(CCJJCJC):Sql_GetChildren = CJJJCCJ & CJJJCCCJ("0A2E9ZV[V ,=:<6 ,V") & CJJCCJC & CJJJCCCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJCCC
End Sub:Public Sub UpdateCache(CCJJCJC,CJJCCCJJ,CJJCCCJC,CJJCCJC,CJJCCCCJ):dim CCJCCJ,CCCJCJ:CCJJCJC=CLng(CCJJCJC):CCJCCJ=CCCCJCJ(CCJJCJC):if CJJCCCJJ="" and CJJCCCJC="" and CJJCCJC="" and CJJCCCCJ="" then
if CCJCCJ>0 then
for CCCJCJ=1 to 4:CJJJJCC(CCJCCJ,CCCJCJ)=Null:next
end if
else
if CCJCCJ=0 then
for CCCJCJ=1 to CJJJCJC:if CJJJJCC(CCCJCJ,1) & ""="" then
CCJCCJ=CCCJCJ:exit for
end if:next
end if:if CCJCCJ=0 then
Call ClearCache
else
CJJJJCC(CCJCCJ,0)=CLng(CCJJCJC):if CJJCCCJJ<>"" then CJJJJCC(CCJCCJ,1)=CLng(CJJCCCJJ)
if CJJCCCJC<>"" then CJJJJCC(CCJCCJ,2)=CJJCCCJC
if CJJCCJC<>"" then CJJJJCC(CCJCCJ,3)=CJJCCJC
if CJJCCCCJ<>"" then CJJJJCC(CCJCCJ,4)=CLng(CJJCCCCJ)
end if
end if:if CCJCCJ>0 then
Application.Lock():Application(CJJJCCC) = CJJJJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCCC):Call ConnClose:Response.Write CJJCJCCC:Response.End:End Sub:Private Function CCCJCJJ():CCCJCJJ=CCCCCCC+1:End Function:Private Function CCCCCCC():dim CJJJJCJ:set CJJJJCJ=CCCCJ.execute(CJJJCCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJCCJ & CJJJCCCJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCCCC=CJJJJCJ(0):CJJJJCJ.Close: Set CJJJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCJCJJJ ="<span style='font-family:webdings;'>9</span>"
Const CCJCJJC ="<span style='font-family:webdings;'>7</span>"
Const CCJCJCJ ="<span style='font-family:webdings;'>3</span>"
Const CCJCJCC ="<span style='font-family:webdings;'>4</span>"
Const CCJCCJJ ="<span style='font-family:webdings;'>8</span>"
Const CCJCCJC ="<span style='font-family:webdings;'>:</span>"
Const CCJCCCJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJJCCCC, CJCJJJJ, CJCJJJC, CJCJJCJ, CJCJJCC, CJJJJJJ, CJCJCJJ, CJCJCJC, CJCJCCJ, CJCJCCC:Private Function CJJJJJJJ():Dim CJCCJJJ:CJCCJJJ = "共<span style='color:#f00;'><b>" & CJCJJCC & CJJJCCCJ("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJCCJ & CJJJCCCJ("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJJCJ & CJJJCCCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJJCCCJ("k^3mk^DA2?m顰@")
CJJJJJJJ = CJCCJJJ:End Function:Private Function CJJJJJJC():CJJJJJJC = CJJJCCCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCJJCJ & CJJJCCCJ("V ,DEJ=6lV") & CCJCCCJ & CJJJCCCJ("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") & CJJJJJJ & CJJJCCCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJJJJJCJ():CJJJJJCJ = CJJJCCCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCJCCCJ & CJJJCCCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJJJJJJ & CJJJCCCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJJJJCC():Dim CJCCJJJ, CCJCCJ:CJCCJJJ = CJJJCCCJ(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJJJJJJ & CJJJCCCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCJCCJ = 1 To PageCount:CJCCJJJ = CJCCJJJ & CJJJCCCJ("k@AE:@? ,G2=F6lV") & CCJCCJ & CJJJCCCJ("V")
If CCJCCJ = CJCJJCJ Then CJCCJJJ = CJCCJJJ & CJJJCCCJ(" ,D6=64E65")
CJCCJJJ = CJCCJJJ & CJJJCCCJ("m") & CCJCCJ & CJJJCCCJ("k^@AE:@?m"):Next:CJCCJJJ = CJCCJJJ & CJJJCCCJ("k^D6=64Em顰@"):CJJJJJCC = CJCCJJJ:End Function:Public Sub ShowPage():Dim CCJCCJ, CJCCJJC,CJCCJCJ,CJCCJCC:if CJCJJCC>0 then
CJCCJJC = CJJJCCCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJJJJJJ & CJJJCCCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJCJCCC:Case 1: CJCCJCC = CJJJJCCJ:Case 2: CJCCJCC = CJJJJCCC:Case 3: CJCCJCC = CJJJCJJJ:Case 4: CJCCJCC = CJJJCJJC:Case 5: CJCCJCC = CJJJCJCJ:Case 6: CJCCJCC = CJJJCJCC:Case 7: CJCCJCC = CJJJCCJJ:Case 8: CJCCJCC = CJJJCCJC:End Select
End If:CJCCJCJ = CJJJCCCJ("k^5:Gmk^5:Gm")
end if:if CJCJCCC>=6 then
Response.Write CJCCJCC
else
Response.Write CJCCJJC & CJCCJCC & CJCCJCJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJJJJ = Server.CreateObject(CJJJCCCJ("ps~sq]#64@C5$6E")):CJCJJJJ.PageSize = CJCJCCJ:CJCJJJJ.Open CJCJJJC, CJJCCCC, 1:If err then
Response.Write	CJJJCCCJ("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 & CJJJCCCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCJJJJ.EOF Then
CJCJJCC = CJCJJJJ.RecordCount:PageCount = CJCJJJJ.PageCount:If CJCJJCJ > PageCount Then CJCJJCJ = PageCount
CJCJJJJ.AbsolutePage = CJCJJCJ
End If:Set Rs = CJCJJJJ:End Function:Public Property Let CCCCC(CJJCCCCC):Set CJJCCCC = CJJCCCCC:End Property:Public Property Let SQL(str):CJCJJJC = str:End Property:Public Property Let Style(CJJJCCCC):If IsNumeric(CJJJCCCC) Then
CJCJCCC = CInt(CJJJCCCC):If CJCJCCC < 1 Or CJCJCCC > 8 Then CJCJCCC = 1
Else
CJCJCCC = 1
End If:End Property:Public Property Let PageSize(CJJJCCCC):If IsNumeric(CJJJCCCC) Then
CJCJCCJ = CInt(CJJJCCCC):If CJCJCCJ < 1 Then CJCJCCJ = 10
Else
CJCJCCJ = 10
End If:End Property:Public Property Get PageSize():If CJCJJCJ = PageCount Then
PageSize = CJCJJCC - CJCJCCJ * (PageCount - 1)
Elseif CJCJJCC=0 then
pagesize=0
else
PageSize = CJCJCCJ
end if:End Property:Private Sub Class_Initialize():dim CJCCCJJ:CJCJCCJ = 10:CJCJCCC = 1:Set CJJCCCC = CCCCJ:CJCJJCJ = Trim(Request.QueryString(CJJJCCCJ("!286"))):If IsNumeric(CJCJJCJ) Then
CJCJJCJ = CLng(CJCJJCJ):If CJCJJCJ < 1 Then CJCJJCJ = 1
Else
CJCJJCJ = 1
End If:CJCJCJC = Trim(Request.ServerVariables(CJJJCCCJ("&#{"))):CJCJCJC = Mid(CJCJCJC, InStrRev(CJCJCJC, CJJJCCCJ("^")) + 1):CJCJCJJ = Split(Trim(Request.ServerVariables(CJJJCCCJ("""&t#*0$%#x}v"))), CJJJCCCJ("U")):CJJJJJJ = Server.HtmlEncode(CJCJJJJJ):CJCCCJJ=lcase(CJJJJJJ):if instr(CJCCCJJ,CJJJCCCJ("Tb4:7C2>6"))>0 or instr(CJCCCJJ,CJJJCCCJ("Tb4D4C:AE"))>0 or instr(CJCCCJJ,CJJJCCCJ("V"))>0 or instr(CJCCCJJ,CJJJCCCJ(";2G2D4C:AE"))>0 or instr(CJCCCJJ,CJJJCCCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJJCCCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
End Sub:Public Function ListNum(CJJJCCCC):ListNum = CJCJCCJ * (CJCJJCJ - 1) + CJJJCCCC:End Function:Private Function CJCJJJJJ():Dim CCJCCJ, str:For CCJCCJ = 0 To UBound(CJCJCJJ):If InStr(LCase(CJCJCJJ(CCJCCJ)), CJJJCCCJ("A286l")) = 0 Then str = str & CJJJCCCJ("U") & CJCJCJJ(CCJCCJ)
Next:str = Mid(str, 2):If str = "" Then CJCJJJJJ = CJCJCJC & CJJJCCCJ("n") & CJJJCCCJ("A286l") Else CJCJJJJJ = CJCJCJC & CJJJCCCJ("n") & str & CJJJCCCJ("UA286l")
End Function:Private Function CJJJJCCJ():Dim str:str = CJJJCCCJ("轧@别@ ,笧@"):For CCJCCJ = 1 To PageCount:If CCJCCJ = CJCJJCJ Then str = str & CJJJCCCJ("k3m") & CCJCCJ & CJJJCCCJ("k^3m ,") Else str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CCJCCJ & CJJJCCCJ("Vm") & CCJCCJ & CJJJCCCJ("k^2m ,")
Next:str = str & CJJJCCCJ("顰@"):CJJJJCCJ = str:End Function:Private Function CJJJJCCC():Dim str:If CJCJJCJ > 1 Then
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJJJCCCJ("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJJJ & CJJJCCCJ("k^2m ,")
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 1 & CJJJCCCJ("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJCJ & CJJJCCCJ("k^2m ,")
Else
str = str & CCJCJJJ & CJJJCCCJ(" ,") & CCJCJCJ
End If:If CJCJJCJ < PageCount Then
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ + 1 & CJJJCCCJ("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJCC & CJJJCCCJ("k^2m ,")
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & PageCount & CJJJCCCJ("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCCJC & CJJJCCCJ("k^2m ,")
Else
str = str & CCJCJCC & CJJJCCCJ(" ,") & CCJCCJC
End If:str = str & CJJJJJJC:str = str & CJJJJJCJ:CJJJJCCC = str:End Function:Private Function CJJJCJJJ():Dim str, CCCJJC:CCCJJC = (CJCJJCJ - 1) \ 10:If CJCJJCJ = 1 Then str = str & CCJCJJJ & CJJJCCCJ(" ,") Else str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJJJCCCJ("`V ,E:E=6lV馑@顰@Vm") & CCJCJJJ & CJJJCCCJ("k^2m ,")
If CCCJJC * 10 > 0 Then str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 10 & CJJJCCCJ("V ,E:E=6lV丅@匼@顰@Vm") & CCJCJJC & CJJJCCCJ("k^2m ,")
For CCJCCJ = (CCCJJC * 10 + 1) To (CCCJJC * 10 + 10):If CCJCCJ = CJCJJCJ Then str = str & CJJJCCCJ("k3m") & CCJCCJ & CJJJCCCJ("k^3m ,") Else str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CCJCCJ & CJJJCCCJ("V ,E:E=6lV轧@别@笧@") & CCJCCJ & CJJJCCCJ("顰@Vm") & CCJCCJ & CJJJCCCJ("k^2m ,")
If CCJCCJ = PageCount Then Exit For
Next:If CCJCCJ < PageCount Then str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CCJCCJ & CJJJCCCJ("V ,E:E=6lV丆@匼@顰@Vm") & CCJCCJJ & CJJJCCCJ("k^2m ,")
If CJCJJCJ = PageCount Then str = str & CCJCCJC Else str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & PageCount & CJJJCCCJ("V ,E:E=6lV朦@顰@Vm") & CCJCCJC & CJJJCCCJ("k^2m")
CJJJCJJJ = str:End Function:Private Function CJJJCJJC():Dim str, CCCCCJ, CJCCCJC, CCJCCJ:If CJCJJCJ > 4 Then str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJJJCCCJ("`Vm,`.k^2m ,]]]")
If CJCJJCJ < PageCount - 3 Then CJCCCJC = CJCJJCJ + 3 Else CJCCCJC = PageCount
For CCJCCJ = CJCJJCJ - 3 To CJCCCJC:If CCJCCJ >= 1 Then
If CCJCCJ = CJCJJCJ Then str = str & CJJJCCCJ(" ,k3m,") & CCJCCJ & CJJJCCCJ(".k^3m") Else str = str & CJJJCCCJ(" ,k2 ,9C67lV") & CJJJJJJ & CCJCCJ & CJJJCCCJ("Vm,") & CCJCCJ & CJJJCCCJ(".k^2m")
End If:Next:If CJCJJCJ < PageCount - 3 Then str = str & CJJJCCCJ(" ,]]] ,k2 ,9C67lV") & CJJJJJJ & PageCount & CJJJCCCJ("Vm,") & PageCount & CJJJCCCJ(".k^2m")
CJJJCJJC = str:End Function:Private Function CJJJCJCJ():Dim str:If CJCJJCJ > 1 Then
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJJJCCCJ("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,")
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 1 & CJJJCCCJ("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,")
Else
str = str & CJJJCCCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m")
End If:If CJCJJCJ < PageCount Then
str = str & CJJJCCCJ(" ,k2 ,9C67lV") & CJJJJJJ & CJCJJCJ + 1 & CJJJCCCJ("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,")
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & PageCount & CJJJCCCJ("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,")
Else
str = str & CJJJCCCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m")
End If:str = str & CJJJJJCC:CJJJCJCJ = str:End Function:Private Function CJJJCJCC():Dim str:if CJCJJCJ>=2 then
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 1 & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 1 & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJJCJ-1 & CJJJCCCJ("k^2m")
end if:str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCJJCJ & CJJJCCCJ("k^2m")
if pagecount>CJCJJCJ then
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ + 1 & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJJCJ+1 & CJJJCCCJ("k^2m")
str = str & CJJJCCCJ("k2 ,9C67lV") & CJJJJJJ & CJCJJCJ + 1 & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJJCJCC=str:End Function:Private Function CJJJCCJJ():Dim str:str=CJJJCCCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCJJCJ>=2 then
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 1 & CJJJCCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 1 & CJJJCCCJ("Vm") & CJCJJCJ-1 & CJJJCCCJ("k^2mk^=:m")
end if:str = str & CJJJCCCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJJJJJJ & CJCJJCJ & CJJJCCCJ("Vm") & CJCJJCJ & CJJJCCCJ("k^2mk^=:m")
if pagecount>CJCJJCJ then
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCJJCJ + 1 & CJJJCCCJ("Vm") & CJCJJCJ+1 & CJJJCCCJ("k^2mk^=:m")
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCJJCJ + 1 & CJJJCCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJJCCCJ("k^F=m"):CJJJCCJJ=str:End Function:Private Function CJJJCCJC():Dim str:str=CJJJCCCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCJJCJ>=2 then
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 1 & CJJJCCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCJJCJ - 1 & CJJJCCCJ("Vm") & CJCJJCJ-1 & CJJJCCCJ("k^2mk^=:m")
end if:str = str & CJJJCCCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJJJJJJ & CJCJJCJ & CJJJCCCJ("Vm") & CJCJJCJ & CJJJCCCJ("k^2mk^=:m")
if pagecount>CJCJJCJ then
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCJJCJ + 1 & CJJJCCCJ("Vm") & CJCJJCJ+1 & CJJJCCCJ("k^2mk^=:m")
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCJJCJ + 1 & CJJJCCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJJCCCJ("k^F=m"):CJJJCCJC=str:End Function:End Class::Call CheckRight(53):Call WriteCurrentURL:dim CJCCCCJ:set rs=CCCCJ.execute(CJJJCCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,>6>36CEJA6l") & CJJCCJ):if rs.eof then Call RedirectMessage(CJJJCCCJ("揋@礵@俜@恪@M寴@丈@赲@，,戌@仧@寴@斂@竛@糶@绚@迖@衇@亁@攴@牃@，,诲@咣@话@罌@竔@宝@月@亵@呓@冈@迖@衇@擈@佗@！,"))
CJCCCCJ=rs(0):dim CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCCJJC,CCJJJCC:CJCCCCC=Request.QueryString(CJJJCCCJ("{")):CCJJJJJ=CCCJJJJ(Request.QueryString(CJJJCCCJ("%"))):CCJJJJC=CCCJJJJ(Request.QueryString(CJJJCCCJ("p"))):CCJJJCJ=Request.QueryString(CJJJCCCJ("$")):CCJJJCC=Request.QueryString(CJJJCCCJ("r")):CCCJJC=Request.QueryString(CJJJCCCJ("!")):if not CCCJJCC(CJCCCCC) then CJCCCCC=CJCCCCJ
dim CJJJJCC:set CJJJJCC=new jtree:CJJJJCC.table=CJJJCCCJ("2CE:4=60EJA6"):Response.Write(vbCrLf):Response.Write(CJJJCCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJCCCJ("k9E>=m") & vbCrLf):Response.Write(CJJJCCCJ("k9625m") & vbCrLf):Response.Write(CJJJCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJJCCCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJJCCCJ("k^9625m") & vbCrLf):Response.Write(CJJJCCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCCCJ("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kF=m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ2CE:4=6]2DAQm斂@竛@箜@琁@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k=:mk2 ,9C67lQ2CE:4=6024E]2DAn24El255Qm双@衣@斂@竛@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k=:mk2 ,9C67lQ2CE:4=60EJA6]2DAQm斂@竛@籶@刦@k^2mk^=:m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^F=m") & vbCrLf):Response.Write(CJJJCCCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJCCCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m·, ,斂@竛@划@衣@ ,·, ,k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm籶@刦@：,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mkD6=64E ,?2>6lQ{Q ,:5lQ{Qm") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):Call CJJJJCC.ShowTree_Select(CJCCCCJ,CJCCCCC):Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm栂@颓@：,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mk:?AFE ,?2>6lQ%Q ,EJA6lQE6IEQ ,4=2DDlQ:AE`Q ,:5lQ%Q ,G2=F6lQ")):Response.Write  CCJJJJJ:Response.Write(CJJJCCCJ("Q ,D:K6lQadQmk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm双@巾@耀@：,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mk:?AFE ,?2>6lQpQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5Q ,D:K6lQ`dQ ,E:E=6lQ辎@兠@佗@耀@昰@秫@Q ,G2=F6lQ")):Response.Write  CCJJJJC:Response.Write(CJJJCCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm犱@忼@：,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mkD6=64E ,?2>6lQrQ ,:5lQrQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write  IIf(CCJJJCC="2",CJJJCCCJ("D6=64E65"),""):Response.Write(CJJJCCCJ("m朥@宜@栳@k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CCJJJCC="0",CJJJCCCJ("D6=64E65"),""):Response.Write(CJJJCCCJ("m巭@双@巾@k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm掍@床@：,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mkD6=64E ,?2>6lQ$Q ,:5lQ$Q ,@?r92?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQDE2EFDQ ,")):Response.Write  IIf(CCJJJCJ=CJJJCCCJ("DE2EFD"),CJJJCCCJ("D6=64E65"),""):Response.Write(CJJJCCCJ("m宜@栳@犱@忼@k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQ:5Q ,")):Response.Write  IIf(CCJJJCJ=CJJJCCCJ(":5"),CJJJCCCJ("D6=64E65"),""):Response.Write(CJJJCCCJ("m双@衣@旱@闯@k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQ9:EQ ,")):Response.Write  IIf(CCJJJCJ=CJJJCCCJ("9:E"),CJJJCCCJ("D6=64E65"),""):Response.Write(CJJJCCCJ("m炴@凶@玂@k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ兣@ ,逄@Q ,@?r=:4<lQ;2G2D4C:AEi4964<2==WE9:DXQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ宜@栳@逕@迂@Q ,@?r=:4<lQ;2G2D4C:AEi7@C>a]24E]G2=F6lV4964<Vj7@C>a]DF3>:EWXjQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ创@陟@戻@逄@Q ,@?r=:4<lQ;2G2D4C:AEi:7W4@?7:C>WV患@昪@眚@癿@襼@创@陟@戻@逄@冀@宴@吒@？,VXXL7@C>a]24E]G2=F6lV56=Vj7@C>a]DF3>:EWXjNQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ迏@ ,囙@Q ,@?r=:4<lQ;2G2D4C:AEi9:DE@CJ]324<WXQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,?2>6lQ!Q ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJCCCJ("k^7@C>m") & vbCrLf)::If CCCJJC="1" Then
sql=CJJJCCCJ("D6=64E ,:5[E:E=6[52E6E:>6[EJA6?2>6[9:E[?:4<?2>6[=2DEE:>6[DE2EFD[2FE9@C ,7C@> ,G02CE:4=6 ,H96C6 ,") & CJJJJCC.Sql_GetChildren(CJCCCCC):if CCJJJJJ<>"" then sql=sql & CJJJCCCJ(" ,2?5 ,E:E=6 ,=:<6 ,VT") & CCJJJJJ & CJJJCCCJ("TV")
if CCJJJJC<>"" then sql=sql & CJJJCCCJ(" ,2?5 ,?:4<?2>6 ,=:<6 ,VT") & CCJJJJC & CJJJCCCJ("TV")
if CCCJJCC(CCJJJCC) then sql=sql & CJJJCCCJ(" ,2?5 ,DE2EFDl") & CCJJJCC
sql=sql & CJJJCCCJ(" ,@C56C ,3J ,") & CCJJJCJ & CJJJCCCJ(" ,56D4"):dim CCJJCJJ,CCJCCJ,CCJJCJC:set CCJJCJJ=new splitpage:with CCJJCJJ:.sql=sql:.pagesize=20:.style=5:end with:set rs=CCJJCJJ.rs:if rs.eof then
Call ShowMessage(CJJJCCCJ("寴@丈@赲@，,沜@朄@批@别@件@佐@匴@酈@癿@绎@林@！,"))
else
Response.Write(vbCrLf):Response.Write(CJJJCCCJ("k7@C> ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQ2CE:4=6024E]2DAQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m床@k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ4964<2==Q ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m丶@颓@k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m籶@刦@k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m双@巾@耀@k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m双@衣@无@朚@k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m炴@凶@k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):for CCJCCJ=1 to CCJJCJJ.pagesize:CCJJCJC=rs(0):Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJCJJ.listnum(CCJCCJ):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,G2=F6lQ")):Response.Write  CCJJCJC:Response.Write(CJJJCCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5m")):If rs(7)=2 Then
Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k:>8 ,DC4lV:>286D^D=:?<]8:7V ,H:5E9lV`eV ,96:89ElV`eV ,2=:8?lV23D>:55=6V ,2=ElV尕@朥@宜@栳@Vmk2 ,9C67lQ2CE:4=6024E]2DAn24El>@5U:5l")):Response.Write  CCJJCJC:Response.Write(CJJJCCCJ("Qm")):Response.Write  rs(1):Response.Write(CJJJCCCJ("k^2m") & vbCrLf):Response.Write(CJJJCCCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k2 ,9C67lQ]]^G:6H]2DAnFl")):Response.Write  CJJCCJ:Response.Write(CJJJCCCJ("U:5l")):Response.Write  CCJJCJC:Response.Write(CJJJCCCJ("Q ,E:E=6lQ曻@吉@曯@斫@：,")):Response.Write  rs(6):Response.Write(CJJJCCCJ("Q ,E2C86ElQ03=2?<Qm")):Response.Write  rs(1):Response.Write(CJJJCCCJ("k^2m") & vbCrLf):Response.Write(CJJJCCCJ(" ,"))
End If:Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5m")):Response.Write  rs(3):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mk2 ,9C67lQ;2G2D4C:AEi@A6?$EF56?Ex?7@(:?W")):Response.Write  rs(8):Response.Write(CJJJCCCJ("XQ ,E:E=6lQ柠@眆@佗@耀@俜@恪@Qm")):Response.Write  rs(5):Response.Write(CJJJCCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5m")):Response.Write  formatdatetime(rs(2),2):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  rs(4):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ2CE:4=6024E]2DAn24El>@5U:5l")):Response.Write  CCJJCJC:Response.Write(CJJJCCCJ("Qm俩@攴@k^2mk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4@=DA2?lQgQm")):call CCJJCJJ.showpage:Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,?2>6lQ24EQ ,EJA6lQ9:556?Q ,:5lQ24EQm") & vbCrLf):Response.Write(CJJJCCCJ("k^7@C>m") & vbCrLf)
end if:set CCJJCJJ=nothing
else
response.write CJJJCCCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVm诲@逄@拤@杜@仱@吉@炴@凶@“,柠@话@”,挄@钩@！,k^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCCJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJJCCCJ(" ,SWQR{QX];%C66$6=64EWXj") & vbCrLf):Response.Write(CJJJCCCJ("NXj") & vbCrLf):Response.Write(CJJJCCCJ("7F?4E:@? ,@A6?$EF56?Ex?7@(:?W:5XL") & vbCrLf):Response.Write(CJJJCCCJ(" ,@A6?WVDEF56?E:?7@]2DAn:5lVZ:5[V$EF56?Ex?7@V[VH:5E9ldd_[96:89Elb__[D4C@==32CDlJ6DVXj") & vbCrLf):Response.Write(CJJJCCCJ("N") & vbCrLf):Response.Write(CJJJCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJJCC=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:CJJJJC.Close:Set CJJJJC=Nothing:rs.Close:Set rs=Nothing:CCCCJ.Close:Set CCCCJ = Nothing:err.Clear:On Error Goto 0
Function CJJJCCCJ(ByVal CCJJJCC)
Dim CCJJCCJ, CCJCCJ, CCCCCJ
CCJJJCC = Replace(CCJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCJ = 1 To Len(CCJJJCC)
If CCJCCJ <> CCCCCJ Then
CCJJCCJ = AscW(Mid(CCJJJCC, CCJCCJ, 1))
If CCJJCCJ >= 33 And CCJJCCJ <= 79 Then
CJJJCCCJ = CJJJCCCJ & Chr(CCJJCCJ + 47)
ElseIf CCJJCCJ >= 80 And CCJJCCJ <= 126 Then
CJJJCCCJ = CJJJCCCJ & Chr(CCJJCCJ - 47)
Else
CCCCCJ = CCJCCJ + 1
If Mid(CCJJJCC, CCCCCJ, 1) = Chr(64) Then CJJJCCCJ = CJJJCCCJ & ChrW(CCJJCCJ + 5) Else CJJJCCCJ = CJJJCCCJ & Mid(CCJJJCC, CCJCCJ, 1)
End If
End If
Next
End Function
%>