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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJC, CCCCCJ,rs, CJJJJJJ, sql:Set CCCCJC = server.CreateObject(CCJJJCCJ("ps~sq]r@??64E:@?")):CCCCJC.open Application(CCJJJCCJ("r@??64E:@?$EC:?8")):Set CCCCCJ=CCCCJC::Dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ:CJCJCJJ=Trim(Request.Cookies(CCJJJCCJ("!$*|t|qt#"))):if CJCJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJCJ>0 then
sql=CCJJJCCJ("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") & CJJJJCC & CCJJJCCJ("V ,2?5 ,:5l") & CJJJJCJ
set rs=CCCCJC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJJCJJ=rs(2) & "":CJJJCJC=rs(3):CJJJCCJ=rs(5):CJJJCCC=rs(6):CJJCJJJ=rs(9):CJJCJJC=rs(15):CJJCJCC=rs(0):CJCJJCJ=rs(1):CJCJJJC=rs(11) & "":CJJCCJJ=rs(10) & "":CJJCJCJ=rs(12):CJJCCJC=rs(14):CJJCCCJ=rs(13):CJJCCCC=rs(7) & "":CJCJJJJ=rs(4):CJCJJCC=rs(8):if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CJJCJJJ) or CJJCJJJ=0 then CJJCJJJ=CJJJCJC
if isnull(CJCJJJJ) then CJCJJJJ=0
if isnull(CJJJCCJ) then CJJJCCJ=0
if instr(CCJJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCC)>0 then Call RedirectMessage(CCJJJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJCJ,CJJJJCC)
End IF
end if:Sub CheckRight(CCJCJCJ):dim CJCJCJC,CJCJCCJ:if CJJJJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJJCCJ("??????????????,????????????,"))
elseIf not CJCJJJJJ(CCJCJCJ) then
Call RedirectMessage(CCJJJCCJ("????W") & CCJCJCJ & CCJJJCCJ("X????????,????????????????????,"))
end if:End Sub:Function CJCJJJJJ(CCJCJCJ):dim CJCJCJC,CJCJCCJ:CJCJCCJ=split(CCJCJCJ,CCJJJCCJ("[")):CJCJJJJJ=False:for CJCJCJC=0 to ubound(CJCJCCJ):If Mid(CJJJCJJ,CJCJCCJ(CJCJCJC),1)="1" then
CJCJJJJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJCCC:CJCJCCC=trim(request.QueryString(CCJJJCCJ("D49@@="))):if isnumeric(CJCJCCC) then
response.Redirect CCJJJCCJ("^>^G2?E^R^D49@@=^") & CJCJCCC & CCJJJCCJ("^DEF56?E^=@8:?nC65:C64El") & CCJJJJJ
else
Call RedirectMessage(CCJJJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJJCCJ("!$*|t|qt#"))="":CJJJJCJ=0:CJJJCCC=0:CJJJJCC=Empty:CJJJCCJ=0:CJJCJJC=0:CJJCJJJ=0:CJJJCJC=0:CJJCJCC=False:CJCJJCJ=False:CJCJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJJ,CJCCJJC,CJCJCJC,CJCCJCJ,CJCCJCC:CJCCJJJ=split(CJCJCJJ,CCJJJCCJ("]")):if ubound(CJCCJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJJJ(0)) or len(CJCCJJJ(1))<>32 or len(CJCCJJJ(2))<>32 then
Call ClearMemberCookie
else
CJCCJJC=CJCCJJJ(1):for CJCJCJC=1 to len(CJCCJJC):CJCCJCJ=mid(CJCCJJC,CJCJCJC,1):if isnumeric(CJCCJCJ) then CJCCJCC=CJCCJCC & CJCCJCJ
if len(CJCCJCC)=7 then exit for
next:CJCCJJC=CJCCJJJ(2):if CJCCJCC<>mid(CJCCJJC,6,7) then
Call ClearMemberCookie
else
CJCCJCJ=mid(CJCCJJC,18,10)/2:if CJCCJCJ<DateDiff(CCJJJCCJ("D"), CCJJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJCJ=Clng(CJCCJJJ(0)):CJJJJCC=CJCCJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCJCCJ,CCJJJCCC):dim CJCJCJC,CJCCJCJ,CJCCJCC:for CJCJCJC=1 to len(CCJJJCCC):CJCCJCJ=mid(CCJJJCCC,CJCJCJC,1):if isnumeric(CJCCJCJ) then CJCCJCC=CJCCJCC & CJCCJCJ
if len(CJCCJCC)=7 then exit for
next:CJCCJCC=CJCCJCCJ & CCJJJCCJ("]") & CCJJJCCC & CCJJJCCJ("]") & Fix(10000*(Rnd+1)) & CJCCJCC & Fix(10000*(Rnd+1)) & DateDiff(CCJJJCCJ("D"), CCJJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJJCCJ("!$*|t|qt#"))=CJCCJCC:End Sub::Function CJCJJJJC(CCJJCJJJ):Dim str,CJCCCJC:str = Trim(CCJJCJJJ):If IsNull(str) Or str = "" Then
CJCJJJJC = ""
else
str=Replace(str, CCJJJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJJJCCJ("k:7C2>6"), CCJJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJJCCJ("kD4C:AE"), CCJJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCJC=new RegExp:CJCCCJC.Pattern=CCJJJCCJ("@?W,2\K.ZXl"):CJCCCJC.IgnoreCase = True:CJCCCJC.Global=True:str=CJCCCJC.Replace(str,CCJJJCCJ("@?S`U6BF2=Dj")):set CJCCCJC=nothing:CJCJJJJC=str
End If:End Function:Function IIf(CCJJCJJC, CCJJCJCJ, CCJJCJCC):if isnull(CCJJCJJC) or isempty(CCJJCJJC) then
IIf = CCJJCJCC
elseif CCJJCJJC Then
IIf = CCJJCJCJ
Else
IIf = CCJJCJCC
end if:End Function:Const CJJCCJJJ="^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 CJCJCJC,CJCCJCJ,CJCCCCJ:if isarray(str) then
on error resume next:CJCJCJC=ubound(str,2):CJCCCCJ=err.number:err.clear:on error goto 0:if CJCCCCJ<>0 then
for CJCJCJC=0 to ubound(str):if CJCJCJC>0 then response.Write CCJJJCCJ("k3C ,^m")
response.Write CJCJCJC & CCJJJCCJ("i ,") & str(CJCJCJC):next
else
response.Write CCJJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJCJC=0 to ubound(str,2):response.Write CCJJJCCJ("kE9 ,2=:8?lV=67EVm") & CJCJCJC & CCJJJCCJ("k^E9m")
next:response.Write CCJJJCCJ("k^ECm"):for CJCJCJC=0 to ubound(str):response.Write CCJJJCCJ("kECmkE9m") & CJCJCJC & CCJJJCCJ("k^E9m"):for CJCCJCJ=0 to ubound(str,2):response.Write CCJJJCCJ("kE5m") & str(CJCJCJC,CJCCJCJ) & CCJJJCCJ("k^E5m"):next:response.Write CCJJJCCJ("k^ECm"):next:response.Write CCJJJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJJJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJJJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJCJJJCC():Dim CJCCCCC, CCJJJJJ:CCJJJJJ = Request.ServerVariables(CCJJJCCJ("!p%w0x}u~")):CJCCCCC = Request.ServerVariables(CCJJJCCJ("""&t#*0$%#x}v")):If CJCCCCC <> Empty Then
if instr(lcase(CJCCCCC),CCJJJCCJ("Tb4:7C2>6"))>0 or instr(lcase(CJCCCCC),CCJJJCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJJJCCJ("????????,????????????????????????,??,??,"))
CCJJJJJ = CCJJJJJ & CCJJJCCJ("n") & CJCCCCC
end if:CJCJJJCC = CCJJJJJ:End Function:Sub SetHttpOnlyCookie(CCJJCCJJ,CCJJCCJC):dim CJCCJJJ:CJCCJJJ=CCJJCCJJ & CCJJJCCJ("l") & CCJJCCJC & CCJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJJCCJ("$6E\r@@<:6"),CJCCJJJ):End Sub:::Function CJCJJCJJ(ByVal Str, ByVal StrLen):Dim CCJJJJC, CCJJJCJ, CCJJJCC, CJCJCJC:if isnull(str) then
CJCJJCJJ=""
else
CCJJJJC = Len(Str):CCJJJCJ = 0:For CJCJCJC = 1 To CCJJJJC:CCJJJCC = AscW(Mid(Str, CJCJCJC, 1)):If CCJJJCC < 0 Or CCJJJCC > 255 Then CCJJJCJ = CCJJJCJ + 2 Else CCJJJCJ = CCJJJCJ + 1
If CCJJJCJ >= StrLen Then
CJCJJCJJ = Left(Str, CJCJCJC) & CCJJJCCJ("]]]"):Exit For
Else
CJCJJCJJ = Str
End If:Next
end if:End Function::::Function CJCJJCJC(CJCCCCJ):if isnull(CJCCCCJ) or trim(CJCCCCJ)="" or not isnumeric(CJCCCCJ) then
CJCJJCJC=false
else
Dim CJCCCJC:Set CJCCCJC = New RegExp:CJCCCJC.Pattern = CCJJJCCJ("/-5ZS"):CJCCCJC.IgnoreCase = True:CJCJJCJC = CJCCCJC.test(CJCCCCJ):set CJCCCJC=nothing
end if:End Function:Function CJCJJCCJ(CCJJCCCJ):dim CCJJCJJ,CCJJCJC:CCJJCJJ=CCJJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJCCCJ & CCJJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJCJC=CCCCJC.execute(CCJJCJJ):CJCJJCCJ = CCJJCJC(0):if isnull(CJCJJCCJ) then CJCJJCCJ=1
CCJJCJC.close : set CCJJCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCCCC=nothing:set CJCJJCCC=nothing:set CJCJCJJJ=nothing:set CJCJCJJC=nothing:CCJJCJC.close : set CCJJCJC=nothing:CJJJJJJ.Close : Set CJJJJJJ=Nothing:rs.Close : Set rs=Nothing:CJCJCJCJ.Close : Set CJCJCJCJ = Nothing:CCCCJC.Close : Set CCCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJJCCJ("!$*0|6DD286"),server.URLEncode(CCJJCCCC)):Response.Redirect CCJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::Function CJCJCJCC(CCJCJJJJ):CJCJCJCC=CCJCJJJJ:End Function:::::Function CJCJCCJJ(ByVal CJCJCCJC,style):if not isdate(CJCJCCJC) then
CJCJCCJJ=CJCJCCJC:exit function
end if:dim CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CJCJCCJC=cdate(CJCJCCJC):CCJJCCJ=Year(CJCJCCJC):CCJJCCC=Month(CJCJCCJC):CCJCJJJ=Day(CJCJCCJC):select case style:case 0:CJCJCCJJ=CCJJCCJ & CCJJJCCJ("\") & right(0 & CCJJCCC,2) & CCJJJCCJ("\") & right(0 & CCJCJJJ,2):case 1:CJCJCCJJ=CCJJCCJ & right(0 & CCJJCCC,2) & right(0 & CCJCJJJ,2):case 2:CJCJCCJJ=right(CCJJCCJ,2) & CCJJJCCJ("\") & right(0 & CCJJCCC,2) & CCJJJCCJ("\") & right(0 & CCJCJJJ,2):case 3:CJCJCCJJ=CCJJCCJ & CCJJJCCJ("\") & right(0 & CCJJCCC,2):case 4:CJCJCCJJ=right(0 & CCJJCCC,2) & CCJJJCCJ("\") & right(0 & CCJCJJJ,2):case 5:CJCJCCJJ=right(0 & CCJCJJJ,2):case 6:CJCJCCJJ=CCJJCCJ & CCJJJCCJ("??") & right(0 & CCJJCCC,2) & CCJJJCCJ("??") & right(0 & CCJCJJJ,2) & CCJJJCCJ("??"):case else
CJCJCCJJ=CJCJCCJC:end select:End Function:Function CJCJCCCJ(Table):Dim CCJJCJC, CCJCJCJ, str(), CJCJCJC,CJCCJCJ,CCJCJCC:CCJCJCC=UCase(Table):If Not IsArray(Application(CCJJJCCJ("!$*0") & CCJCJCC)) Then
Sql=CCJJJCCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJJJCCJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=server.createobject(CCJJJCCJ("25@53]C64@C5D6E")):CCJJCJC.open sql,CCCCJC,1:CCJCJCJ = CCJJCJC.RecordCount:ReDim str(CCJCJCJ, 2):If CCJCJCJ > 0 Then
For CJCJCJC = 1 To CCJCJCJ:for CJCCJCJ=0 to 2:str(CJCJCJC, CJCCJCJ) = CCJJCJC(CJCCJCJ):next:CCJJCJC.MoveNext:Next
End If:CCJJCJC.Close: Set CCJJCJC = Nothing:Application(CCJJJCCJ("!$*0") & CCJCJCC) = str
End If:CJCJCCCJ = Application(CCJJJCCJ("!$*0") & CCJCJCC):End Function:Sub ShowListSelect(CCJJCCCJ,CCJCJJJC,CCJCJJCJ):Dim str, CJCJCJC, CCJCCJJ:CCJCCJJ = CJCJCCCJ(CCJJCCCJ):For CJCJCJC = 1 To UBound(CCJCCJJ):if Cstr(CCJCCJJ(CJCJCJC,2))=Cstr(CCJCJJJC) then
str = str & CCJJJCCJ("k@AE:@? ,G2=F6lV") & CCJCCJJ(CJCJCJC, 0) & CCJJJCCJ("V")
If CStr(CCJCCJJ(CJCJCJC, 0)) = CCJCJJCJ & "" Then str = str & CCJJJCCJ(" ,D6=64E65lVD6=64E65V")
str = str & CCJJJCCJ("m") & CCJCCJJ(CJCJCJC, 1) & CCJJJCCJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJCJCCCC(CCJJCCCJ,CCJCJJJC,CJCCJCCJ):Dim str, CJCJCJC, CCJCCJJ:CCJCCJJ = CJCJCCCJ(CCJJCCCJ):For CJCJCJC = 1 To UBound(CCJCCJJ):if Cstr(CCJCCJJ(CJCJCJC,2))=Cstr(CCJCJJJC) and CStr(CCJCCJJ(CJCJCJC, 0)) = CJCCJCCJ & "" then
str=CCJCCJJ(CJCJCJC,1):exit for
end if:Next:if str="" then str=CCJJJCCJ(",????.")
CJCJCCCC=str:End Function:::::::::::::::Function CJCCJJJJ(CCJCJJCC,str):dim CJCJCJC,CCJJJJC,CCJCCJC,CCJJCCC,CJCCCCJ,CCJCCCJ,CJCCJCC:CJCCJCC=ucase(CCJCJJCC):CCJCCCJ=str:if CCJCCCJ="" then
CCJCCCJ=request.cookies(CJCCJCC):if CCJCCCJ="" then
CJCCJJJJ=""
else
CCJCCCJ=strreverse(CCJCCCJ):CCJJJJC=len(CCJCCCJ):for CJCJCJC=1 to CCJJJJC-1 step 2:CCJJCCC=mid(CCJCCCJ,CJCJCJC,1):CJCCCCJ=mid(CCJCCCJ,CJCJCJC+1,1):CCJCCJC=CCJCCJC & CJCCCCJ & CCJJCCC:next:CCJCCJC=replace(CCJCCJC,CCJJJCCJ("L0N"),CCJJJCCJ(" ,")):CCJCCJC=replace(CCJCCJC,CCJJJCCJ("LIN"),CCJJJCCJ("Y")):CCJCCJC=replace(CCJCCJC,CCJJJCCJ("L:N"),CCJJJCCJ("^")):CJCCJJJJ=trim(CCJCCJC)
end if
else
if Len(CCJCCCJ) Mod 2=1 then CCJCCCJ=CCJCCCJ & CCJJJCCJ(" ,")
CCJCCCJ=replace(CCJCCCJ,CCJJJCCJ(" ,"),CCJJJCCJ("L0N")):CCJCCCJ=replace(CCJCCCJ,CCJJJCCJ("Y"),CCJJJCCJ("LIN")):CCJCCCJ=replace(CCJCCCJ,CCJJJCCJ("^"),CCJJJCCJ("L:N")):CCJJJJC=len(CCJCCCJ):for CJCJCJC=1 to CCJJJJC-1 step 2:CCJJCCC=mid(CCJCCCJ,CJCJCJC,1):CJCCCCJ=mid(CCJCCCJ,CJCJCJC+1,1):CCJCCJC=CCJCCJC & CJCCCCJ & CCJJCCC:next:CCJCCJC=Trim(strreverse(CCJCCJC)):CJCCJJJJ=CCJCCJC:response.cookies(CJCCJCC)=CCJCCJC
end if:End Function::Sub ClearCache(CCJCJCJJ):Application.Contents.Remove CCJCJCJJ
End Sub::Class jTree:Private Sql, CCJCCCC, CCCJJJJ, CCCJJJC,CCCJJCJ,CCCJJCC,CCCJCJJ,CCCJCJC:Private Sub Class_Initialize():CCCJJJJ = 0:CCCJJJC = 0:CCCJCJC=10:End Sub:Public Property Let Table(CCJCJCJC):if CCJCJCJC="" then Call RedirectMessage(CCJJJCCJ("????????,;%C66????????????????????@??????????,"))
CCCJJCJ=CCJCJCJC:CCCJJCC=CCJJJCCJ("!$*0") & UCase(CCCJJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJJCJ:End Property:::Private Sub GetTreeArray():Dim CJCJCJC, CJCCJCJ, CCCJCCJ,RecordCount:CCJCCCC = Application(CCCJJCC):If Not IsArray(CCJCCCC) Then
Sql = CCJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJJCJ:if CCCJCJJ<>"" then Sql=Sql & CCJJJCCJ(" ,H96C6 ,") & CCCJCJJ
set CCCJCCJ=CCCCJC.execute(sql):RecordCount=CCCJCCJ(0):if RecordCount=0 then Call RedirectMessage(CCJJJCCJ("????W") & CCCJJCJ & CCJJJCCJ("^") & CCCJCJJ & CCJJJCCJ("X????????????"))
CCCJJJC=RecordCount+CCCJCJC:ReDim CCJCCCC(CCCJJJC, 4):Sql = CCJJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJCJ & CCJJJCCJ(" ,H:E9 ,W?@=@4<X"):if CCCJCJJ<>"" then Sql=Sql & CCJJJCCJ(" ,H96C6 ,") & CCCJCJJ
Sql=Sql & CCJJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJCCJ=CCCCJC.execute(sql):For CJCJCJC = 1 To RecordCount:For CJCCJCJ = 0 To 4:CCJCCCC(CJCJCJC, CJCCJCJ) = CCCJCCJ(CJCCJCJ):if IsNull(CCJCCCC(CJCJCJC,4)) then CCJCCCC(CJCJCJC,4)=0
If CCJCCCC(CJCJCJC,2)="" then CCJCCCC(CJCJCJC,2)=CCJJJCCJ(",??.")
Next:CCCJCCJ.MoveNext:Next:CCCJCCJ.Close: Set CCCJCCJ = Nothing:for CJCJCJC=CCCJJJC-(CCCJCJC-1) to CCCJJJC:CCJCCCC(CJCJCJC,0)=CJCJCJC:next:Application.Lock():Application(CCCJJCC) = CCJCCCC:Application.UnLock()
else
CCCJJJC=Ubound(CCJCCCC)
End If:End Sub:::::Private Function CJCCJJCJ(CJCCJCCJ):dim CJCJCJC,CCCCJJJ:CJCCJJCJ=0:CCCCJJJ=CStr(CJCCJCCJ):if CCCCJJJ<>"0" then
for CJCJCJC=1 to CCCJJJC:If CStr(CCJCCCC(CJCJCJC, 0))=CCCCJJJ Then
CJCCJJCJ = CJCJCJC:Exit For
End If:Next
end if:End Function::::Public Function CJCCJJCC(CJCCJCCJ):Dim CJCJCJC,CCCCJJC:CJCJCJC=CJCCJJCJ(CJCCJCCJ):if CJCJCJC=0 then
CCCCJJC=CJCCJCJJ(CJCCJCCJ)
else
CCCCJJC=CCJCCCC(CJCJCJC,3):if isnull(CCCCJJC) or CCCCJJC="" then
CCCCJJC=CJCCJCJJ(CJCCJCCJ)
elseif Mid(CCCCJJC,instrrev(CCCCJJC,CCJJJCCJ("["))+1)<>CStr(CJCCJCCJ) then
CCCCJJC=CJCCJCJJ(CJCCJCCJ)
elseif Left(CCCCJJC,1)=CCJJJCCJ("[") then
CCCCJJC=CJCCJCJJ(CJCCJCCJ)
end if
end if:CJCCJJCC=CCCCJJC:End Function:Private Function CJCCJCJJ(CJCCJCCJ):dim CCCCJJJ:CCCCJJJ=CStr(CJCCJCCJ):if CCCCJJJ="0" then
CJCCJCJJ=""
else
dim CCCJCCJ:set CCCJCCJ=CCCCJC.execute(CCJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJJCJ & CCJJJCCJ(" ,H96C6 ,:5l") & CJCCJCCJ):if CCCJCCJ.eof then
Call UpdateCache(CJCCJCCJ,"","","",""):Call RedirectMessage(CCJJJCCJ("??????,xs??,") & CJCCJCCJ & CCJJJCCJ("??,????????,????????????????????,"))
else
if CCCJCCJ(0)=0 then
CJCCJCJJ="0," & CJCCJCCJ
else
CJCCJCJJ=CJCCJJCC(CCCJCCJ(0)) & CCJJJCCJ("[") & CJCCJCCJ
end if:if CCCJCCJ(2)<>CJCCJCJJ then
CCCCJC.execute CCJJJCCJ("FA52E6 ,") & CCCJJCJ & CCJJJCCJ(" ,D6E ,A2E9lV") & CJCCJCJJ & CCJJJCCJ("V ,H96C6 ,:5l") & CJCCJCCJ
else
CJCCJCJJ=CCCJCCJ(2)
end if
end if:Call UpdateCache(CJCCJCCJ,CCCJCCJ(0),CCCJCCJ(1),CJCCJCJJ,CCCJCCJ(3)):CCCJCCJ.Close: Set CCCJCCJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJCCJCCJ):dim CCCCJJC:CCCCJJC=CJCCJJCC(CJCCJCCJ):Sql_GetChildren = CCCJJCJ & CCJJJCCJ("0A2E9ZV[V ,=:<6 ,V") & CCCCJJC & CCJJJCCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCCJJCC
End Sub:Public Sub UpdateCache(CJCCJCCJ,CCJCJCCJ,CCJCJCCC,CCCCJJC,CCJCCJJJ):dim CJCJCJC,CJCCJCJ:CJCCJCCJ=CLng(CJCCJCCJ):CJCJCJC=CJCCJJCJ(CJCCJCCJ):if CCJCJCCJ="" and CCJCJCCC="" and CCCCJJC="" and CCJCCJJJ="" then
if CJCJCJC>0 then
for CJCCJCJ=1 to 4:CCJCCCC(CJCJCJC,CJCCJCJ)=Null:next
end if
else
if CJCJCJC=0 then
for CJCCJCJ=1 to CCCJJJC:if CCJCCCC(CJCCJCJ,1) & ""="" then
CJCJCJC=CJCCJCJ:exit for
end if:next
end if:if CJCJCJC=0 then
Call ClearCache
else
CCJCCCC(CJCJCJC,0)=CLng(CJCCJCCJ):if CCJCJCCJ<>"" then CCJCCCC(CJCJCJC,1)=CLng(CCJCJCCJ)
if CCJCJCCC<>"" then CCJCCCC(CJCJCJC,2)=CCJCJCCC
if CCCCJJC<>"" then CCJCCCC(CJCJCJC,3)=CCCCJJC
if CCJCCJJJ<>"" then CCJCCCC(CJCJCJC,4)=CLng(CCJCCJJJ)
end if
end if:if CJCJCJC>0 then
Application.Lock():Application(CCCJJCC) = CCJCCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJJCCCC):Call ConnClose:Response.Write CCJJCCCC:Response.End:End Sub:Private Function CJCJJCCJ():CJCJJCCJ=CJCCJCCC+1:End Function:Private Function CJCCJCCC():dim CCJJCJC:set CCJJCJC=CCCCJC.execute(CCJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJJCJ & CCJJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCJCCC=CCJJCJC(0):CCJJCJC.Close: Set CCJJCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCCJJC ="9"
Const CJJCCJCJ ="7"
Const CJJCCJCC ="3"
Const CJJCCCJJ ="4"
Const CJJCCCJC ="8"
Const CJJCCCCJ =":"
Const CJJCCCCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCCCJCC, CCCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC, CCJJJJJ, CJJJJJJJ, CJJJJJJC, CJJJJJCJ, CJJJJJCC:Private Function CJCCCJJJ():Dim CJJJJCJJ:CJJJJCJJ = "??" & CCCCCCC & CCJJJCCJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJJJCJ & CCJJJCCJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCCCJ & CCJJJCCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CCJJJCCJ("k^3mk^DA2?m??")
CJCCCJJJ = CJJJJCJJ:End Function:Private Function CJCCCJJC():CJCCCJJC = CCJJJCCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCCCCCJ & CCJJJCCJ("V ,DEJ=6lV") & CJJCCCCC & CCJJJCCJ("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") & CCJJJJJ & CCJJJCCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJCCCJCJ():CJCCCJCJ = CCJJJCCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJCCCCC & CCJJJCCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCJJJJJ & CCJJJCCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJCCCJCC():Dim CJJJJCJJ, CJCJCJC:CJJJJCJJ = CCJJJCCJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCJJJJJ & CCJJJCCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJCJCJC = 1 To PageCount:CJJJJCJJ = CJJJJCJJ & CCJJJCCJ("k@AE:@? ,G2=F6lV") & CJCJCJC & CCJJJCCJ("V")
If CJCJCJC = CCCCCCJ Then CJJJJCJJ = CJJJJCJJ & CCJJJCCJ(" ,D6=64E65")
CJJJJCJJ = CJJJJCJJ & CCJJJCCJ("m") & CJCJCJC & CCJJJCCJ("k^@AE:@?m"):Next:CJJJJCJJ = CJJJJCJJ & CCJJJCCJ("k^D6=64Em??"):CJCCCJCC = CJJJJCJJ:End Function:Public Sub ShowPage():Dim CJCJCJC, CJJJJCJC,CJJJJCCJ,CJJJJCCC:if CCCCCCC>0 then
CJJJJCJC = CCJJJCCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJCCCJJJ & CCJJJCCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJJJJJCC:Case 1: CJJJJCCC = CJCCCCCJ:Case 2: CJJJJCCC = CJCCCCCC:Case 3: CJJJJCCC = CCJJJJJJ:Case 4: CJJJJCCC = CCJJJJJC:Case 5: CJJJJCCC = CCJJJJCJ:Case 6: CJJJJCCC = CCJJJJCC:Case 7: CJJJJCCC = CCJJJCJJ:Case 8: CJJJJCCC = CCJJJCJC:End Select
End If:CJJJJCCJ = CCJJJCCJ("k^5:Gmk^5:Gm")
end if:if CJJJJJCC>=6 then
Response.Write CJJJJCCC
else
Response.Write CJJJJCJC & CJJJJCCC & CJJJJCCJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCCCJJ = Server.CreateObject(CCJJJCCJ("ps~sq]#64@C5$6E")):CCCCCJJ.PageSize = CJJJJJCJ:CCCCCJJ.Open CCCCCJC, CCCCJCC, 1:If err then
Response.Write	CCJJJCCJ("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 & CCJJJCCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CCCCCJJ.EOF Then
CCCCCCC = CCCCCJJ.RecordCount:PageCount = CCCCCJJ.PageCount:If CCCCCCJ > PageCount Then CCCCCCJ = PageCount
CCCCCJJ.AbsolutePage = CCCCCCJ
End If:Set Rs = CCCCCJJ:End Function:Public Property Let CCCCCJ(CCJCCJJC):Set CCCCJCC = CCJCCJJC:End Property:Public Property Let SQL(str):CCCCCJC = str:End Property:Public Property Let Style(CCJCJCJ):If IsNumeric(CCJCJCJ) Then
CJJJJJCC = CInt(CCJCJCJ):If CJJJJJCC < 1 Or CJJJJJCC > 8 Then CJJJJJCC = 1
Else
CJJJJJCC = 1
End If:End Property:Public Property Let PageSize(CCJCJCJ):If IsNumeric(CCJCJCJ) Then
CJJJJJCJ = CInt(CCJCJCJ):If CJJJJJCJ < 1 Then CJJJJJCJ = 10
Else
CJJJJJCJ = 10
End If:End Property:Public Property Get PageSize():If CCCCCCJ = PageCount Then
PageSize = CCCCCCC - CJJJJJCJ * (PageCount - 1)
Elseif CCCCCCC=0 then
pagesize=0
else
PageSize = CJJJJJCJ
end if:End Property:Private Sub Class_Initialize():dim CJJJCJJJ:CJJJJJCJ = 10:CJJJJJCC = 1:Set CCCCJCC = CCCCJC:CCCCCCJ = Trim(Request.QueryString(CCJJJCCJ("!286"))):If IsNumeric(CCCCCCJ) Then
CCCCCCJ = CLng(CCCCCCJ):If CCCCCCJ < 1 Then CCCCCCJ = 1
Else
CCCCCCJ = 1
End If:CJJJJJJC = Trim(Request.ServerVariables(CCJJJCCJ("&#{"))):CJJJJJJC = Mid(CJJJJJJC, InStrRev(CJJJJJJC, CCJJJCCJ("^")) + 1):CJJJJJJJ = Split(Trim(Request.ServerVariables(CCJJJCCJ("""&t#*0$%#x}v"))), CCJJJCCJ("U")):CCJJJJJ = Server.HtmlEncode(CCJCCJCJ):CJJJCJJJ=lcase(CCJJJJJ):if instr(CJJJCJJJ,CCJJJCCJ("Tb4:7C2>6"))>0 or instr(CJJJCJJJ,CCJJJCCJ("Tb4D4C:AE"))>0 or instr(CJJJCJJJ,CCJJJCCJ("V"))>0 or instr(CJJJCJJJ,CCJJJCCJ(";2G2D4C:AE"))>0 or instr(CJJJCJJJ,CCJJJCCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CCJJJCCJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CCJCJCJ):ListNum = CJJJJJCJ * (CCCCCCJ - 1) + CCJCJCJ:End Function:Private Function CCJCCJCJ():Dim CJCJCJC, str:For CJCJCJC = 0 To UBound(CJJJJJJJ):If InStr(LCase(CJJJJJJJ(CJCJCJC)), CCJJJCCJ("A286l")) = 0 Then str = str & CCJJJCCJ("U") & CJJJJJJJ(CJCJCJC)
Next:str = Mid(str, 2):If str = "" Then CCJCCJCJ = CJJJJJJC & CCJJJCCJ("n") & CCJJJCCJ("A286l") Else CCJCCJCJ = CJJJJJJC & CCJJJCCJ("n") & str & CCJJJCCJ("UA286l")
End Function:Private Function CJCCCCCJ():Dim str:str = CCJJJCCJ("???? ,??"):For CJCJCJC = 1 To PageCount:If CJCJCJC = CCCCCCJ Then str = str & CCJJJCCJ("k3m") & CJCJCJC & CCJJJCCJ("k^3m ,") Else str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CJCJCJC & CCJJJCCJ("Vm") & CJCJCJC & CCJJJCCJ("k^2m ,")
Next:str = str & CCJJJCCJ("??"):CJCCCCCJ = str:End Function:Private Function CJCCCCCC():Dim str:If CCCCCCJ > 1 Then
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCJJJCCJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJJC & CCJJJCCJ("k^2m ,")
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJCC & CCJJJCCJ("k^2m ,")
Else
str = str & CJJCCJJC & CCJJJCCJ(" ,") & CJJCCJCC
End If:If CCCCCCJ < PageCount Then
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCJJ & CCJJJCCJ("k^2m ,")
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & PageCount & CCJJJCCJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCCJ & CCJJJCCJ("k^2m ,")
Else
str = str & CJJCCCJJ & CCJJJCCJ(" ,") & CJJCCCCJ
End If:str = str & CJCCCJJC:str = str & CJCCCJCJ:CJCCCCCC = str:End Function:Private Function CCJJJJJJ():Dim str, CJCCJJC:CJCCJJC = (CCCCCCJ - 1) \ 10:If CCCCCCJ = 1 Then str = str & CJJCCJJC & CCJJJCCJ(" ,") Else str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCJJJCCJ("`V ,E:E=6lV????Vm") & CJJCCJJC & CCJJJCCJ("k^2m ,")
If CJCCJJC * 10 > 0 Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 10 & CCJJJCCJ("V ,E:E=6lV??????Vm") & CJJCCJCJ & CCJJJCCJ("k^2m ,")
For CJCJCJC = (CJCCJJC * 10 + 1) To (CJCCJJC * 10 + 10):If CJCJCJC = CCCCCCJ Then str = str & CCJJJCCJ("k3m") & CJCJCJC & CCJJJCCJ("k^3m ,") Else str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CJCJCJC & CCJJJCCJ("V ,E:E=6lV??????") & CJCJCJC & CCJJJCCJ("??Vm") & CJCJCJC & CCJJJCCJ("k^2m ,")
If CJCJCJC = PageCount Then Exit For
Next:If CJCJCJC < PageCount Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CJCJCJC & CCJJJCCJ("V ,E:E=6lV??????Vm") & CJJCCCJC & CCJJJCCJ("k^2m ,")
If CCCCCCJ = PageCount Then str = str & CJJCCCCJ Else str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & PageCount & CCJJJCCJ("V ,E:E=6lV????Vm") & CJJCCCCJ & CCJJJCCJ("k^2m")
CCJJJJJJ = str:End Function:Private Function CCJJJJJC():Dim str, CJCCCCJ, CJJJCJJC, CJCJCJC:If CCCCCCJ > 4 Then str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCJJJCCJ("`Vm,`.k^2m ,]]]")
If CCCCCCJ < PageCount - 3 Then CJJJCJJC = CCCCCCJ + 3 Else CJJJCJJC = PageCount
For CJCJCJC = CCCCCCJ - 3 To CJJJCJJC:If CJCJCJC >= 1 Then
If CJCJCJC = CCCCCCJ Then str = str & CCJJJCCJ(" ,k3m,") & CJCJCJC & CCJJJCCJ(".k^3m") Else str = str & CCJJJCCJ(" ,k2 ,9C67lV") & CCJJJJJ & CJCJCJC & CCJJJCCJ("Vm,") & CJCJCJC & CCJJJCCJ(".k^2m")
End If:Next:If CCCCCCJ < PageCount - 3 Then str = str & CCJJJCCJ(" ,]]] ,k2 ,9C67lV") & CCJJJJJ & PageCount & CCJJJCCJ("Vm,") & PageCount & CCJJJCCJ(".k^2m")
CCJJJJJC = str:End Function:Private Function CCJJJJCJ():Dim str:If CCCCCCJ > 1 Then
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCJJJCCJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CCJJJCCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CCCCCCJ < PageCount Then
str = str & CCJJJCCJ(" ,k2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & PageCount & CCJJJCCJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CCJJJCCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJCCCJCC:CCJJJJCJ = str:End Function:Private Function CCJJJJCC():Dim str:if CCCCCCJ>=2 then
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCCCJ-1 & CCJJJCCJ("k^2m")
end if:str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCCCCCJ & CCJJJCCJ("k^2m")
if pagecount>CCCCCCJ then
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCCCJ+1 & CCJJJCCJ("k^2m")
str = str & CCJJJCCJ("k2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CCJJJJCC=str:End Function:Private Function CCJJJCJJ():Dim str:str=CCJJJCCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CCCCCCJ>=2 then
str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("Vm") & CCCCCCJ-1 & CCJJJCCJ("k^2mk^=:m")
end if:str = str & CCJJJCCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCJJJJJ & CCCCCCJ & CCJJJCCJ("Vm") & CCCCCCJ & CCJJJCCJ("k^2mk^=:m")
if pagecount>CCCCCCJ then
str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("Vm") & CCCCCCJ+1 & CCJJJCCJ("k^2mk^=:m")
str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJJJCCJ("k^F=m"):CCJJJCJJ=str:End Function:Private Function CCJJJCJC():Dim str:str=CCJJJCCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CCCCCCJ>=2 then
str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ - 1 & CCJJJCCJ("Vm") & CCCCCCJ-1 & CCJJJCCJ("k^2mk^=:m")
end if:str = str & CCJJJCCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCJJJJJ & CCCCCCJ & CCJJJCCJ("Vm") & CCCCCCJ & CCJJJCCJ("k^2mk^=:m")
if pagecount>CCCCCCJ then
str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("Vm") & CCCCCCJ+1 & CCJJJCCJ("k^2mk^=:m")
str = str & CCJJJCCJ("k=:mk2 ,9C67lV") & CCJJJJJ & CCCCCCJ + 1 & CCJJJCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJJJCCJ("k^F=m"):CCJJJCJC=str:End Function:End Class::dim CJCJCCC:sql=Request.ServerVariables(CCJJJCCJ("!p%w0x}u~")):if instr(sql,CCJJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJCC and not CJCJJCJ then Call RedirectMessage(CCJJJCCJ("????????,????????????????????????,"))
CJCJCCC=CJJCJJJ
elseif instr(sql,CCJJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CCJJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJCCC=CJJCJJJ
elseif instr(sql,CCJJJCCJ("^D49@@="))>0 then
CJCJCCC=Request.QueryString(CCJJJCCJ("D49@@=")):if not CJCJJCJC(CJCJCCC) then CJCJCCC=Request.QueryString(CCJJJCCJ("F"))
if not CJCJJCJC(CJCJCCC) then CJCJCCC=Request.QueryString(CCJJJCCJ("D4"))
if not CJCJJCJC(CJCJCCC) then Call RedirectMessage(CCJJJCCJ("????????W$49@@=X??@??????????,"))
CJCJCCC=csng(CJCJCCC)
end if:if CJCJCCC=0 then Call RedirectMessage(CCJJJCCJ("????????W$49@@=X????W_X??,"))
Dim CJJJCJCJ:Call SetConfig:Sub SetConfig():dim CJCJCCJ,CCJJCJC:sql=CCJJJCCJ("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") & CJCJCCC:set CCJJCJC=CCCCJC.execute(sql):if CCJJCJC.eof then Call RedirectMessage(CCJJJCCJ("??W") & CJJJJCJ & CCJJJCCJ("X??????????W") & CJCJCCC & CCJJJCCJ("X????????,"))
ReDim CJCJCCJ(61):CJCJCCJ(0)=CCJJCJC(CCJJJCCJ(";:2@H6:")) & "":CJCJCCJ(1)=CCJJCJC(CCJJJCCJ("EJA6")):CJCJCCJ(2)=CCJJCJC(CCJJJCCJ("D>D")):CJCJCCJ(3)=CCJJCJC(CCJJJCCJ("4FDE@>8C@FA")) & "":CJCJCCJ(4)=CCJJCJC(CCJJJCCJ("D:5632C0@E96C")) & "":CJCJCCJ(5)=IIf(isnull(CCJJCJC(CCJJJCCJ("E6DEC6DF=EG:6H"))),0,CCJJCJC(CCJJJCCJ("E6DEC6DF=EG:6H"))):CJCJCCJ(6)=CCJJCJC(CCJJJCCJ("K:IF?E:>6")):CJCJCCJ(7)=CCJJCJC(CCJJJCCJ("766")):CJCJCCJ(8)=CCJJCJC(CCJJJCCJ("C6E6DE52J")):CJCJCCJ(9)=CCJJCJC(CCJJJCCJ("6IA:C652E6")):CJCJCCJ(10)=CCJJCJC(CCJJJCCJ("E:E=6")):CJCJCCJ(11)=CCJJCJC(CCJJJCCJ(":?EC@")) & "":CJCJCCJ(12)=CCJJCJC(CCJJJCCJ("A:4EFC6")) & "":CJCJCCJ(13)=CCJJCJC(CCJJJCCJ("72>:=J")):CJCJCCJ(14)=CCJJCJC(CCJJJCCJ("4@AJC:89E")) & "":CJCJCCJ(15)=IIf(isnull(CCJJCJC(CCJJJCCJ("D6>6DE6C0DE2CE052E6"))),CCJJJCCJ("`h__\`\`"),CCJJCJC(CCJJJCCJ("D6>6DE6C0DE2CE052E6"))):CJCJCCJ(16)=IIf(isnull(CCJJCJC(CCJJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJCJC(CCJJJCCJ("K:IF?0E:>6D09:89=:89E"))):CJCJCCJ(17)=CCJJCJC(CCJJJCCJ("4@?E24E")) & "":CJCJCCJ(18)=CCJJCJC(CCJJJCCJ("D2?5E23=6")):CJCJCCJ(19)=CCJJCJC(CCJJJCCJ("4C:D:D")):CJCJCCJ(20)=CCJJCJC(CCJJJCCJ("JJ52E6")):CJCJCCJ(21)=CCJJCJC(CCJJJCCJ("BB")):CJCJCCJ(22)=CCJJCJC(CCJJJCCJ("JFJF60D>D0EA=")) & "":CJCJCCJ(23)=CCJJCJC(CCJJJCCJ("JFJF60E6DE0=3")) & "":CJCJCCJ(25)=CCJJCJC(CCJJJCCJ("6IA6CE")):CJCJCCJ(26)=CCJJCJC(CCJJJCCJ(">@5:?7@")):CJCJCCJ(27)=CCJJCJC(CCJJJCCJ("9@>6A286E@AA:4EFC6")) & "":CJCJCCJ(28)=CCJJCJC(CCJJJCCJ("4C:D:D=3")):CJCJCCJ(29)=IIf(CCJJCJC(CCJJJCCJ("4C:D:D@=5")),False,True):CJCJCCJ(30)=CCJJCJC(CCJJJCCJ("8C@FA8F:52?46")):CJCJCCJ(31)=CCJJCJC(CCJJJCCJ("3:@7665324<")):CJCJCCJ(32)=CCJJCJC(CCJJJCCJ("<6JDEC")):CJCJCCJ(33)=CCJJCJC(CCJJJCCJ("=@8@")) & "":CJCJCCJ(34)=CCJJCJC(CCJJJCCJ("K:46")):CJCJCCJ(35)=IIf(CCJJCJC(CCJJJCCJ(":D?6H")),True,False):CJCJCCJ(36)=121:CJCJCCJ(37)=111:CJCJCCJ(38)=160:CJCJCCJ(39)=CCJJCJC(CCJJJCCJ("8F6DE3@@<")):CJCJCCJ(40)=CCJJCJC(CCJJJCCJ("75D")):CJCJCCJ(42)=CCJJCJC(CCJJJCCJ("9@>6=@8:?")):CJCJCCJ(43)=CCJJCJC(CCJJJCCJ("K:IF?0?6657665324<")):CJCJCCJ(44)=CCJJCJC(CCJJJCCJ("K:IF?0E:>6D0=:>:E")):CJCJCCJ(45)=CCJJCJC(CCJJJCCJ("4@>A=6E60:?7@")):CJCJCCJ(46)=CCJJCJC(CCJJJCCJ("E6DE:?EC@")) & "":CJCJCCJ(47)=IIf(isnull(CCJJCJC(CCJJJCCJ("JFJF60367@C60E:>6"))),0,CCJJCJC(CCJJJCCJ("JFJF60367@C60E:>6"))):CJCJCCJ(49)=CCJJCJC(CCJJJCCJ("D>D0C646:G6C")):CJCJCCJ(50)=CCJJCJC(CCJJJCCJ("D>D0D:8?")) & "":CJCJCCJ(52)=CCJJCJC(CCJJJCCJ("JFJF602CC2?86")):CJCJCCJ(53)=IIf(isnull(CCJJCJC(CCJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJCJC(CCJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJCCJ(54)=CCJJCJC(CCJJJCCJ("9:560=30@FE@7286")):CJCJCCJ(55)=CCJJCJC(CCJJJCCJ("JFJF60E6DE052JD")):CJCJCCJ(56)=CCJJCJC(CCJJJCCJ("JFJF60H66<0=:>:E")):CJCJCCJ(57)=CCJJCJC(CCJJJCCJ("JFJF604964<65")):CJCJCCJ(58)=CCJJCJC(CCJJJCCJ("K:IF?0?6657665324<0?6IE")):CJCJCCJ(59)=CCJJCJC(CCJJJCCJ("4964<?6HDEF56?E")):CJCJCCJ(60)=CCJJCJC(CCJJJCCJ("K:IF?04=@D6052E6")):CCJJCJC.close : set CCJJCJC=nothing:if isNull(CJCJCCJ(8)) or CJCJCCJ(8)="" then CJCJCCJ(8)=0
if isdate(CJCJCCJ(9)) then
CJCJCCJ(9)=cdate(CJCJCCJ(9)):if CJCJCCJ(9)<Date then Call RedirectMessage(CCJJJCCJ("????????,????????????????W") & CJCJCCJ(9) & CCJJJCCJ("X??????,"))
end if:if not CJCJJCJC(CJCJCCJ(20)) then CJCJCCJ(20)=7
select case CJCJCCJ(1):case 1,2,16:CJCJCCJ(36)=159:case 4,5,6,10,11:CJCJCCJ(36)=190:CJCJCCJ(37)=178:CJCJCCJ(38)=191:case 7,13:CJCJCCJ(36)=164:CJCJCCJ(37)=178:CJCJCCJ(38)=179:end select:CJJJCJCJ=CJCJCCJ:End Sub:Function CJCJCJJC(CCJCJJCC):dim CJCJCCJ(7,1),CJCJCJC,CJJJCJCC,CJJJCCJJ:CJJJCJCC=Array(CCJJJCCJ("$49@@="),CCJJJCCJ("$EF56?E"),CCJJJCCJ("s6AE"),CCJJJCCJ("vC256"),CCJJJCCJ("r=2DD>2E6"),CCJJJCCJ("}F>36C"),CCJJJCCJ("%62496C"),CCJJJCCJ("!2C6?E")):select case CJJJCJCJ(1):case 1,2 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????")):case 3,16 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????")):case 4 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("??????@"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????")):case 5 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????")):case 6 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("??????@"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case 7 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case 8 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("??????@"),CCJJJCCJ("????"),CCJJJCCJ("????????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case 9 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case 10 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case 11 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case 12 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case 13 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????")):case 14 : CJJJCCJJ=Array(CCJJJCCJ("??????"),CCJJJCCJ("??@??"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case 15 : CJJJCCJJ=Array(CCJJJCCJ("????"),CCJJJCCJ("????????"),CCJJJCCJ("????"),CCJJJCCJ("????????"),CCJJJCCJ("????"),CCJJJCCJ("????"),CCJJJCCJ("??????"),CCJJJCCJ("????")):case else : CJJJCCJJ=CJJJCJCC
end select:for CJCJCJC=0 to Ubound(CJCJCCJ):CJCJCCJ(CJCJCJC,0)=CJJJCJCC(CJCJCJC):CJCJCCJ(CJCJCJC,1)=CJJJCCJJ(CJCJCJC):next:for CJCJCJC=0 to Ubound(CJCJCCJ):if CJCJCCJ(CJCJCJC,0)=CCJCJJCC then
CJCJCJJC=CJCJCCJ(CJCJCJC,1):exit for
end if:next:End Function::Call CheckRight(35):if CJJJCJCJ(7)<3 then Call RedirectMessage(CCJJJCCJ("????????,??????????????????????,"))
Call CJCCJJJJ(CCJJJCCJ("&#{"),CJCJJJCC):dim CJJJCCJC,CJJJCCCJ,CCJCCCJ,CJCCJJC,CCJCJCJ,CJJJCCCC,CJJCJJJJ,CJJCJJJC,CJJCJJCJ,CJJCJJCC,CJJCJCJJ,CJJCJCJC:CJJJCCJC=Request.QueryString(CCJJJCCJ("56AE")):CJJCJJCJ=Request.QueryString(CCJJJCCJ("8C256")):CJJCJJCC=Request.QueryString(CCJJJCCJ("vC@FA")):CJJJCCCJ=Request.QueryString(CCJJJCCJ("!@DE")):CCJCCCJ=Request.QueryString(CCJJJCCJ("D")):CJCCJJC=Request.QueryString(CCJJJCCJ("A")):CJJCJJJJ=Request.QueryString(CCJJJCCJ("%96%JA6")):CJJCJJJC=CJCJJJJC(Request.QueryString(CCJJJCCJ("pFE9@C"))):CCJCJCJ=CJCJJJJC(Request.QueryString(CCJJJCCJ("}F>"))):CJJJCCCC=CJCJJJJC(Request.QueryString(CCJJJCCJ("}:4<"))):CJJCJCJJ=request.QueryString(CCJJJCCJ("5`")):CJJCJCJC=request.QueryString(CCJJJCCJ("5a")):if not CJCJJCJC(CJJJCCJC) then CJJJCCJC=CJJJCJC
dim CCJCCCC:set CCJCCCC=new jtree:CCJCCCC.table=CCJJJCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJJCCJ("k9625m") & vbCrLf):Response.Write(CCJJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJJCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJJJCCJ("k^9625m") & vbCrLf):Response.Write(CCJJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJJCCJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQC6>2C<]2DAQm")):Response.Write CJCJCJJC(CCJJJCCJ("$EF56?E")):Response.Write(CCJJJCCJ("????k^2mk^=:m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJJJCCJ("k^F=m") & vbCrLf):Response.Write(CCJJJCCJ("k7@C> ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCJJC(CCJJJCCJ("}F>36C")):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCJCJ:Response.Write(CCJJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kD6=64E ,?2>6lQs6AEQ ,52E2\G2=F6lQ")):Response.Write CJJJCCJC:Response.Write(CCJJJCCJ("Qmk^D6=64Em") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):If CJJJCJCJ(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,kD6=64E ,?2>6lQ8C256Q ,:5lQvC256Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):if CJJCJJC=0 then
response.Write CCJJJCCJ("k@AE:@? ,G2=F6lVVm,????.k^@AE:@?m")
Call ShowListSelect(CCJJJCCJ(">6>36C08C256"),CJCJCCC,CJJCJJCJ)
else
response.Write CCJJJCCJ("k@AE:@? ,G2=F6lV") & CJJCJJC & CCJJJCCJ("Vm") & CJCJCCCC(CCJJJCCJ(">6>36C08C256"),CJCJCCC,CJJCJJC) & CCJJJCCJ("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJJCCJ(" ,"))
End If::If CJJJCJCJ(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,kD6=64E ,?2>6lQvC@FAQ ,:5lQvC@FAQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm,")):Response.Write CJJJCJCJ(3):Response.Write(CCJJJCCJ(".k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):Call ShowListSelect(CCJJJCCJ(">6>36C04FDE@>8C@FA"),CJCJCCC,CJJCJJCC):Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mkD6=64E ,?2>6lQ%96%JA6Q ,:5lQ%96%JA6Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCJJJJ="0",CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m")):Response.Write CJCJCJJC(CCJJJCCJ("%62496C")):Response.Write(CCJJJCCJ("^????k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CJJCJJJJ="3",CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m")):Response.Write CJCJCJJC(CCJJJCCJ("%62496C")):Response.Write(CCJJJCCJ("^????k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCJJJJ="1",CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write IIf(CJJCJJJJ="4",CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m")):Response.Write CJCJCJJC(CCJJJCCJ("!2C6?E")):Response.Write(CCJJJCCJ("k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mkD6=64E ,?2>6lQ$Q ,:5lQ$Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQEJA6Q ,")):Response.Write IIf(CCJCCCJ=CCJJJCCJ("EJA6"),CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQ52E6E:>6Q ,")):Response.Write IIf(CCJCCCJ=CCJJJCCJ("52E6E:>6"),CCJJJCCJ("D6=64E65"),""):Response.Write(CCJJJCCJ("m????????k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJJJCCCC:Response.Write(CCJJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5`Q ,G2=F6lQ")):Response.Write CJJCJCJJ:Response.Write(CCJJJCCJ("Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,O") & vbCrLf):Response.Write(CCJJJCCJ(" ,k:?AFE ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,?2>6lQ5aQ ,G2=F6lQ")):Response.Write CJJCJCJC:Response.Write(CCJJJCCJ("Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????@k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk:?AFE ,?2>6lQpFE9@CQ ,EJA6lQE6IEQ ,D:K6lQfQ ,G2=F6lQ")):Response.Write CJJCJJJC:Response.Write(CCJJJCCJ("Q ,E:E=6lQ????????@??????Qmk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mkD6=64E ,?2>6lQ!Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k@AE:@? ,G2=F6lQQm\\\\\\\\\k^@AE:@?m") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):for CJCJCJC=10 to 50 step 5:response.write CCJJJCCJ("k@AE:@? ,G2=F6lV") & CJCJCJC & CCJJJCCJ("V") & IIf(CJCCJJC=cstr(CJCJCJC),CCJJJCCJ(" ,D6=64E65"),"") & CCJJJCCJ("m") & CJCJCJC & CCJJJCCJ("??k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ????????????Qm?? ,??k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQBF6CJ?F>36C]2DAn8@E@FC=lC6>2C<024E]2DAU>D8l????????Qm?? ,??k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJJCCJ("k^7@C>m") & vbCrLf)::if CJJJCCCJ="1" then
sql=CCJJJCCJ("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[4@?E6?E[52E6E:>6[2FE9@C?2>6[EJA6[:A[2FE9@C ,7C@> ,G0C6>2C< ,H96C6 ,") & CCJCCCC.sql_GetChildren(CJJJCCJC)
if CJCJJCJC(CJJCJJCJ) then sql=sql & CCJJJCCJ(" ,2?5 ,8C256l") & CJJCJJCJ
if CJCJJCJC(CJJCJJCC) then sql=sql & CCJJJCCJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCJJCC
if CCJCJCJ<>"" then sql=sql & CCJJJCCJ(" ,2?5 ,?F>36ClV") & CCJCJCJ & CCJJJCCJ("V")
if CJJJCCCC<>"" then sql=sql & CCJJJCCJ(" ,2?5 ,C62=?2>6lV") & CJJJCCCC & CCJJJCCJ("V")
if CJCJJCJC(CJJCJJJJ) then sql=sql & CCJJJCCJ(" ,2?5 ,EJA6l") & CJJCJJJJ
if CJJCJJJC<>"" then sql=sql & CCJJJCCJ(" ,2?5 ,pFE9@C?2>6lV") & CJJCJJJC & CCJJJCCJ("V")
if isdate(CJJCJCJJ) then sql=sql & CCJJJCCJ(" ,2?5 ,52E6E:>6mlV") & CJJCJCJJ & CCJJJCCJ("V")
if isdate(CJJCJCJC) then sql=sql & CCJJJCCJ(" ,2?5 ,52E6E:>6kV") & cdate(CJJCJCJC)+1 & CCJJJCCJ("V")
if CCJCCCJ="" then sql=sql & CCJJJCCJ(" ,@C56C ,3J ,:5 ,56D4") else sql=sql & CCJJJCCJ(" ,@C56C ,3J ,") & CCJCCCJ
dim CJJCJCCJ:set CJJCJCCJ=new splitpage:with CJJCJCCJ:.sql=sql:.pagesize=IIf(CJCJJCJC(CJCCJJC),CJCCJJC,20):.style=2:end with:set rs=CJJCJCCJ.rs:Response.Write(vbCrLf):Response.Write(CCJJJCCJ("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9 ,E:E=6lQ??????????????????QmRk^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m")):Response.Write CJCJCJJC(CCJJJCCJ("}F>36C")):Response.Write(CCJJJCCJ("k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m??@????,??????`d??????,k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m,????.U?3DAj????@k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9mx!k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):dim CJCJCJC:for CJCJCJC=1 to CJJCJCCJ.pagesize:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCJCCJ.listnum(CJCJCJC):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5m")):Response.Write rs(2):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(1):Response.Write(CCJJJCCJ("Q ,E:E=6lQ????????????Qm")):Response.Write rs(3):Response.Write(CCJJJCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5mk:>8 ,4=2DDlQG:6HQ ,DC4lQ:>286D^G:6H]8:7Q ,E:E=6lQ")):Response.Write rs(4):Response.Write(CCJJJCCJ("Qm")):Response.Write CJCJJCJJ(rs(4),30):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):select case rs(7):case 0 : response.write CCJJJCCJ(",") & CJCJCJJC(CCJJJCCJ("%62496C")) & CCJJJCCJ("."):case 1 : response.write CCJJJCCJ(",????."):case 2 : response.write CCJJJCCJ(",") & CJCJCJJC(CCJJJCCJ("r=2DD>2E6")) & CCJJJCCJ("."):case 3 : response.write CCJJJCCJ(",????."):case 4 : response.write CCJJJCCJ(",") & CJCJCJJC(CCJJJCCJ("!2C6?E")) & CCJJJCCJ("."):end select:Response.Write(CCJJJCCJ("U?3DAj") & rs(6)):Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJCCJJ(rs(5),0):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJCJCC(rs(8)):Response.Write(CCJJJCCJ("k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):if rs(9)=CJJJJCJ or rs(7)=2 then
Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,9C67lQC6>2C<024E]2DAn24El>@5U:5l")):Response.Write rs(0):Response.Write(CCJJJCCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,9C67lQC6>2C<024E]2DAn24El255UDEF56?E:5l")):Response.Write rs(1):Response.Write(CCJJJCCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k2 ,9C67lQC6>2C<024E]2DAn24El56=U:5l")):Response.Write rs(0):Response.Write(CCJJJCCJ("Qm????k^2m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,kE5 ,4@=DA2?lQgQm") & vbCrLf):Response.Write(CCJJJCCJ(" ,")):call CJJCJCCJ.showpage:set CJJCJCCJ=nothing:Response.Write(vbCrLf):Response.Write(CCJJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJJCCJ("k^7@C>m") & vbCrLf)
else
response.write CCJJJCCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CCJJJCCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CJJJCJC:Response.Write(CCJJJCCJ("Qm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWVRvC256[RvC@FAVX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWV:>8]G:6HVX];%:E=6WLDEJ=6iV3=24<VNX") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJJJCCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWVD6=64E,?2>6lQs6AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJJJCCJ(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CCJJJCCJ(" ,EC66iECF6") & vbCrLf):Response.Write(CCJJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJJCCJ(" ,^^ ,??????@????") & vbCrLf):Response.Write(CCJJJCCJ(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[7F?4E:@?W6XL") & vbCrLf):Response.Write(CCJJJCCJ(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CCJJJCCJ(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CCJJJCCJ(" ,=2J6C]4@?7:C>WV??????????????????,????????????????????????,k3Cm????,??????,????k3Cm????,??????,??????V[L:4@?ib[E:E=6iV??????VN[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJJCCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJJJCCJ(" ,S]86EWS2]2EECWV9C67VX[7F?4E:@?WXLS2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NXNX") & vbCrLf):Response.Write(CCJJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJJCCJ("NX") & vbCrLf):Response.Write(CCJJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCCC=nothing:set CJCJJCCC=nothing:set CJCJCJJJ=nothing:set CJCJCJJC=nothing:CJJJJJJ.Close:Set CJJJJJJ=Nothing:rs.Close:Set rs=Nothing:CCCCJC.Close:Set CCCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJJCCJ(ByVal CCJJJCC)
Dim CJJCJCCC, CJCJCJC, CJCCCCJ
CCJJJCC = Replace(CCJJJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCJC = 1 To Len(CCJJJCC)
If CJCJCJC <> CJCCCCJ Then
CJJCJCCC = AscW(Mid(CCJJJCC, CJCJCJC, 1))
If CJJCJCCC >= 33 And CJJCJCCC <= 79 Then
CCJJJCCJ = CCJJJCCJ & Chr(CJJCJCCC + 47)
ElseIf CJJCJCCC >= 80 And CJJCJCCC <= 126 Then
CCJJJCCJ = CCJJJCCJ & Chr(CJJCJCCC - 47)
Else
CJCCCCJ = CJCJCJC + 1
If Mid(CCJJJCC, CJCCCCJ, 1) = Chr(64) Then CCJJJCCJ = CCJJJCCJ & ChrW(CJJCJCCC + 5) Else CCJJJCCJ = CCJJJCCJ & Mid(CCJJJCC, CJCJCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de