<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJCCC, CCJJJ,rs, CCJCJ, sql:Set CJCCC = server.CreateObject(CJCJCCJJ("ps~sq]r@??64E:@?")):CJCCC.open Application(CJCJCCJJ("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CJCJCCJJ("!$*|t|qt#"))):if CJCCCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCJJ>0 then sql=CJCJCCJJ("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(CJCJCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCCJJ,CCCJC) End IF end if:Sub CheckRight(CCCCJC):dim CJCCCC,CCJJJJ:if CCCJJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CCCCCCC(CCCCJC) then Call RedirectMessage(CJCJCCJJ("朾@陋@W") & CCCCJC & CJCJCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CCCCCCC(CCCCJC):dim CJCCCC,CCJJJJ:CCJJJJ=split(CCCCJC,CJCJCCJJ("[")):CCCCCCC=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then CCCCCCC=True:exit function end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJCCJJ("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJJC,CCJJCJ,CJCCCC,CCJJCC,CCJCJJ:CCJJJC=split(CJCCCJ,CJCJCCJJ("]")):if ubound(CCJJJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJJJC(0)) or len(CCJJJC(1))<>32 or len(CCJJJC(2))<>32 then Call ClearMemberCookie else CCJJCJ=CCJJJC(1):for CJCCCC=1 to len(CCJJCJ):CCJJCC=mid(CCJJCJ,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC if len(CCJCJJ)=7 then exit for next:CCJJCJ=CCJJJC(2):if CCJCJJ<>mid(CCJJCJ,6,7) then Call ClearMemberCookie else CCJJCC=mid(CCJJCJ,18,10)/2:if CCJJCC6"), CJCJCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJCCJJ("kD4C:AE"), CJCJCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJCCJ=new RegExp:CCJCCJ.Pattern=CJCJCCJJ("@?W,2\K.ZXl"):CCJCCJ.IgnoreCase = True:CCJCCJ.Global=True:str=CCJCCJ.Replace(str,CJCJCCJJ("@?S`U6BF2=Dj")):set CCJCCJ=nothing:CJJJJJJJ=str End If:End Function:Function IIf(CJCJCCCC, CJCCJJJJ, CJCCJJJC):if isnull(CJCJCCCC) or isempty(CJCJCCCC) then IIf = CJCCJJJC elseif CJCJCCCC Then IIf = CJCCJJJJ Else IIf = CJCCJJJC end if:End Function:Const CCCJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCJCCJJ("FE7\g"):dim CJCCCC,CCJJCC,CCJCCC:if isarray(str) then on error resume next:CJCCCC=ubound(str,2):CCJCCC=err.number:err.clear:on error goto 0:if CCJCCC<>0 then for CJCCCC=0 to ubound(str):if CJCCCC>0 then response.Write CJCJCCJJ("k3C ,^m") response.Write CJCCCC & CJCJCCJJ("i ,") & str(CJCCCC):next else response.Write CJCJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m") for CJCCCC=0 to ubound(str,2):response.Write CJCJCCJJ("kE9 ,2=:8?lV=67EVm") & CJCCCC & CJCJCCJJ("k^E9m") next:response.Write CJCJCCJJ("k^ECm"):for CJCCCC=0 to ubound(str):response.Write CJCJCCJJ("kECmkE9m") & CJCCCC & CJCJCCJJ("k^E9m"):for CCJJCC=0 to ubound(str,2):response.Write CJCJCCJJ("kE5m") & str(CJCCCC,CCJJCC) & CJCJCCJJ("k^E5m"):next:response.Write CJCJCCJJ("k^ECm"):next:response.Write CJCJCCJJ("k^E23=6m") end if elseif isnull(str) then response.Write CJCJCCJJ(",}F==.") else Response.Write replace(str,vbcrlf,CJCJCCJJ("k3Cm")) end if:Call ConnClose:Response.End:End Sub:Public Function CJJJJJCJ():Dim CCCJJJ, CCCJJC:CCCJJC = Request.ServerVariables(CJCJCCJJ("!p%w0x}u~")):CCCJJJ = Request.ServerVariables(CJCJCCJJ("""&t#*0$%#x}v")):If CCCJJJ <> Empty Then if instr(lcase(CCCJJJ),CJCJCCJJ("Tb4:7C2>6"))>0 or instr(lcase(CCCJJJ),CJCJCCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCJCCJJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) CCCJJC = CCCJJC & CJCJCCJJ("n") & CCCJJJ end if:CJJJJJCJ = CCCJJC:End Function:Sub SetHttpOnlyCookie(CJCCJJCJ,CJCCJJCC):dim CCJJJC:CCJJJC=CJCCJJCJ & CJCJCCJJ("l") & CJCCJJCC & CJCJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCCJJ("$6E\r@@<:6"),CCJJJC):End Sub:Sub WriteCurrentURL():Response.Cookies(CJCJCCJJ("!$*"))(CJCJCCJJ("&#{")) = CJJJJJCJ:End Sub:::::sub ShowMessage(CJCCJCJJ):response.Charset="utf-8":Response.Write CJCJCCJJ("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") & CJCCJCJJ & CJCJCCJJ("k^5:Gmk^5:Gmk3Cm") end sub:Function CJJJJJCC(CCJCCC):if isnull(CCJCCC) or trim(CCJCCC)="" or not isnumeric(CCJCCC) then CJJJJJCC=false else Dim CCJCCJ:Set CCJCCJ = New RegExp:CCJCCJ.Pattern = CJCJCCJJ("/-5ZS"):CCJCCJ.IgnoreCase = True:CJJJJJCC = CCJCCJ.test(CCJCCC):set CCJCCJ=nothing end if:End Function:Function CJJJJCJJ(CJCCJCJC):dim CCCJCJ,CCCJCC:CCCJCJ=CJCJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCJCJC & CJCJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJCC=CJCCC.execute(CCCJCJ):CJJJJCJJ = CCCJCC(0):if isnull(CJJJJCJJ) then CJJJJCJJ=1 CCCJCC.close : set CCCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCCC=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:set CJJJJCCC=nothing:CCCJCC.close : set CCCJCC=nothing:CCJCJ.Close : Set CCJCJ=Nothing:rs.Close : Set rs=Nothing:CJJJCJJJ.Close : Set CJJJCJJJ = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCCJJ("!$*0|6DD286"),server.URLEncode(CJCCJCJJ)):Response.Redirect CJCJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJJCJJC():Dim CCCJCC, CCCCJJ(), CJCCCC, CCJJCC, CCCCJC,CCCCCJ:If Not IsArray(Application(CJCJCCJJ("!$*0%6DED"))) Then sql=CJCJCCJJ("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CCCJCC=server.createobject(CJCJCCJJ("25@53]C64@C5D6E")):CCCJCC.open sql,CJCCC,1:CCCCJC = CCCJCC.RecordCount:CCCCCJ=CCCJCC.fields.count-1:ReDim CCCCJJ(CCCCJC, CCCCCJ):If CCCCJC > 0 Then For CJCCCC = 1 To CCCCJC:For CCJJCC = 0 To CCCCCJ:if CCJJCC=4 or CCJJCC=6 or CCJJCC=19 then CCCCJJ(CJCCCC, CCJJCC) = CJJJCCJC(CCCJCC(CCJJCC)) else CCCCJJ(CJCCCC, CCJJCC) = CCCJCC(CCJJCC):if CCCJCC(CCJJCC).type<>11 and isnull(CCCCJJ(CJCCCC, CCJJCC)) then CCCCJJ(CJCCCC, CCJJCC)="" end if:Next:CCCJCC.MoveNext:Next End If:CCCJCC.Close: Set CCCJCC = Nothing:Application(CJCJCCJJ("!$*0%6DED")) = CCCCJJ End If:CJJJCJJC = Application(CJCJCCJJ("!$*0%6DED")):End Function::Function CJJJCJCJ(CCJCCC):Dim CCCCCC, CJJJJJJ, CJJJJJC, CJJJJCJ, str:If Not CJJJJJCC(CCJCCC) or CCJCCC=0 Then str=0 else CCCCCC = Fix(CCJCCC / 86400):CJJJJJJ = Fix((CCJCCC - CCCCCC * 86400) / 3600):CJJJJJC = Fix((CCJCCC - CCCCCC * 86400 - CJJJJJJ * 3600) / 60):CJJJJCJ = Fix(CCJCCC - CCCCCC * 86400 - CJJJJJJ * 3600 - CJJJJJC * 60):If CCCCCC <> 0 Then str = CCCCCC & CJCJCCJJ("夤@") If CJJJJJJ <> 0 Then str = str & CJJJJJJ & CJCJCCJJ("尊@旱@") If CJJJJJC <> 0 Then str = str & CJJJJJC & CJCJCCJJ("刁@") if CJJJJCJ <> 0 Then str = str & CJJJJCJ & CJCJCCJJ("种@") end if:CJJJCJCJ = str:End Function::::::::::::Function CJJJCJCC(ByVal CJJJCCJJ,style):if not isdate(CJJJCCJJ) then CJJJCJCC=CJJJCCJJ:exit function end if:dim CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:CJJJCCJJ=cdate(CJJJCCJJ):CJJJJCC=Year(CJJJCCJJ):CJJJCJJ=Month(CJJJCCJJ):CJJJCJC=Day(CJJJCCJJ):select case style:case 0:CJJJCJCC=CJJJJCC & CJCJCCJJ("\") & right(0 & CJJJCJJ,2) & CJCJCCJJ("\") & right(0 & CJJJCJC,2):case 1:CJJJCJCC=CJJJJCC & right(0 & CJJJCJJ,2) & right(0 & CJJJCJC,2):case 2:CJJJCJCC=right(CJJJJCC,2) & CJCJCCJJ("\") & right(0 & CJJJCJJ,2) & CJCJCCJJ("\") & right(0 & CJJJCJC,2):case 3:CJJJCJCC=CJJJJCC & CJCJCCJJ("\") & right(0 & CJJJCJJ,2):case 4:CJJJCJCC=right(0 & CJJJCJJ,2) & CJCJCCJJ("\") & right(0 & CJJJCJC,2):case 5:CJJJCJCC=right(0 & CJJJCJC,2):case 6:CJJJCJCC=CJJJJCC & CJCJCCJJ("幯@") & right(0 & CJJJCJJ,2) & CJCJCCJJ("會@") & right(0 & CJJJCJC,2) & CJCJCCJJ("无@"):case else CJJJCJCC=CJJJCCJJ:end select:End Function::::::::::::::::Function CJJJCCJC(CJCCJCCJ):if isnull(CJCCJCCJ) then CJJJCCJC="" else On Error Resume Next:CJJJCCJC=CJCCJCCJ:if err.number=-2147352567 then CJJJCCJC="":err.Clear end if end if:End Function::::Sub ClearCache(CJCCJCCC):Application.Contents.Remove CJCCJCCC End Sub::Class jTree:Private Sql, CJJJCCC, CJJCJJJ, CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Private Sub Class_Initialize():CJJCJJJ = 0:CJJCJJC = 0:CJJCCJC=10:End Sub:Public Property Let Table(CJCCCJJJ):if CJCCCJJJ="" then Call RedirectMessage(CJCJCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,")) CJJCJCJ=CJCCCJJJ:CJJCJCC=CJCJCCJJ("!$*0") & UCase(CJJCJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJCJ:End Property::Public Property Get Count():Count=CJJCJJC-CJJCCJC:End Property:Private Sub GetTreeArray():Dim CJCCCC, CCJJCC, CJJCCCJ,RecordCount:CJJJCCC = Application(CJJCJCC):If Not IsArray(CJJJCCC) Then Sql = CJCJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJCJ:if CJJCCJJ<>"" then Sql=Sql & CJCJCCJJ(" ,H96C6 ,") & CJJCCJJ set CJJCCCJ=CJCCC.execute(sql):RecordCount=CJJCCCJ(0):if RecordCount=0 then Call RedirectMessage(CJCJCCJJ("柠@话@W") & CJJCJCJ & CJCJCCJJ("^") & CJJCCJJ & CJCJCCJJ("X沜@朄@绎@林@敫@捩@")) CJJCJJC=RecordCount+CJJCCJC:ReDim CJJJCCC(CJJCJJC, 4):Sql = CJCJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CJCJCCJJ(" ,H:E9 ,W?@=@4"" then Sql=Sql & CJCJCCJJ(" ,H96C6 ,") & CJJCCJJ Sql=Sql & CJCJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCCCJ=CJCCC.execute(sql):For CJCCCC = 1 To RecordCount:For CCJJCC = 0 To 4:CJJJCCC(CJCCCC, CCJJCC) = CJJCCCJ(CCJJCC):if IsNull(CJJJCCC(CJCCCC,4)) then CJJJCCC(CJCCCC,4)=0 If CJJJCCC(CJCCCC,2)="" then CJJJCCC(CJCCCC,2)=CJCJCCJJ(",穵@.") Next:CJJCCCJ.MoveNext:Next:CJJCCCJ.Close: Set CJJCCCJ = Nothing:for CJCCCC=CJJCJJC-(CJJCCJC-1) to CJJCJJC:CJJJCCC(CJCCCC,0)=CJCCCC:next:Application.Lock():Application(CJJCJCC) = CJJJCCC:Application.UnLock() else CJJCJJC=Ubound(CJJJCCC) End If:End Sub:Public Sub ShowChild_Select(CCCJJCJ, CJJCJJJJ):Dim CJCCCC:CCCJJCJ=CLng(CCCJJCJ):CJJCJJJJ=Cstr(CJJCJJJJ):For CJCCCC = 1 To CJJCJJC:If CJJJCCC(CJCCCC, 1) = CCCJJCJ Then Response.Write CJCJCCJJ("k@AE:@? ,G2=F6lV") & CJJJCCC(CJCCCC, 0) & CJCJCCJJ("V") If Instr(CJCJCCJJ("[") & CJJCJJJJ & CJCJCCJJ("["),CJCJCCJJ("[") & CJJJCCC(CJCCCC, 0) & CJCJCCJJ("["))>0 Then Response.Write CJCJCCJJ(" ,D6=64E65") Response.Write CJCJCCJJ("m\ ,") & CJJJCCC(CJCCCC, 2) & CJCJCCJJ("k^@AE:@?m") End If:Next:End Sub::::Private Function CJJCJJJC(CCCJJCJ):dim CJCCCC,CJCJJJJ:CJJCJJJC=0:CJCJJJJ=CStr(CCCJJCJ):if CJCJJJJ<>"0" then for CJCCCC=1 to CJJCJJC:If CStr(CJJJCCC(CJCCCC, 0))=CJCJJJJ Then CJJCJJJC = CJCCCC:Exit For End If:Next end if:End Function:Public Function CJJCJJCJ(CCCJJCJ):if Cstr(CCCJJCJ)="0" then CJJCJJCJ=CJCJCCJJ("栴@") else Dim CJCCCC,CJJCCCJ:CJCCCC=CJJCJJJC(CCCJJCJ):if CJCCCC>0 then CJJCJJCJ=CJJJCCC(CJCCCC,2):if CJJCJJCJ="" then set CJJCCCJ=CJCCC.execute(CJCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CJCJCCJJ(" ,H96C6 ,:5l") & CCCJJCJ):if CJJCCCJ.eof then Call RedirectMessage(CJCJCCJJ("xs（,") & CCCJJCJ & CJCJCCJJ("）,朥@批@别@")) CJJCJJCJ=CJJCCCJ(1):Call UpdateCache(CCCJJCJ,CJJCCCJ(0),CJJCJJCJ,CJJCCCJ(2),CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing end if else set CJJCCCJ=CJCCC.execute(CJCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CJCJCCJJ(" ,H96C6 ,:5l") & CCCJJCJ):if CJJCCCJ.eof then Call RedirectMessage(CJCJCCJJ("xs（,") & CCCJJCJ & CJCJCCJJ("）,朥@批@别@")) CJJCJJCJ=CJJCCCJ(1):Call UpdateCache(CCCJJCJ,CJJCCCJ(0),CJJCJJCJ,CJJCCCJ(2),CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing end if end if:End Function:::Public Function CJJCJJCC(CCCJJCJ):Dim CJCCCC,CJCJJJC:CJCCCC=CJJCJJJC(CCCJJCJ):if CJCCCC=0 then CJCJJJC=CJJCJCJJ(CCCJJCJ) else CJCJJJC=CJJJCCC(CJCCCC,3):if isnull(CJCJJJC) or CJCJJJC="" then CJCJJJC=CJJCJCJJ(CCCJJCJ) elseif Mid(CJCJJJC,instrrev(CJCJJJC,CJCJCCJJ("["))+1)<>CStr(CCCJJCJ) then CJCJJJC=CJJCJCJJ(CCCJJCJ) elseif Left(CJCJJJC,1)=CJCJCCJJ("[") then CJCJJJC=CJJCJCJJ(CCCJJCJ) end if end if:CJJCJJCC=CJCJJJC:End Function:Private Function CJJCJCJJ(CCCJJCJ):dim CJCJJJJ:CJCJJJJ=CStr(CCCJJCJ):if CJCJJJJ="0" then CJJCJCJJ="" else dim CJJCCCJ:set CJJCCCJ=CJCCC.execute(CJCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CJCJCCJJ(" ,H96C6 ,:5l") & CCCJJCJ):if CJJCCCJ.eof then Call UpdateCache(CCCJJCJ,"","","",""):Call RedirectMessage(CJCJCCJJ("顴@盩@（,xs：,") & CCCJJCJ & CJCJCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,")) else if CJJCCCJ(0)=0 then CJJCJCJJ="0," & CCCJJCJ else CJJCJCJJ=CJJCJJCC(CJJCCCJ(0)) & CJCJCCJJ("[") & CCCJJCJ end if:if CJJCCCJ(2)<>CJJCJCJJ then CJCCC.execute CJCJCCJJ("FA52E6 ,") & CJJCJCJ & CJCJCCJJ(" ,D6E ,A2E9lV") & CJJCJCJJ & CJCJCCJJ("V ,H96C6 ,:5l") & CCCJJCJ else CJJCJCJJ=CJJCCCJ(2) end if end if:Call UpdateCache(CCCJJCJ,CJJCCCJ(0),CJJCCCJ(1),CJJCJCJJ,CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing end if:End Function::Public Function CJJCJCJC(CCCJJCJ):CJJCJCJC = Mid(CJJCJJCC(CCCJJCJ), 3):End Function:Public Function CJJCJCCJ(CCCJJCJ):Dim CJCCCC, CCJJCC, CJCJJCJ,Str, CJCJJJC, CCCCJC, CCJJJJ():CJCJJJC = CJJCJCJC(CCCJJCJ):CJCJJJC = Split(CJCJJJC, CJCJCCJJ("[")):for CJCCCC=0 to Ubound(CJCJJJC):CJCJJCJ=CJCJJJC(CJCCCC):str=str & CJCJCCJJ("M") & CJCJJCJ & CJCJCCJJ("M") & CJJCJJCJ(CJCJJCJ):next:if str<>"" then str=Mid(str,2) CJJCJCCJ=str:End Function:Public Function IsParent(CJCCCJJC, CJCCCJCJ):IsParent=InStr(CJJCJJCC(CJCCCJCJ) & CJCJCCJJ("["), CJCJCCJJ("[") & CJCCCJJC & CJCJCCJJ("[")) > 0:End Function:::Public Sub WritePosition_From(CCCJJCJ,CJJCCJJJ,CCCJJC,CJCCCJCC):Dim Str, CJCCCC, CCJJJJ, CCCCJC, CJCJJCC:CCCJJCJ=CLng(CCCJJCJ):CJJCCJJJ = CStr(CJJCCJJJ):if CJCCCJCC="" then CJCCCJCC=CJCJCCJJ("→,") If CJJCCJJJ = "0" Then Str = CJJCCJCC(CCCJJCJ) ElseIf CJJCCJJJ = CStr(CCCJJCJ) Then Str = CJJCJJCJ(CCCJJCJ) Else CCJJJJ = Split(CJJCJCCJ(CCCJJCJ), CJCJCCJJ("M")):CCCCJC = UBound(CCJJJJ):CJCJJCC = False:For CJCCCC = 0 To CCCCJC-2 Step 2:If CCJJJJ(CJCCCC) = CJJCCJJJ And Not CJCJJCC Then CJCJJCC = True If CJCJJCC Then If Str <> "" Then Str = Str & CJCCCJCC Str = Str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CCJJJJ(CJCCCC) & CJCJCCJJ("Vm") & CCJJJJ(CJCCCC + 1) & CJCJCCJJ("k^2m") End If:Next:Str=Str & CJCCCJCC & CCJJJJ(CCCCJC) End If:Response.Write Str:End Sub:::::Public Function Sql_GetChildren(CCCJJCJ):dim CJCJJJC:CJCJJJC=CJJCJJCC(CCCJJCJ):Sql_GetChildren = CJJCJCJ & CJCJCCJJ("0A2E9ZV[V ,=:<6 ,V") & CJCJJJC & CJCJCCJJ("[TV") End Function:Public Function HaveChildren(CCCJJCJ):Dim CJCCCC:HaveChildren = False:CCCJJCJ=CLng(CCCJJCJ):For CJCCCC = 1 To CJJCJJC:If CJJJCCC(CJCCCC, 1) = CCCJJCJ Then HaveChildren = True:Exit For End If:Next:End Function:Private Function CJJCCJCC(CCCJJCJ):Dim CCJJJJ, CJCCCC, CCCCJC, Str:CCJJJJ = Split(CJJCJCCJ(CCCJJCJ), CJCJCCJJ("M")):CCCCJC = UBound(CCJJJJ):For CJCCCC = 0 To CCCCJC Step 2:If Str <> "" Then Str = Str & CJCJCCJJ("→,") Str = Str & CCJJJJ(CJCCCC + 1):Next:CJJCCJCC = Str:End Function::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJCC End Sub:Public Sub UpdateCache(CCCJJCJ,CJCJJCJ,CJCCCCJJ,CJCJJJC,CJCCCCJC):dim CJCCCC,CCJJCC:CCCJJCJ=CLng(CCCJJCJ):CJCCCC=CJJCJJJC(CCCJJCJ):if CJCJJCJ="" and CJCCCCJJ="" and CJCJJJC="" and CJCCCCJC="" then if CJCCCC>0 then for CCJJCC=1 to 4:CJJJCCC(CJCCCC,CCJJCC)=Null:next end if else if CJCCCC=0 then for CCJJCC=1 to CJJCJJC:if CJJJCCC(CCJJCC,1) & ""="" then CJCCCC=CCJJCC:exit for end if:next end if:if CJCCCC=0 then Call ClearCache else CJJJCCC(CJCCCC,0)=CLng(CCCJJCJ):if CJCJJCJ<>"" then CJJJCCC(CJCCCC,1)=CLng(CJCJJCJ) if CJCCCCJJ<>"" then CJJJCCC(CJCCCC,2)=CJCCCCJJ if CJCJJJC<>"" then CJJJCCC(CJCCCC,3)=CJCJJJC if CJCCCCJC<>"" then CJJJCCC(CJCCCC,4)=CLng(CJCCCCJC) end if end if:if CJCCCC>0 then Application.Lock():Application(CJJCJCC) = CJJJCCC:Application.UnLock() end if:End Sub:Private Sub Debug(CJCCJCJJ):Call ConnClose:Response.Write CJCCJCJJ:Response.End:End Sub:Private Function CJJJJCJJ():CJJJJCJJ=CJJCCCJJ+1:End Function:Private Function CJJCCCJJ():dim CCCJCC:set CCCJCC=CJCCC.execute(CJCJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJCJ & CJCJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJCCCJJ=CCCJCC(0):CCCJCC.Close: Set CCCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJCCJ ="9" Const CCCJCCC ="7" Const CCCCJJJ ="3" Const CCCCJJC ="4" Const CCCCJCJ ="8" Const CCCCJCC =":" Const CCCCCJJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCJCJC, CJCJCCJ, CJCJCCC, CJCCJJJ, CJCCJJC, CCCJJC, CJCCJCJ, CJCCJCC, CJCCCJJ, CJCCCJC:Private Function CJJCCCJC():Dim CJCCCCJ:CJCCCCJ = "共" & CJCCJJC & CJCJCCJJ("k^3mk^DA2?m杜@讫@彐@ ,毊@顰@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCCJJ & CJCJCCJJ("k^3mk^DA2?m杜@ ,返@昪@笧@kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCJJJ & CJCJCCJJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCJCCJJ("k^3mk^DA2?m顰@") CJJCCCJC = CJCCCCJ:End Function:Private Function CJJCCCCJ():CJJCCCCJ = CJCJCCJJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCCJJJ & CJCJCCJJ("V ,DEJ=6lV") & CCCCCJJ & CJCJCCJJ("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") & CCCJJC & CJCJCCJJ("VZE9:D]G2=F6Qm") End Function:Private Function CJJCCCCC():CJJCCCCC = CJCJCCJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCCJJ & CJCJCCJJ("V ,G2=F6lVv@V ,@?4=:46?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCCJJC & CJCJCCJJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm") End Function:Private Function CJCJJJJJ():Dim CJCCCCJ, CJCCCC:CJCCCCJ = CJCJCCJJ(" ,轧@别@笧@kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCCJJC & CJCJCCJJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm") For CJCCCC = 1 To PageCount:CJCCCCJ = CJCCCCJ & CJCJCCJJ("k@AE:@? ,G2=F6lV") & CJCCCC & CJCJCCJJ("V") If CJCCCC = CJCCJJJ Then CJCCCCJ = CJCCCCJ & CJCJCCJJ(" ,D6=64E65") CJCCCCJ = CJCCCCJ & CJCJCCJJ("m") & CJCCCC & CJCJCCJJ("k^@AE:@?m"):Next:CJCCCCJ = CJCCCCJ & CJCJCCJJ("k^D6=64Em顰@"):CJCJJJJJ = CJCCCCJ:End Function:Public Sub ShowPage():Dim CJCCCC, CJCCCCC,CCJJJJJ,CCJJJJC:if CJCCJJC>0 then CJCCCCC = CJCJCCJJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJCCCJC & CJCJCCJJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm") If PageCount > 1 Then Select Case CJCCCJC:Case 1: CCJJJJC = CJCJJJCC:Case 2: CCJJJJC = CJCJJCJJ:Case 3: CCJJJJC = CJCJJCJC:Case 4: CCJJJJC = CJCJJCCJ:Case 5: CCJJJJC = CJCJJCCC:Case 6: CCJJJJC = CJCJCJJJ:Case 7: CCJJJJC = CJCJCJJC:Case 8: CCJJJJC = CJCJCJCJ:End Select End If:CCJJJJJ = CJCJCCJJ("k^5:Gmk^5:Gm") end if:if CJCCCJC>=6 then Response.Write CCJJJJC else Response.Write CJCCCCC & CCJJJJC & CCJJJJJ end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJCCJ = Server.CreateObject(CJCJCCJJ("ps~sq]#64@C5$6E")):CJCJCCJ.PageSize = CJCCCJJ:CJCJCCJ.Open CJCJCCC, CJCJCJC, 1:If err then Response.Write CJCJCCJJ("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 & CJCJCCJJ("k^5:Gmk^5:Gmk3Cm") Err.Clear:response.end end if:If Not CJCJCCJ.EOF Then CJCCJJC = CJCJCCJ.RecordCount:PageCount = CJCJCCJ.PageCount:If CJCCJJJ > PageCount Then CJCCJJJ = PageCount CJCJCCJ.AbsolutePage = CJCCJJJ End If:Set Rs = CJCJCCJ:End Function:Public Property Let CCJJJ(CJCCCCCJ):Set CJCJCJC = CJCCCCCJ:End Property:Public Property Let SQL(str):CJCJCCC = str:End Property:Public Property Let Style(CCCCJC):If IsNumeric(CCCCJC) Then CJCCCJC = CInt(CCCCJC):If CJCCCJC < 1 Or CJCCCJC > 8 Then CJCCCJC = 1 Else CJCCCJC = 1 End If:End Property:Public Property Let PageSize(CCCCJC):If IsNumeric(CCCCJC) Then CJCCCJJ = CInt(CCCCJC):If CJCCCJJ < 1 Then CJCCCJJ = 10 Else CJCCCJJ = 10 End If:End Property:Public Property Get PageSize():If CJCCJJJ = PageCount Then PageSize = CJCCJJC - CJCCCJJ * (PageCount - 1) Elseif CJCCJJC=0 then pagesize=0 else PageSize = CJCCCJJ end if:End Property:Private Sub Class_Initialize():dim CCJJJCJ:CJCCCJJ = 10:CJCCCJC = 1:Set CJCJCJC = CJCCC:CJCCJJJ = Trim(Request.QueryString(CJCJCCJJ("!286"))):If IsNumeric(CJCCJJJ) Then CJCCJJJ = CLng(CJCCJJJ):If CJCCJJJ < 1 Then CJCCJJJ = 1 Else CJCCJJJ = 1 End If:CJCCJCC = Trim(Request.ServerVariables(CJCJCCJJ("&#{"))):CJCCJCC = Mid(CJCCJCC, InStrRev(CJCCJCC, CJCJCCJJ("^")) + 1):CJCCJCJ = Split(Trim(Request.ServerVariables(CJCJCCJJ("""&t#*0$%#x}v"))), CJCJCCJJ("U")):CCCJJC = Server.HtmlEncode(CJCCCCCC):CCJJJCJ=lcase(CCCJJC):if instr(CCJJJCJ,CJCJCCJJ("Tb4:7C2>6"))>0 or instr(CCJJJCJ,CJCJCCJJ("Tb4D4C:AE"))>0 or instr(CCJJJCJ,CJCJCCJJ("V"))>0 or instr(CCJJJCJ,CJCJCCJJ(";2G2D4C:AE"))>0 or instr(CCJJJCJ,CJCJCCJJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCJCCJJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,")) End Sub:Public Function ListNum(CCCCJC):ListNum = CJCCCJJ * (CJCCJJJ - 1) + CCCCJC:End Function:Private Function CJCCCCCC():Dim CJCCCC, str:For CJCCCC = 0 To UBound(CJCCJCJ):If InStr(LCase(CJCCJCJ(CJCCCC)), CJCJCCJJ("A286l")) = 0 Then str = str & CJCJCCJJ("U") & CJCCJCJ(CJCCCC) Next:str = Mid(str, 2):If str = "" Then CJCCCCCC = CJCCJCC & CJCJCCJJ("n") & CJCJCCJJ("A286l") Else CJCCCCCC = CJCCJCC & CJCJCCJJ("n") & str & CJCJCCJJ("UA286l") End Function:Private Function CJCJJJCC():Dim str:str = CJCJCCJJ("轧@别@ ,笧@"):For CJCCCC = 1 To PageCount:If CJCCCC = CJCCJJJ Then str = str & CJCJCCJJ("k3m") & CJCCCC & CJCJCCJJ("k^3m ,") Else str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCCC & CJCJCCJJ("Vm") & CJCCCC & CJCJCCJJ("k^2m ,") Next:str = str & CJCJCCJJ("顰@"):CJCJJJCC = str:End Function:Private Function CJCJJCJJ():Dim str:If CJCCJJJ > 1 Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCJCCJJ("`V ,E:E=6lV馑@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCJ & CJCJCCJJ("k^2m ,") str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ - 1 & CJCJCCJJ("V ,E:E=6lV丅@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJJ & CJCJCCJJ("k^2m ,") Else str = str & CCCJCCJ & CJCJCCJJ(" ,") & CCCCJJJ End If:If CJCCJJJ < PageCount Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ + 1 & CJCJCCJJ("V ,E:E=6lV丆@一,顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJC & CJCJCCJJ("k^2m ,") str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & PageCount & CJCJCCJJ("V ,E:E=6lV朦@顰@V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJCC & CJCJCCJJ("k^2m ,") Else str = str & CCCCJJC & CJCJCCJJ(" ,") & CCCCJCC End If:str = str & CJJCCCCJ:str = str & CJJCCCCC:CJCJJCJJ = str:End Function:Private Function CJCJJCJC():Dim str, CCJJCJ:CCJJCJ = (CJCCJJJ - 1) \ 10:If CJCCJJJ = 1 Then str = str & CCCJCCJ & CJCJCCJJ(" ,") Else str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCJCCJJ("`V ,E:E=6lV馑@顰@Vm") & CCCJCCJ & CJCJCCJJ("k^2m ,") If CCJJCJ * 10 > 0 Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ - 10 & CJCJCCJJ("V ,E:E=6lV丅@匼@顰@Vm") & CCCJCCC & CJCJCCJJ("k^2m ,") For CJCCCC = (CCJJCJ * 10 + 1) To (CCJJCJ * 10 + 10):If CJCCCC = CJCCJJJ Then str = str & CJCJCCJJ("k3m") & CJCCCC & CJCJCCJJ("k^3m ,") Else str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCCC & CJCJCCJJ("V ,E:E=6lV轧@别@笧@") & CJCCCC & CJCJCCJJ("顰@Vm") & CJCCCC & CJCJCCJJ("k^2m ,") If CJCCCC = PageCount Then Exit For Next:If CJCCCC < PageCount Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCCC & CJCJCCJJ("V ,E:E=6lV丆@匼@顰@Vm") & CCCCJCJ & CJCJCCJJ("k^2m ,") If CJCCJJJ = PageCount Then str = str & CCCCJCC Else str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & PageCount & CJCJCCJJ("V ,E:E=6lV朦@顰@Vm") & CCCCJCC & CJCJCCJJ("k^2m") CJCJJCJC = str:End Function:Private Function CJCJJCCJ():Dim str, CCJCCC, CCJJJCC, CJCCCC:If CJCCJJJ > 4 Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCJCCJJ("`Vm,`.k^2m ,]]]") If CJCCJJJ < PageCount - 3 Then CCJJJCC = CJCCJJJ + 3 Else CCJJJCC = PageCount For CJCCCC = CJCCJJJ - 3 To CCJJJCC:If CJCCCC >= 1 Then If CJCCCC = CJCCJJJ Then str = str & CJCJCCJJ(" ,k3m,") & CJCCCC & CJCJCCJJ(".k^3m") Else str = str & CJCJCCJJ(" ,k2 ,9C67lV") & CCCJJC & CJCCCC & CJCJCCJJ("Vm,") & CJCCCC & CJCJCCJJ(".k^2m") End If:Next:If CJCCJJJ < PageCount - 3 Then str = str & CJCJCCJJ(" ,]]] ,k2 ,9C67lV") & CCCJJC & PageCount & CJCJCCJJ("Vm,") & PageCount & CJCJCCJJ(".k^2m") CJCJJCCJ = str:End Function:Private Function CJCJJCCC():Dim str:If CJCCJJJ > 1 Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCJCCJJ("`V ,E:E=6lV馑@顰@Vm馑@顰@k^2m ,") str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ - 1 & CJCJCCJJ("V ,E:E=6lV丅@一,顰@Vm丅@一,顰@k^2m ,") Else str = str & CJCJCCJJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm馑@顰@ ,丅@一,顰@k^DA2?m") End If:If CJCCJJJ < PageCount Then str = str & CJCJCCJJ(" ,k2 ,9C67lV") & CCCJJC & CJCCJJJ + 1 & CJCJCCJJ("V ,E:E=6lV丆@一,顰@Vm丆@一,顰@k^2m ,") str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & PageCount & CJCJCCJJ("V ,E:E=6lV朦@顰@Vm朦@顰@k^2m ,") Else str = str & CJCJCCJJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm丆@一,顰@ ,朦@顰@k^DA2?m") End If:str = str & CJCJJJJJ:CJCJJCCC = str:End Function:Private Function CJCJCJJJ():Dim str:if CJCCJJJ>=2 then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ - 1 & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m") str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ - 1 & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCCJJJ-1 & CJCJCCJJ("k^2m") end if:str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCCJJJ & CJCJCCJJ("k^2m") if pagecount>CJCCJJJ then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ + 1 & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCCJJJ+1 & CJCJCCJJ("k^2m") str = str & CJCJCCJJ("k2 ,9C67lV") & CCCJJC & CJCCJJJ + 1 & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m") end if:CJCJCJJJ=str:End Function:Private Function CJCJCJJC():Dim str:str=CJCJCCJJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm") if CJCCJJJ>=2 then str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCJJC & CJCCJJJ - 1 & CJCJCCJJ("VmU=2BF@jk^2mk^=:m") str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCJJC & CJCCJJJ - 1 & CJCJCCJJ("Vm") & CJCCJJJ-1 & CJCJCCJJ("k^2mk^=:m") end if:str = str & CJCJCCJJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCCJJC & CJCCJJJ & CJCJCCJJ("Vm") & CJCCJJJ & CJCJCCJJ("k^2mk^=:m") if pagecount>CJCCJJJ then str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCJJC & CJCCJJJ + 1 & CJCJCCJJ("Vm") & CJCCJJJ+1 & CJCJCCJJ("k^2mk^=:m") str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCJJC & CJCCJJJ + 1 & CJCJCCJJ("VmUC2BF@jk^2mk^=:m") end if:str=str & CJCJCCJJ("k^F=m"):CJCJCJJC=str:End Function:Private Function CJCJCJCJ():Dim str:str=CJCJCCJJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm") if CJCCJJJ>=2 then str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCJJC & CJCCJJJ - 1 & CJCJCCJJ("VmU=2BF@jk^2mk^=:m") str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCJJC & CJCCJJJ - 1 & CJCJCCJJ("Vm") & CJCCJJJ-1 & CJCJCCJJ("k^2mk^=:m") end if:str = str & CJCJCCJJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCCJJC & CJCCJJJ & CJCJCCJJ("Vm") & CJCCJJJ & CJCJCCJJ("k^2mk^=:m") if pagecount>CJCCJJJ then str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCJJC & CJCCJJJ + 1 & CJCJCCJJ("Vm") & CJCCJJJ+1 & CJCJCCJJ("k^2mk^=:m") str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCJJC & CJCCJJJ + 1 & CJCJCCJJ("VmUC2BF@jk^2mk^=:m") end if:str=str & CJCJCCJJ("k^F=m"):CJCJCJCJ=str:End Function:End Class::Call CheckRight(5):::Call CheckRight(51):Call WriteCurrentURL:Const CCCCCJC="√" Const CCCCCCJ="×" dim CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJJCJ,CCJCJJC,CCJCJCJ,CCCCJC,CCJCJCC,CCJCCJJ,CCJCCJC:CCJJCJJ=Request.QueryString(CJCJCCJJ("56AE")):CCJJCJC=Request.QueryString(CJCJCCJJ("=3:5")):CCJJCCJ=Request.QueryString(CJCJCCJJ("!@DE")):CCJJCCC=Request.QueryString(CJCJCCJJ("D6I")):CCJCJJJ=Request.QueryString(CJCJCCJJ("D")):CCJJCJ=Request.QueryString(CJCJCCJJ("A")):CCJCJJC=Request.QueryString(CJCJCCJJ("?@C>2=")):CCJCJCJ=Request.QueryString(CJCJCCJJ("5@?6")):CCCCJC=CJJJJJJJ(Request.QueryString(CJCJCCJJ("}F>"))):CCJCJCC=CJJJJJJJ(Request.QueryString(CJCJCCJJ("}:4<"))):CCJCCJJ=Request.QueryString(CJCJCCJJ("%`")):CCJCCJC=Request.QueryString(CJCJCCJJ("%a")):dim CJJJCCC:set CJJJCCC=new jtree:CJJJCCC.table=CJCJCCJJ(">6>36C0EJA6"):if not CJJJJJCC(CCJJCJJ) then CCJJCJJ=CCCCC if not CJJJCCC.IsParent(CCCCC,CCJJCJJ) then Call RedirectMessage(CJCJCCJJ("徾@琁@箜@琁@糶@绚@M寴@丈@赲@，,患@沜@朄@迖@兠@诠@尽@欜@癿@朾@陋@！,")) Response.Write(vbCrLf):Response.Write(CJCJCCJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJCCJJ("k9E>=m") & vbCrLf):Response.Write(CJCJCCJJ("k9625m") & vbCrLf):Response.Write(CJCJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCCJJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCJCCJJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCJCCJJ("k^9625m") & vbCrLf):Response.Write(CJCJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCJCCJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9 ,C@HDA2?lQcQm·,浆@访@·,k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm彎@剈@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4@=DA2?lQhQm")):Call CJJJCCC.WritePosition_From(CCJJCJJ,CCCCC,CJCJCCJJ("n56AEl"),""):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm逄@拤@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4@=DA2?lQhQmkD6=64E ,?2>6lQs6AEQ ,@?r92?86lQ;2G2D4C:AEi7@C>`]A@DE]G2=F6lVVj7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQ")):Response.Write CCJJCJJ:Response.Write(CJCJCCJJ("Qm,彎@剈@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):Call CJJJCCC.ShowChild_Select(CCJJCJJ,0):Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm缑@史@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ``Q ,G2=F6lQ")):Response.Write CCCCJC:Response.Write(CJCJCCJJ("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm怢@刦@：, ,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mkD6=64E ,?2>6lQ$6IQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CCJJCCC="1",CJCJCCJJ("D6=64E65"),""):Response.Write(CJCJCCJJ("m甲@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CCJJCCC="0",CJCJCCJJ("D6=64E65"),""):Response.Write(CJCJCCJJ("m奮@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm赲@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write CCJCCJJ:Response.Write(CJCJCCJJ("Q ,4=2DDlQ>J52E6Q ,D:K6lQ``Q ,E:E=6lQ炴@凶@逄@拤@旱@闯@赲@Q ,C625@?=Jmk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm犱@忼@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mkD6=64E ,?2>6lQ}@C>2=Qm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CCJCJJC="1",CJCJCCJJ("D6=64E65"),""):Response.Write(CJCJCCJJ("m歞@帳@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CCJCJJC="0",CJCJCCJJ("D6=64E65"),""):Response.Write(CJCJCCJJ("m廽@帳@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Em , , ,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm掍@床@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mkD6=64E ,?2>6lQ$Q ,@?r92?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQ52E6E:>6 ,56D4Q ,")):Response.Write IIf(CCJCJJJ=CJCJCCJJ("52E6E:>6 ,56D4"),CJCJCCJJ("D6=64E65"),""):Response.Write(CJCJCCJJ("m旱@闯@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm姎@合@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk:?AFE ,?2>6lQ}:46lQ=3:5Qm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):Call ShowTestsSelect_(CCCCC,CCJJCJC):Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm歝@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write CCJCCJC:Response.Write(CJCJCCJJ("Q ,4=2DDlQ>J52E6Q ,D:K6lQ``Q ,E:E=6lQ炴@凶@逄@拤@旱@闯@歝@Q ,C625@?=Jmk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm壿@琁@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mkD6=64E ,?2>6lQs@?6Qm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CCJCJCJ="1",CJCJCCJJ("D6=64E65"),""):Response.Write(CJCJCCJJ("m巭@壿@琁@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CCJCJCJ="0",CJCJCCJJ("D6=64E65"),""):Response.Write(CJCJCCJJ("m朥@壿@琁@k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm毊@顰@：,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mkD6=64E ,?2>6lQ!Q ,@?r92?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQQm,黓@讟@.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):for CJCCCC=10 to 50 step 5:response.write CJCJCCJJ("k@AE:@? ,G2=F6lV") & CJCCCC & CJCJCCJJ("V") & IIf(CCJJCJ=cstr(CJCCCC),CJCJCCJJ(" ,D6=64E65"),"") & CJCJCCJJ("m") & CJCCCC & CJCJCCJJ("杜@k^@AE:@?m") next:Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Q ,E:E=6lQ釈@罩@戻@朄@杜@仱@Q ,@?r=:40 and CJJJCCC.HaveChildren(CCJJCJJ) then response.Write CJCJCCJJ(" ,k2 ,4=2DDlV3FEE@?V ,9C67lV^=3^C6A@CE^") & CCJCCCJ & CJCJCCJJ("]2DAn56AEl") & CCJJCJJ & CJCJCCJJ("U5E`l") & CCJCCJJ & CJCJCCJJ("U5Eal") & CCJCCJC & CJCJCCJJ("V ,E2C86ElV03=2?8 ,DC4lV]]^]]^D49@@=^25>:?^:>286D^3F==6E]8:7V ,H:5E9lVeV ,96:89ElVeV ,2=:8?lV23D>:55=6V ,2=ElV刁@随@笡@Vm") response.Write CJCJCCJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,4=2DDlV3FEE@?V ,E:E=6lV彎@剈@苾@囯@盳@兮@绚@讜@俜@恪@V ,@?r=:42=l") & CCJCJJC & CJCJCCJJ("U$6Il") & CCJJCCC & CJCJCCJJ("Us@?6l") & CCJCJCJ & CJCJCCJJ("U%`l") & CCJCCJJ & CJCJCCJJ("U%al") & CCJCCJC & CJCJCCJJ("VQ ,G2=F6lV绚@ ,讜@Vm") end if end if:Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCCJJ("k^7@C>m") & vbCrLf)::if CCJJCCJ="1" then sql=CJCJCCJJ("H96C6 ,G2=:5l` ,2?5 ,") & CJJJCCC.Sql_GetChildren(CCJJCJJ):if CCCCJC<>"" then sql=sql & CJCJCCJJ(" ,2?5 ,?F>36ClV") & CCCCJC & CJCJCCJJ("V") if CCJCJCC<>"" then sql=sql & CJCJCCJJ(" ,2?5 ,C62=?2>6lV") & CCJCJCC & CJCJCCJJ("V") if CJJJJJCC(CCJJCJC) then sql=sql & CJCJCCJJ(" ,2?5 ,=3l") & CCJJCJC if CJJJJJCC(CCJJCCC) then sql=sql & CJCJCCJJ(" ,2?5 ,D6Il") & CCJJCCC if CJJJJJCC(CCJCJJC) then sql=sql & CJCJCCJJ(" ,2?5 ,?@C>2=l") & CCJCJJC if CJJJJJCC(CCJCJCJ) then sql=sql & CJCJCCJJ(" ,2?5 ,5@?6l") & CCJCJCJ if isdate(CCJCCJJ) then sql=sql & CJCJCCJJ(" ,2?5 ,52E6E:>6mlV") & CCJCCJJ & CJCJCCJJ("V") if isdate(CCJCCJC) then sql=sql & CJCJCCJJ(" ,2?5 ,52E6E:>6klV") & CCJCCJC & CJCJCCJJ("V") if CCJCJJJ="" then sql=sql & CJCJCCJJ(" ,@C56C ,3J ,>6>36C") else sql=sql & CJCJCCJJ(" ,@C56C ,3J ,") & CCJCJJJ Session(CJCJCCJJ("!$*0$B="))=sql:sql=CJCJCCJJ("D6=64E ,E@A ,`___ ,:5[?F>36C[C62=?2>6[52E6E:>6[?@C>2=[D6I?2>6[286[>6>36C[5@?6[9@H=@?8[=3?2>649[=3[A6C>:EG:6H ,7C@> ,G0E6DE ,") & sql:dim CCCJJJC:set CCCJJJC=new splitpage:with CCCJJJC:.sql=sql:.pagesize=IIf(CJJJJJCC(CCJJCJ),CCJJCJ,20):.style=5:end with:set rs=CCCJJJC.rs:if rs.eof then Call ShowMessage(CJCJCCJJ("患@逄@拤@癿@苾@囯@沜@朄@件@佐@浆@释@讫@彐@！,")) else Response.Write(vbCrLf):Response.Write(CJCJCCJJ("k7@C> ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m床@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ4964<2==Q ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m缑@史@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m幯@齿@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m释@衣@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m浆@访@旱@闯@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m耒@旱@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m犱@忼@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9 ,E:E=6lQ昪@吡@巭@绊@壿@琁@绎@林@Qm壿@琁@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9 ,E:E=6lQ昪@吡@儼@讳@産@戲@柠@眆@绎@林@Qm柠@眆@k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):dim CJCCCC,CCCJJCJ:for CJCCCC=1 to CCCJJJC.pagesize:CCCJJCJ=rs(0):Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJJJC.listnum(CJCCCC):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,G2=F6lQ")):Response.Write CCCJJCJ:Response.Write(CJCJCCJJ("Qmk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(1):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,d__[a__.Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(7):Response.Write(CJCJCCJJ("Qm")):Response.Write rs(2):Response.Write(CJCJCCJJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(5):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(6):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,d__[b__.Q ,9C67lQ=3G:6H]2DAn24El:?7@U:5l")):Response.Write rs(11):Response.Write(CJCJCCJJ("Qm")):Response.Write rs(10):Response.Write(CJCJCCJJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5m")):Response.Write CJJJCJCC(rs(3),0):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5m")):Response.Write CJJJCJCJ(rs(9)):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(4),CCCCCJC,CCCCCCJ):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(8),CCCCCJC,""):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(12),CCCCCJC,CCCCCCJ):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4@=DA2?lQ`aQm")):call CCCJJJC.showpage:Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCCJJ("k^7@C>m") & vbCrLf) End If:set CCCJJJC=nothing else response.write CJCJCCJJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m诲@逄@拤@杜@仱@吉@炴@凶@“,柠@话@”,挄@钩@！,k^3mk^5:Gm") end if:sub GetTestsInfo(CCCJJCJ):dim CCCCJJ,CJCCCC:if CJJJJJCC(CCCJJCJ) then CCCCJJ=CJJJCJJC:for CJCCCC=1 to ubound(CCCCJJ):if cstr(CCCCJJ(CJCCCC,0))=cstr(CCCJJCJ) then CCJCCCJ=CCCCJJ(CJCCCC,2):CCJCCCC=CCCCJJ(CJCCCC,8):CCCJJJJ=CCCCJJ(CJCCCC,10):exit for end if:next end if:end sub:Sub ShowTestsSelect_(CCCCC,CJJCJJJJ):Dim CCCCJJ,CCCJCC,CJCCCC,CCCJJCC:set CCCJCC=CJCCC.execute(CJCJCCJJ("D6=64E ,=3 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5 ,:? ,WD6=64E ,:5 ,7C@> ,>6>36C0EJA6 ,H96C6 ,A2C:5l") & CCCCC & CJCJCCJJ("X")):while not CCCJCC.eof:if CCCJCC(0) & ""<>"" then CCCCJJ=CCCCJJ & CJCJCCJJ("[") & CCCJCC(0) CCCJCC.movenext:wend:CCCJCC.close : set CCCJCC=nothing:if CCCCJJ<>"" then CCCJJCC=CJJJCJJC:for CJCCCC=1 to ubound(CCCJJCC):CCCJJCJ=CCCJJCC(CJCCCC,0):if instr(CJCJCCJJ("[") & CCCCJJ & CJCJCCJJ("["),CJCJCCJJ("[") & CCCJJCJ & CJCJCCJJ("["))>0 then response.Write CJCJCCJJ("k@AE:@? ,G2=F6lV") & CCCJJCJ & CJCJCCJJ("V") & IIf(Cstr(CCCJJCJ) = CStr(CJJCJJJJ),CJCJCCJJ(" ,D6=64E65"),"") & CJCJCCJJ("m") & CJCCCC & CJCJCCJJ("] ,") & CCCJJCC(CJCCCC,1) & CJCJCCJJ("k^@AE:@?m") end if:next end if:End Sub:Response.Write(vbCrLf):Response.Write(CJCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]KII3@I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];52E6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCCJJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCJCCJJ(" ,SWQ:?AFEiE6IE]>J52E6QX];s2E6WXj") & vbCrLf):Response.Write(CJCJCCJJ("NXj") & vbCrLf):Response.Write(CJCJCCJJ("7F?4E:@? ,@A6?u:=E6C(:?W=3}2>6[56AE[8C256[H:5E9[96:89EXL") & vbCrLf):Response.Write(CJCJCCJJ(" ,@A6?WQ]]^DJD=3^=30QZ=3}2>6ZQ]2DAn24Elu:=E6C$EF56?EUs6AElQZ56AEZQUvC256lQZ8C256[Qu:=E6CQ[QH:5E9lQZH:5E9ZQ[96:89ElQZ96:89EZQ[D4C@==32CDlJ6DQXj") & vbCrLf):Response.Write(CJCJCCJJ("N") & vbCrLf):Response.Write(CJCJCCJJ("7F?4E:@? ,56=WXL") & vbCrLf):Response.Write(CJCJCCJJ(" ,:7W4@?7:C>WV诠@擈@佗@封@创@陟@患@玫@圣@逄@丨@癿@戻@朄@浆@诐@讫@彐@，,诲@患@慉@釈@逄@拤@！,VXX") & vbCrLf):Response.Write(CJCJCCJJ(" ,:7W4@?7:C>WV冈@欜@硩@讟@：,-?-?创@陟@吉@封@旛@泐@恝@夈@，,好@林@朄@忀@襼@诲@元@寷@凵@我@夂@仸@敫@捩@，,患@眚@癿@襼@创@陟@吒@？,VXXL") & vbCrLf):Response.Write(CJCJCCJJ(" ,7@C>a]24E:@?lQE6DEC6DF=E0562=]2DAn24El32E4956=Qj") & vbCrLf):Response.Write(CJCJCCJJ(" ,7@C>a]DF3>:EWXj") & vbCrLf):Response.Write(CJCJCCJJ(" ,N") & vbCrLf):Response.Write(CJCJCCJJ("N") & vbCrLf):Response.Write(CJCJCCJJ("7F?4E:@? ,@A6?!C:?E(:?WXL") & vbCrLf):Response.Write(CJCJCCJJ(" ,G2C ,DECj") & vbCrLf):Response.Write(CJCJCCJJ(" ,:7WDEClAC@>AEWQ诲@辎@兠@斂@孒@佗@丵@扎@卫@仱@癿@栂@颓@：,Q[Q徾@琁@浆@访@讫@彐@划@衣@QXX") & vbCrLf):Response.Write(CJCJCCJJ(" ,@A6?WQE6DEC6DF=E0AC:?E]2DAnE:E=6lQZ6D42A6WDECX[Q!C:?EQXj") & vbCrLf):Response.Write(CJCJCCJJ("N") & vbCrLf):Response.Write(CJCJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCC=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:set CJJJJCCC=nothing:CCJCJ.Close:Set CCJCJ=Nothing:rs.Close:Set rs=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCJCCJJ(ByVal CJCJCJCC) Dim CCCJCJJ, CJCCCC, CCJCCC CJCJCJCC = Replace(CJCJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCCC = 1 To Len(CJCJCJCC) If CJCCCC <> CCJCCC Then CCCJCJJ = AscW(Mid(CJCJCJCC, CJCCCC, 1)) If CCCJCJJ >= 33 And CCCJCJJ <= 79 Then CJCJCCJJ = CJCJCCJJ & Chr(CCCJCJJ + 47) ElseIf CCCJCJJ >= 80 And CCCJCJJ <= 126 Then CJCJCCJJ = CJCJCCJJ & Chr(CCCJCJJ - 47) Else CCJCCC = CJCCCC + 1 If Mid(CJCJCJCC, CCJCCC, 1) = Chr(64) Then CJCJCCJJ = CJCJCCJJ & ChrW(CCCJCJJ + 5) Else CJCJCCJJ = CJCJCCJJ & Mid(CJCJCJCC, CJCCCC, 1) End If End If Next End Function %>