<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,rs, CCCCJ, sql:Set CCJCC = server.CreateObject(CJJCJJCJ("ps~sq]r@??64E:@?")):CCJCC.open Application(CJJCJJCJ("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CJJCJJCJ("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
sql=CJJCJJCJ("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") & CJJJJC & CJJCJJCJ("V ,2?5 ,:5l") & CJJJJJ
set rs=CCJCC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=rs(2) & "":CJJJCC=rs(3):CJJCJJ=rs(5):CJJCJC=rs(6):CJJCCJ=rs(9):CJJCCC=rs(15):CJCJJC=rs(0):CCJJJJ=rs(1):CJCCCC=rs(11) & "":CJCJCJ=rs(10) & "":CJCJJJ=rs(12):CJCJCC=rs(14):CJCCJJ=rs(13):CJCCJC=rs(7) & "":CJCCCJ=rs(4):CCJJJC=rs(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CJJCJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CJJCJJCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:Sub CheckRight(CJJCJJCC):dim CCJJCC,CCJCJJ:if CJJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCCCC(CJJCJJCC) then
Call RedirectMessage(CJJCJJCJ("朾@陋@W") & CJJCJJCC & CJJCJJCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCCCC(CJJCJJCC):dim CCJJCC,CCJCJJ:CCJCJJ=split(CJJCJJCC,CJJCJJCJ("[")):CCJCCCC=False:for CCJJCC=0 to ubound(CCJCJJ):If Mid(CJJJCJ,CCJCJJ(CCJJCC),1)="1" then
CCJCCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJCJ("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJC,CCJCCJ,CCJJCC,CCJCCC,CCCJJJ:CCJCJC=split(CCJJCJ,CJJCJJCJ("]")):if ubound(CCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJC(0)) or len(CCJCJC(1))<>32 or len(CCJCJC(2))<>32 then
Call ClearMemberCookie
else
CCJCCJ=CCJCJC(1):for CCJJCC=1 to len(CCJCCJ):CCJCCC=mid(CCJCCJ,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCCJ=CCJCJC(2):if CCCJJJ<>mid(CCJCCJ,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCCJ,18,10)/2:if CCJCCC<DateDiff(CJJCJJCJ("D"), CJJCJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJC(0)):CJJJJC=CCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJC,CJJCJCJJ):dim CCJJCC,CCJCCC,CCCJJJ:for CCJJCC=1 to len(CJJCJCJJ):CCJCCC=mid(CJJCJCJJ,CCJJCC,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CJJJJJJC & CJJCJJCJ("]") & CJJCJCJJ & CJJCJJCJ("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJCJ("D"), CJJCJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJCJ("!$*|t|qt#"))=CCCJJJ:End Sub::Function CCCJJJJ(CJJCJCJC):Dim str,CCCJCJ:str = Trim(CJJCJCJC):If IsNull(str) Or str = "" Then
CCCJJJJ = ""
else
str=Replace(str, CJJCJJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCJJCJ("k:7C2>6"), CJJCJJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCJJCJ("kD4C:AE"), CJJCJJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJCJ=new RegExp:CCCJCJ.Pattern=CJJCJJCJ("@?W,2\K.ZXl"):CCCJCJ.IgnoreCase = True:CCCJCJ.Global=True:str=CCCJCJ.Replace(str,CJJCJJCJ("@?S`U6BF2=Dj")):set CCCJCJ=nothing:CCCJJJJ=str
End If:End Function:Function IIf(CJJCJCCJ, CJJCJCCC, CJJCCJJJ):if isnull(CJJCJCCJ) or isempty(CJJCJCCJ) then
IIf = CJJCCJJJ
elseif CJJCJCCJ Then
IIf = CJJCJCCC
Else
IIf = CJJCCJJJ
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="utf-8":dim CCJJCC,CCJCCC,CCCJCC:if isarray(str) then
on error resume next:CCJJCC=ubound(str,2):CCCJCC=err.number:err.clear:on error goto 0:if CCCJCC<>0 then
for CCJJCC=0 to ubound(str):if CCJJCC>0 then response.Write CJJCJJCJ("k3C ,^m")
response.Write CCJJCC & CJJCJJCJ("i ,") & str(CCJJCC):next
else
response.Write CJJCJJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJJCC=0 to ubound(str,2):response.Write CJJCJJCJ("kE9 ,2=:8?lV=67EVm") & CCJJCC & CJJCJJCJ("k^E9m")
next:response.Write CJJCJJCJ("k^ECm"):for CCJJCC=0 to ubound(str):response.Write CJJCJJCJ("kECmkE9m") & CCJJCC & CJJCJJCJ("k^E9m"):for CCJCCC=0 to ubound(str,2):response.Write CJJCJJCJ("kE5m") & str(CCJJCC,CCJCCC) & CJJCJJCJ("k^E5m"):next:response.Write CJJCJJCJ("k^ECm"):next:response.Write CJJCJJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCJJCJ():Dim CCCCJJ, CCCCJC:CCCCJC = Request.ServerVariables(CJJCJJCJ("!p%w0x}u~")):CCCCJJ = Request.ServerVariables(CJJCJJCJ("""&t#*0$%#x}v")):If CCCCJJ <> Empty Then
if instr(lcase(CCCCJJ),CJJCJJCJ("Tb4:7C2>6"))>0 or instr(lcase(CCCCJJ),CJJCJJCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCJJCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CCCCJC = CCCCJC & CJJCJJCJ("n") & CCCCJJ
end if:CCCJJCJ = CCCCJC:End Function:Sub SetHttpOnlyCookie(CJJCCJJC,CJJCCJCJ):dim CCJCJC:CCJCJC=CJJCCJJC & CJJCJJCJ("l") & CJJCCJCJ & CJJCJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJCJ("$6E\r@@<:6"),CCJCJC):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJCJJCJ("!$*"))(CJJCJJCJ("&#{")) = CCCJJCJ:End Sub::::::Function CCCJJCC(CCCJCC):if isnull(CCCJCC) or trim(CCCJCC)="" or not isnumeric(CCCJCC) then
CCCJJCC=false
else
Dim CCCJCJ:Set CCCJCJ = New RegExp:CCCJCJ.Pattern = CJJCJJCJ("/-5ZS"):CCCJCJ.IgnoreCase = True:CCCJJCC = CCCJCJ.test(CCCJCC):set CCCJCJ=nothing
end if:End Function:Function CCCJCJJ(CJJCCJCC):dim CCCCCJ,CCCCCC:CCCCCJ=CJJCJJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJCC & CJJCJJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCCC=CCJCC.execute(CCCCCJ):CCCJCJJ = CCCCCC(0):if isnull(CCCJCJJ) then CCCJCJJ=1
CCCCCC.close : set CCCCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCJJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:CCCCCC.close : set CCCCCC=nothing:CCCCJ.Close : Set CCCCJ=Nothing:rs.Close : Set rs=Nothing:CCCCJJJ.Close : Set CCCCJJJ = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJCJ("!$*0|6DD286"),server.URLEncode(CJJCCCJJ)):Response.Redirect CJJCJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCCJJC(ByVal CCCCJCJ,style):if not isdate(CCCCJCJ) then
CCCCJJC=CCCCJCJ:exit function
end if:dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:CCCCJCJ=cdate(CCCCJCJ):CJJJJJJ=Year(CCCCJCJ):CJJJJJC=Month(CCCCJCJ):CJJJJCJ=Day(CCCCJCJ):select case style:case 0:CCCCJJC=CJJJJJJ & CJJCJJCJ("\") & right(0 & CJJJJJC,2) & CJJCJJCJ("\") & right(0 & CJJJJCJ,2):case 1:CCCCJJC=CJJJJJJ & right(0 & CJJJJJC,2) & right(0 & CJJJJCJ,2):case 2:CCCCJJC=right(CJJJJJJ,2) & CJJCJJCJ("\") & right(0 & CJJJJJC,2) & CJJCJJCJ("\") & right(0 & CJJJJCJ,2):case 3:CCCCJJC=CJJJJJJ & CJJCJJCJ("\") & right(0 & CJJJJJC,2):case 4:CCCCJJC=right(0 & CJJJJJC,2) & CJJCJJCJ("\") & right(0 & CJJJJCJ,2):case 5:CCCCJJC=right(0 & CJJJJCJ,2):case 6:CCCCJJC=CJJJJJJ & CJJCJJCJ("幯@") & right(0 & CJJJJJC,2) & CJJCJJCJ("會@") & right(0 & CJJJJCJ,2) & CJJCJJCJ("无@"):case else
CCCCJJC=CCCCJCJ:end select:End Function::::::::::::::::::::Sub ClearCache(CJJCCCJC):Application.Contents.Remove CJJCCCJC
End Sub::Class jTree:Private Sql, CJJJCJJ, CJJJCJC, CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Private Sub Class_Initialize():CJJJCJC = 0:CJJJCCJ = 0:CJJCJCJ=10:End Sub:Public Property Let Table(CJJCCCCJ):if CJJCCCCJ="" then Call RedirectMessage(CJJCJJCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJJCCC=CJJCCCCJ:CJJCJJJ=CJJCJJCJ("!$*0") & UCase(CJJJCCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJCCC:End Property:::Private Sub GetTreeArray():Dim CCJJCC, CCJCCC, CJJCJCC,RecordCount:CJJJCJJ = Application(CJJCJJJ):If Not IsArray(CJJJCJJ) Then
Sql = CJJCJJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJCCC:if CJJCJJC<>"" then Sql=Sql & CJJCJJCJ(" ,H96C6 ,") & CJJCJJC
set CJJCJCC=CCJCC.execute(sql):RecordCount=CJJCJCC(0):if RecordCount=0 then Call RedirectMessage(CJJCJJCJ("柠@话@W") & CJJJCCC & CJJCJJCJ("^") & CJJCJJC & CJJCJJCJ("X沜@朄@绎@林@敫@捩@"))
CJJJCCJ=RecordCount+CJJCJCJ:ReDim CJJJCJJ(CJJJCCJ, 4):Sql = CJJCJJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCC & CJJCJJCJ(" ,H:E9 ,W?@=@4<X"):if CJJCJJC<>"" then Sql=Sql & CJJCJJCJ(" ,H96C6 ,") & CJJCJJC
Sql=Sql & CJJCJJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCJCC=CCJCC.execute(sql):For CCJJCC = 1 To RecordCount:For CCJCCC = 0 To 4:CJJJCJJ(CCJJCC, CCJCCC) = CJJCJCC(CCJCCC):if IsNull(CJJJCJJ(CCJJCC,4)) then CJJJCJJ(CCJJCC,4)=0
If CJJJCJJ(CCJJCC,2)="" then CJJJCJJ(CCJJCC,2)=CJJCJJCJ(",穵@.")
Next:CJJCJCC.MoveNext:Next:CJJCJCC.Close: Set CJJCJCC = Nothing:for CCJJCC=CJJJCCJ-(CJJCJCJ-1) to CJJJCCJ:CJJJCJJ(CCJJCC,0)=CCJJCC:next:Application.Lock():Application(CJJCJJJ) = CJJJCJJ:Application.UnLock()
else
CJJJCCJ=Ubound(CJJJCJJ)
End If:End Sub:::::Private Function CCCCCJJ(CJJJJJJC):dim CCJJCC,CJJCCJC:CCCCCJJ=0:CJJCCJC=CStr(CJJJJJJC):if CJJCCJC<>"0" then
for CCJJCC=1 to CJJJCCJ:If CStr(CJJJCJJ(CCJJCC, 0))=CJJCCJC Then
CCCCCJJ = CCJJCC:Exit For
End If:Next
end if:End Function::Public Function CCCCCJC(CJJJJJJC):Dim CCJJCC:CCJJCC=CCCCCJJ(CJJJJJJC):if CCJJCC>0 then
CCCCCJC=CJJJCJJ(CCJJCC,1):if isnull(CCCCCJC) then
dim CJJCJCC,CJJCCCJ,CJJCCCC,CJCJJJJ:set CJJCJCC=CCJCC.execute(CJJCJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCC & CJJCJJCJ(" ,H96C6 ,:5l") & CJJJJJJC):if CJJCJCC.eof then
CJJCJCC.Close: Set CJJCJCC = Nothing:Call UpdateCache(CJJJJJJC,"","","",""):Call RedirectMessage(CJJCJJCJ("艽@炴@（,xs：,") & CJJJJJJC & CJJCJJCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
CCCCCJC=CJJCJCC(0):CJJCCCJ=CJJCJCC(1):CJJCCCC=CJJCJCC(2):CJCJJJJ=CJJCJCC(3):CJJCJCC.Close: Set CJJCJCC = Nothing:Call UpdateCache(CJJJJJJC,CCCCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ)
end if
end if
end if:End Function:Public Function GetParentName(CJJJJJJC):Dim CCJJCC, CJCJJJC:CJCJJJC = CCCCCJC(CJJJJJJC):CCJJCC=CCCCCJJ(CJCJJJC):if CCJJCC>0 then GetParentName=CJJJCJJ(CCJJCC,2)
End Function:Public Function CCCCCCJ(CJJJJJJC):Dim CCJJCC,CJJCCCC:CCJJCC=CCCCCJJ(CJJJJJJC):if CCJJCC=0 then
CJJCCCC=CCCCCCC(CJJJJJJC)
else
CJJCCCC=CJJJCJJ(CCJJCC,3):if isnull(CJJCCCC) or CJJCCCC="" then
CJJCCCC=CCCCCCC(CJJJJJJC)
elseif Mid(CJJCCCC,instrrev(CJJCCCC,CJJCJJCJ("["))+1)<>CStr(CJJJJJJC) then
CJJCCCC=CCCCCCC(CJJJJJJC)
elseif Left(CJJCCCC,1)=CJJCJJCJ("[") then
CJJCCCC=CCCCCCC(CJJJJJJC)
end if
end if:CCCCCCJ=CJJCCCC:End Function:Private Function CCCCCCC(CJJJJJJC):dim CJJCCJC:CJJCCJC=CStr(CJJJJJJC):if CJJCCJC="0" then
CCCCCCC=""
else
dim CJJCJCC:set CJJCJCC=CCJCC.execute(CJJCJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCC & CJJCJJCJ(" ,H96C6 ,:5l") & CJJJJJJC):if CJJCJCC.eof then
Call UpdateCache(CJJJJJJC,"","","",""):Call RedirectMessage(CJJCJJCJ("顴@盩@（,xs：,") & CJJJJJJC & CJJCJJCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJCJCC(0)=0 then
CCCCCCC="0," & CJJJJJJC
else
CCCCCCC=CCCCCCJ(CJJCJCC(0)) & CJJCJJCJ("[") & CJJJJJJC
end if:if CJJCJCC(2)<>CCCCCCC then
CCJCC.execute CJJCJJCJ("FA52E6 ,") & CJJJCCC & CJJCJJCJ(" ,D6E ,A2E9lV") & CCCCCCC & CJJCJJCJ("V ,H96C6 ,:5l") & CJJJJJJC
else
CCCCCCC=CJJCJCC(2)
end if
end if:Call UpdateCache(CJJJJJJC,CJJCJCC(0),CJJCJCC(1),CCCCCCC,CJJCJCC(3)):CJJCJCC.Close: Set CJJCJCC = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJJJJJJC):dim CJJCCCC:CJJCCCC=CCCCCCJ(CJJJJJJC):Sql_GetChildren = CJJJCCC & CJJCJJCJ("0A2E9ZV[V ,=:<6 ,V") & CJJCCCC & CJJCJJCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJJJ
End Sub:Public Sub UpdateCache(CJJJJJJC,CJCJJJC,CJJCCCJ,CJJCCCC,CJCJJJJ):dim CCJJCC,CCJCCC:CJJJJJJC=CLng(CJJJJJJC):CCJJCC=CCCCCJJ(CJJJJJJC):if CJCJJJC="" and CJJCCCJ="" and CJJCCCC="" and CJCJJJJ="" then
if CCJJCC>0 then
for CCJCCC=1 to 4:CJJJCJJ(CCJJCC,CCJCCC)=Null:next
end if
else
if CCJJCC=0 then
for CCJCCC=1 to CJJJCCJ:if CJJJCJJ(CCJCCC,1) & ""="" then
CCJJCC=CCJCCC:exit for
end if:next
end if:if CCJJCC=0 then
Call ClearCache
else
CJJJCJJ(CCJJCC,0)=CLng(CJJJJJJC):if CJCJJJC<>"" then CJJJCJJ(CCJJCC,1)=CLng(CJCJJJC)
if CJJCCCJ<>"" then CJJJCJJ(CCJJCC,2)=CJJCCCJ
if CJJCCCC<>"" then CJJJCJJ(CCJJCC,3)=CJJCCCC
if CJCJJJJ<>"" then CJJJCJJ(CCJJCC,4)=CLng(CJCJJJJ)
end if
end if:if CCJJCC>0 then
Application.Lock():Application(CJJCJJJ) = CJJJCJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCCCJJ):Call ConnClose:Response.Write CJJCCCJJ:Response.End:End Sub:Private Function CCCJCJJ():CCCJCJJ=CJJJJJCJ+1:End Function:Private Function CJJJJJCJ():dim CCCCCC:set CCCCCC=CCJCC.execute(CJJCJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJCCC & CJJCJJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJJCJ=CCCCCC(0):CCCCCC.Close: Set CCCCCC = 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, CJCJJCC, CJCJCJJ, CJCJCJC, CJCJCCJ, CJCJCCC, CCCCJC, CJCCJJJ, CJCCJJC, CJCCJCJ, CJCCJCC:Private Function CJJJJJCC():Dim CJCCCJJ:CJCCCJJ = "共<span style='color:#f00;'><b>" & CJCJCCC & CJJCJJCJ("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCJCJ & CJJCJJCJ("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJCCJ & CJJCJJCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCJJCJ("k^3mk^DA2?m顰@")
CJJJJJCC = CJCCCJJ:End Function:Private Function CJJJJCJJ():CJJJJCJJ = CJJCJJCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCJCCJ & CJJCJJCJ("V ,DEJ=6lV") & CCJCCCJ & CJJCJJCJ("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") & CCCCJC & CJJCJJCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJJJJCJC():CJJJJCJC = CJJCJJCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCJCCCJ & CJJCJJCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCCCJC & CJJCJJCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJJJCCJ():Dim CJCCCJJ, CCJJCC:CJCCCJJ = CJJCJJCJ(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCCCJC & CJJCJJCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCJJCC = 1 To PageCount:CJCCCJJ = CJCCCJJ & CJJCJJCJ("k@AE:@? ,G2=F6lV") & CCJJCC & CJJCJJCJ("V")
If CCJJCC = CJCJCCJ Then CJCCCJJ = CJCCCJJ & CJJCJJCJ(" ,D6=64E65")
CJCCCJJ = CJCCCJJ & CJJCJJCJ("m") & CCJJCC & CJJCJJCJ("k^@AE:@?m"):Next:CJCCCJJ = CJCCCJJ & CJJCJJCJ("k^D6=64Em顰@"):CJJJJCCJ = CJCCCJJ:End Function:Public Sub ShowPage():Dim CCJJCC, CJCCCJC,CJCCCCJ,CJCCCCC:if CJCJCCC>0 then
CJCCCJC = CJJCJJCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJJJJCC & CJJCJJCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJCCJCC:Case 1: CJCCCCC = CJJJCJJC:Case 2: CJCCCCC = CJJJCJCJ:Case 3: CJCCCCC = CJJJCJCC:Case 4: CJCCCCC = CJJJCCJJ:Case 5: CJCCCCC = CJJJCCJC:Case 6: CJCCCCC = CJJJCCCJ:Case 7: CJCCCCC = CJJJCCCC:Case 8: CJCCCCC = CJJCJJJJ:End Select
End If:CJCCCCJ = CJJCJJCJ("k^5:Gmk^5:Gm")
end if:if CJCCJCC>=6 then
Response.Write CJCCCCC
else
Response.Write CJCCCJC & CJCCCCC & CJCCCCJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJCJJ = Server.CreateObject(CJJCJJCJ("ps~sq]#64@C5$6E")):CJCJCJJ.PageSize = CJCCJCJ:CJCJCJJ.Open CJCJCJC, CJCJJCC, 1:If err then
Response.Write	CJJCJJCJ("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 & CJJCJJCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCJCJJ.EOF Then
CJCJCCC = CJCJCJJ.RecordCount:PageCount = CJCJCJJ.PageCount:If CJCJCCJ > PageCount Then CJCJCCJ = PageCount
CJCJCJJ.AbsolutePage = CJCJCCJ
End If:Set Rs = CJCJCJJ:End Function:Public Property Let CCCJJ(CJJCCCCC):Set CJCJJCC = CJJCCCCC:End Property:Public Property Let SQL(str):CJCJCJC = str:End Property:Public Property Let Style(CJJCJJCC):If IsNumeric(CJJCJJCC) Then
CJCCJCC = CInt(CJJCJJCC):If CJCCJCC < 1 Or CJCCJCC > 8 Then CJCCJCC = 1
Else
CJCCJCC = 1
End If:End Property:Public Property Let PageSize(CJJCJJCC):If IsNumeric(CJJCJJCC) Then
CJCCJCJ = CInt(CJJCJJCC):If CJCCJCJ < 1 Then CJCCJCJ = 10
Else
CJCCJCJ = 10
End If:End Property:Public Property Get PageSize():If CJCJCCJ = PageCount Then
PageSize = CJCJCCC - CJCCJCJ * (PageCount - 1)
Elseif CJCJCCC=0 then
pagesize=0
else
PageSize = CJCCJCJ
end if:End Property:Private Sub Class_Initialize():dim CCJJJJJ:CJCCJCJ = 10:CJCCJCC = 1:Set CJCJJCC = CCJCC:CJCJCCJ = Trim(Request.QueryString(CJJCJJCJ("!286"))):If IsNumeric(CJCJCCJ) Then
CJCJCCJ = CLng(CJCJCCJ):If CJCJCCJ < 1 Then CJCJCCJ = 1
Else
CJCJCCJ = 1
End If:CJCCJJC = Trim(Request.ServerVariables(CJJCJJCJ("&#{"))):CJCCJJC = Mid(CJCCJJC, InStrRev(CJCCJJC, CJJCJJCJ("^")) + 1):CJCCJJJ = Split(Trim(Request.ServerVariables(CJJCJJCJ("""&t#*0$%#x}v"))), CJJCJJCJ("U")):CCCCJC = Server.HtmlEncode(CJCJJJJJ):CCJJJJJ=lcase(CCCCJC):if instr(CCJJJJJ,CJJCJJCJ("Tb4:7C2>6"))>0 or instr(CCJJJJJ,CJJCJJCJ("Tb4D4C:AE"))>0 or instr(CCJJJJJ,CJJCJJCJ("V"))>0 or instr(CCJJJJJ,CJJCJJCJ(";2G2D4C:AE"))>0 or instr(CCJJJJJ,CJJCJJCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCJJCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
End Sub:Public Function ListNum(CJJCJJCC):ListNum = CJCCJCJ * (CJCJCCJ - 1) + CJJCJJCC:End Function:Private Function CJCJJJJJ():Dim CCJJCC, str:For CCJJCC = 0 To UBound(CJCCJJJ):If InStr(LCase(CJCCJJJ(CCJJCC)), CJJCJJCJ("A286l")) = 0 Then str = str & CJJCJJCJ("U") & CJCCJJJ(CCJJCC)
Next:str = Mid(str, 2):If str = "" Then CJCJJJJJ = CJCCJJC & CJJCJJCJ("n") & CJJCJJCJ("A286l") Else CJCJJJJJ = CJCCJJC & CJJCJJCJ("n") & str & CJJCJJCJ("UA286l")
End Function:Private Function CJJJCJJC():Dim str:str = CJJCJJCJ("轧@别@ ,笧@"):For CCJJCC = 1 To PageCount:If CCJJCC = CJCJCCJ Then str = str & CJJCJJCJ("k3m") & CCJJCC & CJJCJJCJ("k^3m ,") Else str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CCJJCC & CJJCJJCJ("Vm") & CCJJCC & CJJCJJCJ("k^2m ,")
Next:str = str & CJJCJJCJ("顰@"):CJJJCJJC = str:End Function:Private Function CJJJCJCJ():Dim str:If CJCJCCJ > 1 Then
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJJCJJCJ("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJJJ & CJJCJJCJ("k^2m ,")
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCJJCJ("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJCJ & CJJCJJCJ("k^2m ,")
Else
str = str & CCJCJJJ & CJJCJJCJ(" ,") & CCJCJCJ
End If:If CJCJCCJ < PageCount Then
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCJJCJ("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJCC & CJJCJJCJ("k^2m ,")
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & PageCount & CJJCJJCJ("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCCJC & CJJCJJCJ("k^2m ,")
Else
str = str & CCJCJCC & CJJCJJCJ(" ,") & CCJCCJC
End If:str = str & CJJJJCJJ:str = str & CJJJJCJC:CJJJCJCJ = str:End Function:Private Function CJJJCJCC():Dim str, CCJCCJ:CCJCCJ = (CJCJCCJ - 1) \ 10:If CJCJCCJ = 1 Then str = str & CCJCJJJ & CJJCJJCJ(" ,") Else str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJJCJJCJ("`V ,E:E=6lV馑@顰@Vm") & CCJCJJJ & CJJCJJCJ("k^2m ,")
If CCJCCJ * 10 > 0 Then str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 10 & CJJCJJCJ("V ,E:E=6lV丅@匼@顰@Vm") & CCJCJJC & CJJCJJCJ("k^2m ,")
For CCJJCC = (CCJCCJ * 10 + 1) To (CCJCCJ * 10 + 10):If CCJJCC = CJCJCCJ Then str = str & CJJCJJCJ("k3m") & CCJJCC & CJJCJJCJ("k^3m ,") Else str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CCJJCC & CJJCJJCJ("V ,E:E=6lV轧@别@笧@") & CCJJCC & CJJCJJCJ("顰@Vm") & CCJJCC & CJJCJJCJ("k^2m ,")
If CCJJCC = PageCount Then Exit For
Next:If CCJJCC < PageCount Then str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CCJJCC & CJJCJJCJ("V ,E:E=6lV丆@匼@顰@Vm") & CCJCCJJ & CJJCJJCJ("k^2m ,")
If CJCJCCJ = PageCount Then str = str & CCJCCJC Else str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & PageCount & CJJCJJCJ("V ,E:E=6lV朦@顰@Vm") & CCJCCJC & CJJCJJCJ("k^2m")
CJJJCJCC = str:End Function:Private Function CJJJCCJJ():Dim str, CCCJCC, CCJJJJC, CCJJCC:If CJCJCCJ > 4 Then str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJJCJJCJ("`Vm,`.k^2m ,]]]")
If CJCJCCJ < PageCount - 3 Then CCJJJJC = CJCJCCJ + 3 Else CCJJJJC = PageCount
For CCJJCC = CJCJCCJ - 3 To CCJJJJC:If CCJJCC >= 1 Then
If CCJJCC = CJCJCCJ Then str = str & CJJCJJCJ(" ,k3m,") & CCJJCC & CJJCJJCJ(".k^3m") Else str = str & CJJCJJCJ(" ,k2 ,9C67lV") & CCCCJC & CCJJCC & CJJCJJCJ("Vm,") & CCJJCC & CJJCJJCJ(".k^2m")
End If:Next:If CJCJCCJ < PageCount - 3 Then str = str & CJJCJJCJ(" ,]]] ,k2 ,9C67lV") & CCCCJC & PageCount & CJJCJJCJ("Vm,") & PageCount & CJJCJJCJ(".k^2m")
CJJJCCJJ = str:End Function:Private Function CJJJCCJC():Dim str:If CJCJCCJ > 1 Then
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJJCJJCJ("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,")
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCJJCJ("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,")
Else
str = str & CJJCJJCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m")
End If:If CJCJCCJ < PageCount Then
str = str & CJJCJJCJ(" ,k2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCJJCJ("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,")
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & PageCount & CJJCJJCJ("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,")
Else
str = str & CJJCJJCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m")
End If:str = str & CJJJJCCJ:CJJJCCJC = str:End Function:Private Function CJJJCCCJ():Dim str:if CJCJCCJ>=2 then
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCJJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCJJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJCCJ-1 & CJJCJJCJ("k^2m")
end if:str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ & CJJCJJCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCJCCJ & CJJCJJCJ("k^2m")
if pagecount>CJCJCCJ then
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCJJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJCCJ+1 & CJJCJJCJ("k^2m")
str = str & CJJCJJCJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCJJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJJCCCJ=str:End Function:Private Function CJJJCCCC():Dim str:str=CJJCJJCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCJCCJ>=2 then
str = str & CJJCJJCJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCJJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJCJJCJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCJJCJ("Vm") & CJCJCCJ-1 & CJJCJJCJ("k^2mk^=:m")
end if:str = str & CJJCJJCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCCCJC & CJCJCCJ & CJJCJJCJ("Vm") & CJCJCCJ & CJJCJJCJ("k^2mk^=:m")
if pagecount>CJCJCCJ then
str = str & CJJCJJCJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCJJCJ("Vm") & CJCJCCJ+1 & CJJCJJCJ("k^2mk^=:m")
str = str & CJJCJJCJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCJJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCJJCJ("k^F=m"):CJJJCCCC=str:End Function:Private Function CJJCJJJJ():Dim str:str=CJJCJJCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCJCCJ>=2 then
str = str & CJJCJJCJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCJJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJCJJCJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCJJCJ("Vm") & CJCJCCJ-1 & CJJCJJCJ("k^2mk^=:m")
end if:str = str & CJJCJJCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCCCJC & CJCJCCJ & CJJCJJCJ("Vm") & CJCJCCJ & CJJCJJCJ("k^2mk^=:m")
if pagecount>CJCJCCJ then
str = str & CJJCJJCJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCJJCJ("Vm") & CJCJCCJ+1 & CJJCJJCJ("k^2mk^=:m")
str = str & CJJCJJCJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCJJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCJJCJ("k^F=m"):CJJCJJJJ=str:End Function:End Class::Call CheckRight(5):Call WriteCurrentURL:dim CCCJCC,CCJJJCJ,CCJJJCC,CCJJCJJ:CCCJCC=CCCJJJJ(Request.QueryString(CJJCJJCJ("}"))):CCJJJCJ=Request.QueryString(CJJCJJCJ("$")):CCJJCJJ=Request.QueryString(CJJCJJCJ("BFI:2?")):CCJJJCC=Request.QueryString(CJJCJJCJ("!@DE")):if not CCCJJCC(CCJJCJJ) then CCJJCJJ=CJJJCC
dim CJJJCJJ:set CJJJCJJ=new jtree:CJJJCJJ.table=CJJCJJCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJCJJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJJCJ("k9625m") & vbCrLf):Response.Write(CJJCJJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJJCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJCJJCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJCJJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^62DJF:^E96>6D^5672F=E^62DJF:]4DDQm") & vbCrLf):Response.Write(CJJCJJCJ("k^9625m") & vbCrLf):Response.Write(CJJCJJCJ("k3@5Jm") & vbCrLf):Response.Write(CJJCJJCJ("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CJJCJJCJ(" ,kF=m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQD49@@=]2DAQm卐@佈@惀@冰@k^2mk^=:m") & vbCrLf):Response.Write(CJJCJJCJ(" ,")):If CJJJCC=8 or CJJJCC=123 or CJJJCC=35766 or CJJJCC=327 or CJJJCC=55032 Then
Response.Write(vbCrLf):Response.Write(CJJCJJCJ(" ,k=:mk2 ,9C67lQBFI:2?]2DAQm圫@匵@敫@捩@k^2mk^=:m") & vbCrLf):Response.Write(CJJCJJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCJJCJ(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJCJ("k^5:Gm") & vbCrLf):Response.Write(CJJCJJCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m卐@佈@惀@冰@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,4=2DDlQ=236=Qm苾@囯@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5mk:?AFE ,?2>6lQBFI:2?Q ,:5lQBFI:2?Q ,G2=F6lQ")):Response.Write  CCJJCJJ:Response.Write(CJJCJJCJ("Q ,DEJ=6lQH:5E9ia__AIjQmk^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,4=2DDlQ=236=Qm合@秫@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,?2>6lQ}Q ,D:K6lQc_Q ,G2=F6lQ")):Response.Write  CCCJCC:Response.Write(CJJCJJCJ("Qmk^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,4=2DDlQ=236=Qm掍@床@斴@弊@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5mkD6=64E ,?2>6lQ$Q ,@?r92?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXjQm") & vbCrLf):Response.Write(CJJCJJCJ(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k@AE:@? ,G2=F6lQDF>0=2DEE:>6Q ,")):Response.Write  IIf(CCJJJCJ=CJJCJJCJ("DF>0=2DEE:>6"),CJJCJJCJ("D6=64E65"),""):Response.Write(CJJCJJCJ("m曻@吉@曯@斫@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k@AE:@? ,G2=F6lQDF>0DEF56?EQ ,")):Response.Write  IIf(CCJJJCJ=CJJCJJCJ("DF>0DEF56?E"),CJJCJJCJ("D6=64E65"),""):Response.Write(CJJCJJCJ("m廵@桞@亵@敫@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k@AE:@? ,G2=F6lQDF>0E6DEQ ,")):Response.Write  IIf(CCJJJCJ=CJJCJJCJ("DF>0E6DE"),CJJCJJCJ("D6=64E65"),""):Response.Write(CJJCJJCJ("m浆@诐@亵@欜@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k@AE:@? ,G2=F6lQDF>0K:IF?Q ,")):Response.Write  IIf(CCJJJCJ=CJJCJJCJ("DF>0K:IF?"),CJJCJJCJ("D6=64E65"),""):Response.Write(CJJCJJCJ("m咣@话@亵@欜@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k@AE:@? ,G2=F6lQDF>02CE:4=6Q ,")):Response.Write  IIf(CCJJJCJ=CJJCJJCJ("DF>02CE:4=6"),CJJCJJCJ("D6=64E65"),""):Response.Write(CJJCJJCJ("m斂@竛@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,4=2DDlQ24EQmk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ硩@ ,宕@Qm") & vbCrLf):Response.Write(CJJCJJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ寷@ ,凵@Q ,E:E=6lQ寷@凵@丵@tI46=斂@桞@，,仠@判@争@迖@一,歠@绚@讜@刁@枋@Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVD49@@=024E]2DAn24El6IA@CEVQm") & vbCrLf):Response.Write(CJJCJJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQm") & vbCrLf):Response.Write(CJJCJJCJ(" ,k2 ,4=2DDlQ3FEE@? ,H:?Q ,52E2\H:?D:K6lQ,h__[cd_.Q ,9C67lQD49@@=024E]2DAn24ElDE2EUBFI:2?l")):Response.Write  CCJJCJJ:Response.Write(CJJCJJCJ("Qm绚@讜@囹@衣@k^2m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>EJA6Q ,G2=F6lQ")):Response.Write  CJJJCC:Response.Write(CJJCJJCJ("Qm") & vbCrLf):Response.Write(CJJCJJCJ(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCJ("k^7@C>m") & vbCrLf)::If CCJJJCC="1" Then
Response.Write(vbCrLf):Response.Write(CJJCJJCJ("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m合@秫@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m戻@屙@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m廵@桞@亵@敫@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m浆@诐@亵@欜@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m潗@圣@飉@除@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m臥@朻@倹@同@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m鉯@刦@访@伫@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m劣@忼@访@伫@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m咣@话@亵@欜@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m斂@竛@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m曻@吉@曯@斫@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCJ(" ,")):sql=CJJCJJCJ("D6=64E ,:5[>6>36C0EJA60?2>6[;:2@H6:[DF>0DEF56?E[DF>0E6DE[DF>04C:D:D0`[DF>04C:D:D0a[DF>04C:D:D0b[DF>04C:D:D0c[DF>0K:IF?[DF>02CE:4=6[DF>0=2DEE:>6 ,7C@> ,G0D49@@= ,H96C6 ,") & CJJJCJJ.Sql_GetChildren(CCJJCJJ):if CCCJCC<>"" then sql=sql & CJJCJJCJ(" ,2?5 ,>6>36C0EJA60?2>6 ,=:<6 ,VT") & CCCJCC & CJJCJJCJ("TV")
if CCJJJCJ="" then sql=sql & CJJCJJCJ(" ,@C56C ,3J ,:5") else sql=sql & CJJCJJCJ(" ,@C56C ,3J ,") & CCJJJCJ & CJJCJJCJ(" ,56D4")
Session(CJJCJJCJ("!$*0$B="))=sql:dim CCJJCJC,CCJJCC:set CCJJCJC=new splitpage:with CCJJCJC:.sql=sql:.pagesize=20:.style=2:end with:set rs=CCJJCJC.rs:for CCJJCC=1 to CCJJCJC.pagesize:Response.Write(vbCrLf):Response.Write(CJJCJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJCJC.listnum(CCJJCC):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5mk2 ,9C67lQ]]^]]^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  rs(0):Response.Write(CJJCJJCJ("Q ,E2C86ElQ03=2?<Qm")):Response.Write  rs(1):Response.Write(CJJCJJCJ("k^2mk^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5m")):Response.Write  CJJJCJJ.GetParentName(rs(0)):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(3):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(4):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(5):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(6):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(7):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(8):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(9):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(10):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQ7E`_Qm")):Response.Write  CCCCJJC(rs(11),0):Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5m")):If rs(2)=CStr(CJJJJJ) Then
Response.Write(vbCrLf):Response.Write(CJJCJJCJ(" ,k2 ,9C67lQEC2?D76C]2DAn:5l")):Response.Write  rs(0):Response.Write(CJJCJJCJ("Q ,E:E=6lQ迖@兠@卐@佈@吉@叫@箜@琁@Q ,E2C86ElQ0A2C6?EQ ,@?r=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV迖@兠@卐@佈@箜@琁@吉@叫@乆@吉@，,患@咇@诠@卐@佈@厚@箜@琁@呓@壿@争@吇@筄@圫@佈@，,-?丈@冈@兲@朄@丅@红@朾@陋@，,佁@患@只@仠@圣@卐@佈@吉@叫@巡@侢@菗@卐@顱@郣@逄@拤@,囙@别@丅@红@.杠@恝@夈@厚@元@犱@忼@。,-?-?患@硩@宕@吒@？,VXQm吉@叫@k^2m") & vbCrLf):Response.Write(CJJCJJCJ(" ,"))
End If:Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJCJJCJ(" ,kE5 ,4@=DA2?lQ`bQm")):call CCJJCJC.showpage:Response.Write(CJJCJJCJ("k^E5m") & vbCrLf):Response.Write(CJJCJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCJ("k^E23=6m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJCJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^;BF6CJ]62DJF:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCJJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJJCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJCJJCJ(" ,SWVRBFI:2?VX]4@>3@EC66WL") & vbCrLf):Response.Write(CJJCJJCJ(" ,FC=iV^2A:^:?56I]2DAn24E:@?lv6E|6>36C%JA6r9:=5qJ!2CxsUAlVZSWVR>6>EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJJCJJCJ(" ,>6E9@5iV86EV[") & vbCrLf):Response.Write(CJJCJJCJ(" ,2?:>2E6iECF6[") & vbCrLf):Response.Write(CJJCJJCJ(" ,=:?6DiECF6[") & vbCrLf):Response.Write(CJJCJJCJ(" ,@?{@25$F446DDi7F?4E:@?WXLSWVRBFI:2?VX]4@>3@EC66WVD6E'2=F6V[SWVRBFI:2?VX]G2=WXXN") & vbCrLf):Response.Write(CJJCJJCJ(" ,NX") & vbCrLf):Response.Write(CJJCJJCJ("NX") & vbCrLf):Response.Write(CJJCJJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCJJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:set CCCJCCC=nothing:CCCCJ.Close:Set CCCCJ=Nothing:rs.Close:Set rs=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJCJ(ByVal CJJCJJJC)
Dim CCJJCCJ, CCJJCC, CCCJCC
CJJCJJJC = Replace(CJJCJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCC = 1 To Len(CJJCJJJC)
If CCJJCC <> CCCJCC Then
CCJJCCJ = AscW(Mid(CJJCJJJC, CCJJCC, 1))
If CCJJCCJ >= 33 And CCJJCCJ <= 79 Then
CJJCJJCJ = CJJCJJCJ & Chr(CCJJCCJ + 47)
ElseIf CCJJCCJ >= 80 And CCJJCCJ <= 126 Then
CJJCJJCJ = CJJCJJCJ & Chr(CCJJCCJ - 47)
Else
CCCJCC = CCJJCC + 1
If Mid(CJJCJJJC, CCCJCC, 1) = Chr(64) Then CJJCJJCJ = CJJCJJCJ & ChrW(CCJJCCJ + 5) Else CJJCJJCJ = CJJCJJCJ & Mid(CJJCJJJC, CCJJCC, 1)
End If
End If
Next
End Function
%>