<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJC, CJCCJ,rs, CCJJJ, sql:Set CJCJC = server.CreateObject(CJJCJJCC("ps~sq]r@??64E:@?")):CJCJC.open Application(CJJCJJCC("r@??64E:@?$EC:?8")):Set CJCCJ=CJCJC::Dim CCJCJ,CCJCC,CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ:Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ:CJCCJJ=Trim(Request.Cookies(CJJCJJCC("!$*|t|qt#"))):if CJCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJ>0 then
sql=CJJCJJCC("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") & CCJCC & CJJCJJCC("V ,2?5 ,:5l") & CCJCJ
set rs=CJCJC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCCJJ=rs(2) & "":CCCJC=rs(3):CCCCJ=rs(5):CCCCC=rs(6):CJJJJJ=rs(9):CJJJJC=rs(15):CJJJCC=rs(0):CJCJCJ=rs(1):CJCJJC=rs(11) & "":CJJCJJ=rs(10) & "":CJJJCJ=rs(12):CJJCJC=rs(14):CJJCCJ=rs(13):CJJCCC=rs(7) & "":CJCJJJ=rs(4):CJCJCC=rs(8):if isnull(CJJJJC) then CJJJJC=0
if isnull(CJJJJJ) or CJJJJJ=0 then CJJJJJ=CCCJC
if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CCCCJ) then CCCCJ=0
if instr(CJJCJJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCC)>0 then Call RedirectMessage(CJJCJJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCJ,CCJCC)
End IF
end if:Sub CheckRight(CCJJJJC):dim CJCCJC,CJCCCJ:if CCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCJJJC(CCJJJJC) then
Call RedirectMessage(CJJCJJCC("朾@陋@W") & CCJJJJC & CJJCJJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCJJJC(CCJJJJC):dim CJCCJC,CJCCCJ:CJCCCJ=split(CCJJJJC,CJJCJJCC("[")):CCCJJJC=False:for CJCCJC=0 to ubound(CJCCCJ):If Mid(CCCJJ,CJCCCJ(CJCCJC),1)="1" then
CCCJJJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJCC("!$*|t|qt#"))="":CCJCJ=0:CCCCC=0:CCJCC=Empty:CCCCJ=0:CJJJJC=0:CJJJJJ=0:CCCJC=0:CJJJCC=False:CJCJCJ=False:CJCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCC,CCJJJJ,CJCCJC,CCJJJC,CCJJCJ:CJCCCC=split(CJCCJJ,CJJCJJCC("]")):if ubound(CJCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCC(0)) or len(CJCCCC(1))<>32 or len(CJCCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJJJ=CJCCCC(1):for CJCCJC=1 to len(CCJJJJ):CCJJJC=mid(CCJJJJ,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJJJ=CJCCCC(2):if CCJJCJ<>mid(CCJJJJ,6,7) then
Call ClearMemberCookie
else
CCJJJC=mid(CCJJJJ,18,10)/2:if CCJJJC<DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJ=Clng(CJCCCC(0)):CCJCC=CJCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJJ,CJJCJCJJ):dim CJCCJC,CCJJJC,CCJJCJ:for CJCCJC=1 to len(CJJCJCJJ):CCJJJC=mid(CJJCJCJJ,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJCJ=CJCCCJJ & CJJCJJCC("]") & CJJCJCJJ & CJJCJJCC("]") & Fix(10000*(Rnd+1)) & CCJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJCC("D"), CJJCJJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJCC("!$*|t|qt#"))=CCJJCJ:End Sub::Function CCCJJCJ(CJJCJCJC):Dim str,CCJCJJ:str = Trim(CJJCJCJC):If IsNull(str) Or str = "" Then
CCCJJCJ = ""
else
str=Replace(str, CJJCJJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCJJCC("k:7C2>6"), CJJCJJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCJJCC("kD4C:AE"), CJJCJJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJCJJ=new RegExp:CCJCJJ.Pattern=CJJCJJCC("@?W,2\K.ZXl"):CCJCJJ.IgnoreCase = True:CCJCJJ.Global=True:str=CCJCJJ.Replace(str,CJJCJJCC("@?S`U6BF2=Dj")):set CCJCJJ=nothing:CCCJJCJ=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 CCJCJJJ="^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 CJCCJC,CCJJJC,CCJCJC:if isarray(str) then
on error resume next:CJCCJC=ubound(str,2):CCJCJC=err.number:err.clear:on error goto 0:if CCJCJC<>0 then
for CJCCJC=0 to ubound(str):if CJCCJC>0 then response.Write CJJCJJCC("k3C ,^m")
response.Write CJCCJC & CJJCJJCC("i ,") & str(CJCCJC):next
else
response.Write CJJCJJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCJC=0 to ubound(str,2):response.Write CJJCJJCC("kE9 ,2=:8?lV=67EVm") & CJCCJC & CJJCJJCC("k^E9m")
next:response.Write CJJCJJCC("k^ECm"):for CJCCJC=0 to ubound(str):response.Write CJJCJJCC("kECmkE9m") & CJCCJC & CJJCJJCC("k^E9m"):for CCJJJC=0 to ubound(str,2):response.Write CJJCJJCC("kE5m") & str(CJCCJC,CCJJJC) & CJJCJJCC("k^E5m"):next:response.Write CJJCJJCC("k^ECm"):next:response.Write CJJCJJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCJCJJ():Dim CCJCCJ, CCJCCC:CCJCCC = Request.ServerVariables(CJJCJJCC("!p%w0x}u~")):CCJCCJ = Request.ServerVariables(CJJCJJCC("""&t#*0$%#x}v")):If CCJCCJ <> Empty Then
if instr(lcase(CCJCCJ),CJJCJJCC("Tb4:7C2>6"))>0 or instr(lcase(CCJCCJ),CJJCJJCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CCJCCC = CCJCCC & CJJCJJCC("n") & CCJCCJ
end if:CCCJCJJ = CCJCCC:End Function:Sub SetHttpOnlyCookie(CJJCCJJC,CJJCCJCJ):dim CJCCCC:CJCCCC=CJJCCJJC & CJJCJJCC("l") & CJJCCJCJ & CJJCJJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJCC("$6E\r@@<:6"),CJCCCC):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJCJJCC("!$*"))(CJJCJJCC("&#{")) = CCCJCJJ:End Sub::Function CCCJCJC(ByVal Str, ByVal StrLen):Dim CCCJJJ, CCCJJC, CCCJCJ, CJCCJC:if isnull(str) then
CCCJCJC=""
else
CCCJJJ = Len(Str):CCCJJC = 0:For CJCCJC = 1 To CCCJJJ:CCCJCJ = AscW(Mid(Str, CJCCJC, 1)):If CCCJCJ < 0 Or CCCJCJ > 255 Then CCCJJC = CCCJJC + 2 Else CCCJJC = CCCJJC + 1
If CCCJJC >= StrLen Then
CCCJCJC = Left(Str, CJCCJC) & CJJCJJCC("]]]"):Exit For
Else
CCCJCJC = Str
End If:Next
end if:End Function::::Function CCCJCCJ(CCJCJC):if isnull(CCJCJC) or trim(CCJCJC)="" or not isnumeric(CCJCJC) then
CCCJCCJ=false
else
Dim CCJCJJ:Set CCJCJJ = New RegExp:CCJCJJ.Pattern = CJJCJJCC("/-5ZS"):CCJCJJ.IgnoreCase = True:CCCJCCJ = CCJCJJ.test(CCJCJC):set CCJCJJ=nothing
end if:End Function:Function CCCJCCC(CJJCCJCC):dim CCCJCC,CCCCJJ:CCCJCC=CJJCJJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCCJCC & CJJCJJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCJJ=CJCJC.execute(CCCJCC):CCCJCCC = CCCCJJ(0):if isnull(CCCJCCC) then CCCJCCC=1
CCCCJJ.close : set CCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJJJC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:CCCCJJ.close : set CCCCJJ=nothing:CCJJJ.Close : Set CCJJJ=Nothing:rs.Close : Set rs=Nothing:CCCCJCC.Close : Set CCCCJCC = Nothing:CJCJC.Close : Set CJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJCC("!$*0|6DD286"),server.URLEncode(CJJCCCJJ)):Response.Redirect CJJCJJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::Function CCCCCJJ(CJJCCCJC):CCCCCJJ=CJJCCCJC:End Function:::::Function CCCCCJC(ByVal CCCCCCJ,style):if not isdate(CCCCCCJ) then
CCCCCJC=CCCCCCJ:exit function
end if:dim CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:CCCCCCJ=cdate(CCCCCCJ):CCCCJC=Year(CCCCCCJ):CCCCCJ=Month(CCCCCCJ):CCCCCC=Day(CCCCCCJ):select case style:case 0:CCCCCJC=CCCCJC & CJJCJJCC("\") & right(0 & CCCCCJ,2) & CJJCJJCC("\") & right(0 & CCCCCC,2):case 1:CCCCCJC=CCCCJC & right(0 & CCCCCJ,2) & right(0 & CCCCCC,2):case 2:CCCCCJC=right(CCCCJC,2) & CJJCJJCC("\") & right(0 & CCCCCJ,2) & CJJCJJCC("\") & right(0 & CCCCCC,2):case 3:CCCCCJC=CCCCJC & CJJCJJCC("\") & right(0 & CCCCCJ,2):case 4:CCCCCJC=right(0 & CCCCCJ,2) & CJJCJJCC("\") & right(0 & CCCCCC,2):case 5:CCCCCJC=right(0 & CCCCCC,2):case 6:CCCCCJC=CCCCJC & CJJCJJCC("幯@") & right(0 & CCCCCJ,2) & CJJCJJCC("會@") & right(0 & CCCCCC,2) & CJJCJJCC("无@"):case else
CCCCCJC=CCCCCCJ:end select:End Function::::::::::::::::::::Sub ClearCache(CJJCCCCJ):Application.Contents.Remove CJJCCCCJ
End Sub::Const CCJCJJC ="<span style='font-family:webdings;'>9</span>"
Const CCJCJCJ ="<span style='font-family:webdings;'>7</span>"
Const CCJCJCC ="<span style='font-family:webdings;'>3</span>"
Const CCJCCJJ ="<span style='font-family:webdings;'>4</span>"
Const CCJCCJC ="<span style='font-family:webdings;'>8</span>"
Const CCJCCCJ ="<span style='font-family:webdings;'>:</span>"
Const CCJCCCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJJJJCJ, CJJJJCC, CJJJCJJ, CJJJCJC, CJJJCCJ, CCJCCC, CJJJCCC, CJJCJJJ, CJJCJJC, CJJCJCJ:Private Function CCCCCCC():Dim CJJCJCC:CJJCJCC = "共<span style='color:#f00;'><b>" & CJJJCCJ & CJJCJJCC("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJCJJC & CJJCJJCC("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJCJC & CJJCJJCC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCJJCC("k^3mk^DA2?m顰@")
CCCCCCC = CJJCJCC:End Function:Private Function CJJJJJJJ():CJJJJJJJ = CJJCJJCC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJJJCJC & CJJCJJCC("V ,DEJ=6lV") & CCJCCCC & CJJCJJCC("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") & CCJCCC & CJJCJJCC("VZE9:D]G2=F6Qm")
End Function:Private Function CJJJJJJC():CJJJJJJC = CJJCJJCC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCJCCCC & CJJCJJCC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCJCCC & CJJCJJCC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJJJJCJ():Dim CJJCJCC, CJCCJC:CJJCJCC = CJJCJJCC(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCJCCC & CJJCJJCC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJCCJC = 1 To PageCount:CJJCJCC = CJJCJCC & CJJCJJCC("k@AE:@? ,G2=F6lV") & CJCCJC & CJJCJJCC("V")
If CJCCJC = CJJJCJC Then CJJCJCC = CJJCJCC & CJJCJJCC(" ,D6=64E65")
CJJCJCC = CJJCJCC & CJJCJJCC("m") & CJCCJC & CJJCJJCC("k^@AE:@?m"):Next:CJJCJCC = CJJCJCC & CJJCJJCC("k^D6=64Em顰@"):CJJJJJCJ = CJJCJCC:End Function:Public Sub ShowPage():Dim CJCCJC, CJJCCJJ,CJJCCJC,CJJCCCJ:if CJJJCCJ>0 then
CJJCCJJ = CJJCJJCC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CCCCCCC & CJJCJJCC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJJCJCJ:Case 1: CJJCCCJ = CJJJJCJC:Case 2: CJJCCCJ = CJJJJCCJ:Case 3: CJJCCCJ = CJJJJCCC:Case 4: CJJCCCJ = CJJJCJJJ:Case 5: CJJCCCJ = CJJJCJJC:Case 6: CJJCCCJ = CJJJCJCJ:Case 7: CJJCCCJ = CJJJCJCC:Case 8: CJJCCCJ = CJJJCCJJ:End Select
End If:CJJCCJC = CJJCJJCC("k^5:Gmk^5:Gm")
end if:if CJJCJCJ>=6 then
Response.Write CJJCCCJ
else
Response.Write CJJCCJJ & CJJCCCJ & CJJCCJC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJJJJCC = Server.CreateObject(CJJCJJCC("ps~sq]#64@C5$6E")):CJJJJCC.PageSize = CJJCJJC:CJJJJCC.Open CJJJCJJ, CJJJJCJ, 1:If err then
Response.Write	CJJCJJCC("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 & CJJCJJCC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJJJJCC.EOF Then
CJJJCCJ = CJJJJCC.RecordCount:PageCount = CJJJJCC.PageCount:If CJJJCJC > PageCount Then CJJJCJC = PageCount
CJJJJCC.AbsolutePage = CJJJCJC
End If:Set Rs = CJJJJCC:End Function:Public Property Let CJCCJ(CJJCCCCC):Set CJJJJCJ = CJJCCCCC:End Property:Public Property Let SQL(str):CJJJCJJ = str:End Property:Public Property Let Style(CCJJJJC):If IsNumeric(CCJJJJC) Then
CJJCJCJ = CInt(CCJJJJC):If CJJCJCJ < 1 Or CJJCJCJ > 8 Then CJJCJCJ = 1
Else
CJJCJCJ = 1
End If:End Property:Public Property Let PageSize(CCJJJJC):If IsNumeric(CCJJJJC) Then
CJJCJJC = CInt(CCJJJJC):If CJJCJJC < 1 Then CJJCJJC = 10
Else
CJJCJJC = 10
End If:End Property:Public Property Get PageSize():If CJJJCJC = PageCount Then
PageSize = CJJJCCJ - CJJCJJC * (PageCount - 1)
Elseif CJJJCCJ=0 then
pagesize=0
else
PageSize = CJJCJJC
end if:End Property:Private Sub Class_Initialize():dim CJJCCCC:CJJCJJC = 10:CJJCJCJ = 1:Set CJJJJCJ = CJCJC:CJJJCJC = Trim(Request.QueryString(CJJCJJCC("!286"))):If IsNumeric(CJJJCJC) Then
CJJJCJC = CLng(CJJJCJC):If CJJJCJC < 1 Then CJJJCJC = 1
Else
CJJJCJC = 1
End If:CJJCJJJ = Trim(Request.ServerVariables(CJJCJJCC("&#{"))):CJJCJJJ = Mid(CJJCJJJ, InStrRev(CJJCJJJ, CJJCJJCC("^")) + 1):CJJJCCC = Split(Trim(Request.ServerVariables(CJJCJJCC("""&t#*0$%#x}v"))), CJJCJJCC("U")):CCJCCC = Server.HtmlEncode(CJCJJJJJ):CJJCCCC=lcase(CCJCCC):if instr(CJJCCCC,CJJCJJCC("Tb4:7C2>6"))>0 or instr(CJJCCCC,CJJCJJCC("Tb4D4C:AE"))>0 or instr(CJJCCCC,CJJCJJCC("V"))>0 or instr(CJJCCCC,CJJCJJCC(";2G2D4C:AE"))>0 or instr(CJJCCCC,CJJCJJCC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
End Sub:Public Function ListNum(CCJJJJC):ListNum = CJJCJJC * (CJJJCJC - 1) + CCJJJJC:End Function:Private Function CJCJJJJJ():Dim CJCCJC, str:For CJCCJC = 0 To UBound(CJJJCCC):If InStr(LCase(CJJJCCC(CJCCJC)), CJJCJJCC("A286l")) = 0 Then str = str & CJJCJJCC("U") & CJJJCCC(CJCCJC)
Next:str = Mid(str, 2):If str = "" Then CJCJJJJJ = CJJCJJJ & CJJCJJCC("n") & CJJCJJCC("A286l") Else CJCJJJJJ = CJJCJJJ & CJJCJJCC("n") & str & CJJCJJCC("UA286l")
End Function:Private Function CJJJJCJC():dim str:str = CJJCJJCC("轧@别@ ,笧@"):For CJCCJC = 1 To PageCount:If CJCCJC = CJJJCJC Then str = str & CJJCJJCC("k3m") & CJCCJC & CJJCJJCC("k^3m ,") Else str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJCCJC & CJJCJJCC("Vm") & CJCCJC & CJJCJJCC("k^2m ,")
Next:str = str & CJJCJJCC("顰@"):CJJJJCJC = str:End Function:Private Function CJJJJCCJ():Dim str:If CJJJCJC > 1 Then
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJCJJCC("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJJC & CJJCJJCC("k^2m ,")
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC - 1 & CJJCJJCC("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJCC & CJJCJJCC("k^2m ,")
Else
str = str & CCJCJJC & CJJCJJCC(" ,") & CCJCJCC
End If:If CJJJCJC < PageCount Then
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC + 1 & CJJCJJCC("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCCJJ & CJJCJJCC("k^2m ,")
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & PageCount & CJJCJJCC("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCCCJ & CJJCJJCC("k^2m ,")
Else
str = str & CCJCCJJ & CJJCJJCC(" ,") & CCJCCCJ
End If:str = str & CJJJJJJJ:str = str & CJJJJJJC:CJJJJCCJ = str:End Function:Private Function CJJJJCCC():Dim str, CCJJJJ:CCJJJJ = (CJJJCJC - 1) \ 10:If CJJJCJC = 1 Then str = str & CCJCJJC & CJJCJJCC(" ,") Else str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJCJJCC("`V ,E:E=6lV馑@顰@Vm") & CCJCJJC & CJJCJJCC("k^2m ,")
If CCJJJJ * 10 > 0 Then str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC - 10 & CJJCJJCC("V ,E:E=6lV丅@匼@顰@Vm") & CCJCJCJ & CJJCJJCC("k^2m ,")
For CJCCJC = (CCJJJJ * 10 + 1) To (CCJJJJ * 10 + 10):If CJCCJC = CJJJCJC Then str = str & CJJCJJCC("k3m") & CJCCJC & CJJCJJCC("k^3m ,") Else str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJCCJC & CJJCJJCC("V ,E:E=6lV轧@别@笧@") & CJCCJC & CJJCJJCC("顰@Vm") & CJCCJC & CJJCJJCC("k^2m ,")
If CJCCJC = PageCount Then Exit For
Next:If CJCCJC < PageCount Then str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJCCJC & CJJCJJCC("V ,E:E=6lV丆@匼@顰@Vm") & CCJCCJC & CJJCJJCC("k^2m ,")
If CJJJCJC = PageCount Then str = str & CCJCCCJ Else str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & PageCount & CJJCJJCC("V ,E:E=6lV朦@顰@Vm") & CCJCCCJ & CJJCJJCC("k^2m")
CJJJJCCC = str:End Function:Private Function CJJJCJJJ():Dim str, CCJCJC, CJCJJJJ, CJCCJC:If CJJJCJC > 4 Then str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJCJJCC("`Vm,`.k^2m ,]]]")
If CJJJCJC < PageCount - 3 Then CJCJJJJ = CJJJCJC + 3 Else CJCJJJJ = PageCount
For CJCCJC = CJJJCJC - 3 To CJCJJJJ:If CJCCJC >= 1 Then
If CJCCJC = CJJJCJC Then str = str & CJJCJJCC(" ,k3m,") & CJCCJC & CJJCJJCC(".k^3m") Else str = str & CJJCJJCC(" ,k2 ,9C67lV") & CCJCCC & CJCCJC & CJJCJJCC("Vm,") & CJCCJC & CJJCJJCC(".k^2m")
End If:Next:If CJJJCJC < PageCount - 3 Then str = str & CJJCJJCC(" ,]]] ,k2 ,9C67lV") & CCJCCC & PageCount & CJJCJJCC("Vm,") & PageCount & CJJCJJCC(".k^2m")
CJJJCJJJ = str:End Function:Private Function CJJJCJJC():Dim str:If CJJJCJC > 1 Then
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJCJJCC("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,")
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC - 1 & CJJCJJCC("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,")
Else
str = str & CJJCJJCC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m")
End If:If CJJJCJC < PageCount Then
str = str & CJJCJJCC(" ,k2 ,9C67lV") & CCJCCC & CJJJCJC + 1 & CJJCJJCC("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,")
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & PageCount & CJJCJJCC("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,")
Else
str = str & CJJCJJCC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m")
End If:str = str & CJJJJJCJ:CJJJCJJC = str:End Function:Private Function CJJJCJCJ():Dim str:if CJJJCJC>=2 then
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC - 1 & CJJCJJCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC - 1 & CJJCJJCC("V ,52E2\C@=6lV3FEE@?Vm") & CJJJCJC-1 & CJJCJJCC("k^2m")
end if:str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC & CJJCJJCC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJJJCJC & CJJCJJCC("k^2m")
if pagecount>CJJJCJC then
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC + 1 & CJJCJJCC("V ,52E2\C@=6lV3FEE@?Vm") & CJJJCJC+1 & CJJCJJCC("k^2m")
str = str & CJJCJJCC("k2 ,9C67lV") & CCJCCC & CJJJCJC + 1 & CJJCJJCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJJCJCJ=str:End Function:Private Function CJJJCJCC():Dim str:str=CJJCJJCC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJJJCJC>=2 then
str = str & CJJCJJCC("k=:mk2 ,9C67lV") & CCJCCC & CJJJCJC - 1 & CJJCJJCC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCJJCC("k=:mk2 ,9C67lV") & CCJCCC & CJJJCJC - 1 & CJJCJJCC("Vm") & CJJJCJC-1 & CJJCJJCC("k^2mk^=:m")
end if:str = str & CJJCJJCC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCJCCC & CJJJCJC & CJJCJJCC("Vm") & CJJJCJC & CJJCJJCC("k^2mk^=:m")
if pagecount>CJJJCJC then
str = str & CJJCJJCC("k=:mk2 ,9C67lV") & CCJCCC & CJJJCJC + 1 & CJJCJJCC("Vm") & CJJJCJC+1 & CJJCJJCC("k^2mk^=:m")
str = str & CJJCJJCC("k=:mk2 ,9C67lV") & CCJCCC & CJJJCJC + 1 & CJJCJJCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCJJCC("k^F=m"):CJJJCJCC=str:End Function:Private Function CJJJCCJJ():Dim str:str=CJJCJJCC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJJJCJC>=2 then
str = str & CJJCJJCC("k=:mk2 ,9C67lV") & CCJCCC & CJJJCJC - 1 & CJJCJJCC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCJJCC("k=:mk2 ,9C67lV") & CCJCCC & CJJJCJC - 1 & CJJCJJCC("Vm") & CJJJCJC-1 & CJJCJJCC("k^2mk^=:m")
end if:str = str & CJJCJJCC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCJCCC & CJJJCJC & CJJCJJCC("Vm") & CJJJCJC & CJJCJJCC("k^2mk^=:m")
if pagecount>CJJJCJC then
str = str & CJJCJJCC("k=:mk2 ,9C67lV") & CCJCCC & CJJJCJC + 1 & CJJCJJCC("Vm") & CJJJCJC+1 & CJJCJJCC("k^2mk^=:m")
str = str & CJJCJJCC("k=:mk2 ,9C67lV") & CCJCCC & CJJJCJC + 1 & CJJCJJCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCJJCC("k^F=m"):CJJJCCJJ=str:End Function:End Class::Class jTree:Private Sql, CJCJJJC, CJCJJCJ, CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Private Sub Class_Initialize():CJCJJCJ = 0:CJCJJCC = 0:CJCJCCC=10:End Sub:Public Property Let Table(CJCJJJJC):if CJCJJJJC="" then Call RedirectMessage(CJJCJJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJCJJ=CJCJJJJC:CJCJCJC=CJJCJJCC("!$*0") & UCase(CJCJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCJJ:End Property:::Private Sub GetTreeArray():Dim CJCCJC, CCJJJC, CJCCJJJ,RecordCount:CJCJJJC = Application(CJCJCJC):If Not IsArray(CJCJJJC) Then
Sql = CJJCJJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCJJ:if CJCJCCJ<>"" then Sql=Sql & CJJCJJCC(" ,H96C6 ,") & CJCJCCJ
set CJCCJJJ=CJCJC.execute(sql):RecordCount=CJCCJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJCJJCC("柠@话@W") & CJCJCJJ & CJJCJJCC("^") & CJCJCCJ & CJJCJJCC("X沜@朄@绎@林@敫@捩@"))
CJCJJCC=RecordCount+CJCJCCC:ReDim CJCJJJC(CJCJJCC, 4):Sql = CJJCJJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJCJJCC(" ,H:E9 ,W?@=@4<X"):if CJCJCCJ<>"" then Sql=Sql & CJJCJJCC(" ,H96C6 ,") & CJCJCCJ
Sql=Sql & CJJCJJCC(" ,@C56C ,3J ,D@CE[:5"):set CJCCJJJ=CJCJC.execute(sql):For CJCCJC = 1 To RecordCount:For CCJJJC = 0 To 4:CJCJJJC(CJCCJC, CCJJJC) = CJCCJJJ(CCJJJC):if IsNull(CJCJJJC(CJCCJC,4)) then CJCJJJC(CJCCJC,4)=0
If CJCJJJC(CJCCJC,2)="" then CJCJJJC(CJCCJC,2)=CJJCJJCC(",穵@.")
Next:CJCCJJJ.MoveNext:Next:CJCCJJJ.Close: Set CJCCJJJ = Nothing:for CJCCJC=CJCJJCC-(CJCJCCC-1) to CJCJJCC:CJCJJJC(CJCCJC,0)=CJCCJC:next:Application.Lock():Application(CJCJCJC) = CJCJJJC:Application.UnLock()
else
CJCJJCC=Ubound(CJCJJJC)
End If:End Sub:::::Private Function CJJJCCCJ(CJCCCJJ):dim CJCCJC,CJCCJCJ:CJJJCCCJ=0:CJCCJCJ=CStr(CJCCCJJ):if CJCCJCJ<>"0" then
for CJCCJC=1 to CJCJJCC:If CStr(CJCJJJC(CJCCJC, 0))=CJCCJCJ Then
CJJJCCCJ = CJCCJC:Exit For
End If:Next
end if:End Function::::Public Function CJJJCCCC(CJCCCJJ):Dim CJCCJC,CJCCJCC:CJCCJC=CJJJCCCJ(CJCCCJJ):if CJCCJC=0 then
CJCCJCC=CJJCJJJJ(CJCCCJJ)
else
CJCCJCC=CJCJJJC(CJCCJC,3):if isnull(CJCCJCC) or CJCCJCC="" then
CJCCJCC=CJJCJJJJ(CJCCCJJ)
elseif Mid(CJCCJCC,instrrev(CJCCJCC,CJJCJJCC("["))+1)<>CStr(CJCCCJJ) then
CJCCJCC=CJJCJJJJ(CJCCCJJ)
elseif Left(CJCCJCC,1)=CJJCJJCC("[") then
CJCCJCC=CJJCJJJJ(CJCCCJJ)
end if
end if:CJJJCCCC=CJCCJCC:End Function:Private Function CJJCJJJJ(CJCCCJJ):dim CJCCJCJ:CJCCJCJ=CStr(CJCCCJJ):if CJCCJCJ="0" then
CJJCJJJJ=""
else
dim CJCCJJJ:set CJCCJJJ=CJCJC.execute(CJJCJJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJCJJCC(" ,H96C6 ,:5l") & CJCCCJJ):if CJCCJJJ.eof then
Call UpdateCache(CJCCCJJ,"","","",""):Call RedirectMessage(CJJCJJCC("顴@盩@（,xs：,") & CJCCCJJ & CJJCJJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCCJJJ(0)=0 then
CJJCJJJJ="0," & CJCCCJJ
else
CJJCJJJJ=CJJJCCCC(CJCCJJJ(0)) & CJJCJJCC("[") & CJCCCJJ
end if:if CJCCJJJ(2)<>CJJCJJJJ then
CJCJC.execute CJJCJJCC("FA52E6 ,") & CJCJCJJ & CJJCJJCC(" ,D6E ,A2E9lV") & CJJCJJJJ & CJJCJJCC("V ,H96C6 ,:5l") & CJCCCJJ
else
CJJCJJJJ=CJCCJJJ(2)
end if
end if:Call UpdateCache(CJCCCJJ,CJCCJJJ(0),CJCCJJJ(1),CJJCJJJJ,CJCCJJJ(3)):CJCCJJJ.Close: Set CJCCJJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJCCCJJ):dim CJCCJCC:CJCCJCC=CJJJCCCC(CJCCCJJ):Sql_GetChildren = CJCJCJJ & CJJCJJCC("0A2E9ZV[V ,=:<6 ,V") & CJCCJCC & CJJCJJCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJCJC
End Sub:Public Sub UpdateCache(CJCCCJJ,CJCJJJCJ,CJCJJJCC,CJCCJCC,CJCJJCJJ):dim CJCCJC,CCJJJC:CJCCCJJ=CLng(CJCCCJJ):CJCCJC=CJJJCCCJ(CJCCCJJ):if CJCJJJCJ="" and CJCJJJCC="" and CJCCJCC="" and CJCJJCJJ="" then
if CJCCJC>0 then
for CCJJJC=1 to 4:CJCJJJC(CJCCJC,CCJJJC)=Null:next
end if
else
if CJCCJC=0 then
for CCJJJC=1 to CJCJJCC:if CJCJJJC(CCJJJC,1) & ""="" then
CJCCJC=CCJJJC:exit for
end if:next
end if:if CJCCJC=0 then
Call ClearCache
else
CJCJJJC(CJCCJC,0)=CLng(CJCCCJJ):if CJCJJJCJ<>"" then CJCJJJC(CJCCJC,1)=CLng(CJCJJJCJ)
if CJCJJJCC<>"" then CJCJJJC(CJCCJC,2)=CJCJJJCC
if CJCCJCC<>"" then CJCJJJC(CJCCJC,3)=CJCCJCC
if CJCJJCJJ<>"" then CJCJJJC(CJCCJC,4)=CLng(CJCJJCJJ)
end if
end if:if CJCCJC>0 then
Application.Lock():Application(CJCJCJC) = CJCJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCCCJJ):Call ConnClose:Response.Write CJJCCCJJ:Response.End:End Sub:Private Function CCCJCCC():CCCJCCC=CJJCJJCJ+1:End Function:Private Function CJJCJJCJ():dim CCCCJJ:set CCCCJJ=CJCJC.execute(CJJCJJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCJJ & CJJCJJCC(" ,@C56C ,3J ,:5 ,56D4")):CJJCJJCJ=CCCCJJ(0):CCCCJJ.Close: Set CCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(25):Call WriteCurrentURL:Const CCCJJJJ="<span style='color:#070;'>√</span>"
dim CJCJJJC:set CJCJJJC=new jtree:CJCJJJC.table=CJJCJJCC(">6>36C0EJA6"):dim CJCCCJJ,CCCJJC,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJ,CCJJJJJ,CCJJJJC,CCCCCJ,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC:CJCCCJJ=Request.QueryString(CJJCJJCC(":5")):CJCCCCJ=CCCJJCJ(Request.QueryString(CJJCJJCC("F?2>6"))):CJCCCCC=CCCJJCJ(Request.QueryString(CJJCJJCC("?:4<"))):CCCCCJ=CCCJJCJ(Request.QueryString(CJJCJJCC("|"))):CCJJJJC=Request.QueryString(CJJCJJCC("}F>")):CCCJJC=Request.QueryString(CJJCJJCC("E")):CJCCCJC=Request.QueryString(CJJCJJCC("$")):CCJJJJ=Request.QueryString(CJJCJJCC("!")):CCJJJJJ=Request.QueryString(CJJCJJCC("+")):CCJJJCJ=Request.QueryString(CJJCJJCC("p")):CCJJCJC=request.QueryString(CJJCJJCC("vC@FA")):CCJJJCC=replace(Request.QueryString(CJJCJJCC(">@3:=6")),CJJCJJCC(" ,"),""):CCJJCJJ=Request.QueryString(CJJCJJCC("C62=?2>6")):if not CCCJCCJ(CJCCCJC) then CJCCCJC=1 else CJCCCJC=cint(CJCCCJC)
if not CCCJCCJ(CCJJJJJ) then CCJJJJJ=5 else CCJJJJJ=cint(CCJJJJJ)
Response.Write(vbCrLf):Response.Write(CJJCJJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCJJCC("k9E>=m") & vbCrLf):Response.Write(CJJCJJCC("k9625m") & vbCrLf):Response.Write(CJJCJJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJJCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJCJJCC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJCJJCC("k^9625m") & vbCrLf):Response.Write(CJJCJJCC("k3@5Jm") & vbCrLf):Response.Write(CJJCJJCC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9 ,C@HDA2?lQaQm·, ,伕@呓@ ,·,k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qmxs：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQxsQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQgQ ,G2=F6lQ")):Response.Write  CJCCCJJ:Response.Write(CJJCJJCC("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm癶@彐@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQ&?2>6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CJCCCCJ:Response.Write(CJJCJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm籶@垆@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQ%Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,E:E=6lQ籶@垆@癿@xsQ ,G2=F6lQ")):Response.Write  CCCJJC:Response.Write(CJJCJJCC("Q ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm扆@朵@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCJJJCC:Response.Write(CJJCJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm绊@铻@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQpQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,E:E=6lQ绊@铻@啁@xsQ ,G2=F6lQ")):Response.Write  CCJJJCJ:Response.Write(CJJCJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm犱@忼@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mkD6=64E ,?2>6lQ+Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k@AE:@? ,G2=F6lQdQ ,")):Response.Write  IIf(CCJJJJJ=5,CJJCJJCC("D6=64E65"),""):Response.Write(CJJCJJCC("m歞@帳@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CCJJJJJ=1,CJJCJJCC("D6=64E65"),""):Response.Write(CJJCJJCC("m祼@産@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CCJJJJJ=0,CJJCJJCC("D6=64E65"),""):Response.Write(CJJCJJCC("m朥@宜@栳@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write  IIf(CCJJJJJ=2,CJJCJJCC("D6=64E65"),""):Response.Write(CJJCJJCC("m朥@骇@讼@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm姎@合@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQC62=?2>6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQgQ ,G2=F6lQ")):Response.Write  CCJJCJJ:Response.Write(CJJCJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm昰@秫@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CJCCCCC:Response.Write(CJJCJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm线@刦@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQvC@FAQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CCJJCJC:Response.Write(CJJCJJCC("Q ,E:E=6lQ线@刦@癿@xsQmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm邩@仱@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk:?AFE ,?2>6lQ|Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCCCCJ:Response.Write(CJJCJJCC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=QmU?3DAjk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4=2DDlQ=236=Qm掍@床@：,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mkD6=64E ,?2>6lQ$Q ,@?r92?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJJCJJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CJCCCJC=1,CJJCJJCC("D6=64E65"),""):Response.Write(CJJCJJCC("m癶@彐@旱@闯@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write  IIf(CJCCCJC=2,CJJCJJCC("D6=64E65"),""):Response.Write(CJJCJJCC("m泣@冇@旱@闯@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k@AE:@? ,G2=F6lQdQ ,")):Response.Write  IIf(CJCCCJC=5,CJJCJJCC("D6=64E65"),""):Response.Write(CJJCJJCC("m癶@彐@欜@敫@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJJCC(" ,k5:G ,2=:8?lQC:89EQ ,DEJ=6lQ>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJJCJJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,G2=F6lQ釈@ ,罩@Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ!Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCJJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJCC("k^7@C>m") & vbCrLf)::If CCJJJJ="1" Then
Response.Write(vbCrLf):Response.Write(CJJCJJCC("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m床@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m缑@史@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m癶@彐@合@秫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m眚@宙@姎@合@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m昰@秫@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m籶@垆@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m扆@朵@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m佔@题@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m孡@栜@箜@琁@呓@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m癶@彐@欜@敫@^旱@闯@^x!k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m犱@忼@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):sql=CJJCJJCC("H96C6 ,`l`"):if CCCJCCJ(CJCCCJJ) then sql=sql & CJJCJJCC(" ,2?5 ,:5l") & CJCCCJJ
if CJCCCCJ<>"" then sql=sql & CJJCJJCC(" ,2?5 ,FD6C?2>6lV") & CJCCCCJ & CJJCJJCC("V")
if CJCCCCC<>"" then sql=sql & CJJCJJCC(" ,2?5 ,?:4<?2>6lV") & CJCCCCC & CJJCJJCC("V")
if CCJJCJJ<>"" then sql=sql & CJJCJJCC(" ,2?5 ,C62=?2>6lV") & CCJJCJJ & CJJCJJCC("V")
if CCCJCCJ(CCCJJC) then sql=sql & CJJCJJCC(" ,2?5 ,") & CJCJJJC.Sql_GetChildren(CCCJJC)
if CCCJCCJ(CCJJCJC) then sql=sql & CJJCJJCC("2?5 ,,vC@FA.l") & CCJJCJC
if CCCJCCJ(CCJJJJC) then sql=sql & CJJCJJCC(" ,2?5 ,?F>36Cl") & CCJJJJC
if CJCCCJC=3 then sql=sql & CJJCJJCC(" ,2?5 ,>@?6Jm_")
if CCCCCJ<>"" then sql=sql & CJJCJJCC(" ,2?5 ,6>2:=lV") & CCCCCJ & CJJCJJCC("V")
if CCCJCCJ(CCJJJCJ) then sql=sql & CJJCJJCC(" ,2?5 ,286?4Jl") & CCJJJCJ
if CCJJJCC<>"" then sql=sql & CJJCJJCC(" ,2?5 ,>@3:=6lV") & CCJJJCC & CJJCJJCC("V")
sql=sql & CJJCJJCC(" ,2?5 ,DE2E6l") & CCJJJJJ & CJJCJJCC(" ,@C56C ,3J ,"):select case CJCCCJC:case 1 : sql=sql & CJJCJJCC("=2DEE:>6 ,56D4"):case 2 : sql=sql & CJJCJJCC("C68E:>6 ,56D4"):case 5 : sql=sql & CJJCJJCC("=@8E:>6D ,56D4"):end select:Session(CJJCJJCC("!$*0$B="))=sql:sql=CJJCJJCC("D6=64E ,E@A ,`__ ,:5[FD6C?2>6[?:4<?2>6[=2DE:A[=2DEE:>6[32=2?46[EJA6[EJA6?2>6[DE2E6[=@8E:>6D[8C@FA0?2>6[6>2:=[>@3:=6[,8C@FA.[C62=?2>6[:DD49@@=25>:? ,7C@> ,G0>6>36C ,") & sql:dim CCJJCCJ:set CCJJCCJ=new splitpage:with CCJJCCJ:.sql=sql:.pagesize=25:.style=3:end with:set rs=CCJJCCJ.rs:if rs.eof then
Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4@=DA2?lQ`aQm彎@剈@沜@朄@讫@彐@！,k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,"))
else
dim CJCCJC:for CJCCJC=1 to CCJJCCJ.pagesize:CJCCCJJ=rs(0):Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJCCJ.listnum(CJCCJC):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,g__[cd_.Q ,9C67lQG:6H]2DAn:5l")):Response.Write  CJCCCJJ:Response.Write(CJJCJJCC("Qm")):Response.Write  CJCCCJJ:Response.Write(CJJCJJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  rs(1):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  rs(14):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  rs(2):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5mk2 ,9C67lQ;2G2D4C:AEi7@C>`]%]G2=F6l")):Response.Write  rs(6):Response.Write(CJJCJJCC("j7@C>`]DF3>:EWXQ ,E:E=6lQ")):Response.Write  rs(7):Response.Write(CJJCJJCC("Qm")):Response.Write  CCCJCJC(rs(7),10):Response.Write(CJJCJJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(12):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write  rs(5):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(rs(15),CCCJJJJ,""):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):Response.Write  rs(9):Response.Write(CJJCJJCC("^")):Response.Write  CCCCCJC(rs(4),0):Response.Write(CJJCJJCC("^")):Response.Write  CCCCCJJ(rs(3)):Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5m")):select case rs(8):case 0 : response.write CJJCJJCC(",朥@宜@栳@."):case 5 : Response.Write CJJCJJCC(",歞@帳@."):case 1 : Response.Write CJJCJJCC(",祼@産@."):case 2 : Response.write CJJCJJCC(",朥@骇@讼@."):end select:Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Call ShowSelect(CJCCCJJ,rs(2),rs(11),rs(12))::If 1<>1 and CCCJJJC(32) Then
Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,k2 ,9C67lQ56=6E6]2DAn:5l")):Response.Write  CJCCCJJ:Response.Write(CJJCJJCC("Qm创@陟@k^2m") & vbCrLf):Response.Write(CJJCJJCC(" ,"))
End If:Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCJJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJJCC(" ,kE5 ,4@=DA2?lQ`aQm")):call CCJJCCJ.showpage:Response.Write(CJJCJJCC("k^E5m") & vbCrLf):Response.Write(CJJCJJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJJCC(" ,")):set CCJJCCJ=nothing
End If:Response.Write(vbCrLf):Response.Write(CJJCJJCC("k^E23=6m") & vbCrLf)
Else
response.write CJJCJJCC("k5:G ,2=:8?lV46?E6CVmk3m圣@丅@靝@讹@宕@杜@仱@仠@吉@，,炴@凶@柠@话@挄@钩@！,k^3mk^5:Gm")
end if:sub ShowSelect(CJCCCJJ,CJCCCCC,CJCJJCCJ,CJCJJCCC):dim str:str=CJJCJJCC("kD6=64E ,@?492?86lV;2G2D4C:AEi>6>36C24EWE9:DXVm")  & CJJCJJCC("k@AE:@?m诲@逄@拤@：,k^@AE:@?m")  & CJJCJJCC("k@AE:@?m—,—,—,—,k^@AE:@?m")  & CJJCJJCC("k@AE:@? ,G2=F6lV>@5:7J]2DAn:5l") & CJCCCJJ & CJJCJJCC("Vm俩@攴@贿@斔@k^@AE:@?m")  & CJJCJJCC("k@AE:@? ,G2=F6lVD6EC:89E]2DAn24El`U:5l") & CJCCCJJ & CJJCJJCC("Vm讹@宕@朾@陋@k^@AE:@?m")  & CJJCJJCC("k^D6=64Em")
response.write str:end sub:Response.Write(vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]KII3@I];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm ,") & vbCrLf):Response.Write(CJJCJJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJCJJCC(" ,SWQ2i4@?E2:?DWV创@陟@VXQ[SWVE23=6]E30=:DEVXX]@?WQ4=:4<Q[7F?4E:@?W6XL:7WP4@?7:C>WV患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,挄@硩@宕@创@陟@，,挄@发@涃@丈@伕@创@陟@。,VXXLC6EFC? ,72=D6jNNXj") & vbCrLf):Response.Write(CJJCJJCC("NXj") & vbCrLf):Response.Write(CJJCJJCC("7F?4E:@? ,>6>36C24EW@XL") & vbCrLf):Response.Write(CJJCJJCC(" ,G2C ,?l@]D6=64E65x?56Ij") & vbCrLf):Response.Write(CJJCJJCC(" ,G2C ,FC=l@]@AE:@?D,?.]G2=F6j") & vbCrLf):Response.Write(CJJCJJCC(" ,:7W?m`XL=@42E:@?lFC=jN") & vbCrLf):Response.Write(CJJCJJCC("N") & vbCrLf):Response.Write(CJJCJJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:set CCCCJCJ=nothing:CCJJJ.Close:Set CCJJJ=Nothing:rs.Close:Set rs=Nothing:CJCJC.Close:Set CJCJC = Nothing:err.Clear:On Error Goto 0
Function CJJCJJCC(ByVal CCCJCJ)
Dim CCJJCCC, CJCCJC, CCJCJC
CCCJCJ = Replace(CCCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJC = 1 To Len(CCCJCJ)
If CJCCJC <> CCJCJC Then
CCJJCCC = AscW(Mid(CCCJCJ, CJCCJC, 1))
If CCJJCCC >= 33 And CCJJCCC <= 79 Then
CJJCJJCC = CJJCJJCC & Chr(CCJJCCC + 47)
ElseIf CCJJCCC >= 80 And CCJJCCC <= 126 Then
CJJCJJCC = CJJCJJCC & Chr(CCJJCCC - 47)
Else
CCJCJC = CJCCJC + 1
If Mid(CCCJCJ, CCJCJC, 1) = Chr(64) Then CJJCJJCC = CJJCJJCC & ChrW(CCJJCCC + 5) Else CJJCJJCC = CJJCJJCC & Mid(CCCJCJ, CJCCJC, 1)
End If
End If
Next
End Function
%>