<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCJC, CJCCCJ,rs, CCJJJJ, sql:Set CJCCJC = server.CreateObject(CJJCCCJC("ps~sq]r@??64E:@?")):CJCCJC.open Application(CJJCCCJC("r@??64E:@?$EC:?8")):Set CJCCCJ=CJCCJC::Dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ:CJJJCJJ=Trim(Request.Cookies(CJJCCCJC("!$*|t|qt#"))):if CJJJCJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCJJCJ>0 then sql=CJJCCCJC("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?@=@40 then Call RedirectMessage(CJJCCCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCJJCJ,CCJJCC) End IF end if:::Sub CheckLogined():if CCJJCJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJJJCJC:CJJJCJC=trim(request.QueryString(CJJCCCJC("D49@@="))):if isnumeric(CJJJCJC) then response.Redirect CJJCCCJC("^>^G2?E^R^D49@@=^") & CJJJCJC & CJJCCCJC("^DEF56?E^=@8:?nC65:C64El") & CCJJCJJ else Call RedirectMessage(CJJCCCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCCJC("!$*|t|qt#"))="":CCJJCJ=0:CCJCCC=0:CCJJCC=Empty:CCJCCJ=0:CCCJJC=0:CCCJJJ=0:CCJCJC=0:CCCJCC=False:CJJJJCJ=False:CJJJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:CJJJCCJ=split(CJJJCJJ,CJJCCCJC("]")):if ubound(CJJJCCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJJCCJ(0)) or len(CJJJCCJ(1))<>32 or len(CJJJCCJ(2))<>32 then Call ClearMemberCookie else CJJJCCC=CJJJCCJ(1):for CJJCJJJ=1 to len(CJJJCCC):CJJCJJC=mid(CJJJCCC,CJJCJJJ,1):if isnumeric(CJJCJJC) then CJJCJCJ=CJJCJCJ & CJJCJJC if len(CJJCJCJ)=7 then exit for next:CJJJCCC=CJJJCCJ(2):if CJJCJCJ<>mid(CJJJCCC,6,7) then Call ClearMemberCookie else CJJCJJC=mid(CJJJCCC,18,10)/2:if CJJCJJC6"), CJJCCCJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCCJC("kD4C:AE"), CJJCCCJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCCJJ=new RegExp:CJJCCJJ.Pattern=CJJCCCJC("@?W,2\K.ZXl"):CJJCCJJ.IgnoreCase = True:CJJCCJJ.Global=True:str=CJJCCJJ.Replace(str,CJJCCCJC("@?S`U6BF2=Dj")):set CJJCCJJ=nothing:CCCCCCC=str End If:End Function:Function IIf(CJCJJJJJ, CJCJJJJC, CJCJJJCJ):if isnull(CJCJJJJJ) or isempty(CJCJJJJJ) then IIf = CJCJJJCJ elseif CJCJJJJJ Then IIf = CJCJJJJC Else IIf = CJCJJJCJ end if:End Function:Const CCCJCCC="^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 CJJCJJJ,CJJCJJC,CJJCCJC:if isarray(str) then on error resume next:CJJCJJJ=ubound(str,2):CJJCCJC=err.number:err.clear:on error goto 0:if CJJCCJC<>0 then for CJJCJJJ=0 to ubound(str):if CJJCJJJ>0 then response.Write CJJCCCJC("k3C ,^m") response.Write CJJCJJJ & CJJCCCJC("i ,") & str(CJJCJJJ):next else response.Write CJJCCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJJCJJJ=0 to ubound(str,2):response.Write CJJCCCJC("kE9 ,2=:8?lV=67EVm") & CJJCJJJ & CJJCCCJC("k^E9m") next:response.Write CJJCCCJC("k^ECm"):for CJJCJJJ=0 to ubound(str):response.Write CJJCCCJC("kECmkE9m") & CJJCJJJ & CJJCCCJC("k^E9m"):for CJJCJJC=0 to ubound(str,2):response.Write CJJCCCJC("kE5m") & str(CJJCJJJ,CJJCJJC) & CJJCCCJC("k^E5m"):next:response.Write CJJCCCJC("k^ECm"):next:response.Write CJJCCCJC("k^E23=6m") end if elseif isnull(str) then response.Write CJJCCCJC(",}F==.") else Response.Write replace(str,vbcrlf,CJJCCCJC("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCJJJCC,CJCJJCJJ):dim CJJJCCJ:CJJJCCJ=CJCJJJCC & CJJCCCJC("l") & CJCJJCJJ & CJJCCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCJC("$6E\r@@<:6"),CJJJCCJ):End Sub:::Function CJJJJJJC(ByVal Str, ByVal StrLen):Dim CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ:if isnull(str) then CJJJJJJC="" else CJJCCCJ = Len(Str):CJJCCCC = 0:For CJJCJJJ = 1 To CJJCCCJ:CJCJJJJ = AscW(Mid(Str, CJJCJJJ, 1)):If CJCJJJJ < 0 Or CJCJJJJ > 255 Then CJJCCCC = CJJCCCC + 2 Else CJJCCCC = CJJCCCC + 1 If CJJCCCC >= StrLen Then CJJJJJJC = Left(Str, CJJCJJJ) & CJJCCCJC("]]]"):Exit For Else CJJJJJJC = Str End If:Next end if:End Function::::Function CJJJJJCJ(CJJCCJC):if isnull(CJJCCJC) or trim(CJJCCJC)="" or not isnumeric(CJJCCJC) then CJJJJJCJ=false else Dim CJJCCJJ:Set CJJCCJJ = New RegExp:CJJCCJJ.Pattern = CJJCCCJC("/-5ZS"):CJJCCJJ.IgnoreCase = True:CJJJJJCJ = CJJCCJJ.test(CJJCCJC):set CJJCCJJ=nothing end if:End Function:Function CJJJJJCC(CJCJJCJC):dim CJCJJJC,CJCJJCJ:CJCJJJC=CJJCCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJCJC & CJJCCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJCJ=CJCCJC.execute(CJCJJJC):CJJJJJCC = CJCJJCJ(0):if isnull(CJJJJJCC) then CJJJJJCC=1 CJCJJCJ.close : set CJCJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJJCC=nothing:set CJJJJCJJ=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:CJCJJCJ.close : set CJCJJCJ=nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:rs.Close : Set rs=Nothing:CJJJJCCC.Close : Set CJJJJCCC = Nothing:CJCCJC.Close : Set CJCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCJC("!$*0|6DD286"),server.URLEncode(CJCJJCCJ)):Response.Redirect CJJCCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJCJJCCC):Application.Contents.Remove CJCJJCCC End Sub::Class jTree:Private Sql, CJCJJCC, CJCJCJJ, CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC:Private Sub Class_Initialize():CJCJCJJ = 0:CJCJCJC = 0:CJCCJJC=10:End Sub:Public Property Let Table(CJCJCJJJ):if CJCJCJJJ="" then Call RedirectMessage(CJJCCCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJCJCCJ=CJCJCJJJ:CJCJCCC=CJJCCCJC("!$*0") & UCase(CJCJCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCCJ:End Property:::Private Sub GetTreeArray():Dim CJJCJJJ, CJJCJJC, CJCCJCJ,RecordCount:CJCJJCC = Application(CJCJCCC):If Not IsArray(CJCJJCC) Then Sql = CJJCCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCCJ:if CJCCJJJ<>"" then Sql=Sql & CJJCCCJC(" ,H96C6 ,") & CJCCJJJ set CJCCJCJ=CJCCJC.execute(sql):RecordCount=CJCCJCJ(0):if RecordCount=0 then Call RedirectMessage(CJJCCCJC("柠@话@W") & CJCJCCJ & CJJCCCJC("^") & CJCCJJJ & CJJCCCJC("X沜@朄@绎@林@敫@捩@")) CJCJCJC=RecordCount+CJCCJJC:ReDim CJCJJCC(CJCJCJC, 4):Sql = CJJCCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCJ & CJJCCCJC(" ,H:E9 ,W?@=@4"" then Sql=Sql & CJJCCCJC(" ,H96C6 ,") & CJCCJJJ Sql=Sql & CJJCCCJC(" ,@C56C ,3J ,D@CE[:5"):set CJCCJCJ=CJCCJC.execute(sql):For CJJCJJJ = 1 To RecordCount:For CJJCJJC = 0 To 4:CJCJJCC(CJJCJJJ, CJJCJJC) = CJCCJCJ(CJJCJJC):if IsNull(CJCJJCC(CJJCJJJ,4)) then CJCJJCC(CJJCJJJ,4)=0 If CJCJJCC(CJJCJJJ,2)="" then CJCJJCC(CJJCJJJ,2)=CJJCCCJC(",穵@.") Next:CJCCJCJ.MoveNext:Next:CJCCJCJ.Close: Set CJCCJCJ = Nothing:for CJJCJJJ=CJCJCJC-(CJCCJJC-1) to CJCJCJC:CJCJJCC(CJJCJJJ,0)=CJJCJJJ:next:Application.Lock():Application(CJCJCCC) = CJCJJCC:Application.UnLock() else CJCJCJC=Ubound(CJCJJCC) End If:End Sub:::::Private Function CJJJCJJC(CCCJCJC):dim CJJCJJJ,CJCCCJJ:CJJJCJJC=0:CJCCCJJ=CStr(CCCJCJC):if CJCCCJJ<>"0" then for CJJCJJJ=1 to CJCJCJC:If CStr(CJCJJCC(CJJCJJJ, 0))=CJCCCJJ Then CJJJCJJC = CJJCJJJ:Exit For End If:Next end if:End Function:Public Function CJJJCJCJ(CCCJCJC):if Cstr(CCCJCJC)="0" then CJJJCJCJ=CJJCCCJC("栴@") else Dim CJJCJJJ,CJCCJCJ:CJJCJJJ=CJJJCJJC(CCCJCJC):if CJJCJJJ>0 then CJJJCJCJ=CJCJJCC(CJJCJJJ,2):if CJJJCJCJ="" then set CJCCJCJ=CJCCJC.execute(CJJCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCJ & CJJCCCJC(" ,H96C6 ,:5l") & CCCJCJC):if CJCCJCJ.eof then Call RedirectMessage(CJJCCCJC("xs（,") & CCCJCJC & CJJCCCJC("）,朥@批@别@")) CJJJCJCJ=CJCCJCJ(1):Call UpdateCache(CCCJCJC,CJCCJCJ(0),CJJJCJCJ,CJCCJCJ(2),CJCCJCJ(3)):CJCCJCJ.Close: Set CJCCJCJ = Nothing end if else set CJCCJCJ=CJCCJC.execute(CJJCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCJ & CJJCCCJC(" ,H96C6 ,:5l") & CCCJCJC):if CJCCJCJ.eof then Call RedirectMessage(CJJCCCJC("xs（,") & CCCJCJC & CJJCCCJC("）,朥@批@别@")) CJJJCJCJ=CJCCJCJ(1):Call UpdateCache(CCCJCJC,CJCCJCJ(0),CJJJCJCJ,CJCCJCJ(2),CJCCJCJ(3)):CJCCJCJ.Close: Set CJCCJCJ = Nothing end if end if:End Function:::Public Function CJJJCJCC(CCCJCJC):Dim CJJCJJJ,CJCCCJC:CJJCJJJ=CJJJCJJC(CCCJCJC):if CJJCJJJ=0 then CJCCCJC=CJJJCCJJ(CCCJCJC) else CJCCCJC=CJCJJCC(CJJCJJJ,3):if isnull(CJCCCJC) or CJCCCJC="" then CJCCCJC=CJJJCCJJ(CCCJCJC) elseif Mid(CJCCCJC,instrrev(CJCCCJC,CJJCCCJC("["))+1)<>CStr(CCCJCJC) then CJCCCJC=CJJJCCJJ(CCCJCJC) elseif Left(CJCCCJC,1)=CJJCCCJC("[") then CJCCCJC=CJJJCCJJ(CCCJCJC) end if end if:CJJJCJCC=CJCCCJC:End Function:Private Function CJJJCCJJ(CCCJCJC):dim CJCCCJJ:CJCCCJJ=CStr(CCCJCJC):if CJCCCJJ="0" then CJJJCCJJ="" else dim CJCCJCJ:set CJCCJCJ=CJCCJC.execute(CJJCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCCJ & CJJCCCJC(" ,H96C6 ,:5l") & CCCJCJC):if CJCCJCJ.eof then Call UpdateCache(CCCJCJC,"","","",""):Call RedirectMessage(CJJCCCJC("顴@盩@（,xs：,") & CCCJCJC & CJJCCCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJCCJCJ(0)=0 then CJJJCCJJ="0," & CCCJCJC else CJJJCCJJ=CJJJCJCC(CJCCJCJ(0)) & CJJCCCJC("[") & CCCJCJC end if:if CJCCJCJ(2)<>CJJJCCJJ then CJCCJC.execute CJJCCCJC("FA52E6 ,") & CJCJCCJ & CJJCCCJC(" ,D6E ,A2E9lV") & CJJJCCJJ & CJJCCCJC("V ,H96C6 ,:5l") & CCCJCJC else CJJJCCJJ=CJCCJCJ(2) end if end if:Call UpdateCache(CCCJCJC,CJCCJCJ(0),CJCCJCJ(1),CJJJCCJJ,CJCCJCJ(3)):CJCCJCJ.Close: Set CJCCJCJ = Nothing end if:End Function:::::::::::Public Sub ShowTree_Select(CCCJCJC,ByVal CJCJCJJC):Dim Str, CJJCJJJ:CCCJCJC=CLng(CCCJCJC):if isnumeric(CJCJCJJC) then CJCJCJJC=CLng(CJCJCJJC) else CJCJCJJC=0 if CCCJCJC>0 then str=CJJCCCJC("k@AE:@? ,G2=F6lV") & CCCJCJC & CJJCCCJC("V ,52E2\A:5lV_Vm") & CJJJCJCJ(CCCJCJC) & CJJCCCJC("k^@AE:@?m") For CJJCJJJ = 1 To CJCJCJC:If CCCJCJC=0 or (CCCJCJC>0 and InStr(CJCJJCC(CJJCJJJ, 3), CJJCCCJC("[") & CCCJCJC & CJJCCCJC("[")) > 0) Then str=str & CJJCCCJC("k@AE:@?"):if CJCJJCC(CJJCJJJ,0)=CJCJCJJC then str=str & CJJCCCJC(" ,D6=64E65") str=str & CJJCCCJC(" ,G2=F6lV") & CJCJJCC(CJJCJJJ,0) & CJJCCCJC("V ,52E2\A:5lV") & CJCJJCC(CJJCJJJ,1) & CJJCCCJC("Vm") & CJCJJCC(CJJCJJJ,2) & CJJCCCJC("k^@AE:@?m") & vbcrlf End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CCCJCJC):dim CJCCCJC:CJCCCJC=CJJJCJCC(CCCJCJC):Sql_GetChildren = CJCJCCJ & CJJCCCJC("0A2E9ZV[V ,=:<6 ,V") & CJCCCJC & CJJCCCJC("[TV") End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJCCC End Sub:Public Sub UpdateCache(CCCJCJC,CJCJCJCJ,CJCJCJCC,CJCCCJC,CJCJCCJJ):dim CJJCJJJ,CJJCJJC:CCCJCJC=CLng(CCCJCJC):CJJCJJJ=CJJJCJJC(CCCJCJC):if CJCJCJCJ="" and CJCJCJCC="" and CJCCCJC="" and CJCJCCJJ="" then if CJJCJJJ>0 then for CJJCJJC=1 to 4:CJCJJCC(CJJCJJJ,CJJCJJC)=Null:next end if else if CJJCJJJ=0 then for CJJCJJC=1 to CJCJCJC:if CJCJJCC(CJJCJJC,1) & ""="" then CJJCJJJ=CJJCJJC:exit for end if:next end if:if CJJCJJJ=0 then Call ClearCache else CJCJJCC(CJJCJJJ,0)=CLng(CCCJCJC):if CJCJCJCJ<>"" then CJCJJCC(CJJCJJJ,1)=CLng(CJCJCJCJ) if CJCJCJCC<>"" then CJCJJCC(CJJCJJJ,2)=CJCJCJCC if CJCCCJC<>"" then CJCJJCC(CJJCJJJ,3)=CJCCCJC if CJCJCCJJ<>"" then CJCJJCC(CJJCJJJ,4)=CLng(CJCJCCJJ) end if end if:if CJJCJJJ>0 then Application.Lock():Application(CJCJCCC) = CJCJJCC:Application.UnLock() end if:End Sub:Private Sub Debug(CJCJJCCJ):Call ConnClose:Response.Write CJCJJCCJ:Response.End:End Sub:Private Function CJJJJJCC():CJJJJJCC=CJJJCCCJ+1:End Function:Private Function CJJJCCCJ():dim CJCJJCJ:set CJCJJCJ=CJCCJC.execute(CJJCCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCCJ & CJJCCCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCCJ=CJCJJCJ(0):CJCJJCJ.Close: Set CJCJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCCJJJ ="9" Const CCCCJJC ="7" Const CCCCJCJ ="3" Const CCCCJCC ="4" Const CCCCCJJ ="8" Const CCCCCJC =":" Const CCCCCCJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCCCCC, CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, CCJJCJJ, CCJJCJC, CCJJCCJ, CCJJCCC, CCJCJJJ:Private Function CJJJCCCC():Dim CCJCJJC:CCJCJJC = "共" & CCJJJCC & CJJCCCJC("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJJCCC & CJJCCCJC("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJJJCJ & CJJCCCJC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCCCJC("k^3mk^DA2?m顰@") CJJJCCCC = CCJCJJC:End Function:Private Function CJJCJJJJ():CJJCJJJJ = CJJCCCJC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCJJJCJ & CJJCCCJC("V ,DEJ=6lV") & CCCCCCJ & CJJCCCJC("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") & CCJJCJJ & CJJCCCJC("VZE9:D]G2=F6Qm") End Function:Private Function CJJCJJJC():CJJCJJJC = CJJCCCJC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCCCJ & CJJCCCJC("V ,G2=F6lVv@V ,@?4=:46?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCJJCJJ & CJJCCCJC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm") End Function:Private Function CJJCJJCJ():Dim CCJCJJC, CJJCJJJ:CCJCJJC = CJJCCCJC(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCJJCJJ & CJJCCCJC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm") For CJJCJJJ = 1 To PageCount:CCJCJJC = CCJCJJC & CJJCCCJC("k@AE:@? ,G2=F6lV") & CJJCJJJ & CJJCCCJC("V") If CJJCJJJ = CCJJJCJ Then CCJCJJC = CCJCJJC & CJJCCCJC(" ,D6=64E65") CCJCJJC = CCJCJJC & CJJCCCJC("m") & CJJCJJJ & CJJCCCJC("k^@AE:@?m"):Next:CCJCJJC = CCJCJJC & CJJCCCJC("k^D6=64Em顰@"):CJJCJJCJ = CCJCJJC:End Function:Public Sub ShowPage():Dim CJJCJJJ, CCJCJCJ,CCJCJCC,CCJCCJJ:if CCJJJCC>0 then CCJCJCJ = CJJCCCJC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJJCCCC & CJJCCCJC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm") If PageCount > 1 Then Select Case CCJCJJJ:Case 1: CCJCCJJ = CJJCJCJC:Case 2: CCJCCJJ = CJJCJCCJ:Case 3: CCJCCJJ = CJJCJCCC:Case 4: CCJCCJJ = CJJCCJJJ:Case 5: CCJCCJJ = CJJCCJJC:Case 6: CCJCCJJ = CJJCCJCJ:Case 7: CCJCCJJ = CJJCCJCC:Case 8: CCJCCJJ = CJJCCCJJ:End Select End If:CCJCJCC = CJJCCCJC("k^5:Gmk^5:Gm") end if:if CCJCJJJ>=6 then Response.Write CCJCCJJ else Response.Write CCJCJCJ & CCJCCJJ & CCJCJCC end if:End Sub:Public Function Rs():On Error Resume Next:Set CCJJJJJ = Server.CreateObject(CJJCCCJC("ps~sq]#64@C5$6E")):CCJJJJJ.PageSize = CCJJCCC:CCJJJJJ.Open CCJJJJC, CJCCCCC, 1:If err then Response.Write CJJCCCJC("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 & CJJCCCJC("k^5:Gmk^5:Gmk3Cm") Err.Clear:response.end end if:If Not CCJJJJJ.EOF Then CCJJJCC = CCJJJJJ.RecordCount:PageCount = CCJJJJJ.PageCount:If CCJJJCJ > PageCount Then CCJJJCJ = PageCount CCJJJJJ.AbsolutePage = CCJJJCJ End If:Set Rs = CCJJJJJ:End Function:Public Property Let CJCCCJ(CJCJCCJC):Set CJCCCCC = CJCJCCJC:End Property:Public Property Let SQL(str):CCJJJJC = str:End Property:Public Property Let Style(CJCJCCCJ):If IsNumeric(CJCJCCCJ) Then CCJCJJJ = CInt(CJCJCCCJ):If CCJCJJJ < 1 Or CCJCJJJ > 8 Then CCJCJJJ = 1 Else CCJCJJJ = 1 End If:End Property:Public Property Let PageSize(CJCJCCCJ):If IsNumeric(CJCJCCCJ) Then CCJJCCC = CInt(CJCJCCCJ):If CCJJCCC < 1 Then CCJJCCC = 10 Else CCJJCCC = 10 End If:End Property:Public Property Get PageSize():If CCJJJCJ = PageCount Then PageSize = CCJJJCC - CCJJCCC * (PageCount - 1) Elseif CCJJJCC=0 then pagesize=0 else PageSize = CCJJCCC end if:End Property:Private Sub Class_Initialize():dim CCJCCJC:CCJJCCC = 10:CCJCJJJ = 1:Set CJCCCCC = CJCCJC:CCJJJCJ = Trim(Request.QueryString(CJJCCCJC("!286"))):If IsNumeric(CCJJJCJ) Then CCJJJCJ = CLng(CCJJJCJ):If CCJJJCJ < 1 Then CCJJJCJ = 1 Else CCJJJCJ = 1 End If:CCJJCCJ = Trim(Request.ServerVariables(CJJCCCJC("&#{"))):CCJJCCJ = Mid(CCJJCCJ, InStrRev(CCJJCCJ, CJJCCCJC("^")) + 1):CCJJCJC = Split(Trim(Request.ServerVariables(CJJCCCJC("""&t#*0$%#x}v"))), CJJCCCJC("U")):CCJJCJJ = Server.HtmlEncode(CJCJCCCC):CCJCCJC=lcase(CCJJCJJ):if instr(CCJCCJC,CJJCCCJC("Tb4:7C2>6"))>0 or instr(CCJCCJC,CJJCCCJC("Tb4D4C:AE"))>0 or instr(CCJCCJC,CJJCCCJC("V"))>0 or instr(CCJCCJC,CJJCCCJC(";2G2D4C:AE"))>0 or instr(CCJCCJC,CJJCCCJC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCCCJC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) End Sub:Public Function ListNum(CJCJCCCJ):ListNum = CCJJCCC * (CCJJJCJ - 1) + CJCJCCCJ:End Function:Private Function CJCJCCCC():Dim CJJCJJJ, str:For CJJCJJJ = 0 To UBound(CCJJCJC):If InStr(LCase(CCJJCJC(CJJCJJJ)), CJJCCCJC("A286l")) = 0 Then str = str & CJJCCCJC("U") & CCJJCJC(CJJCJJJ) Next:str = Mid(str, 2):If str = "" Then CJCJCCCC = CCJJCCJ & CJJCCCJC("n") & CJJCCCJC("A286l") Else CJCJCCCC = CCJJCCJ & CJJCCCJC("n") & str & CJJCCCJC("UA286l") End Function:Private Function CJJCJCJC():Dim str:str = CJJCCCJC("轧@别@ ,笧@"):For CJJCJJJ = 1 To PageCount:If CJJCJJJ = CCJJJCJ Then str = str & CJJCCCJC("k3m") & CJJCJJJ & CJJCCCJC("k^3m ,") Else str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CJJCJJJ & CJJCCCJC("Vm") & CJJCJJJ & CJJCCCJC("k^2m ,") Next:str = str & CJJCCCJC("顰@"):CJJCJCJC = str:End Function:Private Function CJJCJCCJ():Dim str:If CCJJJCJ > 1 Then str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CJJCCCJC("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJJ & CJJCCCJC("k^2m ,") str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 1 & CJJCCCJC("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJCJ & CJJCCCJC("k^2m ,") Else str = str & CCCCJJJ & CJJCCCJC(" ,") & CCCCJCJ End If:If CCJJJCJ < PageCount Then str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ + 1 & CJJCCCJC("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJCC & CJJCCCJC("k^2m ,") str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & PageCount & CJJCCCJC("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCCJC & CJJCCCJC("k^2m ,") Else str = str & CCCCJCC & CJJCCCJC(" ,") & CCCCCJC End If:str = str & CJJCJJJJ:str = str & CJJCJJJC:CJJCJCCJ = str:End Function:Private Function CJJCJCCC():Dim str, CJJJCCC:CJJJCCC = (CCJJJCJ - 1) \ 10:If CCJJJCJ = 1 Then str = str & CCCCJJJ & CJJCCCJC(" ,") Else str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CJJCCCJC("`V ,E:E=6lV馑@顰@Vm") & CCCCJJJ & CJJCCCJC("k^2m ,") If CJJJCCC * 10 > 0 Then str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 10 & CJJCCCJC("V ,E:E=6lV丅@匼@顰@Vm") & CCCCJJC & CJJCCCJC("k^2m ,") For CJJCJJJ = (CJJJCCC * 10 + 1) To (CJJJCCC * 10 + 10):If CJJCJJJ = CCJJJCJ Then str = str & CJJCCCJC("k3m") & CJJCJJJ & CJJCCCJC("k^3m ,") Else str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CJJCJJJ & CJJCCCJC("V ,E:E=6lV轧@别@笧@") & CJJCJJJ & CJJCCCJC("顰@Vm") & CJJCJJJ & CJJCCCJC("k^2m ,") If CJJCJJJ = PageCount Then Exit For Next:If CJJCJJJ < PageCount Then str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CJJCJJJ & CJJCCCJC("V ,E:E=6lV丆@匼@顰@Vm") & CCCCCJJ & CJJCCCJC("k^2m ,") If CCJJJCJ = PageCount Then str = str & CCCCCJC Else str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & PageCount & CJJCCCJC("V ,E:E=6lV朦@顰@Vm") & CCCCCJC & CJJCCCJC("k^2m") CJJCJCCC = str:End Function:Private Function CJJCCJJJ():Dim str, CJJCCJC, CCJCCCJ, CJJCJJJ:If CCJJJCJ > 4 Then str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CJJCCCJC("`Vm,`.k^2m ,]]]") If CCJJJCJ < PageCount - 3 Then CCJCCCJ = CCJJJCJ + 3 Else CCJCCCJ = PageCount For CJJCJJJ = CCJJJCJ - 3 To CCJCCCJ:If CJJCJJJ >= 1 Then If CJJCJJJ = CCJJJCJ Then str = str & CJJCCCJC(" ,k3m,") & CJJCJJJ & CJJCCCJC(".k^3m") Else str = str & CJJCCCJC(" ,k2 ,9C67lV") & CCJJCJJ & CJJCJJJ & CJJCCCJC("Vm,") & CJJCJJJ & CJJCCCJC(".k^2m") End If:Next:If CCJJJCJ < PageCount - 3 Then str = str & CJJCCCJC(" ,]]] ,k2 ,9C67lV") & CCJJCJJ & PageCount & CJJCCCJC("Vm,") & PageCount & CJJCCCJC(".k^2m") CJJCCJJJ = str:End Function:Private Function CJJCCJJC():Dim str:If CCJJJCJ > 1 Then str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CJJCCCJC("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,") str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 1 & CJJCCCJC("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,") Else str = str & CJJCCCJC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m") End If:If CCJJJCJ < PageCount Then str = str & CJJCCCJC(" ,k2 ,9C67lV") & CCJJCJJ & CCJJJCJ + 1 & CJJCCCJC("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,") str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & PageCount & CJJCCCJC("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,") Else str = str & CJJCCCJC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m") End If:str = str & CJJCJJCJ:CJJCCJJC = str:End Function:Private Function CJJCCJCJ():Dim str:if CCJJJCJ>=2 then str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 1 & CJJCCCJC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m") str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 1 & CJJCCCJC("V ,52E2\C@=6lV3FEE@?Vm") & CCJJJCJ-1 & CJJCCCJC("k^2m") end if:str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ & CJJCCCJC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCJJJCJ & CJJCCCJC("k^2m") if pagecount>CCJJJCJ then str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ + 1 & CJJCCCJC("V ,52E2\C@=6lV3FEE@?Vm") & CCJJJCJ+1 & CJJCCCJC("k^2m") str = str & CJJCCCJC("k2 ,9C67lV") & CCJJCJJ & CCJJJCJ + 1 & CJJCCCJC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m") end if:CJJCCJCJ=str:End Function:Private Function CJJCCJCC():Dim str:str=CJJCCCJC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm") if CCJJJCJ>=2 then str = str & CJJCCCJC("k=:mk2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 1 & CJJCCCJC("VmU=2BF@jk^2mk^=:m") str = str & CJJCCCJC("k=:mk2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 1 & CJJCCCJC("Vm") & CCJJJCJ-1 & CJJCCCJC("k^2mk^=:m") end if:str = str & CJJCCCJC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCJJCJJ & CCJJJCJ & CJJCCCJC("Vm") & CCJJJCJ & CJJCCCJC("k^2mk^=:m") if pagecount>CCJJJCJ then str = str & CJJCCCJC("k=:mk2 ,9C67lV") & CCJJCJJ & CCJJJCJ + 1 & CJJCCCJC("Vm") & CCJJJCJ+1 & CJJCCCJC("k^2mk^=:m") str = str & CJJCCCJC("k=:mk2 ,9C67lV") & CCJJCJJ & CCJJJCJ + 1 & CJJCCCJC("VmUC2BF@jk^2mk^=:m") end if:str=str & CJJCCCJC("k^F=m"):CJJCCJCC=str:End Function:Private Function CJJCCCJJ():Dim str:str=CJJCCCJC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm") if CCJJJCJ>=2 then str = str & CJJCCCJC("k=:mk2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 1 & CJJCCCJC("VmU=2BF@jk^2mk^=:m") str = str & CJJCCCJC("k=:mk2 ,9C67lV") & CCJJCJJ & CCJJJCJ - 1 & CJJCCCJC("Vm") & CCJJJCJ-1 & CJJCCCJC("k^2mk^=:m") end if:str = str & CJJCCCJC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCJJCJJ & CCJJJCJ & CJJCCCJC("Vm") & CCJJJCJ & CJJCCCJC("k^2mk^=:m") if pagecount>CCJJJCJ then str = str & CJJCCCJC("k=:mk2 ,9C67lV") & CCJJCJJ & CCJJJCJ + 1 & CJJCCCJC("Vm") & CCJJJCJ+1 & CJJCCCJC("k^2mk^=:m") str = str & CJJCCCJC("k=:mk2 ,9C67lV") & CCJJCJJ & CCJJJCJ + 1 & CJJCCCJC("VmUC2BF@jk^2mk^=:m") end if:str=str & CJJCCCJC("k^F=m"):CJJCCCJJ=str:End Function:End Class::dim CJJJCJC:sql=Request.ServerVariables(CJJCCCJC("!p%w0x}u~")):if instr(sql,CJJCCCJC("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CCCJCC and not CJJJJCJ then Call RedirectMessage(CJJCCCJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CJJJCJC=CCCJJJ elseif instr(sql,CJJCCCJC("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJJCCCJC("^DEF56?E^"))>0 then Call CheckLogined:CJJJCJC=CCCJJJ elseif instr(sql,CJJCCCJC("^D49@@="))>0 then CJJJCJC=Request.QueryString(CJJCCCJC("D49@@=")):if not CJJJJJCJ(CJJJCJC) then CJJJCJC=Request.QueryString(CJJCCCJC("F")) if not CJJJJJCJ(CJJJCJC) then CJJJCJC=Request.QueryString(CJJCCCJC("D4")) if not CJJJJJCJ(CJJJCJC) then Call RedirectMessage(CJJCCCJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CJJJCJC=csng(CJJJCJC) end if:if CJJJCJC=0 then Call RedirectMessage(CJJCCCJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CCJCCCC:Call SetConfig:Sub SetConfig():dim CCCJJJJ,CJCJJCJ:sql=CJJCCCJC("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 ,D49@@= ,H:E9 ,W?@=@4D")):CCCJJJJ(3)=CJCJJCJ(CJJCCCJC("4FDE@>8C@FA")) & "":CCCJJJJ(4)=CJCJJCJ(CJJCCCJC("D:5632C0@E96C")) & "":CCCJJJJ(5)=IIf(isnull(CJCJJCJ(CJJCCCJC("E6DEC6DF=EG:6H"))),0,CJCJJCJ(CJJCCCJC("E6DEC6DF=EG:6H"))):CCCJJJJ(6)=CJCJJCJ(CJJCCCJC("K:IF?E:>6")):CCCJJJJ(7)=CJCJJCJ(CJJCCCJC("766")):CCCJJJJ(8)=CJCJJCJ(CJJCCCJC("C6E6DE52J")):CCCJJJJ(9)=CJCJJCJ(CJJCCCJC("6IA:C652E6")):CCCJJJJ(10)=CJCJJCJ(CJJCCCJC("E:E=6")):CCCJJJJ(11)=CJCJJCJ(CJJCCCJC(":?EC@")) & "":CCCJJJJ(12)=CJCJJCJ(CJJCCCJC("A:4EFC6")) & "":CCCJJJJ(13)=CJCJJCJ(CJJCCCJC("72>:=J")):CCCJJJJ(14)=CJCJJCJ(CJJCCCJC("4@AJC:89E")) & "":CCCJJJJ(15)=IIf(isnull(CJCJJCJ(CJJCCCJC("D6>6DE6C0DE2CE052E6"))),CJJCCCJC("`h__\`\`"),CJCJJCJ(CJJCCCJC("D6>6DE6C0DE2CE052E6"))):CCCJJJJ(16)=IIf(isnull(CJCJJCJ(CJJCCCJC("K:IF?0E:>6D09:89=:89E"))),0,CJCJJCJ(CJJCCCJC("K:IF?0E:>6D09:89=:89E"))):CCCJJJJ(17)=CJCJJCJ(CJJCCCJC("4@?E24E")) & "":CCCJJJJ(18)=CJCJJCJ(CJJCCCJC("D2?5E23=6")):CCCJJJJ(19)=CJCJJCJ(CJJCCCJC("4C:D:D")):CCCJJJJ(20)=CJCJJCJ(CJJCCCJC("JJ52E6")):CCCJJJJ(21)=CJCJJCJ(CJJCCCJC("BB")):CCCJJJJ(22)=CJCJJCJ(CJJCCCJC("JFJF60D>D0EA=")) & "":CCCJJJJ(23)=CJCJJCJ(CJJCCCJC("JFJF60E6DE0=3")) & "":CCCJJJJ(25)=CJCJJCJ(CJJCCCJC("6IA6CE")):CCCJJJJ(26)=CJCJJCJ(CJJCCCJC(">@5:?7@")):CCCJJJJ(27)=CJCJJCJ(CJJCCCJC("9@>6A286E@AA:4EFC6")) & "":CCCJJJJ(28)=CJCJJCJ(CJJCCCJC("4C:D:D=3")):CCCJJJJ(29)=IIf(CJCJJCJ(CJJCCCJC("4C:D:D@=5")),False,True):CCCJJJJ(30)=CJCJJCJ(CJJCCCJC("8C@FA8F:52?46")):CCCJJJJ(31)=CJCJJCJ(CJJCCCJC("3:@7665324<")):CCCJJJJ(32)=CJCJJCJ(CJJCCCJC("<6JDEC")):CCCJJJJ(33)=CJCJJCJ(CJJCCCJC("=@8@")) & "":CCCJJJJ(34)=CJCJJCJ(CJJCCCJC("K:46")):CCCJJJJ(35)=IIf(CJCJJCJ(CJJCCCJC(":D?6H")),True,False):CCCJJJJ(36)=121:CCCJJJJ(37)=111:CCCJJJJ(38)=160:CCCJJJJ(39)=CJCJJCJ(CJJCCCJC("8F6DE3@@<")):CCCJJJJ(40)=CJCJJCJ(CJJCCCJC("75D")):CCCJJJJ(42)=CJCJJCJ(CJJCCCJC("9@>6=@8:?")):CCCJJJJ(43)=CJCJJCJ(CJJCCCJC("K:IF?0?6657665324<")):CCCJJJJ(44)=CJCJJCJ(CJJCCCJC("K:IF?0E:>6D0=:>:E")):CCCJJJJ(45)=CJCJJCJ(CJJCCCJC("4@>A=6E60:?7@")):CCCJJJJ(46)=CJCJJCJ(CJJCCCJC("E6DE:?EC@")) & "":CCCJJJJ(47)=IIf(isnull(CJCJJCJ(CJJCCCJC("JFJF60367@C60E:>6"))),0,CJCJJCJ(CJJCCCJC("JFJF60367@C60E:>6"))):CCCJJJJ(49)=CJCJJCJ(CJJCCCJC("D>D0C646:G6C")):CCCJJJJ(50)=CJCJJCJ(CJJCCCJC("D>D0D:8?")) & "":CCCJJJJ(52)=CJCJJCJ(CJJCCCJC("JFJF602CC2?86")):CCCJJJJ(53)=IIf(isnull(CJCJJCJ(CJJCCCJC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJJCJ(CJJCCCJC("DEF56?E0BF6DE:@?04@F?E"))):CCCJJJJ(54)=CJCJJCJ(CJJCCCJC("9:560=30@FE@7286")):CCCJJJJ(55)=CJCJJCJ(CJJCCCJC("JFJF60E6DE052JD")):CCCJJJJ(56)=CJCJJCJ(CJJCCCJC("JFJF60H66<0=:>:E")):CCCJJJJ(57)=CJCJJCJ(CJJCCCJC("JFJF604964<65")):CCCJJJJ(58)=CJCJJCJ(CJJCCCJC("K:IF?0?6657665324<0?6IE")):CCCJJJJ(59)=CJCJJCJ(CJJCCCJC("49642E6"),CJJCCCJC("}F>36C"),CJJCCCJC("%62496C"),CJJCCCJC("!2C6?E")):select case CCJCCCC(1):case 1,2 : CCCJJCJ=Array(CJJCCCJC("孡@栜@"),CJJCCCJC("孡@甚@"),CJJCCCJC("珨@红@"),CJJCCCJC("幯@红@"),CJJCCCJC("吇@孡@"),CJJCCCJC("孡@史@"),CJJCCCJC("敔@布@"),CJJCCCJC("宱@镺@")):case 3,16 : CCCJJCJ=Array(CJJCCCJC("孡@栜@"),CJJCCCJC("孡@甚@"),CJJCCCJC("陝@糶@"),CJJCCCJC("幯@红@"),CJJCCCJC("吇@孡@"),CJJCCCJC("孡@史@"),CJJCCCJC("敔@布@"),CJJCCCJC("宱@镺@")):case 4 : CCCJJCJ=Array(CJJCCCJC("匶@陝@"),CJJCCCJC("杠@论@耀@"),CJJCCCJC("卐@佈@"),CJJCCCJC("幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("匶@甚@"),CJJCCCJC("宱@屙@")):case 5 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("呓@巠@"),CJJCCCJC("郣@闣@"),CJJCCCJC("幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("呓@巠@"),CJJCCCJC("宱@屙@")):case 6 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("杠@论@耀@"),CJJCCCJC("线@刦@"),CJJCCCJC("幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("宱@屙@")):case 7 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("宓@兰@"),CJJCCCJC("郣@闣@"),CJJCCCJC("幯@仸@"),CJJCCCJC("戓@叆@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("宱@屙@")):case 8 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("杠@论@耀@"),CJJCCCJC("卐@佈@"),CJJCCCJC("兠@聇@幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("酈@偱@")):case 9 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("敔@布@"),CJJCCCJC("卐@佈@"),CJJCCCJC("幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("酈@偱@")):case 10 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("氌@譡@"),CJJCCCJC("郣@闣@"),CJJCCCJC("兠@譡@幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("宱@屙@")):case 11 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("內@劜@呓@"),CJJCCCJC("郣@闣@"),CJJCCCJC("幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("宱@屙@")):case 12 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("幭@譡@"),CJJCCCJC("卐@佈@"),CJJCCCJC("兠@譡@幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("宱@屙@")):case 13 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("孡@呓@"),CJJCCCJC("卐@佈@"),CJJCCCJC("幯@仸@"),CJJCCCJC("戓@叆@"),CJJCCCJC("缑@史@"),CJJCCCJC("敔@呓@"),CJJCCCJC("宱@屙@")):case 14 : CCCJJCJ=Array(CJJCCCJC("月@劜@炴@"),CJJCCCJC("局@氌@"),CJJCCCJC("线@刦@"),CJJCCCJC("幯@仸@"),CJJCCCJC("邶@采@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("宱@屙@")):case 15 : CCCJJCJ=Array(CJJCCCJC("卐@佈@"),CJJCCCJC("盌@独@氌@譡@"),CJJCCCJC("卐@佈@"),CJJCCCJC("兠@譡@幯@仸@"),CJJCCCJC("吇@了@"),CJJCCCJC("缑@史@"),CJJCCCJC("咣@话@布@"),CJJCCCJC("宱@屙@")):case else : CCCJJCJ=CCCJJJC end select:for CJJCJJJ=0 to Ubound(CCCJJJJ):CCCJJJJ(CJJCJJJ,0)=CCCJJJC(CJJCJJJ):CCCJJJJ(CJJCJJJ,1)=CCCJJCJ(CJJCJJJ):next:for CJJCJJJ=0 to Ubound(CCCJJJJ):if CCCJJJJ(CJJCJJJ,0)=CJCCJJJJ then CJJJJCCJ=CCCJJJJ(CJJCJJJ,1):exit for end if:next:End Function::if not CCJCCCC(18) then Call response.redirect(CJJCCCJC("A:4EFC6^拎@屐@辀@寷@顰@靝@^沔@盓@渳@戊@箜@琁@^沔@盓@厚@垆@];A8")) dim CJJCCJC,CJJCCCC,CCCJJCC:CJJCCJC=CCCCCCC(Request.QueryString(CJJCCCJC("}"))):CJJCCCC=Request.QueryString(CJJCCCJC("%")):CCCJJCC=Request.QueryString(CJJCCCJC("!@DE")):dim CJCJJCC:set CJCJJCC=new jtree:CJCJJCC.table=CJJCCCJC("D2?5A=2J0E9:?80EJA6"):Response.Write(vbCrLf):Response.Write(CJJCCCJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCCCJC("k9E>=m") & vbCrLf):Response.Write(CJJCCCJC("k9625m") & vbCrLf):Response.Write(CJJCCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCJC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJCCCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCCJC("k^9625m") & vbCrLf):Response.Write(CJJCCCJC("k3@5Jm") & vbCrLf):Response.Write(CJJCCCJC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m·,厚@垆@·,k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5 ,4=2DDlQ=236=Qm合@秫@：,k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5mk:?AFE ,?2>6lQ}Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write CJJCCJC:Response.Write(CJJCCCJC("Q ,E:E=6lQ樜@糅@匴@酈@Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5 ,4=2DDlQ=236=Qm籶@刦@：,k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5mkD6=64E ,?2>6lQ%Q ,:5lQ%Qm") & vbCrLf):Response.Write(CJJCCCJC(" ,")):Call CJCJJCC.ShowTree_Select(0,CJJCCCC):Response.Write(vbCrLf):Response.Write(CJJCCCJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5 ,4=2DDlQ24EQmk:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJJCCCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,@?4=:46lQ!@DEQ ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJC("k^7@C>m") & vbCrLf):Response.Write(CJJCCCJC("k3Cm") & vbCrLf)::If CCCJJCC="1" Then Response.Write(vbCrLf):Response.Write(CJJCCCJC("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m合@秫@k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m籶@刦@k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m揊@迫@k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,")):dim CJJCJJJ:sql=CJJCCCJC("D6=64E ,:5[?2>6[EJA6?2>6[A:4EFC6[56D4C:AE:@?[2FE9@C ,7C@> ,G0D2?5A=2J0E9:?8 ,H96C6 ,") & CJCJJCC.Sql_GetChildren(CJJCCCC):if CJJCCJC<>"" then sql=sql & CJJCCCJC(" ,2?5 ,?2>6 ,=:<6 ,VT") & CJJCCJC & CJJCCCJC("TV") sql=sql & CJJCCCJC(" ,@C56C ,3J ,:5 ,56D4"):dim CCCJCJJ,CCCJCJC:set CCCJCJJ=new splitpage:with CCCJCJJ:.sql=sql:.pagesize=20:.style=5:end with:set rs=CCCJCJJ.rs:for CJJCJJJ=1 to CCCJCJJ.pagesize:CCCJCJC=rs(0):Response.Write(vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJCJJ.listnum(CJJCJJJ):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5mk2 ,9C67lQD2?5E23=60E9:?80G:6H]2DAn:5l")):Response.Write CCCJCJC:Response.Write(CJJCCCJC("Qm")):Response.Write rs(1):Response.Write(CJJCCCJC("k^2mk^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write rs(2):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5m")):Response.Write CJJJJJJC(rs(4),80):Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQD2?5E23=60E9:?80G:6H]2DAn:5l")):Response.Write CCCJCJC:Response.Write(CJJCCCJC("Qm诡@绁@k^2mk^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCCCJC(" ,kECm") & vbCrLf):Response.Write(CJJCCCJC(" ,kE5 ,4@=DA2?lQdQm")):call CCCJCJJ.showpage:Response.Write(CJJCCCJC("k^E5m") & vbCrLf):Response.Write(CJJCCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJC(" ,")):set CCCJCJJ=nothing:Response.Write(vbCrLf):Response.Write(CJJCCCJC("k^E23=6m") & vbCrLf) Else response.write CJJCCCJC("k5:G ,2=:8?lV46?E6CVmk3m圣@丅@靝@讹@宕@杜@仱@仠@吉@，,炴@凶@柠@话@挄@钩@！,k^3mk^5:Gm") end if:Response.Write(vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCJC(" ,SWVR%VX];%C66$6=64EWX") & vbCrLf):Response.Write(CJJCCCJC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJCCCJC(" ,SWV2,E:E=6.VX];%:E=6WLDEJ=6iV3=F6VNX") & vbCrLf):Response.Write(CJJCCCJC("NX") & vbCrLf):Response.Write(CJJCCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJCC=nothing:set CJJJJCJJ=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:rs.Close:Set rs=Nothing:CJCCJC.Close:Set CJCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJJCCCJC(ByVal CJCJJJJ) Dim CCCJCCJ, CJJCJJJ, CJJCCJC CJCJJJJ = Replace(CJCJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJJCJJJ = 1 To Len(CJCJJJJ) If CJJCJJJ <> CJJCCJC Then CCCJCCJ = AscW(Mid(CJCJJJJ, CJJCJJJ, 1)) If CCCJCCJ >= 33 And CCCJCCJ <= 79 Then CJJCCCJC = CJJCCCJC & Chr(CCCJCCJ + 47) ElseIf CCCJCCJ >= 80 And CCCJCCJ <= 126 Then CJJCCCJC = CJJCCCJC & Chr(CCCJCCJ - 47) Else CJJCCJC = CJJCJJJ + 1 If Mid(CJCJJJJ, CJJCCJC, 1) = Chr(64) Then CJJCCCJC = CJJCCCJC & ChrW(CCCJCCJ + 5) Else CJJCCCJC = CJJCCCJC & Mid(CJCJJJJ, CJJCJJJ, 1) End If End If Next End Function %>