<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCCJCJ, CCCJCC,rs, CCCCJC, sql:Set CCCJCJ = server.CreateObject(CJCCCJCC("ps~sq]r@??64E:@?")):CCCJCJ.open Application(CJCCCJCC("r@??64E:@?$EC:?8")):Set CCCJCC=CCCJCJ::Dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC:Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC:CJCJJJC=Trim(Request.Cookies(CJCCCJCC("!$*|t|qt#"))):if CJCJJJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCCCC>0 then sql=CJCCCJCC("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(CJCCCJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCCCCC,CJJJJJJ) End IF end if:Sub CheckRight(CCJCCJC):dim CJCJJCJ,CJCJJCC:if CCCCCC=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJJCJCJJ(CCJCCJC) then Call RedirectMessage(CJCCCJCC("朾@陋@W") & CCJCCJC & CJCCCJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJJCJCJJ(CCJCCJC):dim CJCJJCJ,CJCJJCC:CJCJJCC=split(CCJCCJC,CJCCCJCC("[")):CJJCJCJJ=False:for CJCJJCJ=0 to ubound(CJCJJCC):If Mid(CJJJJJC,CJCJJCC(CJCJJCJ),1)="1" then CJJCJCJJ=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCCCJCC("!$*|t|qt#"))="":CCCCCC=0:CJJJCJJ=0:CJJJJJJ=Empty:CJJJJCC=0:CJJJCCJ=0:CJJJCJC=0:CJJJJCJ=0:CJJCJJJ=False:CJJCCCC=False:CJCJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJJ,CJCJCJC,CJCJJCJ,CJCJCCJ,CJCJCCC:CJCJCJJ=split(CJCJJJC,CJCCCJCC("]")):if ubound(CJCJCJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCJCJJ(0)) or len(CJCJCJJ(1))<>32 or len(CJCJCJJ(2))<>32 then Call ClearMemberCookie else CJCJCJC=CJCJCJJ(1):for CJCJJCJ=1 to len(CJCJCJC):CJCJCCJ=mid(CJCJCJC,CJCJJCJ,1):if isnumeric(CJCJCCJ) then CJCJCCC=CJCJCCC & CJCJCCJ if len(CJCJCCC)=7 then exit for next:CJCJCJC=CJCJCJJ(2):if CJCJCCC<>mid(CJCJCJC,6,7) then Call ClearMemberCookie else CJCJCCJ=mid(CJCJCJC,18,10)/2:if CJCJCCJ6"), CJCCCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCJCC("kD4C:AE"), CJCCCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCJJC=new RegExp:CJCCJJC.Pattern=CJCCCJCC("@?W,2\K.ZXl"):CJCCJJC.IgnoreCase = True:CJCCJJC.Global=True:str=CJCCJJC.Replace(str,CJCCCJCC("@?S`U6BF2=Dj")):set CJCCJJC=nothing:CJJCJCJC=str End If:End Function:Function IIf(CJCCCCCJ, CJCCCCCC, CCJJJJJJ):if isnull(CJCCCCCJ) or isempty(CJCCCCCJ) then IIf = CCJJJJJJ elseif CJCCCCCJ Then IIf = CJCCCCCC Else IIf = CCJJJJJJ end if:End Function:Const CJJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCCCJCC("FE7\g"):dim CJCJJCJ,CJCJCCJ,CJCCJCJ:if isarray(str) then on error resume next:CJCJJCJ=ubound(str,2):CJCCJCJ=err.number:err.clear:on error goto 0:if CJCCJCJ<>0 then for CJCJJCJ=0 to ubound(str):if CJCJJCJ>0 then response.Write CJCCCJCC("k3C ,^m") response.Write CJCJJCJ & CJCCCJCC("i ,") & str(CJCJJCJ):next else response.Write CJCCCJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCJJCJ=0 to ubound(str,2):response.Write CJCCCJCC("kE9 ,2=:8?lV=67EVm") & CJCJJCJ & CJCCCJCC("k^E9m") next:response.Write CJCCCJCC("k^ECm"):for CJCJJCJ=0 to ubound(str):response.Write CJCCCJCC("kECmkE9m") & CJCJJCJ & CJCCCJCC("k^E9m"):for CJCJCCJ=0 to ubound(str,2):response.Write CJCCCJCC("kE5m") & str(CJCJJCJ,CJCJCCJ) & CJCCCJCC("k^E5m"):next:response.Write CJCCCJCC("k^ECm"):next:response.Write CJCCCJCC("k^E23=6m") end if elseif isnull(str) then response.Write CJCCCJCC(",}F==.") else Response.Write replace(str,vbcrlf,CJCCCJCC("k3Cm")) end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJJJJC,CCJJJJCJ):dim CJCJCJJ:CJCJCJJ=CCJJJJJC & CJCCCJCC("l") & CCJJJJCJ & CJCCCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJCC("$6E\r@@<:6"),CJCJCJJ):End Sub::::::sub ShowMessage(CCJJJJCC):response.Charset="utf-8":Response.Write CJCCCJCC("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:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCJJJJCC & CJCCCJCC("k^5:Gmk^5:Gmk3Cm") end sub:Function CJJCJCCC(CJCCJCJ):if isnull(CJCCJCJ) or trim(CJCCJCJ)="" or not isnumeric(CJCCJCJ) then CJJCJCCC=false else Dim CJCCJJC:Set CJCCJJC = New RegExp:CJCCJJC.Pattern = CJCCCJCC("/-5ZS"):CJCCJJC.IgnoreCase = True:CJJCJCCC = CJCCJJC.test(CJCCJCJ):set CJCCJJC=nothing end if:End Function:Function CJJCCJJJ(CCJJJCJJ):dim CJCCJCC,CJCCCJJ:CJCCJCC=CJCCCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJCJJ & CJCCCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJJ=CCCJCJ.execute(CJCCJCC):CJJCCJJJ = CJCCCJJ(0):if isnull(CJJCCJJJ) then CJJCCJJJ=1 CJCCCJJ.close : set CJCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJJC=nothing:set CJJCCJJC=nothing:set CJJCCJCJ=nothing:set CJJCCJCC=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CCCCJC.Close : Set CCCCJC=Nothing:rs.Close : Set rs=Nothing:CJJCCCJJ.Close : Set CJJCCCJJ = Nothing:CCCJCJ.Close : Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJCC("!$*0|6DD286"),server.URLEncode(CCJJJJCC)):Response.Redirect CJCCCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJCCCJC(ByVal CJJCCCCJ,style):if not isdate(CJJCCCCJ) then CJJCCCJC=CJJCCCCJ:exit function end if:dim CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:CJJCCCCJ=cdate(CJJCCCCJ):CJCCCJC=Year(CJJCCCCJ):CJCCCCJ=Month(CJJCCCCJ):CJCCCCC=Day(CJJCCCCJ):select case style:case 0:CJJCCCJC=CJCCCJC & CJCCCJCC("\") & right(0 & CJCCCCJ,2) & CJCCCJCC("\") & right(0 & CJCCCCC,2):case 1:CJJCCCJC=CJCCCJC & right(0 & CJCCCCJ,2) & right(0 & CJCCCCC,2):case 2:CJJCCCJC=right(CJCCCJC,2) & CJCCCJCC("\") & right(0 & CJCCCCJ,2) & CJCCCJCC("\") & right(0 & CJCCCCC,2):case 3:CJJCCCJC=CJCCCJC & CJCCCJCC("\") & right(0 & CJCCCCJ,2):case 4:CJJCCCJC=right(0 & CJCCCCJ,2) & CJCCCJCC("\") & right(0 & CJCCCCC,2):case 5:CJJCCCJC=right(0 & CJCCCCC,2):case 6:CJJCCCJC=CJCCCJC & CJCCCJCC("幯@") & right(0 & CJCCCCJ,2) & CJCCCJCC("會@") & right(0 & CJCCCCC,2) & CJCCCJCC("无@"):case else CJJCCCJC=CJJCCCCJ:end select:End Function::::::::::::::::::::Sub ClearCache(CCJJJCJC):Application.Contents.Remove CCJJJCJC End Sub::Class jTree:Private Sql, CCJJJJC, CCJJJCJ, CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC:Private Sub Class_Initialize():CCJJJCJ = 0:CCJJJCC = 0:CCJJCCC=10:End Sub:Public Property Let Table(CCJJJCCJ):if CCJJJCCJ="" then Call RedirectMessage(CJCCCJCC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CCJJCJJ=CCJJJCCJ:CCJJCJC=CJCCCJCC("!$*0") & UCase(CCJJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJCJJ:End Property:::Private Sub GetTreeArray():Dim CJCJJCJ, CJCJCCJ, CCJCJJJ,RecordCount:CCJJJJC = Application(CCJJCJC):If Not IsArray(CCJJJJC) Then Sql = CJCCCJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJCJJ:if CCJJCCJ<>"" then Sql=Sql & CJCCCJCC(" ,H96C6 ,") & CCJJCCJ set CCJCJJJ=CCCJCJ.execute(sql):RecordCount=CCJCJJJ(0):if RecordCount=0 then Call RedirectMessage(CJCCCJCC("柠@话@W") & CCJJCJJ & CJCCCJCC("^") & CCJJCCJ & CJCCCJCC("X沜@朄@绎@林@敫@捩@")) CCJJJCC=RecordCount+CCJJCCC:ReDim CCJJJJC(CCJJJCC, 4):Sql = CJCCCJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJJ & CJCCCJCC(" ,H:E9 ,W?@=@4"" then Sql=Sql & CJCCCJCC(" ,H96C6 ,") & CCJJCCJ Sql=Sql & CJCCCJCC(" ,@C56C ,3J ,D@CE[:5"):set CCJCJJJ=CCCJCJ.execute(sql):For CJCJJCJ = 1 To RecordCount:For CJCJCCJ = 0 To 4:CCJJJJC(CJCJJCJ, CJCJCCJ) = CCJCJJJ(CJCJCCJ):if IsNull(CCJJJJC(CJCJJCJ,4)) then CCJJJJC(CJCJJCJ,4)=0 If CCJJJJC(CJCJJCJ,2)="" then CCJJJJC(CJCJJCJ,2)=CJCCCJCC(",穵@.") Next:CCJCJJJ.MoveNext:Next:CCJCJJJ.Close: Set CCJCJJJ = Nothing:for CJCJJCJ=CCJJJCC-(CCJJCCC-1) to CCJJJCC:CCJJJJC(CJCJJCJ,0)=CJCJJCJ:next:Application.Lock():Application(CCJJCJC) = CCJJJJC:Application.UnLock() else CCJJJCC=Ubound(CCJJJJC) End If:End Sub:Public Sub ShowChild_Select(CJJJCJJJ, CJCJJJJJ):dim CJCJJCJ:CJJJCJJJ=CLng(CJJJCJJJ):CJCJJJJJ=Cstr(CJCJJJJJ):For CJCJJCJ = 1 To CCJJJCC:If CCJJJJC(CJCJJCJ, 1) = CJJJCJJJ Then Response.Write CJCCCJCC("k@AE:@? ,G2=F6lV") & CCJJJJC(CJCJJCJ, 0) & CJCCCJCC("V") If Instr(CJCCCJCC("[") & CJCJJJJJ & CJCCCJCC("["),CJCCCJCC("[") & CCJJJJC(CJCJJCJ, 0) & CJCCCJCC("["))>0 Then Response.Write CJCCCJCC(" ,D6=64E65") Response.Write CJCCCJCC("m\ ,") & CCJJJJC(CJCJJCJ, 2) & CJCCCJCC("k^@AE:@?m") End If:Next:End Sub::::Private Function CJCJJJJC(CJJJCJJJ):dim CJCJJCJ,CCJCJCJ:CJCJJJJC=0:CCJCJCJ=CStr(CJJJCJJJ):if CCJCJCJ<>"0" then for CJCJJCJ=1 to CCJJJCC:If CStr(CCJJJJC(CJCJJCJ, 0))=CCJCJCJ Then CJCJJJJC = CJCJJCJ:Exit For End If:Next end if:End Function:Public Function CJCJJJCJ(CJJJCJJJ):if Cstr(CJJJCJJJ)="0" then CJCJJJCJ=CJCCCJCC("栴@") else Dim CJCJJCJ,CCJCJJJ:CJCJJCJ=CJCJJJJC(CJJJCJJJ):if CJCJJCJ>0 then CJCJJJCJ=CCJJJJC(CJCJJCJ,2):if CJCJJJCJ="" then set CCJCJJJ=CCCJCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJJ & CJCCCJCC(" ,H96C6 ,:5l") & CJJJCJJJ):if CCJCJJJ.eof then Call RedirectMessage(CJCCCJCC("xs（,") & CJJJCJJJ & CJCCCJCC("）,朥@批@别@")) CJCJJJCJ=CCJCJJJ(1):Call UpdateCache(CJJJCJJJ,CCJCJJJ(0),CJCJJJCJ,CCJCJJJ(2),CCJCJJJ(3)):CCJCJJJ.Close: Set CCJCJJJ = Nothing end if else set CCJCJJJ=CCCJCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJJ & CJCCCJCC(" ,H96C6 ,:5l") & CJJJCJJJ):if CCJCJJJ.eof then Call RedirectMessage(CJCCCJCC("xs（,") & CJJJCJJJ & CJCCCJCC("）,朥@批@别@")) CJCJJJCJ=CCJCJJJ(1):Call UpdateCache(CJJJCJJJ,CCJCJJJ(0),CJCJJJCJ,CCJCJJJ(2),CCJCJJJ(3)):CCJCJJJ.Close: Set CCJCJJJ = Nothing end if end if:End Function:::Public Function CJCJJJCC(CJJJCJJJ):Dim CJCJJCJ,CCJCJCC:CJCJJCJ=CJCJJJJC(CJJJCJJJ):if CJCJJCJ=0 then CCJCJCC=CJCJJCJJ(CJJJCJJJ) else CCJCJCC=CCJJJJC(CJCJJCJ,3):if isnull(CCJCJCC) or CCJCJCC="" then CCJCJCC=CJCJJCJJ(CJJJCJJJ) elseif Mid(CCJCJCC,instrrev(CCJCJCC,CJCCCJCC("["))+1)<>CStr(CJJJCJJJ) then CCJCJCC=CJCJJCJJ(CJJJCJJJ) elseif Left(CCJCJCC,1)=CJCCCJCC("[") then CCJCJCC=CJCJJCJJ(CJJJCJJJ) end if end if:CJCJJJCC=CCJCJCC:End Function:Private Function CJCJJCJJ(CJJJCJJJ):dim CCJCJCJ:CCJCJCJ=CStr(CJJJCJJJ):if CCJCJCJ="0" then CJCJJCJJ="" else dim CCJCJJJ:set CCJCJJJ=CCCJCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJCJJ & CJCCCJCC(" ,H96C6 ,:5l") & CJJJCJJJ):if CCJCJJJ.eof then Call UpdateCache(CJJJCJJJ,"","","",""):Call RedirectMessage(CJCCCJCC("顴@盩@（,xs：,") & CJJJCJJJ & CJCCCJCC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CCJCJJJ(0)=0 then CJCJJCJJ="0," & CJJJCJJJ else CJCJJCJJ=CJCJJJCC(CCJCJJJ(0)) & CJCCCJCC("[") & CJJJCJJJ end if:if CCJCJJJ(2)<>CJCJJCJJ then CCCJCJ.execute CJCCCJCC("FA52E6 ,") & CCJJCJJ & CJCCCJCC(" ,D6E ,A2E9lV") & CJCJJCJJ & CJCCCJCC("V ,H96C6 ,:5l") & CJJJCJJJ else CJCJJCJJ=CCJCJJJ(2) end if end if:Call UpdateCache(CJJJCJJJ,CCJCJJJ(0),CCJCJJJ(1),CJCJJCJJ,CCJCJJJ(3)):CCJCJJJ.Close: Set CCJCJJJ = Nothing end if:End Function::Public Function CJCJJCJC(CJJJCJJJ):CJCJJCJC = Mid(CJCJJJCC(CJJJCJJJ), 3):End Function:Public Function CJCJJCCJ(CJJJCJJJ):Dim CJCJJCJ, CJCJCCJ, CCJCCJJ,Str, CCJCJCC, CCJCCJC, CJCJJCC():CCJCJCC = CJCJJCJC(CJJJCJJJ):CCJCJCC = Split(CCJCJCC, CJCCCJCC("[")):for CJCJJCJ=0 to Ubound(CCJCJCC):CCJCCJJ=CCJCJCC(CJCJJCJ):str=str & CJCCCJCC("M") & CCJCCJJ & CJCCCJCC("M") & CJCJJJCJ(CCJCCJJ):next:if str<>"" then str=Mid(str,2) CJCJJCCJ=str:End Function:Public Function IsParent(CCJJJCCC, CCJJCJJJ):IsParent=InStr(CJCJJJCC(CCJJCJJJ) & CJCCCJCC("["), CJCCCJCC("[") & CCJJJCCC & CJCCCJCC("[")) > 0:End Function:::Public Sub WritePosition_From(CJJJCJJJ,CJCJCJJJ,CCCJCJC,CCJJCJJC):Dim Str, CJCJJCJ, CJCJJCC, CCJCCJC, CCJCCCJ:CJJJCJJJ=CLng(CJJJCJJJ):CJCJCJJJ = CStr(CJCJCJJJ):if CCJJCJJC="" then CCJJCJJC=CJCCCJCC("→,") If CJCJCJJJ = "0" Then Str = CJCJCJCJ(CJJJCJJJ) ElseIf CJCJCJJJ = CStr(CJJJCJJJ) Then Str = CJCJJJCJ(CJJJCJJJ) Else CJCJJCC = Split(CJCJJCCJ(CJJJCJJJ), CJCCCJCC("M")):CCJCCJC = UBound(CJCJJCC):CCJCCCJ = False:For CJCJJCJ = 0 To CCJCCJC-2 Step 2:If CJCJJCC(CJCJJCJ) = CJCJCJJJ And Not CCJCCCJ Then CCJCCCJ = True If CCJCCCJ Then If Str <> "" Then Str = Str & CCJJCJJC Str = Str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CJCJJCC(CJCJJCJ) & CJCCCJCC("Vm") & CJCJJCC(CJCJJCJ + 1) & CJCCCJCC("k^2m") End If:Next:Str=Str & CCJJCJJC & CJCJJCC(CCJCCJC) End If:Response.Write Str:End Sub:::::Public Function Sql_GetChildren(CJJJCJJJ):dim CCJCJCC:CCJCJCC=CJCJJJCC(CJJJCJJJ):Sql_GetChildren = CCJJCJJ & CJCCCJCC("0A2E9ZV[V ,=:<6 ,V") & CCJCJCC & CJCCCJCC("[TV") End Function::Private Function CJCJCJCJ(CJJJCJJJ):Dim CJCJJCC, CJCJJCJ, CCJCCJC, Str:CJCJJCC = Split(CJCJJCCJ(CJJJCJJJ), CJCCCJCC("M")):CCJCCJC = UBound(CJCJJCC):For CJCJJCJ = 0 To CCJCCJC Step 2:If Str <> "" Then Str = Str & CJCCCJCC("→,") Str = Str & CJCJJCC(CJCJJCJ + 1):Next:CJCJCJCJ = Str:End Function::::::::Public Sub ClearCache():Application.Contents.Remove CCJJCJC End Sub:Public Sub UpdateCache(CJJJCJJJ,CCJCCJJ,CCJJCJCJ,CCJCJCC,CCJJCJCC):dim CJCJJCJ,CJCJCCJ:CJJJCJJJ=CLng(CJJJCJJJ):CJCJJCJ=CJCJJJJC(CJJJCJJJ):if CCJCCJJ="" and CCJJCJCJ="" and CCJCJCC="" and CCJJCJCC="" then if CJCJJCJ>0 then for CJCJCCJ=1 to 4:CCJJJJC(CJCJJCJ,CJCJCCJ)=Null:next end if else if CJCJJCJ=0 then for CJCJCCJ=1 to CCJJJCC:if CCJJJJC(CJCJCCJ,1) & ""="" then CJCJJCJ=CJCJCCJ:exit for end if:next end if:if CJCJJCJ=0 then Call ClearCache else CCJJJJC(CJCJJCJ,0)=CLng(CJJJCJJJ):if CCJCCJJ<>"" then CCJJJJC(CJCJJCJ,1)=CLng(CCJCCJJ) if CCJJCJCJ<>"" then CCJJJJC(CJCJJCJ,2)=CCJJCJCJ if CCJCJCC<>"" then CCJJJJC(CJCJJCJ,3)=CCJCJCC if CCJJCJCC<>"" then CCJJJJC(CJCJJCJ,4)=CLng(CCJJCJCC) end if end if:if CJCJJCJ>0 then Application.Lock():Application(CCJJCJC) = CCJJJJC:Application.UnLock() end if:End Sub:Private Sub Debug(CCJJJJCC):Call ConnClose:Response.Write CCJJJJCC:Response.End:End Sub:Private Function CJJCCJJJ():CJJCCJJJ=CJCJCJCC+1:End Function:Private Function CJCJCJCC():dim CJCCCJJ:set CJCCCJJ=CCCJCJ.execute(CJCCCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJCJJ & CJCCCJCC(" ,@C56C ,3J ,:5 ,56D4")):CJCJCJCC=CJCCCJJ(0):CJCCCJJ.Close: Set CJCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJCCJJ ="9" Const CJJJCCJC ="7" Const CJJJCCCJ ="3" Const CJJJCCCC ="4" Const CJJCJJJJ ="8" Const CJJCJJJC =":" Const CJJCJJCJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCCJJJJ, CCCJJJC, CCCJJCJ, CCCJJCC, CCCJCJJ, CCCJCJC, CCCJCCJ, CCCJCCC, CCCCJJJ, CCCCJJC:Private Function CJCJCCJJ():Dim CCCCJCJ:CCCCJCJ = "共" & CCCJCJJ & CJCCCJCC("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCJJJ & CJCCCJCC("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCJJCC & CJCCCJCC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCCCJCC("k^3mk^DA2?m顰@") CJCJCCJJ = CCCCJCJ:End Function:Private Function CJCJCCJC():CJCJCCJC = CJCCCJCC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCCJJCC & CJCCCJCC("V ,DEJ=6lV") & CJJCJJCJ & CJCCCJCC("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") & CCCJCJC & CJCCCJCC("VZE9:D]G2=F6Qm") End Function:Private Function CJCJCCCJ():CJCJCCCJ = CJCCCJCC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJCJJCJ & CJCCCJCC("V ,G2=F6lVv@V ,@?4=:46?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCCJCJC & CJCCCJCC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm") End Function:Private Function CJCJCCCC():Dim CCCCJCJ, CJCJJCJ:CCCCJCJ = CJCCCJCC(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCCJCJC & CJCCCJCC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm") For CJCJJCJ = 1 To PageCount:CCCCJCJ = CCCCJCJ & CJCCCJCC("k@AE:@? ,G2=F6lV") & CJCJJCJ & CJCCCJCC("V") If CJCJJCJ = CCCJJCC Then CCCCJCJ = CCCCJCJ & CJCCCJCC(" ,D6=64E65") CCCCJCJ = CCCCJCJ & CJCCCJCC("m") & CJCJJCJ & CJCCCJCC("k^@AE:@?m"):Next:CCCCJCJ = CCCCJCJ & CJCCCJCC("k^D6=64Em顰@"):CJCJCCCC = CCCCJCJ:End Function:Public Sub ShowPage():Dim CJCJJCJ, CCCCJCC,CCCCCJJ,CCCCCJC:if CCCJCJJ>0 then CCCCJCC = CJCCCJCC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJCJCCJJ & CJCCCJCC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm") If PageCount > 1 Then Select Case CCCCJJC:Case 1: CCCCCJC = CJCCJJCJ:Case 2: CCCCCJC = CJCCJJCC:Case 3: CCCCCJC = CJCCJCJJ:Case 4: CCCCCJC = CJCCJCJC:Case 5: CCCCCJC = CJCCJCCJ:Case 6: CCCCCJC = CJCCJCCC:Case 7: CCCCCJC = CJCCCJJJ:Case 8: CCCCCJC = CJCCCJJC:End Select End If:CCCCCJJ = CJCCCJCC("k^5:Gmk^5:Gm") end if:if CCCCJJC>=6 then Response.Write CCCCCJC else Response.Write CCCCJCC & CCCCCJC & CCCCCJJ end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCJJJC = Server.CreateObject(CJCCCJCC("ps~sq]#64@C5$6E")):CCCJJJC.PageSize = CCCCJJJ:CCCJJJC.Open CCCJJCJ, CCCJJJJ, 1:If err then Response.Write CJCCCJCC("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 & CJCCCJCC("k^5:Gmk^5:Gmk3Cm") Err.Clear:response.end end if:If Not CCCJJJC.EOF Then CCCJCJJ = CCCJJJC.RecordCount:PageCount = CCCJJJC.PageCount:If CCCJJCC > PageCount Then CCCJJCC = PageCount CCCJJJC.AbsolutePage = CCCJJCC End If:Set Rs = CCCJJJC:End Function:Public Property Let CCCJCC(CCJJCCJJ):Set CCCJJJJ = CCJJCCJJ:End Property:Public Property Let SQL(str):CCCJJCJ = str:End Property:Public Property Let Style(CCJCCJC):If IsNumeric(CCJCCJC) Then CCCCJJC = CInt(CCJCCJC):If CCCCJJC < 1 Or CCCCJJC > 8 Then CCCCJJC = 1 Else CCCCJJC = 1 End If:End Property:Public Property Let PageSize(CCJCCJC):If IsNumeric(CCJCCJC) Then CCCCJJJ = CInt(CCJCCJC):If CCCCJJJ < 1 Then CCCCJJJ = 10 Else CCCCJJJ = 10 End If:End Property:Public Property Get PageSize():If CCCJJCC = PageCount Then PageSize = CCCJCJJ - CCCCJJJ * (PageCount - 1) Elseif CCCJCJJ=0 then pagesize=0 else PageSize = CCCCJJJ end if:End Property:Private Sub Class_Initialize():dim CCCCCCJ:CCCCJJJ = 10:CCCCJJC = 1:Set CCCJJJJ = CCCJCJ:CCCJJCC = Trim(Request.QueryString(CJCCCJCC("!286"))):If IsNumeric(CCCJJCC) Then CCCJJCC = CLng(CCCJJCC):If CCCJJCC < 1 Then CCCJJCC = 1 Else CCCJJCC = 1 End If:CCCJCCC = Trim(Request.ServerVariables(CJCCCJCC("&#{"))):CCCJCCC = Mid(CCCJCCC, InStrRev(CCCJCCC, CJCCCJCC("^")) + 1):CCCJCCJ = Split(Trim(Request.ServerVariables(CJCCCJCC("""&t#*0$%#x}v"))), CJCCCJCC("U")):CCCJCJC = Server.HtmlEncode(CCJJCCJC):CCCCCCJ=lcase(CCCJCJC):if instr(CCCCCCJ,CJCCCJCC("Tb4:7C2>6"))>0 or instr(CCCCCCJ,CJCCCJCC("Tb4D4C:AE"))>0 or instr(CCCCCCJ,CJCCCJCC("V"))>0 or instr(CCCCCCJ,CJCCCJCC(";2G2D4C:AE"))>0 or instr(CCCCCCJ,CJCCCJCC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCCCJCC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) End Sub:Public Function ListNum(CCJCCJC):ListNum = CCCCJJJ * (CCCJJCC - 1) + CCJCCJC:End Function:Private Function CCJJCCJC():Dim CJCJJCJ, str:For CJCJJCJ = 0 To UBound(CCCJCCJ):If InStr(LCase(CCCJCCJ(CJCJJCJ)), CJCCCJCC("A286l")) = 0 Then str = str & CJCCCJCC("U") & CCCJCCJ(CJCJJCJ) Next:str = Mid(str, 2):If str = "" Then CCJJCCJC = CCCJCCC & CJCCCJCC("n") & CJCCCJCC("A286l") Else CCJJCCJC = CCCJCCC & CJCCCJCC("n") & str & CJCCCJCC("UA286l") End Function:Private Function CJCCJJCJ():Dim str:str = CJCCCJCC("轧@别@ ,笧@"):For CJCJJCJ = 1 To PageCount:If CJCJJCJ = CCCJJCC Then str = str & CJCCCJCC("k3m") & CJCJJCJ & CJCCCJCC("k^3m ,") Else str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CJCJJCJ & CJCCCJCC("Vm") & CJCJJCJ & CJCCCJCC("k^2m ,") Next:str = str & CJCCCJCC("顰@"):CJCCJJCJ = str:End Function:Private Function CJCCJJCC():Dim str:If CCCJJCC > 1 Then str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CJCCCJCC("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJCCJJ & CJCCCJCC("k^2m ,") str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC - 1 & CJCCCJCC("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJCCCJ & CJCCCJCC("k^2m ,") Else str = str & CJJJCCJJ & CJCCCJCC(" ,") & CJJJCCCJ End If:If CCCJJCC < PageCount Then str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC + 1 & CJCCCJCC("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJCCCC & CJCCCJCC("k^2m ,") str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & PageCount & CJCCCJCC("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCJJJC & CJCCCJCC("k^2m ,") Else str = str & CJJJCCCC & CJCCCJCC(" ,") & CJJCJJJC End If:str = str & CJCJCCJC:str = str & CJCJCCCJ:CJCCJJCC = str:End Function:Private Function CJCCJCJJ():Dim str, CJCJCJC:CJCJCJC = (CCCJJCC - 1) \ 10:If CCCJJCC = 1 Then str = str & CJJJCCJJ & CJCCCJCC(" ,") Else str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CJCCCJCC("`V ,E:E=6lV馑@顰@Vm") & CJJJCCJJ & CJCCCJCC("k^2m ,") If CJCJCJC * 10 > 0 Then str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC - 10 & CJCCCJCC("V ,E:E=6lV丅@匼@顰@Vm") & CJJJCCJC & CJCCCJCC("k^2m ,") For CJCJJCJ = (CJCJCJC * 10 + 1) To (CJCJCJC * 10 + 10):If CJCJJCJ = CCCJJCC Then str = str & CJCCCJCC("k3m") & CJCJJCJ & CJCCCJCC("k^3m ,") Else str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CJCJJCJ & CJCCCJCC("V ,E:E=6lV轧@别@笧@") & CJCJJCJ & CJCCCJCC("顰@Vm") & CJCJJCJ & CJCCCJCC("k^2m ,") If CJCJJCJ = PageCount Then Exit For Next:If CJCJJCJ < PageCount Then str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CJCJJCJ & CJCCCJCC("V ,E:E=6lV丆@匼@顰@Vm") & CJJCJJJJ & CJCCCJCC("k^2m ,") If CCCJJCC = PageCount Then str = str & CJJCJJJC Else str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & PageCount & CJCCCJCC("V ,E:E=6lV朦@顰@Vm") & CJJCJJJC & CJCCCJCC("k^2m") CJCCJCJJ = str:End Function:Private Function CJCCJCJC():Dim str, CJCCJCJ, CCCCCCC, CJCJJCJ:If CCCJJCC > 4 Then str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CJCCCJCC("`Vm,`.k^2m ,]]]") If CCCJJCC < PageCount - 3 Then CCCCCCC = CCCJJCC + 3 Else CCCCCCC = PageCount For CJCJJCJ = CCCJJCC - 3 To CCCCCCC:If CJCJJCJ >= 1 Then If CJCJJCJ = CCCJJCC Then str = str & CJCCCJCC(" ,k3m,") & CJCJJCJ & CJCCCJCC(".k^3m") Else str = str & CJCCCJCC(" ,k2 ,9C67lV") & CCCJCJC & CJCJJCJ & CJCCCJCC("Vm,") & CJCJJCJ & CJCCCJCC(".k^2m") End If:Next:If CCCJJCC < PageCount - 3 Then str = str & CJCCCJCC(" ,]]] ,k2 ,9C67lV") & CCCJCJC & PageCount & CJCCCJCC("Vm,") & PageCount & CJCCCJCC(".k^2m") CJCCJCJC = str:End Function:Private Function CJCCJCCJ():Dim str:If CCCJJCC > 1 Then str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CJCCCJCC("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,") str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC - 1 & CJCCCJCC("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,") Else str = str & CJCCCJCC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m") End If:If CCCJJCC < PageCount Then str = str & CJCCCJCC(" ,k2 ,9C67lV") & CCCJCJC & CCCJJCC + 1 & CJCCCJCC("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,") str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & PageCount & CJCCCJCC("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,") Else str = str & CJCCCJCC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m") End If:str = str & CJCJCCCC:CJCCJCCJ = str:End Function:Private Function CJCCJCCC():Dim str:if CCCJJCC>=2 then str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC - 1 & CJCCCJCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m") str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC - 1 & CJCCCJCC("V ,52E2\C@=6lV3FEE@?Vm") & CCCJJCC-1 & CJCCCJCC("k^2m") end if:str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC & CJCCCJCC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCCJJCC & CJCCCJCC("k^2m") if pagecount>CCCJJCC then str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC + 1 & CJCCCJCC("V ,52E2\C@=6lV3FEE@?Vm") & CCCJJCC+1 & CJCCCJCC("k^2m") str = str & CJCCCJCC("k2 ,9C67lV") & CCCJCJC & CCCJJCC + 1 & CJCCCJCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m") end if:CJCCJCCC=str:End Function:Private Function CJCCCJJJ():Dim str:str=CJCCCJCC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm") if CCCJJCC>=2 then str = str & CJCCCJCC("k=:mk2 ,9C67lV") & CCCJCJC & CCCJJCC - 1 & CJCCCJCC("VmU=2BF@jk^2mk^=:m") str = str & CJCCCJCC("k=:mk2 ,9C67lV") & CCCJCJC & CCCJJCC - 1 & CJCCCJCC("Vm") & CCCJJCC-1 & CJCCCJCC("k^2mk^=:m") end if:str = str & CJCCCJCC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCCJCJC & CCCJJCC & CJCCCJCC("Vm") & CCCJJCC & CJCCCJCC("k^2mk^=:m") if pagecount>CCCJJCC then str = str & CJCCCJCC("k=:mk2 ,9C67lV") & CCCJCJC & CCCJJCC + 1 & CJCCCJCC("Vm") & CCCJJCC+1 & CJCCCJCC("k^2mk^=:m") str = str & CJCCCJCC("k=:mk2 ,9C67lV") & CCCJCJC & CCCJJCC + 1 & CJCCCJCC("VmUC2BF@jk^2mk^=:m") end if:str=str & CJCCCJCC("k^F=m"):CJCCCJJJ=str:End Function:Private Function CJCCCJJC():Dim str:str=CJCCCJCC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm") if CCCJJCC>=2 then str = str & CJCCCJCC("k=:mk2 ,9C67lV") & CCCJCJC & CCCJJCC - 1 & CJCCCJCC("VmU=2BF@jk^2mk^=:m") str = str & CJCCCJCC("k=:mk2 ,9C67lV") & CCCJCJC & CCCJJCC - 1 & CJCCCJCC("Vm") & CCCJJCC-1 & CJCCCJCC("k^2mk^=:m") end if:str = str & CJCCCJCC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCCJCJC & CCCJJCC & CJCCCJCC("Vm") & CCCJJCC & CJCCCJCC("k^2mk^=:m") if pagecount>CCCJJCC then str = str & CJCCCJCC("k=:mk2 ,9C67lV") & CCCJCJC & CCCJJCC + 1 & CJCCCJCC("Vm") & CCCJJCC+1 & CJCCCJCC("k^2mk^=:m") str = str & CJCCCJCC("k=:mk2 ,9C67lV") & CCCJCJC & CCCJJCC + 1 & CJCCCJCC("VmUC2BF@jk^2mk^=:m") end if:str=str & CJCCCJCC("k^F=m"):CJCCCJJC=str:End Function:End Class::Call CheckRight(5):::Call CheckRight(56):Const CJJCJJCC="√" dim CJJJJJJJ,CJJJJJJC,CJJJJJCJ,CJCJCJC,CCJCCJC,CJJJJJCC,CJJJJCJJ,CJJJJCJC,CJJJJCCJ,CJJJJCCC,CJJJCJJJ:CJJJCJJJ=Request.QueryString(CJCCCJCC("xs")):CJJJJJJJ=Request.QueryString(CJCCCJCC("56AE")):CJJJJJJC=Request.QueryString(CJCCCJCC("!@DE")):CJJJJJCJ=Request.QueryString(CJCCCJCC("D")):CJCJCJC=Request.QueryString(CJCCCJCC("A")):CJJJJCJJ=Request.QueryString(CJCCCJCC("vC256")):CJJJJCJC=CJJCJCJC(Request.QueryString(CJCCCJCC("r@?DF=E2?E"))):CCJCCJC=CJJCJCJC(Request.QueryString(CJCCCJCC("}F>"))):CJJJJJCC=CJJCJCJC(Request.QueryString(CJCCCJCC("}:4<"))):CJJJJCCJ=Request.QueryString(CJCCCJCC("%`")):CJJJJCCC=Request.QueryString(CJCCCJCC("%a")):dim CCJJJJC:set CCJJJJC=new jtree:CCJJJJC.table=CJCCCJCC(">6>36C0EJA6"):if not CJJCJCCC(CJJJJJJJ) then CJJJJJJJ=CJJJJCJ if not CCJJJJC.IsParent(CJJJJCJ,CJJJJJJJ) then Call RedirectMessage(CJCCCJCC("孡@栜@徾@琁@箜@琁@糶@绚@M寴@丈@赲@，,患@沜@朄@迖@兠@诠@尽@欜@癿@朾@陋@！,")) Response.Write(vbCrLf):Response.Write(CJCCCJCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCCJCC("k9E>=m") & vbCrLf):Response.Write(CJCCCJCC("k9625m") & vbCrLf):Response.Write(CJCCCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCCCJCC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJCCCJCC("k^9625m") & vbCrLf):Response.Write(CJCCCJCC("k3@5Jm") & vbCrLf):Response.Write(CJCCCJCC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE9 ,C@HDA2?lQcQm·,咣@话@·,k^E9m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=Qm彎@剈@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4@=DA2?lQhQm")):Call CCJJJJC.WritePosition_From(CJJJJJJJ,CJJJJCJ,CJCCCJCC("n56AEl"),""):Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=Qm逄@拤@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4@=DA2?lQhQmkD6=64E ,?2>6lQs6AEQ ,:5lQs6AEQ ,@?492?86lQ;2G2D4C:AEi7@C>`]A@DE]G2=F6lVVj7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQ")):Response.Write CJJJJJJJ:Response.Write(CJCCCJCC("Qm,彎@剈@.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):Call CCJJJJC.ShowChild_Select(CJJJJJJJ,0):Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=Qm缑@史@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCCJC:Response.Write(CJCCCJCC("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=QmU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=Qm幯@仸@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkD6=64E ,?2>6lQvC256Qm") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):set rs=CCCJCJ.execute(CJCCCJCC("D6=64E ,:5[?2>6 ,7C@> ,KI08C256 ,H96C6 ,D49@@=l") & CJJJCJC & CJCCCJCC(" ,@C56C ,3J ,D@CE")):while not rs.eof:response.write CJCCCJCC("k@AE:@? ,G2=F6lV") & rs(0) & CJCCCJCC("V") & IIf(Cstr(rs(0))=CJJJJCJJ,CJCCCJCC(" ,D6=64E65"),"") & CJCCCJCC("m") & rs(1) & CJCCCJCC("k^@AE:@?m") rs.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQ ,384@=@ClQRu`u`u`Qm旱@闯@赲@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write CJJJJCCJ:Response.Write(CJCCCJCC("Q ,4=2DDlQ>J52E6Q ,D:K6lQ``Q ,E:E=6lQ炴@凶@逄@拤@旱@闯@赲@Q ,C625@?=J ,^mk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=Qm掍@床@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkD6=64E ,?2>6lQ$Q ,:5lQ$Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQ:5 ,56D4Q ,")):Response.Write IIf(CJJJJJCJ=CJCCCJCC(":5 ,56D4"),CJCCCJCC("D6=64E65"),""):Response.Write(CJCCCJCC("m旱@闯@k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQ>6>36CEJA6Q ,")):Response.Write IIf(CJJJJJCJ=CJCCCJCC(">6>36CEJA6"),CJCCCJCC("D6=64E65"),""):Response.Write(CJCCCJCC("m珨@红@k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=Qm姎@合@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ}:46lQr@?DF=E2?EQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQgQ ,G2=F6lQ")):Response.Write CJJJJCJC:Response.Write(CJCCCJCC("Q ,E:E=6lQ辎@兠@咣@话@布@癿@姎@合@Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=QmU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQC:89EQ ,384@=@ClQRu`u`u`Qm旱@闯@歝@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write CJJJJCCC:Response.Write(CJCCCJCC("Q ,4=2DDlQ>J52E6Q ,D:K6lQ``Q ,E:E=6lQ炴@凶@逄@拤@旱@闯@歝@Q ,C625@?=J ,^mk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4=2DDlQ=236=Qm毊@顰@：,k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mkD6=64E ,?2>6lQ!Q ,:5lQ!Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCJCC(" ,")):for CJCJJCJ=10 to 50 step 5:response.write CJCCCJCC("k@AE:@? ,G2=F6lV") & CJCJJCJ & CJCCCJCC("V") & IIf(CJCJCJC=cstr(CJCJJCJ),CJCCCJCC(" ,D6=64E65"),"") & CJCCCJCC("m") & CJCJJCJ & CJCCCJCC("杜@k^@AE:@?m") next:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCJCC(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJCCCJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ柠@ ,话@Q ,^m") & vbCrLf):Response.Write(CJCCCJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Q ,E:E=6lQ釈@罩@戻@朄@杜@仱@Q ,@?4=:46lQE@?8;:Q ,EJA6lQ3FEE@?Q ,5:D23=65lQ5:D23=65Q ,4=2DDlQ3FEE@?Q ,:5lQE@?8;:Q ,E:E=6lQ柠@眆@彎@剈@苾@囯@冀@癿@绚@讜@敫@捩@Q ,@?4=:4Aj4@?DF=E2?El")):Response.Write CJJJJCJC:Response.Write(CJCCCJCC("U2>Aj8C256l")):Response.Write CJJJJCJJ:Response.Write(CJCCCJCC("U2>AjE`l")):Response.Write CJJJJCCJ:Response.Write(CJCCCJCC("U2>AjEal")):Response.Write CJJJJCCC:Response.Write(CJCCCJCC("VQ ,G2=F6lQ绚@ ,讜@Q ,^m\\m") & vbCrLf):Response.Write(CJCCCJCC(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Q ,^m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJCC("k^7@C>m") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf):Response.Write(CJCCCJCC("7@C>`]}F>]7@4FDWXj") & vbCrLf):Response.Write(CJCCCJCC("k^D4C:AEm") & vbCrLf)::if CJJJJJJC="1" then sql=CJCCCJCC("H96C6 ,") & CCJJJJC.Sql_GetChildren(CJJJJJJJ):if CJJCJCCC(CJJJCJJJ) then sql=sql & CJCCCJCC(" ,2?5 ,>6>36Cl") & CJJJCJJJ if CCJCCJC<>"" then sql=sql & CJCCCJCC(" ,2?5 ,?F>36ClV") & CCJCCJC & CJCCCJCC("V") if CJJJJJCC<>"" then sql=sql & CJCCCJCC(" ,2?5 ,?:46lV") & CJJJJJCC & CJCCCJCC("V") if CJJJJCJC<>"" then sql=sql & CJCCCJCC(" ,2?5 ,4@?DF=E2?ElV") & CJJJJCJC & CJCCCJCC("V") if CJJCJCCC(CJJJJCJJ) then sql=sql & CJCCCJCC(" ,2?5 ,8C256l") & CJJJJCJJ if isdate(CJJJJCCJ) then sql=sql & CJCCCJCC(" ,2?5 ,52E6E:>6mlV") & CJJJJCCJ & CJCCCJCC("V") if isdate(CJJJJCCC) then sql=sql & CJCCCJCC(" ,2?5 ,52E6E:>6klV") & CJJJJCCC & CJCCCJCC("V") if CJJJJJCJ="" then sql=sql & CJCCCJCC(" ,@C56C ,3J ,:5 ,56D4") else sql=sql & CJCCCJCC(" ,@C56C ,3J ,") & CJJJJJCJ Session(CJCCCJCC("!$*0$B="))=sql:sql=CJCCCJCC("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[A6C>:EG:6H[52E6E:>6[4@?DF=E2?E[H2J ,7C@> ,G0KI ,") & sql:dim CJJJCJJC:set CJJJCJJC=new splitpage:with CJJJCJJC:.sql=sql:.pagesize=IIf(CJJCJCCC(CJCJCJC),CJCJCJC,20):.style=2:end with:set rs=CJJJCJJC.rs:if rs.eof then Call ShowMessage(CJCCCJCC("患@逄@拤@癿@苾@囯@沜@朄@件@佐@讫@彐@！,")) else Response.Write(vbCrLf):Response.Write(CJCCCJCC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE9m床@k^E9m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE9m缑@史@k^E9m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE9m咣@话@布@k^E9m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE9m咣@话@斴@弊@k^E9m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE9m旱@闯@k^E9m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE9m孡@甚@柠@眆@k^E9m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):dim CJCJJCJ:for CJCJJCJ=1 to CJJJCJJC.pagesize:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJJCJJC.listnum(CJCJJCJ):Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5m")):Response.Write rs(2):Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5mk2 ,9C67lQ;2G2D4C:AEi@A6?$EF56?Ex?7@(:?W")):Response.Write rs(1):Response.Write(CJCCCJCC("XQ ,E:E=6lQ柠@眆@严@亵@贿@斔@Qm")):Response.Write rs(3):Response.Write(CJCCCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5m")):Response.Write rs(6):Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5m")):select case rs(7):case 0 : response.write CJCCCJCC("罌@绗@咣@话@"):case 1 : response.write CJCCCJCC("田@诘@咣@话@"):case 2 : response.write CJCCCJCC("靝@话@"):end select:Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5m")):Response.Write CJJCCCJC(rs(5),0):Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(4),CJJCJJCC,CJCCCJCC("U?3DAj")):Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCCCJCC(" ,kECm") & vbCrLf):Response.Write(CJCCCJCC(" ,kE5 ,4@=DA2?lQfQm")):call CJJJCJJC.showpage:Response.Write(CJCCCJCC("k^E5m") & vbCrLf):Response.Write(CJCCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCJCC(" ,k:?AFE ,?2>6lQ#64@C5}F>Q ,EJA6lQ9:556?Q ,:5lQ#64@C5}F>Q ,G2=F6lQ")):Response.Write rs.recordcount:Response.Write(CJCCCJCC("Q ,^m") & vbCrLf):Response.Write(CJCCCJCC("k^7@C>m") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJCC(":7WA2CD6x?EW7@C>a]#64@C5}F>]G2=F6Xm`X") & vbCrLf):Response.Write(CJCCCJCC(" ,7@C>`]E@?8;:]5:D23=65l72=D6j") & vbCrLf):Response.Write(CJCCCJCC("k^D4C:AEm") & vbCrLf) End If:set CJJJCJJC=nothing else response.write CJCCCJCC("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m诲@逄@拤@杜@仱@吉@炴@凶@“,柠@话@”,挄@钩@！,k^3mk^5:Gm") end if:Response.Write(vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];52E6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCCCJCC(" ,SWQ:?AFEiE6IE]>J52E6QX];s2E6WXj") & vbCrLf):Response.Write(CJCCCJCC("NXj") & vbCrLf):Response.Write(CJCCCJCC("7F?4E:@? ,@A6?$EF56?Ex?7@(:?W:5XL") & vbCrLf):Response.Write(CJCCCJCC(" ,@A6?WVDEF56?E:?7@]2DAn:5lVZ:5[V$EF56?Ex?7@V[VH:5E9ldd_[96:89Elb__[D4C@==32CDlJ6DVXj") & vbCrLf):Response.Write(CJCCCJCC("N") & vbCrLf):Response.Write(CJCCCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJC=nothing:set CJJCCJJC=nothing:set CJJCCJCJ=nothing:set CJJCCJCC=nothing:CCCCJC.Close:Set CCCCJC=Nothing:rs.Close:Set rs=Nothing:CCCJCJ.Close:Set CCCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCCCJCC(ByVal CJCCCJCJ) Dim CJJJCJCJ, CJCJJCJ, CJCCJCJ CJCCCJCJ = Replace(CJCCCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCJJCJ = 1 To Len(CJCCCJCJ) If CJCJJCJ <> CJCCJCJ Then CJJJCJCJ = AscW(Mid(CJCCCJCJ, CJCJJCJ, 1)) If CJJJCJCJ >= 33 And CJJJCJCJ <= 79 Then CJCCCJCC = CJCCCJCC & Chr(CJJJCJCJ + 47) ElseIf CJJJCJCJ >= 80 And CJJJCJCJ <= 126 Then CJCCCJCC = CJCCCJCC & Chr(CJJJCJCJ - 47) Else CJCCJCJ = CJCJJCJ + 1 If Mid(CJCCCJCJ, CJCCJCJ, 1) = Chr(64) Then CJCCCJCC = CJCCCJCC & ChrW(CJJJCJCJ + 5) Else CJCCCJCC = CJCCCJCC & Mid(CJCCCJCJ, CJCJJCJ, 1) End If End If Next End Function %>