Edit D:\xinhaisoft\crisis_new\jiaowei\admin\testresult.asp

??<%@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?@=@4<X ,(wt#t ,!2DDH@C5lV") & CCCJC & CJCJCCJJ("V ,2?5 ,:5l") & CCCJJ
set rs=CJCCC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCCCJ=rs(2) & "":CCCCC=rs(3):CJJJJJ=rs(5):CJJJJC=rs(6):CJJJCJ=rs(9):CJJJCC=rs(15):CJJCJC=rs(0):CJCCJJ=rs(1):CJCJCC=rs(11) & "":CJJCCJ=rs(10) & "":CJJCJJ=rs(12):CJJCCC=rs(14):CJCJJJ=rs(13):CJCJJC=rs(7) & "":CJCJCJ=rs(4):CJCCJC=rs(8):if isnull(CJJJCC) then CJJJCC=0
if isnull(CJJJCJ) or CJJJCJ=0 then CJJJCJ=CCCCC
if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJJJJJ) then CJJJJJ=0
if instr(CJCJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJC)>0 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 CCJJCC<DateDiff(CJCJCCJJ("D"), CJCJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJ=Clng(CCJJJC(0)):CCCJC=CCJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJCJ,CJCJCCJC):dim CJCCCC,CCJJCC,CCJCJJ:for CJCCCC=1 to len(CJCJCCJC):CCJJCC=mid(CJCJCCJC,CJCCCC,1):if isnumeric(CCJJCC) then CCJCJJ=CCJCJJ & CCJJCC
if len(CCJCJJ)=7 then exit for
next:CCJCJJ=CCCJJCJ & CJCJCCJJ("]") & CJCJCCJC & CJCJCCJJ("]") & Fix(10000*(Rnd+1)) & CCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJCCJJ("D"), CJCJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCCJJ("!$*|t|qt#"))=CCJCJJ:End Sub::Function CJJJJJJJ(CJCJCCCJ):Dim str,CCJCCJ:str = Trim(CJCJCCCJ):If IsNull(str) Or str = "" Then
CJJJJJJJ = ""
else
str=Replace(str, CJCJCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJCCJJ("k:7C2>6"), 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<X"):if CJJCCJJ<>"" 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=:4<lQ;2G2D4C:AEi:7W5@4F>6?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}:4<Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ``Q ,G2=F6lQ")):Response.Write CCJCJCC:Response.Write(CJCJCCJJ("Qmk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mkD6=64E ,?2>6lQ=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=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):If CCJJCCJ="1" Then
Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ????????Q ,@?r=:4<lQ;2G2D4C:AEi@A6?!C:?E(:?WXQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,"))
End If::if CJJJJJCC(CCJJCJC) then
CCJJCJC=cint(CCJJCJC):dim CCJCCCJ,CCJCCCC,CCCJJJJ:Call GetTestsInfo(CCJJCJC):if instr(CJCJCCJJ("[d[`dc[`dd[`df[`dg["),CJCJCCJJ("[") & CCJJCJC & CJCJCCJJ("["))>0 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?<V ,E:E=6lV??????????????@??????????????Vm????????k^2m")
elseif CCJCCCC="" and mid(CCCJJJJ,1,1)="1" then
response.write CJCJCCJJ("k:>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=:4<lQ;2G2D4C:AEi=@42E:@?lV]]^]]^=3^") & CCJCCCJ & CJCJCCJJ("]2DAn24El$9@H$E2EU56AEl") & CCJJCJJ & CJCJCCJJ("U}@C>2=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
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de