Edit D:\xinhaisoft\crisis_new\school\admin\crisis

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCCJ, conn,rs, CCCJJC, sql:Set CCJCCJ = server.CreateObject(CCJCJJJJ("ps~sq]r@??64E:@?")):CCJCCJ.open Application(CCJCJJJJ("r@??64E:@?$EC:?8")):Set conn=CCJCCJ::Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC:CJJCCJC=Trim(Request.Cookies(CCJCJJJJ("!$*|t|qt#"))):if CJJCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJCC>0 then
sql=CCJCJJJJ("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") & CCCCJJ & CCJCJJJJ("V ,2?5 ,:5l") & CCCJCC
set rs=CCJCCJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCCCJC=rs(2) & "":CCCCCJ=rs(3):CCCCCC=rs(5):CJJJJJJ=rs(6):CJJJJJC=rs(9):CJJJJCJ=rs(15):CJJJCJJ=rs(0):CJJCJCC=rs(1):CJJCJCJ=rs(11) & "":CJJJCJC=rs(10) & "":CJJJJCC=rs(12):CJJJCCJ=rs(14):CJJJCCC=rs(13):CJJCJJJ=rs(7) & "":CJJCJJC=rs(4):CJJCCJJ=rs(8):if isnull(CJJJJCJ) then CJJJJCJ=0
if isnull(CJJJJJC) or CJJJJJC=0 then CJJJJJC=CCCCCJ
if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CCCCCC) then CCCCCC=0
if instr(CCJCJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJJ)>0 then Call RedirectMessage(CCJCJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJCC,CCCCJJ)
End IF
end if:Sub CheckRight(CCJJCJJ):dim CJJCCCJ,CJJCCCC:if CCCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJCJJJJ("??????????????,????????????,"))
elseIf not CJCJJCJC(CCJJCJJ) then
Call RedirectMessage(CCJCJJJJ("????W") & CCJJCJJ & CCJCJJJJ("X????????,????????????????????,"))
end if:End Sub:Function CJCJJCJC(CCJJCJJ):dim CJJCCCJ,CJJCCCC:CJJCCCC=split(CCJJCJJ,CCJCJJJJ("[")):CJCJJCJC=False:for CJJCCCJ=0 to ubound(CJJCCCC):If Mid(CCCCJC,CJJCCCC(CJJCCCJ),1)="1" then
CJCJJCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJJJ:CJCJJJJ=trim(request.QueryString(CCJCJJJJ("D49@@="))):if isnumeric(CJCJJJJ) then
response.Redirect CCJCJJJJ("^>^G2?E^R^D49@@=^") & CJCJJJJ & CCJCJJJJ("^DEF56?E^=@8:?nC65:C64El") & CJCCJJC
else
Call RedirectMessage(CCJCJJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCJJJJ("!$*|t|qt#"))="":CCCJCC=0:CJJJJJJ=0:CCCCJJ=Empty:CCCCCC=0:CJJJJCJ=0:CJJJJJC=0:CCCCCJ=0:CJJJCJJ=False:CJJCJCC=False:CJJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJJC,CJCJJCJ,CJJCCCJ,CJCJJCC,CJCJCJJ:CJCJJJC=split(CJJCCJC,CCJCJJJJ("]")):if ubound(CJCJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJJC(0)) or len(CJCJJJC(1))<>32 or len(CJCJJJC(2))<>32 then
Call ClearMemberCookie
else
CJCJJCJ=CJCJJJC(1):for CJJCCCJ=1 to len(CJCJJCJ):CJCJJCC=mid(CJCJJCJ,CJJCCCJ,1):if isnumeric(CJCJJCC) then CJCJCJJ=CJCJCJJ & CJCJJCC
if len(CJCJCJJ)=7 then exit for
next:CJCJJCJ=CJCJJJC(2):if CJCJCJJ<>mid(CJCJJCJ,6,7) then
Call ClearMemberCookie
else
CJCJJCC=mid(CJCJJCJ,18,10)/2:if CJCJJCC<DateDiff(CCJCJJJJ("D"), CCJCJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJCC=Clng(CJCJJJC(0)):CCCCJJ=CJCJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCJJJ,CCJCJJJC):dim CJJCCCJ,CJCJJCC,CJCJCJJ:for CJJCCCJ=1 to len(CCJCJJJC):CJCJJCC=mid(CCJCJJJC,CJJCCCJ,1):if isnumeric(CJCJJCC) then CJCJCJJ=CJCJCJJ & CJCJJCC
if len(CJCJCJJ)=7 then exit for
next:CJCJCJJ=CJJCCJJJ & CCJCJJJJ("]") & CCJCJJJC & CCJCJJJJ("]") & Fix(10000*(Rnd+1)) & CJCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCJCJJJJ("D"), CCJCJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCJJJJ("!$*|t|qt#"))=CJCJCJJ:End Sub::Function CJCJJCCJ(CCJCJJCJ):Dim str,CJCJCCJ:str = Trim(CCJCJJCJ):If IsNull(str) Or str = "" Then
CJCJJCCJ = ""
else
str=Replace(str, CCJCJJJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJCJJJJ("k:7C2>6"), CCJCJJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJCJJJJ("kD4C:AE"), CCJCJJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJCCJ=new RegExp:CJCJCCJ.Pattern=CCJCJJJJ("@?W,2\K.ZXl"):CJCJCCJ.IgnoreCase = True:CJCJCCJ.Global=True:str=CJCJCCJ.Replace(str,CCJCJJJJ("@?S`U6BF2=Dj")):set CJCJCCJ=nothing:CJCJJCCJ=str
End If:End Function:Function IIf(CCJCJJCC, CCJCJCJJ, CCJCJCJC):if isnull(CCJCJJCC) or isempty(CCJCJJCC) then
IIf = CCJCJCJC
elseif CCJCJJCC Then
IIf = CCJCJCJJ
Else
IIf = CCJCJCJC
end if:End Function:Const CJJCCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCJCJJJJ("FE7\g"):dim CJJCCCJ,CJCJJCC,CJCJCCC:if isarray(str) then
on error resume next:CJJCCCJ=ubound(str,2):CJCJCCC=err.number:err.clear:on error goto 0:if CJCJCCC<>0 then
for CJJCCCJ=0 to ubound(str):if CJJCCCJ>0 then response.Write CCJCJJJJ("k3C ,^m")
response.Write CJJCCCJ & CCJCJJJJ("i ,") & str(CJJCCCJ):next
else
response.Write CCJCJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCCJ=0 to ubound(str,2):response.Write CCJCJJJJ("kE9 ,2=:8?lV=67EVm") & CJJCCCJ & CCJCJJJJ("k^E9m")
next:response.Write CCJCJJJJ("k^ECm"):for CJJCCCJ=0 to ubound(str):response.Write CCJCJJJJ("kECmkE9m") & CJJCCCJ & CCJCJJJJ("k^E9m"):for CJCJJCC=0 to ubound(str,2):response.Write CCJCJJJJ("kE5m") & str(CJJCCCJ,CJCJJCC) & CCJCJJJJ("k^E5m"):next:response.Write CCJCJJJJ("k^ECm"):next:response.Write CCJCJJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJCJJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJCJJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJCJCJJJ():Dim CJCCJJJ, CJCCJJC:CJCCJJC = Request.ServerVariables(CCJCJJJJ("!p%w0x}u~")):CJCCJJJ = Request.ServerVariables(CCJCJJJJ("""&t#*0$%#x}v")):If CJCCJJJ <> Empty Then
if instr(lcase(CJCCJJJ),CCJCJJJJ("Tb4:7C2>6"))>0 or instr(lcase(CJCCJJJ),CCJCJJJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJCJJJJ("????????,????????????????????????,??,??,"))
CJCCJJC = CJCCJJC & CCJCJJJJ("n") & CJCCJJJ
end if:CJCJCJJJ = CJCCJJC:End Function:Sub SetHttpOnlyCookie(CCJCJCCJ,CCJCJCCC):dim CJCJJJC:CJCJJJC=CCJCJCCJ & CCJCJJJJ("l") & CCJCJCCC & CCJCJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCJJJJ("$6E\r@@<:6"),CJCJJJC):End Sub::::::sub ShowMessage(CCJCCJJJ):response.Charset="utf-8":Response.Write CCJCJJJJ("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") & CCJCCJJJ & CCJCJJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCJCJJC(CJCJCCC):if isnull(CJCJCCC) or trim(CJCJCCC)="" or not isnumeric(CJCJCCC) then
CJCJCJJC=false
else
Dim CJCJCCJ:Set CJCJCCJ = New RegExp:CJCJCCJ.Pattern = CCJCJJJJ("/-5ZS"):CJCJCCJ.IgnoreCase = True:CJCJCJJC = CJCJCCJ.test(CJCJCCC):set CJCJCCJ=nothing
end if:End Function:Function CJCJCJCJ(CCJCCJJC):dim CJCCJCJ,CJCCJCC:CJCCJCJ=CCJCJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCCJJC & CCJCJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJCC=CCJCCJ.execute(CJCCJCJ):CJCJCJCJ = CJCCJCC(0):if isnull(CJCJCJCJ) then CJCJCJCJ=1
CJCCJCC.close : set CJCCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJCJ=nothing:set CJCJCJCC=nothing:set CJCJCCJJ=nothing:set CJCJCCJC=nothing:CJCCJCC.close : set CJCCJCC=nothing:CCCJJC.Close : Set CCCJJC=Nothing:rs.Close : Set rs=Nothing:CJCJCCCJ.Close : Set CJCJCCCJ = Nothing:CCJCCJ.Close : Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCJJJJ("!$*0|6DD286"),server.URLEncode(CCJCCJJJ)):Response.Redirect CCJCJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::Function CJCJCCCC(CJCJCCC):Dim CJCCCJJ, CJCCCJC, CJCCCCJ, CJCCCCC, str:If Not CJCJCJJC(CJCJCCC) or CJCJCCC=0 Then
str=0
else
CJCCCJJ = Fix(CJCJCCC / 86400):CJCCCJC = Fix((CJCJCCC - CJCCCJJ * 86400) / 3600):CJCCCCJ = Fix((CJCJCCC - CJCCCJJ * 86400 - CJCCCJC * 3600) / 60):CJCCCCC = Fix(CJCJCCC - CJCCCJJ * 86400 - CJCCCJC * 3600 - CJCCCCJ * 60):If CJCCCJJ <> 0 Then str = CJCCCJJ & CCJCJJJJ("??")
If CJCCCJC <> 0 Then str = str & CJCCCJC & CCJCJJJJ("????")
If CJCCCCJ <> 0 Then str = str & CJCCCCJ & CCJCJJJJ("??")
if CJCCCCC <> 0 Then str = str & CJCCCCC & CCJCJJJJ("??")
end if:CJCJCCCC = str:End Function::::::::::::Function CJCCJJJJ(ByVal CJCCJJJC,style):if not isdate(CJCCJJJC) then
CJCCJJJJ=CJCCJJJC:exit function
end if:dim CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:CJCCJJJC=cdate(CJCCJJJC):CCJJJJJ=Year(CJCCJJJC):CCJJJJC=Month(CJCCJJJC):CCJJJCJ=Day(CJCCJJJC):select case style:case 0:CJCCJJJJ=CCJJJJJ & CCJCJJJJ("\") & right(0 & CCJJJJC,2) & CCJCJJJJ("\") & right(0 & CCJJJCJ,2):case 1:CJCCJJJJ=CCJJJJJ & right(0 & CCJJJJC,2) & right(0 & CCJJJCJ,2):case 2:CJCCJJJJ=right(CCJJJJJ,2) & CCJCJJJJ("\") & right(0 & CCJJJJC,2) & CCJCJJJJ("\") & right(0 & CCJJJCJ,2):case 3:CJCCJJJJ=CCJJJJJ & CCJCJJJJ("\") & right(0 & CCJJJJC,2):case 4:CJCCJJJJ=right(0 & CCJJJJC,2) & CCJCJJJJ("\") & right(0 & CCJJJCJ,2):case 5:CJCCJJJJ=right(0 & CCJJJCJ,2):case 6:CJCCJJJJ=CCJJJJJ & CCJCJJJJ("??") & right(0 & CCJJJJC,2) & CCJCJJJJ("??") & right(0 & CCJJJCJ,2) & CCJCJJJJ("??"):case else
CJCCJJJJ=CJCCJJJC:end select:End Function:Function CJCCJJCJ(Table):Dim CJCCJCC, CCJJCJJ, str(), CJJCCCJ,CJCJJCC,CCJJCJC:CCJJCJC=UCase(Table):If Not IsArray(Application(CCJCJJJJ("!$*0") & CCJJCJC)) Then
Sql=CCJCJJJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJCJJJJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCJCC=server.createobject(CCJCJJJJ("25@53]C64@C5D6E")):CJCCJCC.open sql,CCJCCJ,1:CCJJCJJ = CJCCJCC.RecordCount:ReDim str(CCJJCJJ, 2):If CCJJCJJ > 0 Then
For CJJCCCJ = 1 To CCJJCJJ:for CJCJJCC=0 to 2:str(CJJCCCJ, CJCJJCC) = CJCCJCC(CJCJJCC):next:CJCCJCC.MoveNext:Next
End If:CJCCJCC.Close: Set CJCCJCC = Nothing:Application(CCJCJJJJ("!$*0") & CCJJCJC) = str
End If:CJCCJJCJ = Application(CCJCJJJJ("!$*0") & CCJJCJC):End Function:Sub ShowListSelect(CCJCCJJC,CCJCCJCJ,CCJCCJCC):Dim str, CJJCCCJ, CCJJCCJ:CCJJCCJ = CJCCJJCJ(CCJCCJJC):For CJJCCCJ = 1 To UBound(CCJJCCJ):if Cstr(CCJJCCJ(CJJCCCJ,2))=Cstr(CCJCCJCJ) then
str = str & CCJCJJJJ("k@AE:@? ,G2=F6lV") & CCJJCCJ(CJJCCCJ, 0) & CCJCJJJJ("V")
If CStr(CCJJCCJ(CJJCCCJ, 0)) = CCJCCJCC & "" Then str = str & CCJCJJJJ(" ,D6=64E65lVD6=64E65V")
str = str & CCJCJJJJ("m") & CCJJCCJ(CJJCCCJ, 1) & CCJCJJJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJCCJJCC(CCJCCJJC,CCJCCJCJ,CJJCCJJJ):Dim str, CJJCCCJ, CCJJCCJ:CCJJCCJ = CJCCJJCJ(CCJCCJJC):For CJJCCCJ = 1 To UBound(CCJJCCJ):if Cstr(CCJJCCJ(CJJCCCJ,2))=Cstr(CCJCCJCJ) and CStr(CCJJCCJ(CJJCCCJ, 0)) = CJJCCJJJ & "" then
str=CCJJCCJ(CJJCCCJ,1):exit for
end if:Next:if str="" then str=CCJCJJJJ(",????.")
CJCCJJCC=str:End Function:::::::::::::::Function CJCCJCJJ(CCJCCCJJ,str):dim CJJCCCJ,CCJJCCC,CCJCJJJ,CCJJJJC,CJCJCCC,CCJCJJC,CJCJCJJ:CJCJCJJ=ucase(CCJCCCJJ):CCJCJJC=str:if CCJCJJC="" then
CCJCJJC=request.cookies(CJCJCJJ):if CCJCJJC="" then
CJCCJCJJ=""
else
CCJCJJC=strreverse(CCJCJJC):CCJJCCC=len(CCJCJJC):for CJJCCCJ=1 to CCJJCCC-1 step 2:CCJJJJC=mid(CCJCJJC,CJJCCCJ,1):CJCJCCC=mid(CCJCJJC,CJJCCCJ+1,1):CCJCJJJ=CCJCJJJ & CJCJCCC & CCJJJJC:next:CCJCJJJ=replace(CCJCJJJ,CCJCJJJJ("L0N"),CCJCJJJJ(" ,")):CCJCJJJ=replace(CCJCJJJ,CCJCJJJJ("LIN"),CCJCJJJJ("Y")):CCJCJJJ=replace(CCJCJJJ,CCJCJJJJ("L:N"),CCJCJJJJ("^")):CJCCJCJJ=trim(CCJCJJJ)
end if
else
if Len(CCJCJJC) Mod 2=1 then CCJCJJC=CCJCJJC & CCJCJJJJ(" ,")
CCJCJJC=replace(CCJCJJC,CCJCJJJJ(" ,"),CCJCJJJJ("L0N")):CCJCJJC=replace(CCJCJJC,CCJCJJJJ("Y"),CCJCJJJJ("LIN")):CCJCJJC=replace(CCJCJJC,CCJCJJJJ("^"),CCJCJJJJ("L:N")):CCJJCCC=len(CCJCJJC):for CJJCCCJ=1 to CCJJCCC-1 step 2:CCJJJJC=mid(CCJCJJC,CJJCCCJ,1):CJCJCCC=mid(CCJCJJC,CJJCCCJ+1,1):CCJCJJJ=CCJCJJJ & CJCJCCC & CCJJJJC:next:CCJCJJJ=Trim(strreverse(CCJCJJJ)):CJCCJCJJ=CCJCJJJ:response.cookies(CJCJCJJ)=CCJCJJJ
end if:End Function::Sub ClearCache(CCJCCCJC):Application.Contents.Remove CCJCCCJC
End Sub::Class jTree:Private Sql, CCJCJCJ, CCJCJCC, CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:Private Sub Class_Initialize():CCJCJCC = 0:CCJCCJJ = 0:CCCJJJJ=10:End Sub:Public Property Let Table(CCJCCCCJ):if CCJCCCCJ="" then Call RedirectMessage(CCJCJJJJ("????????,;%C66????????????????????@??????????,"))
CCJCCJC=CCJCCCCJ:CCJCCCJ=CCJCJJJJ("!$*0") & UCase(CCJCCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCCJC:End Property:::Private Sub GetTreeArray():Dim CJJCCCJ, CJCJJCC, CCCJJJC,RecordCount:CCJCJCJ = Application(CCJCCCJ):If Not IsArray(CCJCJCJ) Then
Sql = CCJCJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCCJC:if CCJCCCC<>"" then Sql=Sql & CCJCJJJJ(" ,H96C6 ,") & CCJCCCC
set CCCJJJC=CCJCCJ.execute(sql):RecordCount=CCCJJJC(0):if RecordCount=0 then Call RedirectMessage(CCJCJJJJ("????W") & CCJCCJC & CCJCJJJJ("^") & CCJCCCC & CCJCJJJJ("X????????????"))
CCJCCJJ=RecordCount+CCCJJJJ:ReDim CCJCJCJ(CCJCCJJ, 4):Sql = CCJCJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,H:E9 ,W?@=@4<X"):if CCJCCCC<>"" then Sql=Sql & CCJCJJJJ(" ,H96C6 ,") & CCJCCCC
Sql=Sql & CCJCJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJJJC=CCJCCJ.execute(sql):For CJJCCCJ = 1 To RecordCount:For CJCJJCC = 0 To 4:CCJCJCJ(CJJCCCJ, CJCJJCC) = CCCJJJC(CJCJJCC):if IsNull(CCJCJCJ(CJJCCCJ,4)) then CCJCJCJ(CJJCCCJ,4)=0
If CCJCJCJ(CJJCCCJ,2)="" then CCJCJCJ(CJJCCCJ,2)=CCJCJJJJ(",??.")
Next:CCCJJJC.MoveNext:Next:CCCJJJC.Close: Set CCCJJJC = Nothing:for CJJCCCJ=CCJCCJJ-(CCCJJJJ-1) to CCJCCJJ:CCJCJCJ(CJJCCCJ,0)=CJJCCCJ:next:Application.Lock():Application(CCJCCCJ) = CCJCJCJ:Application.UnLock()
else
CCJCCJJ=Ubound(CCJCJCJ)
End If:End Sub:::::Private Function CJCCJCCJ(CJJCCJJJ):dim CJJCCCJ,CCCJJCC:CJCCJCCJ=0:CCCJJCC=CStr(CJJCCJJJ):if CCCJJCC<>"0" then
for CJJCCCJ=1 to CCJCCJJ:If CStr(CCJCJCJ(CJJCCCJ, 0))=CCCJJCC Then
CJCCJCCJ = CJJCCCJ:Exit For
End If:Next
end if:End Function:Public Function CJCCJCCC(CJJCCJJJ):if Cstr(CJJCCJJJ)="0" then
CJCCJCCC=CCJCJJJJ("??")
else
Dim CJJCCCJ,CCCJJJC:CJJCCCJ=CJCCJCCJ(CJJCCJJJ):if CJJCCCJ>0 then
CJCCJCCC=CCJCJCJ(CJJCCCJ,2):if CJCCJCCC="" then
set CCCJJJC=CCJCCJ.execute(CCJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,H96C6 ,:5l") & CJJCCJJJ):if CCCJJJC.eof then Call RedirectMessage(CCJCJJJJ("xs??,") & CJJCCJJJ & CCJCJJJJ("??,??????"))
CJCCJCCC=CCCJJJC(1):Call UpdateCache(CJJCCJJJ,CCCJJJC(0),CJCCJCCC,CCCJJJC(2),CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing
end if
else
set CCCJJJC=CCJCCJ.execute(CCJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,H96C6 ,:5l") & CJJCCJJJ):if CCCJJJC.eof then Call RedirectMessage(CCJCJJJJ("xs??,") & CJJCCJJJ & CCJCJJJJ("??,??????"))
CJCCJCCC=CCCJJJC(1):Call UpdateCache(CJJCCJJJ,CCCJJJC(0),CJCCJCCC,CCCJJJC(2),CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing
end if
end if:End Function:::Public Function CJCCCJJJ(CJJCCJJJ):Dim CJJCCCJ,CCCJCJJ:CJJCCCJ=CJCCJCCJ(CJJCCJJJ):if CJJCCCJ=0 then
CCCJCJJ=CJCCCJJC(CJJCCJJJ)
else
CCCJCJJ=CCJCJCJ(CJJCCCJ,3):if isnull(CCCJCJJ) or CCCJCJJ="" then
CCCJCJJ=CJCCCJJC(CJJCCJJJ)
elseif Mid(CCCJCJJ,instrrev(CCCJCJJ,CCJCJJJJ("["))+1)<>CStr(CJJCCJJJ) then
CCCJCJJ=CJCCCJJC(CJJCCJJJ)
elseif Left(CCCJCJJ,1)=CCJCJJJJ("[") then
CCCJCJJ=CJCCCJJC(CJJCCJJJ)
end if
end if:CJCCCJJJ=CCCJCJJ:End Function:Private Function CJCCCJJC(CJJCCJJJ):dim CCCJJCC:CCCJJCC=CStr(CJJCCJJJ):if CCCJJCC="0" then
CJCCCJJC=""
else
dim CCCJJJC:set CCCJJJC=CCJCCJ.execute(CCJCJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,H96C6 ,:5l") & CJJCCJJJ):if CCCJJJC.eof then
Call UpdateCache(CJJCCJJJ,"","","",""):Call RedirectMessage(CCJCJJJJ("??????,xs??,") & CJJCCJJJ & CCJCJJJJ("??,????????,????????????????????,"))
else
if CCCJJJC(0)=0 then
CJCCCJJC="0," & CJJCCJJJ
else
CJCCCJJC=CJCCCJJJ(CCCJJJC(0)) & CCJCJJJJ("[") & CJJCCJJJ
end if:if CCCJJJC(2)<>CJCCCJJC then
CCJCCJ.execute CCJCJJJJ("FA52E6 ,") & CCJCCJC & CCJCJJJJ(" ,D6E ,A2E9lV") & CJCCCJJC & CCJCJJJJ("V ,H96C6 ,:5l") & CJJCCJJJ
else
CJCCCJJC=CCCJJJC(2)
end if
end if:Call UpdateCache(CJJCCJJJ,CCCJJJC(0),CCCJJJC(1),CJCCCJJC,CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing
end if:End Function::Public Function CJCCCJCJ(CJJCCJJJ):CJCCCJCJ = Mid(CJCCCJJJ(CJJCCJJJ), 3):End Function:Public Function CJCCCJCC(CJJCCJJJ):Dim CJJCCCJ, CJCJJCC, CCCJCJC,Str, CCCJCJJ, CCJJCJJ, CJJCCCC():CCCJCJJ = CJCCCJCJ(CJJCCJJJ):CCCJCJJ = Split(CCCJCJJ, CCJCJJJJ("[")):for CJJCCCJ=0 to Ubound(CCCJCJJ):CCCJCJC=CCCJCJJ(CJJCCCJ):str=str & CCJCJJJJ("M") & CCCJCJC & CCJCJJJJ("M") & CJCCJCCC(CCCJCJC):next:if str<>"" then str=Mid(str,2)
CJCCCJCC=str:End Function:::::::::Public Function Sql_GetChildren(CJJCCJJJ):dim CCCJCJJ:CCCJCJJ=CJCCCJJJ(CJJCCJJJ):Sql_GetChildren = CCJCCJC & CCJCJJJJ("0A2E9ZV[V ,=:<6 ,V") & CCCJCJJ & CCJCJJJJ("[TV")
End Function:Public Function HaveChildren(CJJCCJJJ):Dim CJJCCCJ:HaveChildren = False:CJJCCJJJ=CLng(CJJCCJJJ):For CJJCCCJ = 1 To CCJCCJJ:If CCJCJCJ(CJJCCCJ, 1) = CJJCCJJJ Then
HaveChildren = True:Exit For
End If:Next:End Function::Public Function GetPositionStr_From(CJJCCJJJ, CJCCCCCC):if isnull(CJJCCJJJ) or isnull(CJCCCCCC) then
GetPositionStr_From=CCJCJJJJ(",????????."):exit function
end if:Dim Str, CJJCCCJ, CJJCCCC, CCJJCJJ, CCCJCCJ:CJCCCCCC = CStr(CJCCCCCC):If CJCCCCCC = "0" or CJCCCCCC = CStr(CJJCCJJJ) Then
Str = CJCCJCCC(CJJCCJJJ)
Else
CJJCCCC = Split(CJCCCJCC(CJJCCJJJ), CCJCJJJJ("M")):CCJJCJJ = UBound(CJJCCCC):CCCJCCJ = False:For CJJCCCJ = 0 To CCJJCJJ Step 2:If CJJCCCC(CJJCCCJ) = CJCCCCCC And Not CCCJCCJ Then CCCJCCJ = True
If CCCJCCJ Then
If Str <> "" Then Str = Str & CCJCJJJJ("??,")
Str = Str & CJJCCCC(CJJCCCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CCJCJJJJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJCCCJ
End Sub:Public Sub UpdateCache(CJJCCJJJ,CCCJCJC,CCJCCCCC,CCCJCJJ,CCCJJJJJ):dim CJJCCCJ,CJCJJCC:CJJCCJJJ=CLng(CJJCCJJJ):CJJCCCJ=CJCCJCCJ(CJJCCJJJ):if CCCJCJC="" and CCJCCCCC="" and CCCJCJJ="" and CCCJJJJJ="" then
if CJJCCCJ>0 then
for CJCJJCC=1 to 4:CCJCJCJ(CJJCCCJ,CJCJJCC)=Null:next
end if
else
if CJJCCCJ=0 then
for CJCJJCC=1 to CCJCCJJ:if CCJCJCJ(CJCJJCC,1) & ""="" then
CJJCCCJ=CJCJJCC:exit for
end if:next
end if:if CJJCCCJ=0 then
Call ClearCache
else
CCJCJCJ(CJJCCCJ,0)=CLng(CJJCCJJJ):if CCCJCJC<>"" then CCJCJCJ(CJJCCCJ,1)=CLng(CCCJCJC)
if CCJCCCCC<>"" then CCJCJCJ(CJJCCCJ,2)=CCJCCCCC
if CCCJCJJ<>"" then CCJCJCJ(CJJCCCJ,3)=CCCJCJJ
if CCCJJJJJ<>"" then CCJCJCJ(CJJCCCJ,4)=CLng(CCCJJJJJ)
end if
end if:if CJJCCCJ>0 then
Application.Lock():Application(CCJCCCJ) = CCJCJCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJCCJJJ):Call ConnClose:Response.Write CCJCCJJJ:Response.End:End Sub:Private Function CJCJCJCJ():CJCJCJCJ=CCJJJJJJ+1:End Function:Private Function CCJJJJJJ():dim CJCCJCC:set CJCCJCC=CCJCCJ.execute(CCJCJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCCJC & CCJCJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CCJJJJJJ=CJCCJCC(0):CJCCJCC.Close: Set CJCCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCCCCJ ="9"
Const CJJCCCCC ="7"
Const CJCJJJJJ ="3"
Const CJCJJJJC ="4"
Const CJCJJJCJ ="8"
Const CJCJJJCC =":"
Const CJCJJCJJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCCJCC, CCCCCJJ, CJCCJJC, CCCCCJC, CCCCCCJ, CCCCCCC, CJJJJJJJ:Private Function CCJJJJJC():Dim CJJJJJJC:CJJJJJJC = "??" & CCCCCJJ & CCJCJJJJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCCCC & CCJCJJJJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCJCC & CCJCJJJJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CCJCJJJJ("k^3mk^DA2?m??")
CCJJJJJC = CJJJJJJC:End Function:Private Function CCJJJJCJ():CCJJJJCJ = CCJCJJJJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCCCJCC & CCJCJJJJ("V ,DEJ=6lV") & CJCJJCJJ & CCJCJJJJ("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") & CJCCJJC & CCJCJJJJ("VZE9:D]G2=F6Qm")
End Function:Private Function CCJJJJCC():CCJJJJCC = CCJCJJJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJCJJCJJ & CCJCJJJJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJCCJJC & CCJCJJJJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CCJJJCJJ():Dim CJJJJJJC, CJJCCCJ:CJJJJJJC = CCJCJJJJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJCCJJC & CCJCJJJJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJJCCCJ = 1 To PageCount:CJJJJJJC = CJJJJJJC & CCJCJJJJ("k@AE:@? ,G2=F6lV") & CJJCCCJ & CCJCJJJJ("V")
If CJJCCCJ = CCCCJCC Then CJJJJJJC = CJJJJJJC & CCJCJJJJ(" ,D6=64E65")
CJJJJJJC = CJJJJJJC & CCJCJJJJ("m") & CJJCCCJ & CCJCJJJJ("k^@AE:@?m"):Next:CJJJJJJC = CJJJJJJC & CCJCJJJJ("k^D6=64Em??"):CCJJJCJJ = CJJJJJJC:End Function:Public Sub ShowPage():Dim CJJCCCJ, CJJJJJCJ,CJJJJJCC,CJJJJCJJ:if CCCCCJJ>0 then
CJJJJJCJ = CCJCJJJJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CCJJJJJC & CCJCJJJJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJJJJJJJ:Case 1: CJJJJCJJ = CCJJJCCC:Case 2: CJJJJCJJ = CCJJCJJJ:Case 3: CJJJJCJJ = CCJJCJJC:Case 4: CJJJJCJJ = CCJJCJCJ:Case 5: CJJJJCJJ = CCJJCJCC:Case 6: CJJJJCJJ = CCJJCCJJ:Case 7: CJJJJCJJ = CCJJCCJC:Case 8: CJJJJCJJ = CCJJCCCJ:End Select
End If:CJJJJJCC = CCJCJJJJ("k^5:Gmk^5:Gm")
end if:if CJJJJJJJ>=6 then
Response.Write CJJJJCJJ
else
Response.Write CJJJJJCJ & CJJJJCJJ & CJJJJJCC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCCJJC = Server.CreateObject(CCJCJJJJ("ps~sq]#64@C5$6E")):CCCCJJC.PageSize = CCCCCCC:CCCCJJC.Open CCCCJCJ, CCCCJJJ, 1:If err then
Response.Write	CCJCJJJJ("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 & CCJCJJJJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CCCCJJC.EOF Then
CCCCCJJ = CCCCJJC.RecordCount:PageCount = CCCCJJC.PageCount:If CCCCJCC > PageCount Then CCCCJCC = PageCount
CCCCJJC.AbsolutePage = CCCCJCC
End If:Set Rs = CCCCJJC:End Function:Public Property Let Conn(CCCJJJJC):Set CCCCJJJ = CCCJJJJC:End Property:Public Property Let SQL(str):CCCCJCJ = str:End Property:Public Property Let Style(CCJJCJJ):If IsNumeric(CCJJCJJ) Then
CJJJJJJJ = CInt(CCJJCJJ):If CJJJJJJJ < 1 Or CJJJJJJJ > 8 Then CJJJJJJJ = 1
Else
CJJJJJJJ = 1
End If:End Property:Public Property Let PageSize(CCJJCJJ):If IsNumeric(CCJJCJJ) Then
CCCCCCC = CInt(CCJJCJJ):If CCCCCCC < 1 Then CCCCCCC = 10
Else
CCCCCCC = 10
End If:End Property:Public Property Get PageSize():If CCCCJCC = PageCount Then
PageSize = CCCCCJJ - CCCCCCC * (PageCount - 1)
Elseif CCCCCJJ=0 then
pagesize=0
else
PageSize = CCCCCCC
end if:End Property:Private Sub Class_Initialize():dim CJJJJCJC:CCCCCCC = 10:CJJJJJJJ = 1:Set CCCCJJJ = CCJCCJ:CCCCJCC = Trim(Request.QueryString(CCJCJJJJ("!286"))):If IsNumeric(CCCCJCC) Then
CCCCJCC = CLng(CCCCJCC):If CCCCJCC < 1 Then CCCCJCC = 1
Else
CCCCJCC = 1
End If:CCCCCCJ = Trim(Request.ServerVariables(CCJCJJJJ("&#{"))):CCCCCCJ = Mid(CCCCCCJ, InStrRev(CCCCCCJ, CCJCJJJJ("^")) + 1):CCCCCJC = Split(Trim(Request.ServerVariables(CCJCJJJJ("""&t#*0$%#x}v"))), CCJCJJJJ("U")):CJCCJJC = Server.HtmlEncode(CCCJJJCJ):CJJJJCJC=lcase(CJCCJJC):if instr(CJJJJCJC,CCJCJJJJ("Tb4:7C2>6"))>0 or instr(CJJJJCJC,CCJCJJJJ("Tb4D4C:AE"))>0 or instr(CJJJJCJC,CCJCJJJJ("V"))>0 or instr(CJJJJCJC,CCJCJJJJ(";2G2D4C:AE"))>0 or instr(CJJJJCJC,CCJCJJJJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CCJCJJJJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CCJJCJJ):ListNum = CCCCCCC * (CCCCJCC - 1) + CCJJCJJ:End Function:Private Function CCCJJJCJ():Dim CJJCCCJ, str:For CJJCCCJ = 0 To UBound(CCCCCJC):If InStr(LCase(CCCCCJC(CJJCCCJ)), CCJCJJJJ("A286l")) = 0 Then str = str & CCJCJJJJ("U") & CCCCCJC(CJJCCCJ)
Next:str = Mid(str, 2):If str = "" Then CCCJJJCJ = CCCCCCJ & CCJCJJJJ("n") & CCJCJJJJ("A286l") Else CCCJJJCJ = CCCCCCJ & CCJCJJJJ("n") & str & CCJCJJJJ("UA286l")
End Function:Private Function CCJJJCCC():Dim str:str = CCJCJJJJ("???? ,??"):For CJJCCCJ = 1 To PageCount:If CJJCCCJ = CCCCJCC Then str = str & CCJCJJJJ("k3m") & CJJCCCJ & CCJCJJJJ("k^3m ,") Else str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CJJCCCJ & CCJCJJJJ("Vm") & CJJCCCJ & CCJCJJJJ("k^2m ,")
Next:str = str & CCJCJJJJ("??"):CCJJJCCC = str:End Function:Private Function CCJJCJJJ():Dim str:If CCCCJCC > 1 Then
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCJCJJJJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCCJ & CCJCJJJJ("k^2m ,")
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJJJ & CCJCJJJJ("k^2m ,")
Else
str = str & CJJCCCCJ & CCJCJJJJ(" ,") & CJCJJJJJ
End If:If CCCCJCC < PageCount Then
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJJC & CCJCJJJJ("k^2m ,")
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & PageCount & CCJCJJJJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJCC & CCJCJJJJ("k^2m ,")
Else
str = str & CJCJJJJC & CCJCJJJJ(" ,") & CJCJJJCC
End If:str = str & CCJJJJCJ:str = str & CCJJJJCC:CCJJCJJJ = str:End Function:Private Function CCJJCJJC():Dim str, CJCJJCJ:CJCJJCJ = (CCCCJCC - 1) \ 10:If CCCCJCC = 1 Then str = str & CJJCCCCJ & CCJCJJJJ(" ,") Else str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCJCJJJJ("`V ,E:E=6lV????Vm") & CJJCCCCJ & CCJCJJJJ("k^2m ,")
If CJCJJCJ * 10 > 0 Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 10 & CCJCJJJJ("V ,E:E=6lV??????Vm") & CJJCCCCC & CCJCJJJJ("k^2m ,")
For CJJCCCJ = (CJCJJCJ * 10 + 1) To (CJCJJCJ * 10 + 10):If CJJCCCJ = CCCCJCC Then str = str & CCJCJJJJ("k3m") & CJJCCCJ & CCJCJJJJ("k^3m ,") Else str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CJJCCCJ & CCJCJJJJ("V ,E:E=6lV??????") & CJJCCCJ & CCJCJJJJ("??Vm") & CJJCCCJ & CCJCJJJJ("k^2m ,")
If CJJCCCJ = PageCount Then Exit For
Next:If CJJCCCJ < PageCount Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CJJCCCJ & CCJCJJJJ("V ,E:E=6lV??????Vm") & CJCJJJCJ & CCJCJJJJ("k^2m ,")
If CCCCJCC = PageCount Then str = str & CJCJJJCC Else str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & PageCount & CCJCJJJJ("V ,E:E=6lV????Vm") & CJCJJJCC & CCJCJJJJ("k^2m")
CCJJCJJC = str:End Function:Private Function CCJJCJCJ():Dim str, CJCJCCC, CJJJJCCJ, CJJCCCJ:If CCCCJCC > 4 Then str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCJCJJJJ("`Vm,`.k^2m ,]]]")
If CCCCJCC < PageCount - 3 Then CJJJJCCJ = CCCCJCC + 3 Else CJJJJCCJ = PageCount
For CJJCCCJ = CCCCJCC - 3 To CJJJJCCJ:If CJJCCCJ >= 1 Then
If CJJCCCJ = CCCCJCC Then str = str & CCJCJJJJ(" ,k3m,") & CJJCCCJ & CCJCJJJJ(".k^3m") Else str = str & CCJCJJJJ(" ,k2 ,9C67lV") & CJCCJJC & CJJCCCJ & CCJCJJJJ("Vm,") & CJJCCCJ & CCJCJJJJ(".k^2m")
End If:Next:If CCCCJCC < PageCount - 3 Then str = str & CCJCJJJJ(" ,]]] ,k2 ,9C67lV") & CJCCJJC & PageCount & CCJCJJJJ("Vm,") & PageCount & CCJCJJJJ(".k^2m")
CCJJCJCJ = str:End Function:Private Function CCJJCJCC():Dim str:If CCCCJCC > 1 Then
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCJCJJJJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CCJCJJJJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CCCCJCC < PageCount Then
str = str & CCJCJJJJ(" ,k2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & PageCount & CCJCJJJJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CCJCJJJJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CCJJJCJJ:CCJJCJCC = str:End Function:Private Function CCJJCCJJ():Dim str:if CCCCJCC>=2 then
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCJCC-1 & CCJCJJJJ("k^2m")
end if:str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCCCJCC & CCJCJJJJ("k^2m")
if pagecount>CCCCJCC then
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCJCC+1 & CCJCJJJJ("k^2m")
str = str & CCJCJJJJ("k2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CCJJCCJJ=str:End Function:Private Function CCJJCCJC():Dim str:str=CCJCJJJJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CCCCJCC>=2 then
str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("VmU=2BF@jk^2mk^=:m")
str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("Vm") & CCCCJCC-1 & CCJCJJJJ("k^2mk^=:m")
end if:str = str & CCJCJJJJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJCCJJC & CCCCJCC & CCJCJJJJ("Vm") & CCCCJCC & CCJCJJJJ("k^2mk^=:m")
if pagecount>CCCCJCC then
str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("Vm") & CCCCJCC+1 & CCJCJJJJ("k^2mk^=:m")
str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJCJJJJ("k^F=m"):CCJJCCJC=str:End Function:Private Function CCJJCCCJ():Dim str:str=CCJCJJJJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CCCCJCC>=2 then
str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("VmU=2BF@jk^2mk^=:m")
str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC - 1 & CCJCJJJJ("Vm") & CCCCJCC-1 & CCJCJJJJ("k^2mk^=:m")
end if:str = str & CCJCJJJJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJCCJJC & CCCCJCC & CCJCJJJJ("Vm") & CCCCJCC & CCJCJJJJ("k^2mk^=:m")
if pagecount>CCCCJCC then
str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("Vm") & CCCCJCC+1 & CCJCJJJJ("k^2mk^=:m")
str = str & CCJCJJJJ("k=:mk2 ,9C67lV") & CJCCJJC & CCCCJCC + 1 & CCJCJJJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJCJJJJ("k^F=m"):CCJJCCCJ=str:End Function:End Class::dim CJCJJJJ:sql=Request.ServerVariables(CCJCJJJJ("!p%w0x}u~")):if instr(sql,CCJCJJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJCJJ and not CJJCJCC then Call RedirectMessage(CCJCJJJJ("????????,????????????????????????,"))
CJCJJJJ=CJJJJJC
elseif instr(sql,CCJCJJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CCJCJJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJJJ=CJJJJJC
elseif instr(sql,CCJCJJJJ("^D49@@="))>0 then
CJCJJJJ=Request.QueryString(CCJCJJJJ("D49@@=")):if not CJCJCJJC(CJCJJJJ) then CJCJJJJ=Request.QueryString(CCJCJJJJ("F"))
if not CJCJCJJC(CJCJJJJ) then CJCJJJJ=Request.QueryString(CCJCJJJJ("D4"))
if not CJCJCJJC(CJCJJJJ) then Call RedirectMessage(CCJCJJJJ("????????W$49@@=X??@??????????,"))
CJCJJJJ=csng(CJCJJJJ)
end if:if CJCJJJJ=0 then Call RedirectMessage(CCJCJJJJ("????????W$49@@=X????W_X??,"))
Dim CJJJJCCC:Call SetConfig:Sub SetConfig():dim CJJCCCC,CJCCJCC:sql=CCJCJJJJ("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") & CJCJJJJ:set CJCCJCC=CCJCCJ.execute(sql):if CJCCJCC.eof then Call RedirectMessage(CCJCJJJJ("??W") & CCCJCC & CCJCJJJJ("X??????????W") & CJCJJJJ & CCJCJJJJ("X????????,"))
ReDim CJJCCCC(61):CJJCCCC(0)=CJCCJCC(CCJCJJJJ(";:2@H6:")) & "":CJJCCCC(1)=CJCCJCC(CCJCJJJJ("EJA6")):CJJCCCC(2)=CJCCJCC(CCJCJJJJ("D>D")):CJJCCCC(3)=CJCCJCC(CCJCJJJJ("4FDE@>8C@FA")) & "":CJJCCCC(4)=CJCCJCC(CCJCJJJJ("D:5632C0@E96C")) & "":CJJCCCC(5)=IIf(isnull(CJCCJCC(CCJCJJJJ("E6DEC6DF=EG:6H"))),0,CJCCJCC(CCJCJJJJ("E6DEC6DF=EG:6H"))):CJJCCCC(6)=CJCCJCC(CCJCJJJJ("K:IF?E:>6")):CJJCCCC(7)=CJCCJCC(CCJCJJJJ("766")):CJJCCCC(8)=CJCCJCC(CCJCJJJJ("C6E6DE52J")):CJJCCCC(9)=CJCCJCC(CCJCJJJJ("6IA:C652E6")):CJJCCCC(10)=CJCCJCC(CCJCJJJJ("E:E=6")):CJJCCCC(11)=CJCCJCC(CCJCJJJJ(":?EC@")) & "":CJJCCCC(12)=CJCCJCC(CCJCJJJJ("A:4EFC6")) & "":CJJCCCC(13)=CJCCJCC(CCJCJJJJ("72>:=J")):CJJCCCC(14)=CJCCJCC(CCJCJJJJ("4@AJC:89E")) & "":CJJCCCC(15)=IIf(isnull(CJCCJCC(CCJCJJJJ("D6>6DE6C0DE2CE052E6"))),CCJCJJJJ("`h__\`\`"),CJCCJCC(CCJCJJJJ("D6>6DE6C0DE2CE052E6"))):CJJCCCC(16)=IIf(isnull(CJCCJCC(CCJCJJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJCC(CCJCJJJJ("K:IF?0E:>6D09:89=:89E"))):CJJCCCC(17)=CJCCJCC(CCJCJJJJ("4@?E24E")) & "":CJJCCCC(18)=CJCCJCC(CCJCJJJJ("D2?5E23=6")):CJJCCCC(19)=CJCCJCC(CCJCJJJJ("4C:D:D")):CJJCCCC(20)=CJCCJCC(CCJCJJJJ("JJ52E6")):CJJCCCC(21)=CJCCJCC(CCJCJJJJ("BB")):CJJCCCC(22)=CJCCJCC(CCJCJJJJ("JFJF60D>D0EA=")) & "":CJJCCCC(23)=CJCCJCC(CCJCJJJJ("JFJF60E6DE0=3")) & "":CJJCCCC(25)=CJCCJCC(CCJCJJJJ("6IA6CE")):CJJCCCC(26)=CJCCJCC(CCJCJJJJ(">@5:?7@")):CJJCCCC(27)=CJCCJCC(CCJCJJJJ("9@>6A286E@AA:4EFC6")) & "":CJJCCCC(28)=CJCCJCC(CCJCJJJJ("4C:D:D=3")):CJJCCCC(29)=IIf(CJCCJCC(CCJCJJJJ("4C:D:D@=5")),False,True):CJJCCCC(30)=CJCCJCC(CCJCJJJJ("8C@FA8F:52?46")):CJJCCCC(31)=CJCCJCC(CCJCJJJJ("3:@7665324<")):CJJCCCC(32)=CJCCJCC(CCJCJJJJ("<6JDEC")):CJJCCCC(33)=CJCCJCC(CCJCJJJJ("=@8@")) & "":CJJCCCC(34)=CJCCJCC(CCJCJJJJ("K:46")):CJJCCCC(35)=IIf(CJCCJCC(CCJCJJJJ(":D?6H")),True,False):CJJCCCC(36)=121:CJJCCCC(37)=111:CJJCCCC(38)=160:CJJCCCC(39)=CJCCJCC(CCJCJJJJ("8F6DE3@@<")):CJJCCCC(40)=CJCCJCC(CCJCJJJJ("75D")):CJJCCCC(42)=CJCCJCC(CCJCJJJJ("9@>6=@8:?")):CJJCCCC(43)=CJCCJCC(CCJCJJJJ("K:IF?0?6657665324<")):CJJCCCC(44)=CJCCJCC(CCJCJJJJ("K:IF?0E:>6D0=:>:E")):CJJCCCC(45)=CJCCJCC(CCJCJJJJ("4@>A=6E60:?7@")):CJJCCCC(46)=CJCCJCC(CCJCJJJJ("E6DE:?EC@")) & "":CJJCCCC(47)=IIf(isnull(CJCCJCC(CCJCJJJJ("JFJF60367@C60E:>6"))),0,CJCCJCC(CCJCJJJJ("JFJF60367@C60E:>6"))):CJJCCCC(49)=CJCCJCC(CCJCJJJJ("D>D0C646:G6C")):CJJCCCC(50)=CJCCJCC(CCJCJJJJ("D>D0D:8?")) & "":CJJCCCC(52)=CJCCJCC(CCJCJJJJ("JFJF602CC2?86")):CJJCCCC(53)=IIf(isnull(CJCCJCC(CCJCJJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJCC(CCJCJJJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCCCC(54)=CJCCJCC(CCJCJJJJ("9:560=30@FE@7286")):CJJCCCC(55)=CJCCJCC(CCJCJJJJ("JFJF60E6DE052JD")):CJJCCCC(56)=CJCCJCC(CCJCJJJJ("JFJF60H66<0=:>:E")):CJJCCCC(57)=CJCCJCC(CCJCJJJJ("JFJF604964<65")):CJJCCCC(58)=CJCCJCC(CCJCJJJJ("K:IF?0?6657665324<0?6IE")):CJJCCCC(59)=CJCCJCC(CCJCJJJJ("4964<?6HDEF56?E")):CJJCCCC(60)=CJCCJCC(CCJCJJJJ("K:IF?04=@D6052E6")):CJCCJCC.close : set CJCCJCC=nothing:if isNull(CJJCCCC(8)) or CJJCCCC(8)="" then CJJCCCC(8)=0
if isdate(CJJCCCC(9)) then
CJJCCCC(9)=cdate(CJJCCCC(9)):if CJJCCCC(9)<Date then Call RedirectMessage(CCJCJJJJ("????????,????????????????W") & CJJCCCC(9) & CCJCJJJJ("X??????,"))
end if:if not CJCJCJJC(CJJCCCC(20)) then CJJCCCC(20)=7
select case CJJCCCC(1):case 1,2,16:CJJCCCC(36)=159:case 4,5,6,10,11:CJJCCCC(36)=190:CJJCCCC(37)=178:CJJCCCC(38)=191:case 7,13:CJJCCCC(36)=164:CJJCCCC(37)=178:CJJCCCC(38)=179:end select:CJJJJCCC=CJJCCCC:End Sub:Function CJCJCCJC(CCJCCCJJ):dim CJJCCCC(7,1),CJJCCCJ,CJJJCJJJ,CJJJCJJC:CJJJCJJJ=Array(CCJCJJJJ("$49@@="),CCJCJJJJ("$EF56?E"),CCJCJJJJ("s6AE"),CCJCJJJJ("vC256"),CCJCJJJJ("r=2DD>2E6"),CCJCJJJJ("}F>36C"),CCJCJJJJ("%62496C"),CCJCJJJJ("!2C6?E")):select case CJJJJCCC(1):case 1,2 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????")):case 3,16 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????")):case 4 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("??????@"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????")):case 5 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????")):case 6 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("??????@"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case 7 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case 8 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("??????@"),CCJCJJJJ("????"),CCJCJJJJ("????????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case 9 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case 10 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case 11 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case 12 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case 13 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????")):case 14 : CJJJCJJC=Array(CCJCJJJJ("??????"),CCJCJJJJ("??@??"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case 15 : CJJJCJJC=Array(CCJCJJJJ("????"),CCJCJJJJ("????????"),CCJCJJJJ("????"),CCJCJJJJ("????????"),CCJCJJJJ("????"),CCJCJJJJ("????"),CCJCJJJJ("??????"),CCJCJJJJ("????")):case else : CJJJCJJC=CJJJCJJJ
end select:for CJJCCCJ=0 to Ubound(CJJCCCC):CJJCCCC(CJJCCCJ,0)=CJJJCJJJ(CJJCCCJ):CJJCCCC(CJJCCCJ,1)=CJJJCJJC(CJJCCCJ):next:for CJJCCCJ=0 to Ubound(CJJCCCC):if CJJCCCC(CJJCCCJ,0)=CCJCCCJJ then
CJCJCCJC=CJJCCCC(CJJCCCJ,1):exit for
end if:next:End Function::Call CheckRight(122):if not CJJJJCCC(19) then Call RedirectMessage(CCJCJJJJ("????????,??????????????????????,"))
Call CJCCJCJJ(CCJCJJJJ("&#{"),CJCJCJJJ):dim CJJJCJCJ,CJJJCJCC:CJJJCJCJ=CJJJJCCC(37):if CJJJCJCJ=111 then
CJJJCJCC=CCJCJJJJ("2DED")
elseif CJJJCJCJ=178 then
CJJJCJCC=CCJCJJJJ("DED")
end if:dim CJJCCCJ,CCJJCJJ,CJJJCCJJ,CJJJCCJC,CJJJCCCJ,CJJJCCCC,CJJCJJJJ,CJJCJJJC,CJJCJJCJ,CJJCJJCC,CJJCJCJJ,CJJCJCJC,CJJCJCCJ:CJJCJCCJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("DEF56?E:5"))):CCJJCJJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("}F>"))):CJJJCCJJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("}:4<"))):CJJJCCJC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("s6AE"))):CJJCJJJJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("vC256"))):CJJCJJJC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("vC@FA"))):CJJJCCCJ=Request.QueryString(CCJCJJJJ("!@DE")):CJJJCCCC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("$6I"))):CJJCJJCJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("=6G6="))):CJJCJJCC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("E`"))):CJJCJCJJ=CJCJJCCJ(Request.QueryString(CCJCJJJJ("Ea"))):CJJCJCJC=CJCJJCCJ(Request.QueryString(CCJCJJJJ("|@3:=6"))):if not CJCJCJJC(CJJJCCJC) then CJJJCCJC=CCCCCJ
dim CCJCJCJ:set CCJCJCJ=new jtree:CCJCJCJ.table=CCJCJJJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJCJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJCJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJCJJJJ("k9625m") & vbCrLf):Response.Write(CCJCJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJCJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJCJJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJCJJJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJCJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJCJJJJ("k^9625m") & vbCrLf):Response.Write(CCJCJJJJ("k3@5Jm") & vbCrLf):Response.Write(CCJCJJJJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ4C:D:D0a?5]2DAQm??????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k=:mk2 ,9C67lQ4C:D:D0a?50?@E6DE]2DAQm??????????k^2mk^=:m") & vbCrLf):Response.Write(CCJCJJJJ("k^F=m") & vbCrLf):Response.Write(CCJCJJJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCCJC(CCJCJJJJ("}F>36C")):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJJCJJ:Response.Write(CCJCJJJJ("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kD6=64E ,?2>6lQ$6IQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJJCCCC="1",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJJCCCC="0",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCCJC(CCJCJJJJ("s6AE")):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):Response.Write CCJCJJJJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CJJJCCJC & CCJCJJJJ("Vmk^D6=64Em")
If CJJJJCCC(1)>=3 Then
Response.Write CCJCJJJJ(" ,kD6=64E ,?2>6lV8C256Vm")
if CJJJJCJ=0 then
Response.Write CCJCJJJJ("k@AE:@? ,G2=F6lVVm,") & CJCJCCJC(CCJCJJJJ("vC256")) & CCJCJJJJ(".k^@AE:@?m")
Call ShowListSelect(CCJCJJJJ(">6>36C08C256"),CJCJJJJ,CJJCJJJJ)
else
Response.Write CCJCJJJJ("k@AE:@? ,G2=F6lV") & CJJJJCJ & CCJCJJJJ("Vm") & CJCCJJCC(CCJCJJJJ(">6>36C08C256"),CJCJJJJ,CJJJJCJ) & CCJCJJJJ("k^@AE:@?m")
end if:Response.Write CCJCJJJJ("k^D6=64Em")
End If:If CJJJJCCC(3)<>"" Then
Response.Write CCJCJJJJ(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJJCJJC=0 then
Response.Write CCJCJJJJ("k@AE:@? ,G2=F6lVVm,") & CJJJJCCC(3) & CCJCJJJJ(".k^@AE:@?m")
Call ShowListSelect(CCJCJJJJ(">6>36C04FDE@>8C@FA"),CJCJJJJ,CJJCJJJC)
else
Response.Write CCJCJJJJ("k@AE:@? ,G2=F6lV") & CJJCJJC & CCJCJJJJ("Vm") & CJCCJJCC(CCJCJJJJ(">6>36C04FDE@>8C@FA"),CJCJJJJ,CJJCJJC) & CCJCJJJJ("k^@AE:@?m")
end if:Response.Write CCJCJJJJ("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kD6=64E ,?2>6lQ=6G6=Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCJJCJ="0",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQdQ ,")):Response.Write IIf(CJJCJJCJ="5",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m????????k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCJJCJ="1",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m??, ,????k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write IIf(CJJCJJCJ="2",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m??, ,????k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQeQ ,")):Response.Write IIf(CJJCJJCJ="6",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("m??, ,????????k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CJJCJJCJ="3",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("mU6>DAj??, ,????k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write IIf(CJJCJJCJ="4",CCJCJJJJ("D6=64E65"),""):Response.Write(CCJCJJJJ("mU6>DAj??, ,????k^@AE:@?m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJJCJCJC:Response.Write(CCJCJJJJ("Qmk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,D:K6lQfQ ,G2=F6lQ")):Response.Write CJJJCCJJ:Response.Write(CCJCJJJJ("Qmk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4@=DA2?lQbQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,?2>6lQE`Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJJCC:Response.Write(CCJCJJJJ("Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,O") & vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,?2>6lQEaQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJCJJ:Response.Write(CCJCJJJJ("Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ????????????Qm?? ,??k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):If CJJJCCCJ="1" Then
Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k:>8 ,DC4lQ:>286D^3F==6E]8:7Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):If CJCJJCJC(85) Then
Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\56=Q ,E:E=6lQ????????Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQE6DE06IA@CE]2DAn=3:5l")):Response.Write CJJJCJCJ:Response.Write(CCJCJJJJ("Q ,E2C86ElQ03=2?<Qm?? ,??k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\CD2Q ,G2=F6lQ????????Q ,E:E=6lQ????????????????????????????,??????????????????????????,??????,??,??,????????????????Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):If CCJCJCJ.HaveChildren(CJJJCCJC) Then
Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ]]^]]^=3^C6A@CE056AE^")):Response.Write CJJJCJCC:Response.Write(CCJCJJJJ("]2DAnD49@@=l")):Response.Write CJCJJJJ:Response.Write(CCJCJJJJ("U56AEl")):Response.Write CJJJCCJC:Response.Write(CCJCJJJJ("U8C256l")):Response.Write CJJCJJJJ:Response.Write(CCJCJJJJ("U8C@FAl")):Response.Write CJJCJJJC:Response.Write(CCJCJJJJ("UE`l")):Response.Write CJJCJJCC:Response.Write(CCJCJJJJ("UEal")):Response.Write CJJCJCJJ:Response.Write(CCJCJJJJ("Q ,E2C86ElQ03=2?<Q ,E:E=6lQ??????????????@??????????????Qm????????k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,"))
End If::If CJJJJCCC(2) Then
Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\D>DQ ,G2=F6lQ????????Q ,E:E=6lQ??????????")):Response.Write CJCJCCJC(CCJCJJJJ("$EF56?E")):Response.Write(CCJCJJJJ("????????????Qm") & vbCrLf):Response.Write(CCJCJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,:5lV3E?04@?EC2DEV ,E:E=6lV??????????,????d????,??????????V ,G2=F6lV????????Vm") & vbCrLf):Response.Write(CCJCJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCJJJJ("k^7@C>m") & vbCrLf):Response.Write(CCJCJJJJ("k3Cm") & vbCrLf)::if CJJJCCCJ="1" then
sql=CCJCJJJJ("H96C6 ,=3l") & CJJJCJCJ & CCJCJJJJ(" ,2?5 ,G2=:5l`"):if cstr(CJJJCCJC)=cstr(CJCJJJJ) then sql=sql & CCJCJJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJJCCJC else sql=sql & CCJCJJJJ(" ,2?5 ,") & CCJCJCJ.Sql_GetChildren(CJJJCCJC)
if CJCJCJJC(CJJCJCCJ) then sql=sql & CCJCJJJJ(" ,2?5 ,>6>36Cl") & CJJCJCCJ
if CJCJCJJC(CJJCJJJJ) then sql=sql & CCJCJJJJ(" ,2?5 ,8C256l") & CJJCJJJJ
if CJCJCJJC(CJJCJJJC) then sql=sql & CCJCJJJJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCJJJC
if CCJJCJJ<>"" then sql=sql & CCJCJJJJ(" ,2?5 ,?F>36ClV") & CCJJCJJ & CCJCJJJJ("V")
if CJJJCCJJ<>"" then sql=sql & CCJCJJJJ(" ,2?5 ,C62=?2>6lV") & CJJJCCJJ & CCJCJJJJ("V")
if CJJCJCJC<>"" then sql=sql & CCJCJJJJ(" ,2?5 ,>@3:=6lV") & CJJCJCJC & CCJCJJJJ("V")
if CJCJCJJC(CJJJCCCC) then sql=sql & CCJCJJJJ(" ,2?5 ,D6Il") & CJJJCCCC
if CJCJCJJC(CJJCJJCJ) then
if CJJCJJCJ="5" then
sql=sql & CCJCJJJJ(" ,2?5 ,WC6DF=ElV`V ,@C ,C6DF=ElVaV ,@C ,C6DF=ElVbV ,@C ,C6DF=ElVcVX")
elseif CJJCJJCJ="6" then
sql=sql & CCJCJJJJ(" ,2?5 ,WC6DF=ElVbV ,@C ,C6DF=ElVcVX")
else
sql=sql & CCJCJJJJ(" ,2?5 ,C6DF=ElV") & CJJCJJCJ & CCJCJJJJ("V")
end if
end if:if isdate(CJJCJJCC) then sql=sql & CCJCJJJJ(" ,2?5 ,52E6E:>6mlV") & CJJCJJCC & CCJCJJJJ("V")
if isdate(CJJCJCJJ) then sql=sql & CCJCJJJJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCJCJJ)+1 & CCJCJJJJ("V")
Call CJCCJCJJ(CCJCJJJJ("$""{"),sql):sql=sql & CCJCJJJJ(" ,@C56C ,3J ,C6DF=E ,56D4[>6>36CEJA6[:5"):sql=CCJCJJJJ("D6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[E6DE286[>6>36CEJA6[8C256[>@3:=6[D4@C60E[C6DF=E[52E6E:>6[>6>36C[9@H=@?8 ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,") & sql:dim CJJCJCCC:set CJJCJCCC=new splitpage:with CJJCJCCC:.conn=conn:.sql=sql:.pagesize=20:.style=5:end with:set rs=CJJCJCCC.rs:If rs.Eof then
Call ShowMessage(CCJCJJJJ("????????,????????????????????@????,"))
Else
dim CJJCCJJJ,CJJCCJJC,CJJCCJCJ:Response.Write(vbCrLf):Response.Write(CCJCJJJJ("k7@C> ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9 ,E:E=6lQ????????????,????????xs??????,????????xs????????QmRk^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m")):Response.Write CJCJCCJC(CCJCJJJJ("}F>36C")):Response.Write(CCJCJJJJ("k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m")):Response.Write CJCJCCJC(CCJCJJJJ("s6AE")):Response.Write(CCJCJJJJ("k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m")):Response.Write CJCJCCJC(CCJCJJJJ("vC256")):Response.Write(CCJCJJJJ("k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):for CJJCCCJ=1 to CJJCJCCC.pagesize:CJJCCJJJ=rs(0):Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCJCCC.listnum(CJJCCCJ):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,G2=F6lQ")):Response.Write CJJCCJJJ:Response.Write(CCJCJJJJ("Qmk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(1):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(11):Response.Write(CCJCJJJJ("Qm")):Response.Write rs(2):Response.Write(CCJCJJJJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(3):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(4):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):if rs(5)<>CJJCCJJC then
CJJCCJJC=rs(5):CJJCCJCJ=CCJCJCJ.GetPositionStr_From(CJJCCJJC,CJCJJJJ)
end if:Response.Write CJJCCJCJ:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCCJJCC(CCJCJJJJ(">6>36C08C256"),CJJJJJC,rs(6)):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(7):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(8):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):call showlevel(rs(9)):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==Qm")):Response.Write CJCCJJJJ(rs(10),0):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJCJCCCC(rs(12)):Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,9C67lQ4C:D:D0`DE0a?50G:6H]2DAn:5l")):Response.Write CJJCCJJJ:Response.Write(CCJCJJJJ("Qm????k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,9C67lQ4C:D:D42D6024E]2DAn24El255UDEF56?E:5l")):Response.Write rs(11):Response.Write(CCJCJJJJ("Qm????k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):If CJCJJCJC(85) Then
Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k2 ,9C67lQE6DE0562=]2DAn24El56=U:5l")):Response.Write CJJCCJJJ:Response.Write(CCJCJJJJ("U2;2Il`Qm????k^2m") & vbCrLf):Response.Write(CCJCJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CCJCJJJJ(" ,kECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,kE5 ,4@=DA2?lQ`eQm")):Call CJJCJCCC.showpage:Response.Write(CCJCJJJJ("k^E5m") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCJJJJ("k^7@C>m") & vbCrLf)
End If:set CJJCJCCC=nothing
else
response.write CCJCJJJJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
response.Write CCJCJJJJ("k5:G ,DEJ=6lV3@C56Ci`AI ,D@=:5 ,Rrrrj ,A255:?8i`_AIj>2C8:?\E@Aia_AIj324<8C@F?5iRu`u`u`jVmk9bm????????k^9bmk@=m")
response.Write CCJCJJJJ("k=:m??????????????,????????????????,??????????,??????????,??????????,??????????@????????????????????????????????????????????????????,????????????????????????????????,k^=:m"):response.Write CCJCJJJJ("k=:m??????????????,????????????????????????@????????????????????,????????????????????????????????????????????????????,k^=:m"):response.Write CCJCJJJJ("k=:m??????????,??????????????????????????????,????????????????????????????,????,????????????,k^=:mk^@=mk^5:Gm")
end if:Sub ShowLevel(CJJCJJCJ):dim CJJCCJCC:if not CJCJCJJC(CJJCJJCJ) then
response.Write CCJCJJJJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i8C2JjVm?? ,??k^5:Gm")
else
CJJCCJCC=split(CCJCJJJJ("?? ,??M?? ,??M?? ,??M?? ,??M?? ,??"),CCJCJJJJ("M")):response.Write CCJCJJJJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i")
select case cint(CJJCJJCJ):case 0 : response.Write CCJCJJJJ("R__g___"):case 1 : response.Write CCJCJJJJ("R__u"):case 2 : response.Write CCJCJJJJ("Ruu_j4@=@CiR___"):case 3 : response.Write CCJCJJJJ("Ruupd__"):case 4 : response.Write CCJCJJJJ("Ru__"):end select:response.Write CCJCJJJJ("jVm") & CJJCCJCC(CJJCJJCJ) & CCJCJJJJ("k^5:Gm")
end if:End Sub:Response.Write(vbCrLf):Response.Write(CCJCJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ=3:5Q ,G2=F6lQ")):Response.Write CJJJCJCJ:Response.Write(CCJCJJJJ("Qm") & vbCrLf):Response.Write(CCJCJJJJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CCCCCJ:Response.Write(CCJCJJJJ("Qm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("^Y ,8=@32= ,H:?0@A6? ,Y^") & vbCrLf):Response.Write(CCJCJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWV:,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,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(CCJCJJJJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,??????@??????,=2J6C??,") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[ ,7F?4E:@? ,W6X ,L") & vbCrLf):Response.Write(CCJCJJJJ(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CCJCJJJJ(" ,G2C ,S2 ,l ,SWE9:DX") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]4@?7:C>WV????????????????????????,????????????????????????,V[ ,L ,:4@?i ,b[ ,E:E=6i ,V??????V ,N[ ,7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,S]86EWS2]2EECWV9C67VX[ ,7F?4E:@? ,WC6DX ,L") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,:7 ,WC6D ,lll ,VVX ,L ,S2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NX ,N") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6 ,L ,=2J6C]>D8WC6DX ,N") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJCJJJJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCJCJJJJ(" ,EC66iECF6") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVR3E?\CD2VX]4=:4<W7F?4E:@?WX ,L") & vbCrLf):Response.Write(CCJCJJJJ(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCJJJJ(" ,:7W:5=:DElllVVXL=2J6C]>D8WV??????????????????VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6L") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,S]86EWV4C:D:D0bC5024E]2DAn24El32E49255U:5lVZ:5=:DEZVU0VZ|2E9]C2?5@>WX[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJCJJJJ(" ,=2J6C]>D8WV??????????@????????????????????????VX") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,N") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVR3E?\D>DVX]4=:4<W7F?4E:@?WX ,L") & vbCrLf):Response.Write(CCJCJJJJ(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCJJJJ(" ,:7W:5=:DElllVVXL=2J6C]>D8WV????????????????????,VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6LH:?0@A6?WVD6?5D>D]2DAnE23=6lG0E6DEU:5=:DElVZ:5=:DE[V????????????V[Vf__[cc_VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVR3E?\56=VX]4=:4<W7F?4E:@?WX ,L") & vbCrLf):Response.Write(CCJCJJJJ(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCJJJJ(" ,:7W:5=:DElllVVXL=2J6C]>D8WV????????????????????,VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6 ,:7W4@?7:C>WV????????????????????????,????????????,????????????????,VXXL") & vbCrLf):Response.Write(CCJCJJJJ(" ,H:?5@H]=@42E:@?lVE6DE0562=]2DAn24El32E4956=U:5=:DElVZ:5=:DE") & vbCrLf):Response.Write(CCJCJJJJ(" ,N") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJCJJJJ(" ,SWVR3E?04@?EC2DEVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCJJJJ(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJCJJJJ(" ,:7W:5=:DElllVVXL=2J6C]>D8WV????????????????????,VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,6=D6LH:?0@A6?WVE6DE04@?EC2DE]2DAn:5=:DElVZ:5=:DEZVU=3:5l")):Response.Write CJJJCJCJ:Response.Write(CCJCJJJJ("V[V????????V[Vh__[ca_VXN") & vbCrLf):Response.Write(CCJCJJJJ(" ,NX") & vbCrLf):Response.Write(CCJCJJJJ("NX") & vbCrLf):Response.Write(CCJCJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCJ=nothing:set CJCJCJCC=nothing:set CJCJCCJJ=nothing:set CJCJCCJC=nothing:CCCJJC.Close:Set CCCJJC=Nothing:rs.Close:Set rs=Nothing:CCJCCJ.Close:Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJCJJJJ(ByVal CCJJCCCC)
Dim CJJCCCJJ, CJJCCCJ, CJCJCCC
CCJJCCCC = Replace(CCJJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCCJ = 1 To Len(CCJJCCCC)
If CJJCCCJ <> CJCJCCC Then
CJJCCCJJ = AscW(Mid(CCJJCCCC, CJJCCCJ, 1))
If CJJCCCJJ >= 33 And CJJCCCJJ <= 79 Then
CCJCJJJJ = CCJCJJJJ & Chr(CJJCCCJJ + 47)
ElseIf CJJCCCJJ >= 80 And CJJCCCJJ <= 126 Then
CCJCJJJJ = CCJCJJJJ & Chr(CJJCCCJJ - 47)
Else
CJCJCCC = CJJCCCJ + 1
If Mid(CCJJCCCC, CJCJCCC, 1) = Chr(64) Then CCJCJJJJ = CCJCJJJJ & ChrW(CJJCCCJJ + 5) Else CCJCJJJJ = CCJCJJJJ & Mid(CCJJCCCC, CJJCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de