<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJC, CCCCJ,rs, CJJJJJ, sql:Set CCCJC = server.CreateObject(CJCJCJCJ("ps~sq]r@??64E:@?")):CCCJC.open Application(CJCJCJCJ("r@??64E:@?$EC:?8")):Set CCCCJ=CCCJC::Dim CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ:Dim CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ:CCJCJJ=Trim(Request.Cookies(CJCJCJCJ("!$*|t|qt#"))):if CCJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCJ>0 then
sql=CJCJCJCJ("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") & CJJJCC & CJCJCJCJ("V ,2?5 ,:5l") & CJJJCJ
set rs=CCCJC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJCJJ=rs(2) & "":CJJCJC=rs(3):CJJCCJ=rs(5):CJJCCC=rs(6):CJCJJJ=rs(9):CJCJJC=rs(15):CJCJCC=rs(0):CCJJCJ=rs(1):CCJJJC=rs(11) & "":CJCCJJ=rs(10) & "":CJCJCJ=rs(12):CJCCJC=rs(14):CJCCCJ=rs(13):CJCCCC=rs(7) & "":CCJJJJ=rs(4):CCJJCC=rs(8):if isnull(CJCJJC) then CJCJJC=0
if isnull(CJCJJJ) or CJCJJJ=0 then CJCJJJ=CJJCJC
if isnull(CCJJJJ) then CCJJJJ=0
if isnull(CJJCCJ) then CJJCCJ=0
if instr(CJCJCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCC)>0 then Call RedirectMessage(CJCJCJCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJCJ,CJJJCC)
End IF
end if::Function CJJJJCJC(CJJJCCC):dim CCJCJC,CCJCCJ:CCJCCJ=split(CJJJCCC,CJCJCJCJ("[")):CJJJJCJC=False:for CCJCJC=0 to ubound(CCJCCJ):If Mid(CJJCJJ,CCJCCJ(CCJCJC),1)="1" then
CJJJJCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJCCC:CCJCCC=trim(request.QueryString(CJCJCJCJ("D49@@="))):if isnumeric(CCJCCC) then
response.Redirect CJCJCJCJ("^>^G2?E^R^D49@@=^") & CCJCCC & CJCJCJCJ("^DEF56?E^=@8:?nC65:C64El") & CJJJJJJ
else
Call RedirectMessage(CJCJCJCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJCJCJ("!$*|t|qt#"))="":CJJJCJ=0:CJJCCC=0:CJJJCC=Empty:CJJCCJ=0:CJCJJC=0:CJCJJJ=0:CJJCJC=0:CJCJCC=False:CCJJCJ=False:CCJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CCCJJJ,CCCJJC,CCJCJC,CCCJCJ,CCCJCC:CCCJJJ=split(CCJCJJ,CJCJCJCJ("]")):if ubound(CCCJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJJJ(0)) or len(CCCJJJ(1))<>32 or len(CCCJJJ(2))<>32 then
Call ClearMemberCookie
else
CCCJJC=CCCJJJ(1):for CCJCJC=1 to len(CCCJJC):CCCJCJ=mid(CCCJJC,CCJCJC,1):if isnumeric(CCCJCJ) then CCCJCC=CCCJCC & CCCJCJ
if len(CCCJCC)=7 then exit for
next:CCCJJC=CCCJJJ(2):if CCCJCC<>mid(CCCJJC,6,7) then
Call ClearMemberCookie
else
CCCJCJ=mid(CCCJJC,18,10)/2:if CCCJCJ<DateDiff(CJCJCJCJ("D"), CJCJCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCJ=Clng(CCCJJJ(0)):CJJJCC=CCCJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCJJC,CJCJCJCC):dim CCJCJC,CCCJCJ,CCCJCC:for CCJCJC=1 to len(CJCJCJCC):CCCJCJ=mid(CJCJCJCC,CCJCJC,1):if isnumeric(CCCJCJ) then CCCJCC=CCCJCC & CCCJCJ
if len(CCCJCC)=7 then exit for
next:CCCJCC=CJJCCJJC & CJCJCJCJ("]") & CJCJCJCC & CJCJCJCJ("]") & Fix(10000*(Rnd+1)) & CCCJCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJCJCJ("D"), CJCJCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCJCJ("!$*|t|qt#"))=CCCJCC:End Sub::Function CJJJJCCJ(CJCJCCJJ):Dim str,CCCCJC:str = Trim(CJCJCCJJ):If IsNull(str) Or str = "" Then
CJJJJCCJ = ""
else
str=Replace(str, CJCJCJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJCJCJ("k:7C2>6"), CJCJCJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJCJCJ("kD4C:AE"), CJCJCJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCCJC=new RegExp:CCCCJC.Pattern=CJCJCJCJ("@?W,2\K.ZXl"):CCCCJC.IgnoreCase = True:CCCCJC.Global=True:str=CCCCJC.Replace(str,CJCJCJCJ("@?S`U6BF2=Dj")):set CCCCJC=nothing:CJJJJCCJ=str
End If:End Function:Function IIf(CJCJCCJC, CJCJCCCJ, CJCJCCCC):if isnull(CJCJCCJC) or isempty(CJCJCCJC) then
IIf = CJCJCCCC
elseif CJCJCCJC Then
IIf = CJCJCCCJ
Else
IIf = CJCJCCCC
end if:End Function:Const CCCCCJJ="^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 CCJCJC,CCCJCJ,CCCCCJ:if isarray(str) then
on error resume next:CCJCJC=ubound(str,2):CCCCCJ=err.number:err.clear:on error goto 0:if CCCCCJ<>0 then
for CCJCJC=0 to ubound(str):if CCJCJC>0 then response.Write CJCJCJCJ("k3C ,^m")
response.Write CCJCJC & CJCJCJCJ("i ,") & str(CCJCJC):next
else
response.Write CJCJCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCJC=0 to ubound(str,2):response.Write CJCJCJCJ("kE9 ,2=:8?lV=67EVm") & CCJCJC & CJCJCJCJ("k^E9m")
next:response.Write CJCJCJCJ("k^ECm"):for CCJCJC=0 to ubound(str):response.Write CJCJCJCJ("kECmkE9m") & CCJCJC & CJCJCJCJ("k^E9m"):for CCCJCJ=0 to ubound(str,2):response.Write CJCJCJCJ("kE5m") & str(CCJCJC,CCCJCJ) & CJCJCJCJ("k^E5m"):next:response.Write CJCJCJCJ("k^ECm"):next:response.Write CJCJCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJJCJJJ():Dim CCCCCC, CJJJJJJ:CJJJJJJ = Request.ServerVariables(CJCJCJCJ("!p%w0x}u~")):CCCCCC = Request.ServerVariables(CJCJCJCJ("""&t#*0$%#x}v")):If CCCCCC <> Empty Then
if instr(lcase(CCCCCC),CJCJCJCJ("Tb4:7C2>6"))>0 or instr(lcase(CCCCCC),CJCJCJCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCJCJCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CJJJJJJ = CJJJJJJ & CJCJCJCJ("n") & CCCCCC
end if:CJJJCJJJ = CJJJJJJ:End Function:Sub SetHttpOnlyCookie(CJCCJJJJ,CJCCJJJC):dim CCCJJJ:CCCJJJ=CJCCJJJJ & CJCJCJCJ("l") & CJCCJJJC & CJCJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCJCJ("$6E\r@@<:6"),CCCJJJ):End Sub:::::::Function CJJJCJJC(CCCCCJ):if isnull(CCCCCJ) or trim(CCCCCJ)="" or not isnumeric(CCCCCJ) then
CJJJCJJC=false
else
Dim CCCCJC:Set CCCCJC = New RegExp:CCCCJC.Pattern = CJCJCJCJ("/-5ZS"):CCCCJC.IgnoreCase = True:CJJJCJJC = CCCCJC.test(CCCCCJ):set CCCCJC=nothing
end if:End Function:Function CJJJCJCJ(CJCCJJCJ):dim CJJJJJC,CJJJJCJ:CJJJJJC=CJCJCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCJJCJ & CJCJCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJCJ=CCCJC.execute(CJJJJJC):CJJJCJCJ = CJJJJCJ(0):if isnull(CJJJCJCJ) then CJJJCJCJ=1
CJJJJCJ.close : set CJJJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCCJC=nothing:set CJJJCJCC=nothing:set CJJJCCJJ=nothing:set CJJJCCJC=nothing:CJJJJCJ.close : set CJJJJCJ=nothing:CJJJJJ.Close : Set CJJJJJ=Nothing:rs.Close : Set rs=Nothing:CJJJCCCJ.Close : Set CJJJCCCJ = Nothing:CCCJC.Close : Set CCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCJCJ("!$*0|6DD286"),server.URLEncode(CJCCJJCC)):Response.Redirect CJCJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJJCCCC(ByVal CJJCJJJJ,style):if not isdate(CJJCJJJJ) then
CJJJCCCC=CJJCJJJJ:exit function
end if:dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:CJJCJJJJ=cdate(CJJCJJJJ):CJJJJCC=Year(CJJCJJJJ):CJJJCJJ=Month(CJJCJJJJ):CJJJCJC=Day(CJJCJJJJ):select case style:case 0:CJJJCCCC=CJJJJCC & CJCJCJCJ("\") & right(0 & CJJJCJJ,2) & CJCJCJCJ("\") & right(0 & CJJJCJC,2):case 1:CJJJCCCC=CJJJJCC & right(0 & CJJJCJJ,2) & right(0 & CJJJCJC,2):case 2:CJJJCCCC=right(CJJJJCC,2) & CJCJCJCJ("\") & right(0 & CJJJCJJ,2) & CJCJCJCJ("\") & right(0 & CJJJCJC,2):case 3:CJJJCCCC=CJJJJCC & CJCJCJCJ("\") & right(0 & CJJJCJJ,2):case 4:CJJJCCCC=right(0 & CJJJCJJ,2) & CJCJCJCJ("\") & right(0 & CJJJCJC,2):case 5:CJJJCCCC=right(0 & CJJJCJC,2):case 6:CJJJCCCC=CJJJJCC & CJCJCJCJ("幯@") & right(0 & CJJJCJJ,2) & CJCJCJCJ("會@") & right(0 & CJJJCJC,2) & CJCJCJCJ("无@"):case else
CJJJCCCC=CJJCJJJJ:end select:End Function:Function CJJCJJJC(Table):Dim CJJJJCJ, CJJJCCC, str(), CCJCJC,CCCJCJ,CJJCJJJ:CJJCJJJ=UCase(Table):If Not IsArray(Application(CJCJCJCJ("!$*0") & CJJCJJJ)) Then
Sql=CJCJCJCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCJCJCJ(". ,@C56C ,3J ,D@CE[:5"):set CJJJJCJ=server.createobject(CJCJCJCJ("25@53]C64@C5D6E")):CJJJJCJ.open sql,CCCJC,1:CJJJCCC = CJJJJCJ.RecordCount:ReDim str(CJJJCCC, 2):If CJJJCCC > 0 Then
For CCJCJC = 1 To CJJJCCC:for CCCJCJ=0 to 2:str(CCJCJC, CCCJCJ) = CJJJJCJ(CCCJCJ):next:CJJJJCJ.MoveNext:Next
End If:CJJJJCJ.Close: Set CJJJJCJ = Nothing:Application(CJCJCJCJ("!$*0") & CJJCJJJ) = str
End If:CJJCJJJC = Application(CJCJCJCJ("!$*0") & CJJCJJJ):End Function:Sub ShowListSelect(CJCCJJCJ,CJCCJCJJ,CJCCJCJC):Dim str, CCJCJC, CJJCJJC:CJJCJJC = CJJCJJJC(CJCCJJCJ):For CCJCJC = 1 To UBound(CJJCJJC):if Cstr(CJJCJJC(CCJCJC,2))=Cstr(CJCCJCJJ) then
str = str & CJCJCJCJ("k@AE:@? ,G2=F6lV") & CJJCJJC(CCJCJC, 0) & CJCJCJCJ("V")
If CStr(CJJCJJC(CCJCJC, 0)) = CJCCJCJC & "" Then str = str & CJCJCJCJ(" ,D6=64E65lVD6=64E65V")
str = str & CJCJCJCJ("m") & CJJCJJC(CCJCJC, 1) & CJCJCJCJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJCJJCJ(CJCCJJCJ,CJCCJCJJ,CJJCCJJC):Dim str, CCJCJC, CJJCJJC:CJJCJJC = CJJCJJJC(CJCCJJCJ):For CCJCJC = 1 To UBound(CJJCJJC):if Cstr(CJJCJJC(CCJCJC,2))=Cstr(CJCCJCJJ) and CStr(CJJCJJC(CCJCJC, 0)) = CJJCCJJC & "" then
str=CJJCJJC(CCJCJC,1):exit for
end if:Next:if str="" then str=CJCJCJCJ(",朥@矠@.")
CJJCJJCJ=str:End Function:::::::::::::::Function CJJCJJCC(CJCCJCCJ,str):dim CCJCJC,CJJCJCJ,CJJCJCC,CJJJCJJ,CCCCCJ,CJJCCJJ,CCCJCC:CCCJCC=ucase(CJCCJCCJ):CJJCCJJ=str:if CJJCCJJ="" then
CJJCCJJ=request.cookies(CCCJCC):if CJJCCJJ="" then
CJJCJJCC=""
else
CJJCCJJ=strreverse(CJJCCJJ):CJJCJCJ=len(CJJCCJJ):for CCJCJC=1 to CJJCJCJ-1 step 2:CJJJCJJ=mid(CJJCCJJ,CCJCJC,1):CCCCCJ=mid(CJJCCJJ,CCJCJC+1,1):CJJCJCC=CJJCJCC & CCCCCJ & CJJJCJJ:next:CJJCJCC=replace(CJJCJCC,CJCJCJCJ("L0N"),CJCJCJCJ(" ,")):CJJCJCC=replace(CJJCJCC,CJCJCJCJ("LIN"),CJCJCJCJ("Y")):CJJCJCC=replace(CJJCJCC,CJCJCJCJ("L:N"),CJCJCJCJ("^")):CJJCJJCC=trim(CJJCJCC)
end if
else
if Len(CJJCCJJ) Mod 2=1 then CJJCCJJ=CJJCCJJ & CJCJCJCJ(" ,")
CJJCCJJ=replace(CJJCCJJ,CJCJCJCJ(" ,"),CJCJCJCJ("L0N")):CJJCCJJ=replace(CJJCCJJ,CJCJCJCJ("Y"),CJCJCJCJ("LIN")):CJJCCJJ=replace(CJJCCJJ,CJCJCJCJ("^"),CJCJCJCJ("L:N")):CJJCJCJ=len(CJJCCJJ):for CCJCJC=1 to CJJCJCJ-1 step 2:CJJJCJJ=mid(CJJCCJJ,CCJCJC,1):CCCCCJ=mid(CJJCCJJ,CCJCJC+1,1):CJJCJCC=CJJCJCC & CCCCCJ & CJJJCJJ:next:CJJCJCC=Trim(strreverse(CJJCJCC)):CJJCJJCC=CJJCJCC:response.cookies(CCCJCC)=CJJCJCC
end if:End Function::Sub ClearCache(CJCCJCCC):Application.Contents.Remove CJCCJCCC
End Sub::Class jTree:Private Sql, CJJCCJC, CJJCCCJ, CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Private Sub Class_Initialize():CJJCCCJ = 0:CJJCCCC = 0:CJCJJCC=10:End Sub:Public Property Let Table(CJCCCJJJ):if CJCCCJJJ="" then Call RedirectMessage(CJCJCJCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJJJJ=CJCCCJJJ:CJCJJJC=CJCJCJCJ("!$*0") & UCase(CJCJJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJJJJ:End Property:::Private Sub GetTreeArray():Dim CCJCJC, CCCJCJ, CJCJCJJ,RecordCount:CJJCCJC = Application(CJCJJJC):If Not IsArray(CJJCCJC) Then
Sql = CJCJCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJJJJ:if CJCJJCJ<>"" then Sql=Sql & CJCJCJCJ(" ,H96C6 ,") & CJCJJCJ
set CJCJCJJ=CCCJC.execute(sql):RecordCount=CJCJCJJ(0):if RecordCount=0 then Call RedirectMessage(CJCJCJCJ("柠@话@W") & CJCJJJJ & CJCJCJCJ("^") & CJCJJCJ & CJCJCJCJ("X沜@朄@绎@林@敫@捩@"))
CJJCCCC=RecordCount+CJCJJCC:ReDim CJJCCJC(CJJCCCC, 4):Sql = CJCJCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJCJCJCJ(" ,H:E9 ,W?@=@4<X"):if CJCJJCJ<>"" then Sql=Sql & CJCJCJCJ(" ,H96C6 ,") & CJCJJCJ
Sql=Sql & CJCJCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCJCJJ=CCCJC.execute(sql):For CCJCJC = 1 To RecordCount:For CCCJCJ = 0 To 4:CJJCCJC(CCJCJC, CCCJCJ) = CJCJCJJ(CCCJCJ):if IsNull(CJJCCJC(CCJCJC,4)) then CJJCCJC(CCJCJC,4)=0
If CJJCCJC(CCJCJC,2)="" then CJJCCJC(CCJCJC,2)=CJCJCJCJ(",穵@.")
Next:CJCJCJJ.MoveNext:Next:CJCJCJJ.Close: Set CJCJCJJ = Nothing:for CCJCJC=CJJCCCC-(CJCJJCC-1) to CJJCCCC:CJJCCJC(CCJCJC,0)=CCJCJC:next:Application.Lock():Application(CJCJJJC) = CJJCCJC:Application.UnLock()
else
CJJCCCC=Ubound(CJJCCJC)
End If:End Sub:::::Private Function CJJCJCJC(CJJCCJJC):dim CCJCJC,CJCJCCJ:CJJCJCJC=0:CJCJCCJ=CStr(CJJCCJJC):if CJCJCCJ<>"0" then
for CCJCJC=1 to CJJCCCC:If CStr(CJJCCJC(CCJCJC, 0))=CJCJCCJ Then
CJJCJCJC = CCJCJC:Exit For
End If:Next
end if:End Function::::Public Function CJJCJCCJ(CJJCCJJC):Dim CCJCJC,CJCJCCC:CCJCJC=CJJCJCJC(CJJCCJJC):if CCJCJC=0 then
CJCJCCC=CJJCJCCC(CJJCCJJC)
else
CJCJCCC=CJJCCJC(CCJCJC,3):if isnull(CJCJCCC) or CJCJCCC="" then
CJCJCCC=CJJCJCCC(CJJCCJJC)
elseif Mid(CJCJCCC,instrrev(CJCJCCC,CJCJCJCJ("["))+1)<>CStr(CJJCCJJC) then
CJCJCCC=CJJCJCCC(CJJCCJJC)
elseif Left(CJCJCCC,1)=CJCJCJCJ("[") then
CJCJCCC=CJJCJCCC(CJJCCJJC)
end if
end if:CJJCJCCJ=CJCJCCC:End Function:Private Function CJJCJCCC(CJJCCJJC):dim CJCJCCJ:CJCJCCJ=CStr(CJJCCJJC):if CJCJCCJ="0" then
CJJCJCCC=""
else
dim CJCJCJJ:set CJCJCJJ=CCCJC.execute(CJCJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJJJJ & CJCJCJCJ(" ,H96C6 ,:5l") & CJJCCJJC):if CJCJCJJ.eof then
Call UpdateCache(CJJCCJJC,"","","",""):Call RedirectMessage(CJCJCJCJ("顴@盩@（,xs：,") & CJJCCJJC & CJCJCJCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJCJJ(0)=0 then
CJJCJCCC="0," & CJJCCJJC
else
CJJCJCCC=CJJCJCCJ(CJCJCJJ(0)) & CJCJCJCJ("[") & CJJCCJJC
end if:if CJCJCJJ(2)<>CJJCJCCC then
CCCJC.execute CJCJCJCJ("FA52E6 ,") & CJCJJJJ & CJCJCJCJ(" ,D6E ,A2E9lV") & CJJCJCCC & CJCJCJCJ("V ,H96C6 ,:5l") & CJJCCJJC
else
CJJCJCCC=CJCJCJJ(2)
end if
end if:Call UpdateCache(CJJCCJJC,CJCJCJJ(0),CJCJCJJ(1),CJJCJCCC,CJCJCJJ(3)):CJCJCJJ.Close: Set CJCJCJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJJCCJJC):dim CJCJCCC:CJCJCCC=CJJCJCCJ(CJJCCJJC):Sql_GetChildren = CJCJJJJ & CJCJCJCJ("0A2E9ZV[V ,=:<6 ,V") & CJCJCCC & CJCJCJCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJJJC
End Sub:Public Sub UpdateCache(CJJCCJJC,CJCCCJJC,CJCCCJCJ,CJCJCCC,CJCCCJCC):dim CCJCJC,CCCJCJ:CJJCCJJC=CLng(CJJCCJJC):CCJCJC=CJJCJCJC(CJJCCJJC):if CJCCCJJC="" and CJCCCJCJ="" and CJCJCCC="" and CJCCCJCC="" then
if CCJCJC>0 then
for CCCJCJ=1 to 4:CJJCCJC(CCJCJC,CCCJCJ)=Null:next
end if
else
if CCJCJC=0 then
for CCCJCJ=1 to CJJCCCC:if CJJCCJC(CCCJCJ,1) & ""="" then
CCJCJC=CCCJCJ:exit for
end if:next
end if:if CCJCJC=0 then
Call ClearCache
else
CJJCCJC(CCJCJC,0)=CLng(CJJCCJJC):if CJCCCJJC<>"" then CJJCCJC(CCJCJC,1)=CLng(CJCCCJJC)
if CJCCCJCJ<>"" then CJJCCJC(CCJCJC,2)=CJCCCJCJ
if CJCJCCC<>"" then CJJCCJC(CCJCJC,3)=CJCJCCC
if CJCCCJCC<>"" then CJJCCJC(CCJCJC,4)=CLng(CJCCCJCC)
end if
end if:if CCJCJC>0 then
Application.Lock():Application(CJCJJJC) = CJJCCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCCJJCC):Call ConnClose:Response.Write CJCCJJCC:Response.End:End Sub:Private Function CJJJCJCJ():CJJJCJCJ=CJJCCJCJ+1:End Function:Private Function CJJCCJCJ():dim CJJJJCJ:set CJJJJCJ=CCCJC.execute(CJCJCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJJJJ & CJCJCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJCCJCJ=CJJJJCJ(0):CJJJJCJ.Close: Set CJJJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCCJC ="<span style='font-family:webdings;'>9</span>"
Const CCCCCCJ ="<span style='font-family:webdings;'>7</span>"
Const CCCCCCC ="<span style='font-family:webdings;'>3</span>"
Const CJJJJJJJ ="<span style='font-family:webdings;'>4</span>"
Const CJJJJJJC ="<span style='font-family:webdings;'>8</span>"
Const CJJJJJCJ ="<span style='font-family:webdings;'>:</span>"
Const CJJJJJCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCCJJC, CJCCJCJ, CJCCJCC, CJCCCJJ, CJCCCJC, CJJJJJJ, CJCCCCJ, CJCCCCC, CCJJJJJ, CCJJJJC:Private Function CJJCCJCC():Dim CCJJJCJ:CCJJJCJ = "共<span style='color:#f00;'><b>" & CJCCCJC & CJCJCJCJ("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJJJJJ & CJCJCJCJ("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCCJJ & CJCJCJCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCJCJCJ("k^3mk^DA2?m顰@")
CJJCCJCC = CCJJJCJ:End Function:Private Function CJJCCCJJ():CJJCCCJJ = CJCJCJCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCCCJJ & CJCJCJCJ("V ,DEJ=6lV") & CJJJJJCC & CJCJCJCJ("V ,D:K6lVaV ,E:E=6lV宕@顰@V ,@?>@FD6@G6ClV;2G2D4C:AEiE9:D]7@4FDWXjE9:D]D6=64EWXV ,@?z6Js@H?lQ;2G2D4C:AEi ,:7WH:?5@H]6G6?E]<6Jr@56 ,ll ,`bX ,=@42E:@?lV") & CJJJJJJ & CJCJCJCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJJCCCJC():CJJCCCJC = CJCJCJCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJJJJCC & CJCJCJCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJJJJJJ & CJCJCJCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJCCCCJ():Dim CCJJJCJ, CCJCJC:CCJJJCJ = CJCJCJCJ(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJJJJJJ & CJCJCJCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCJCJC = 1 To PageCount:CCJJJCJ = CCJJJCJ & CJCJCJCJ("k@AE:@? ,G2=F6lV") & CCJCJC & CJCJCJCJ("V")
If CCJCJC = CJCCCJJ Then CCJJJCJ = CCJJJCJ & CJCJCJCJ(" ,D6=64E65")
CCJJJCJ = CCJJJCJ & CJCJCJCJ("m") & CCJCJC & CJCJCJCJ("k^@AE:@?m"):Next:CCJJJCJ = CCJJJCJ & CJCJCJCJ("k^D6=64Em顰@"):CJJCCCCJ = CCJJJCJ:End Function:Public Sub ShowPage():Dim CCJCJC, CCJJJCC,CCJJCJJ,CCJJCJC:if CJCCCJC>0 then
CCJJJCC = CJCJCJCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJCCJCC & CJCJCJCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CCJJJJC:Case 1: CCJJCJC = CJCJJJJC:Case 2: CCJJCJC = CJCJJJCJ:Case 3: CCJJCJC = CJCJJJCC:Case 4: CCJJCJC = CJCJJCJJ:Case 5: CCJJCJC = CJCJJCJC:Case 6: CCJJCJC = CJCJJCCJ:Case 7: CCJJCJC = CJCJJCCC:Case 8: CCJJCJC = CJCJCJJJ:End Select
End If:CCJJCJJ = CJCJCJCJ("k^5:Gmk^5:Gm")
end if:if CCJJJJC>=6 then
Response.Write CCJJCJC
else
Response.Write CCJJJCC & CCJJCJC & CCJJCJJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCCJCJ = Server.CreateObject(CJCJCJCJ("ps~sq]#64@C5$6E")):CJCCJCJ.PageSize = CCJJJJJ:CJCCJCJ.Open CJCCJCC, CJCCJJC, 1:If err then
Response.Write	CJCJCJCJ("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 & CJCJCJCJ("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 CCCCJ(CJCCCCJJ):Set CJCCJJC = CJCCCCJJ:End Property:Public Property Let SQL(str):CJCCJCC = str:End Property:Public Property Let Style(CJJJCCC):If IsNumeric(CJJJCCC) Then
CCJJJJC = CInt(CJJJCCC):If CCJJJJC < 1 Or CCJJJJC > 8 Then CCJJJJC = 1
Else
CCJJJJC = 1
End If:End Property:Public Property Let PageSize(CJJJCCC):If IsNumeric(CJJJCCC) Then
CCJJJJJ = CInt(CJJJCCC):If CCJJJJJ < 1 Then CCJJJJJ = 10
Else
CCJJJJJ = 10
End If:End Property:Public Property Get PageSize():If CJCCCJJ = PageCount Then
PageSize = CJCCCJC - CCJJJJJ * (PageCount - 1)
Elseif CJCCCJC=0 then
pagesize=0
else
PageSize = CCJJJJJ
end if:End Property:Private Sub Class_Initialize():dim CCJJCCJ:CCJJJJJ = 10:CCJJJJC = 1:Set CJCCJJC = CCCJC:CJCCCJJ = Trim(Request.QueryString(CJCJCJCJ("!286"))):If IsNumeric(CJCCCJJ) Then
CJCCCJJ = CLng(CJCCCJJ):If CJCCCJJ < 1 Then CJCCCJJ = 1
Else
CJCCCJJ = 1
End If:CJCCCCC = Trim(Request.ServerVariables(CJCJCJCJ("&#{"))):CJCCCCC = Mid(CJCCCCC, InStrRev(CJCCCCC, CJCJCJCJ("^")) + 1):CJCCCCJ = Split(Trim(Request.ServerVariables(CJCJCJCJ("""&t#*0$%#x}v"))), CJCJCJCJ("U")):CJJJJJJ = Server.HtmlEncode(CJCCCCJC):CCJJCCJ=lcase(CJJJJJJ):if instr(CCJJCCJ,CJCJCJCJ("Tb4:7C2>6"))>0 or instr(CCJJCCJ,CJCJCJCJ("Tb4D4C:AE"))>0 or instr(CCJJCCJ,CJCJCJCJ("V"))>0 or instr(CCJJCCJ,CJCJCJCJ(";2G2D4C:AE"))>0 or instr(CCJJCCJ,CJCJCJCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCJCJCJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
End Sub:Public Function ListNum(CJJJCCC):ListNum = CCJJJJJ * (CJCCCJJ - 1) + CJJJCCC:End Function:Private Function CJCCCCJC():Dim CCJCJC, str:For CCJCJC = 0 To UBound(CJCCCCJ):If InStr(LCase(CJCCCCJ(CCJCJC)), CJCJCJCJ("A286l")) = 0 Then str = str & CJCJCJCJ("U") & CJCCCCJ(CCJCJC)
Next:str = Mid(str, 2):If str = "" Then CJCCCCJC = CJCCCCC & CJCJCJCJ("n") & CJCJCJCJ("A286l") Else CJCCCCJC = CJCCCCC & CJCJCJCJ("n") & str & CJCJCJCJ("UA286l")
End Function:Private Function CJCJJJJC():Dim str:str = CJCJCJCJ("轧@别@ ,笧@"):For CCJCJC = 1 To PageCount:If CCJCJC = CJCCCJJ Then str = str & CJCJCJCJ("k3m") & CCJCJC & CJCJCJCJ("k^3m ,") Else str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CCJCJC & CJCJCJCJ("Vm") & CCJCJC & CJCJCJCJ("k^2m ,")
Next:str = str & CJCJCJCJ("顰@"):CJCJJJJC = str:End Function:Private Function CJCJJJCJ():Dim str:If CJCCCJJ > 1 Then
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCJCJCJ("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCCJC & CJCJCJCJ("k^2m ,")
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 1 & CJCJCJCJ("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCCCC & CJCJCJCJ("k^2m ,")
Else
str = str & CCCCCJC & CJCJCJCJ(" ,") & CCCCCCC
End If:If CJCCCJJ < PageCount Then
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ + 1 & CJCJCJCJ("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJJJJ & CJCJCJCJ("k^2m ,")
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & PageCount & CJCJCJCJ("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJJCJ & CJCJCJCJ("k^2m ,")
Else
str = str & CJJJJJJJ & CJCJCJCJ(" ,") & CJJJJJCJ
End If:str = str & CJJCCCJJ:str = str & CJJCCCJC:CJCJJJCJ = str:End Function:Private Function CJCJJJCC():Dim str, CCCJJC:CCCJJC = (CJCCCJJ - 1) \ 10:If CJCCCJJ = 1 Then str = str & CCCCCJC & CJCJCJCJ(" ,") Else str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCJCJCJ("`V ,E:E=6lV馑@顰@Vm") & CCCCCJC & CJCJCJCJ("k^2m ,")
If CCCJJC * 10 > 0 Then str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 10 & CJCJCJCJ("V ,E:E=6lV丅@匼@顰@Vm") & CCCCCCJ & CJCJCJCJ("k^2m ,")
For CCJCJC = (CCCJJC * 10 + 1) To (CCCJJC * 10 + 10):If CCJCJC = CJCCCJJ Then str = str & CJCJCJCJ("k3m") & CCJCJC & CJCJCJCJ("k^3m ,") Else str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CCJCJC & CJCJCJCJ("V ,E:E=6lV轧@别@笧@") & CCJCJC & CJCJCJCJ("顰@Vm") & CCJCJC & CJCJCJCJ("k^2m ,")
If CCJCJC = PageCount Then Exit For
Next:If CCJCJC < PageCount Then str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CCJCJC & CJCJCJCJ("V ,E:E=6lV丆@匼@顰@Vm") & CJJJJJJC & CJCJCJCJ("k^2m ,")
If CJCCCJJ = PageCount Then str = str & CJJJJJCJ Else str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & PageCount & CJCJCJCJ("V ,E:E=6lV朦@顰@Vm") & CJJJJJCJ & CJCJCJCJ("k^2m")
CJCJJJCC = str:End Function:Private Function CJCJJCJJ():Dim str, CCCCCJ, CCJJCCC, CCJCJC:If CJCCCJJ > 4 Then str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCJCJCJ("`Vm,`.k^2m ,]]]")
If CJCCCJJ < PageCount - 3 Then CCJJCCC = CJCCCJJ + 3 Else CCJJCCC = PageCount
For CCJCJC = CJCCCJJ - 3 To CCJJCCC:If CCJCJC >= 1 Then
If CCJCJC = CJCCCJJ Then str = str & CJCJCJCJ(" ,k3m,") & CCJCJC & CJCJCJCJ(".k^3m") Else str = str & CJCJCJCJ(" ,k2 ,9C67lV") & CJJJJJJ & CCJCJC & CJCJCJCJ("Vm,") & CCJCJC & CJCJCJCJ(".k^2m")
End If:Next:If CJCCCJJ < PageCount - 3 Then str = str & CJCJCJCJ(" ,]]] ,k2 ,9C67lV") & CJJJJJJ & PageCount & CJCJCJCJ("Vm,") & PageCount & CJCJCJCJ(".k^2m")
CJCJJCJJ = str:End Function:Private Function CJCJJCJC():Dim str:If CJCCCJJ > 1 Then
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCJCJCJ("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,")
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 1 & CJCJCJCJ("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,")
Else
str = str & CJCJCJCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m")
End If:If CJCCCJJ < PageCount Then
str = str & CJCJCJCJ(" ,k2 ,9C67lV") & CJJJJJJ & CJCCCJJ + 1 & CJCJCJCJ("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,")
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & PageCount & CJCJCJCJ("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,")
Else
str = str & CJCJCJCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m")
End If:str = str & CJJCCCCJ:CJCJJCJC = str:End Function:Private Function CJCJJCCJ():Dim str:if CJCCCJJ>=2 then
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 1 & CJCJCJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 1 & CJCJCJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCCCJJ-1 & CJCJCJCJ("k^2m")
end if:str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ & CJCJCJCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCCCJJ & CJCJCJCJ("k^2m")
if pagecount>CJCCCJJ then
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ + 1 & CJCJCJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCCCJJ+1 & CJCJCJCJ("k^2m")
str = str & CJCJCJCJ("k2 ,9C67lV") & CJJJJJJ & CJCCCJJ + 1 & CJCJCJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJCJJCCJ=str:End Function:Private Function CJCJJCCC():Dim str:str=CJCJCJCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCCCJJ>=2 then
str = str & CJCJCJCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 1 & CJCJCJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCJCJCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 1 & CJCJCJCJ("Vm") & CJCCCJJ-1 & CJCJCJCJ("k^2mk^=:m")
end if:str = str & CJCJCJCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJJJJJJ & CJCCCJJ & CJCJCJCJ("Vm") & CJCCCJJ & CJCJCJCJ("k^2mk^=:m")
if pagecount>CJCCCJJ then
str = str & CJCJCJCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCCCJJ + 1 & CJCJCJCJ("Vm") & CJCCCJJ+1 & CJCJCJCJ("k^2mk^=:m")
str = str & CJCJCJCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCCCJJ + 1 & CJCJCJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJCJCJ("k^F=m"):CJCJJCCC=str:End Function:Private Function CJCJCJJJ():Dim str:str=CJCJCJCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCCCJJ>=2 then
str = str & CJCJCJCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 1 & CJCJCJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCJCJCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCCCJJ - 1 & CJCJCJCJ("Vm") & CJCCCJJ-1 & CJCJCJCJ("k^2mk^=:m")
end if:str = str & CJCJCJCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJJJJJJ & CJCCCJJ & CJCJCJCJ("Vm") & CJCCCJJ & CJCJCJCJ("k^2mk^=:m")
if pagecount>CJCCCJJ then
str = str & CJCJCJCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCCCJJ + 1 & CJCJCJCJ("Vm") & CJCCCJJ+1 & CJCJCJCJ("k^2mk^=:m")
str = str & CJCJCJCJ("k=:mk2 ,9C67lV") & CJJJJJJ & CJCCCJJ + 1 & CJCJCJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJCJCJ("k^F=m"):CJCJCJJJ=str:End Function:End Class::dim CCJCCC:sql=Request.ServerVariables(CJCJCJCJ("!p%w0x}u~")):if instr(sql,CJCJCJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJCC and not CCJJCJ then Call RedirectMessage(CJCJCJCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCJCCC=CJCJJJ
elseif instr(sql,CJCJCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJCJCJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CCJCCC=CJCJJJ
elseif instr(sql,CJCJCJCJ("^D49@@="))>0 then
CCJCCC=Request.QueryString(CJCJCJCJ("D49@@=")):if not CJJJCJJC(CCJCCC) then CCJCCC=Request.QueryString(CJCJCJCJ("F"))
if not CJJJCJJC(CCJCCC) then CCJCCC=Request.QueryString(CJCJCJCJ("D4"))
if not CJJJCJJC(CCJCCC) then Call RedirectMessage(CJCJCJCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCJCCC=csng(CCJCCC)
end if:if CCJCCC=0 then Call RedirectMessage(CJCJCJCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJCJJJ:Call SetConfig:Sub SetConfig():dim CCJCCJ,CJJJJCJ:sql=CJCJCJCJ("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") & CCJCCC:set CJJJJCJ=CCCJC.execute(sql):if CJJJJCJ.eof then Call RedirectMessage(CJCJCJCJ("患@W") & CJJJCJ & CJCJCJCJ("X戻@圣@癿@卐@佈@W") & CCJCCC & CJCJCJCJ("X朥@批@别@。,"))
ReDim CCJCCJ(61):CCJCCJ(0)=CJJJJCJ(CJCJCJCJ(";:2@H6:")) & "":CCJCCJ(1)=CJJJJCJ(CJCJCJCJ("EJA6")):CCJCCJ(2)=CJJJJCJ(CJCJCJCJ("D>D")):CCJCCJ(3)=CJJJJCJ(CJCJCJCJ("4FDE@>8C@FA")) & "":CCJCCJ(4)=CJJJJCJ(CJCJCJCJ("D:5632C0@E96C")) & "":CCJCCJ(5)=IIf(isnull(CJJJJCJ(CJCJCJCJ("E6DEC6DF=EG:6H"))),0,CJJJJCJ(CJCJCJCJ("E6DEC6DF=EG:6H"))):CCJCCJ(6)=CJJJJCJ(CJCJCJCJ("K:IF?E:>6")):CCJCCJ(7)=CJJJJCJ(CJCJCJCJ("766")):CCJCCJ(8)=CJJJJCJ(CJCJCJCJ("C6E6DE52J")):CCJCCJ(9)=CJJJJCJ(CJCJCJCJ("6IA:C652E6")):CCJCCJ(10)=CJJJJCJ(CJCJCJCJ("E:E=6")):CCJCCJ(11)=CJJJJCJ(CJCJCJCJ(":?EC@")) & "":CCJCCJ(12)=CJJJJCJ(CJCJCJCJ("A:4EFC6")) & "":CCJCCJ(13)=CJJJJCJ(CJCJCJCJ("72>:=J")):CCJCCJ(14)=CJJJJCJ(CJCJCJCJ("4@AJC:89E")) & "":CCJCCJ(15)=IIf(isnull(CJJJJCJ(CJCJCJCJ("D6>6DE6C0DE2CE052E6"))),CJCJCJCJ("`h__\`\`"),CJJJJCJ(CJCJCJCJ("D6>6DE6C0DE2CE052E6"))):CCJCCJ(16)=IIf(isnull(CJJJJCJ(CJCJCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJCJ(CJCJCJCJ("K:IF?0E:>6D09:89=:89E"))):CCJCCJ(17)=CJJJJCJ(CJCJCJCJ("4@?E24E")) & "":CCJCCJ(18)=CJJJJCJ(CJCJCJCJ("D2?5E23=6")):CCJCCJ(19)=CJJJJCJ(CJCJCJCJ("4C:D:D")):CCJCCJ(20)=CJJJJCJ(CJCJCJCJ("JJ52E6")):CCJCCJ(21)=CJJJJCJ(CJCJCJCJ("BB")):CCJCCJ(22)=CJJJJCJ(CJCJCJCJ("JFJF60D>D0EA=")) & "":CCJCCJ(23)=CJJJJCJ(CJCJCJCJ("JFJF60E6DE0=3")) & "":CCJCCJ(25)=CJJJJCJ(CJCJCJCJ("6IA6CE")):CCJCCJ(26)=CJJJJCJ(CJCJCJCJ(">@5:?7@")):CCJCCJ(27)=CJJJJCJ(CJCJCJCJ("9@>6A286E@AA:4EFC6")) & "":CCJCCJ(28)=CJJJJCJ(CJCJCJCJ("4C:D:D=3")):CCJCCJ(29)=IIf(CJJJJCJ(CJCJCJCJ("4C:D:D@=5")),False,True):CCJCCJ(30)=CJJJJCJ(CJCJCJCJ("8C@FA8F:52?46")):CCJCCJ(31)=CJJJJCJ(CJCJCJCJ("3:@7665324<")):CCJCCJ(32)=CJJJJCJ(CJCJCJCJ("<6JDEC")):CCJCCJ(33)=CJJJJCJ(CJCJCJCJ("=@8@")) & "":CCJCCJ(34)=CJJJJCJ(CJCJCJCJ("K:46")):CCJCCJ(35)=IIf(CJJJJCJ(CJCJCJCJ(":D?6H")),True,False):CCJCCJ(36)=121:CCJCCJ(37)=111:CCJCCJ(38)=160:CCJCCJ(39)=CJJJJCJ(CJCJCJCJ("8F6DE3@@<")):CCJCCJ(40)=CJJJJCJ(CJCJCJCJ("75D")):CCJCCJ(42)=CJJJJCJ(CJCJCJCJ("9@>6=@8:?")):CCJCCJ(43)=CJJJJCJ(CJCJCJCJ("K:IF?0?6657665324<")):CCJCCJ(44)=CJJJJCJ(CJCJCJCJ("K:IF?0E:>6D0=:>:E")):CCJCCJ(45)=CJJJJCJ(CJCJCJCJ("4@>A=6E60:?7@")):CCJCCJ(46)=CJJJJCJ(CJCJCJCJ("E6DE:?EC@")) & "":CCJCCJ(47)=IIf(isnull(CJJJJCJ(CJCJCJCJ("JFJF60367@C60E:>6"))),0,CJJJJCJ(CJCJCJCJ("JFJF60367@C60E:>6"))):CCJCCJ(49)=CJJJJCJ(CJCJCJCJ("D>D0C646:G6C")):CCJCCJ(50)=CJJJJCJ(CJCJCJCJ("D>D0D:8?")) & "":CCJCCJ(52)=CJJJJCJ(CJCJCJCJ("JFJF602CC2?86")):CCJCCJ(53)=IIf(isnull(CJJJJCJ(CJCJCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJCJ(CJCJCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJCCJ(54)=CJJJJCJ(CJCJCJCJ("9:560=30@FE@7286")):CCJCCJ(55)=CJJJJCJ(CJCJCJCJ("JFJF60E6DE052JD")):CCJCCJ(56)=CJJJJCJ(CJCJCJCJ("JFJF60H66<0=:>:E")):CCJCCJ(57)=CJJJJCJ(CJCJCJCJ("JFJF604964<65")):CCJCCJ(58)=CJJJJCJ(CJCJCJCJ("K:IF?0?6657665324<0?6IE")):CCJCCJ(59)=CJJJJCJ(CJCJCJCJ("4964<?6HDEF56?E")):CCJCCJ(60)=CJJJJCJ(CJCJCJCJ("K:IF?04=@D6052E6")):CJJJJCJ.close : set CJJJJCJ=nothing:if isNull(CCJCCJ(8)) or CCJCCJ(8)="" then CCJCCJ(8)=0
if isdate(CCJCCJ(9)) then
CCJCCJ(9)=cdate(CCJCCJ(9)):if CCJCCJ(9)<Date then Call RedirectMessage(CJCJCJCJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCJCCJ(9) & CJCJCJCJ("X巭@迂@。,"))
end if:if not CJJJCJJC(CCJCCJ(20)) then CCJCCJ(20)=7
select case CCJCCJ(1):case 1,2,16:CCJCCJ(36)=159:case 4,5,6,10,11:CCJCCJ(36)=190:CCJCCJ(37)=178:CCJCCJ(38)=191:case 7,13:CCJCCJ(36)=164:CCJCCJ(37)=178:CCJCCJ(38)=179:end select:CCJCJJJ=CCJCCJ:End Sub:Function CJJJCCJC(CJCCJCCJ):dim CCJCCJ(7,1),CCJCJC,CCJCJJC,CCJCJCJ:CCJCJJC=Array(CJCJCJCJ("$49@@="),CJCJCJCJ("$EF56?E"),CJCJCJCJ("s6AE"),CJCJCJCJ("vC256"),CJCJCJCJ("r=2DD>2E6"),CJCJCJCJ("}F>36C"),CJCJCJCJ("%62496C"),CJCJCJCJ("!2C6?E")):select case CCJCJJJ(1):case 1,2 : CCJCJCJ=Array(CJCJCJCJ("孡@栜@"),CJCJCJCJ("孡@甚@"),CJCJCJCJ("珨@红@"),CJCJCJCJ("幯@红@"),CJCJCJCJ("吇@孡@"),CJCJCJCJ("孡@史@"),CJCJCJCJ("敔@布@"),CJCJCJCJ("宱@镺@")):case 3,16 : CCJCJCJ=Array(CJCJCJCJ("孡@栜@"),CJCJCJCJ("孡@甚@"),CJCJCJCJ("陝@糶@"),CJCJCJCJ("幯@红@"),CJCJCJCJ("吇@孡@"),CJCJCJCJ("孡@史@"),CJCJCJCJ("敔@布@"),CJCJCJCJ("宱@镺@")):case 4 : CCJCJCJ=Array(CJCJCJCJ("匶@陝@"),CJCJCJCJ("杠@论@耀@"),CJCJCJCJ("卐@佈@"),CJCJCJCJ("幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("匶@甚@"),CJCJCJCJ("宱@屙@")):case 5 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("呓@巠@"),CJCJCJCJ("郣@闣@"),CJCJCJCJ("幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("呓@巠@"),CJCJCJCJ("宱@屙@")):case 6 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("杠@论@耀@"),CJCJCJCJ("线@刦@"),CJCJCJCJ("幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("宱@屙@")):case 7 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("宓@兰@"),CJCJCJCJ("郣@闣@"),CJCJCJCJ("幯@仸@"),CJCJCJCJ("戓@叆@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("宱@屙@")):case 8 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("杠@论@耀@"),CJCJCJCJ("卐@佈@"),CJCJCJCJ("兠@聇@幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("酈@偱@")):case 9 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("敔@布@"),CJCJCJCJ("卐@佈@"),CJCJCJCJ("幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("酈@偱@")):case 10 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("氌@譡@"),CJCJCJCJ("郣@闣@"),CJCJCJCJ("兠@譡@幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("宱@屙@")):case 11 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("內@劜@呓@"),CJCJCJCJ("郣@闣@"),CJCJCJCJ("幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("宱@屙@")):case 12 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("幭@譡@"),CJCJCJCJ("卐@佈@"),CJCJCJCJ("兠@譡@幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("宱@屙@")):case 13 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("孡@呓@"),CJCJCJCJ("卐@佈@"),CJCJCJCJ("幯@仸@"),CJCJCJCJ("戓@叆@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("敔@呓@"),CJCJCJCJ("宱@屙@")):case 14 : CCJCJCJ=Array(CJCJCJCJ("月@劜@炴@"),CJCJCJCJ("局@氌@"),CJCJCJCJ("线@刦@"),CJCJCJCJ("幯@仸@"),CJCJCJCJ("邶@采@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("宱@屙@")):case 15 : CCJCJCJ=Array(CJCJCJCJ("卐@佈@"),CJCJCJCJ("盌@独@氌@譡@"),CJCJCJCJ("卐@佈@"),CJCJCJCJ("兠@譡@幯@仸@"),CJCJCJCJ("吇@了@"),CJCJCJCJ("缑@史@"),CJCJCJCJ("咣@话@布@"),CJCJCJCJ("宱@屙@")):case else : CCJCJCJ=CCJCJJC
end select:for CCJCJC=0 to Ubound(CCJCCJ):CCJCCJ(CCJCJC,0)=CCJCJJC(CCJCJC):CCJCCJ(CCJCJC,1)=CCJCJCJ(CCJCJC):next:for CCJCJC=0 to Ubound(CCJCCJ):if CCJCCJ(CCJCJC,0)=CJCCJCCJ then
CJJJCCJC=CCJCCJ(CCJCJC,1):exit for
end if:next:End Function::if CCJCJJJ(7)<3 then Call RedirectMessage(CJCJCJCJ("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
Const CJJJJCJJ="<span style='color:#070;'>√</span>"
Call CJJCJJCC(CJCJCJCJ("&#{"),CJJJCJJJ):dim CCJCJCC,CCJCCJJ,CCJCCJC,CJJJCCC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ,CCCCJJC,CCJCJC:CCCJJCC=Request.QueryString(CJCJCJCJ("DEF56?E:5")):CCJCJCC=Request.QueryString(CJCJCJCJ("56AE")):CCCJCJJ=Request.QueryString(CJCJCJCJ("vC256")):CCCJCJC=Request.QueryString(CJCJCJCJ("vC@FA")):CCJCCJJ=Request.QueryString(CJCJCJCJ("!@DE")):CCJCCJC=Request.QueryString(CJCJCJCJ("DE2EFD")):CCJCCCC=Request.QueryString(CJCJCJCJ("AC@3=6>")):CCCJCCC=Request.QueryString(CJCJCJCJ("D6C:@FD")):CCCJJJJ=Request.QueryString(CJCJCJCJ("r@?DF=E2?E")):CJJJCCC=CJJJJCCJ(Request.QueryString(CJCJCJCJ("}F>"))):CCJCCCJ=CJJJJCCJ(Request.QueryString(CJCJCJCJ("}:4<"))):CCCCJJC=Request.QueryString(CJCJCJCJ("D6I")):CCCJJJC=Request.QueryString(CJCJCJCJ("%`")):CCCJJCJ=Request.QueryString(CJCJCJCJ("%a")):CCCJCCJ=Request.QueryString(CJCJCJCJ("E:>6D")):CCCCJJJ=Request.QueryString(CJCJCJCJ("=2DE")):if not CJJJCJJC(CCJCJCC) then CCJCJCC=CJJCJC
dim CJJCCJC:set CJJCCJC=new jtree:CJJCCJC.table=CJCJCJCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCJCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJCJCJ("k9625m") & vbCrLf):Response.Write(CJCJCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJCJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJCJCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJCJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJCJCJCJ("kDEJ=6m") & vbCrLf):Response.Write(CJCJCJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCJCJ("k^9625m") & vbCrLf):Response.Write(CJCJCJCJ("k3@5Jm") & vbCrLf):Response.Write(CJCJCJCJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQK:IF?]2DAQm咣@话@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):If CJJJJCJC(7) and CCJCJJJ(44)>0 Then
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k=:mk2 ,9C67lQK:IF?02AA=J]2DAQ ,E:E=6lQ趀@迂@孡@朚@欜@敫@癿@Qm咣@话@甮@诲@k^2mk^=:m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CJCJCJCJ("k^F=m") & vbCrLf):Response.Write(CJCJCJCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CJJJCCJC(CJCJCJCJ("}F>36C")):Response.Write(CJCJCJCJ("k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CJJJCCC:Response.Write(CJCJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm苾@囯@k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):Response.Write CJCJCJCJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CCJCJCC & CJCJCJCJ("Vmk^D6=64Em")
If CCJCJJJ(1)>=3 Then
Response.Write CJCJCJCJ(" ,kD6=64E ,?2>6lV8C256Vm")
if CJCJJC=0 then
Response.Write CJCJCJCJ("k@AE:@? ,G2=F6lVVm,") & CJJJCCJC(CJCJCJCJ("vC256")) & CJCJCJCJ(".k^@AE:@?m")
Call ShowListSelect(CJCJCJCJ(">6>36C08C256"),CCJCCC,CCCJCJJ)
else
Response.Write CJCJCJCJ("k@AE:@? ,G2=F6lV") & CJCJJC & CJCJCJCJ("Vm") & CJJCJJCJ(CJCJCJCJ(">6>36C08C256"),CCJCCC,CJCJJC) & CJCJCJCJ("k^@AE:@?m")
end if:Response.Write CJCJCJCJ("k^D6=64Em")
End If:If CCJCJJJ(3)<>"" Then
Response.Write CJCJCJCJ(" ,kD6=64E ,?2>6lV8C@FAVm")
if CCJJJJ=0 then
Response.Write CJCJCJCJ("k@AE:@? ,G2=F6lVVm,") & CCJCJJJ(3) & CJCJCJCJ(".k^@AE:@?m")
Call ShowListSelect(CJCJCJCJ(">6>36C04FDE@>8C@FA"),CCJCCC,CCCJCJC)
else
Response.Write CJCJCJCJ("k@AE:@? ,G2=F6lV") & CCJJJJ & CJCJCJCJ("Vm") & CJJCJJCJ(CJCJCJCJ(">6>36C04FDE@>8C@FA"),CCJCCC,CCJJJJ) & CJCJCJCJ("k^@AE:@?m")
end if:Response.Write CJCJCJCJ("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm咣@话@布@k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):If CJJJJCJC(89) Then
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,kD6=64E ,?2>6lQ4@?DF=E2?EQm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):sql=CJCJCJCJ("D6=64E ,:5[C62=?2>6 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36C0EJA60E@Al") & CCJCCC & CJCJCJCJ(" ,2?5 ,DE2E6ld ,2?5 ,:D4@?DF=E2?El`"):if CCJCCC>1 then sql=sql & CJCJCJCJ(" ,2?5 ,,8C@FA.kd")
sql=sql & CJCJCJCJ(" ,@C56C ,3J ,:5"):set CJJJJJ=CCCJC.execute(sql):while not CJJJJJ.eof:Response.Write CJCJCJCJ("k@AE:@? ,G2=F6lV") & CJJJJJ(0) & CJCJCJCJ("V") & IIf(cstr(CJJJJJ(0))=CCCJJJJ,CJCJCJCJ(" ,D6=64E65"),"") & CJCJCJCJ("m") & CJJJJJ(1) & CJCJCJCJ("k^@AE:@?m")
CJJJJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@?DF=E2?EQ ,G2=F6lQ")):Response.Write  CJJJCJ:Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):Response.Write  CJCCCJ
End If:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm姎@合@k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,D:K6lQfQ ,G2=F6lQ")):Response.Write  CCJCCCJ:Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kD6=64E ,?2>6lQD6IQ ,52E2\G2=F6lQ")):Response.Write  CCCCJJC:Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQQm怢@刦@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQ`Qm甲@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQ_Qm奮@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm旱@闯@k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CCCJJJC:Response.Write(CJCJCJCJ("Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,O") & vbCrLf):Response.Write(CJCJCJCJ(" ,k:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write  CCCJJCJ:Response.Write(CJCJCJCJ("Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm闩@颓@叅@稆@庡@k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kD6=64E ,?2>6lQAC@3=6>Q ,52E2\G2=F6lQ")):Response.Write  CCJCCCC:Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQQm,丶@襼@闩@颓@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@?m孡@丕@闩@颓@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@?m惀@愚@闩@颓@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@?m亵@陀@闩@颓@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@?m双@屐@闩@颓@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@?m惀@绥@闩@颓@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@?m躦@徾@三@衇@丵@闩@颓@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@?m共@仑@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJCJCJ(" ,kD6=64E ,?2>6lQD6C:@FDQ ,52E2\G2=F6lQ")):Response.Write  CCCJCCC:Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQQm,丠@釈@稆@庡@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQ`Qm├, ,★,k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQaQm├, ,★,★,k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQeQm└, ,bOd ,红@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQbQmU6>DAj├, ,★,★,★,k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQcQmU6>DAj├, ,★,★,★,★,k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQdQmU6>DAj└, ,★,★,★,★,★,k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm欜@敫@k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5mk:?AFE ,?2>6lQE:>6DQ ,EJA6lQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CCCJCCJ:Response.Write(CJCJCJCJ("Q ,E:E=6lQ臥@")):Response.Write  CCJCJJJ(15):Response.Write(CJCJCJCJ("仠@吉@癿@咣@话@欜@敫@Qmk^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm犱@忼@k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kD6=64E ,?2>6lQDE2EFDQ ,52E2\G2=F6lQ")):Response.Write  CCJCCJC:Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQbQm顿@纡@洼@稆@宇@戋@，,咣@话@讫@彐@尕@朥@壿@琁@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQfQm圣@壿@琁@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQcQmU?3DAj\ ,彎@欜@咣@话@圣@壿@琁@丨@佁@迓@朥@宇@戋@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQdQmU?3DAj\ ,彎@欜@咣@话@巭@壿@琁@宇@戋@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQeQmU?3DAj\ ,杠@论@耀@钃@寴@彎@欜@咣@话@巭@又@馃@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm逄@顴@k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kD6=64E ,?2>6lQ=2DEQ ,52E2\G2=F6lQ")):Response.Write  CCCCJJJ:Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQQm,兣@郣@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k@AE:@? ,G2=F6lQ`Qm曻@迌@一,杜@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQm釈@ ,罩@k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):if CCJCCJJ="1" then
if CJJJJCJC(6) and (CCJCCJC="" or CCJCCJC="6") then
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,:5lQ3E?\7665324<\DE2EQ ,9C67lQK:IF?07665324<0DE2E]2DAQ ,E:E=6lQ绚@讜@杠@论@耀@寴@咣@话@布@癿@又@馃@惀@冰@Qm又@馃@绚@讜@k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
else
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k3FEE@? ,E:E=6lQ柠@话@杜@仱@癿@犱@忼@逄@拤@“,,丈@陋@.”,我@“,巭@又@馃@”,扈@胸@又@馃@绚@讜@Q ,5:D23=65m又@馃@绚@讜@k^3FEE@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
end if::if CCJCCJC="4" or CCJCCJC="5" or CCJCCJC="6" or CCJCCJC="7" then
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQK:IF?06IA@CE]2DAQ ,E:E=6lQ句@寷@凵@犱@忼@丵@“,圣@壿@琁@”,癿@讫@彐@Qm寷@凵@划@衣@k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
else
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k3FEE@? ,E:E=6lQ柠@话@杜@仱@癿@犱@忼@逄@拤@“,圣@壿@琁@”,我@孋@顴@旱@扈@胸@寷@凵@Q ,5:D23=65m寷@凵@划@衣@k^3FEE@?m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
end if
end if:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQBF6CJ?F>36C]2DAn>D8l咣@话@讫@彐@淶@力@U8@E@FC=lK:IF?024E]2DAQm斫@ ,墙@k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCJCJ("k^7@C>m") & vbCrLf)::if CCJCCJJ="1" then
Response.Write(vbCrLf):Response.Write(CJCJCJCJ("k3Cm") & vbCrLf):Response.Write(CJCJCJCJ("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9 ,C@HDA2?lQaQ ,E:E=6lQ挄@犱@忼@歞@床@、,曯@斫@无@朚@倍@床@掍@划@QmRk^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9 ,C@HDA2?lQaQm")):Response.Write  CJJJCCJC(CJCJCJCJ("}F>36C")):Response.Write(CJCJCJCJ("k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9 ,C@HDA2?lQaQm姎@合@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9 ,C@HDA2?lQaQm顿@纡@无@朚@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9 ,4@=DA2?lQeQm咣@话@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9 ,C@HDA2?lQaQm犱@忼@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9 ,C@HDA2?lQaQm擈@佗@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9m咣@话@布@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9m旱@闯@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9m丶@襼@闩@颓@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9m丠@釈@稆@庡@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9m壿@琁@愊@覼@k^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE9m欜@k: ,4=2DDlQ:4@?\96=AQ ,E:E=6lQ臥@")):Response.Write  CCJCJJJ(15):Response.Write(CJCJCJCJ("仠@吉@癿@咣@话@欜@敫@Qmk^:mk^E9m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):sql=CJCJCJCJ("H96C6"):if cstr(CCJCJCC)=cstr(CCJCCC) then sql=sql &  CJCJCJCJ(" ,>6>36C0EJA60E@Al") & CCJCJCC else sql=sql & CJCJCJCJ(" ,") & CJJCCJC.Sql_GetChildren(CCJCJCC)
if not CJJJCJJC(CCJCCJC) then sql=sql & CJCJCJCJ(" ,2?5 ,DE2EFDmlb")
if CJJJCJJC(CCCJJCC) then sql=sql & CJCJCJCJ(" ,2?5 ,>6>36Cl") & CCCJJCC
if CJJJCCC<>"" then sql=sql & CJCJCJCJ(" ,2?5 ,?F>36ClV") & CJJJCCC & CJCJCJCJ("V")
if CCJCCCJ<>"" then sql=sql & CJCJCJCJ(" ,2?5 ,C62=?2>6lV") & CCJCCCJ & CJCJCJCJ("V")
if CJJJCJJC(CCCCJJC) then sql=sql & CJCJCJCJ(" ,2?5 ,D6Il") & CCCCJJC
if CJJJCJJC(CCCJJJJ) then sql=sql & CJCJCJCJ(" ,2?5 ,r@?DF=E2?El") & CCCJJJJ
if CCJCCCC<>"" then sql=sql & CJCJCJCJ(" ,2?5 ,AC@3=6>lV") & CCJCCCC & CJCJCJCJ("V")
if CCCJCCC="6" then
sql=sql & CJCJCJCJ(" ,2?5 ,D6C:@FDmlb")
elseif CJJJCJJC(CCCJCCC) then
sql=sql & CJCJCJCJ(" ,2?5 ,D6C:@FDl") & CCCJCCC
end if:if CJJJCJJC(CCCJCJJ) then sql=sql & CJCJCJCJ(" ,2?5 ,8C256l") & CCCJCJJ
if CJJJCJJC(CCCJCJC) then sql=sql & CJCJCJCJ(" ,2?5 ,4FDE@>8C@FAl") & CCCJCJC
if isdate(CCCJJJC) then sql=sql & CJCJCJCJ(" ,2?5 ,KIE:>6mlV") & CCCJJJC & CJCJCJCJ("V")
if isdate(CCCJJCJ) then sql=sql & CJCJCJCJ(" ,2?5 ,KIE:>6kV") & cdate(CCCJJCJ)+1 & CJCJCJCJ("V")
if not CJJJJCJC(89) then sql=sql & CJCJCJCJ(" ,2?5 ,W4@?DF=E2?El") & CJJJCJ & CJCJCJCJ(" ,@C ,:D@A6?l`X")
if CCJCCJC="7" then
sql=sql & CJCJCJCJ(" ,2?5 ,DE2EFDmlc")
elseif CJJJCJJC(CCJCCJC) then
sql=sql & CJCJCJCJ(" ,2?5 ,DE2EFDl") & CCJCCJC
end if:if CJJJCJJC(CCCJCCJ) then sql=sql & CJCJCJCJ(" ,2?5 ,KI0E:>6Dl") & CCCJCCJ
if CCJCCC<>"1" then sql=sql & CJCJCJCJ(" ,2?5 ,,8C@FA.kd")
if CCCCJJJ="1" then
sql=sql & CJCJCJCJ(" ,2?5 ,:5lWD6=64E ,E@A ,` ,:5 ,7C@> ,KI ,H96C6 ,>6>36ClG0KI]>6>36C"):if isdate(CCCJJJC) then sql=sql & CJCJCJCJ(" ,2?5 ,KIE:>6mlV") & CCCJJJC & CJCJCJCJ("V")
if isdate(CCCJJCJ) then sql=sql & CJCJCJCJ(" ,2?5 ,KIE:>6kV") & cdate(CCCJJCJ)+1 & CJCJCJCJ("V")
if CCJCCJC="7" then
sql=sql & CJCJCJCJ(" ,2?5 ,DE2EFDmlc")
elseif CJJJCJJC(CCJCCJC) then
sql=sql & CJCJCJCJ(" ,2?5 ,DE2EFDl") & CCJCCJC
end if:sql=sql & CJCJCJCJ(" ,@C56C ,3J ,:5 ,56D4X")
end if:Call CJJCJJCC(CJCJCJCJ("$""{"),sql):sql=sql & CJCJCJCJ(" ,@C56C ,3J ,DE2EFD[52E6E:>6 ,56D4[:5 ,56D4"):sql=CJCJCJCJ("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[7665324<[AC@3=6>[4@?DF=E2?E?2>6[H2J[KIE:>6[KI0E:>6D[25G:46[DE2EFD[JJ52E6[D6C:@FD[4@?DF=E2?E[JJE:>6[AC@3=6>0DF3[52E6E:>6 ,7C@> ,G0KI ,") & sql:dim CCCCJCJ:set CCCCJCJ=new splitpage:with CCCCJCJ:.sql=sql:.pagesize=15:.style=2:end with:set rs=CCCCJCJ.rs:for CCJCJC=1 to CCCCJCJ.pagesize:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCCJCJ.listnum(CCJCJC):Response.Write(CJCJCJCJ("k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQD>2==Qm")):Response.Write  rs(2):Response.Write(CJCJCJCJ("k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write  rs(1):Response.Write(CJCJCJCJ("Qm")):Response.Write  rs(3):Response.Write(CJCJCJCJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==Qm")):Response.Write  CJJJCCCC(rs(12),0):Response.Write(CJCJCJCJ("k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write  rs(14):Response.Write(CJCJCJCJ("Qm")):Response.Write  rs(6):Response.Write(CJCJCJCJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4=2DDlQD>2==Qm")):if rs(11)>=4 then response.write CJJJCCCC(rs(8),0) & CJCJCJCJ(" ,") & rs(15)
Response.Write(CJCJCJCJ("k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,E:E=6lQ")):Response.Write  rs(16):Response.Write(CJCJCJCJ("Qm")):Response.Write  rs(5):Response.Write(CJCJCJCJ("k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m")):if not isnull(rs(13)) then Response.Write string(rs(13),CJCJCJCJ("★,"))
Response.Write(CJCJCJCJ("k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5m")):Response.Write  rs(10):Response.Write(CJCJCJCJ("k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):Response.Write CJCJCJCJ("k2 ,4=2DDlV2\E:>6DV ,9C67lVK:IF?024E]2DAn24ElE:>6DUDEF56?E:5l") & rs(1) & CJCJCJCJ("V ,E:E=6lV釈@讜@箒@欜@敫@Vm")
if CJJJCJJC(rs(9)) then
if CCJCJJJ(16)>0 and rs(9)>=CCJCJJJ(16) then
Response.Write CJCJCJCJ("kDA2? ,DEJ=6lV7@?E\H6:89Ei3@=5j4@=@CiR65b7`cjVm") & rs(9) & CJCJCJCJ("k^DA2?m")
else
Response.Write rs(9)
end if
else
Response.Write CJCJCJCJ("∑,")
end if:Response.Write CJCJCJCJ("k^2m"):Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQ ,E:E=6lQ揋@亟@旱@闯@：,")):Response.Write  rs(17):Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):select case rs(11):case 3 : response.Write CJCJCJCJ("朥@壿@琁@"):case 4 : response.Write CJCJCJCJ("壿@琁@丨@"):case 5 : response.Write CJCJCJCJ("巭@宇@戋@"):case 6:if CJJJJCJC(6) then
response.Write CJCJCJCJ("k2 ,4=2DDlV2\7665324<V ,9C67lV;2G2D4C:AEijV ,4=2DDlV2\7665324<V ,52E2\2?DH6ClV") & rs(4) & CJCJCJCJ("Vm巭@又@馃@k^2m")
else
response.Write CJCJCJCJ("巭@又@馃@")
end if:end select:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):If rs(11)>=4 Then
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,9C67lQK:IF?024E]2DAn24ElG:6HU:5l")):Response.Write  rs(0):Response.Write(CJCJCJCJ("UDEF56?E:5l")):Response.Write  rs(1):Response.Write(CJCJCJCJ("R")):Response.Write  rs(0):Response.Write(CJCJCJCJ("Qm柠@眆@k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
End If::If (rs(11)<=4 and rs(14)=CJJJCJ) or CJJJJCJC(91) Then
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,9C67lQK:IF?024E]2DAn24El>@5U:5l")):Response.Write  rs(0):Response.Write(CJCJCJCJ("UDEF56?E:5l")):Response.Write  rs(1):Response.Write(CJCJCJCJ("Qm")):Response.Write  IIf(rs(11)=3,CJCJCJCJ("咣@话@"),CJCJCJCJ("俩@攴@")):Response.Write(CJCJCJCJ("k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,9C67lQK:IF?024E]2DAn24El56=U:5l")):Response.Write  rs(0):Response.Write(CJCJCJCJ("UDEF56?E:5l")):Response.Write  rs(1):Response.Write(CJCJCJCJ("Qm创@陟@k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,9C67lQK:IF?024E]2DAn24El2AA6?5U:5l")):Response.Write  rs(0):Response.Write(CJCJCJCJ("UDEF56?E:5l")):Response.Write  rs(1):Response.Write(CJCJCJCJ("Q ,E:E=6lQ寴@争@巭@宇@戋@癿@讫@彐@丈@胸@俩@攴@，,佁@只@衠@兀@冀@宴@Qm衠@兀@k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
End If::If CCJCJJJ(7)>=2 Then
Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k2 ,9C67lQ4C:D:D42D6024E]2DAnDEF56?E:5l")):Response.Write  rs(1):Response.Write(CJCJCJCJ("Qm迸@踥@k^2m") & vbCrLf):Response.Write(CJCJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJCJCJCJ(" ,kE5 ,4@=DA2?lQ`aQm") & vbCrLf):Response.Write(CJCJCJCJ(" ,")):call CCCCJCJ.showpage:set CCCCJCJ=nothing:Response.Write(vbCrLf):Response.Write(CJCJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CJCJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJCJ("k^E23=6m") & vbCrLf)
end if:Response.Write(vbCrLf):Response.Write(CJCJCJCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CJJCJC:Response.Write(CJCJCJCJ("Qm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AE ,DC4lQ^$4C:ED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]D6=64E42496];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("SW7F?4E:@?WSXL") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.[D6=64E,?2>6lQ4@?DF=E2?EQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV沜@朄@绎@林@匴@酈@：,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJCJCJCJ(" ,^^ ,臥@劣@逄@丨@丆@拄@刦@衣@W$6=64EX") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWVD6=64E,52E2\G2=F6.VX]6249W7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJCJCJCJ(" ,G2C ,SE9:D ,l ,SWE9:DX") & vbCrLf):Response.Write(CJCJCJCJ(" ,G2C ,G ,l ,SE9:D]52E2WVG2=F6VX]E@$EC:?8WX") & vbCrLf):Response.Write(CJCJCJCJ(" ,:7 ,WGX ,L") & vbCrLf):Response.Write(CJCJCJCJ(" ,:7 ,WE9:D]92DpEEC:3FE6WV>F=E:A=6VXX ,L ,SE9:D]G2=WG]DA=:EWV[VXX ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,6=D6 ,L ,SE9:D]G2=WGX ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,:7 ,WEJA6@7 ,Wp|&xX ,Pll ,VF?567:?65VX ,L ,SE9:D]EC:886CWV492?865]D6=64E65]2>F:VX ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,:7 ,WEJA6@7 ,W49@D6?X ,Pll ,VF?567:?65VX ,L ,SE9:D]EC:886CWV49@D6?iFA52E65VX ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,SE9:D]EC:886CWV492?86VX") & vbCrLf):Response.Write(CJCJCJCJ(" ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,^^ ,衣@样@冀@创@陟@") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ创@陟@QXVX]@?WV4=:4<V[ ,7F?4E:@? ,W6X ,L") & vbCrLf):Response.Write(CJCJCJCJ(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CJCJCJCJ(" ,G2C ,S2 ,l ,SWE9:DX") & vbCrLf):Response.Write(CJCJCJCJ(" ,=2J6C]4@?7:C>WV诲@泣@愊@创@陟@吉@封@丈@只@恝@夈@，,患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,V[ ,L ,:4@?i ,b[ ,E:E=6i ,V诲@硩@讟@V ,N[ ,7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJCJCJCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJCJCJCJ(" ,S]86EWS2]2EECWV9C67VX[ ,7F?4E:@? ,WC6DF=EX ,L") & vbCrLf):Response.Write(CJCJCJCJ(" ,:7 ,WC6DF=E ,lll ,VVX ,L ,S2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NX ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,6=D6 ,L ,=2J6C]>D8WC6DF=EX ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJCJCJCJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJCJCJCJ(" ,EC66iECF6") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,^^ ,讜@箒@欜@敫@") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWV2]2\E:>6DVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCJCJ(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CJCJCJCJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CJCJCJCJ(" ,S]86EWS2]2EECWV9C67VX[7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CJCJCJCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJCJCJCJ(" ,S2]A2C6?EWX]E6IEWC6DX") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,^^ ,柠@眆@又@馃@") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWV2]2\7665324<VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCJCJ(" ,G2C ,:[;") & vbCrLf):Response.Write(CJCJCJCJ(" ,G2C ,2?DH6ClSWE9:DX]52E2WV2?DH6CVX]DA=:EWVMVX") & vbCrLf):Response.Write(CJCJCJCJ(" ,G2C ,BF6DE:@?l,V戌@寶@氽@咣@话@旱@觞@冮@癿@闩@颓@、,惀@绥@囫@扫@我@犱@冰@巭@绊@：,V[V戌@癿@咣@话@布@寴@戌@：,V[V好@林@戌@封@杠@電@襼@帩@劤@，,戌@伕@顿@纡@返@严@咣@话@布@：,V[V戌@封@同@電@襼@帩@劤@癿@共@仑@亵@掣@荋@返@严@咣@话@布@：,V[V歟@欜@咣@话@绎@杚@癿@厚@四@昪@：,V[V共@仑@愊@覼@咇@廵@让@：,V.") & vbCrLf):Response.Write(CJCJCJCJ(" ,G2C ,9E>=lVkE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\3@C56C65 ,2>\E23=6\DEC:A65 ,2>\E23=6\46?E6C65 ,2>\E23=6\4@>A24EQmkE9625mkECmkE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6QmRk^E9mkE9 ,C@HDA2?lQaQ ,4=2DDlQ2>\E6IE\>:55=6Qm闩@颓@k^E9mkE9 ,4@=DA2?lQdQm逄@拤@^囙@筏@k^E9mk^ECmkECmV") & vbCrLf):Response.Write(CJCJCJCJ(" ,7@CW:l_j:kdj:ZZXL9E>=ZlVkE9mVZW:Z`XZVk^E9mVN") & vbCrLf):Response.Write(CJCJCJCJ(" ,9E>=ZlVk^ECmk^E9625mkE3@5JmkECmV") & vbCrLf):Response.Write(CJCJCJCJ(" ,7@CW:l_j:kBF6DE:@?]=6?8E9j:ZZXL") & vbCrLf):Response.Write(CJCJCJCJ(" ,9E>=ZlVkECmkE5mVZW:Z`XZVk^E5mkE5 ,4=2DDlQ2>\E6IE\=67EQ ,?@HC2AmVZBF6DE:@?,:.ZVk^E5mV") & vbCrLf):Response.Write(CJCJCJCJ(" ,:7W:llldXL9E>=ZlVkE5 ,4@=DA2?lQdQ ,4=2DDlQ2>\E6IE\=67EQmVZ2?DH6C,:.ZVk^E5mVN") & vbCrLf):Response.Write(CJCJCJCJ(" ,6=D6L") & vbCrLf):Response.Write(CJCJCJCJ(" ,7@CW;l_j;kdj;ZZXL") & vbCrLf):Response.Write(CJCJCJCJ(" ,:7W2?DH6C,:.lllW;Z`X]E@$EC:?8WXXL9E>=ZlVkE5m√,k^E5mVN") & vbCrLf):Response.Write(CJCJCJCJ(" ,6=D6L9E>=ZlVkE5mk^E5mVN") & vbCrLf):Response.Write(CJCJCJCJ(" ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,9E>=ZlVk^ECmV") & vbCrLf):Response.Write(CJCJCJCJ(" ,N") & vbCrLf):Response.Write(CJCJCJCJ(" ,9E>=ZlVk^E3@5Jmk^E23=6mV") & vbCrLf):Response.Write(CJCJCJCJ(" ,=2J6C]@A6?WL") & vbCrLf):Response.Write(CJCJCJCJ(" ,E:E=6iV柠@眆@又@馃@V[") & vbCrLf):Response.Write(CJCJCJCJ(" ,4@?E6?Ei9E>=[") & vbCrLf):Response.Write(CJCJCJCJ(" ,2C62i,Vfd_AIV[Vc__AIV.[") & vbCrLf):Response.Write(CJCJCJCJ(" ,D9256r=@D6iECF6") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,^^ ,又@馃@绚@讜@") & vbCrLf):Response.Write(CJCJCJCJ(" ,SWVR3E?\7665324<\DE2EVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCJCJ(" ,=2J6C]@A6?WL") & vbCrLf):Response.Write(CJCJCJCJ(" ,EJA6i ,a[") & vbCrLf):Response.Write(CJCJCJCJ(" ,E:E=6i ,SWE9:DX]E6IEWX[") & vbCrLf):Response.Write(CJCJCJCJ(" ,D9256r=@D6i ,ECF6[") & vbCrLf):Response.Write(CJCJCJCJ(" ,2C62i ,,V`___AIV[ ,Vd__AIV.[") & vbCrLf):Response.Write(CJCJCJCJ(" ,4@?E6?Ei ,SWE9:DX]2EECWV9C67VX") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJCJCJCJ(" ,NX") & vbCrLf):Response.Write(CJCJCJCJ("NX") & vbCrLf):Response.Write(CJCJCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJC=nothing:set CJJJCJCC=nothing:set CJJJCCJJ=nothing:set CJJJCCJC=nothing:CJJJJJ.Close:Set CJJJJJ=Nothing:rs.Close:Set rs=Nothing:CCCJC.Close:Set CCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCJCJ(ByVal CJCJCJJC)
Dim CCCCJCC, CCJCJC, CCCCCJ
CJCJCJJC = Replace(CJCJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCJC = 1 To Len(CJCJCJJC)
If CCJCJC <> CCCCCJ Then
CCCCJCC = AscW(Mid(CJCJCJJC, CCJCJC, 1))
If CCCCJCC >= 33 And CCCCJCC <= 79 Then
CJCJCJCJ = CJCJCJCJ & Chr(CCCCJCC + 47)
ElseIf CCCCJCC >= 80 And CCCCJCC <= 126 Then
CJCJCJCJ = CJCJCJCJ & Chr(CCCCJCC - 47)
Else
CCCCCJ = CCJCJC + 1
If Mid(CJCJCJJC, CCCCCJ, 1) = Chr(64) Then CJCJCJCJ = CJCJCJCJ & ChrW(CCCCJCC + 5) Else CJCJCJCJ = CJCJCJCJ & Mid(CJCJCJJC, CCJCJC, 1)
End If
End If
Next
End Function
%>