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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJCC, CCJCJJ,rs, CCJCCJ, sql:Set CCJJCC = server.CreateObject(CJCCJCCJ("ps~sq]r@??64E:@?")):CCJJCC.open Application(CJCCJCCJ("r@??64E:@?$EC:?8")):Set CCJCJJ=CCJJCC::Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:Dim CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ:CJJCJCJ=Trim(Request.Cookies(CJCCJCCJ("!$*|t|qt#"))):if CJJCJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJJ>0 then
sql=CJCCJCCJ("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") & CCCJJC & CJCCJCCJ("V ,2?5 ,:5l") & CCCJJJ
set rs=CCJJCC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCCJCJ=rs(2) & "":CCCJCC=rs(3):CCCCJJ=rs(5):CCCCJC=rs(6):CCCCCJ=rs(9):CCCCCC=rs(15):CJJJJJC=rs(0):CJJCJJJ=rs(1):CJJJCCC=rs(11) & "":CJJJJCJ=rs(10) & "":CJJJJJJ=rs(12):CJJJJCC=rs(14):CJJJCJJ=rs(13):CJJJCJC=rs(7) & "":CJJJCCJ=rs(4):CJJCJJC=rs(8):if isnull(CCCCCC) then CCCCCC=0
if isnull(CCCCCJ) or CCCCCJ=0 then CCCCCJ=CCCJCC
if isnull(CJJJCCJ) then CJJJCCJ=0
if isnull(CCCCJJ) then CCCCJJ=0
if instr(CJCCJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJC)>0 then Call RedirectMessage(CJCCJCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJJ,CCCJJC)
End IF
end if:Sub CheckRight(CJCCCJC):dim CJJCJCC,CJJCCJJ:if CCCJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCJCCJ("??????????????,????????????,"))
elseIf not CJJCJJCJ(CJCCCJC) then
Call RedirectMessage(CJCCJCCJ("????W") & CJCCCJC & CJCCJCCJ("X????????,????????????????????,"))
end if:End Sub:Function CJJCJJCJ(CJCCCJC):dim CJJCJCC,CJJCCJJ:CJJCCJJ=split(CJCCCJC,CJCCJCCJ("[")):CJJCJJCJ=False:for CJJCJCC=0 to ubound(CJJCCJJ):If Mid(CCCJCJ,CJJCCJJ(CJJCJCC),1)="1" then
CJJCJJCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCJC:CJJCCJC=trim(request.QueryString(CJCCJCCJ("D49@@="))):if isnumeric(CJJCCJC) then
response.Redirect CJCCJCCJ("^>^G2?E^R^D49@@=^") & CJJCCJC & CJCCJCCJ("^DEF56?E^=@8:?nC65:C64El") & CJCJCCJ
else
Call RedirectMessage(CJCCJCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCJCCJ("!$*|t|qt#"))="":CCCJJJ=0:CCCCJC=0:CCCJJC=Empty:CCCCJJ=0:CCCCCC=0:CCCCCJ=0:CCCJCC=0:CJJJJJC=False:CJJCJJJ=False:CJJCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCCJ,CJJCCCC,CJJCJCC,CJCJJJJ,CJCJJJC:CJJCCCJ=split(CJJCJCJ,CJCCJCCJ("]")):if ubound(CJJCCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCCJ(0)) or len(CJJCCCJ(1))<>32 or len(CJJCCCJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCCC=CJJCCCJ(1):for CJJCJCC=1 to len(CJJCCCC):CJCJJJJ=mid(CJJCCCC,CJJCJCC,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ
if len(CJCJJJC)=7 then exit for
next:CJJCCCC=CJJCCCJ(2):if CJCJJJC<>mid(CJJCCCC,6,7) then
Call ClearMemberCookie
else
CJCJJJJ=mid(CJJCCCC,18,10)/2:if CJCJJJJ<DateDiff(CJCCJCCJ("D"), CJCCJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJJ=Clng(CJJCCCJ(0)):CCCJJC=CJJCCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJCJJ,CJCCJCCC):dim CJJCJCC,CJCJJJJ,CJCJJJC:for CJJCJCC=1 to len(CJCCJCCC):CJCJJJJ=mid(CJCCJCCC,CJJCJCC,1):if isnumeric(CJCJJJJ) then CJCJJJC=CJCJJJC & CJCJJJJ
if len(CJCJJJC)=7 then exit for
next:CJCJJJC=CJCJJCJJ & CJCCJCCJ("]") & CJCCJCCC & CJCCJCCJ("]") & Fix(10000*(Rnd+1)) & CJCJJJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCJCCJ("D"), CJCCJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJCCJ("!$*|t|qt#"))=CJCJJJC:End Sub::Function CJJCJJCC(CJCCCJJJ):Dim str,CJCJJCC:str = Trim(CJCCCJJJ):If IsNull(str) Or str = "" Then
CJJCJJCC = ""
else
str=Replace(str, CJCCJCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCJCCJ("k:7C2>6"), CJCCJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCJCCJ("kD4C:AE"), CJCCJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJJCC=new RegExp:CJCJJCC.Pattern=CJCCJCCJ("@?W,2\K.ZXl"):CJCJJCC.IgnoreCase = True:CJCJJCC.Global=True:str=CJCJJCC.Replace(str,CJCCJCCJ("@?S`U6BF2=Dj")):set CJCJJCC=nothing:CJJCJJCC=str
End If:End Function:Function IIf(CJCCCJJC, CJCCCJCJ, CJCCCJCC):if isnull(CJCCCJJC) or isempty(CJCCCJJC) then
IIf = CJCCCJCC
elseif CJCCCJJC Then
IIf = CJCCCJCJ
Else
IIf = CJCCCJCC
end if:End Function:Const CJJJCJCJ="^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 CJJCJCC,CJCJJJJ,CJCJCJJ:if isarray(str) then
on error resume next:CJJCJCC=ubound(str,2):CJCJCJJ=err.number:err.clear:on error goto 0:if CJCJCJJ<>0 then
for CJJCJCC=0 to ubound(str):if CJJCJCC>0 then response.Write CJCCJCCJ("k3C ,^m")
response.Write CJJCJCC & CJCCJCCJ("i ,") & str(CJJCJCC):next
else
response.Write CJCCJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJCC=0 to ubound(str,2):response.Write CJCCJCCJ("kE9 ,2=:8?lV=67EVm") & CJJCJCC & CJCCJCCJ("k^E9m")
next:response.Write CJCCJCCJ("k^ECm"):for CJJCJCC=0 to ubound(str):response.Write CJCCJCCJ("kECmkE9m") & CJJCJCC & CJCCJCCJ("k^E9m"):for CJCJJJJ=0 to ubound(str,2):response.Write CJCCJCCJ("kE5m") & str(CJJCJCC,CJCJJJJ) & CJCCJCCJ("k^E5m"):next:response.Write CJCCJCCJ("k^ECm"):next:response.Write CJCCJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJCJCJC():Dim CJCJCJC, CJCJCCJ:CJCJCCJ = Request.ServerVariables(CJCCJCCJ("!p%w0x}u~")):CJCJCJC = Request.ServerVariables(CJCCJCCJ("""&t#*0$%#x}v")):If CJCJCJC <> Empty Then
if instr(lcase(CJCJCJC),CJCCJCCJ("Tb4:7C2>6"))>0 or instr(lcase(CJCJCJC),CJCCJCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCCJCCJ("????????,????????????????????????,??,??,"))
CJCJCCJ = CJCJCCJ & CJCCJCCJ("n") & CJCJCJC
end if:CJJCJCJC = CJCJCCJ:End Function:Sub SetHttpOnlyCookie(CJCCCCJJ,CJCCCCJC):dim CJJCCCJ:CJJCCCJ=CJCCCCJJ & CJCCJCCJ("l") & CJCCCCJC & CJCCJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJCCJ("$6E\r@@<:6"),CJJCCCJ):End Sub:Sub WriteCurrentURL():Response.Cookies(CJCCJCCJ("!$*"))(CJCCJCCJ("&#{")) = CJJCJCJC:End Sub::::::Function CJJCJCCJ(CJCJCJJ):if isnull(CJCJCJJ) or trim(CJCJCJJ)="" or not isnumeric(CJCJCJJ) then
CJJCJCCJ=false
else
Dim CJCJJCC:Set CJCJJCC = New RegExp:CJCJJCC.Pattern = CJCCJCCJ("/-5ZS"):CJCJJCC.IgnoreCase = True:CJJCJCCJ = CJCJJCC.test(CJCJCJJ):set CJCJJCC=nothing
end if:End Function:Function CJJCJCCC(CJCCCCCJ):dim CJCJCCC,CJCCJJJ:CJCJCCC=CJCCJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCCCCJ & CJCCJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCJJJ=CCJJCC.execute(CJCJCCC):CJJCJCCC = CJCCJJJ(0):if isnull(CJJCJCCC) then CJJCJCCC=1
CJCCJJJ.close : set CJCCJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJJJ=nothing:set CJJCCJJJ=nothing:set CJJCCJJC=nothing:set CJJCCJCJ=nothing:CJCCJJJ.close : set CJCCJJJ=nothing:CCJCCJ.Close : Set CCJCCJ=Nothing:rs.Close : Set rs=Nothing:CJJCCJCC.Close : Set CJJCCJCC = Nothing:CCJJCC.Close : Set CCJJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJCCJ("!$*0|6DD286"),server.URLEncode(CJCCCCCC)):Response.Redirect CJCCJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJCCCJJ(ByVal CJJCCCJC,style):if not isdate(CJJCCCJC) then
CJJCCCJJ=CJJCCCJC:exit function
end if:dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ:CJJCCCJC=cdate(CJJCCCJC):CJCCJJC=Year(CJJCCCJC):CJCCJCJ=Month(CJJCCCJC):CJCCJCC=Day(CJJCCCJC):select case style:case 0:CJJCCCJJ=CJCCJJC & CJCCJCCJ("\") & right(0 & CJCCJCJ,2) & CJCCJCCJ("\") & right(0 & CJCCJCC,2):case 1:CJJCCCJJ=CJCCJJC & right(0 & CJCCJCJ,2) & right(0 & CJCCJCC,2):case 2:CJJCCCJJ=right(CJCCJJC,2) & CJCCJCCJ("\") & right(0 & CJCCJCJ,2) & CJCCJCCJ("\") & right(0 & CJCCJCC,2):case 3:CJJCCCJJ=CJCCJJC & CJCCJCCJ("\") & right(0 & CJCCJCJ,2):case 4:CJJCCCJJ=right(0 & CJCCJCJ,2) & CJCCJCCJ("\") & right(0 & CJCCJCC,2):case 5:CJJCCCJJ=right(0 & CJCCJCC,2):case 6:CJJCCCJJ=CJCCJJC & CJCCJCCJ("??") & right(0 & CJCCJCJ,2) & CJCCJCCJ("??") & right(0 & CJCCJCC,2) & CJCCJCCJ("??"):case else
CJJCCCJJ=CJJCCCJC:end select:End Function:Function CJJCCCCJ(Table):Dim CJCCJJJ, CJCCCJC, str(), CJJCJCC,CJCJJJJ,CJCCCCJ:CJCCCCJ=UCase(Table):If Not IsArray(Application(CJCCJCCJ("!$*0") & CJCCCCJ)) Then
Sql=CJCCJCCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCCJCCJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCJJJ=server.createobject(CJCCJCCJ("25@53]C64@C5D6E")):CJCCJJJ.open sql,CCJJCC,1:CJCCCJC = CJCCJJJ.RecordCount:ReDim str(CJCCCJC, 2):If CJCCCJC > 0 Then
For CJJCJCC = 1 To CJCCCJC:for CJCJJJJ=0 to 2:str(CJJCJCC, CJCJJJJ) = CJCCJJJ(CJCJJJJ):next:CJCCJJJ.MoveNext:Next
End If:CJCCJJJ.Close: Set CJCCJJJ = Nothing:Application(CJCCJCCJ("!$*0") & CJCCCCJ) = str
End If:CJJCCCCJ = Application(CJCCJCCJ("!$*0") & CJCCCCJ):End Function:Sub ShowListSelect(CJCCCCCJ,CCJJJJJJ,CCJJJJJC):Dim str, CJJCJCC, CJCCCCC:CJCCCCC = CJJCCCCJ(CJCCCCCJ):For CJJCJCC = 1 To UBound(CJCCCCC):if Cstr(CJCCCCC(CJJCJCC,2))=Cstr(CCJJJJJJ) then
str = str & CJCCJCCJ("k@AE:@? ,G2=F6lV") & CJCCCCC(CJJCJCC, 0) & CJCCJCCJ("V")
If CStr(CJCCCCC(CJJCJCC, 0)) = CCJJJJJC & "" Then str = str & CJCCJCCJ(" ,D6=64E65lVD6=64E65V")
str = str & CJCCJCCJ("m") & CJCCCCC(CJJCJCC, 1) & CJCCJCCJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub::::::::::::::::::Sub ClearCache(CCJJJJCJ):Application.Contents.Remove CCJJJJCJ
End Sub::Class jTree:Private Sql, CCJJJJJ, CCJJJJC, CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ:Private Sub Class_Initialize():CCJJJJC = 0:CCJJJCJ = 0:CCJJCCJ=10:End Sub:Public Property Let Table(CCJJJJCC):if CCJJJJCC="" then Call RedirectMessage(CJCCJCCJ("????????,;%C66????????????????????@??????????,"))
CCJJJCC=CCJJJJCC:CCJJCJJ=CJCCJCCJ("!$*0") & UCase(CCJJJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJCC:End Property:::Private Sub GetTreeArray():Dim CJJCJCC, CJCJJJJ, CCJJCCC,RecordCount:CCJJJJJ = Application(CCJJCJJ):If Not IsArray(CCJJJJJ) Then
Sql = CJCCJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJCC:if CCJJCJC<>"" then Sql=Sql & CJCCJCCJ(" ,H96C6 ,") & CCJJCJC
set CCJJCCC=CCJJCC.execute(sql):RecordCount=CCJJCCC(0):if RecordCount=0 then Call RedirectMessage(CJCCJCCJ("????W") & CCJJJCC & CJCCJCCJ("^") & CCJJCJC & CJCCJCCJ("X????????????"))
CCJJJCJ=RecordCount+CCJJCCJ:ReDim CCJJJJJ(CCJJJCJ, 4):Sql = CJCCJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJCCJCCJ(" ,H:E9 ,W?@=@4<X"):if CCJJCJC<>"" then Sql=Sql & CJCCJCCJ(" ,H96C6 ,") & CCJJCJC
Sql=Sql & CJCCJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCCC=CCJJCC.execute(sql):For CJJCJCC = 1 To RecordCount:For CJCJJJJ = 0 To 4:CCJJJJJ(CJJCJCC, CJCJJJJ) = CCJJCCC(CJCJJJJ):if IsNull(CCJJJJJ(CJJCJCC,4)) then CCJJJJJ(CJJCJCC,4)=0
If CCJJJJJ(CJJCJCC,2)="" then CCJJJJJ(CJJCJCC,2)=CJCCJCCJ(",??.")
Next:CCJJCCC.MoveNext:Next:CCJJCCC.Close: Set CCJJCCC = Nothing:for CJJCJCC=CCJJJCJ-(CCJJCCJ-1) to CCJJJCJ:CCJJJJJ(CJJCJCC,0)=CJJCJCC:next:Application.Lock():Application(CCJJCJJ) = CCJJJJJ:Application.UnLock()
else
CCJJJCJ=Ubound(CCJJJJJ)
End If:End Sub:::::Private Function CJCJJJJJ(CJCJJCJJ):dim CJJCJCC,CCJCJJC:CJCJJJJJ=0:CCJCJJC=CStr(CJCJJCJJ):if CCJCJJC<>"0" then
for CJJCJCC=1 to CCJJJCJ:If CStr(CCJJJJJ(CJJCJCC, 0))=CCJCJJC Then
CJCJJJJJ = CJJCJCC:Exit For
End If:Next
end if:End Function:Public Function CJCJJJJC(CJCJJCJJ):if Cstr(CJCJJCJJ)="0" then
CJCJJJJC=CJCCJCCJ("??")
else
Dim CJJCJCC,CCJJCCC:CJJCJCC=CJCJJJJJ(CJCJJCJJ):if CJJCJCC>0 then
CJCJJJJC=CCJJJJJ(CJJCJCC,2):if CJCJJJJC="" then
set CCJJCCC=CCJJCC.execute(CJCCJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJCCJCCJ(" ,H96C6 ,:5l") & CJCJJCJJ):if CCJJCCC.eof then Call RedirectMessage(CJCCJCCJ("xs??,") & CJCJJCJJ & CJCCJCCJ("??,??????"))
CJCJJJJC=CCJJCCC(1):Call UpdateCache(CJCJJCJJ,CCJJCCC(0),CJCJJJJC,CCJJCCC(2),CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if
else
set CCJJCCC=CCJJCC.execute(CJCCJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJCCJCCJ(" ,H96C6 ,:5l") & CJCJJCJJ):if CCJJCCC.eof then Call RedirectMessage(CJCCJCCJ("xs??,") & CJCJJCJJ & CJCCJCCJ("??,??????"))
CJCJJJJC=CCJJCCC(1):Call UpdateCache(CJCJJCJJ,CCJJCCC(0),CJCJJJJC,CCJJCCC(2),CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if
end if:End Function:::Public Function CJCJJJCJ(CJCJJCJJ):Dim CJJCJCC,CCJCJCJ:CJJCJCC=CJCJJJJJ(CJCJJCJJ):if CJJCJCC=0 then
CCJCJCJ=CJCJJJCC(CJCJJCJJ)
else
CCJCJCJ=CCJJJJJ(CJJCJCC,3):if isnull(CCJCJCJ) or CCJCJCJ="" then
CCJCJCJ=CJCJJJCC(CJCJJCJJ)
elseif Mid(CCJCJCJ,instrrev(CCJCJCJ,CJCCJCCJ("["))+1)<>CStr(CJCJJCJJ) then
CCJCJCJ=CJCJJJCC(CJCJJCJJ)
elseif Left(CCJCJCJ,1)=CJCCJCCJ("[") then
CCJCJCJ=CJCJJJCC(CJCJJCJJ)
end if
end if:CJCJJJCJ=CCJCJCJ:End Function:Private Function CJCJJJCC(CJCJJCJJ):dim CCJCJJC:CCJCJJC=CStr(CJCJJCJJ):if CCJCJJC="0" then
CJCJJJCC=""
else
dim CCJJCCC:set CCJJCCC=CCJJCC.execute(CJCCJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCC & CJCCJCCJ(" ,H96C6 ,:5l") & CJCJJCJJ):if CCJJCCC.eof then
Call UpdateCache(CJCJJCJJ,"","","",""):Call RedirectMessage(CJCCJCCJ("??????,xs??,") & CJCJJCJJ & CJCCJCCJ("??,????????,????????????????????,"))
else
if CCJJCCC(0)=0 then
CJCJJJCC="0," & CJCJJCJJ
else
CJCJJJCC=CJCJJJCJ(CCJJCCC(0)) & CJCCJCCJ("[") & CJCJJCJJ
end if:if CCJJCCC(2)<>CJCJJJCC then
CCJJCC.execute CJCCJCCJ("FA52E6 ,") & CCJJJCC & CJCCJCCJ(" ,D6E ,A2E9lV") & CJCJJJCC & CJCCJCCJ("V ,H96C6 ,:5l") & CJCJJCJJ
else
CJCJJJCC=CCJJCCC(2)
end if
end if:Call UpdateCache(CJCJJCJJ,CCJJCCC(0),CCJJCCC(1),CJCJJJCC,CCJJCCC(3)):CCJJCCC.Close: Set CCJJCCC = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CJCJJCJJ,ByVal CCJJJJJC):Dim Str, CJJCJCC:CJCJJCJJ=CLng(CJCJJCJJ):if isnumeric(CCJJJJJC) then CCJJJJJC=CLng(CCJJJJJC) else CCJJJJJC=0
if CJCJJCJJ>0 then str=CJCCJCCJ("k@AE:@? ,G2=F6lV") & CJCJJCJJ & CJCCJCCJ("V ,52E2\A:5lV_Vm") & CJCJJJJC(CJCJJCJJ) & CJCCJCCJ("k^@AE:@?m")
For CJJCJCC = 1 To CCJJJCJ:If CJCJJCJJ=0 or (CJCJJCJJ>0 and InStr(CCJJJJJ(CJJCJCC, 3), CJCCJCCJ("[") & CJCJJCJJ & CJCCJCCJ("[")) > 0) Then
str=str & CJCCJCCJ("k@AE:@?"):if CCJJJJJ(CJJCJCC,0)=CCJJJJJC then str=str & CJCCJCCJ(" ,D6=64E65")
str=str & CJCCJCCJ(" ,G2=F6lV") & CCJJJJJ(CJJCJCC,0) & CJCCJCCJ("V ,52E2\A:5lV") & CCJJJJJ(CJJCJCC,1) & CJCCJCCJ("Vm") & CCJJJJJ(CJJCJCC,2) & CJCCJCCJ("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CJCJJCJJ):dim CCJCJCJ:CCJCJCJ=CJCJJJCJ(CJCJJCJJ):Sql_GetChildren = CCJJJCC & CJCCJCCJ("0A2E9ZV[V ,=:<6 ,V") & CCJCJCJ & CJCCJCCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJCJJ
End Sub:Public Sub UpdateCache(CJCJJCJJ,CCJJJCJJ,CCJJJCJC,CCJCJCJ,CCJJJCCJ):dim CJJCJCC,CJCJJJJ:CJCJJCJJ=CLng(CJCJJCJJ):CJJCJCC=CJCJJJJJ(CJCJJCJJ):if CCJJJCJJ="" and CCJJJCJC="" and CCJCJCJ="" and CCJJJCCJ="" then
if CJJCJCC>0 then
for CJCJJJJ=1 to 4:CCJJJJJ(CJJCJCC,CJCJJJJ)=Null:next
end if
else
if CJJCJCC=0 then
for CJCJJJJ=1 to CCJJJCJ:if CCJJJJJ(CJCJJJJ,1) & ""="" then
CJJCJCC=CJCJJJJ:exit for
end if:next
end if:if CJJCJCC=0 then
Call ClearCache
else
CCJJJJJ(CJJCJCC,0)=CLng(CJCJJCJJ):if CCJJJCJJ<>"" then CCJJJJJ(CJJCJCC,1)=CLng(CCJJJCJJ)
if CCJJJCJC<>"" then CCJJJJJ(CJJCJCC,2)=CCJJJCJC
if CCJCJCJ<>"" then CCJJJJJ(CJJCJCC,3)=CCJCJCJ
if CCJJJCCJ<>"" then CCJJJJJ(CJJCJCC,4)=CLng(CCJJJCCJ)
end if
end if:if CJJCJCC>0 then
Application.Lock():Application(CCJJCJJ) = CCJJJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCCCCCC):Call ConnClose:Response.Write CJCCCCCC:Response.End:End Sub:Private Function CJJCJCCC():CJJCJCCC=CJCJJCCJ+1:End Function:Private Function CJCJJCCJ():dim CJCCJJJ:set CJCCJJJ=CCJJCC.execute(CJCCJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJCC & CJCCJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCJJCCJ=CJCCJJJ(0):CJCCJJJ.Close: Set CJCCJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJCJCC ="9"
Const CJJJCCJJ ="7"
Const CJJJCCJC ="3"
Const CJJJCCCJ ="4"
Const CJJJCCCC ="8"
Const CJJCJJJJ =":"
Const CJJCJJJC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCCCC, CCCJJJJ, CJCJCCJ, CCCJJJC, CCCJJCJ, CCCJJCC, CCCJCJJ:Private Function CJCJJCCC():Dim CCCJCJC:CCCJCJC = "??" & CCCJJJJ & CJCCJCCJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCJJCC & CJCCJCCJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJCCCC & CJCCJCCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCCJCCJ("k^3mk^DA2?m??")
CJCJJCCC = CCCJCJC:End Function:Private Function CJCJCJJJ():CJCJCJJJ = CJCCJCCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCJCCCC & CJCCJCCJ("V ,DEJ=6lV") & CJJCJJJC & CJCCJCCJ("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") & CJCJCCJ & CJCCJCCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJCJCJJC():CJCJCJJC = CJCCJCCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJCJJJC & CJCCJCCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJCJCCJ & CJCCJCCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJCJCJCJ():Dim CCCJCJC, CJJCJCC:CCCJCJC = CJCCJCCJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJCJCCJ & CJCCJCCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJJCJCC = 1 To PageCount:CCCJCJC = CCCJCJC & CJCCJCCJ("k@AE:@? ,G2=F6lV") & CJJCJCC & CJCCJCCJ("V")
If CJJCJCC = CCJCCCC Then CCCJCJC = CCCJCJC & CJCCJCCJ(" ,D6=64E65")
CCCJCJC = CCCJCJC & CJCCJCCJ("m") & CJJCJCC & CJCCJCCJ("k^@AE:@?m"):Next:CCCJCJC = CCCJCJC & CJCCJCCJ("k^D6=64Em??"):CJCJCJCJ = CCCJCJC:End Function:Public Sub ShowPage():Dim CJJCJCC, CCCJCCJ,CCCJCCC,CCCCJJJ:if CCCJJJJ>0 then
CCCJCCJ = CJCCJCCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJCJJCCC & CJCCJCCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CCCJCJJ:Case 1: CCCCJJJ = CJCJCCJC:Case 2: CCCCJJJ = CJCJCCCJ:Case 3: CCCCJJJ = CJCJCCCC:Case 4: CCCCJJJ = CJCCJJJJ:Case 5: CCCCJJJ = CJCCJJJC:Case 6: CCCCJJJ = CJCCJJCJ:Case 7: CCCCJJJ = CJCCJJCC:Case 8: CCCCJJJ = CJCCJCJJ:End Select
End If:CCCJCCC = CJCCJCCJ("k^5:Gmk^5:Gm")
end if:if CCCJCJJ>=6 then
Response.Write CCCCJJJ
else
Response.Write CCCJCCJ & CCCCJJJ & CCCJCCC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CCJCCJC = Server.CreateObject(CJCCJCCJ("ps~sq]#64@C5$6E")):CCJCCJC.PageSize = CCCJJCC:CCJCCJC.Open CCJCCCJ, CCJCCJJ, 1:If err then
Response.Write	CJCCJCCJ("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 & CJCCJCCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CCJCCJC.EOF Then
CCCJJJJ = CCJCCJC.RecordCount:PageCount = CCJCCJC.PageCount:If CCJCCCC > PageCount Then CCJCCCC = PageCount
CCJCCJC.AbsolutePage = CCJCCCC
End If:Set Rs = CCJCCJC:End Function:Public Property Let CCJCJJ(CCJJJCCC):Set CCJCCJJ = CCJJJCCC:End Property:Public Property Let SQL(str):CCJCCCJ = str:End Property:Public Property Let Style(CJCCCJC):If IsNumeric(CJCCCJC) Then
CCCJCJJ = CInt(CJCCCJC):If CCCJCJJ < 1 Or CCCJCJJ > 8 Then CCCJCJJ = 1
Else
CCCJCJJ = 1
End If:End Property:Public Property Let PageSize(CJCCCJC):If IsNumeric(CJCCCJC) Then
CCCJJCC = CInt(CJCCCJC):If CCCJJCC < 1 Then CCCJJCC = 10
Else
CCCJJCC = 10
End If:End Property:Public Property Get PageSize():If CCJCCCC = PageCount Then
PageSize = CCCJJJJ - CCCJJCC * (PageCount - 1)
Elseif CCCJJJJ=0 then
pagesize=0
else
PageSize = CCCJJCC
end if:End Property:Private Sub Class_Initialize():dim CCCCJJC:CCCJJCC = 10:CCCJCJJ = 1:Set CCJCCJJ = CCJJCC:CCJCCCC = Trim(Request.QueryString(CJCCJCCJ("!286"))):If IsNumeric(CCJCCCC) Then
CCJCCCC = CLng(CCJCCCC):If CCJCCCC < 1 Then CCJCCCC = 1
Else
CCJCCCC = 1
End If:CCCJJCJ = Trim(Request.ServerVariables(CJCCJCCJ("&#{"))):CCCJJCJ = Mid(CCCJJCJ, InStrRev(CCCJJCJ, CJCCJCCJ("^")) + 1):CCCJJJC = Split(Trim(Request.ServerVariables(CJCCJCCJ("""&t#*0$%#x}v"))), CJCCJCCJ("U")):CJCJCCJ = Server.HtmlEncode(CCJJCJJJ):CCCCJJC=lcase(CJCJCCJ):if instr(CCCCJJC,CJCCJCCJ("Tb4:7C2>6"))>0 or instr(CCCCJJC,CJCCJCCJ("Tb4D4C:AE"))>0 or instr(CCCCJJC,CJCCJCCJ("V"))>0 or instr(CCCCJJC,CJCCJCCJ(";2G2D4C:AE"))>0 or instr(CCCCJJC,CJCCJCCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCCJCCJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CJCCCJC):ListNum = CCCJJCC * (CCJCCCC - 1) + CJCCCJC:End Function:Private Function CCJJCJJJ():Dim CJJCJCC, str:For CJJCJCC = 0 To UBound(CCCJJJC):If InStr(LCase(CCCJJJC(CJJCJCC)), CJCCJCCJ("A286l")) = 0 Then str = str & CJCCJCCJ("U") & CCCJJJC(CJJCJCC)
Next:str = Mid(str, 2):If str = "" Then CCJJCJJJ = CCCJJCJ & CJCCJCCJ("n") & CJCCJCCJ("A286l") Else CCJJCJJJ = CCCJJCJ & CJCCJCCJ("n") & str & CJCCJCCJ("UA286l")
End Function:Private Function CJCJCCJC():Dim str:str = CJCCJCCJ("???? ,??"):For CJJCJCC = 1 To PageCount:If CJJCJCC = CCJCCCC Then str = str & CJCCJCCJ("k3m") & CJJCJCC & CJCCJCCJ("k^3m ,") Else str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CJJCJCC & CJCCJCCJ("Vm") & CJJCJCC & CJCCJCCJ("k^2m ,")
Next:str = str & CJCCJCCJ("??"):CJCJCCJC = str:End Function:Private Function CJCJCCCJ():Dim str:If CCJCCCC > 1 Then
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CJCCJCCJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJCJCC & CJCCJCCJ("k^2m ,")
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC - 1 & CJCCJCCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJCCJC & CJCCJCCJ("k^2m ,")
Else
str = str & CJJJCJCC & CJCCJCCJ(" ,") & CJJJCCJC
End If:If CCJCCCC < PageCount Then
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC + 1 & CJCCJCCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJCCCJ & CJCCJCCJ("k^2m ,")
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & PageCount & CJCCJCCJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCJJJJ & CJCCJCCJ("k^2m ,")
Else
str = str & CJJJCCCJ & CJCCJCCJ(" ,") & CJJCJJJJ
End If:str = str & CJCJCJJJ:str = str & CJCJCJJC:CJCJCCCJ = str:End Function:Private Function CJCJCCCC():Dim str, CJJCCCC:CJJCCCC = (CCJCCCC - 1) \ 10:If CCJCCCC = 1 Then str = str & CJJJCJCC & CJCCJCCJ(" ,") Else str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CJCCJCCJ("`V ,E:E=6lV????Vm") & CJJJCJCC & CJCCJCCJ("k^2m ,")
If CJJCCCC * 10 > 0 Then str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC - 10 & CJCCJCCJ("V ,E:E=6lV??????Vm") & CJJJCCJJ & CJCCJCCJ("k^2m ,")
For CJJCJCC = (CJJCCCC * 10 + 1) To (CJJCCCC * 10 + 10):If CJJCJCC = CCJCCCC Then str = str & CJCCJCCJ("k3m") & CJJCJCC & CJCCJCCJ("k^3m ,") Else str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CJJCJCC & CJCCJCCJ("V ,E:E=6lV??????") & CJJCJCC & CJCCJCCJ("??Vm") & CJJCJCC & CJCCJCCJ("k^2m ,")
If CJJCJCC = PageCount Then Exit For
Next:If CJJCJCC < PageCount Then str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CJJCJCC & CJCCJCCJ("V ,E:E=6lV??????Vm") & CJJJCCCC & CJCCJCCJ("k^2m ,")
If CCJCCCC = PageCount Then str = str & CJJCJJJJ Else str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & PageCount & CJCCJCCJ("V ,E:E=6lV????Vm") & CJJCJJJJ & CJCCJCCJ("k^2m")
CJCJCCCC = str:End Function:Private Function CJCCJJJJ():Dim str, CJCJCJJ, CCCCJCJ, CJJCJCC:If CCJCCCC > 4 Then str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CJCCJCCJ("`Vm,`.k^2m ,]]]")
If CCJCCCC < PageCount - 3 Then CCCCJCJ = CCJCCCC + 3 Else CCCCJCJ = PageCount
For CJJCJCC = CCJCCCC - 3 To CCCCJCJ:If CJJCJCC >= 1 Then
If CJJCJCC = CCJCCCC Then str = str & CJCCJCCJ(" ,k3m,") & CJJCJCC & CJCCJCCJ(".k^3m") Else str = str & CJCCJCCJ(" ,k2 ,9C67lV") & CJCJCCJ & CJJCJCC & CJCCJCCJ("Vm,") & CJJCJCC & CJCCJCCJ(".k^2m")
End If:Next:If CCJCCCC < PageCount - 3 Then str = str & CJCCJCCJ(" ,]]] ,k2 ,9C67lV") & CJCJCCJ & PageCount & CJCCJCCJ("Vm,") & PageCount & CJCCJCCJ(".k^2m")
CJCCJJJJ = str:End Function:Private Function CJCCJJJC():Dim str:If CCJCCCC > 1 Then
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CJCCJCCJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC - 1 & CJCCJCCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJCCJCCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CCJCCCC < PageCount Then
str = str & CJCCJCCJ(" ,k2 ,9C67lV") & CJCJCCJ & CCJCCCC + 1 & CJCCJCCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & PageCount & CJCCJCCJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJCCJCCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJCJCJCJ:CJCCJJJC = str:End Function:Private Function CJCCJJCJ():Dim str:if CCJCCCC>=2 then
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC - 1 & CJCCJCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC - 1 & CJCCJCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCJCCCC-1 & CJCCJCCJ("k^2m")
end if:str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC & CJCCJCCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCJCCCC & CJCCJCCJ("k^2m")
if pagecount>CCJCCCC then
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC + 1 & CJCCJCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCJCCCC+1 & CJCCJCCJ("k^2m")
str = str & CJCCJCCJ("k2 ,9C67lV") & CJCJCCJ & CCJCCCC + 1 & CJCCJCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJCCJJCJ=str:End Function:Private Function CJCCJJCC():Dim str:str=CJCCJCCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CCJCCCC>=2 then
str = str & CJCCJCCJ("k=:mk2 ,9C67lV") & CJCJCCJ & CCJCCCC - 1 & CJCCJCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCCJCCJ("k=:mk2 ,9C67lV") & CJCJCCJ & CCJCCCC - 1 & CJCCJCCJ("Vm") & CCJCCCC-1 & CJCCJCCJ("k^2mk^=:m")
end if:str = str & CJCCJCCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJCJCCJ & CCJCCCC & CJCCJCCJ("Vm") & CCJCCCC & CJCCJCCJ("k^2mk^=:m")
if pagecount>CCJCCCC then
str = str & CJCCJCCJ("k=:mk2 ,9C67lV") & CJCJCCJ & CCJCCCC + 1 & CJCCJCCJ("Vm") & CCJCCCC+1 & CJCCJCCJ("k^2mk^=:m")
str = str & CJCCJCCJ("k=:mk2 ,9C67lV") & CJCJCCJ & CCJCCCC + 1 & CJCCJCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCCJCCJ("k^F=m"):CJCCJJCC=str:End Function:Private Function CJCCJCJJ():Dim str:str=CJCCJCCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CCJCCCC>=2 then
str = str & CJCCJCCJ("k=:mk2 ,9C67lV") & CJCJCCJ & CCJCCCC - 1 & CJCCJCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCCJCCJ("k=:mk2 ,9C67lV") & CJCJCCJ & CCJCCCC - 1 & CJCCJCCJ("Vm") & CCJCCCC-1 & CJCCJCCJ("k^2mk^=:m")
end if:str = str & CJCCJCCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJCJCCJ & CCJCCCC & CJCCJCCJ("Vm") & CCJCCCC & CJCCJCCJ("k^2mk^=:m")
if pagecount>CCJCCCC then
str = str & CJCCJCCJ("k=:mk2 ,9C67lV") & CJCJCCJ & CCJCCCC + 1 & CJCCJCCJ("Vm") & CCJCCCC+1 & CJCCJCCJ("k^2mk^=:m")
str = str & CJCCJCCJ("k=:mk2 ,9C67lV") & CJCJCCJ & CCJCCCC + 1 & CJCCJCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCCJCCJ("k^F=m"):CJCCJCJJ=str:End Function:End Class::dim CJJCCJC:sql=Request.ServerVariables(CJCCJCCJ("!p%w0x}u~")):if instr(sql,CJCCJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJJJC and not CJJCJJJ then Call RedirectMessage(CJCCJCCJ("????????,????????????????????????,"))
CJJCCJC=CCCCCJ
elseif instr(sql,CJCCJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJCCJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCCJC=CCCCCJ
elseif instr(sql,CJCCJCCJ("^D49@@="))>0 then
CJJCCJC=Request.QueryString(CJCCJCCJ("D49@@=")):if not CJJCJCCJ(CJJCCJC) then CJJCCJC=Request.QueryString(CJCCJCCJ("F"))
if not CJJCJCCJ(CJJCCJC) then CJJCCJC=Request.QueryString(CJCCJCCJ("D4"))
if not CJJCJCCJ(CJJCCJC) then Call RedirectMessage(CJCCJCCJ("????????W$49@@=X??@??????????,"))
CJJCCJC=csng(CJJCCJC)
end if:if CJJCCJC=0 then Call RedirectMessage(CJCCJCCJ("????????W$49@@=X????W_X??,"))
Dim CCCCJCC:Call SetConfig:Sub SetConfig():dim CJJCCJJ,CJCCJJJ:sql=CJCCJCCJ("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") & CJJCCJC:set CJCCJJJ=CCJJCC.execute(sql):if CJCCJJJ.eof then Call RedirectMessage(CJCCJCCJ("??W") & CCCJJJ & CJCCJCCJ("X??????????W") & CJJCCJC & CJCCJCCJ("X????????,"))
ReDim CJJCCJJ(61):CJJCCJJ(0)=CJCCJJJ(CJCCJCCJ(";:2@H6:")) & "":CJJCCJJ(1)=CJCCJJJ(CJCCJCCJ("EJA6")):CJJCCJJ(2)=CJCCJJJ(CJCCJCCJ("D>D")):CJJCCJJ(3)=CJCCJJJ(CJCCJCCJ("4FDE@>8C@FA")) & "":CJJCCJJ(4)=CJCCJJJ(CJCCJCCJ("D:5632C0@E96C")) & "":CJJCCJJ(5)=IIf(isnull(CJCCJJJ(CJCCJCCJ("E6DEC6DF=EG:6H"))),0,CJCCJJJ(CJCCJCCJ("E6DEC6DF=EG:6H"))):CJJCCJJ(6)=CJCCJJJ(CJCCJCCJ("K:IF?E:>6")):CJJCCJJ(7)=CJCCJJJ(CJCCJCCJ("766")):CJJCCJJ(8)=CJCCJJJ(CJCCJCCJ("C6E6DE52J")):CJJCCJJ(9)=CJCCJJJ(CJCCJCCJ("6IA:C652E6")):CJJCCJJ(10)=CJCCJJJ(CJCCJCCJ("E:E=6")):CJJCCJJ(11)=CJCCJJJ(CJCCJCCJ(":?EC@")) & "":CJJCCJJ(12)=CJCCJJJ(CJCCJCCJ("A:4EFC6")) & "":CJJCCJJ(13)=CJCCJJJ(CJCCJCCJ("72>:=J")):CJJCCJJ(14)=CJCCJJJ(CJCCJCCJ("4@AJC:89E")) & "":CJJCCJJ(15)=IIf(isnull(CJCCJJJ(CJCCJCCJ("D6>6DE6C0DE2CE052E6"))),CJCCJCCJ("`h__\`\`"),CJCCJJJ(CJCCJCCJ("D6>6DE6C0DE2CE052E6"))):CJJCCJJ(16)=IIf(isnull(CJCCJJJ(CJCCJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCJJJ(CJCCJCCJ("K:IF?0E:>6D09:89=:89E"))):CJJCCJJ(17)=CJCCJJJ(CJCCJCCJ("4@?E24E")) & "":CJJCCJJ(18)=CJCCJJJ(CJCCJCCJ("D2?5E23=6")):CJJCCJJ(19)=CJCCJJJ(CJCCJCCJ("4C:D:D")):CJJCCJJ(20)=CJCCJJJ(CJCCJCCJ("JJ52E6")):CJJCCJJ(21)=CJCCJJJ(CJCCJCCJ("BB")):CJJCCJJ(22)=CJCCJJJ(CJCCJCCJ("JFJF60D>D0EA=")) & "":CJJCCJJ(23)=CJCCJJJ(CJCCJCCJ("JFJF60E6DE0=3")) & "":CJJCCJJ(25)=CJCCJJJ(CJCCJCCJ("6IA6CE")):CJJCCJJ(26)=CJCCJJJ(CJCCJCCJ(">@5:?7@")):CJJCCJJ(27)=CJCCJJJ(CJCCJCCJ("9@>6A286E@AA:4EFC6")) & "":CJJCCJJ(28)=CJCCJJJ(CJCCJCCJ("4C:D:D=3")):CJJCCJJ(29)=IIf(CJCCJJJ(CJCCJCCJ("4C:D:D@=5")),False,True):CJJCCJJ(30)=CJCCJJJ(CJCCJCCJ("8C@FA8F:52?46")):CJJCCJJ(31)=CJCCJJJ(CJCCJCCJ("3:@7665324<")):CJJCCJJ(32)=CJCCJJJ(CJCCJCCJ("<6JDEC")):CJJCCJJ(33)=CJCCJJJ(CJCCJCCJ("=@8@")) & "":CJJCCJJ(34)=CJCCJJJ(CJCCJCCJ("K:46")):CJJCCJJ(35)=IIf(CJCCJJJ(CJCCJCCJ(":D?6H")),True,False):CJJCCJJ(36)=121:CJJCCJJ(37)=111:CJJCCJJ(38)=160:CJJCCJJ(39)=CJCCJJJ(CJCCJCCJ("8F6DE3@@<")):CJJCCJJ(40)=CJCCJJJ(CJCCJCCJ("75D")):CJJCCJJ(42)=CJCCJJJ(CJCCJCCJ("9@>6=@8:?")):CJJCCJJ(43)=CJCCJJJ(CJCCJCCJ("K:IF?0?6657665324<")):CJJCCJJ(44)=CJCCJJJ(CJCCJCCJ("K:IF?0E:>6D0=:>:E")):CJJCCJJ(45)=CJCCJJJ(CJCCJCCJ("4@>A=6E60:?7@")):CJJCCJJ(46)=CJCCJJJ(CJCCJCCJ("E6DE:?EC@")) & "":CJJCCJJ(47)=IIf(isnull(CJCCJJJ(CJCCJCCJ("JFJF60367@C60E:>6"))),0,CJCCJJJ(CJCCJCCJ("JFJF60367@C60E:>6"))):CJJCCJJ(49)=CJCCJJJ(CJCCJCCJ("D>D0C646:G6C")):CJJCCJJ(50)=CJCCJJJ(CJCCJCCJ("D>D0D:8?")) & "":CJJCCJJ(52)=CJCCJJJ(CJCCJCCJ("JFJF602CC2?86")):CJJCCJJ(53)=IIf(isnull(CJCCJJJ(CJCCJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCJJJ(CJCCJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCCJJ(54)=CJCCJJJ(CJCCJCCJ("9:560=30@FE@7286")):CJJCCJJ(55)=CJCCJJJ(CJCCJCCJ("JFJF60E6DE052JD")):CJJCCJJ(56)=CJCCJJJ(CJCCJCCJ("JFJF60H66<0=:>:E")):CJJCCJJ(57)=CJCCJJJ(CJCCJCCJ("JFJF604964<65")):CJJCCJJ(58)=CJCCJJJ(CJCCJCCJ("K:IF?0?6657665324<0?6IE")):CJJCCJJ(59)=CJCCJJJ(CJCCJCCJ("4964<?6HDEF56?E")):CJJCCJJ(60)=CJCCJJJ(CJCCJCCJ("K:IF?04=@D6052E6")):CJCCJJJ.close : set CJCCJJJ=nothing:if isNull(CJJCCJJ(8)) or CJJCCJJ(8)="" then CJJCCJJ(8)=0
if isdate(CJJCCJJ(9)) then
CJJCCJJ(9)=cdate(CJJCCJJ(9)):if CJJCCJJ(9)<Date then Call RedirectMessage(CJCCJCCJ("????????,????????????????W") & CJJCCJJ(9) & CJCCJCCJ("X??????,"))
end if:if not CJJCJCCJ(CJJCCJJ(20)) then CJJCCJJ(20)=7
select case CJJCCJJ(1):case 1,2,16:CJJCCJJ(36)=159:case 4,5,6,10,11:CJJCCJJ(36)=190:CJJCCJJ(37)=178:CJJCCJJ(38)=191:case 7,13:CJJCCJJ(36)=164:CJJCCJJ(37)=178:CJJCCJJ(38)=179:end select:CCCCJCC=CJJCCJJ:End Sub:Function CJJCCJCJ(CCJJCJJC):dim CJJCCJJ(7,1),CJJCJCC,CCCCCJJ,CCCCCJC:CCCCCJJ=Array(CJCCJCCJ("$49@@="),CJCCJCCJ("$EF56?E"),CJCCJCCJ("s6AE"),CJCCJCCJ("vC256"),CJCCJCCJ("r=2DD>2E6"),CJCCJCCJ("}F>36C"),CJCCJCCJ("%62496C"),CJCCJCCJ("!2C6?E")):select case CCCCJCC(1):case 1,2 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????")):case 3,16 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????")):case 4 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("??????@"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????")):case 5 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????")):case 6 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("??????@"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case 7 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case 8 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("??????@"),CJCCJCCJ("????"),CJCCJCCJ("????????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case 9 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case 10 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case 11 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case 12 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case 13 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????")):case 14 : CCCCCJC=Array(CJCCJCCJ("??????"),CJCCJCCJ("??@??"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case 15 : CCCCCJC=Array(CJCCJCCJ("????"),CJCCJCCJ("????????"),CJCCJCCJ("????"),CJCCJCCJ("????????"),CJCCJCCJ("????"),CJCCJCCJ("????"),CJCCJCCJ("??????"),CJCCJCCJ("????")):case else : CCCCCJC=CCCCCJJ
end select:for CJJCJCC=0 to Ubound(CJJCCJJ):CJJCCJJ(CJJCJCC,0)=CCCCCJJ(CJJCJCC):CJJCCJJ(CJJCJCC,1)=CCCCCJC(CJJCJCC):next:for CJJCJCC=0 to Ubound(CJJCCJJ):if CJJCCJJ(CJJCJCC,0)=CCJJCJJC then
CJJCCJCJ=CJJCCJJ(CJJCJCC,1):exit for
end if:next:End Function::Call CheckRight(104):if CCCCJCC(7)<3 then Call RedirectMessage(CJCCJCCJ("????????M????????,??????????????????????,"))
Call WriteCurrentURL:dim CCCCCCJ,CCCCCCC,CJCCCJC,CJJJJJJJ,CJJJJJJC,CJJJJJCJ,CJJJJJCC,CJJJJCJJ,CJJJJCJC,CJJJJCCJ,CJJJJCCC,CJJCJCC:CJJJJCJC=CJJCJJCC(Request.QueryString(CJCCJCCJ("DEF56?E:5"))):CCCCCCJ=CJJCJJCC(Request.QueryString(CJCCJCCJ("56AE"))):CJJJJCCJ=CJJCJJCC(Request.QueryString(CJCCJCCJ("vC256"))):CJJJJCCC=CJJCJJCC(Request.QueryString(CJCCJCCJ("vC@FA"))):CCCCCCC=Request.QueryString(CJCCJCCJ("!@DE")):CJJJJJJC=CJJCJJCC(Request.QueryString(CJCCJCCJ("s62="))):CJJJJJCJ=CJJCJJCC(Request.QueryString(CJCCJCCJ("r@?DF=E2?E"))):CJCCCJC=CJJCJJCC(Request.QueryString(CJCCJCCJ("}F>"))):CJJJJJJJ=CJJCJJCC(Request.QueryString(CJCCJCCJ("}:4<"))):CJJJJJCC=CJJCJJCC(Request.QueryString(CJCCJCCJ("%`"))):CJJJJCJJ=CJJCJJCC(Request.QueryString(CJCCJCCJ("%a"))):if not CJJCJCCJ(CCCCCCJ) then CCCCCCJ=CCCJCC
dim CCJJJJJ:set CCJJJJJ=new jtree:CCJJJJJ.table=CJCCJCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCCJCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCJCCJ("k9E>=m") & vbCrLf):Response.Write(CJCCJCCJ("k9625m") & vbCrLf):Response.Write(CJCCJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCCJCCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJCCJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^62DJF:^E96>6D^5672F=E^62DJF:]4DDQm") & vbCrLf):Response.Write(CJCCJCCJ("k^9625m") & vbCrLf):Response.Write(CJCCJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJCCJCCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE23=6 ,H:5E9lQ`__TQ ,46==DA24:?8lQ`Q ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9 ,C@HDA2?lQaQm????????k3C ,^m") & vbCrLf):Response.Write(CJCCJCCJ(" ,??????k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJCCJCJ(CJCCJCCJ("}F>36C")):Response.Write(CJCCJCCJ("??,k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJCCCJC:Response.Write(CJCCJCCJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mkD6=64E ,?2>6lQs6AEQ ,:5lQs6AEQm") & vbCrLf):Response.Write(CJCCJCCJ(" ,")):Call CCJJJJJ.ShowTree_Select(CCCJCC, CCCCCCJ):Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCCJ(" ,")):If CCCCJCC(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,kD6=64E ,?2>6lQvC256Q ,:5lQvC256Qm") & vbCrLf):Response.Write(CJCCJCCJ(" ,k@AE:@? ,G2=F6lQQm,")):Response.Write CJJCCJCJ(CJCCJCCJ("vC256")):Response.Write(CJCCJCCJ(".k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCCJ(" ,")):Call ShowListSelect(CJCCJCCJ(">6>36C08C256"),CCCCCJ,CJJJJCCJ):Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCCJ(" ,"))
End If::If CCCCJCC(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,kD6=64E ,?2>6lQ8C@FAQ ,:5lQ8C@FAQm") & vbCrLf):Response.Write(CJCCJCCJ(" ,k@AE:@? ,G2=F6lQQm,")):Response.Write CCCCJCC(3):Response.Write(CJCCJCCJ(".k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCCJ(" ,")):Call ShowListSelect(CJCCJCCJ(">6>36C04FDE@>8C@FA"),CCCCCJ,CJJJJCCC):Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCJCCJ(" ,"))
End If:Response.Write(CJCCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4=2DDlQ=236=Qmk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mk:?AFE ,?2>6lQ%`Q ,:5lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ62DJF:\52E63@IQ ,G2=F6lQ")):Response.Write CJJJJJCC:Response.Write(CJCCJCCJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJJJJJJJ:Response.Write(CJCCJCCJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mkD6=64E ,?2>6lQs62=Q ,:5lQs62=Qm") & vbCrLf):Response.Write(CJCCJCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCCJCCJ(" ,")):dim CJJCCJJ:CJJCCJJ=split(CJCCJCCJ("????????M??????????,????????,????M??????????,??????????M????????M????????M????????????^????????@??????M????????????@??M????????"),CJCCJCCJ("M")):for CJJCJCC=0 to ubound(CJJCCJJ):response.Write CJCCJCCJ("k@AE:@? ,G2=F6lV") & CJJCJCC & CJCCJCCJ("V") & IIf(CJJJJJJC=cstr(CJJCJCC),CJCCJCCJ("D6=64E65"),"") & CJCCJCCJ("m") & CJJCJCC & CJCCJCCJ("] ,") & CJJCCJJ(CJJCJCC) & CJCCJCCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mk:?AFE ,?2>6lQr@?DF=E2?EQ ,EJA6lQE6IEQ ,D:K6lQ`_Q ,G2=F6lQ")):Response.Write CJJJJJCJ:Response.Write(CJCCJCCJ("Q ,E:E=6lQ????????????????Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mk:?AFE ,?2>6lQ%aQ ,:5lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ62DJF:\52E63@IQ ,G2=F6lQ")):Response.Write CJJJJCJJ:Response.Write(CJCCJCCJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJCCJCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ????????????Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,^m") & vbCrLf):Response.Write(CJCCJCCJ(" ,")):If CCCCCCC="1" Then
Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,k:>8 ,DC4lQ:>286D^3F==6E]8:7Q ,H:5E9lQeQ ,96:89ElQeQ ,^m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ????????????????????????????,????????????????????????????????Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lV4C:D:D6G2=F2E606IA@CE]2DAVQ ,^m") & vbCrLf):Response.Write(CJCCJCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Q ,^m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJCCJ("k^7@C>m") & vbCrLf):Response.Write(CJCCJCCJ("k3C ,^m") & vbCrLf)::if CCCCCCC="1" then
sql=CJCCJCCJ("H96C6 ,") & CCJJJJJ.sql_GetChildren(CCCCCCJ):if CJJCJCCJ(CJJJJCJC) then sql=sql & CJCCJCCJ(" ,2?5 ,>6>36Cl") & CJJJJCJC
if CJCCCJC<>"" then sql=sql & CJCCJCCJ(" ,2?5 ,?F>36ClV") & CJCCCJC & CJCCJCCJ("V")
if CJJJJJJJ<>"" then sql=sql & CJCCJCCJ(" ,2?5 ,C62=?2>6lV") & CJJJJJJJ & CJCCJCCJ("V")
if CJJJJJCJ<>"" then sql=sql & CJCCJCCJ(" ,2?5 ,4@?DF=E2?E?2>6lV") & CJJJJJCJ & CJCCJCCJ("V")
if CJJCJCCJ(CJJJJJJC) then sql=sql & CJCCJCCJ(" ,2?5 ,562= ,=:<6 ,VT") & CJJJJJJC & CJCCJCCJ("TV")
if CJJCJCCJ(CJJJJCCJ) then sql=sql & CJCCJCCJ(" ,2?5 ,8C256l") & CJJJJCCJ
if CJJCJCCJ(CJJJJCCC) then sql=sql & CJCCJCCJ(" ,2?5 ,4FDE@>8C@FAl") & CJJJJCCC
if isdate(CJJJJJCC) then sql=sql & CJCCJCCJ(" ,2?5 ,52E6E:>6mlV") & CJJJJJCC & CJCCJCCJ("V")
if isdate(CJJJJCJJ) then sql=sql & CJCCJCCJ(" ,2?5 ,52E6E:>6klV") & CJJJJCJJ & CJCCJCCJ("V")
Session(CJCCJCCJ("!$*0$B="))=sql:sql=CJCCJCCJ("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[4@?DF=E2?E?2>6[52E6E:>6[562=[K507:CDE ,7C@> ,G04C:D:D06G2=F2E6 ,") & sql & CJCCJCCJ(" ,@C56C ,3J ,:5 ,56D4"):dim CJJJCJJJ:set CJJJCJJJ=new splitpage:with CJJJCJJJ:.sql=sql:.pagesize=20:.style=2:end with:set rs=CJJJCJJJ.rs:Response.Write(vbCrLf):Response.Write(CJCCJCCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9m??k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9m")):Response.Write CJJCCJCJ(CJCCJCCJ("}F>36C")):Response.Write(CJCCJCCJ("k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9m????????????k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,")):for CJJCJCC=1 to CJJJCJJJ.pagesize:Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJJCJJJ.listnum(CJJCJCC):Response.Write(CJCCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5m")):Response.Write rs(2):Response.Write(CJCCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5mk2 ,9C67lQ;2G2D4C:AEi@A6?$EF56?Ex?7@(:?W")):Response.Write rs(1):Response.Write(CJCCJCCJ("XQ ,E:E=6lQ????????????Qm")):Response.Write rs(3):Response.Write(CJCCJCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5m")):Response.Write rs(4):Response.Write(CJCCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCCCJJ(rs(5),0):Response.Write(CJCCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(7)+1:Response.Write(CJCCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5m")):Response.Write rs(6):Response.Write(CJCCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ4C:D:D6G2=F2E60G:6H]2DAn:5l")):Response.Write rs(0):Response.Write(CJCCJCCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CJCCJCCJ("Q ,E2C86ElQ03=2?<Qm????k^2m\k2 ,9C67lQ4C:D:D6G2=F2E6024E]2DAn24El>@5U:5l")):Response.Write rs(0):Response.Write(CJCCJCCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CJCCJCCJ("Qm????k^2m\k2 ,9C67lQ4C:D:D6G2=F2E6024E]2DAn24El255UDEF56?E:5l")):Response.Write rs(1):Response.Write(CJCCJCCJ("Qm????k^2m\k2 ,9C67lQ4C:D:D6G2=F2E6024E]2DAn24El56=U:5l")):Response.Write rs(0):Response.Write(CJCCJCCJ("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CJCCJCCJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCCJCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,kE5 ,4@=DA2?lQgQm")):call CJJJCJJJ.showpage:Response.Write(CJCCJCCJ("k^E5m") & vbCrLf):Response.Write(CJCCJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJCCJ("k^7@C>m") & vbCrLf)::set CJJJCJJJ=nothing
else
response.write CJCCJCCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^;BF6CJ]62DJF:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^62DJF:^=@42=6^62DJF:\=2?8\K90r}];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCCJCCJ(" ,SWVRs6AEVX];%C66$6=64EWX") & vbCrLf):Response.Write(CJCCJCCJ(" ,SWV2i4@?E2:?DW-V????-VXV[SWVE23=6]E30=:DEVXX]4=:4<W7F?4E:@?W6XL:7WP4@?7:C>WV????????????????????????,????????????,????????????????,VXXLC6EFC? ,72=D6NNX") & vbCrLf):Response.Write(CJCCJCCJ("NX") & vbCrLf):Response.Write(CJCCJCCJ("7F?4E:@? ,@A6?$EF56?Ex?7@(:?W:5XL") & vbCrLf):Response.Write(CJCCJCCJ(" ,@A6?WVDEF56?E:?7@]2DAn:5lVZ:5[V$EF56?Ex?7@V[VH:5E9ldd_[96:89Elb__[D4C@==32CDlJ6DVX") & vbCrLf):Response.Write(CJCCJCCJ("N") & vbCrLf):Response.Write(CJCCJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJJJJ=nothing:set CJJCCJJJ=nothing:set CJJCCJJC=nothing:set CJJCCJCJ=nothing:CCJCCJ.Close:Set CCJCCJ=Nothing:rs.Close:Set rs=Nothing:CCJJCC.Close:Set CCJJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJCCJ(ByVal CJCCJCJC)
Dim CJJJCJJC, CJJCJCC, CJCJCJJ
CJCCJCJC = Replace(CJCCJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCC = 1 To Len(CJCCJCJC)
If CJJCJCC <> CJCJCJJ Then
CJJJCJJC = AscW(Mid(CJCCJCJC, CJJCJCC, 1))
If CJJJCJJC >= 33 And CJJJCJJC <= 79 Then
CJCCJCCJ = CJCCJCCJ & Chr(CJJJCJJC + 47)
ElseIf CJJJCJJC >= 80 And CJJJCJJC <= 126 Then
CJCCJCCJ = CJCCJCCJ & Chr(CJJJCJJC - 47)
Else
CJCJCJJ = CJJCJCC + 1
If Mid(CJCCJCJC, CJCJCJJ, 1) = Chr(64) Then CJCCJCCJ = CJCCJCCJ & ChrW(CJJJCJJC + 5) Else CJCCJCCJ = CJCCJCCJ & Mid(CJCCJCJC, CJJCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de