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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJJ, conn,rs, CCCCCC, sql:Set CCCCJJ = server.CreateObject(CCJCCJCC("ps~sq]r@??64E:@?")):CCCCJJ.open Application(CCJCCJCC("r@??64E:@?$EC:?8")):Set conn=CCCCJJ::Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC:CJCJJCC=Trim(Request.Cookies(CCJCCJCC("!$*|t|qt#"))):if CJCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJC>0 then
sql=CCJCCJCC("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") & CJJJJCJ & CCJCCJCC("V ,2?5 ,:5l") & CJJJJJC
set rs=CCCCJJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJJJCC=rs(2) & "":CJJJCJJ=rs(3):CJJJCJC=rs(5):CJJJCCJ=rs(6):CJJJCCC=rs(9):CJJCJJJ=rs(15):CJJCJCJ=rs(0):CJCJJJC=rs(1):CJCJJJJ=rs(11) & "":CJJCJCC=rs(10) & "":CJJCJJC=rs(12):CJJCCJJ=rs(14):CJJCCJC=rs(13):CJJCCCJ=rs(7) & "":CJJCCCC=rs(4):CJCJJCJ=rs(8):if isnull(CJJCJJJ) then CJJCJJJ=0
if isnull(CJJJCCC) or CJJJCCC=0 then CJJJCCC=CJJJCJJ
if isnull(CJJCCCC) then CJJCCCC=0
if isnull(CJJJCJC) then CJJJCJC=0
if instr(CCJCCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCJ)>0 then Call RedirectMessage(CCJCCJCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJC,CJJJJCJ)
End IF
end if:Sub CheckRight(CCJJJCC):dim CJCJCJJ,CJCJCJC:if CJJJJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCCJCC("??????????????,????????????,"))
elseIf not CJCCJJCJ(CCJJJCC) then
Call RedirectMessage(CCJCCJCC("????W") & CCJJJCC & CCJCCJCC("X????????,????????????????????,"))
end if:End Sub:Function CJCCJJCJ(CCJJJCC):dim CJCJCJJ,CJCJCJC:CJCJCJC=split(CCJJJCC,CCJCCJCC("[")):CJCCJJCJ=False:for CJCJCJJ=0 to ubound(CJCJCJC):If Mid(CJJJJCC,CJCJCJC(CJCJCJJ),1)="1" then
CJCCJJCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJCCJ:CJCJCCJ=trim(request.QueryString(CCJCCJCC("D49@@="))):if isnumeric(CJCJCCJ) then
response.Redirect CCJCCJCC("^>^G2?E^R^D49@@=^") & CJCJCCJ & CCJCCJCC("^DEF56?E^=@8:?nC65:C64El") & CJCCCCC
else
Call RedirectMessage(CCJCCJCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCJCC("!$*|t|qt#"))="":CJJJJJC=0:CJJJCCJ=0:CJJJJCJ=Empty:CJJJCJC=0:CJJCJJJ=0:CJJJCCC=0:CJJJCJJ=0:CJJCJCJ=False:CJCJJJC=False:CJCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCCC,CJCCJJJ,CJCJCJJ,CJCCJJC,CJCCJCJ:CJCJCCC=split(CJCJJCC,CCJCCJCC("]")):if ubound(CJCJCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCCC(0)) or len(CJCJCCC(1))<>32 or len(CJCJCCC(2))<>32 then
Call ClearMemberCookie
else
CJCCJJJ=CJCJCCC(1):for CJCJCJJ=1 to len(CJCCJJJ):CJCCJJC=mid(CJCCJJJ,CJCJCJJ,1):if isnumeric(CJCCJJC) then CJCCJCJ=CJCCJCJ & CJCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJJJ=CJCJCCC(2):if CJCCJCJ<>mid(CJCCJJJ,6,7) then
Call ClearMemberCookie
else
CJCCJJC=mid(CJCCJJJ,18,10)/2:if CJCCJJC<DateDiff(CCJCCJCC("D"), CCJCCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJC=Clng(CJCJCCC(0)):CJJJJCJ=CJCJCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJCCJ,CCJCCCJJ):dim CJCJCJJ,CJCCJJC,CJCCJCJ:for CJCJCJJ=1 to len(CCJCCCJJ):CJCCJJC=mid(CCJCCCJJ,CJCJCJJ,1):if isnumeric(CJCCJJC) then CJCCJCJ=CJCCJCJ & CJCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJCJ=CJCJJCCJ & CCJCCJCC("]") & CCJCCCJJ & CCJCCJCC("]") & Fix(10000*(Rnd+1)) & CJCCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCCJCC("D"), CCJCCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCJCC("!$*|t|qt#"))=CJCCJCJ:End Sub::Function CJCCJJCC(CCJCCCJC):Dim str,CJCCCJJ:str = Trim(CCJCCCJC):If IsNull(str) Or str = "" Then
CJCCJJCC = ""
else
str=Replace(str, CCJCCJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCCJCC("k:7C2>6"), CCJCCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCCJCC("kD4C:AE"), CCJCCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCJJ=new RegExp:CJCCCJJ.Pattern=CCJCCJCC("@?W,2\K.ZXl"):CJCCCJJ.IgnoreCase = True:CJCCCJJ.Global=True:str=CJCCCJJ.Replace(str,CCJCCJCC("@?S`U6BF2=Dj")):set CJCCCJJ=nothing:CJCCJJCC=str
End If:End Function:Function IIf(CCJCCCCJ, CCJCCCCC, CCCJJJJJ):if isnull(CCJCCCCJ) or isempty(CCJCCCCJ) then
IIf = CCCJJJJJ
elseif CCJCCCCJ Then
IIf = CCJCCCCC
Else
IIf = CCCJJJJJ
end if:End Function:Const CJCJCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJCCJCJC(str):if isnull(str) or str="" then
CJCCJCJC=False:exit function
end if:Dim CJCCCJJ:Set CJCCCJJ = New RegExp:CJCCCJJ.Pattern = CCJCCJCC("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCCCJJ.IgnoreCase = True:CJCCJCJC = CJCCCJJ.test(str):set CJCCCJJ=nothing:End Function::Sub Debug(str):response.Charset=CCJCCJCC("FE7\g"):dim CJCJCJJ,CJCCJJC,CJCCCJC:if isarray(str) then
on error resume next:CJCJCJJ=ubound(str,2):CJCCCJC=err.number:err.clear:on error goto 0:if CJCCCJC<>0 then
for CJCJCJJ=0 to ubound(str):if CJCJCJJ>0 then response.Write CCJCCJCC("k3C ,^m")
response.Write CJCJCJJ & CCJCCJCC("i ,") & str(CJCJCJJ):next
else
response.Write CCJCCJCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJCJJ=0 to ubound(str,2):response.Write CCJCCJCC("kE9 ,2=:8?lV=67EVm") & CJCJCJJ & CCJCCJCC("k^E9m")
next:response.Write CCJCCJCC("k^ECm"):for CJCJCJJ=0 to ubound(str):response.Write CCJCCJCC("kECmkE9m") & CJCJCJJ & CCJCCJCC("k^E9m"):for CJCCJJC=0 to ubound(str,2):response.Write CCJCCJCC("kE5m") & str(CJCJCJJ,CJCCJJC) & CCJCCJCC("k^E5m"):next:response.Write CCJCCJCC("k^ECm"):next:response.Write CCJCCJCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJCCJCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJCCJCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJCCJCCJ():Dim CJCCCCJ, CJCCCCC:CJCCCCC = Request.ServerVariables(CCJCCJCC("!p%w0x}u~")):CJCCCCJ = Request.ServerVariables(CCJCCJCC("""&t#*0$%#x}v")):If CJCCCCJ <> Empty Then
if instr(lcase(CJCCCCJ),CCJCCJCC("Tb4:7C2>6"))>0 or instr(lcase(CJCCCCJ),CCJCCJCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJCCJCC("????????,????????????????????????,??,??,"))
CJCCCCC = CJCCCCC & CCJCCJCC("n") & CJCCCCJ
end if:CJCCJCCJ = CJCCCCC:End Function:Sub SetHttpOnlyCookie(CCCJJJJC,CCCJJJCJ):dim CJCJCCC:CJCJCCC=CCCJJJJC & CCJCCJCC("l") & CCCJJJCJ & CCJCCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCJCC("$6E\r@@<:6"),CJCJCCC):End Sub::::::sub ShowMessage(CCCJJJCC):response.Charset=CCJCCJCC("FE7\g"):Response.Write CCJCCJCC("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") & CCCJJJCC & CCJCCJCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCCJCCC(CJCCCJC):if isnull(CJCCCJC) or trim(CJCCCJC)="" or not isnumeric(CJCCCJC) then
CJCCJCCC=false
else
Dim CJCCCJJ:Set CJCCCJJ = New RegExp:CJCCCJJ.Pattern = CCJCCJCC("/-5ZS"):CJCCCJJ.IgnoreCase = True:CJCCJCCC = CJCCCJJ.test(CJCCCJC):set CJCCCJJ=nothing
end if:End Function:Function CJCCCJJJ(CCCJJCJJ):dim CCJJJJJ,CCJJJJC:CCJJJJJ=CCJCCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJJCJJ & CCJCCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJJJC=CCCCJJ.execute(CCJJJJJ):CJCCCJJJ = CCJJJJC(0):if isnull(CJCCCJJJ) then CJCCCJJJ=1
CCJJJJC.close : set CCJJJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCJCJC=nothing:set CJCCCJJC=nothing:set CJCCCJCJ=nothing:set CJCCCJCC=nothing:CCJJJJC.close : set CCJJJJC=nothing:CCCCCC.Close : Set CCCCCC=Nothing:rs.Close : Set rs=Nothing:CJCCCCJJ.Close : Set CJCCCCJJ = Nothing:CCCCJJ.Close : Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCJCC("!$*0|6DD286"),server.URLEncode(CCCJJJCC)):Response.Redirect CCJCCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJCCCCJC():Dim CCJJJJC, CCJJJCJ(), CJCJCJJ, CJCCJJC, CCJJJCC,CCJJCJJ:If Not IsArray(Application(CCJCCJCC("!$*0%6DED"))) Then
sql=CCJCCJCC("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 CCJJJJC=server.createobject(CCJCCJCC("25@53]C64@C5D6E")):CCJJJJC.open sql,CCCCJJ,1:CCJJJCC = CCJJJJC.RecordCount:CCJJCJJ=CCJJJJC.fields.count-1:ReDim CCJJJCJ(CCJJJCC, CCJJCJJ):If CCJJJCC > 0 Then
For CJCJCJJ = 1 To CCJJJCC:For CJCCJJC = 0 To CCJJCJJ:if CJCCJJC=4 or CJCCJJC=6 or CJCCJJC=19 then
CCJJJCJ(CJCJCJJ, CJCCJJC) = CCJJJJCC(CCJJJJC(CJCCJJC))
else
CCJJJCJ(CJCJCJJ, CJCCJJC) = CCJJJJC(CJCCJJC):if CCJJJJC(CJCCJJC).type<>11 and isnull(CCJJJCJ(CJCJCJJ, CJCCJJC)) then CCJJJCJ(CJCJCJJ, CJCCJJC)=""
end if:Next:CCJJJJC.MoveNext:Next
End If:CCJJJJC.Close: Set CCJJJJC = Nothing:Application(CCJCCJCC("!$*0%6DED")) = CCJJJCJ
End If:CJCCCCJC = Application(CCJCCJCC("!$*0%6DED")):End Function::Function CJCCCCCJ(CJCCCJC):Dim CCJJCJC, CCJJCCJ, CCJJCCC, CCJCJJJ, str:If Not CJCCJCCC(CJCCCJC) or CJCCCJC=0 Then
str=0
else
CCJJCJC = Fix(CJCCCJC / 86400):CCJJCCJ = Fix((CJCCCJC - CCJJCJC * 86400) / 3600):CCJJCCC = Fix((CJCCCJC - CCJJCJC * 86400 - CCJJCCJ * 3600) / 60):CCJCJJJ = Fix(CJCCCJC - CCJJCJC * 86400 - CCJJCCJ * 3600 - CCJJCCC * 60):If CCJJCJC <> 0 Then str = CCJJCJC & CCJCCJCC("??")
If CCJJCCJ <> 0 Then str = str & CCJJCCJ & CCJCCJCC("????")
If CCJJCCC <> 0 Then str = str & CCJJCCC & CCJCCJCC("??")
if CCJCJJJ <> 0 Then str = str & CCJCJJJ & CCJCCJCC("??")
end if:CJCCCCCJ = str:End Function::::::::::::Function CJCCCCCC(ByVal CCCJJJC,style):if not isdate(CCCJJJC) then
CJCCCCCC=CCCJJJC:exit function
end if:dim CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ:CCCJJJC=cdate(CCCJJJC):CCJCJJC=Year(CCCJJJC):CCJCJCJ=Month(CCCJJJC):CCJCJCC=Day(CCCJJJC):select case style:case 0:CJCCCCCC=CCJCJJC & CCJCCJCC("\") & right(0 & CCJCJCJ,2) & CCJCCJCC("\") & right(0 & CCJCJCC,2):case 1:CJCCCCCC=CCJCJJC & right(0 & CCJCJCJ,2) & right(0 & CCJCJCC,2):case 2:CJCCCCCC=right(CCJCJJC,2) & CCJCCJCC("\") & right(0 & CCJCJCJ,2) & CCJCCJCC("\") & right(0 & CCJCJCC,2):case 3:CJCCCCCC=CCJCJJC & CCJCCJCC("\") & right(0 & CCJCJCJ,2):case 4:CJCCCCCC=right(0 & CCJCJCJ,2) & CCJCCJCC("\") & right(0 & CCJCJCC,2):case 5:CJCCCCCC=right(0 & CCJCJCC,2):case 6:CJCCCCCC=CCJCJJC & CCJCCJCC("??") & right(0 & CCJCJCJ,2) & CCJCCJCC("??") & right(0 & CCJCJCC,2) & CCJCCJCC("??"):case else
CJCCCCCC=CCCJJJC:end select:End Function:Function CCJJJJJJ(Table):Dim CCJJJJC, CCJJJCC, str(), CJCJCJJ,CJCCJJC,CCJCCJC:CCJCCJC=UCase(Table):If Not IsArray(Application(CCJCCJCC("!$*0") & CCJCCJC)) Then
Sql=CCJCCJCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJCCJCC(". ,@C56C ,3J ,D@CE[:5"):set CCJJJJC=server.createobject(CCJCCJCC("25@53]C64@C5D6E")):CCJJJJC.open sql,CCCCJJ,1:CCJJJCC = CCJJJJC.RecordCount:ReDim str(CCJJJCC, 2):If CCJJJCC > 0 Then
For CJCJCJJ = 1 To CCJJJCC:for CJCCJJC=0 to 2:str(CJCJCJJ, CJCCJJC) = CCJJJJC(CJCCJJC):next:CCJJJJC.MoveNext:Next
End If:CCJJJJC.Close: Set CCJJJJC = Nothing:Application(CCJCCJCC("!$*0") & CCJCCJC) = str
End If:CCJJJJJJ = Application(CCJCCJCC("!$*0") & CCJCCJC):End Function:Sub ShowListSelect(CCCJJCJJ,CCCJJCJC,CCCJJCCJ):Dim str, CJCJCJJ, CCJCCCJ:CCJCCCJ = CCJJJJJJ(CCCJJCJJ):For CJCJCJJ = 1 To UBound(CCJCCCJ):if Cstr(CCJCCCJ(CJCJCJJ,2))=Cstr(CCCJJCJC) then
str = str & CCJCCJCC("k@AE:@? ,G2=F6lV") & CCJCCCJ(CJCJCJJ, 0) & CCJCCJCC("V")
If CStr(CCJCCCJ(CJCJCJJ, 0)) = CCCJJCCJ & "" Then str = str & CCJCCJCC(" ,D6=64E65lVD6=64E65V")
str = str & CCJCCJCC("m") & CCJCCCJ(CJCJCJJ, 1) & CCJCCJCC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CCJJJJJC(CCCJJCJJ,CCCJJCJC,CJCJJCCJ):Dim str, CJCJCJJ, CCJCCCJ:CCJCCCJ = CCJJJJJJ(CCCJJCJJ):For CJCJCJJ = 1 To UBound(CCJCCCJ):if Cstr(CCJCCCJ(CJCJCJJ,2))=Cstr(CCCJJCJC) and CStr(CCJCCCJ(CJCJCJJ, 0)) = CJCJJCCJ & "" then
str=CCJCCCJ(CJCJCJJ,1):exit for
end if:Next:if str="" then str=CCJCCJCC(",????.")
CCJJJJJC=str:End Function::Function CCJJJJCJ(CJCJJCCJ):dim CCJCCCC,CJCJCJJ,CCCJJJJ,CCCJJJC,CCCJJCJ:CCCJJJC=Now:CCJCCCC= CJCJJCCJ & Year(CCCJJJC) & CJCJJCCJ & Month(CCCJJJC) & CJCJJCCJ & Day(CCCJJJC) & CJCJJCCJ & Hour(CCCJJJC) & CJCJJCCJ:CCJCCCC=StrReverse(CCJCCCC):for CJCJCJJ=1 to len(CCJCCCC):CCCJJCJ=Cint(Mid(CCJCCCC,CJCJCJJ,1)):CCCJJJJ=CCCJJJJ & CCCJJCJ^2:next:CCJCCCC=CCCJJJJ:CCJCCCC=left(CCJCCCC,16) & right(CCJCCCC,16):CCJCCCC=Mid(CCJCCCC,9,16):CCJJJJCJ=CCJCCCC:End Function:::::::::::Function CCJJJJCC(CCCJJCCC):if isnull(CCCJJCCC) then
CCJJJJCC=""
else
On Error Resume Next:CCJJJJCC=CCCJJCCC:if err.number=-2147352567 then
CCJJJJCC="":err.Clear
end if
end if:End Function::Function CCJJJCJJ(CCJCCCC,str):dim CJCJCJJ,CCCJJCC,CCCJCJJ,CCJCJCJ,CJCCCJC,CCCJJJJ,CJCCJCJ:CJCCJCJ=ucase(CCJCCCC):CCCJJJJ=str:if CCCJJJJ="" then
CCCJJJJ=request.cookies(CJCCJCJ):if CCCJJJJ="" then
CCJJJCJJ=""
else
CCCJJJJ=strreverse(CCCJJJJ):CCCJJCC=len(CCCJJJJ):for CJCJCJJ=1 to CCCJJCC-1 step 2:CCJCJCJ=mid(CCCJJJJ,CJCJCJJ,1):CJCCCJC=mid(CCCJJJJ,CJCJCJJ+1,1):CCCJCJJ=CCCJCJJ & CJCCCJC & CCJCJCJ:next:CCCJCJJ=replace(CCCJCJJ,CCJCCJCC("L0N"),CCJCCJCC(" ,")):CCCJCJJ=replace(CCCJCJJ,CCJCCJCC("LIN"),CCJCCJCC("Y")):CCCJCJJ=replace(CCCJCJJ,CCJCCJCC("L:N"),CCJCCJCC("^")):CCJJJCJJ=trim(CCCJCJJ)
end if
else
if Len(CCCJJJJ) Mod 2=1 then CCCJJJJ=CCCJJJJ & CCJCCJCC(" ,")
CCCJJJJ=replace(CCCJJJJ,CCJCCJCC(" ,"),CCJCCJCC("L0N")):CCCJJJJ=replace(CCCJJJJ,CCJCCJCC("Y"),CCJCCJCC("LIN")):CCCJJJJ=replace(CCCJJJJ,CCJCCJCC("^"),CCJCCJCC("L:N")):CCCJJCC=len(CCCJJJJ):for CJCJCJJ=1 to CCCJJCC-1 step 2:CCJCJCJ=mid(CCCJJJJ,CJCJCJJ,1):CJCCCJC=mid(CCCJJJJ,CJCJCJJ+1,1):CCCJCJJ=CCCJCJJ & CJCCCJC & CCJCJCJ:next:CCCJCJJ=Trim(strreverse(CCCJCJJ)):CCJJJCJJ=CCCJCJJ:response.cookies(CJCCJCJ)=CCCJCJJ
end if:End Function::Sub ClearCache(CCCJCJJJ):Application.Contents.Remove CCCJCJJJ
End Sub::Class jTree:Private Sql, CCCJCJC, CCCJCCJ, CCCJCCC,CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC:Private Sub Class_Initialize():CCCJCCJ = 0:CCCJCCC = 0:CCCCJCC=10:End Sub:Public Property Let Table(CCCJCJJC):if CCCJCJJC="" then Call RedirectMessage(CCJCCJCC("????????,;%C66????????????????????@??????????,"))
CCCCJJJ=CCCJCJJC:CCCCJJC=CCJCCJCC("!$*0") & UCase(CCCCJJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCCJJJ:End Property::Public Property Get Count():Count=CCCJCCC-CCCCJCC:End Property:Private Sub GetTreeArray():Dim CJCJCJJ, CJCCJJC, CCCCCJJ,RecordCount:CCCJCJC = Application(CCCCJJC):If Not IsArray(CCCJCJC) Then
Sql = CCJCCJCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCCJJJ:if CCCCJCJ<>"" then Sql=Sql & CCJCCJCC(" ,H96C6 ,") & CCCCJCJ
set CCCCCJJ=CCCCJJ.execute(sql):RecordCount=CCCCCJJ(0):if RecordCount=0 then Call RedirectMessage(CCJCCJCC("????W") & CCCCJJJ & CCJCCJCC("^") & CCCCJCJ & CCJCCJCC("X????????????"))
CCCJCCC=RecordCount+CCCCJCC:ReDim CCCJCJC(CCCJCCC, 4):Sql = CCJCCJCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJJJ & CCJCCJCC(" ,H:E9 ,W?@=@4<X"):if CCCCJCJ<>"" then Sql=Sql & CCJCCJCC(" ,H96C6 ,") & CCCCJCJ
Sql=Sql & CCJCCJCC(" ,@C56C ,3J ,D@CE[:5"):set CCCCCJJ=CCCCJJ.execute(sql):For CJCJCJJ = 1 To RecordCount:For CJCCJJC = 0 To 4:CCCJCJC(CJCJCJJ, CJCCJJC) = CCCCCJJ(CJCCJJC):if IsNull(CCCJCJC(CJCJCJJ,4)) then CCCJCJC(CJCJCJJ,4)=0
If CCCJCJC(CJCJCJJ,2)="" then CCCJCJC(CJCJCJJ,2)=CCJCCJCC(",??.")
Next:CCCCCJJ.MoveNext:Next:CCCCCJJ.Close: Set CCCCCJJ = Nothing:for CJCJCJJ=CCCJCCC-(CCCCJCC-1) to CCCJCCC:CCCJCJC(CJCJCJJ,0)=CJCJCJJ:next:Application.Lock():Application(CCCCJJC) = CCCJCJC:Application.UnLock()
else
CCCJCCC=Ubound(CCCJCJC)
End If:End Sub:::::Private Function CCJJJCCC(CJCJJCCJ):dim CJCJCJJ,CCCCCCJ:CCJJJCCC=0:CCCCCCJ=CStr(CJCJJCCJ):if CCCCCCJ<>"0" then
for CJCJCJJ=1 to CCCJCCC:If CStr(CCCJCJC(CJCJCJJ, 0))=CCCCCCJ Then
CCJJJCCC = CJCJCJJ:Exit For
End If:Next
end if:End Function::::Public Function CCJJCJJJ(CJCJJCCJ):Dim CJCJCJJ,CCCCCCC:CJCJCJJ=CCJJJCCC(CJCJJCCJ):if CJCJCJJ=0 then
CCCCCCC=CCJJCJJC(CJCJJCCJ)
else
CCCCCCC=CCCJCJC(CJCJCJJ,3):if isnull(CCCCCCC) or CCCCCCC="" then
CCCCCCC=CCJJCJJC(CJCJJCCJ)
elseif Mid(CCCCCCC,instrrev(CCCCCCC,CCJCCJCC("["))+1)<>CStr(CJCJJCCJ) then
CCCCCCC=CCJJCJJC(CJCJJCCJ)
elseif Left(CCCCCCC,1)=CCJCCJCC("[") then
CCCCCCC=CCJJCJJC(CJCJJCCJ)
end if
end if:CCJJCJJJ=CCCCCCC:End Function:Private Function CCJJCJJC(CJCJJCCJ):dim CCCCCCJ:CCCCCCJ=CStr(CJCJJCCJ):if CCCCCCJ="0" then
CCJJCJJC=""
else
dim CCCCCJJ:set CCCCCJJ=CCCCJJ.execute(CCJCCJCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCCJJJ & CCJCCJCC(" ,H96C6 ,:5l") & CJCJJCCJ):if CCCCCJJ.eof then
Call UpdateCache(CJCJJCCJ,"","","",""):Call RedirectMessage(CCJCCJCC("??????,xs??,") & CJCJJCCJ & CCJCCJCC("??,????????,????????????????????,"))
else
if CCCCCJJ(0)=0 then
CCJJCJJC="0," & CJCJJCCJ
else
CCJJCJJC=CCJJCJJJ(CCCCCJJ(0)) & CCJCCJCC("[") & CJCJJCCJ
end if:if CCCCCJJ(2)<>CCJJCJJC then
CCCCJJ.execute CCJCCJCC("FA52E6 ,") & CCCCJJJ & CCJCCJCC(" ,D6E ,A2E9lV") & CCJJCJJC & CCJCCJCC("V ,H96C6 ,:5l") & CJCJJCCJ
else
CCJJCJJC=CCCCCJJ(2)
end if
end if:Call UpdateCache(CJCJJCCJ,CCCCCJJ(0),CCCCCJJ(1),CCJJCJJC,CCCCCJJ(3)):CCCCCJJ.Close: Set CCCCCJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJCJJCCJ):dim CCCCCCC:CCCCCCC=CCJJCJJJ(CJCJJCCJ):Sql_GetChildren = CCCCJJJ & CCJCCJCC("0A2E9ZV[V ,=:<6 ,V") & CCCCCCC & CCJCCJCC("[TV")
End Function:Public Function HaveChildren(CJCJJCCJ):Dim CJCJCJJ:HaveChildren = False:CJCJJCCJ=CLng(CJCJJCCJ):For CJCJCJJ = 1 To CCCJCCC:If CCCJCJC(CJCJCJJ, 1) = CJCJJCCJ Then
HaveChildren = True:Exit For
End If:Next:End Function:::::::::Public Sub ClearCache():Application.Contents.Remove CCCCJJC
End Sub:Public Sub UpdateCache(CJCJJCCJ,CCCJCJCJ,CCCJCJCC,CCCCCCC,CCCJCCJJ):dim CJCJCJJ,CJCCJJC:CJCJJCCJ=CLng(CJCJJCCJ):CJCJCJJ=CCJJJCCC(CJCJJCCJ):if CCCJCJCJ="" and CCCJCJCC="" and CCCCCCC="" and CCCJCCJJ="" then
if CJCJCJJ>0 then
for CJCCJJC=1 to 4:CCCJCJC(CJCJCJJ,CJCCJJC)=Null:next
end if
else
if CJCJCJJ=0 then
for CJCCJJC=1 to CCCJCCC:if CCCJCJC(CJCCJJC,1) & ""="" then
CJCJCJJ=CJCCJJC:exit for
end if:next
end if:if CJCJCJJ=0 then
Call ClearCache
else
CCCJCJC(CJCJCJJ,0)=CLng(CJCJJCCJ):if CCCJCJCJ<>"" then CCCJCJC(CJCJCJJ,1)=CLng(CCCJCJCJ)
if CCCJCJCC<>"" then CCCJCJC(CJCJCJJ,2)=CCCJCJCC
if CCCCCCC<>"" then CCCJCJC(CJCJCJJ,3)=CCCCCCC
if CCCJCCJJ<>"" then CCCJCJC(CJCJCJJ,4)=CLng(CCCJCCJJ)
end if
end if:if CJCJCJJ>0 then
Application.Lock():Application(CCCCJJC) = CCCJCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJJJCC):Call ConnClose:Response.Write CCCJJJCC:Response.End:End Sub:Private Function CJCCCJJJ():CJCCCJJJ=CCJJCCJJ+1:End Function:Private Function CCJJCCJJ():dim CCJJJJC:set CCJJJJC=CCCCJJ.execute(CCJCCJCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCCJJJ & CCJCCJCC(" ,@C56C ,3J ,:5 ,56D4")):CCJJCCJJ=CCJJJJC(0):CCJJJJC.Close: Set CCJJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJCJCJJC ="9"
Const CJCJCJCJ ="7"
Const CJCJCJCC ="3"
Const CJCJCCJJ ="4"
Const CJCJCCJC ="8"
Const CJCJCCCJ =":"
Const CJCJCCCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJJJJJJC, CJJJJJCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC, CJCCCCC, CJJJJCCJ, CJJJJCCC, CJJJCJJJ, CJJJCJJC:Private Function CCJJCCJC():Dim CJJJCJCJ:CJJJCJCJ = "??" & CJJJJCJC & CCJCCJCC("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJCJJJ & CCJCCJCC("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJJCJJ & CCJCCJCC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CCJCCJCC("k^3mk^DA2?m??")
CCJJCCJC = CJJJCJCJ:End Function:Private Function CCJJCCCJ():CCJJCCCJ = CCJCCJCC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJJJJCJJ & CCJCCJCC("V ,DEJ=6lV") & CJCJCCCC & CCJCCJCC("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") & CJCCCCC & CCJCCJCC("VZE9:D]G2=F6Qm")
End Function:Private Function CCJJCCCC():CCJJCCCC = CCJCCJCC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJCJCCCC & CCJCCJCC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJCCCCC & CCJCCJCC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CCJCJJJJ():Dim CJJJCJCJ, CJCJCJJ:CJJJCJCJ = CCJCCJCC(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJCCCCC & CCJCCJCC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJCJCJJ = 1 To PageCount:CJJJCJCJ = CJJJCJCJ & CCJCCJCC("k@AE:@? ,G2=F6lV") & CJCJCJJ & CCJCCJCC("V")
If CJCJCJJ = CJJJJCJJ Then CJJJCJCJ = CJJJCJCJ & CCJCCJCC(" ,D6=64E65")
CJJJCJCJ = CJJJCJCJ & CCJCCJCC("m") & CJCJCJJ & CCJCCJCC("k^@AE:@?m"):Next:CJJJCJCJ = CJJJCJCJ & CCJCCJCC("k^D6=64Em??"):CCJCJJJJ = CJJJCJCJ:End Function:Public Sub ShowPage():Dim CJCJCJJ, CJJJCJCC,CJJJCCJJ,CJJJCCJC:if CJJJJCJC>0 then
CJJJCJCC = CCJCCJCC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CCJJCCJC & CCJCCJCC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJJJCJJC:Case 1: CJJJCCJC = CCJCJJCC:Case 2: CJJJCCJC = CCJCJCJJ:Case 3: CJJJCCJC = CCJCJCJC:Case 4: CJJJCCJC = CCJCJCCJ:Case 5: CJJJCCJC = CCJCJCCC:Case 6: CJJJCCJC = CCJCCJJJ:Case 7: CJJJCCJC = CCJCCJJC:Case 8: CJJJCCJC = CCJCCJCJ:End Select
End If:CJJJCCJJ = CCJCCJCC("k^5:Gmk^5:Gm")
end if:if CJJJCJJC>=6 then
Response.Write CJJJCCJC
else
Response.Write CJJJCJCC & CJJJCCJC & CJJJCCJJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJJJJJCJ = Server.CreateObject(CCJCCJCC("ps~sq]#64@C5$6E")):CJJJJJCJ.PageSize = CJJJCJJJ:CJJJJJCJ.Open CJJJJJCC, CJJJJJJC, 1:If err then
Response.Write	CCJCCJCC("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 & CCJCCJCC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJJJJJCJ.EOF Then
CJJJJCJC = CJJJJJCJ.RecordCount:PageCount = CJJJJJCJ.PageCount:If CJJJJCJJ > PageCount Then CJJJJCJJ = PageCount
CJJJJJCJ.AbsolutePage = CJJJJCJJ
End If:Set Rs = CJJJJJCJ:End Function:Public Property Let Conn(CCCJCCJC):Set CJJJJJJC = CCCJCCJC:End Property:Public Property Let SQL(str):CJJJJJCC = str:End Property:Public Property Let Style(CCJJJCC):If IsNumeric(CCJJJCC) Then
CJJJCJJC = CInt(CCJJJCC):If CJJJCJJC < 1 Or CJJJCJJC > 8 Then CJJJCJJC = 1
Else
CJJJCJJC = 1
End If:End Property:Public Property Let PageSize(CCJJJCC):If IsNumeric(CCJJJCC) Then
CJJJCJJJ = CInt(CCJJJCC):If CJJJCJJJ < 1 Then CJJJCJJJ = 10
Else
CJJJCJJJ = 10
End If:End Property:Public Property Get PageSize():If CJJJJCJJ = PageCount Then
PageSize = CJJJJCJC - CJJJCJJJ * (PageCount - 1)
Elseif CJJJJCJC=0 then
pagesize=0
else
PageSize = CJJJCJJJ
end if:End Property:Private Sub Class_Initialize():dim CJJJCCCJ:CJJJCJJJ = 10:CJJJCJJC = 1:Set CJJJJJJC = CCCCJJ:CJJJJCJJ = Trim(Request.QueryString(CCJCCJCC("!286"))):If IsNumeric(CJJJJCJJ) Then
CJJJJCJJ = CLng(CJJJJCJJ):If CJJJJCJJ < 1 Then CJJJJCJJ = 1
Else
CJJJJCJJ = 1
End If:CJJJJCCC = Trim(Request.ServerVariables(CCJCCJCC("&#{"))):CJJJJCCC = Mid(CJJJJCCC, InStrRev(CJJJJCCC, CCJCCJCC("^")) + 1):CJJJJCCJ = Split(Trim(Request.ServerVariables(CCJCCJCC("""&t#*0$%#x}v"))), CCJCCJCC("U")):CJCCCCC = Server.HtmlEncode(CCCJCCCJ):CJJJCCCJ=lcase(CJCCCCC):if instr(CJJJCCCJ,CCJCCJCC("Tb4:7C2>6"))>0 or instr(CJJJCCCJ,CCJCCJCC("Tb4D4C:AE"))>0 or instr(CJJJCCCJ,CCJCCJCC("V"))>0 or instr(CJJJCCCJ,CCJCCJCC(";2G2D4C:AE"))>0 or instr(CJJJCCCJ,CCJCCJCC("6IAC6DD:@?"))>0 then Call RedirectMessage(CCJCCJCC("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CCJJJCC):ListNum = CJJJCJJJ * (CJJJJCJJ - 1) + CCJJJCC:End Function:Private Function CCCJCCCJ():Dim CJCJCJJ, str:For CJCJCJJ = 0 To UBound(CJJJJCCJ):If InStr(LCase(CJJJJCCJ(CJCJCJJ)), CCJCCJCC("A286l")) = 0 Then str = str & CCJCCJCC("U") & CJJJJCCJ(CJCJCJJ)
Next:str = Mid(str, 2):If str = "" Then CCCJCCCJ = CJJJJCCC & CCJCCJCC("n") & CCJCCJCC("A286l") Else CCCJCCCJ = CJJJJCCC & CCJCCJCC("n") & str & CCJCCJCC("UA286l")
End Function:Private Function CCJCJJCC():Dim str:str = CCJCCJCC("???? ,??"):For CJCJCJJ = 1 To PageCount:If CJCJCJJ = CJJJJCJJ Then str = str & CCJCCJCC("k3m") & CJCJCJJ & CCJCCJCC("k^3m ,") Else str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJCJCJJ & CCJCCJCC("Vm") & CJCJCJJ & CCJCCJCC("k^2m ,")
Next:str = str & CCJCCJCC("??"):CCJCJJCC = str:End Function:Private Function CCJCJCJJ():Dim str:If CJJJJCJJ > 1 Then
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CCJCCJCC("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJCJJC & CCJCCJCC("k^2m ,")
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 1 & CCJCCJCC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJCJCC & CCJCCJCC("k^2m ,")
Else
str = str & CJCJCJJC & CCJCCJCC(" ,") & CJCJCJCC
End If:If CJJJJCJJ < PageCount Then
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ + 1 & CCJCCJCC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJCCJJ & CCJCCJCC("k^2m ,")
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & PageCount & CCJCCJCC("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJCCCJ & CCJCCJCC("k^2m ,")
Else
str = str & CJCJCCJJ & CCJCCJCC(" ,") & CJCJCCCJ
End If:str = str & CCJJCCCJ:str = str & CCJJCCCC:CCJCJCJJ = str:End Function:Private Function CCJCJCJC():Dim str, CJCCJJJ:CJCCJJJ = (CJJJJCJJ - 1) \ 10:If CJJJJCJJ = 1 Then str = str & CJCJCJJC & CCJCCJCC(" ,") Else str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CCJCCJCC("`V ,E:E=6lV????Vm") & CJCJCJJC & CCJCCJCC("k^2m ,")
If CJCCJJJ * 10 > 0 Then str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 10 & CCJCCJCC("V ,E:E=6lV??????Vm") & CJCJCJCJ & CCJCCJCC("k^2m ,")
For CJCJCJJ = (CJCCJJJ * 10 + 1) To (CJCCJJJ * 10 + 10):If CJCJCJJ = CJJJJCJJ Then str = str & CCJCCJCC("k3m") & CJCJCJJ & CCJCCJCC("k^3m ,") Else str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJCJCJJ & CCJCCJCC("V ,E:E=6lV??????") & CJCJCJJ & CCJCCJCC("??Vm") & CJCJCJJ & CCJCCJCC("k^2m ,")
If CJCJCJJ = PageCount Then Exit For
Next:If CJCJCJJ < PageCount Then str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJCJCJJ & CCJCCJCC("V ,E:E=6lV??????Vm") & CJCJCCJC & CCJCCJCC("k^2m ,")
If CJJJJCJJ = PageCount Then str = str & CJCJCCCJ Else str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & PageCount & CCJCCJCC("V ,E:E=6lV????Vm") & CJCJCCCJ & CCJCCJCC("k^2m")
CCJCJCJC = str:End Function:Private Function CCJCJCCJ():Dim str, CJCCCJC, CJJJCCCC, CJCJCJJ:If CJJJJCJJ > 4 Then str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CCJCCJCC("`Vm,`.k^2m ,]]]")
If CJJJJCJJ < PageCount - 3 Then CJJJCCCC = CJJJJCJJ + 3 Else CJJJCCCC = PageCount
For CJCJCJJ = CJJJJCJJ - 3 To CJJJCCCC:If CJCJCJJ >= 1 Then
If CJCJCJJ = CJJJJCJJ Then str = str & CCJCCJCC(" ,k3m,") & CJCJCJJ & CCJCCJCC(".k^3m") Else str = str & CCJCCJCC(" ,k2 ,9C67lV") & CJCCCCC & CJCJCJJ & CCJCCJCC("Vm,") & CJCJCJJ & CCJCCJCC(".k^2m")
End If:Next:If CJJJJCJJ < PageCount - 3 Then str = str & CCJCCJCC(" ,]]] ,k2 ,9C67lV") & CJCCCCC & PageCount & CCJCCJCC("Vm,") & PageCount & CCJCCJCC(".k^2m")
CCJCJCCJ = str:End Function:Private Function CCJCJCCC():Dim str:If CJJJJCJJ > 1 Then
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CCJCCJCC("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 1 & CCJCCJCC("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CCJCCJCC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJJJJCJJ < PageCount Then
str = str & CCJCCJCC(" ,k2 ,9C67lV") & CJCCCCC & CJJJJCJJ + 1 & CCJCCJCC("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & PageCount & CCJCCJCC("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CCJCCJCC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CCJCJJJJ:CCJCJCCC = str:End Function:Private Function CCJCCJJJ():Dim str:if CJJJJCJJ>=2 then
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 1 & CCJCCJCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 1 & CCJCCJCC("V ,52E2\C@=6lV3FEE@?Vm") & CJJJJCJJ-1 & CCJCCJCC("k^2m")
end if:str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ & CCJCCJCC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJJJJCJJ & CCJCCJCC("k^2m")
if pagecount>CJJJJCJJ then
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ + 1 & CCJCCJCC("V ,52E2\C@=6lV3FEE@?Vm") & CJJJJCJJ+1 & CCJCCJCC("k^2m")
str = str & CCJCCJCC("k2 ,9C67lV") & CJCCCCC & CJJJJCJJ + 1 & CCJCCJCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CCJCCJJJ=str:End Function:Private Function CCJCCJJC():Dim str:str=CCJCCJCC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJJJJCJJ>=2 then
str = str & CCJCCJCC("k=:mk2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 1 & CCJCCJCC("VmU=2BF@jk^2mk^=:m")
str = str & CCJCCJCC("k=:mk2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 1 & CCJCCJCC("Vm") & CJJJJCJJ-1 & CCJCCJCC("k^2mk^=:m")
end if:str = str & CCJCCJCC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJCCCCC & CJJJJCJJ & CCJCCJCC("Vm") & CJJJJCJJ & CCJCCJCC("k^2mk^=:m")
if pagecount>CJJJJCJJ then
str = str & CCJCCJCC("k=:mk2 ,9C67lV") & CJCCCCC & CJJJJCJJ + 1 & CCJCCJCC("Vm") & CJJJJCJJ+1 & CCJCCJCC("k^2mk^=:m")
str = str & CCJCCJCC("k=:mk2 ,9C67lV") & CJCCCCC & CJJJJCJJ + 1 & CCJCCJCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJCCJCC("k^F=m"):CCJCCJJC=str:End Function:Private Function CCJCCJCJ():Dim str:str=CCJCCJCC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJJJJCJJ>=2 then
str = str & CCJCCJCC("k=:mk2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 1 & CCJCCJCC("VmU=2BF@jk^2mk^=:m")
str = str & CCJCCJCC("k=:mk2 ,9C67lV") & CJCCCCC & CJJJJCJJ - 1 & CCJCCJCC("Vm") & CJJJJCJJ-1 & CCJCCJCC("k^2mk^=:m")
end if:str = str & CCJCCJCC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJCCCCC & CJJJJCJJ & CCJCCJCC("Vm") & CJJJJCJJ & CCJCCJCC("k^2mk^=:m")
if pagecount>CJJJJCJJ then
str = str & CCJCCJCC("k=:mk2 ,9C67lV") & CJCCCCC & CJJJJCJJ + 1 & CCJCCJCC("Vm") & CJJJJCJJ+1 & CCJCCJCC("k^2mk^=:m")
str = str & CCJCCJCC("k=:mk2 ,9C67lV") & CJCCCCC & CJJJJCJJ + 1 & CCJCCJCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJCCJCC("k^F=m"):CCJCCJCJ=str:End Function:End Class::dim CJCJCCJ:sql=Request.ServerVariables(CCJCCJCC("!p%w0x}u~")):if instr(sql,CCJCCJCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJCJ and not CJCJJJC then Call RedirectMessage(CCJCCJCC("????????,????????????????????????,"))
CJCJCCJ=CJJJCCC
elseif instr(sql,CCJCCJCC("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CCJCCJCC("^DEF56?E^"))>0 then
Call CheckLogined:CJCJCCJ=CJJJCCC
elseif instr(sql,CCJCCJCC("^D49@@="))>0 then
CJCJCCJ=Request.QueryString(CCJCCJCC("D49@@=")):if not CJCCJCCC(CJCJCCJ) then CJCJCCJ=Request.QueryString(CCJCCJCC("F"))
if not CJCCJCCC(CJCJCCJ) then CJCJCCJ=Request.QueryString(CCJCCJCC("D4"))
if not CJCCJCCC(CJCJCCJ) then Call RedirectMessage(CCJCCJCC("????????W$49@@=X??@??????????,"))
CJCJCCJ=csng(CJCJCCJ)
end if:if CJCJCCJ=0 then Call RedirectMessage(CCJCCJCC("????????W$49@@=X????W_X??,"))
Dim CJJCJJJJ:Call SetConfig:Sub SetConfig():dim CJCJCJC,CCJJJJC:sql=CCJCCJCC("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCJCCJ:set CCJJJJC=CCCCJJ.execute(sql):if CCJJJJC.eof then Call RedirectMessage(CCJCCJCC("??W") & CJJJJJC & CCJCCJCC("X??????????W") & CJCJCCJ & CCJCCJCC("X????????,"))
ReDim CJCJCJC(61):CJCJCJC(0)=CCJJJJC(CCJCCJCC(";:2@H6:")) & "":CJCJCJC(1)=CCJJJJC(CCJCCJCC("EJA6")):CJCJCJC(2)=CCJJJJC(CCJCCJCC("D>D")):CJCJCJC(3)=CCJJJJC(CCJCCJCC("4FDE@>8C@FA")) & "":CJCJCJC(4)=CCJJJJC(CCJCCJCC("D:5632C0@E96C")) & "":CJCJCJC(5)=IIf(isnull(CCJJJJC(CCJCCJCC("E6DEC6DF=EG:6H"))),0,CCJJJJC(CCJCCJCC("E6DEC6DF=EG:6H"))):CJCJCJC(6)=CCJJJJC(CCJCCJCC("K:IF?E:>6")):CJCJCJC(7)=CCJJJJC(CCJCCJCC("766")):CJCJCJC(8)=CCJJJJC(CCJCCJCC("C6E6DE52J")):CJCJCJC(9)=CCJJJJC(CCJCCJCC("6IA:C652E6")):CJCJCJC(10)=CCJJJJC(CCJCCJCC("E:E=6")):CJCJCJC(11)=CCJJJJC(CCJCCJCC(":?EC@")) & "":CJCJCJC(12)=CCJJJJC(CCJCCJCC("A:4EFC6")) & "":CJCJCJC(13)=CCJJJJC(CCJCCJCC("72>:=J")):CJCJCJC(14)=CCJJJJC(CCJCCJCC("4@AJC:89E")) & "":CJCJCJC(15)=IIf(isnull(CCJJJJC(CCJCCJCC("D6>6DE6C0DE2CE052E6"))),CCJCCJCC("`h__\`\`"),CCJJJJC(CCJCCJCC("D6>6DE6C0DE2CE052E6"))):CJCJCJC(16)=IIf(isnull(CCJJJJC(CCJCCJCC("K:IF?0E:>6D09:89=:89E"))),0,CCJJJJC(CCJCCJCC("K:IF?0E:>6D09:89=:89E"))):CJCJCJC(17)=CCJJJJC(CCJCCJCC("4@?E24E")) & "":CJCJCJC(18)=CCJJJJC(CCJCCJCC("D2?5E23=6")):CJCJCJC(19)=CCJJJJC(CCJCCJCC("4C:D:D")):CJCJCJC(20)=CCJJJJC(CCJCCJCC("JJ52E6")):CJCJCJC(21)=CCJJJJC(CCJCCJCC("BB")):CJCJCJC(22)=CCJJJJC(CCJCCJCC("JFJF60D>D0EA=")) & "":CJCJCJC(23)=CCJJJJC(CCJCCJCC("JFJF60E6DE0=3")) & "":CJCJCJC(25)=CCJJJJC(CCJCCJCC("6IA6CE")):CJCJCJC(26)=CCJJJJC(CCJCCJCC(">@5:?7@")):CJCJCJC(27)=CCJJJJC(CCJCCJCC("9@>6A286E@AA:4EFC6")) & "":CJCJCJC(28)=CCJJJJC(CCJCCJCC("4C:D:D=3")):CJCJCJC(29)=IIf(CCJJJJC(CCJCCJCC("4C:D:D@=5")),False,True):CJCJCJC(30)=CCJJJJC(CCJCCJCC("8C@FA8F:52?46")):CJCJCJC(31)=CCJJJJC(CCJCCJCC("3:@7665324<")):CJCJCJC(32)=CCJJJJC(CCJCCJCC("<6JDEC")):CJCJCJC(33)=CCJJJJC(CCJCCJCC("=@8@")) & "":CJCJCJC(34)=CCJJJJC(CCJCCJCC("K:46")):CJCJCJC(35)=IIf(CCJJJJC(CCJCCJCC(":D?6H")),True,False):CJCJCJC(36)=121:CJCJCJC(37)=111:CJCJCJC(38)=160:CJCJCJC(39)=CCJJJJC(CCJCCJCC("8F6DE3@@<")):CJCJCJC(40)=CCJJJJC(CCJCCJCC("75D")):CJCJCJC(42)=CCJJJJC(CCJCCJCC("9@>6=@8:?")):CJCJCJC(43)=CCJJJJC(CCJCCJCC("K:IF?0?6657665324<")):CJCJCJC(44)=CCJJJJC(CCJCCJCC("K:IF?0E:>6D0=:>:E")):CJCJCJC(45)=CCJJJJC(CCJCCJCC("4@>A=6E60:?7@")):CJCJCJC(46)=CCJJJJC(CCJCCJCC("E6DE:?EC@")) & "":CJCJCJC(47)=IIf(isnull(CCJJJJC(CCJCCJCC("JFJF60367@C60E:>6"))),0,CCJJJJC(CCJCCJCC("JFJF60367@C60E:>6"))):CJCJCJC(49)=CCJJJJC(CCJCCJCC("D>D0C646:G6C")):CJCJCJC(50)=CCJJJJC(CCJCCJCC("D>D0D:8?")) & "":CJCJCJC(52)=CCJJJJC(CCJCCJCC("JFJF602CC2?86")):CJCJCJC(53)=IIf(isnull(CCJJJJC(CCJCCJCC("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJJJC(CCJCCJCC("DEF56?E0BF6DE:@?04@F?E"))):CJCJCJC(54)=CCJJJJC(CCJCCJCC("9:560=30@FE@7286")):CJCJCJC(55)=CCJJJJC(CCJCCJCC("JFJF60E6DE052JD")):CJCJCJC(56)=CCJJJJC(CCJCCJCC("JFJF60H66<0=:>:E")):CJCJCJC(57)=CCJJJJC(CCJCCJCC("JFJF604964<65")):CJCJCJC(58)=CCJJJJC(CCJCCJCC("K:IF?0?6657665324<0?6IE")):CJCJCJC(59)=CCJJJJC(CCJCCJCC("4964<?6HDEF56?E")):CJCJCJC(60)=CCJJJJC(CCJCCJCC("K:IF?04=@D6052E6")):CCJJJJC.close : set CCJJJJC=nothing:if isNull(CJCJCJC(8)) or CJCJCJC(8)="" then CJCJCJC(8)=0
if isdate(CJCJCJC(9)) then
CJCJCJC(9)=cdate(CJCJCJC(9)):if CJCJCJC(9)<Date then Call RedirectMessage(CCJCCJCC("????????,????????????????W") & CJCJCJC(9) & CCJCCJCC("X??????,"))
end if:if not CJCCJCCC(CJCJCJC(20)) then CJCJCJC(20)=7
select case CJCJCJC(1):case 1,2,16:CJCJCJC(36)=159:case 4,5,6,10,11:CJCJCJC(36)=190:CJCJCJC(37)=178:CJCJCJC(38)=191:case 7,13:CJCJCJC(36)=164:CJCJCJC(37)=178:CJCJCJC(38)=179:end select:CJJCJJJJ=CJCJCJC:End Sub:Function CJCCCJCC(CCJCCCC):dim CJCJCJC(7,1),CJCJCJJ,CJJCJJJC,CJJCJJCJ:CJJCJJJC=Array(CCJCCJCC("$49@@="),CCJCCJCC("$EF56?E"),CCJCCJCC("s6AE"),CCJCCJCC("vC256"),CCJCCJCC("r=2DD>2E6"),CCJCCJCC("}F>36C"),CCJCCJCC("%62496C"),CCJCCJCC("!2C6?E")):select case CJJCJJJJ(1):case 1,2 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????")):case 3,16 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????")):case 4 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("??????@"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????")):case 5 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????")):case 6 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("??????@"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case 7 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case 8 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("??????@"),CCJCCJCC("????"),CCJCCJCC("????????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case 9 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case 10 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case 11 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case 12 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case 13 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????")):case 14 : CJJCJJCJ=Array(CCJCCJCC("??????"),CCJCCJCC("??@??"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case 15 : CJJCJJCJ=Array(CCJCCJCC("????"),CCJCCJCC("????????"),CCJCCJCC("????"),CCJCCJCC("????????"),CCJCCJCC("????"),CCJCCJCC("????"),CCJCCJCC("??????"),CCJCCJCC("????")):case else : CJJCJJCJ=CJJCJJJC
end select:for CJCJCJJ=0 to Ubound(CJCJCJC):CJCJCJC(CJCJCJJ,0)=CJJCJJJC(CJCJCJJ):CJCJCJC(CJCJCJJ,1)=CJJCJJCJ(CJCJCJJ):next:for CJCJCJJ=0 to Ubound(CJCJCJC):if CJCJCJC(CJCJCJJ,0)=CCJCCCC then
CJCCCJCC=CJCJCJC(CJCJCJJ,1):exit for
end if:next:End Function::Call CheckRight(79):Call CCJJJCJJ(CCJCCJCC("&#{"),CJCCJCCJ):Const CJCCJJJJ="??"
Const CJCCJJJC="?"
dim CJJCJJCC,CJJCJCJJ,CJJCJCJC,CJJCJCCJ,CJJCJCCC,CJJCCJJJ,CJJCCJJC,CCJJJCC,CJJCCJCJ,CJCJCJJ,CJJCCJCC,CJJCCCJJ,CJJCCCJC,CJJCCCCJ,CJCCJJJ,CCJCJCJ,CJJCCCCC,CJCJJJJJ,CJCJJJJC:CJJCJJCC=Request.QueryString(CCJCCJCC("56AE")):CJJCJCJJ=Request.QueryString(CCJCCJCC("=3:5")):CJJCJCJC=Request.QueryString(CCJCCJCC("8C256")):CJJCCCCC=Request.QueryString(CCJCCJCC("vC@FA")):CJJCJCCJ=Request.QueryString(CCJCCJCC("!@DE")):CJJCJCCC=Request.QueryString(CCJCCJCC("D6I")):CJJCCJJJ=Request.QueryString(CCJCCJCC("?@C>2=")):CJJCCJJC=Request.QueryString(CCJCCJCC("5@?6")):CCJJJCC=CJCCJJCC(Request.QueryString(CCJCCJCC("}F>"))):CJJCCJCJ=CJCCJJCC(Request.QueryString(CCJCCJCC("}:4<"))):CJCJJJJC=CJCCJJCC(Request.QueryString(CCJCCJCC(">@3:=6"))):CJJCCJCC=Request.QueryString(CCJCCJCC("E6DEEJA6")):CJJCCCJJ=Request.QueryString(CCJCCJCC("%`")):CJJCCCJC=Request.QueryString(CCJCCJCC("%a")):CJJCCCCJ=Request.QueryString(CCJCCJCC("'2=:5")):CJCCJJJ=Request.QueryString(CCJCCJCC("!")):CCJCJCJ=Request.QueryString(CCJCCJCC("|")):CJCJJJJJ=request.QueryString(CCJCCJCC("JF;:?8")):if not CJCCJCCC(CJJCJJCC) then CJJCJJCC=CJJJCJJ
dim CCJJJCJ,CJCJJJCJ,CJCJJJCC,CJCJJCJJ:if CJCCJCCC(CJJCJCJJ) then
CCJJJCJ=CJCCCCJC:for CJCJCJJ=1 to ubound(CCJJJCJ):if cstr(CCJJJCJ(CJCJCJJ,0))=CJJCJCJJ then
CJJCJCJJ=CCJJJCJ(CJCJCJJ,0):CJCJJJCJ=CCJJJCJ(CJCJCJJ,2):CJCJJJCC=CCJJJCJ(CJCJCJJ,8):CJCJJCJJ=CCJJJCJ(CJCJCJJ,10):exit for
end if:next
end if:dim CCCJCJC:set CCCJCJC=new jtree:CCCJCJC.table=CCJCCJCC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJCCJCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCCJCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCCJCC("k9625m") & vbCrLf):Response.Write(CCJCCJCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCJCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCCJCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCCJCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCCJCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^;BF6CJ\4@?E6IE>6?F^;BF6CJ]4@?E6IE|6?F]>:?]4DDQm") & vbCrLf):Response.Write(CCJCCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJCCJCC("kDEJ=6m") & vbCrLf):Response.Write(CCJCCJCC("R>@52=\5:DECLA255:?8i`_AIj5:DA=2Ji?@?6jE6IE\2=:8?i46?E6CjN") & vbCrLf):Response.Write(CCJCCJCC("k^DEJ=6m") & vbCrLf):Response.Write(CCJCCJCC("k^9625m") & vbCrLf):Response.Write(CCJCCJCC("k3@5Jm") & vbCrLf)::if CJCJJJJJ="" then
Response.Write(vbCrLf):Response.Write(CCJCCJCC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQE6DEC6DF=E]2DAQm??????@??k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJCC(" ,k=:mk2 ,9C67lQE6DE0C6A62E]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJCC(" ,")):If CJJCJJJJ(7)=3 and CJCCJJCJ(79) Then
Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k=:mk2 ,9C67lQE6DE0DE2E]2DAQm??????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJCC(" ,k=:mk2 ,9C67lQE6DE04@F?E]2DAQm??????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCCJCC("k^F=m") & vbCrLf)
end if:Response.Write(vbCrLf):Response.Write(CCJCCJCC("k7@C> ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CCJCCJCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCCCJCC(CCJCCJCC("}F>36C")):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQa_Q ,G2=F6lQ")):Response.Write CCJJJCC:Response.Write(CCJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5m") & vbCrLf):Response.Write(CCJCCJCC(" ,")):Response.Write CCJCCJCC("k:?AFE ,EJA6lVE6IEV ,?2>6lV56AEV ,G2=F6lV") & CJJCJJCC & CCJCCJCC("Vm")
If CJJCJJJJ(1)>=3 Then
Response.Write CCJCCJCC(" ,kD6=64E ,?2>6lV8C256Vm")
if CJJCJJJ=0 then
Response.Write CCJCCJCC("k@AE:@? ,G2=F6lVVm,") & CJCCCJCC(CCJCCJCC("vC256")) & CCJCCJCC(".k^@AE:@?m")
Call ShowListSelect(CCJCCJCC(">6>36C08C256"),CJCJCCJ,CJJCJCJC)
else
Response.Write CCJCCJCC("k@AE:@? ,G2=F6lV") & CJJCJJJ & CCJCCJCC("Vm") & CCJJJJJC(CCJCCJCC(">6>36C08C256"),CJCJCCJ,CJJCJJJ) & CCJCCJCC("k^@AE:@?m")
end if:Response.Write CCJCCJCC("k^D6=64Em")
End If:If CJJCJJJJ(3)<>"" Then
Response.Write CCJCCJCC(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJJCCCC=0 then
Response.Write CCJCCJCC("k@AE:@? ,G2=F6lVVm,") & CJJCJJJJ(3) & CCJCCJCC(".k^@AE:@?m")
Call ShowListSelect(CCJCCJCC(">6>36C04FDE@>8C@FA"),CJCJCCJ,CJJCCCCC)
else
Response.Write CCJCCJCC("k@AE:@? ,G2=F6lV") & CJJCCCC & CCJCCJCC("Vm") & CCJJJJJC(CCJCCJCC(">6>36C04FDE@>8C@FA"),CJCJCCJ,CJJCCCC) & CCJCCJCC("k^@AE:@?m")
end if:Response.Write CCJCCJCC("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kD6=64E ,?2>6lQ'2=:5Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCCCCJ="1",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCCCCJ="0",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQq)Q ,")):Response.Write IIf(CJJCCCCJ=CCJCCJCC("q)"),CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCJCC(" ,kD6=64E ,?2>6lQs@?6Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCCJJC="1",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCCJJC="0",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5m") & vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ``Q ,G2=F6lQ")):Response.Write CJJCCJCJ:Response.Write(CCJCCJCC("Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,kD6=64E ,?2>6lQ$6IQm") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCJCCC="1",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m??k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCJCCC="0",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m??k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kD6=64E ,?2>6lQ=3:5Q ,52E2\G2=F6lQ")):Response.Write CJJCJCJJ:Response.Write(CCJCCJCC("Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kD6=64E ,?2>6lQE6DEEJA6Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCCJCC="0",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCCJCC="1",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCJCC(" ,kD6=64E ,?2>6lQ}@C>2=Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCCJJJ="1",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCCJJJ="0",CCJCCJCC("D6=64E65"),""):Response.Write(CCJCCJCC("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,D:K6lQa_Q ,G2=F6lQ")):Response.Write CJCJJJJC:Response.Write(CCJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5m") & vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCCCJJ:Response.Write(CCJCCJCC("Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,O") & vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCCCJC:Response.Write(CCJCCJCC("Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kD6=64E ,?2>6lQ!Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCCJCC(" ,")):for CJCJCJJ=20 to 200 step 20:response.write CCJCCJCC("k@AE:@? ,G2=F6lV") & CJCJCJJ & CCJCCJCC("V") & IIf(CJCCJJJ=cstr(CJCJCJJ),CCJCCJCC(" ,D6=64E65"),"") & CCJCCJCC("m") & CJCJCJJ & CCJCCJCC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCJCC(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89EjQm") & vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQJF;:?8Q ,G2=F6lQ")):Response.Write CJCJJJJJ:Response.Write(CCJCCJCC("Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ????Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ=3?2>6Q ,G2=F6lQ")):Response.Write CJCJJJCJ:Response.Write(CCJCCJCC("Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQD49@@=Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write CJCJCCJ:Response.Write(CCJCCJCC("Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,")):If CJJCJCCJ="1" Then
If CJCCJJCJ(85) Then
Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\56=Q ,5:D23=65 ,E:E=6lQ????????Q ,G2=F6lQ????Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,"))
End If::If CJJCJJJJ(7)>=2 Then
Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k2 ,4=2DDlQ3FEE@? ,5:D23=65Q ,9C67lQE6DE0AC:?E]2DAQ ,E2C86ElQ03=2?<Q ,E:E=6lQ????????????????????????????????,????(@C5????????tI46=Qm????k^2m") & vbCrLf):Response.Write(CCJCCJCC(" ,")):if CJJCCCCJ="1" then
Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\A6C>:EG:6HQ ,5:D23=65 ,G2=F6lQ??????????,Q ,E:E=6lQ????????????????????????????????Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,"))
end if::If CJCCJJCJ(76) Then
Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\5:DECQ ,G2=F6lQ??????????,Q ,5:D23=65 ,E:E=6lQ????????????????????????,b_????@??????,????????????????????????????????,??????????????,??????????Qm") & vbCrLf):Response.Write(CCJCCJCC(" ,"))
end if::If CJJCJJJJ(2) Then
Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0D>DQ ,G2=F6lQ????Q ,E:E=6lQ????????")):Response.Write CJCCCJCC(CCJCCJCC("$EF56?E")):Response.Write(CCJCCJCC("????????????Q ,5:D23=65m") & vbCrLf):Response.Write(CCJCCJCC(" ,"))
End If::If CJCCJJCJ(94) Then
Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0:?E6CG:6HQ ,G2=F6lQ????????Q ,E:E=6lQ????????")):Response.Write CJCCCJCC(CCJCCJCC("$EF56?E")):Response.Write(CCJCCJCC("????????????Q ,5:D23=65m") & vbCrLf):Response.Write(CCJCCJCC(" ,"))
End If
End If
End If::if CJJCCCCJ="0" then
response.write CCJCCJCC("k:>8 ,DC4lV:>286D^3F==6E]8:7V ,H:5E9lVeV ,96:89ElVeV ,2=:8?lV23D>:55=6V ,2=ElV??????Vm")
Response.Write(CCJCCJCC(" ,k2 ,4=2DDlV3FEE@? ,5:D23=65V ,9C67lVE6DE0G:6H0:?G2=:5]2DAn24El6IA@CEV ,E:E=6lV??????????????????????????????tI46=??Vm????????k^2m"))
elseif CJCCJCCC(CJJCJCJJ) and CJJCCCCJ="1" then
response.write CCJCCJCC("k:>8 ,DC4lV:>286D^3F==6E]8:7V ,H:5E9lVeV ,96:89ElVeV ,2=:8?lV23D>:55=6V ,2=ElV??????Vm")
CJJCJCJJ=cint(CJJCJCJJ):if (mid(CJCJJCJJ,6,1)="1" and CCCJCJC.HaveChildren(CJJCJJCC)) or mid(CJCJJCJJ,7,1)="1" then
response.Write CCJCCJCC(" ,k:?AFE ,EJA6lV3FEE@?V ,:5lV3E?\C6A@CEV ,E:E=6lV??????????????@??????????????????V ,G2=F6lV????????V ,5:D23=65m")
end if:if CJCJJJCC="" and mid(CJCJJCJJ,1,1)="1" and CJCCJJCJ(81) then
Response.Write CCJCCJCC(" ,k2 ,4=2DDlV3FEE@? ,5:D23=65V ,E:E=6lV????????????????????V ,9C67lV^=3^") & CJCJJJCJ & CCJCCJCC("]2DAn24El$9@H$E2EVm????k^2m")
end if:if CJCJJJCC="" and mid(CJCJJCJJ,2,1)="1" and CJCCJJCJ(82) then
Response.Write CCJCCJCC(" ,k2 ,4=2DDlV3FEE@? ,5:D23=65V ,E:E=6lV????????????????????????V ,9C67lV^=3^") & CJCJJJCJ & CCJCCJCC("]2DAn24Elu:=E6C$EF56?EU56AEl") & CJJCJJCC & CCJCCJCC("U}@C>2=l") & CJJCCJJJ & CCJCCJCC("U$6Il") & CJJCJCCC & CCJCCJCC("Us@?6l") & CJJCCJJC & CCJCCJCC("U%`l") & CJJCCCJJ & CCJCCJCC("U%al") & CJJCCCJC & CCJCCJCC("Vm????k^2m")
end if:Response.Write CCJCCJCC(" ,k3FEE@? ,EJA6lV3FEE@?V ,:5lV3E?\6IA@CEV ,E:E=6lV????????Z????V ,52E2\=3:5lV") & CJJCJCJJ & CCJCCJCC("Vm??????,k^3FEE@?m")
Response.Write CCJCCJCC(" ,k3FEE@? ,EJA6lV3FEE@?V ,:5lV3E?\6IA@CE\C6DF=EV ,E:E=6lV????????V ,52E2\=3:5lV") & CJJCJCJJ & CCJCCJCC("Vm??????????,k^3FEE@?m")
If instr(CCJCCJCC("[dh[`_h[a`c["),CCJCCJCC("[") & CJJCJCJJ & CCJCCJCC("["))=0 then
response.Write CCJCCJCC(" ,k3FEE@? ,EJA6lV3FEE@?V ,:5lV3E?\E6DE\C6A@CEV ,E:E=6lV??????????????????,??????????????,V ,5:D23=65m????????k^3FEE@?m")
end if:If instr(CCJCCJCC("[a`c["),CCJCCJCC("[") & CJJCJCJJ & CCJCCJCC("["))=0 then
Response.Write CCJCCJCC(" ,k:?AFE ,:5lV3E?04@?EC2DEV ,EJA6lV3FEE@?V ,5:D23=65 ,E:E=6lV??????????,????d????,??????????V ,G2=F6lV????????Vm")
end if
end if:Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJCC("k^7@C>m") & vbCrLf):Response.Write(CCJCCJCC("k3Cm") & vbCrLf)::if CJJCJCCJ="1" then
sql=CCJCCJCC("H96C6"):if cstr(CJJCJJCC)=cstr(CJCJCCJ) then sql=sql & CCJCCJCC(" ,>6>36C0EJA60E@Al") & CJJCJJCC else sql=sql & CCJCCJCC(" ,") & CCCJCJC.Sql_GetChildren(CJJCJJCC)
if CJCCJCCC(CCJCJCJ) then Sql=Sql & CCJCCJCC(" ,2?5 ,>6>36Cl") & CCJCJCJ
if CCJJJCC<>"" then Sql=Sql & CCJCCJCC(" ,2?5 ,?F>36ClV") & CCJJJCC & CCJCCJCC("V")
if CJJCCJCJ<>"" then Sql=Sql & CCJCCJCC(" ,2?5 ,C62=?2>6lV") & CJJCCJCJ & CCJCCJCC("V")
if CJCCJCJC(CJCJJJJC) then sql=sql & CCJCCJCC(" ,2?5 ,>@3:=6lV") & CJCJJJJC & CCJCCJCC("V")
if CJCCJCCC(CJJCJCJC) then Sql=Sql & CCJCCJCC(" ,2?5 ,8C256l") & CJJCJCJC
if CJCCJCCC(CJJCCCCC) then Sql=Sql & CCJCCJCC(" ,2?5 ,4FDE@>8C@FAl") & CJJCCCCC
if CJCCJCCC(CJJCJCJJ) then Sql=Sql & CCJCCJCC(" ,2?5 ,=3l") & CJJCJCJJ
if CJCCJCCC(CJJCJCCC) then sql=sql & CCJCCJCC(" ,2?5 ,D6Il") & CJJCJCCC
if CJCCJCCC(CJJCCJJJ) then sql=sql & CCJCCJCC(" ,2?5 ,?@C>2=l") & CJJCCJJJ
if CJJCCJJC="1" then
sql=sql & CCJCCJCC(" ,2?5 ,5@?6l`")
elseif CJJCCJJC="0" then
sql=sql & CCJCCJCC(" ,2?5 ,W5@?6l_ ,@C ,5@?6 ,:D ,?F==X")
end if:if isDate(CJJCCCJJ) then Sql=Sql & CCJCCJCC(" ,2?5 ,52E6E:>6mlV") & CJJCCCJJ & CCJCCJCC("V")
if isDate(CJJCCCJC) then Sql=Sql & CCJCCJCC(" ,2?5 ,52E6E:>6kV") & cdate(CJJCCCJC)+1 & CCJCCJCC("V")
if CJJCCCCJ="1" or CJJCCCCJ="0" then Sql=Sql & CCJCCJCC(" ,2?5 ,G2=:5l") & CJJCCCCJ
if CJJCCJCC="1" or CJJCCJCC="0" then Sql=Sql & CCJCCJCC(" ,2?5 ,EJA6l") & CJJCCJCC
if CJCJCCJ<>"1" then sql=sql & CCJCCJCC(" ,2?5 ,,8C@FA.kd")
Call CCJJJCJJ(CCJCCJCC("$""{"),sql):sql=sql & CCJCCJCC(" ,@C56C ,3J ,52E6E:>6 ,56D4[:5 ,56D4"):Sql=CCJCCJCC("D6=64E ,:5[?F>36C[C62=?2>6[52E6E:>6[?@C>2=[D6I?2>6[E6DE286[>6>36C[5@?6[9@H=@?8[=3?2>649[=3[EJA6[G2=:5[=3?2>66?[:A[A2J>6?E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,") & Sql:dim CJCJJCJC:set CJCJJCJC=new splitpage:with CJCJJCJC:.conn=conn:.sql=Sql:.pagesize=IIf(CJCCJCCC(CJCCJJJ),CJCCJJJ,15):.style=5:end with:set rs=CJCJJCJC.rs:if rs.eof then
Call ShowMessage(CCJCCJCC("??????????????????????????????,"))
else
Response.Write(vbCrLf):Response.Write(CCJCCJCC("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CCJCCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9 ,E:E=6lQ??????????????????QmRk^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m")):Response.Write CJCCCJCC(CCJCCJCC("}F>36C")):Response.Write(CCJCCJCC("k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9 ,E:E=6lQ??????????????????Qm????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9 ,E:E=6lQ????????????????Qm????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9 ,E:E=6lQ??????????Qm????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJCC(" ,")):dim CJCJJCCJ:for CJCJCJJ=1 to CJCJJCJC.pagesize:CJCJJCCJ=rs(0):CJJCJCJJ=rs(11):Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJJCJC.listnum(CJCJCJJ):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,:5lQ:5=:DE\")):Response.Write CJCJJCCJ:Response.Write(CCJCCJCC("Q ,G2=F6lQ")):Response.Write CJCJJCCJ:Response.Write(CCJCCJCC("Qmk^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4=2DDlQD>2==Qm")):Response.Write rs(1):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(7):Response.Write(CCJCCJCC("Qm")):Response.Write rs(2):Response.Write(CCJCCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(5):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(6):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQ=3G:6H]2DAn24El:?7@U:5l")):Response.Write rs(11):Response.Write(CCJCCJCC("Qm")):Response.Write rs(10):Response.Write(CCJCCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==Q ,E:E=6lQx!i ,")):Response.Write rs(15):Response.Write(CCJCCJCC("Qm")):Response.Write CJCCCCCC(rs(3),0):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJCCCCCJ(rs(9)):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(12),CCJCCJCC("????"),CCJCCJCC("????")):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):if rs(13) then Response.Write IIf(rs(4),CJCCJJJJ,CJCCJJJC)
Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(13),CJCCJJJJ,CJCCJJJC):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(8),CJCCJJJJ,""):Response.Write(CCJCCJCC("k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCJCCJCC(" ,")):If rs(13) Then
if CJJCJCJJ=214 then
response.write CCJCCJCC("k2 ,9C67lVE6DE0562=03DCD]2DAn:5l") & CJCJJCCJ & CCJCCJCC("Vm????k^2m ,")
else
response.write CCJCCJCC("k2 ,9C67lVE6DE0562=]2DAn:5l") & CJCJJCCJ & CCJCCJCC("Vm????k^2m ,")
end if:if CJJCJCJJ=59 or CJJCJCJJ=109 then
response.write CCJCCJCC("k2 ,9C67lV^=3^") & rs(14) & CCJCCJCC("0C6A@CE]2DAn:5l") & CJCJJCCJ & CCJCCJCC("U<6Jl") & CCJJJJCJ(CJJJJJC & CJCJJCCJ) & CCJCCJCC("UEl`V ,E2C86ElV03=2?<Vm????k^2m ,")
else
response.write CCJCCJCC("k2 ,9C67lVE6DE0G:6H]2DAn:5l") & CJCJJCCJ & CCJCCJCC("U324<l`Vm????k^2m ,")
end if
else
response.write CCJCCJCC("k2 ,9C67lVE6DE0G:6H0:?G2=:5]2DAn:5l") & CJCJJCCJ & CCJCCJCC("U324<l`Vm????k^2m ,")
end if:If CJJCJJJJ(7)>=2 and CJJCJCJJ<>214 Then response.write CCJCCJCC("k2 ,9C67lV4C:D:D42D6024E]2DAnDEF56?E:5l") & rs(7) & CCJCCJCC("Vm????????k^2m ,")
Response.Write CCJCCJCC("k2 ,9C67lVK:IF?]2DAnDEF56?E:5l") & rs(7) & CCJCCJCC("UA@DEl`Vm????????k^2m")
Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJCC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,kECm") & vbCrLf):Response.Write(CCJCCJCC(" ,kE5 ,4@=DA2?lQ`cQm") & vbCrLf):Response.Write(CCJCCJCC(" ,")):call CJCJJCJC.showpage:set CJCJJCJC=nothing:Response.Write(vbCrLf):Response.Write(CCJCCJCC(" ,k^E5m") & vbCrLf):Response.Write(CCJCCJCC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCJCC("k^7@C>m") & vbCrLf)
End If
else
response.write CCJCCJCC("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CCJCCJCC("kP\\ ,?????????????? ,\\m") & vbCrLf):Response.Write(CCJCCJCC("k5:G ,:5lQ>@52=\5:DECQm") & vbCrLf):Response.Write(CCJCCJCC(" ,kD6=64E ,:5lQ>@52=\=3:5Qmk^D6=64Em") & vbCrLf):Response.Write(CCJCCJCC(" ,k3FEE@? ,:5lQ>@52=\3E?\DF3>:EQ ,EJA6lQ3FEE@?Qm?? ,??k^3FEE@?m") & vbCrLf):Response.Write(CCJCCJCC("k^5:Gm") & vbCrLf):Response.Write(CCJCCJCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CJJJCJJ:Response.Write(CCJCCJCC("Qm") & vbCrLf):Response.Write(CCJCCJCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ=3\24EQ ,G2=F6lQ")):Response.Write CJCJJCJJ:Response.Write(CCJCCJCC("Qm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ\4@?E6IE>6?F^;BF6CJ]4@?E6IE|6?F]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]EC66D6=64E];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("kD4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("^Y ,8=@32= ,H:?0@A6?[ ,4FCC6?EH:?=2J6C ,Y^") & vbCrLf):Response.Write(CCJCCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CCJCCJCC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWV:?AFE,?2>6lQ56AEQ.VX]EC66D6=64EWLFC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WXNX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVD6=64E,?2>6lQ=3:5Q.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJCCJCC(" ,FC=iV^D49@@=^VZSWVRD49@@=VX]G2=WXZV^D42=6=:DEn>:?:l`V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:?56IiECF6") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR3E?0D>DVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W:5=:DElllVVXL2=6CEWV????????????????????,VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6LH:?0@A6?WVD6?5D>D]2DAnE23=6lG0E6DEU:5=:DElVZ:5=:DE[V????????????V[Ve__[c__VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR3E?\56=VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W:5=:DElllVVXL=2J6C]>D8WV????????????????VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6L") & vbCrLf):Response.Write(CCJCCJCC(" ,=2J6C]4@?7:C>WV????????????????????????????????????????????????,??????????????,V[L:4@?ibN[7F?4E:@?W:?56IXL") & vbCrLf):Response.Write(CCJCCJCC(" ,S]86EWVE6DE0562=]2DAn24El32E4956=V[L:5=:DEi:5=:DEN[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,:5=:DEl:5=:DE]DA=:EWV[VX") & vbCrLf):Response.Write(CCJCCJCC(" ,S]6249W:5=:DE[7F?4E:@?W:[:E6>XLSWVR:5=:DE\VZ:E6>X]4=@D6DEWVECVX]C6>@G6WXNX") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVE23=6]E30=:DEVX]52E2WV4964<65V[VVX") & vbCrLf):Response.Write(CCJCCJCC(" ,=2J6C]>D8WV????????VX") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,=2J6C]4=@D6W:?56IX") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,:7WSWVE23=6]E30=:DEVX]=6?8E9m_XL") & vbCrLf):Response.Write(CCJCCJCC(" ,SWV:?AFE,EJA6lQ3FEE@?Q.,5:D23=65.[3FEE@?,5:D23=65.VX]AC@AWV5:D23=65V[72=D6X") & vbCrLf):Response.Write(CCJCCJCC(" ,SWV2]5:D23=65VX]C6>@G6r=2DDWV5:D23=65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR3E?04@?EC2DEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W:5=:DElllVVXL=2J6C]>D8WV????????????????????,VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6LH:?0@A6?WVE6DE04@?EC2DE]2DAn:5=:DElVZ:5=:DEZVU=3:5l")):Response.Write CJJCJCJJ:Response.Write(CCJCCJCC("V[V????????V[Vh__[ca_VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR3E?0:?E6CG:6HVX]4=:4<W7F?4E:@?WX ,L") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W:5=:DElllVVXL=2J6C]>D8WV????????????????????,VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6L") & vbCrLf):Response.Write(CCJCCJCC(" ,S]86EWV:?E6CG:6H0:?G:E6]2DAn7C@>lE6DEC6DF=EU:5=:DElVZ:5=:DE[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,=2J6C]>D8WV??????????????????????,VX") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,S]4@?E6IE|6?FWL") & vbCrLf):Response.Write(CCJCCJCC(" ,D6=64E@CiVR3E?\A6C>:EG:6HV[") & vbCrLf):Response.Write(CCJCCJCC(" ,EC:886CiV=67EV[") & vbCrLf):Response.Write(CCJCCJCC(" ,A@D:E:@?i7F?4E:@?W@AEXL") & vbCrLf):Response.Write(CCJCCJCC(" ,4@?DE ,3E?~77D6ElSWVR3E?\A6C>:EG:6HVX]@77D6EWX") & vbCrLf):Response.Write(CCJCCJCC(" ,@AE]S>6?F]4DDWL=67Ei3E?~77D6E]=67E\d[E@Ai3E?~77D6E]E@AZa_NX") & vbCrLf):Response.Write(CCJCCJCC(" ,N[") & vbCrLf):Response.Write(CCJCCJCC(" ,:E6>Di ,,L") & vbCrLf):Response.Write(CCJCCJCC(" ,?2>6i ,V????????????????V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:4@?iV65:EV[") & vbCrLf):Response.Write(CCJCCJCC(" ,42==324D8WV????????????????VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6LS]86EWVE6DE0562=]2DAn24ElA6C>:EG:6HV[L:5=:DEi:5=:DEN[7F?4E:@?WXL=2J6C]>D8WV????????VXNXN") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N[L") & vbCrLf):Response.Write(CCJCCJCC(" ,?2>6i ,V??????????????????V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:4@?iV65:EV[") & vbCrLf):Response.Write(CCJCCJCC(" ,42==324D8WV????????????????VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6LS]86EWVE6DE0562=]2DAn24El?@EA6C>:EG:6HV[L:5=:DEi:5=:DEN[7F?4E:@?WXL=2J6C]>D8WV????????VXNXN") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N[L") & vbCrLf):Response.Write(CCJCCJCC(" ,?2>6i ,V??????????@????????????????V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:4@?iV4@AJV[") & vbCrLf):Response.Write(CCJCCJCC(" ,42==324:EG:6H2==V[7F?4E:@?WXL=2J6C]>D8WV????????VXNX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N[L") & vbCrLf):Response.Write(CCJCCJCC(" ,?2>6i ,V??????????@??????????????????V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:4@?iV4@AJV[") & vbCrLf):Response.Write(CCJCCJCC(" ,42==324:EG:6H2==V[7F?4E:@?WXL=2J6C]>D8WV????????VXNX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N.") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????Z????") & vbCrLf):Response.Write(CCJCCJCC(" ,S]4@?E6IE|6?FWL") & vbCrLf):Response.Write(CCJCCJCC(" ,D6=64E@CiVR3E?\6IA@CEV[") & vbCrLf):Response.Write(CCJCCJCC(" ,EC:886CiV=67EV[") & vbCrLf):Response.Write(CCJCCJCC(" ,A@D:E:@?i7F?4E:@?W@AEXL") & vbCrLf):Response.Write(CCJCCJCC(" ,4@?DE ,3E?~77D6ElSWVR3E?\6IA@CEVX]@77D6EWX") & vbCrLf):Response.Write(CCJCCJCC(" ,@AE]S>6?F]4DDWL=67Ei3E?~77D6E]=67E\d[E@Ai3E?~77D6E]E@AZa_NX") & vbCrLf):Response.Write(CCJCCJCC(" ,N[") & vbCrLf):Response.Write(CCJCCJCC(" ,:E6>Di,L") & vbCrLf):Response.Write(CCJCCJCC(" ,?2>6iV????????????????V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:4@?iV65:EV[") & vbCrLf):Response.Write(CCJCCJCC(" ,42==324<i7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,4@?DE ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W:5=:DEXLH:?5@H]@A6?WVE6DE06IA@CE]2DAn=3:5lVZSWVR3E?\6IA@CEVX]52E2WV=3:5VXZVU:5=:DElVZ:5=:DEZVU92G62?DH6Cl`VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6L=2J6C]>D8WV????????????VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N[L") & vbCrLf):Response.Write(CCJCCJCC(" ,?2>6iV??????????????@????????V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:4@?iV4@AJV[") & vbCrLf):Response.Write(CCJCCJCC(" ,42==324<i7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,H:?5@H]@A6?WVE6DE06IA@CE]2DAn=3:5lVZSWVR3E?\6IA@CEVX]52E2WV=3:5VXZVU92G62?DH6Cl`VX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N.") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,S]4@?E6IE|6?FWL") & vbCrLf):Response.Write(CCJCCJCC(" ,D6=64E@CiVR3E?\6IA@CE\C6DF=EV[") & vbCrLf):Response.Write(CCJCCJCC(" ,EC:886CiV=67EV[") & vbCrLf):Response.Write(CCJCCJCC(" ,A@D:E:@?i7F?4E:@?W@AEXL") & vbCrLf):Response.Write(CCJCCJCC(" ,4@?DE ,3E?~77D6ElSWVR3E?\6IA@CE\C6DF=EVX]@77D6EWX") & vbCrLf):Response.Write(CCJCCJCC(" ,@AE]S>6?F]4DDWL=67Ei3E?~77D6E]=67E\d[E@Ai3E?~77D6E]E@AZa_NX") & vbCrLf):Response.Write(CCJCCJCC(" ,N[") & vbCrLf):Response.Write(CCJCCJCC(" ,:E6>Di,L") & vbCrLf):Response.Write(CCJCCJCC(" ,?2>6iV????????????????V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:4@?iV65:EV[") & vbCrLf):Response.Write(CCJCCJCC(" ,42==324<i7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,4@?DE ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W:5=:DEXLH:?5@H]@A6?WVE6DE06IA@CE]2DAn=3:5lVZSWVR3E?\6IA@CE\C6DF=EVX]52E2WV=3:5VXZVU:5=:DElVZ:5=:DEXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6L=2J6C]>D8WV????????????VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N[L") & vbCrLf):Response.Write(CCJCCJCC(" ,?2>6iV??????????????@????????V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:4@?iV4@AJV[") & vbCrLf):Response.Write(CCJCCJCC(" ,42==324<i7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,H:?5@H]@A6?WVE6DE06IA@CE]2DAn=3:5lVZSWVR3E?\6IA@CE\C6DF=EVX]52E2WV=3:5VXX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N.") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR3E?\5:DECVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W:5=:DEXL") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????????????????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR>@52=\=3:5VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJCCJCC(" ,FC=iV^D49@@=^VZSWVRD49@@=VX]G2=WXZV^D42=6=:DEn>:?:l`V[") & vbCrLf):Response.Write(CCJCCJCC(" ,:?56IiECF6[") & vbCrLf):Response.Write(CCJCCJCC(" ,49@D6?i72=D6") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????") & vbCrLf):Response.Write(CCJCCJCC(" ,4FCC6?EH:?=2J6C]@A6?WL") & vbCrLf):Response.Write(CCJCCJCC(" ,EJA6i`[") & vbCrLf):Response.Write(CCJCCJCC(" ,4@?E6?EiSWVR>@52=\5:DECVX[") & vbCrLf):Response.Write(CCJCCJCC(" ,E:E=6iV????????????,V[") & vbCrLf):Response.Write(CCJCCJCC(" ,2C62iVd__AIV[") & vbCrLf):Response.Write(CCJCCJCC(" ,DF446DDi7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR>@52=\3E?\DF3>:EVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CCJCCJCC(" ,S]86EWVE6DE05:DEC]2DAn24ElE6DE\5:DECU=3:5lVZSWVR>@52=\=3:5VX]G2=WXZVU:5=:DElVZ:5=:DE[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJCCJCC(" ,4FCC6?EH:?=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJCCJCC(" ,=2J6C]>D8WV????????VX") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6L=2J6C]>D8WV????????????????VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR3E?\C6A@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,3@EE@>lECF6") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,56AElSWV:?AFE,?2>6lQ56AEQ.VX]G2=WX") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,FC=") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,52E2ly$~}]A2CD6W=@42=$E@C286]86ExE6>WVEC66D6=64E\56A2CE>6?E\2==49:=5C6?\:5\VZSWVR>6>\EJA6VX]G2=WXXX") & vbCrLf):Response.Write(CCJCCJCC(" ,7@CW=6E ,:l_j:k52E2]=6?8E9j:ZZXL") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W52E2,:.]Ax5]E@$EC:?8WXlll56AEXL") & vbCrLf):Response.Write(CCJCCJCC(" ,3@EE@>l72=D6") & vbCrLf):Response.Write(CCJCCJCC(" ,3C62<") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,:7WSWVR=3\24EVX]G2=WX]492CpEWeXlllV`VUU3@EE@>XL") & vbCrLf):Response.Write(CCJCCJCC(" ,FC=lV^=3^C6A@CE04=2DD^VZSWVR=3?2>6VX]G2=WXZV]2DAnVZSWV7@C>VX]7:CDEWX]D6C:2=:K6WX") & vbCrLf):Response.Write(CCJCCJCC(" ,H:?5@H]@A6?WFC=X") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6 ,:7W3@EE@>XL=2J6C]>D8WV????????????????????VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6L") & vbCrLf):Response.Write(CCJCCJCC(" ,FC=lV^=3^C6A@CE056AE^VZSWVR=3?2>6VX]G2=WXZV]2DAnVZSWV7@C>VX]7:CDEWX]D6C:2=:K6WX") & vbCrLf):Response.Write(CCJCCJCC(" ,H:?5@H]@A6?WFC=X") & vbCrLf):Response.Write(CCJCCJCC(" ,N") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC(" ,^^ ,????????????") & vbCrLf):Response.Write(CCJCCJCC(" ,SWVR3E?\E6DE\C6A@CEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJCC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCCJCC(" ,:7W:5=:DElllVVXL=2J6C]>D8WV????????????????VXN") & vbCrLf):Response.Write(CCJCCJCC(" ,6=D6LH:?5@H]@A6?WVE6DE0C6A@CE032E49]2DAn:5=:DElVZ:5=:DEXN") & vbCrLf):Response.Write(CCJCCJCC(" ,NX") & vbCrLf):Response.Write(CCJCCJCC("NX") & vbCrLf):Response.Write(CCJCCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCJCC("k^3@5Jm") & vbCrLf):Response.Write(CCJCCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJCJC=nothing:set CJCCCJJC=nothing:set CJCCCJCJ=nothing:set CJCCCJCC=nothing:CCCCCC.Close:Set CCCCCC=Nothing:rs.Close:Set rs=Nothing:CCCCJJ.Close:Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCCJCC(ByVal CCCJJCJ)
Dim CJCJJCCC, CJCJCJJ, CJCCCJC
CCCJJCJ = Replace(CCCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJJ = 1 To Len(CCCJJCJ)
If CJCJCJJ <> CJCCCJC Then
CJCJJCCC = AscW(Mid(CCCJJCJ, CJCJCJJ, 1))
If CJCJJCCC >= 33 And CJCJJCCC <= 79 Then
CCJCCJCC = CCJCCJCC & Chr(CJCJJCCC + 47)
ElseIf CJCJJCCC >= 80 And CJCJJCCC <= 126 Then
CCJCCJCC = CCJCCJCC & Chr(CJCJJCCC - 47)
Else
CJCCCJC = CJCJCJJ + 1
If Mid(CCCJJCJ, CJCCCJC, 1) = Chr(64) Then CCJCCJCC = CCJCCJCC & ChrW(CJCJJCCC + 5) Else CCJCCJCC = CCJCCJCC & Mid(CCCJJCJ, CJCJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de