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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,rs, CJJJCJJ, sql:Set CJJJJJC = server.CreateObject(CCJJCJCJ("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CCJJCJCJ("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ:Dim CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ:CJCCJJJ=Trim(Request.Cookies(CCJJCJCJ("!$*|t|qt#"))):if CJCCJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCCJ>0 then
sql=CCJJCJCJ("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") & CJJJCCC & CCJJCJCJ("V ,2?5 ,:5l") & CJJJCCJ
set rs=CJJJJJC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJCJJJ=rs(2) & "":CJJCJJC=rs(3):CJJCJCJ=rs(5):CJJCJCC=rs(6):CJJCCJJ=rs(9):CJJCCJC=rs(15):CJJCCCC=rs(0):CJCJCCJ=rs(1):CJCJCJC=rs(11) & "":CJCJJJJ=rs(10) & "":CJJCCCJ=rs(12):CJCJJJC=rs(14):CJCJJCJ=rs(13):CJCJJCC=rs(7) & "":CJCJCJJ=rs(4):CJCJCCC=rs(8):if isnull(CJJCCJC) then CJJCCJC=0
if isnull(CJJCCJJ) or CJJCCJJ=0 then CJJCCJJ=CJJCJJC
if isnull(CJCJCJJ) then CJCJCJJ=0
if isnull(CJJCJCJ) then CJJCJCJ=0
if instr(CCJJCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCC)>0 then Call RedirectMessage(CCJJCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCCJ,CJJJCCC)
End IF
end if:Sub CheckRight(CCJCJCC):dim CJCCJJC,CJCCJCJ:if CJJJCCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCJCJ("??????????????,????????????,"))
elseIf not CJCJJCJC(CCJCJCC) then
Call RedirectMessage(CCJJCJCJ("????W") & CCJCJCC & CCJJCJCJ("X????????,????????????????????,"))
end if:End Sub:Function CJCJJCJC(CCJCJCC):dim CJCCJJC,CJCCJCJ:CJCCJCJ=split(CCJCJCC,CCJJCJCJ("[")):CJCJJCJC=False:for CJCCJJC=0 to ubound(CJCCJCJ):If Mid(CJJCJJJ,CJCCJCJ(CJCCJJC),1)="1" then
CJCJJCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJCC:CJCCJCC=trim(request.QueryString(CCJJCJCJ("D49@@="))):if isnumeric(CJCCJCC) then
response.Redirect CCJJCJCJ("^>^G2?E^R^D49@@=^") & CJCCJCC & CCJJCJCJ("^DEF56?E^=@8:?nC65:C64El") & CCJJCJJ
else
Call RedirectMessage(CCJJCJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJCJCJ("!$*|t|qt#"))="":CJJJCCJ=0:CJJCJCC=0:CJJJCCC=Empty:CJJCJCJ=0:CJJCCJC=0:CJJCCJJ=0:CJJCJJC=0:CJJCCCC=False:CJCJCCJ=False:CJCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJJ,CJCCCJC,CJCCJJC,CJCCCCJ,CJCCCCC:CJCCCJJ=split(CJCCJJJ,CCJJCJCJ("]")):if ubound(CJCCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCJJ(0)) or len(CJCCCJJ(1))<>32 or len(CJCCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJCCCJC=CJCCCJJ(1):for CJCCJJC=1 to len(CJCCCJC):CJCCCCJ=mid(CJCCCJC,CJCCJJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCJC=CJCCCJJ(2):if CJCCCCC<>mid(CJCCCJC,6,7) then
Call ClearMemberCookie
else
CJCCCCJ=mid(CJCCCJC,18,10)/2:if CJCCCCJ<DateDiff(CCJJCJCJ("D"), CCJJCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCCJ=Clng(CJCCCJJ(0)):CJJJCCC=CJCCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJJC,CCJJCJCC):dim CJCCJJC,CJCCCCJ,CJCCCCC:for CJCCJJC=1 to len(CCJJCJCC):CJCCCCJ=mid(CCJJCJCC,CJCCJJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ
if len(CJCCCCC)=7 then exit for
next:CJCCCCC=CJCCCJJC & CCJJCJCJ("]") & CCJJCJCC & CCJJCJCJ("]") & Fix(10000*(Rnd+1)) & CJCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJJCJCJ("D"), CCJJCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCJCJ("!$*|t|qt#"))=CJCCCCC:End Sub::Function CJCJJCCJ(CCJJCCJJ):Dim str,CCJJJJC:str = Trim(CCJJCCJJ):If IsNull(str) Or str = "" Then
CJCJJCCJ = ""
else
str=Replace(str, CCJJCJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJJCJCJ("k:7C2>6"), CCJJCJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJCJCJ("kD4C:AE"), CCJJCJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJJJJC=new RegExp:CCJJJJC.Pattern=CCJJCJCJ("@?W,2\K.ZXl"):CCJJJJC.IgnoreCase = True:CCJJJJC.Global=True:str=CCJJJJC.Replace(str,CCJJCJCJ("@?S`U6BF2=Dj")):set CCJJJJC=nothing:CJCJJCCJ=str
End If:End Function:Function IIf(CCJJCCJC, CCJJCCCJ, CCJJCCCC):if isnull(CCJJCCJC) or isempty(CCJJCCJC) then
IIf = CCJJCCCC
elseif CCJJCCJC Then
IIf = CCJJCCCJ
Else
IIf = CCJJCCCC
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="utf-8":dim CJCCJJC,CJCCCCJ,CCJJJCJ:if isarray(str) then
on error resume next:CJCCJJC=ubound(str,2):CCJJJCJ=err.number:err.clear:on error goto 0:if CCJJJCJ<>0 then
for CJCCJJC=0 to ubound(str):if CJCCJJC>0 then response.Write CCJJCJCJ("k3C ,^m")
response.Write CJCCJJC & CCJJCJCJ("i ,") & str(CJCCJJC):next
else
response.Write CCJJCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCJJC=0 to ubound(str,2):response.Write CCJJCJCJ("kE9 ,2=:8?lV=67EVm") & CJCCJJC & CCJJCJCJ("k^E9m")
next:response.Write CCJJCJCJ("k^ECm"):for CJCCJJC=0 to ubound(str):response.Write CCJJCJCJ("kECmkE9m") & CJCCJJC & CCJJCJCJ("k^E9m"):for CJCCCCJ=0 to ubound(str,2):response.Write CCJJCJCJ("kE5m") & str(CJCCJJC,CJCCCCJ) & CCJJCJCJ("k^E5m"):next:response.Write CCJJCJCJ("k^ECm"):next:response.Write CCJJCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJJCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJJCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJCJCJJJ():Dim CCJJJCC, CCJJCJJ:CCJJCJJ = Request.ServerVariables(CCJJCJCJ("!p%w0x}u~")):CCJJJCC = Request.ServerVariables(CCJJCJCJ("""&t#*0$%#x}v")):If CCJJJCC <> Empty Then
if instr(lcase(CCJJJCC),CCJJCJCJ("Tb4:7C2>6"))>0 or instr(lcase(CCJJJCC),CCJJCJCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJJCJCJ("????????,????????????????????????,??,??,"))
CCJJCJJ = CCJJCJJ & CCJJCJCJ("n") & CCJJJCC
end if:CJCJCJJJ = CCJJCJJ:End Function:Sub SetHttpOnlyCookie(CCJCJJJJ,CCJCJJJC):dim CJCCCJJ:CJCCCJJ=CCJCJJJJ & CCJJCJCJ("l") & CCJCJJJC & CCJJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJCJ("$6E\r@@<:6"),CJCCCJJ):End Sub:::::::Function CJCJCJJC(CCJJJCJ):if isnull(CCJJJCJ) or trim(CCJJJCJ)="" or not isnumeric(CCJJJCJ) then
CJCJCJJC=false
else
Dim CCJJJJC:Set CCJJJJC = New RegExp:CCJJJJC.Pattern = CCJJCJCJ("/-5ZS"):CCJJJJC.IgnoreCase = True:CJCJCJJC = CCJJJJC.test(CCJJJCJ):set CCJJJJC=nothing
end if:End Function:Function CJCJCJCJ(CCJCJJCJ):dim CCJJCJC,CCJJCCJ:CCJJCJC=CCJJCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCJJCJ & CCJJCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCCJ=CJJJJJC.execute(CCJJCJC):CJCJCJCJ = CCJJCCJ(0):if isnull(CJCJCJCJ) then CJCJCJCJ=1
CCJJCCJ.close : set CCJJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCCJJJC=nothing:set CJCJCJCC=nothing:set CJCJCCJJ=nothing:set CJCJCCJC=nothing:CCJJCCJ.close : set CCJJCCJ=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:rs.Close : Set rs=Nothing:CJCJCCCJ.Close : Set CJCJCCCJ = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJCJ("!$*0|6DD286"),server.URLEncode(CCJCJJCC)):Response.Redirect CCJJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJCCCC(ByVal CJCCJJJJ,style):if not isdate(CJCCJJJJ) then
CJCJCCCC=CJCCJJJJ:exit function
end if:dim CCJJCCC,CCJCJJJ,CCJCJJC,CCJCJCJ:CJCCJJJJ=cdate(CJCCJJJJ):CCJJCCC=Year(CJCCJJJJ):CCJCJJJ=Month(CJCCJJJJ):CCJCJJC=Day(CJCCJJJJ):select case style:case 0:CJCJCCCC=CCJJCCC & CCJJCJCJ("\") & right(0 & CCJCJJJ,2) & CCJJCJCJ("\") & right(0 & CCJCJJC,2):case 1:CJCJCCCC=CCJJCCC & right(0 & CCJCJJJ,2) & right(0 & CCJCJJC,2):case 2:CJCJCCCC=right(CCJJCCC,2) & CCJJCJCJ("\") & right(0 & CCJCJJJ,2) & CCJJCJCJ("\") & right(0 & CCJCJJC,2):case 3:CJCJCCCC=CCJJCCC & CCJJCJCJ("\") & right(0 & CCJCJJJ,2):case 4:CJCJCCCC=right(0 & CCJCJJJ,2) & CCJJCJCJ("\") & right(0 & CCJCJJC,2):case 5:CJCJCCCC=right(0 & CCJCJJC,2):case 6:CJCJCCCC=CCJJCCC & CCJJCJCJ("??") & right(0 & CCJCJJJ,2) & CCJJCJCJ("??") & right(0 & CCJCJJC,2) & CCJJCJCJ("??"):case else
CJCJCCCC=CJCCJJJJ:end select:End Function:Function CJCCJJJC(Table):Dim CCJJCCJ, CCJCJCC, str(), CJCCJJC,CJCCCCJ,CCJCCJJ:CCJCCJJ=UCase(Table):If Not IsArray(Application(CCJJCJCJ("!$*0") & CCJCCJJ)) Then
Sql=CCJJCJCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJJCJCJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJCCJ=server.createobject(CCJJCJCJ("25@53]C64@C5D6E")):CCJJCCJ.open sql,CJJJJJC,1:CCJCJCC = CCJJCCJ.RecordCount:ReDim str(CCJCJCC, 2):If CCJCJCC > 0 Then
For CJCCJJC = 1 To CCJCJCC:for CJCCCCJ=0 to 2:str(CJCCJJC, CJCCCCJ) = CCJJCCJ(CJCCCCJ):next:CCJJCCJ.MoveNext:Next
End If:CCJJCCJ.Close: Set CCJJCCJ = Nothing:Application(CCJJCJCJ("!$*0") & CCJCCJJ) = str
End If:CJCCJJJC = Application(CCJJCJCJ("!$*0") & CCJCCJJ):End Function:Sub ShowListSelect(CCJCJJCJ,CCJCJCJJ,CCJCJCJC):Dim str, CJCCJJC, CCJCCJC:CCJCCJC = CJCCJJJC(CCJCJJCJ):For CJCCJJC = 1 To UBound(CCJCCJC):if Cstr(CCJCCJC(CJCCJJC,2))=Cstr(CCJCJCJJ) then
str = str & CCJJCJCJ("k@AE:@? ,G2=F6lV") & CCJCCJC(CJCCJJC, 0) & CCJJCJCJ("V")
If CStr(CCJCCJC(CJCCJJC, 0)) = CCJCJCJC & "" Then str = str & CCJJCJCJ(" ,D6=64E65lVD6=64E65V")
str = str & CCJJCJCJ("m") & CCJCCJC(CJCCJJC, 1) & CCJJCJCJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJCCJJCJ(CCJCJJCJ,CCJCJCJJ,CJCCCJJC):Dim str, CJCCJJC, CCJCCJC:CCJCCJC = CJCCJJJC(CCJCJJCJ):For CJCCJJC = 1 To UBound(CCJCCJC):if Cstr(CCJCCJC(CJCCJJC,2))=Cstr(CCJCJCJJ) and CStr(CCJCCJC(CJCCJJC, 0)) = CJCCCJJC & "" then
str=CCJCCJC(CJCCJJC,1):exit for
end if:Next:if str="" then str=CCJJCJCJ(",????.")
CJCCJJCJ=str:End Function:::::::::::::::Function CJCCJJCC(CCJCJCCJ,str):dim CJCCJJC,CCJCCCJ,CCJCCCC,CCJCJJJ,CCJJJCJ,CCCJJJJ,CJCCCCC:CJCCCCC=ucase(CCJCJCCJ):CCCJJJJ=str:if CCCJJJJ="" then
CCCJJJJ=request.cookies(CJCCCCC):if CCCJJJJ="" then
CJCCJJCC=""
else
CCCJJJJ=strreverse(CCCJJJJ):CCJCCCJ=len(CCCJJJJ):for CJCCJJC=1 to CCJCCCJ-1 step 2:CCJCJJJ=mid(CCCJJJJ,CJCCJJC,1):CCJJJCJ=mid(CCCJJJJ,CJCCJJC+1,1):CCJCCCC=CCJCCCC & CCJJJCJ & CCJCJJJ:next:CCJCCCC=replace(CCJCCCC,CCJJCJCJ("L0N"),CCJJCJCJ(" ,")):CCJCCCC=replace(CCJCCCC,CCJJCJCJ("LIN"),CCJJCJCJ("Y")):CCJCCCC=replace(CCJCCCC,CCJJCJCJ("L:N"),CCJJCJCJ("^")):CJCCJJCC=trim(CCJCCCC)
end if
else
if Len(CCCJJJJ) Mod 2=1 then CCCJJJJ=CCCJJJJ & CCJJCJCJ(" ,")
CCCJJJJ=replace(CCCJJJJ,CCJJCJCJ(" ,"),CCJJCJCJ("L0N")):CCCJJJJ=replace(CCCJJJJ,CCJJCJCJ("Y"),CCJJCJCJ("LIN")):CCCJJJJ=replace(CCCJJJJ,CCJJCJCJ("^"),CCJJCJCJ("L:N")):CCJCCCJ=len(CCCJJJJ):for CJCCJJC=1 to CCJCCCJ-1 step 2:CCJCJJJ=mid(CCCJJJJ,CJCCJJC,1):CCJJJCJ=mid(CCCJJJJ,CJCCJJC+1,1):CCJCCCC=CCJCCCC & CCJJJCJ & CCJCJJJ:next:CCJCCCC=Trim(strreverse(CCJCCCC)):CJCCJJCC=CCJCCCC:response.cookies(CJCCCCC)=CCJCCCC
end if:End Function::Sub ClearCache(CCJCJCCC):Application.Contents.Remove CCJCJCCC
End Sub::Class jTree:Private Sql, CCCJJJC, CCCJJCJ, CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC:Private Sub Class_Initialize():CCCJJCJ = 0:CCCJJCC = 0:CCCJCCC=10:End Sub:Public Property Let Table(CCJCCJJJ):if CCJCCJJJ="" then Call RedirectMessage(CCJJCJCJ("????????,;%C66????????????????????@??????????,"))
CCCJCJJ=CCJCCJJJ:CCCJCJC=CCJJCJCJ("!$*0") & UCase(CCCJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJCJJ:End Property:::Private Sub GetTreeArray():Dim CJCCJJC, CJCCCCJ, CCCCJJJ,RecordCount:CCCJJJC = Application(CCCJCJC):If Not IsArray(CCCJJJC) Then
Sql = CCJJCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJCJJ:if CCCJCCJ<>"" then Sql=Sql & CCJJCJCJ(" ,H96C6 ,") & CCCJCCJ
set CCCCJJJ=CJJJJJC.execute(sql):RecordCount=CCCCJJJ(0):if RecordCount=0 then Call RedirectMessage(CCJJCJCJ("????W") & CCCJCJJ & CCJJCJCJ("^") & CCCJCCJ & CCJJCJCJ("X????????????"))
CCCJJCC=RecordCount+CCCJCCC:ReDim CCCJJJC(CCCJJCC, 4):Sql = CCJJCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCJJ & CCJJCJCJ(" ,H:E9 ,W?@=@4<X"):if CCCJCCJ<>"" then Sql=Sql & CCJJCJCJ(" ,H96C6 ,") & CCCJCCJ
Sql=Sql & CCJJCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CCCCJJJ=CJJJJJC.execute(sql):For CJCCJJC = 1 To RecordCount:For CJCCCCJ = 0 To 4:CCCJJJC(CJCCJJC, CJCCCCJ) = CCCCJJJ(CJCCCCJ):if IsNull(CCCJJJC(CJCCJJC,4)) then CCCJJJC(CJCCJJC,4)=0
If CCCJJJC(CJCCJJC,2)="" then CCCJJJC(CJCCJJC,2)=CCJJCJCJ(",??.")
Next:CCCCJJJ.MoveNext:Next:CCCCJJJ.Close: Set CCCCJJJ = Nothing:for CJCCJJC=CCCJJCC-(CCCJCCC-1) to CCCJJCC:CCCJJJC(CJCCJJC,0)=CJCCJJC:next:Application.Lock():Application(CCCJCJC) = CCCJJJC:Application.UnLock()
else
CCCJJCC=Ubound(CCCJJJC)
End If:End Sub:::::Private Function CJCCJCJC(CJCCCJJC):dim CJCCJJC,CCCCJCJ:CJCCJCJC=0:CCCCJCJ=CStr(CJCCCJJC):if CCCCJCJ<>"0" then
for CJCCJJC=1 to CCCJJCC:If CStr(CCCJJJC(CJCCJJC, 0))=CCCCJCJ Then
CJCCJCJC = CJCCJJC:Exit For
End If:Next
end if:End Function::::Public Function CJCCJCCJ(CJCCCJJC):Dim CJCCJJC,CCCCJCC:CJCCJJC=CJCCJCJC(CJCCCJJC):if CJCCJJC=0 then
CCCCJCC=CJCCJCCC(CJCCCJJC)
else
CCCCJCC=CCCJJJC(CJCCJJC,3):if isnull(CCCCJCC) or CCCCJCC="" then
CCCCJCC=CJCCJCCC(CJCCCJJC)
elseif Mid(CCCCJCC,instrrev(CCCCJCC,CCJJCJCJ("["))+1)<>CStr(CJCCCJJC) then
CCCCJCC=CJCCJCCC(CJCCCJJC)
elseif Left(CCCCJCC,1)=CCJJCJCJ("[") then
CCCCJCC=CJCCJCCC(CJCCCJJC)
end if
end if:CJCCJCCJ=CCCCJCC:End Function:Private Function CJCCJCCC(CJCCCJJC):dim CCCCJCJ:CCCCJCJ=CStr(CJCCCJJC):if CCCCJCJ="0" then
CJCCJCCC=""
else
dim CCCCJJJ:set CCCCJJJ=CJJJJJC.execute(CCJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCJJ & CCJJCJCJ(" ,H96C6 ,:5l") & CJCCCJJC):if CCCCJJJ.eof then
Call UpdateCache(CJCCCJJC,"","","",""):Call RedirectMessage(CCJJCJCJ("??????,xs??,") & CJCCCJJC & CCJJCJCJ("??,????????,????????????????????,"))
else
if CCCCJJJ(0)=0 then
CJCCJCCC="0," & CJCCCJJC
else
CJCCJCCC=CJCCJCCJ(CCCCJJJ(0)) & CCJJCJCJ("[") & CJCCCJJC
end if:if CCCCJJJ(2)<>CJCCJCCC then
CJJJJJC.execute CCJJCJCJ("FA52E6 ,") & CCCJCJJ & CCJJCJCJ(" ,D6E ,A2E9lV") & CJCCJCCC & CCJJCJCJ("V ,H96C6 ,:5l") & CJCCCJJC
else
CJCCJCCC=CCCCJJJ(2)
end if
end if:Call UpdateCache(CJCCCJJC,CCCCJJJ(0),CCCCJJJ(1),CJCCJCCC,CCCCJJJ(3)):CCCCJJJ.Close: Set CCCCJJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJCCCJJC):dim CCCCJCC:CCCCJCC=CJCCJCCJ(CJCCCJJC):Sql_GetChildren = CCCJCJJ & CCJJCJCJ("0A2E9ZV[V ,=:<6 ,V") & CCCCJCC & CCJJCJCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCJCJC
End Sub:Public Sub UpdateCache(CJCCCJJC,CCJCCJJC,CCJCCJCJ,CCCCJCC,CCJCCJCC):dim CJCCJJC,CJCCCCJ:CJCCCJJC=CLng(CJCCCJJC):CJCCJJC=CJCCJCJC(CJCCCJJC):if CCJCCJJC="" and CCJCCJCJ="" and CCCCJCC="" and CCJCCJCC="" then
if CJCCJJC>0 then
for CJCCCCJ=1 to 4:CCCJJJC(CJCCJJC,CJCCCCJ)=Null:next
end if
else
if CJCCJJC=0 then
for CJCCCCJ=1 to CCCJJCC:if CCCJJJC(CJCCCCJ,1) & ""="" then
CJCCJJC=CJCCCCJ:exit for
end if:next
end if:if CJCCJJC=0 then
Call ClearCache
else
CCCJJJC(CJCCJJC,0)=CLng(CJCCCJJC):if CCJCCJJC<>"" then CCCJJJC(CJCCJJC,1)=CLng(CCJCCJJC)
if CCJCCJCJ<>"" then CCCJJJC(CJCCJJC,2)=CCJCCJCJ
if CCCCJCC<>"" then CCCJJJC(CJCCJJC,3)=CCCCJCC
if CCJCCJCC<>"" then CCCJJJC(CJCCJJC,4)=CLng(CCJCCJCC)
end if
end if:if CJCCJJC>0 then
Application.Lock():Application(CCCJCJC) = CCCJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJCJJCC):Call ConnClose:Response.Write CCJCJJCC:Response.End:End Sub:Private Function CJCJCJCJ():CJCJCJCJ=CJCCCJCJ+1:End Function:Private Function CJCCCJCJ():dim CCJJCCJ:set CCJJCCJ=CJJJJJC.execute(CCJJCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJCJJ & CCJJCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCCJCJ=CCJJCCJ(0):CCJJCCJ.Close: Set CCJJCCJ = 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, CCCCCJC, CCCCCCJ, CCCCCCC, CJJJJJJJ, CJJJJJJC, CCJJCJJ, CJJJJJCJ, CJJJJJCC, CJJJJCJJ, CJJJJCJC:Private Function CJCCCJCC():Dim CJJJJCCJ:CJJJJCCJ = "??" & CJJJJJJC & CCJJCJCJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJJCJJ & CCJJCJCJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJJJJJ & CCJJCJCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CCJJCJCJ("k^3mk^DA2?m??")
CJCCCJCC = CJJJJCCJ:End Function:Private Function CJCCCCJJ():CJCCCCJJ = CCJJCJCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJJJJJJJ & CCJJCJCJ("V ,DEJ=6lV") & CJCJJCJJ & CCJJCJCJ("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") & CCJJCJJ & CCJJCJCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJCCCCJC():CJCCCCJC = CCJJCJCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJCJJCJJ & CCJJCJCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCJJCJJ & CCJJCJCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJCCCCCJ():Dim CJJJJCCJ, CJCCJJC:CJJJJCCJ = CCJJCJCJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCJJCJJ & CCJJCJCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJCCJJC = 1 To PageCount:CJJJJCCJ = CJJJJCCJ & CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJCCJJC & CCJJCJCJ("V")
If CJCCJJC = CJJJJJJJ Then CJJJJCCJ = CJJJJCCJ & CCJJCJCJ(" ,D6=64E65")
CJJJJCCJ = CJJJJCCJ & CCJJCJCJ("m") & CJCCJJC & CCJJCJCJ("k^@AE:@?m"):Next:CJJJJCCJ = CJJJJCCJ & CCJJCJCJ("k^D6=64Em??"):CJCCCCCJ = CJJJJCCJ:End Function:Public Sub ShowPage():Dim CJCCJJC, CJJJJCCC,CJJJCJJJ,CJJJCJJC:if CJJJJJJC>0 then
CJJJJCCC = CCJJCJCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJCCCJCC & CCJJCJCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJJJJCJC:Case 1: CJJJCJJC = CCJJJJJC:Case 2: CJJJCJJC = CCJJJJCJ:Case 3: CJJJCJJC = CCJJJJCC:Case 4: CJJJCJJC = CCJJJCJJ:Case 5: CJJJCJJC = CCJJJCJC:Case 6: CJJJCJJC = CCJJJCCJ:Case 7: CJJJCJJC = CCJJJCCC:Case 8: CJJJCJJC = CCJJCJJJ:End Select
End If:CJJJCJJJ = CCJJCJCJ("k^5:Gmk^5:Gm")
end if:if CJJJJCJC>=6 then
Response.Write CJJJCJJC
else
Response.Write CJJJJCCC & CJJJCJJC & CJJJCJJJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCCCCJ = Server.CreateObject(CCJJCJCJ("ps~sq]#64@C5$6E")):CCCCCCJ.PageSize = CJJJJCJJ:CCCCCCJ.Open CCCCCCC, CCCCCJC, 1:If err then
Response.Write	CCJJCJCJ("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 & CCJJCJCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CCCCCCJ.EOF Then
CJJJJJJC = CCCCCCJ.RecordCount:PageCount = CCCCCCJ.PageCount:If CJJJJJJJ > PageCount Then CJJJJJJJ = PageCount
CCCCCCJ.AbsolutePage = CJJJJJJJ
End If:Set Rs = CCCCCCJ:End Function:Public Property Let CJJJJCJ(CCJCCCJJ):Set CCCCCJC = CCJCCCJJ:End Property:Public Property Let SQL(str):CCCCCCC = str:End Property:Public Property Let Style(CCJCJCC):If IsNumeric(CCJCJCC) Then
CJJJJCJC = CInt(CCJCJCC):If CJJJJCJC < 1 Or CJJJJCJC > 8 Then CJJJJCJC = 1
Else
CJJJJCJC = 1
End If:End Property:Public Property Let PageSize(CCJCJCC):If IsNumeric(CCJCJCC) Then
CJJJJCJJ = CInt(CCJCJCC):If CJJJJCJJ < 1 Then CJJJJCJJ = 10
Else
CJJJJCJJ = 10
End If:End Property:Public Property Get PageSize():If CJJJJJJJ = PageCount Then
PageSize = CJJJJJJC - CJJJJCJJ * (PageCount - 1)
Elseif CJJJJJJC=0 then
pagesize=0
else
PageSize = CJJJJCJJ
end if:End Property:Private Sub Class_Initialize():dim CJJJCJCJ:CJJJJCJJ = 10:CJJJJCJC = 1:Set CCCCCJC = CJJJJJC:CJJJJJJJ = Trim(Request.QueryString(CCJJCJCJ("!286"))):If IsNumeric(CJJJJJJJ) Then
CJJJJJJJ = CLng(CJJJJJJJ):If CJJJJJJJ < 1 Then CJJJJJJJ = 1
Else
CJJJJJJJ = 1
End If:CJJJJJCC = Trim(Request.ServerVariables(CCJJCJCJ("&#{"))):CJJJJJCC = Mid(CJJJJJCC, InStrRev(CJJJJJCC, CCJJCJCJ("^")) + 1):CJJJJJCJ = Split(Trim(Request.ServerVariables(CCJJCJCJ("""&t#*0$%#x}v"))), CCJJCJCJ("U")):CCJJCJJ = Server.HtmlEncode(CCJCCCJC):CJJJCJCJ=lcase(CCJJCJJ):if instr(CJJJCJCJ,CCJJCJCJ("Tb4:7C2>6"))>0 or instr(CJJJCJCJ,CCJJCJCJ("Tb4D4C:AE"))>0 or instr(CJJJCJCJ,CCJJCJCJ("V"))>0 or instr(CJJJCJCJ,CCJJCJCJ(";2G2D4C:AE"))>0 or instr(CJJJCJCJ,CCJJCJCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CCJJCJCJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CCJCJCC):ListNum = CJJJJCJJ * (CJJJJJJJ - 1) + CCJCJCC:End Function:Private Function CCJCCCJC():Dim CJCCJJC, str:For CJCCJJC = 0 To UBound(CJJJJJCJ):If InStr(LCase(CJJJJJCJ(CJCCJJC)), CCJJCJCJ("A286l")) = 0 Then str = str & CCJJCJCJ("U") & CJJJJJCJ(CJCCJJC)
Next:str = Mid(str, 2):If str = "" Then CCJCCCJC = CJJJJJCC & CCJJCJCJ("n") & CCJJCJCJ("A286l") Else CCJCCCJC = CJJJJJCC & CCJJCJCJ("n") & str & CCJJCJCJ("UA286l")
End Function:Private Function CCJJJJJC():Dim str:str = CCJJCJCJ("???? ,??"):For CJCCJJC = 1 To PageCount:If CJCCJJC = CJJJJJJJ Then str = str & CCJJCJCJ("k3m") & CJCCJJC & CCJJCJCJ("k^3m ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJCCJJC & CCJJCJCJ("Vm") & CJCCJJC & CCJJCJCJ("k^2m ,")
Next:str = str & CCJJCJCJ("??"):CCJJJJJC = str:End Function:Private Function CCJJJJCJ():Dim str:If CJJJJJJJ > 1 Then
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CCJJCJCJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCCJ & CCJJCJCJ("k^2m ,")
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJJJ & CCJJCJCJ("k^2m ,")
Else
str = str & CJJCCCCJ & CCJJCJCJ(" ,") & CJCJJJJJ
End If:If CJJJJJJJ < PageCount Then
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJJC & CCJJCJCJ("k^2m ,")
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & PageCount & CCJJCJCJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJCJJJCC & CCJJCJCJ("k^2m ,")
Else
str = str & CJCJJJJC & CCJJCJCJ(" ,") & CJCJJJCC
End If:str = str & CJCCCCJJ:str = str & CJCCCCJC:CCJJJJCJ = str:End Function:Private Function CCJJJJCC():Dim str, CJCCCJC:CJCCCJC = (CJJJJJJJ - 1) \ 10:If CJJJJJJJ = 1 Then str = str & CJJCCCCJ & CCJJCJCJ(" ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CCJJCJCJ("`V ,E:E=6lV????Vm") & CJJCCCCJ & CCJJCJCJ("k^2m ,")
If CJCCCJC * 10 > 0 Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 10 & CCJJCJCJ("V ,E:E=6lV??????Vm") & CJJCCCCC & CCJJCJCJ("k^2m ,")
For CJCCJJC = (CJCCCJC * 10 + 1) To (CJCCCJC * 10 + 10):If CJCCJJC = CJJJJJJJ Then str = str & CCJJCJCJ("k3m") & CJCCJJC & CCJJCJCJ("k^3m ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJCCJJC & CCJJCJCJ("V ,E:E=6lV??????") & CJCCJJC & CCJJCJCJ("??Vm") & CJCCJJC & CCJJCJCJ("k^2m ,")
If CJCCJJC = PageCount Then Exit For
Next:If CJCCJJC < PageCount Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJCCJJC & CCJJCJCJ("V ,E:E=6lV??????Vm") & CJCJJJCJ & CCJJCJCJ("k^2m ,")
If CJJJJJJJ = PageCount Then str = str & CJCJJJCC Else str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & PageCount & CCJJCJCJ("V ,E:E=6lV????Vm") & CJCJJJCC & CCJJCJCJ("k^2m")
CCJJJJCC = str:End Function:Private Function CCJJJCJJ():Dim str, CCJJJCJ, CJJJCJCC, CJCCJJC:If CJJJJJJJ > 4 Then str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CCJJCJCJ("`Vm,`.k^2m ,]]]")
If CJJJJJJJ < PageCount - 3 Then CJJJCJCC = CJJJJJJJ + 3 Else CJJJCJCC = PageCount
For CJCCJJC = CJJJJJJJ - 3 To CJJJCJCC:If CJCCJJC >= 1 Then
If CJCCJJC = CJJJJJJJ Then str = str & CCJJCJCJ(" ,k3m,") & CJCCJJC & CCJJCJCJ(".k^3m") Else str = str & CCJJCJCJ(" ,k2 ,9C67lV") & CCJJCJJ & CJCCJJC & CCJJCJCJ("Vm,") & CJCCJJC & CCJJCJCJ(".k^2m")
End If:Next:If CJJJJJJJ < PageCount - 3 Then str = str & CCJJCJCJ(" ,]]] ,k2 ,9C67lV") & CCJJCJJ & PageCount & CCJJCJCJ("Vm,") & PageCount & CCJJCJCJ(".k^2m")
CCJJJCJJ = str:End Function:Private Function CCJJJCJC():Dim str:If CJJJJJJJ > 1 Then
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CCJJCJCJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CCJJCJCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJJJJJJJ < PageCount Then
str = str & CCJJCJCJ(" ,k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & PageCount & CCJJCJCJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CCJJCJCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJCCCCCJ:CCJJJCJC = str:End Function:Private Function CCJJJCCJ():Dim str:if CJJJJJJJ>=2 then
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJJJJJJJ-1 & CCJJCJCJ("k^2m")
end if:str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJJJJJJJ & CCJJCJCJ("k^2m")
if pagecount>CJJJJJJJ then
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJJJJJJJ+1 & CCJJCJCJ("k^2m")
str = str & CCJJCJCJ("k2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CCJJJCCJ=str:End Function:Private Function CCJJJCCC():Dim str:str=CCJJCJCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJJJJJJJ>=2 then
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("Vm") & CJJJJJJJ-1 & CCJJCJCJ("k^2mk^=:m")
end if:str = str & CCJJCJCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ & CCJJCJCJ("Vm") & CJJJJJJJ & CCJJCJCJ("k^2mk^=:m")
if pagecount>CJJJJJJJ then
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("Vm") & CJJJJJJJ+1 & CCJJCJCJ("k^2mk^=:m")
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJJCJCJ("k^F=m"):CCJJJCCC=str:End Function:Private Function CCJJCJJJ():Dim str:str=CCJJCJCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJJJJJJJ>=2 then
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ - 1 & CCJJCJCJ("Vm") & CJJJJJJJ-1 & CCJJCJCJ("k^2mk^=:m")
end if:str = str & CCJJCJCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ & CCJJCJCJ("Vm") & CJJJJJJJ & CCJJCJCJ("k^2mk^=:m")
if pagecount>CJJJJJJJ then
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("Vm") & CJJJJJJJ+1 & CCJJCJCJ("k^2mk^=:m")
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CCJJCJJ & CJJJJJJJ + 1 & CCJJCJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJJCJCJ("k^F=m"):CCJJCJJJ=str:End Function:End Class::dim CJCCJCC:sql=Request.ServerVariables(CCJJCJCJ("!p%w0x}u~")):if instr(sql,CCJJCJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCCC and not CJCJCCJ then Call RedirectMessage(CCJJCJCJ("????????,????????????????????????,"))
CJCCJCC=CJJCCJJ
elseif instr(sql,CCJJCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CCJJCJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJCC=CJJCCJJ
elseif instr(sql,CCJJCJCJ("^D49@@="))>0 then
CJCCJCC=Request.QueryString(CCJJCJCJ("D49@@=")):if not CJCJCJJC(CJCCJCC) then CJCCJCC=Request.QueryString(CCJJCJCJ("F"))
if not CJCJCJJC(CJCCJCC) then CJCCJCC=Request.QueryString(CCJJCJCJ("D4"))
if not CJCJCJJC(CJCCJCC) then Call RedirectMessage(CCJJCJCJ("????????W$49@@=X??@??????????,"))
CJCCJCC=csng(CJCCJCC)
end if:if CJCCJCC=0 then Call RedirectMessage(CCJJCJCJ("????????W$49@@=X????W_X??,"))
Dim CJJJCCJJ:Call SetConfig:Sub SetConfig():dim CJCCJCJ,CCJJCCJ:sql=CCJJCJCJ("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") & CJCCJCC:set CCJJCCJ=CJJJJJC.execute(sql):if CCJJCCJ.eof then Call RedirectMessage(CCJJCJCJ("??W") & CJJJCCJ & CCJJCJCJ("X??????????W") & CJCCJCC & CCJJCJCJ("X????????,"))
ReDim CJCCJCJ(61):CJCCJCJ(0)=CCJJCCJ(CCJJCJCJ(";:2@H6:")) & "":CJCCJCJ(1)=CCJJCCJ(CCJJCJCJ("EJA6")):CJCCJCJ(2)=CCJJCCJ(CCJJCJCJ("D>D")):CJCCJCJ(3)=CCJJCCJ(CCJJCJCJ("4FDE@>8C@FA")) & "":CJCCJCJ(4)=CCJJCCJ(CCJJCJCJ("D:5632C0@E96C")) & "":CJCCJCJ(5)=IIf(isnull(CCJJCCJ(CCJJCJCJ("E6DEC6DF=EG:6H"))),0,CCJJCCJ(CCJJCJCJ("E6DEC6DF=EG:6H"))):CJCCJCJ(6)=CCJJCCJ(CCJJCJCJ("K:IF?E:>6")):CJCCJCJ(7)=CCJJCCJ(CCJJCJCJ("766")):CJCCJCJ(8)=CCJJCCJ(CCJJCJCJ("C6E6DE52J")):CJCCJCJ(9)=CCJJCCJ(CCJJCJCJ("6IA:C652E6")):CJCCJCJ(10)=CCJJCCJ(CCJJCJCJ("E:E=6")):CJCCJCJ(11)=CCJJCCJ(CCJJCJCJ(":?EC@")) & "":CJCCJCJ(12)=CCJJCCJ(CCJJCJCJ("A:4EFC6")) & "":CJCCJCJ(13)=CCJJCCJ(CCJJCJCJ("72>:=J")):CJCCJCJ(14)=CCJJCCJ(CCJJCJCJ("4@AJC:89E")) & "":CJCCJCJ(15)=IIf(isnull(CCJJCCJ(CCJJCJCJ("D6>6DE6C0DE2CE052E6"))),CCJJCJCJ("`h__\`\`"),CCJJCCJ(CCJJCJCJ("D6>6DE6C0DE2CE052E6"))):CJCCJCJ(16)=IIf(isnull(CCJJCCJ(CCJJCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCCJ(CCJJCJCJ("K:IF?0E:>6D09:89=:89E"))):CJCCJCJ(17)=CCJJCCJ(CCJJCJCJ("4@?E24E")) & "":CJCCJCJ(18)=CCJJCCJ(CCJJCJCJ("D2?5E23=6")):CJCCJCJ(19)=CCJJCCJ(CCJJCJCJ("4C:D:D")):CJCCJCJ(20)=CCJJCCJ(CCJJCJCJ("JJ52E6")):CJCCJCJ(21)=CCJJCCJ(CCJJCJCJ("BB")):CJCCJCJ(22)=CCJJCCJ(CCJJCJCJ("JFJF60D>D0EA=")) & "":CJCCJCJ(23)=CCJJCCJ(CCJJCJCJ("JFJF60E6DE0=3")) & "":CJCCJCJ(25)=CCJJCCJ(CCJJCJCJ("6IA6CE")):CJCCJCJ(26)=CCJJCCJ(CCJJCJCJ(">@5:?7@")):CJCCJCJ(27)=CCJJCCJ(CCJJCJCJ("9@>6A286E@AA:4EFC6")) & "":CJCCJCJ(28)=CCJJCCJ(CCJJCJCJ("4C:D:D=3")):CJCCJCJ(29)=IIf(CCJJCCJ(CCJJCJCJ("4C:D:D@=5")),False,True):CJCCJCJ(30)=CCJJCCJ(CCJJCJCJ("8C@FA8F:52?46")):CJCCJCJ(31)=CCJJCCJ(CCJJCJCJ("3:@7665324<")):CJCCJCJ(32)=CCJJCCJ(CCJJCJCJ("<6JDEC")):CJCCJCJ(33)=CCJJCCJ(CCJJCJCJ("=@8@")) & "":CJCCJCJ(34)=CCJJCCJ(CCJJCJCJ("K:46")):CJCCJCJ(35)=IIf(CCJJCCJ(CCJJCJCJ(":D?6H")),True,False):CJCCJCJ(36)=121:CJCCJCJ(37)=111:CJCCJCJ(38)=160:CJCCJCJ(39)=CCJJCCJ(CCJJCJCJ("8F6DE3@@<")):CJCCJCJ(40)=CCJJCCJ(CCJJCJCJ("75D")):CJCCJCJ(42)=CCJJCCJ(CCJJCJCJ("9@>6=@8:?")):CJCCJCJ(43)=CCJJCCJ(CCJJCJCJ("K:IF?0?6657665324<")):CJCCJCJ(44)=CCJJCCJ(CCJJCJCJ("K:IF?0E:>6D0=:>:E")):CJCCJCJ(45)=CCJJCCJ(CCJJCJCJ("4@>A=6E60:?7@")):CJCCJCJ(46)=CCJJCCJ(CCJJCJCJ("E6DE:?EC@")) & "":CJCCJCJ(47)=IIf(isnull(CCJJCCJ(CCJJCJCJ("JFJF60367@C60E:>6"))),0,CCJJCCJ(CCJJCJCJ("JFJF60367@C60E:>6"))):CJCCJCJ(49)=CCJJCCJ(CCJJCJCJ("D>D0C646:G6C")):CJCCJCJ(50)=CCJJCCJ(CCJJCJCJ("D>D0D:8?")) & "":CJCCJCJ(52)=CCJJCCJ(CCJJCJCJ("JFJF602CC2?86")):CJCCJCJ(53)=IIf(isnull(CCJJCCJ(CCJJCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCCJ(CCJJCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCCJCJ(54)=CCJJCCJ(CCJJCJCJ("9:560=30@FE@7286")):CJCCJCJ(55)=CCJJCCJ(CCJJCJCJ("JFJF60E6DE052JD")):CJCCJCJ(56)=CCJJCCJ(CCJJCJCJ("JFJF60H66<0=:>:E")):CJCCJCJ(57)=CCJJCCJ(CCJJCJCJ("JFJF604964<65")):CJCCJCJ(58)=CCJJCCJ(CCJJCJCJ("K:IF?0?6657665324<0?6IE")):CJCCJCJ(59)=CCJJCCJ(CCJJCJCJ("4964<?6HDEF56?E")):CJCCJCJ(60)=CCJJCCJ(CCJJCJCJ("K:IF?04=@D6052E6")):CCJJCCJ.close : set CCJJCCJ=nothing:if isNull(CJCCJCJ(8)) or CJCCJCJ(8)="" then CJCCJCJ(8)=0
if isdate(CJCCJCJ(9)) then
CJCCJCJ(9)=cdate(CJCCJCJ(9)):if CJCCJCJ(9)<Date then Call RedirectMessage(CCJJCJCJ("????????,????????????????W") & CJCCJCJ(9) & CCJJCJCJ("X??????,"))
end if:if not CJCJCJJC(CJCCJCJ(20)) then CJCCJCJ(20)=7
select case CJCCJCJ(1):case 1,2,16:CJCCJCJ(36)=159:case 4,5,6,10,11:CJCCJCJ(36)=190:CJCCJCJ(37)=178:CJCCJCJ(38)=191:case 7,13:CJCCJCJ(36)=164:CJCCJCJ(37)=178:CJCCJCJ(38)=179:end select:CJJJCCJJ=CJCCJCJ:End Sub:Function CJCJCCJC(CCJCJCCJ):dim CJCCJCJ(7,1),CJCCJJC,CJJJCCJC,CJJJCCCJ:CJJJCCJC=Array(CCJJCJCJ("$49@@="),CCJJCJCJ("$EF56?E"),CCJJCJCJ("s6AE"),CCJJCJCJ("vC256"),CCJJCJCJ("r=2DD>2E6"),CCJJCJCJ("}F>36C"),CCJJCJCJ("%62496C"),CCJJCJCJ("!2C6?E")):select case CJJJCCJJ(1):case 1,2 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 3,16 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 4 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("??????@"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 5 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 6 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("??????@"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 7 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 8 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("??????@"),CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 9 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 10 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 11 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 12 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 13 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 14 : CJJJCCCJ=Array(CCJJCJCJ("??????"),CCJJCJCJ("??@??"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 15 : CJJJCCCJ=Array(CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case else : CJJJCCCJ=CJJJCCJC
end select:for CJCCJJC=0 to Ubound(CJCCJCJ):CJCCJCJ(CJCCJJC,0)=CJJJCCJC(CJCCJJC):CJCCJCJ(CJCCJJC,1)=CJJJCCCJ(CJCCJJC):next:for CJCCJJC=0 to Ubound(CJCCJCJ):if CJCCJCJ(CJCCJJC,0)=CCJCJCCJ then
CJCJCCJC=CJCCJCJ(CJCCJJC,1):exit for
end if:next:End Function::if CJJJCCJJ(7)<3 then Call RedirectMessage(CCJJCJCJ("????????,??????????????????????,"))
Call CheckRight(124):Call CJCCJJCC(CCJJCJCJ("&#{"),CJCJCJJJ):dim CJJJCCCC,CJJCJJJJ,CCJCJCC,CJJCJJJC,CJJCJJCJ,CJJCJJCC,CJJCJCJJ,CJJCJCJC,CJJCJCCJ,CJJCJCCC,CJJCCJJJ,CJCCJJC,CJJCCJJC:CJJCJCCJ=CJCJJCCJ(Request.QueryString(CCJJCJCJ("DEF56?E:5"))):CJJJCCCC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("56AE"))):CJJCJCCC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("vC256"))):CJJCCJJJ=CJCJJCCJ(Request.QueryString(CCJJCJCJ("vC@FA"))):CJJCJJJJ=Request.QueryString(CCJJCJCJ("!@DE")):CJJCJJCJ=CJCJJCCJ(Request.QueryString(CCJJCJCJ("s62="))):CJJCJJCC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("r@?DF=E2?E"))):CCJCJCC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("}F>"))):CJJCJJJC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("}:4<"))):CJJCJCJJ=CJCJJCCJ(Request.QueryString(CCJJCJCJ("%`"))):CJJCJCJC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("%a"))):CJJCCJJC=CJCJJCCJ(Request.QueryString(CCJJCJCJ("=6G6="))):if not CJCJCJJC(CJJJCCCC) then CJJJCCCC=CJJCJJC
dim CCCJJJC:set CCCJJJC=new jtree:CCCJJJC.table=CCJJCJCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJJCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCJCJ("k9625m") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCJCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k^9625m") & vbCrLf):Response.Write(CCJJCJCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCJCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,C@HDA2?lQaQm????k3Cm????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCCJC(CCJJCJCJ("}F>36C")):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCJCC:Response.Write(CCJJCJCJ("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):Response.Write CCJJCJCJ("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CJJJCCCC & CCJJCJCJ("Vmk^D6=64Em")
If CJJJCCJJ(1)>=3 Then
Response.Write CCJJCJCJ(" ,kD6=64E ,?2>6lV8C256Vm")
if CJJCCJC=0 then
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lVVm,") & CJCJCCJC(CCJJCJCJ("vC256")) & CCJJCJCJ(".k^@AE:@?m")
Call ShowListSelect(CCJJCJCJ(">6>36C08C256"),CJCCJCC,CJJCJCCC)
else
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJJCCJC & CCJJCJCJ("Vm") & CJCCJJCJ(CCJJCJCJ(">6>36C08C256"),CJCCJCC,CJJCCJC) & CCJJCJCJ("k^@AE:@?m")
end if:Response.Write CCJJCJCJ("k^D6=64Em")
End If:If CJJJCCJJ(3)<>"" Then
Response.Write CCJJCJCJ(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJCJCJJ=0 then
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lVVm,") & CJJJCCJJ(3) & CCJJCJCJ(".k^@AE:@?m")
Call ShowListSelect(CCJJCJCJ(">6>36C04FDE@>8C@FA"),CJCCJCC,CJJCCJJJ)
else
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJCJCJJ & CCJJCJCJ("Vm") & CJCCJJCJ(CCJJCJCJ(">6>36C04FDE@>8C@FA"),CJCCJCC,CJCJCJJ) & CCJJCJCJ("k^@AE:@?m")
end if:Response.Write CCJJCJCJ("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kD6=64E ,?2>6lQ=6G6=Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCCJJC="0",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQdQ ,")):Response.Write IIf(CJJCCJJC="5",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m????????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCCJJC="1",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m??, ,????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write IIf(CJJCCJJC="2",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m??, ,????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQeQ ,")):Response.Write IIf(CJJCCJJC="6",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m??, ,????????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CJJCCJJC="3",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("mU6>DAj??, ,????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write IIf(CJJCCJJC="4",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("mU6>DAj??, ,????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJCJJ:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJJCJJJC:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kD6=64E ,?2>6lQs62=Q ,:5lQs62=Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):dim CJCCJCJ:CJCCJCJ=split(CCJJCJCJ("??????????????M????????????????M????????????????,????????????????????M??????????,????????M????????@??????????"),CCJJCJCJ("M")):for CJCCJJC=0 to ubound(CJCCJCJ):response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJCCJJC & CCJJCJCJ("V") & IIf(CJJCJJCJ=cstr(CJCCJJC),CCJJCJCJ("D6=64E65"),"") & CCJJCJCJ("m") & CJCCJJC & CCJJCJCJ("] ,") & CJCCJCJ(CJCCJJC) & CCJJCJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQr@?DF=E2?EQ ,EJA6lQE6IEQ ,D:K6lQ`_Q ,G2=F6lQ")):Response.Write CJJCJJCC:Response.Write(CCJJCJCJ("Q ,E:E=6lQ????????????????Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm??????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJCJC:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ????????????Qm?? ,??k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJCJJCJC(126) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0255Q ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJJCJJJJ="1" Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:>8 ,DC4lQ:>286D^3F==6E]8:7Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,E:E=6lQ??????????????????????tI46=????????,??????????????????????????????,??Q ,@?r=:4<lQ;2G2D4C:AEi7@C>a]24E:@?lV4C:D:D0bC5024E]2DAn24El6IA@CE4964<65Vj7@C>a]DF3>:EWXjQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ4C:D:D0bC5024E]2DAn24El6IA@CE2==Q ,E:E=6lQ??????????????????????????tI46=????????,????????????????????????????????Qm????????k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCJCJ("k^7@C>m") & vbCrLf):Response.Write(CCJJCJCJ("k3Cm") & vbCrLf)::if CJJCJJJJ="1" then
sql=CCJJCJCJ("H96C6 ,") & CCCJJJC.sql_GetChildren(CJJJCCCC):if CJCJCJJC(CJJCJCCJ) then sql=sql & CCJJCJCJ(" ,2?5 ,>6>36Cl") & CJJCJCCJ
if CCJCJCC<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,?F>36ClV") & CCJCJCC & CCJJCJCJ("V")
if CJJCJJJC<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,C62=?2>6lV") & CJJCJJJC & CCJJCJCJ("V")
if CJJCJJCC<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,E62496ClV") & CJJCJJCC & CCJJCJCJ("V")
if CJCJCJJC(CJJCJJCJ) then sql=sql & CCJJCJCJ(" ,2?5 ,562= ,=:<6 ,VT") & CJJCJJCJ & CCJJCJCJ("TV")
if CJCJCJJC(CJJCJCCC) then sql=sql & CCJJCJCJ(" ,2?5 ,>6>36C08C256l") & CJJCJCCC
if CJCJCJJC(CJJCCJJJ) then sql=sql & CCJJCJCJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCCJJJ
if CJCJCJJC(CJJCCJJC) then
if CJJCCJJC="5" then
sql=sql & CCJJCJCJ(" ,2?5 ,{6G6=ml`")
elseif CJJCCJJC="6" then
sql=sql & CCJJCJCJ(" ,2?5 ,{6G6=mlb")
else
sql=sql & CCJJCJCJ(" ,2?5 ,{6G6=l") & CJJCCJJC
end if
end if:if isdate(CJJCJCJJ) then sql=sql & CCJJCJCJ(" ,2?5 ,52E6E:>6mlV") & CJJCJCJJ & CCJJCJCJ("V")
if isdate(CJJCJCJC) then sql=sql & CCJJCJCJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCJCJC)+1 & CCJJCJCJ("V")
if CJCCJCC<>"1" then sql=sql & CCJJCJCJ(" ,2?5 ,,8C@FA.kd")
if CJCJCJJC(CJJCJCCJ) then
sql=sql & CCJJCJCJ(" ,@C56C ,3J ,52E6E:>6 ,56D4")
else
sql=sql & CCJJCJCJ(" ,@C56C ,3J ,5@?6[,=6G6=. ,56D4[:5 ,56D4")
end if:Call CJCCJJCC(CCJJCJCJ("$""{"),sql):sql=CCJJCJCJ("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[E62496C[52E6E:>6[562=[,=6G6=.[5@?6[>@3:=6 ,7C@> ,G04C:D:D06G2=F2E6 ,") & sql:dim CJJCCJCJ:set CJJCCJCJ=new splitpage:with CJJCCJCJ:.sql=sql:.pagesize=20:.style=2:end with:set rs=CJJCCJCJ.rs:Response.Write(vbCrLf):Response.Write(CCJJCJCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,E:E=6lQ????????????????,????????????,??????????????,????????????QmRk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m")):Response.Write CJCJCCJC(CCJJCJCJ("}F>36C")):Response.Write(CCJJCJCJ("k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,E:E=6lQ????????????,UR`bj_] ,??????????????UR`bj`] ,????????????????UR`bja] ,????????????????,????????????????????UR`bjb] ,??????????,????????UR`bjc] ,????????@??????????Qm????????WnXk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):for CJCCJJC=1 to CJJCCJCJ.pagesize:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCCJCJ.listnum(CJCCJJC):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,G2=F6lQ")):Response.Write rs(0):Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m")):Response.Write rs(2):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm")):Response.Write rs(3):Response.Write(CCJJCJCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(9):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):if rs(8) then call showlevel(rs(7)) else response.Write CCJJCJCJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i8C2JjVm?? ,??k^5:Gm")
Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(6):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJCCCC(rs(5),0):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):if rs(8) then response.Write rs(4)
Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,9C67lQ4C:D:D0bC5024E]2DAn24ElG:6HU:5l")):Response.Write rs(0):Response.Write(CCJJCJCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJCJJCJC(126) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,9C67lQ4C:D:D0bC5024E]2DAn24El>@5U:5l")):Response.Write rs(0):Response.Write(CCJJCJCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,????") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If::If CJCJJCJC(126) and rs(8) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,9C67lQ4C:D:D0bC5024E]2DAn24El255UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,????") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If::If CJCJJCJC(127) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,9C67lQ4C:D:D0bC5024E]2DAn24El56=U:5l")):Response.Write rs(0):Response.Write(CCJJCJCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJCJCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4@=DA2?lQ`_Qm")):call CJJCCJCJ.showpage:Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJCJ("k^7@C>m") & vbCrLf)::set CJJCCJCJ=nothing
else
response.write CCJJCJCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
response.Write CCJJCJCJ("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 CCJJCJCJ("k=:m??????????????,????????????????,??????????,??????????,??????????,??????????@????????????????????????????????????????????????????,????????????????????????????????,k^=:m"):response.Write CCJJCJCJ("k=:m??????????????,????????????????????????@????????????????????,????????????????????????????????????????????????????,k^=:m"):response.Write CCJJCJCJ("k=:m??????????,??????????????????????????????,????????????????????????????,????,????????????,k^=:mk^@=mk^5:Gm")
end if:Sub ShowLevel(CJJCCJJC):dim CJJCCJCC:if not CJCJCJJC(CJJCCJJC) then
response.Write CCJJCJCJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i8C2JjVm?? ,??k^5:Gm")
else
CJJCCJCC=split(CCJJCJCJ("?? ,??M?? ,??M?? ,??M?? ,??M?? ,??"),CCJJCJCJ("M")):response.Write CCJJCJCJ("k5:G ,4=2DDlV=6G6=V ,DEJ=6lV324<8C@F?5i")
select case cint(CJJCCJJC):case 0 : response.Write CCJJCJCJ("R__g___"):case 1 : response.Write CCJJCJCJ("R__u"):case 2 : response.Write CCJJCJCJ("Ruu_j4@=@CiR___"):case 3 : response.Write CCJJCJCJ("Ruupd__"):case 4 : response.Write CCJJCJCJ("Ru__"):end select:response.Write CCJJCJCJ("jVm") & CJJCCJCC(CJJCCJJC) & CCJJCJCJ("k^5:Gm")
end if:End Sub:Response.Write(vbCrLf):Response.Write(CCJJCJCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CJJCJJC:Response.Write(CCJJCJCJ("Qm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("SW7F?4E:@?WSXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWV:,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVR3E?0255VX]4=:4<W7F?4E:@?WX ,LH:?5@H]=@42E:@?lVBF6CJ?F>36C]2DAn>D8l????????????U8@E@FC=l4C:D:D0bC5024E]2DAVNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWV2i4@?E2:?DWQ????QXV[SWVE23=6]E30=:DEVXX]4=:4<W7F?4E:@?WXL:7WP4@?7:C>WV????????????????????????,????????????,????????????????,VXXLC6EFC? ,72=D6NNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,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(CCJJCJCJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJJCJCJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCJJCJCJ(" ,EC66iECF6") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ("NX") & vbCrLf):Response.Write(CCJJCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJJC=nothing:set CJCJCJCC=nothing:set CJCJCCJJ=nothing:set CJCJCCJC=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:rs.Close:Set rs=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCJCJ(ByVal CCJJCJJC)
Dim CJJCCCJJ, CJCCJJC, CCJJJCJ
CCJJCJJC = Replace(CCJJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJJC = 1 To Len(CCJJCJJC)
If CJCCJJC <> CCJJJCJ Then
CJJCCCJJ = AscW(Mid(CCJJCJJC, CJCCJJC, 1))
If CJJCCCJJ >= 33 And CJJCCCJJ <= 79 Then
CCJJCJCJ = CCJJCJCJ & Chr(CJJCCCJJ + 47)
ElseIf CJJCCCJJ >= 80 And CJJCCCJJ <= 126 Then
CCJJCJCJ = CCJJCJCJ & Chr(CJJCCCJJ - 47)
Else
CCJJJCJ = CJCCJJC + 1
If Mid(CCJJCJJC, CCJJJCJ, 1) = Chr(64) Then CCJJCJCJ = CCJJCJCJ & ChrW(CJJCCCJJ + 5) Else CCJJCJCJ = CCJJCJCJ & Mid(CCJJCJJC, CJCCJJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de