<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCJC, CCJCCJ,rs, CCCJJJ, sql:Set CCJCJC = server.CreateObject(CJJCJCJC("ps~sq]r@??64E:@?")):CCJCJC.open Application(CJJCJCJC("r@??64E:@?$EC:?8")):Set CCJCCJ=CCJCJC::Dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:Dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ:CJJCCJJ=Trim(Request.Cookies(CJJCJCJC("!$*|t|qt#"))):if CJJCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJCJ>0 then
sql=CJJCJCJC("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") & CCCJCC & CJJCJCJC("V ,2?5 ,:5l") & CCCJCJ
set rs=CCJCJC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCCCJJ=rs(2) & "":CCCCJC=rs(3):CCCCCJ=rs(5):CCCCCC=rs(6):CJJJJJJ=rs(9):CJJJJJC=rs(15):CJJJJCC=rs(0):CJJCJCJ=rs(1):CJJCJJC=rs(11) & "":CJJJCJJ=rs(10) & "":CJJJJCJ=rs(12):CJJJCJC=rs(14):CJJJCCJ=rs(13):CJJJCCC=rs(7) & "":CJJCJJJ=rs(4):CJJCJCC=rs(8):if isnull(CJJJJJC) then CJJJJJC=0
if isnull(CJJJJJJ) or CJJJJJJ=0 then CJJJJJJ=CCCCJC
if isnull(CJJCJJJ) then CJJCJJJ=0
if isnull(CCCCCJ) then CCCCCJ=0
if instr(CJJCJCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJCC)>0 then Call RedirectMessage(CJJCJCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCJCJ,CCCJCC)
End IF
end if:Sub CheckRight(CJJCJCCJ):dim CJJCCJC,CJJCCCJ:if CCCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCCCJC(CJJCJCCJ) then
Call RedirectMessage(CJJCJCJC("朾@陋@W") & CJJCJCCJ & CJJCJCJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCCCJC(CJJCJCCJ):dim CJJCCJC,CJJCCCJ:CJJCCCJ=split(CJJCJCCJ,CJJCJCJC("[")):CCCCCJC=False:for CJJCCJC=0 to ubound(CJJCCCJ):If Mid(CCCCJJ,CJJCCCJ(CJJCCJC),1)="1" then
CCCCCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCCC:CJJCCCC=trim(request.QueryString(CJJCJCJC("D49@@="))):if isnumeric(CJJCCCC) then
response.Redirect CJJCJCJC("^>^G2?E^R^D49@@=^") & CJJCCCC & CJJCJCJC("^DEF56?E^=@8:?nC65:C64El") & CJCCCCJ
else
Call RedirectMessage(CJJCJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCJCJC("!$*|t|qt#"))="":CCCJCJ=0:CCCCCC=0:CCCJCC=Empty:CCCCCJ=0:CJJJJJC=0:CJJJJJJ=0:CCCCJC=0:CJJJJCC=False:CJJCJCJ=False:CJJCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJJJ,CJCJJJC,CJJCCJC,CJCJJCJ,CJCJJCC:CJCJJJJ=split(CJJCCJJ,CJJCJCJC("]")):if ubound(CJCJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJJJ(0)) or len(CJCJJJJ(1))<>32 or len(CJCJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJCJJJC=CJCJJJJ(1):for CJJCCJC=1 to len(CJCJJJC):CJCJJCJ=mid(CJCJJJC,CJJCCJC,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ
if len(CJCJJCC)=7 then exit for
next:CJCJJJC=CJCJJJJ(2):if CJCJJCC<>mid(CJCJJJC,6,7) then
Call ClearMemberCookie
else
CJCJJCJ=mid(CJCJJJC,18,10)/2:if CJCJJCJ<DateDiff(CJJCJCJC("D"), CJJCJCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJCJ=Clng(CJCJJJJ(0)):CCCJCC=CJCJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCCC,CJJCCJJJ):dim CJJCCJC,CJCJJCJ,CJCJJCC:for CJJCCJC=1 to len(CJJCCJJJ):CJCJJCJ=mid(CJJCCJJJ,CJJCCJC,1):if isnumeric(CJCJJCJ) then CJCJJCC=CJCJJCC & CJCJJCJ
if len(CJCJJCC)=7 then exit for
next:CJCJJCC=CJJCJCCC & CJJCJCJC("]") & CJJCCJJJ & CJJCJCJC("]") & Fix(10000*(Rnd+1)) & CJCJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCJCJC("D"), CJJCJCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJCJC("!$*|t|qt#"))=CJCJJCC:End Sub:::Function IIf(CJJCCJJC, CJJCCJCJ, CJJCCJCC):if isnull(CJJCCJJC) or isempty(CJJCCJJC) then
IIf = CJJCCJCC
elseif CJJCCJJC Then
IIf = CJJCCJCJ
Else
IIf = CJJCCJCC
end if:End Function:Const CCCJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJCCCJJ,CJJCCCJC):dim CJCJJJJ:CJCJJJJ=CJJCCCJJ & "=" & CJJCCCJC & CJJCJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJCJC("$6E\r@@<:6"),CJCJJJJ):End Sub:::Function CCCCCCC(ByVal Str, ByVal StrLen):Dim CJCJCJJ, CJCJCJC, CJCJCCJ, CJJCCJC:if isnull(str) then
CCCCCCC=""
else
CJCJCJJ = Len(Str):CJCJCJC = 0:For CJJCCJC = 1 To CJCJCJJ:CJCJCCJ = AscW(Mid(Str, CJJCCJC, 1)):If CJCJCCJ < 0 Or CJCJCCJ > 255 Then CJCJCJC = CJCJCJC + 2 Else CJCJCJC = CJCJCJC + 1
If CJCJCJC >= StrLen Then
CCCCCCC = Left(Str, CJJCCJC) & CJJCJCJC("]]]"):Exit For
Else
CCCCCCC = Str
End If:Next
end if:End Function::::Function CJJJJJJJ(CCJCJJC):if isnull(CCJCJJC) or trim(CCJCJJC)="" or not isnumeric(CCJCJJC) then
CJJJJJJJ=false
else
Dim CJCJCCC:Set CJCJCCC = New RegExp:CJCJCCC.Pattern = CJJCJCJC("/-5ZS"):CJCJCCC.IgnoreCase = True:CJJJJJJJ = CJCJCCC.test(CCJCJJC):set CJCJCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:set CJJJJCJJ=nothing:CCJCCJJ.close : set CCJCCJJ=nothing:CCCJJJ.Close : Set CCCJJJ=Nothing:rs.Close : Set rs=Nothing:CJJJJCJC.Close : Set CJJJJCJC = Nothing:CCJCJC.Close : Set CCJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJCJC("!$*0|6DD286"),server.URLEncode(CJJCCCCJ)):Response.Redirect CJJCJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::Function CJJJJCCJ(CJJCCCCC):CJJJJCCJ=CJJCCCCC:End Function:::::::::::::::::::::::::::Const CCCJCCJ ="<span style='font-family:webdings;'>9</span>"
Const CCCJCCC ="<span style='font-family:webdings;'>7</span>"
Const CCCCJJJ ="<span style='font-family:webdings;'>3</span>"
Const CCCCJJC ="<span style='font-family:webdings;'>4</span>"
Const CCCCJCJ ="<span style='font-family:webdings;'>8</span>"
Const CCCCJCC ="<span style='font-family:webdings;'>:</span>"
Const CCCCCJJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCCJJC, CJCCJCJ, CJCCJCC, CJCCCJJ, CJCCCJC, CJCCCCJ, CJCCCCC, CCJJJJJ, CCJJJJC, CCJJJCJ:Private Function CJJJJCCC():Dim CCJJJCC:CCJJJCC = "共<span style='color:#f00;'><b>" & CJCCCJC & CJJCJCJC("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJJJJC & CJJCJCJC("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCCJJ & CJJCJCJC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCJCJC("k^3mk^DA2?m顰@")
CJJJJCCC = CCJJJCC:End Function:Private Function CJJJCJJJ():CJJJCJJJ = CJJCJCJC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCCCJJ & CJJCJCJC("V ,DEJ=6lV") & CCCCCJJ & CJJCJCJC("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") & CJCCCCJ & CJJCJCJC("VZE9:D]G2=F6Qm")
End Function:Private Function CJJJCJJC():CJJJCJJC = CJJCJCJC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCCJJ & CJJCJCJC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJCCCCJ & CJJCJCJC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJJCJCJ():Dim CCJJJCC, CJJCCJC:CCJJJCC = CJJCJCJC(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJCCCCJ & CJJCJCJC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJJCCJC = 1 To PageCount:CCJJJCC = CCJJJCC & CJJCJCJC("k@AE:@? ,G2=F6lV") & CJJCCJC & CJJCJCJC("V")
If CJJCCJC = CJCCCJJ Then CCJJJCC = CCJJJCC & CJJCJCJC(" ,D6=64E65")
CCJJJCC = CCJJJCC & CJJCJCJC("m") & CJJCCJC & CJJCJCJC("k^@AE:@?m"):Next:CCJJJCC = CCJJJCC & CJJCJCJC("k^D6=64Em顰@"):CJJJCJCJ = CCJJJCC:End Function:Public Sub ShowPage():Dim CJJCCJC, CCJJCJJ,CCJJCJC,CCJJCCJ:if CJCCCJC>0 then
CCJJCJJ = CJJCJCJC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJJJCCC & CJJCJCJC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CCJJJCJ:Case 1: CCJJCCJ = CJJJCCJC:Case 2: CCJJCCJ = CJJJCCCJ:Case 3: CCJJCCJ = CJJJCCCC:Case 4: CCJJCCJ = CJJCJJJJ:Case 5: CCJJCCJ = CJJCJJJC:Case 6: CCJJCCJ = CJJCJJCJ:Case 7: CCJJCCJ = CJJCJJCC:Case 8: CCJJCCJ = CJJCJCJJ:End Select
End If:CCJJCJC = CJJCJCJC("k^5:Gmk^5:Gm")
end if:if CCJJJCJ>=6 then
Response.Write CCJJCCJ
else
Response.Write CCJJCJJ & CCJJCCJ & CCJJCJC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCCJCJ = Server.CreateObject(CJJCJCJC("ps~sq]#64@C5$6E")):CJCCJCJ.PageSize = CCJJJJC:CJCCJCJ.Open CJCCJCC, CJCCJJC, 1:If err then
Response.Write	CJJCJCJC("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 & CJJCJCJC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCCJCJ.EOF Then
CJCCCJC = CJCCJCJ.RecordCount:PageCount = CJCCJCJ.PageCount:If CJCCCJJ > PageCount Then CJCCCJJ = PageCount
CJCCJCJ.AbsolutePage = CJCCCJJ
End If:Set Rs = CJCCJCJ:End Function:Public Property Let CCJCCJ(CJCJJJJJ):Set CJCCJJC = CJCJJJJJ:End Property:Public Property Let SQL(str):CJCCJCC = str:End Property:Public Property Let Style(CJJCJCCJ):If IsNumeric(CJJCJCCJ) Then
CCJJJCJ = CInt(CJJCJCCJ):If CCJJJCJ < 1 Or CCJJJCJ > 8 Then CCJJJCJ = 1
Else
CCJJJCJ = 1
End If:End Property:Public Property Let PageSize(CJJCJCCJ):If IsNumeric(CJJCJCCJ) Then
CCJJJJC = CInt(CJJCJCCJ):If CCJJJJC < 1 Then CCJJJJC = 10
Else
CCJJJJC = 10
End If:End Property:Public Property Get PageSize():If CJCCCJJ = PageCount Then
PageSize = CJCCCJC - CCJJJJC * (PageCount - 1)
Elseif CJCCCJC=0 then
pagesize=0
else
PageSize = CCJJJJC
end if:End Property:Private Sub Class_Initialize():dim CCJJCCC:CCJJJJC = 10:CCJJJCJ = 1:Set CJCCJJC = CCJCJC:CJCCCJJ = Trim(Request.QueryString(CJJCJCJC("!286"))):If IsNumeric(CJCCCJJ) Then
CJCCCJJ = CLng(CJCCCJJ):If CJCCCJJ < 1 Then CJCCCJJ = 1
Else
CJCCCJJ = 1
End If:CCJJJJJ = Trim(Request.ServerVariables(CJJCJCJC("&#{"))):CCJJJJJ = Mid(CCJJJJJ, InStrRev(CCJJJJJ, CJJCJCJC("^")) + 1):CJCCCCC = Split(Trim(Request.ServerVariables(CJJCJCJC("""&t#*0$%#x}v"))), CJJCJCJC("U")):CJCCCCJ = Server.HtmlEncode(CJCJJJJC):CCJJCCC=lcase(CJCCCCJ):if instr(CCJJCCC,CJJCJCJC("Tb4:7C2>6"))>0 or instr(CCJJCCC,CJJCJCJC("Tb4D4C:AE"))>0 or instr(CCJJCCC,CJJCJCJC("V"))>0 or instr(CCJJCCC,CJJCJCJC(";2G2D4C:AE"))>0 or instr(CCJJCCC,CJJCJCJC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCJCJC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
End Sub:Public Function ListNum(CJJCJCCJ):ListNum = CCJJJJC * (CJCCCJJ - 1) + CJJCJCCJ:End Function:Private Function CJCJJJJC():Dim CJJCCJC, str:For CJJCCJC = 0 To UBound(CJCCCCC):If InStr(LCase(CJCCCCC(CJJCCJC)), CJJCJCJC("A286l")) = 0 Then str = str & CJJCJCJC("U") & CJCCCCC(CJJCCJC)
Next:str = Mid(str, 2):If str = "" Then CJCJJJJC = CCJJJJJ & CJJCJCJC("n") & CJJCJCJC("A286l") Else CJCJJJJC = CCJJJJJ & CJJCJCJC("n") & str & CJJCJCJC("UA286l")
End Function:Private Function CJJJCCJC():Dim str:str = CJJCJCJC("轧@别@ ,笧@"):For CJJCCJC = 1 To PageCount:If CJJCCJC = CJCCCJJ Then str = str & CJJCJCJC("k3m") & CJJCCJC & CJJCJCJC("k^3m ,") Else str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJJCCJC & CJJCJCJC("Vm") & CJJCCJC & CJJCJCJC("k^2m ,")
Next:str = str & CJJCJCJC("顰@"):CJJJCCJC = str:End Function:Private Function CJJJCCCJ():Dim str:If CJCCCJJ > 1 Then
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJJCJCJC("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCJ & CJJCJCJC("k^2m ,")
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 1 & CJJCJCJC("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJJ & CJJCJCJC("k^2m ,")
Else
str = str & CCCJCCJ & CJJCJCJC(" ,") & CCCCJJJ
End If:If CJCCCJJ < PageCount Then
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ + 1 & CJJCJCJC("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJC & CJJCJCJC("k^2m ,")
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & PageCount & CJJCJCJC("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJCC & CJJCJCJC("k^2m ,")
Else
str = str & CCCCJJC & CJJCJCJC(" ,") & CCCCJCC
End If:str = str & CJJJCJJJ:str = str & CJJJCJJC:CJJJCCCJ = str:End Function:Private Function CJJJCCCC():Dim str, CJCJJJC:CJCJJJC = (CJCCCJJ - 1) \ 10:If CJCCCJJ = 1 Then str = str & CCCJCCJ & CJJCJCJC(" ,") Else str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJJCJCJC("`V ,E:E=6lV馑@顰@Vm") & CCCJCCJ & CJJCJCJC("k^2m ,")
If CJCJJJC * 10 > 0 Then str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 10 & CJJCJCJC("V ,E:E=6lV丅@匼@顰@Vm") & CCCJCCC & CJJCJCJC("k^2m ,")
For CJJCCJC = (CJCJJJC * 10 + 1) To (CJCJJJC * 10 + 10):If CJJCCJC = CJCCCJJ Then str = str & CJJCJCJC("k3m") & CJJCCJC & CJJCJCJC("k^3m ,") Else str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJJCCJC & CJJCJCJC("V ,E:E=6lV轧@别@笧@") & CJJCCJC & CJJCJCJC("顰@Vm") & CJJCCJC & CJJCJCJC("k^2m ,")
If CJJCCJC = PageCount Then Exit For
Next:If CJJCCJC < PageCount Then str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJJCCJC & CJJCJCJC("V ,E:E=6lV丆@匼@顰@Vm") & CCCCJCJ & CJJCJCJC("k^2m ,")
If CJCCCJJ = PageCount Then str = str & CCCCJCC Else str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & PageCount & CJJCJCJC("V ,E:E=6lV朦@顰@Vm") & CCCCJCC & CJJCJCJC("k^2m")
CJJJCCCC = str:End Function:Private Function CJJCJJJJ():Dim str, CCJCJJC, CCJCJCJ, CJJCCJC:If CJCCCJJ > 4 Then str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJJCJCJC("`Vm,`.k^2m ,]]]")
If CJCCCJJ < PageCount - 3 Then CCJCJCJ = CJCCCJJ + 3 Else CCJCJCJ = PageCount
For CJJCCJC = CJCCCJJ - 3 To CCJCJCJ:If CJJCCJC >= 1 Then
If CJJCCJC = CJCCCJJ Then str = str & CJJCJCJC(" ,k3m,") & CJJCCJC & CJJCJCJC(".k^3m") Else str = str & CJJCJCJC(" ,k2 ,9C67lV") & CJCCCCJ & CJJCCJC & CJJCJCJC("Vm,") & CJJCCJC & CJJCJCJC(".k^2m")
End If:Next:If CJCCCJJ < PageCount - 3 Then str = str & CJJCJCJC(" ,]]] ,k2 ,9C67lV") & CJCCCCJ & PageCount & CJJCJCJC("Vm,") & PageCount & CJJCJCJC(".k^2m")
CJJCJJJJ = str:End Function:Private Function CJJCJJJC():Dim str:If CJCCCJJ > 1 Then
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJJCJCJC("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,")
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 1 & CJJCJCJC("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,")
Else
str = str & CJJCJCJC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m")
End If:If CJCCCJJ < PageCount Then
str = str & CJJCJCJC(" ,k2 ,9C67lV") & CJCCCCJ & CJCCCJJ + 1 & CJJCJCJC("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,")
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & PageCount & CJJCJCJC("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,")
Else
str = str & CJJCJCJC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m")
End If:str = str & CJJJCJCJ:CJJCJJJC = str:End Function:Private Function CJJCJJCJ():Dim str:if CJCCCJJ>=2 then
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 1 & CJJCJCJC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 1 & CJJCJCJC("V ,52E2\C@=6lV3FEE@?Vm") & CJCCCJJ-1 & CJJCJCJC("k^2m")
end if:str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ & CJJCJCJC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCCCJJ & CJJCJCJC("k^2m")
if pagecount>CJCCCJJ then
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ + 1 & CJJCJCJC("V ,52E2\C@=6lV3FEE@?Vm") & CJCCCJJ+1 & CJJCJCJC("k^2m")
str = str & CJJCJCJC("k2 ,9C67lV") & CJCCCCJ & CJCCCJJ + 1 & CJJCJCJC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJCJJCJ=str:End Function:Private Function CJJCJJCC():Dim str:str=CJJCJCJC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCCCJJ>=2 then
str = str & CJJCJCJC("k=:mk2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 1 & CJJCJCJC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCJCJC("k=:mk2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 1 & CJJCJCJC("Vm") & CJCCCJJ-1 & CJJCJCJC("k^2mk^=:m")
end if:str = str & CJJCJCJC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJCCCCJ & CJCCCJJ & CJJCJCJC("Vm") & CJCCCJJ & CJJCJCJC("k^2mk^=:m")
if pagecount>CJCCCJJ then
str = str & CJJCJCJC("k=:mk2 ,9C67lV") & CJCCCCJ & CJCCCJJ + 1 & CJJCJCJC("Vm") & CJCCCJJ+1 & CJJCJCJC("k^2mk^=:m")
str = str & CJJCJCJC("k=:mk2 ,9C67lV") & CJCCCCJ & CJCCCJJ + 1 & CJJCJCJC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCJCJC("k^F=m"):CJJCJJCC=str:End Function:Private Function CJJCJCJJ():Dim str:str=CJJCJCJC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCCCJJ>=2 then
str = str & CJJCJCJC("k=:mk2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 1 & CJJCJCJC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCJCJC("k=:mk2 ,9C67lV") & CJCCCCJ & CJCCCJJ - 1 & CJJCJCJC("Vm") & CJCCCJJ-1 & CJJCJCJC("k^2mk^=:m")
end if:str = str & CJJCJCJC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJCCCCJ & CJCCCJJ & CJJCJCJC("Vm") & CJCCCJJ & CJJCJCJC("k^2mk^=:m")
if pagecount>CJCCCJJ then
str = str & CJJCJCJC("k=:mk2 ,9C67lV") & CJCCCCJ & CJCCCJJ + 1 & CJJCJCJC("Vm") & CJCCCJJ+1 & CJJCJCJC("k^2mk^=:m")
str = str & CJJCJCJC("k=:mk2 ,9C67lV") & CJCCCCJ & CJCCCJJ + 1 & CJJCJCJC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCJCJC("k^F=m"):CJJCJCJJ=str:End Function:End Class::dim CJJCCCC:sql=Request.ServerVariables(CJJCJCJC("!p%w0x}u~")):if instr(sql,CJJCJCJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJCC and not CJJCJCJ then Call RedirectMessage(CJJCJCJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCCCC=CJJJJJJ
elseif instr(sql,CJJCJCJC("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJJCJCJC("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCCC=CJJJJJJ
elseif instr(sql,CJJCJCJC("^D49@@="))>0 then
CJJCCCC=Request.QueryString(CJJCJCJC("D49@@=")):if not CJJJJJJJ(CJJCCCC) then CJJCCCC=Request.QueryString(CJJCJCJC("F"))
if not CJJJJJJJ(CJJCCCC) then CJJCCCC=Request.QueryString(CJJCJCJC("D4"))
if not CJJJJJJJ(CJJCCCC) then Call RedirectMessage(CJJCJCJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCCCC=csng(CJJCCCC)
end if:if CJJCCCC=0 then Call RedirectMessage(CJJCJCJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJCJCC:Call SetConfig:Sub SetConfig():dim CJJCCCJ,CCJCCJJ:sql=CJJCJCJC("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJJCCCC:set CCJCCJJ=CCJCJC.execute(sql):if CCJCCJJ.eof then Call RedirectMessage(CJJCJCJC("患@W") & CCCJCJ & CJJCJCJC("X戻@圣@癿@卐@佈@W") & CJJCCCC & CJJCJCJC("X朥@批@别@。,"))
ReDim CJJCCCJ(61):CJJCCCJ(0)=CCJCCJJ(CJJCJCJC(";:2@H6:")) & "":CJJCCCJ(1)=CCJCCJJ(CJJCJCJC("EJA6")):CJJCCCJ(2)=CCJCCJJ(CJJCJCJC("D>D")):CJJCCCJ(3)=CCJCCJJ(CJJCJCJC("4FDE@>8C@FA")) & "":CJJCCCJ(4)=CCJCCJJ(CJJCJCJC("D:5632C0@E96C")) & "":CJJCCCJ(5)=IIf(isnull(CCJCCJJ(CJJCJCJC("E6DEC6DF=EG:6H"))),0,CCJCCJJ(CJJCJCJC("E6DEC6DF=EG:6H"))):CJJCCCJ(6)=CCJCCJJ(CJJCJCJC("K:IF?E:>6")):CJJCCCJ(7)=CCJCCJJ(CJJCJCJC("766")):CJJCCCJ(8)=CCJCCJJ(CJJCJCJC("C6E6DE52J")):CJJCCCJ(9)=CCJCCJJ(CJJCJCJC("6IA:C652E6")):CJJCCCJ(10)=CCJCCJJ(CJJCJCJC("E:E=6")):CJJCCCJ(11)=CCJCCJJ(CJJCJCJC(":?EC@")) & "":CJJCCCJ(12)=CCJCCJJ(CJJCJCJC("A:4EFC6")) & "":CJJCCCJ(13)=CCJCCJJ(CJJCJCJC("72>:=J")):CJJCCCJ(14)=CCJCCJJ(CJJCJCJC("4@AJC:89E")) & "":CJJCCCJ(15)=IIf(isnull(CCJCCJJ(CJJCJCJC("D6>6DE6C0DE2CE052E6"))),CJJCJCJC("`h__\`\`"),CCJCCJJ(CJJCJCJC("D6>6DE6C0DE2CE052E6"))):CJJCCCJ(16)=IIf(isnull(CCJCCJJ(CJJCJCJC("K:IF?0E:>6D09:89=:89E"))),0,CCJCCJJ(CJJCJCJC("K:IF?0E:>6D09:89=:89E"))):CJJCCCJ(17)=CCJCCJJ(CJJCJCJC("4@?E24E")) & "":CJJCCCJ(18)=CCJCCJJ(CJJCJCJC("D2?5E23=6")):CJJCCCJ(19)=CCJCCJJ(CJJCJCJC("4C:D:D")):CJJCCCJ(20)=CCJCCJJ(CJJCJCJC("JJ52E6")):CJJCCCJ(21)=CCJCCJJ(CJJCJCJC("BB")):CJJCCCJ(22)=CCJCCJJ(CJJCJCJC("JFJF60D>D0EA=")) & "":CJJCCCJ(23)=CCJCCJJ(CJJCJCJC("JFJF60E6DE0=3")) & "":CJJCCCJ(25)=CCJCCJJ(CJJCJCJC("6IA6CE")):CJJCCCJ(26)=CCJCCJJ(CJJCJCJC(">@5:?7@")):CJJCCCJ(27)=CCJCCJJ(CJJCJCJC("9@>6A286E@AA:4EFC6")) & "":CJJCCCJ(28)=CCJCCJJ(CJJCJCJC("4C:D:D=3")):CJJCCCJ(29)=IIf(CCJCCJJ(CJJCJCJC("4C:D:D@=5")),False,True):CJJCCCJ(30)=CCJCCJJ(CJJCJCJC("8C@FA8F:52?46")):CJJCCCJ(31)=CCJCCJJ(CJJCJCJC("3:@7665324<")):CJJCCCJ(32)=CCJCCJJ(CJJCJCJC("<6JDEC")):CJJCCCJ(33)=CCJCCJJ(CJJCJCJC("=@8@")) & "":CJJCCCJ(34)=CCJCCJJ(CJJCJCJC("K:46")):CJJCCCJ(35)=IIf(CCJCCJJ(CJJCJCJC(":D?6H")),True,False):CJJCCCJ(36)=121:CJJCCCJ(37)=111:CJJCCCJ(38)=160:CJJCCCJ(39)=CCJCCJJ(CJJCJCJC("8F6DE3@@<")):CJJCCCJ(40)=CCJCCJJ(CJJCJCJC("75D")):CJJCCCJ(42)=CCJCCJJ(CJJCJCJC("9@>6=@8:?")):CJJCCCJ(43)=CCJCCJJ(CJJCJCJC("K:IF?0?6657665324<")):CJJCCCJ(44)=CCJCCJJ(CJJCJCJC("K:IF?0E:>6D0=:>:E")):CJJCCCJ(45)=CCJCCJJ(CJJCJCJC("4@>A=6E60:?7@")):CJJCCCJ(46)=CCJCCJJ(CJJCJCJC("E6DE:?EC@")) & "":CJJCCCJ(47)=IIf(isnull(CCJCCJJ(CJJCJCJC("JFJF60367@C60E:>6"))),0,CCJCCJJ(CJJCJCJC("JFJF60367@C60E:>6"))):CJJCCCJ(49)=CCJCCJJ(CJJCJCJC("D>D0C646:G6C")):CJJCCCJ(50)=CCJCCJJ(CJJCJCJC("D>D0D:8?")) & "":CJJCCCJ(52)=CCJCCJJ(CJJCJCJC("JFJF602CC2?86")):CJJCCCJ(53)=IIf(isnull(CCJCCJJ(CJJCJCJC("DEF56?E0BF6DE:@?04@F?E"))),0,CCJCCJJ(CJJCJCJC("DEF56?E0BF6DE:@?04@F?E"))):CJJCCCJ(54)=CCJCCJJ(CJJCJCJC("9:560=30@FE@7286")):CJJCCCJ(55)=CCJCCJJ(CJJCJCJC("JFJF60E6DE052JD")):CJJCCCJ(56)=CCJCCJJ(CJJCJCJC("JFJF60H66<0=:>:E")):CJJCCCJ(57)=CCJCCJJ(CJJCJCJC("JFJF604964<65")):CJJCCCJ(58)=CCJCCJJ(CJJCJCJC("K:IF?0?6657665324<0?6IE")):CJJCCCJ(59)=CCJCCJJ(CJJCJCJC("4964<?6HDEF56?E")):CJJCCCJ(60)=CCJCCJJ(CJJCJCJC("K:IF?04=@D6052E6")):CCJCCJJ.close : set CCJCCJJ=nothing:if isNull(CJJCCCJ(8)) or CJJCCCJ(8)="" then CJJCCCJ(8)=0
if isdate(CJJCCCJ(9)) then
CJJCCCJ(9)=cdate(CJJCCCJ(9)):if CJJCCCJ(9)<Date then Call RedirectMessage(CJJCJCJC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJCCCJ(9) & CJJCJCJC("X巭@迂@。,"))
end if:if not CJJJJJJJ(CJJCCCJ(20)) then CJJCCCJ(20)=7
select case CJJCCCJ(1):case 1,2,16:CJJCCCJ(36)=159:case 4,5,6,10,11:CJJCCCJ(36)=190:CJJCCCJ(37)=178:CJJCCCJ(38)=191:case 7,13:CJJCCCJ(36)=164:CJJCCCJ(37)=178:CJJCCCJ(38)=179:end select:CCJCJCC=CJJCCCJ:End Sub:Function CJJJJCJJ(CJCJJJCJ):dim CJJCCCJ(7,1),CJJCCJC,CCJCCJC,CCJCCCJ:CCJCCJC=Array(CJJCJCJC("$49@@="),CJJCJCJC("$EF56?E"),CJJCJCJC("s6AE"),CJJCJCJC("vC256"),CJJCJCJC("r=2DD>2E6"),CJJCJCJC("}F>36C"),CJJCJCJC("%62496C"),CJJCJCJC("!2C6?E")):select case CCJCJCC(1):case 1,2 : CCJCCCJ=Array(CJJCJCJC("孡@栜@"),CJJCJCJC("孡@甚@"),CJJCJCJC("珨@红@"),CJJCJCJC("幯@红@"),CJJCJCJC("吇@孡@"),CJJCJCJC("孡@史@"),CJJCJCJC("敔@布@"),CJJCJCJC("宱@镺@")):case 3,16 : CCJCCCJ=Array(CJJCJCJC("孡@栜@"),CJJCJCJC("孡@甚@"),CJJCJCJC("陝@糶@"),CJJCJCJC("幯@红@"),CJJCJCJC("吇@孡@"),CJJCJCJC("孡@史@"),CJJCJCJC("敔@布@"),CJJCJCJC("宱@镺@")):case 4 : CCJCCCJ=Array(CJJCJCJC("匶@陝@"),CJJCJCJC("杠@论@耀@"),CJJCJCJC("卐@佈@"),CJJCJCJC("幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("匶@甚@"),CJJCJCJC("宱@屙@")):case 5 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("呓@巠@"),CJJCJCJC("郣@闣@"),CJJCJCJC("幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("呓@巠@"),CJJCJCJC("宱@屙@")):case 6 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("杠@论@耀@"),CJJCJCJC("线@刦@"),CJJCJCJC("幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("宱@屙@")):case 7 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("宓@兰@"),CJJCJCJC("郣@闣@"),CJJCJCJC("幯@仸@"),CJJCJCJC("戓@叆@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("宱@屙@")):case 8 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("杠@论@耀@"),CJJCJCJC("卐@佈@"),CJJCJCJC("兠@聇@幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("酈@偱@")):case 9 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("敔@布@"),CJJCJCJC("卐@佈@"),CJJCJCJC("幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("酈@偱@")):case 10 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("氌@譡@"),CJJCJCJC("郣@闣@"),CJJCJCJC("兠@譡@幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("宱@屙@")):case 11 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("內@劜@呓@"),CJJCJCJC("郣@闣@"),CJJCJCJC("幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("宱@屙@")):case 12 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("幭@譡@"),CJJCJCJC("卐@佈@"),CJJCJCJC("兠@譡@幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("宱@屙@")):case 13 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("孡@呓@"),CJJCJCJC("卐@佈@"),CJJCJCJC("幯@仸@"),CJJCJCJC("戓@叆@"),CJJCJCJC("缑@史@"),CJJCJCJC("敔@呓@"),CJJCJCJC("宱@屙@")):case 14 : CCJCCCJ=Array(CJJCJCJC("月@劜@炴@"),CJJCJCJC("局@氌@"),CJJCJCJC("线@刦@"),CJJCJCJC("幯@仸@"),CJJCJCJC("邶@采@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("宱@屙@")):case 15 : CCJCCCJ=Array(CJJCJCJC("卐@佈@"),CJJCJCJC("盌@独@氌@譡@"),CJJCJCJC("卐@佈@"),CJJCJCJC("兠@譡@幯@仸@"),CJJCJCJC("吇@了@"),CJJCJCJC("缑@史@"),CJJCJCJC("咣@话@布@"),CJJCJCJC("宱@屙@")):case else : CCJCCCJ=CCJCCJC
end select:for CJJCCJC=0 to Ubound(CJJCCCJ):CJJCCCJ(CJJCCJC,0)=CCJCCJC(CJJCCJC):CJJCCCJ(CJJCCJC,1)=CCJCCCJ(CJJCCJC):next:for CJJCCJC=0 to Ubound(CJJCCCJ):if CJJCCCJ(CJJCCJC,0)=CJCJJJCJ then
CJJJJCJJ=CJJCCCJ(CJJCCJC,1):exit for
end if:next:End Function::Call CheckRight(112):dim CJCJCJC,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ:CCCJJCJ=request.QueryString(CJJCJCJC("25>:?")):CJCJCJC=Request.QueryString(CJJCJCJC("%")):CCJCCCC=Request.QueryString(CJJCJCJC("s`")):CCCJJJJ=Request.QueryString(CJJCJCJC("sa")):CCCJJJC=Request.QueryString(CJJCJCJC("!@DE")):Response.Write(vbCrLf):Response.Write(CJJCJCJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCJCJC("k9E>=m") & vbCrLf):Response.Write(CJJCJCJC("k9625m") & vbCrLf):Response.Write(CJJCJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJCJC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCJCJC("k^9625m") & vbCrLf):Response.Write(CJJCJCJC("k3@5Jm") & vbCrLf):Response.Write(CJJCJCJC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m无@忒@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ=236=Qm箜@琁@呓@：,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mkD6=64E ,?2>6lQ25>:?Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k@AE:@?m,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,")):sql=CJJCJCJC("D6=64E ,:5[C62=?2>6 ,7C@> ,G0>6>36C ,H96C6 ,:DD49@@=25>:?l` ,2?5 ,>6>36C0EJA60E@Al") & CJJCCCC:if CJJCCCC<>"44" then sql=sql & CJJCJCJC(" ,2?5 ,:5 ,?@E ,:?W`[a[gghhb[``chga[abbebdfeX")
sql=sql & CJJCJCJC(" ,@C56C ,3J ,:5"):set rs=CCJCJC.execute(sql):while not rs.eof:response.Write CJJCJCJC("k@AE:@? ,G2=F6lV") & rs(0) & CJJCJCJC("V") & IIf(cstr(rs(0))=CCCJJCJ,CJJCJCJC(" ,D6=64E65"),"") & CJJCJCJC("m") & rs(1) & CJJCJCJC("k^@AE:@?m")
rs.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ=236=Qm了@仱@籶@垆@：,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mkD6=64E ,?2>6lQ%Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k@AE:@?m,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CJCJCJC="0",CJJCJCJC("D6=64E65"),""):Response.Write(CJJCJCJC("m一,舧@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CJCJCJC="1",CJJCJCJC("D6=64E65"),""):Response.Write(CJJCJCJC("m墙@力@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write  IIf(CJCJCJC="2",CJJCJCJC("D6=64E65"),""):Response.Write(CJJCJCJC("m俩@攴@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write  IIf(CJCJCJC="3",CJJCJCJC("D6=64E65"),""):Response.Write(CJJCJCJC("m创@陟@k^@AE:@?m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@赲@：,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk:?AFE ,?2>6lQs`Q ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CCJCCCC:Response.Write(CJJCJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@歝@：,k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5mk:?AFE ,?2>6lQsaQ ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write  CCCJJJJ:Response.Write(CJJCJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,G2=F6lQ釈@ ,罩@Qm") & vbCrLf):Response.Write(CJJCJCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ!@DEQ ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJC("k^7@C>m") & vbCrLf)::If CCCJJJC="1" Then
Response.Write(vbCrLf):Response.Write(CJJCJCJC("k3Cm") & vbCrLf):Response.Write(CJJCJCJC("（,泣@：,句@发@曻@迌@`__杜@！,）,") & vbCrLf):Response.Write(CJJCJCJC("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m床@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m了@仱@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m旱@闯@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9mx!k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE9m揊@迫@k^E9m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):sql=CJJCJCJC("H96C6 ,>6>36C0EJA60E@Al") & CJJCCCC:if CJJCCCC<>"44" then sql=sql & CJJCJCJC(" ,2?5 ,>6>36C ,?@E ,:?W`[a[gghhb[``chga[abbebdfeX")
if CJJJJJJJ(CCCJJCJ) then sql=sql & CJJCJCJC(" ,2?5 ,>6>36Cl") & CCCJJCJ
if CJJJJJJJ(CJCJCJC) then sql=sql & CJJCJCJC(" ,2?5 ,EJA6l") & CJCJCJC
if isdate(CCJCCCC) then sql=sql & CJJCJCJC(" ,2?5 ,52E6E:>6mlV") & CCJCCCC & CJJCJCJC("V")
if isdate(CCCJJJJ) then sql=sql & CJJCJCJC(" ,2?5 ,52E6E:>6klV") & cdate(CCCJJJJ)+1 & CJJCJCJC("V")
Session(CJJCJCJC("!$*0$B="))=sql:sql=CJJCJCJC("D6=64E ,E@A ,`__ ,C62=?2>6[EJA6[4@?E6?E[52E6E:>6[:A ,7C@> ,G0=@8 ,") & sql & CJJCJCJC(" ,@C56C ,3J ,:5 ,56D4"):dim CCCJJCC,CJJCCJC:set CCCJJCC=new splitpage:with CCCJJCC:.sql=sql:.pagesize=20:.style=3:end with:set rs=CCCJJCC.rs:for CJJCCJC=1 to CCCJJCC.pagesize:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJJCC.listnum(CJJCCJC):Response.Write(CJJCJCJC("k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  rs(0):Response.Write(CJJCJCJC("k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):select case rs(1):case 0 : response.Write CJJCJCJC("一,舧@"):case 1 : response.Write CJJCJCJC("墙@力@"):case 2 : response.Write CJJCJCJC("俩@攴@"):case 3 : response.Write CJJCJCJC("kDA2? ,DEJ=6lV4@=@CiC65jVm创@陟@k^DA2?m")
end select:Response.Write(CJJCJCJC("k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m")):Response.Write  rs(3):Response.Write(CJJCJCJC("k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5m")):Response.Write  CJJJJCCJ(rs(4)):Response.Write(CJJCJCJC("k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,E:E=6lQ")):Response.Write  rs(2):Response.Write(CJJCJCJC("Q ,DEJ=6lQ4FCD@CiA@:?E6CjQm")):Response.Write  CCCCCCC(rs(2),80):Response.Write(CJJCJCJC("k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJJCJCJC(" ,kE5 ,4@=DA2?lQeQm")):call CCCJJCC.showpage:set CCCJJCC=nothing:Response.Write(CJJCJCJC("k^E5m") & vbCrLf):Response.Write(CJJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJC("k^E23=6m") & vbCrLf)
Else
response.write CJJCJCJC("k3Cmk5:G ,2=:8?lV46?E6CVmk3m圣@丅@靝@讹@宕@杜@仱@仠@吉@，,炴@凶@柠@话@挄@钩@！,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJCJCJC(" ,SWVE23=6]E30=:DE ,E5,E:E=6.VX]@?WV4=:4<V[7F?4E:@?WXL=2J6C]2=6CEWSWE9:DX]2EECWVE:E=6VXXNX") & vbCrLf):Response.Write(CJJCJCJC("NX") & vbCrLf):Response.Write(CJJCJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:set CJJJJCJJ=nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:rs.Close:Set rs=Nothing:CCJCJC.Close:Set CCJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJCJC(ByVal CJCJCCJ)
Dim CCCJCJJ, CJJCCJC, CCJCJJC
CJCJCCJ = Replace(CJCJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCJC = 1 To Len(CJCJCCJ)
If CJJCCJC <> CCJCJJC Then
CCCJCJJ = AscW(Mid(CJCJCCJ, CJJCCJC, 1))
If CCCJCJJ >= 33 And CCCJCJJ <= 79 Then
CJJCJCJC = CJJCJCJC & Chr(CCCJCJJ + 47)
ElseIf CCCJCJJ >= 80 And CCCJCJJ <= 126 Then
CJJCJCJC = CJJCJCJC & Chr(CCCJCJJ - 47)
Else
CCJCJJC = CJJCCJC + 1
If Mid(CJCJCCJ, CCJCJJC, 1) = Chr(64) Then CJJCJCJC = CJJCJCJC & ChrW(CCCJCJJ + 5) Else CJJCJCJC = CJJCJCJC & Mid(CJCJCCJ, CJJCCJC, 1)
End If
End If
Next
End Function
%>