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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJCJ, CCJJCC,rs, CCJCJC, sql:Set CCJJCJ = server.CreateObject(CJCJCCJC("ps~sq]r@??64E:@?")):CCJJCJ.open Application(CJCJCCJC("r@??64E:@?$EC:?8")):Set CCJJCC=CCJJCJ::Dim CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC:CJJCJJC=Trim(Request.Cookies(CJCJCCJC("!$*|t|qt#"))):if CJJCJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCCC>0 then
sql=CJCJCCJC("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") & CCCJJJ & CJCJCCJC("V ,2?5 ,:5l") & CCJCCC
set rs=CCJJCJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCCJJC=rs(2) & "":CCCJCJ=rs(3):CCCJCC=rs(5):CCCCJJ=rs(6):CCCCJC=rs(9):CCCCCJ=rs(15):CJJJJJJ=rs(0):CJJJCCC=rs(1):CJJJCCJ=rs(11) & "":CJJJJJC=rs(10) & "":CCCCCC=rs(12):CJJJJCJ=rs(14):CJJJJCC=rs(13):CJJJCJJ=rs(7) & "":CJJJCJC=rs(4):CJJCJJJ=rs(8):if isnull(CCCCCJ) then CCCCCJ=0
if isnull(CCCCJC) or CCCCJC=0 then CCCCJC=CCCJCJ
if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CCCJCC) then CCCJCC=0
if instr(CJCJCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJJ)>0 then Call RedirectMessage(CJCJCCJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCCC,CCCJJJ)
End IF
end if:Sub CheckRight(CCJJCJJ):dim CJJCJCJ,CJJCJCC:if CCJCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJCCJC("??????????????,????????????,"))
elseIf not CJJJJCCC(CCJJCJJ) then
Call RedirectMessage(CJCJCCJC("????W") & CCJJCJJ & CJCJCCJC("X????????,????????????????????,"))
end if:End Sub:Function CJJJJCCC(CCJJCJJ):dim CJJCJCJ,CJJCJCC:CJJCJCC=split(CCJJCJJ,CJCJCCJC("[")):CJJJJCCC=False:for CJJCJCJ=0 to ubound(CJJCJCC):If Mid(CCCJJC,CJJCJCC(CJJCJCJ),1)="1" then
CJJJJCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJCCJC("!$*|t|qt#"))="":CCJCCC=0:CCCCJJ=0:CCCJJJ=Empty:CCCJCC=0:CCCCCJ=0:CCCCJC=0:CCCJCJ=0:CJJJJJJ=False:CJJJCCC=False:CJJCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJJ,CJJCCJC,CJJCJCJ,CJJCCCJ,CJJCCCC:CJJCCJJ=split(CJJCJJC,CJCJCCJC("]")):if ubound(CJJCCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJJ(0)) or len(CJJCCJJ(1))<>32 or len(CJJCCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCJC=CJJCCJJ(1):for CJJCJCJ=1 to len(CJJCCJC):CJJCCCJ=mid(CJJCCJC,CJJCJCJ,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCJC=CJJCCJJ(2):if CJJCCCC<>mid(CJJCCJC,6,7) then
Call ClearMemberCookie
else
CJJCCCJ=mid(CJJCCJC,18,10)/2:if CJJCCCJ<DateDiff(CJCJCCJC("D"), CJCJCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCCC=Clng(CJJCCJJ(0)):CCCJJJ=CJJCCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJJCJ,CJCJCCCJ):dim CJJCJCJ,CJJCCCJ,CJJCCCC:for CJJCJCJ=1 to len(CJCJCCCJ):CJJCCCJ=mid(CJCJCCCJ,CJJCJCJ,1):if isnumeric(CJJCCCJ) then CJJCCCC=CJJCCCC & CJJCCCJ
if len(CJJCCCC)=7 then exit for
next:CJJCCCC=CJJCJJCJ & CJCJCCJC("]") & CJCJCCCJ & CJCJCCJC("]") & Fix(10000*(Rnd+1)) & CJJCCCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJCCJC("D"), CJCJCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCCJC("!$*|t|qt#"))=CJJCCCC:End Sub::Function CJJJCJJJ(CJCJCCCC):Dim str,CJCJJJC:str = Trim(CJCJCCCC):If IsNull(str) Or str = "" Then
CJJJCJJJ = ""
else
str=Replace(str, CJCJCCJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJCCJC("k:7C2>6"), CJCJCCJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJCCJC("kD4C:AE"), CJCJCCJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJJJC=new RegExp:CJCJJJC.Pattern=CJCJCCJC("@?W,2\K.ZXl"):CJCJJJC.IgnoreCase = True:CJCJJJC.Global=True:str=CJCJJJC.Replace(str,CJCJCCJC("@?S`U6BF2=Dj")):set CJCJJJC=nothing:CJJJCJJJ=str
End If:End Function:Function IIf(CJCCJJJJ, CJCCJJJC, CJCCJJCJ):if isnull(CJCCJJJJ) or isempty(CJCCJJJJ) then
IIf = CJCCJJCJ
elseif CJCCJJJJ Then
IIf = CJCCJJJC
Else
IIf = CJCCJJCJ
end if:End Function:Const CCCCCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCJCCJC("FE7\g"):dim CJJCJCJ,CJJCCCJ,CJCJJCJ:if isarray(str) then
on error resume next:CJJCJCJ=ubound(str,2):CJCJJCJ=err.number:err.clear:on error goto 0:if CJCJJCJ<>0 then
for CJJCJCJ=0 to ubound(str):if CJJCJCJ>0 then response.Write CJCJCCJC("k3C ,^m")
response.Write CJJCJCJ & CJCJCCJC("i ,") & str(CJJCJCJ):next
else
response.Write CJCJCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJCJ=0 to ubound(str,2):response.Write CJCJCCJC("kE9 ,2=:8?lV=67EVm") & CJJCJCJ & CJCJCCJC("k^E9m")
next:response.Write CJCJCCJC("k^ECm"):for CJJCJCJ=0 to ubound(str):response.Write CJCJCCJC("kECmkE9m") & CJJCJCJ & CJCJCCJC("k^E9m"):for CJJCCCJ=0 to ubound(str,2):response.Write CJCJCCJC("kE5m") & str(CJJCJCJ,CJJCCCJ) & CJCJCCJC("k^E5m"):next:response.Write CJCJCCJC("k^ECm"):next:response.Write CJCJCCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJCCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJCCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCCJJCC,CJCCJCJJ):dim CJJCCJJ:CJJCCJJ=CJCCJJCC & CJCJCCJC("l") & CJCCJCJJ & CJCJCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCCJC("$6E\r@@<:6"),CJJCCJJ):End Sub:::Function CJJJCJCJ(ByVal Str, ByVal StrLen):Dim CJCJJCC, CJCJCJJ, CJCJCJC, CJJCJCJ:if isnull(str) then
CJJJCJCJ=""
else
CJCJJCC = Len(Str):CJCJCJJ = 0:For CJJCJCJ = 1 To CJCJJCC:CJCJCJC = AscW(Mid(Str, CJJCJCJ, 1)):If CJCJCJC < 0 Or CJCJCJC > 255 Then CJCJCJJ = CJCJCJJ + 2 Else CJCJCJJ = CJCJCJJ + 1
If CJCJCJJ >= StrLen Then
CJJJCJCJ = Left(Str, CJJCJCJ) & CJCJCCJC("]]]"):Exit For
Else
CJJJCJCJ = Str
End If:Next
end if:End Function:::sub ShowMessage(CJCCJCJC):response.Charset="utf-8":Response.Write CJCJCCJC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJCCJCJC & CJCJCCJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJJCJCC(CJCJJCJ):if isnull(CJCJJCJ) or trim(CJCJJCJ)="" or not isnumeric(CJCJJCJ) then
CJJJCJCC=false
else
Dim CJCJJJC:Set CJCJJJC = New RegExp:CJCJJJC.Pattern = CJCJCCJC("/-5ZS"):CJCJJJC.IgnoreCase = True:CJJJCJCC = CJCJJJC.test(CJCJJCJ):set CJCJJJC=nothing
end if:End Function:Function CJJJCCJJ(CJCCJCCJ):dim CJCJCCJ,CJCJCCC:CJCJCCJ=CJCJCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCJCCJ & CJCJCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCCC=CCJJCJ.execute(CJCJCCJ):CJJJCCJJ = CJCJCCC(0):if isnull(CJJJCCJJ) then CJJJCCJJ=1
CJCJCCC.close : set CJCJCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCJJJ=nothing:set CJJJCCJC=nothing:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:CJCJCCC.close : set CJCJCCC=nothing:CCJCJC.Close : Set CCJCJC=Nothing:rs.Close : Set rs=Nothing:CJJCJJJJ.Close : Set CJJCJJJJ = Nothing:CCJJCJ.Close : Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCCJC("!$*0|6DD286"),server.URLEncode(CJCCJCJC)):Response.Redirect CJCJCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJCCJCCC):Application.Contents.Remove CJCCJCCC
End Sub::Class jTree:Private Sql, CJCCJJJ, CJCCJJC, CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:Private Sub Class_Initialize():CJCCJJC = 0:CJCCJCJ = 0:CJCCCCJ=10:End Sub:Public Property Let Table(CJCCCJJJ):if CJCCCJJJ="" then Call RedirectMessage(CJCJCCJC("????????,;%C66????????????????????@??????????,"))
CJCCJCC=CJCCCJJJ:CJCCCJJ=CJCJCCJC("!$*0") & UCase(CJCCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCJCC:End Property:::Private Sub GetTreeArray():Dim CJJCJCJ, CJJCCCJ, CJCCCCC,RecordCount:CJCCJJJ = Application(CJCCCJJ):If Not IsArray(CJCCJJJ) Then
Sql = CJCJCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJCC:if CJCCCJC<>"" then Sql=Sql & CJCJCCJC(" ,H96C6 ,") & CJCCCJC
set CJCCCCC=CCJJCJ.execute(sql):RecordCount=CJCCCCC(0):if RecordCount=0 then Call RedirectMessage(CJCJCCJC("????W") & CJCCJCC & CJCJCCJC("^") & CJCCCJC & CJCJCCJC("X????????????"))
CJCCJCJ=RecordCount+CJCCCCJ:ReDim CJCCJJJ(CJCCJCJ, 4):Sql = CJCJCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCJCCJC(" ,H:E9 ,W?@=@4<X"):if CJCCCJC<>"" then Sql=Sql & CJCJCCJC(" ,H96C6 ,") & CJCCCJC
Sql=Sql & CJCJCCJC(" ,@C56C ,3J ,D@CE[:5"):set CJCCCCC=CCJJCJ.execute(sql):For CJJCJCJ = 1 To RecordCount:For CJJCCCJ = 0 To 4:CJCCJJJ(CJJCJCJ, CJJCCCJ) = CJCCCCC(CJJCCCJ):if IsNull(CJCCJJJ(CJJCJCJ,4)) then CJCCJJJ(CJJCJCJ,4)=0
If CJCCJJJ(CJJCJCJ,2)="" then CJCCJJJ(CJJCJCJ,2)=CJCJCCJC(",??.")
Next:CJCCCCC.MoveNext:Next:CJCCCCC.Close: Set CJCCCCC = Nothing:for CJJCJCJ=CJCCJCJ-(CJCCCCJ-1) to CJCCJCJ:CJCCJJJ(CJJCJCJ,0)=CJJCJCJ:next:Application.Lock():Application(CJCCCJJ) = CJCCJJJ:Application.UnLock()
else
CJCCJCJ=Ubound(CJCCJJJ)
End If:End Sub:Public Sub ShowChild_Select(CJJCJJCJ, CJJCJJCC):dim CJJCJCJ:CJJCJJCJ=CLng(CJJCJJCJ):CJJCJJCC=Cstr(CJJCJJCC):For CJJCJCJ = 1 To CJCCJCJ:If CJCCJJJ(CJJCJCJ, 1) = CJJCJJCJ Then
Response.Write CJCJCCJC("k@AE:@? ,G2=F6lV") & CJCCJJJ(CJJCJCJ, 0) & CJCJCCJC("V")
If Instr(CJCJCCJC("[") & CJJCJJCC & CJCJCCJC("["),CJCJCCJC("[") & CJCCJJJ(CJJCJCJ, 0) & CJCJCCJC("["))>0 Then Response.Write CJCJCCJC(" ,D6=64E65")
Response.Write CJCJCCJC("m\ ,") & CJCCJJJ(CJJCJCJ, 2) & CJCJCCJC("k^@AE:@?m")
End If:Next:End Sub::::Private Function CJJCJCJJ(CJJCJJCJ):dim CJJCJCJ,CCJJJJC:CJJCJCJJ=0:CCJJJJC=CStr(CJJCJJCJ):if CCJJJJC<>"0" then
for CJJCJCJ=1 to CJCCJCJ:If CStr(CJCCJJJ(CJJCJCJ, 0))=CCJJJJC Then
CJJCJCJJ = CJJCJCJ:Exit For
End If:Next
end if:End Function:Public Function CJJCJCJC(CJJCJJCJ):if Cstr(CJJCJJCJ)="0" then
CJJCJCJC=CJCJCCJC("??")
else
Dim CJJCJCJ,CJCCCCC:CJJCJCJ=CJJCJCJJ(CJJCJJCJ):if CJJCJCJ>0 then
CJJCJCJC=CJCCJJJ(CJJCJCJ,2):if CJJCJCJC="" then
set CJCCCCC=CCJJCJ.execute(CJCJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCJCCJC(" ,H96C6 ,:5l") & CJJCJJCJ):if CJCCCCC.eof then Call RedirectMessage(CJCJCCJC("xs??,") & CJJCJJCJ & CJCJCCJC("??,??????"))
CJJCJCJC=CJCCCCC(1):Call UpdateCache(CJJCJJCJ,CJCCCCC(0),CJJCJCJC,CJCCCCC(2),CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing
end if
else
set CJCCCCC=CCJJCJ.execute(CJCJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCJCCJC(" ,H96C6 ,:5l") & CJJCJJCJ):if CJCCCCC.eof then Call RedirectMessage(CJCJCCJC("xs??,") & CJJCJJCJ & CJCJCCJC("??,??????"))
CJJCJCJC=CJCCCCC(1):Call UpdateCache(CJJCJJCJ,CJCCCCC(0),CJJCJCJC,CJCCCCC(2),CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing
end if
end if:End Function:::Public Function CJJCJCCJ(CJJCJJCJ):Dim CJJCJCJ,CCJJJCJ:CJJCJCJ=CJJCJCJJ(CJJCJJCJ):if CJJCJCJ=0 then
CCJJJCJ=CJJCJCCC(CJJCJJCJ)
else
CCJJJCJ=CJCCJJJ(CJJCJCJ,3):if isnull(CCJJJCJ) or CCJJJCJ="" then
CCJJJCJ=CJJCJCCC(CJJCJJCJ)
elseif Mid(CCJJJCJ,instrrev(CCJJJCJ,CJCJCCJC("["))+1)<>CStr(CJJCJJCJ) then
CCJJJCJ=CJJCJCCC(CJJCJJCJ)
elseif Left(CCJJJCJ,1)=CJCJCCJC("[") then
CCJJJCJ=CJJCJCCC(CJJCJJCJ)
end if
end if:CJJCJCCJ=CCJJJCJ:End Function:Private Function CJJCJCCC(CJJCJJCJ):dim CCJJJJC:CCJJJJC=CStr(CJJCJJCJ):if CCJJJJC="0" then
CJJCJCCC=""
else
dim CJCCCCC:set CJCCCCC=CCJJCJ.execute(CJCJCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJCJCCJC(" ,H96C6 ,:5l") & CJJCJJCJ):if CJCCCCC.eof then
Call UpdateCache(CJJCJJCJ,"","","",""):Call RedirectMessage(CJCJCCJC("??????,xs??,") & CJJCJJCJ & CJCJCCJC("??,????????,????????????????????,"))
else
if CJCCCCC(0)=0 then
CJJCJCCC="0," & CJJCJJCJ
else
CJJCJCCC=CJJCJCCJ(CJCCCCC(0)) & CJCJCCJC("[") & CJJCJJCJ
end if:if CJCCCCC(2)<>CJJCJCCC then
CCJJCJ.execute CJCJCCJC("FA52E6 ,") & CJCCJCC & CJCJCCJC(" ,D6E ,A2E9lV") & CJJCJCCC & CJCJCCJC("V ,H96C6 ,:5l") & CJJCJJCJ
else
CJJCJCCC=CJCCCCC(2)
end if
end if:Call UpdateCache(CJJCJJCJ,CJCCCCC(0),CJCCCCC(1),CJJCJCCC,CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing
end if:End Function::Public Function CJJCCJJJ(CJJCJJCJ):CJJCCJJJ = Mid(CJJCJCCJ(CJJCJJCJ), 3):End Function:Public Function CJJCCJJC(CJJCJJCJ):Dim CJJCJCJ, CJJCCCJ, CCJJJCC,Str, CCJJJCJ, CCJJCJJ, CJJCJCC():CCJJJCJ = CJJCCJJJ(CJJCJJCJ):CCJJJCJ = Split(CCJJJCJ, CJCJCCJC("[")):for CJJCJCJ=0 to Ubound(CCJJJCJ):CCJJJCC=CCJJJCJ(CJJCJCJ):str=str & CJCJCCJC("M") & CCJJJCC & CJCJCCJC("M") & CJJCJCJC(CCJJJCC):next:if str<>"" then str=Mid(str,2)
CJJCCJJC=str:End Function:Public Function IsParent(CJCCCJJC, CJCCCJCJ):IsParent=InStr(CJJCJCCJ(CJCCCJCJ) & CJCJCCJC("["), CJCJCCJC("[") & CJCCCJJC & CJCJCCJC("[")) > 0:End Function:::Public Sub WritePosition_From(CJJCJJCJ,CJJCCJCC,CCJCCJJ,CJCCCJCC):Dim Str, CJJCJCJ, CJJCJCC, CCJJCJJ, CCJJCJC:CJJCJJCJ=CLng(CJJCJJCJ):CJJCCJCC = CStr(CJJCCJCC):if CJCCCJCC="" then CJCCCJCC=CJCJCCJC("??,")
If CJJCCJCC = "0" Then
Str = CJJCCCJC(CJJCJJCJ)
ElseIf CJJCCJCC = CStr(CJJCJJCJ) Then
Str = CJJCJCJC(CJJCJJCJ)
Else
CJJCJCC = Split(CJJCCJJC(CJJCJJCJ), CJCJCCJC("M")):CCJJCJJ = UBound(CJJCJCC):CCJJCJC = False:For CJJCJCJ = 0 To CCJJCJJ-2 Step 2:If CJJCJCC(CJJCJCJ) = CJJCCJCC And Not CCJJCJC Then CCJJCJC = True
If CCJJCJC Then
If Str <> "" Then Str = Str & CJCCCJCC
Str = Str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CJJCJCC(CJJCJCJ) & CJCJCCJC("Vm") & CJJCJCC(CJJCJCJ + 1) & CJCJCCJC("k^2m")
End If:Next:Str=Str & CJCCCJCC & CJJCJCC(CCJJCJJ)
End If:Response.Write Str:End Sub:::::Public Function Sql_GetChildren(CJJCJJCJ):dim CCJJJCJ:CCJJJCJ=CJJCJCCJ(CJJCJJCJ):Sql_GetChildren = CJCCJCC & CJCJCCJC("0A2E9ZV[V ,=:<6 ,V") & CCJJJCJ & CJCJCCJC("[TV")
End Function::Private Function CJJCCCJC(CJJCJJCJ):Dim CJJCJCC, CJJCJCJ, CCJJCJJ, Str:CJJCJCC = Split(CJJCCJJC(CJJCJJCJ), CJCJCCJC("M")):CCJJCJJ = UBound(CJJCJCC):For CJJCJCJ = 0 To CCJJCJJ Step 2:If Str <> "" Then Str = Str & CJCJCCJC("??,")
Str = Str & CJJCJCC(CJJCJCJ + 1):Next:CJJCCCJC = Str:End Function::::::::Public Sub ClearCache():Application.Contents.Remove CJCCCJJ
End Sub:Public Sub UpdateCache(CJJCJJCJ,CCJJJCC,CJCCCCJJ,CCJJJCJ,CJCCCCJC):dim CJJCJCJ,CJJCCCJ:CJJCJJCJ=CLng(CJJCJJCJ):CJJCJCJ=CJJCJCJJ(CJJCJJCJ):if CCJJJCC="" and CJCCCCJJ="" and CCJJJCJ="" and CJCCCCJC="" then
if CJJCJCJ>0 then
for CJJCCCJ=1 to 4:CJCCJJJ(CJJCJCJ,CJJCCCJ)=Null:next
end if
else
if CJJCJCJ=0 then
for CJJCCCJ=1 to CJCCJCJ:if CJCCJJJ(CJJCCCJ,1) & ""="" then
CJJCJCJ=CJJCCCJ:exit for
end if:next
end if:if CJJCJCJ=0 then
Call ClearCache
else
CJCCJJJ(CJJCJCJ,0)=CLng(CJJCJJCJ):if CCJJJCC<>"" then CJCCJJJ(CJJCJCJ,1)=CLng(CCJJJCC)
if CJCCCCJJ<>"" then CJCCJJJ(CJJCJCJ,2)=CJCCCCJJ
if CCJJJCJ<>"" then CJCCJJJ(CJJCJCJ,3)=CCJJJCJ
if CJCCCCJC<>"" then CJCCJJJ(CJJCJCJ,4)=CLng(CJCCCCJC)
end if
end if:if CJJCJCJ>0 then
Application.Lock():Application(CJCCCJJ) = CJCCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCCJCJC):Call ConnClose:Response.Write CJCCJCJC:Response.End:End Sub:Private Function CJJJCCJJ():CJJJCCJJ=CJJCCCCJ+1:End Function:Private Function CJJCCCCJ():dim CJCJCCC:set CJCJCCC=CCJJCJ.execute(CJCJCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJCC & CJCJCCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJCCCCJ=CJCJCCC(0):CJCJCCC.Close: Set CJCJCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJJJJJ ="9"
Const CJJJJJJC ="7"
Const CJJJJJCJ ="3"
Const CJJJJJCC ="4"
Const CJJJJCJJ ="8"
Const CJJJJCJC =":"
Const CJJJJCCJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCJJCCC, CCJCJJJ, CCJCJJC, CCJCJCJ, CCJCJCC, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCCCC, CCCJJJJ:Private Function CJJCCCCC():Dim CCCJJJC:CCCJJJC = "??" & CCJCJCC & CJCJCCJC("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJCCCC & CJCJCCJC("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJCJCJ & CJCJCCJC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCJCCJC("k^3mk^DA2?m??")
CJJCCCCC = CCCJJJC:End Function:Private Function CJCJJJJJ():CJCJJJJJ = CJCJCCJC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCJCJCJ & CJCJCCJC("V ,DEJ=6lV") & CJJJJCCJ & CJCJCCJC("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") & CCJCCJJ & CJCJCCJC("VZE9:D]G2=F6Qm")
End Function:Private Function CJCJJJJC():CJCJJJJC = CJCJCCJC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJJJCCJ & CJCJCCJC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCJCCJJ & CJCJCCJC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJCJJJCJ():Dim CCCJJJC, CJJCJCJ:CCCJJJC = CJCJCCJC(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCJCCJJ & CJCJCCJC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJJCJCJ = 1 To PageCount:CCCJJJC = CCCJJJC & CJCJCCJC("k@AE:@? ,G2=F6lV") & CJJCJCJ & CJCJCCJC("V")
If CJJCJCJ = CCJCJCJ Then CCCJJJC = CCCJJJC & CJCJCCJC(" ,D6=64E65")
CCCJJJC = CCCJJJC & CJCJCCJC("m") & CJJCJCJ & CJCJCCJC("k^@AE:@?m"):Next:CCCJJJC = CCCJJJC & CJCJCCJC("k^D6=64Em??"):CJCJJJCJ = CCCJJJC:End Function:Public Sub ShowPage():Dim CJJCJCJ, CCCJJCJ,CCCJJCC,CCCJCJJ:if CCJCJCC>0 then
CCCJJCJ = CJCJCCJC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJCCCCC & CJCJCCJC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CCCJJJJ:Case 1: CCCJCJJ = CJCJJCJC:Case 2: CCCJCJJ = CJCJJCCJ:Case 3: CCCJCJJ = CJCJJCCC:Case 4: CCCJCJJ = CJCJCJJJ:Case 5: CCCJCJJ = CJCJCJJC:Case 6: CCCJCJJ = CJCJCJCJ:Case 7: CCCJCJJ = CJCJCJCC:Case 8: CCCJCJJ = CJCJCCJJ:End Select
End If:CCCJJCC = CJCJCCJC("k^5:Gmk^5:Gm")
end if:if CCCJJJJ>=6 then
Response.Write CCCJCJJ
else
Response.Write CCCJJCJ & CCCJCJJ & CCCJJCC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CCJCJJJ = Server.CreateObject(CJCJCCJC("ps~sq]#64@C5$6E")):CCJCJJJ.PageSize = CCJCCCC:CCJCJJJ.Open CCJCJJC, CCJJCCC, 1:If err then
Response.Write	CJCJCCJC("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 & CJCJCCJC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CCJCJJJ.EOF Then
CCJCJCC = CCJCJJJ.RecordCount:PageCount = CCJCJJJ.PageCount:If CCJCJCJ > PageCount Then CCJCJCJ = PageCount
CCJCJJJ.AbsolutePage = CCJCJCJ
End If:Set Rs = CCJCJJJ:End Function:Public Property Let CCJJCC(CJCCCCCJ):Set CCJJCCC = CJCCCCCJ:End Property:Public Property Let SQL(str):CCJCJJC = str:End Property:Public Property Let Style(CCJJCJJ):If IsNumeric(CCJJCJJ) Then
CCCJJJJ = CInt(CCJJCJJ):If CCCJJJJ < 1 Or CCCJJJJ > 8 Then CCCJJJJ = 1
Else
CCCJJJJ = 1
End If:End Property:Public Property Let PageSize(CCJJCJJ):If IsNumeric(CCJJCJJ) Then
CCJCCCC = CInt(CCJJCJJ):If CCJCCCC < 1 Then CCJCCCC = 10
Else
CCJCCCC = 10
End If:End Property:Public Property Get PageSize():If CCJCJCJ = PageCount Then
PageSize = CCJCJCC - CCJCCCC * (PageCount - 1)
Elseif CCJCJCC=0 then
pagesize=0
else
PageSize = CCJCCCC
end if:End Property:Private Sub Class_Initialize():dim CCCJCJC:CCJCCCC = 10:CCCJJJJ = 1:Set CCJJCCC = CCJJCJ:CCJCJCJ = Trim(Request.QueryString(CJCJCCJC("!286"))):If IsNumeric(CCJCJCJ) Then
CCJCJCJ = CLng(CCJCJCJ):If CCJCJCJ < 1 Then CCJCJCJ = 1
Else
CCJCJCJ = 1
End If:CCJCCCJ = Trim(Request.ServerVariables(CJCJCCJC("&#{"))):CCJCCCJ = Mid(CCJCCCJ, InStrRev(CCJCCCJ, CJCJCCJC("^")) + 1):CCJCCJC = Split(Trim(Request.ServerVariables(CJCJCCJC("""&t#*0$%#x}v"))), CJCJCCJC("U")):CCJCCJJ = Server.HtmlEncode(CJCCCCCC):CCCJCJC=lcase(CCJCCJJ):if instr(CCCJCJC,CJCJCCJC("Tb4:7C2>6"))>0 or instr(CCCJCJC,CJCJCCJC("Tb4D4C:AE"))>0 or instr(CCCJCJC,CJCJCCJC("V"))>0 or instr(CCCJCJC,CJCJCCJC(";2G2D4C:AE"))>0 or instr(CCCJCJC,CJCJCCJC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCJCCJC("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CCJJCJJ):ListNum = CCJCCCC * (CCJCJCJ - 1) + CCJJCJJ:End Function:Private Function CJCCCCCC():Dim CJJCJCJ, str:For CJJCJCJ = 0 To UBound(CCJCCJC):If InStr(LCase(CCJCCJC(CJJCJCJ)), CJCJCCJC("A286l")) = 0 Then str = str & CJCJCCJC("U") & CCJCCJC(CJJCJCJ)
Next:str = Mid(str, 2):If str = "" Then CJCCCCCC = CCJCCCJ & CJCJCCJC("n") & CJCJCCJC("A286l") Else CJCCCCCC = CCJCCCJ & CJCJCCJC("n") & str & CJCJCCJC("UA286l")
End Function:Private Function CJCJJCJC():Dim str:str = CJCJCCJC("???? ,??"):For CJJCJCJ = 1 To PageCount:If CJJCJCJ = CCJCJCJ Then str = str & CJCJCCJC("k3m") & CJJCJCJ & CJCJCCJC("k^3m ,") Else str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CJJCJCJ & CJCJCCJC("Vm") & CJJCJCJ & CJCJCCJC("k^2m ,")
Next:str = str & CJCJCCJC("??"):CJCJJCJC = str:End Function:Private Function CJCJJCCJ():Dim str:If CCJCJCJ > 1 Then
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CJCJCCJC("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJJJJ & CJCJCCJC("k^2m ,")
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 1 & CJCJCCJC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJJCJ & CJCJCCJC("k^2m ,")
Else
str = str & CJJJJJJJ & CJCJCCJC(" ,") & CJJJJJCJ
End If:If CCJCJCJ < PageCount Then
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ + 1 & CJCJCCJC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJJCC & CJCJCCJC("k^2m ,")
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & PageCount & CJCJCCJC("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJCJC & CJCJCCJC("k^2m ,")
Else
str = str & CJJJJJCC & CJCJCCJC(" ,") & CJJJJCJC
End If:str = str & CJCJJJJJ:str = str & CJCJJJJC:CJCJJCCJ = str:End Function:Private Function CJCJJCCC():Dim str, CJJCCJC:CJJCCJC = (CCJCJCJ - 1) \ 10:If CCJCJCJ = 1 Then str = str & CJJJJJJJ & CJCJCCJC(" ,") Else str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CJCJCCJC("`V ,E:E=6lV????Vm") & CJJJJJJJ & CJCJCCJC("k^2m ,")
If CJJCCJC * 10 > 0 Then str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 10 & CJCJCCJC("V ,E:E=6lV??????Vm") & CJJJJJJC & CJCJCCJC("k^2m ,")
For CJJCJCJ = (CJJCCJC * 10 + 1) To (CJJCCJC * 10 + 10):If CJJCJCJ = CCJCJCJ Then str = str & CJCJCCJC("k3m") & CJJCJCJ & CJCJCCJC("k^3m ,") Else str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CJJCJCJ & CJCJCCJC("V ,E:E=6lV??????") & CJJCJCJ & CJCJCCJC("??Vm") & CJJCJCJ & CJCJCCJC("k^2m ,")
If CJJCJCJ = PageCount Then Exit For
Next:If CJJCJCJ < PageCount Then str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CJJCJCJ & CJCJCCJC("V ,E:E=6lV??????Vm") & CJJJJCJJ & CJCJCCJC("k^2m ,")
If CCJCJCJ = PageCount Then str = str & CJJJJCJC Else str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & PageCount & CJCJCCJC("V ,E:E=6lV????Vm") & CJJJJCJC & CJCJCCJC("k^2m")
CJCJJCCC = str:End Function:Private Function CJCJCJJJ():Dim str, CJCJJCJ, CCCJCCJ, CJJCJCJ:If CCJCJCJ > 4 Then str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CJCJCCJC("`Vm,`.k^2m ,]]]")
If CCJCJCJ < PageCount - 3 Then CCCJCCJ = CCJCJCJ + 3 Else CCCJCCJ = PageCount
For CJJCJCJ = CCJCJCJ - 3 To CCCJCCJ:If CJJCJCJ >= 1 Then
If CJJCJCJ = CCJCJCJ Then str = str & CJCJCCJC(" ,k3m,") & CJJCJCJ & CJCJCCJC(".k^3m") Else str = str & CJCJCCJC(" ,k2 ,9C67lV") & CCJCCJJ & CJJCJCJ & CJCJCCJC("Vm,") & CJJCJCJ & CJCJCCJC(".k^2m")
End If:Next:If CCJCJCJ < PageCount - 3 Then str = str & CJCJCCJC(" ,]]] ,k2 ,9C67lV") & CCJCCJJ & PageCount & CJCJCCJC("Vm,") & PageCount & CJCJCCJC(".k^2m")
CJCJCJJJ = str:End Function:Private Function CJCJCJJC():Dim str:If CCJCJCJ > 1 Then
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CJCJCCJC("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 1 & CJCJCCJC("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJCJCCJC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CCJCJCJ < PageCount Then
str = str & CJCJCCJC(" ,k2 ,9C67lV") & CCJCCJJ & CCJCJCJ + 1 & CJCJCCJC("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & PageCount & CJCJCCJC("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJCJCCJC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJCJJJCJ:CJCJCJJC = str:End Function:Private Function CJCJCJCJ():Dim str:if CCJCJCJ>=2 then
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 1 & CJCJCCJC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 1 & CJCJCCJC("V ,52E2\C@=6lV3FEE@?Vm") & CCJCJCJ-1 & CJCJCCJC("k^2m")
end if:str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ & CJCJCCJC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCJCJCJ & CJCJCCJC("k^2m")
if pagecount>CCJCJCJ then
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ + 1 & CJCJCCJC("V ,52E2\C@=6lV3FEE@?Vm") & CCJCJCJ+1 & CJCJCCJC("k^2m")
str = str & CJCJCCJC("k2 ,9C67lV") & CCJCCJJ & CCJCJCJ + 1 & CJCJCCJC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJCJCJCJ=str:End Function:Private Function CJCJCJCC():Dim str:str=CJCJCCJC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CCJCJCJ>=2 then
str = str & CJCJCCJC("k=:mk2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 1 & CJCJCCJC("VmU=2BF@jk^2mk^=:m")
str = str & CJCJCCJC("k=:mk2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 1 & CJCJCCJC("Vm") & CCJCJCJ-1 & CJCJCCJC("k^2mk^=:m")
end if:str = str & CJCJCCJC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCJCCJJ & CCJCJCJ & CJCJCCJC("Vm") & CCJCJCJ & CJCJCCJC("k^2mk^=:m")
if pagecount>CCJCJCJ then
str = str & CJCJCCJC("k=:mk2 ,9C67lV") & CCJCCJJ & CCJCJCJ + 1 & CJCJCCJC("Vm") & CCJCJCJ+1 & CJCJCCJC("k^2mk^=:m")
str = str & CJCJCCJC("k=:mk2 ,9C67lV") & CCJCCJJ & CCJCJCJ + 1 & CJCJCCJC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJCCJC("k^F=m"):CJCJCJCC=str:End Function:Private Function CJCJCCJJ():Dim str:str=CJCJCCJC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CCJCJCJ>=2 then
str = str & CJCJCCJC("k=:mk2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 1 & CJCJCCJC("VmU=2BF@jk^2mk^=:m")
str = str & CJCJCCJC("k=:mk2 ,9C67lV") & CCJCCJJ & CCJCJCJ - 1 & CJCJCCJC("Vm") & CCJCJCJ-1 & CJCJCCJC("k^2mk^=:m")
end if:str = str & CJCJCCJC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCJCCJJ & CCJCJCJ & CJCJCCJC("Vm") & CCJCJCJ & CJCJCCJC("k^2mk^=:m")
if pagecount>CCJCJCJ then
str = str & CJCJCCJC("k=:mk2 ,9C67lV") & CCJCCJJ & CCJCJCJ + 1 & CJCJCCJC("Vm") & CCJCJCJ+1 & CJCJCCJC("k^2mk^=:m")
str = str & CJCJCCJC("k=:mk2 ,9C67lV") & CCJCCJJ & CCJCJCJ + 1 & CJCJCCJC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJCCJC("k^F=m"):CJCJCCJJ=str:End Function:End Class::Call CheckRight(5):::dim CCCJCCC,CCCCJJJ,CCCCJJC,CJJCCJC,CCJJCJJ,CCCCJCJ,CCCCJCC,CCCCCJJ:CCCJCCC=Request.QueryString(CJCJCCJC("56AE")):CCCCJJJ=Request.QueryString(CJCJCCJC("!@DE")):CCCCJJC=Request.QueryString(CJCJCCJC("D")):CJJCCJC=Request.QueryString(CJCJCCJC("A")):CCCCJCC=Request.QueryString(CJCJCCJC("%96%JA6")):CCCCCJJ=CJJJCJJJ(Request.QueryString(CJCJCCJC("pFE9@C"))):CCJJCJJ=CJJJCJJJ(Request.QueryString(CJCJCCJC("}F>"))):CCCCJCJ=CJJJCJJJ(Request.QueryString(CJCJCCJC("}:4<"))):dim CJCCJJJ:set CJCCJJJ=new jtree:CJCCJJJ.table=CJCJCCJC(">6>36C0EJA6"):if not CJJJCJCC(CCCJCCC) then CCCJCCC=CCCJCJ
if not CJCCJJJ.IsParent(CCCJCJ,CCCJCCC) then Call RedirectMessage(CJCJCCJC("????????????????M????????,????????????????????????,"))
Response.Write(vbCrLf):Response.Write(CJCJCCJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJCCJC("k9E>=m") & vbCrLf):Response.Write(CJCJCCJC("k9625m") & vbCrLf):Response.Write(CJCJCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCCJC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCJCCJC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJCJCCJC("k^9625m") & vbCrLf):Response.Write(CJCJCCJC("k3@5Jm") & vbCrLf):Response.Write(CJCJCCJC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJCJCCJC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJCCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCCJC(" ,kE9 ,C@HDA2?lQbQm?,?????,k^E9m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4@=DA2?lQ``Qm")):Call CJCCJJJ.WritePosition_From(CCCJCCC,CCCJCJ,CJCJCCJC("n56AEl"),""):Response.Write(CJCJCCJC("k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4@=DA2?lQ``QmkD6=64E ,?2>6lQs6AEQ ,:5lQs6AEQ ,@?492?86lQ;2G2D4C:AEi7@C>`]A@DE]G2=F6lVVj7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQ")):Response.Write CCCJCCC:Response.Write(CJCJCCJC("Qm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,")):Call CJCCJJJ.ShowChild_Select(CCCJCCC,0):Response.Write(vbCrLf):Response.Write(CJCJCCJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQ}F>Q ,D:K6lQ`aQ ,G2=F6lQ")):Response.Write CCJJCJJ:Response.Write(CJCJCCJC("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`aQ ,G2=F6lQ")):Response.Write CCCCJCJ:Response.Write(CJCJCCJC("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5mkD6=64E ,?2>6lQ%96%JA6Q ,:5lQ%96%JA6Qm") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CCCCJCC="0",CJCJCCJC("D6=64E65"),""):Response.Write(CJCJCCJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CCCCJCC="1",CJCJCCJC("D6=64E65"),""):Response.Write(CJCJCCJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write IIf(CCCCJCC="2",CJCJCCJC("D6=64E65"),""):Response.Write(CJCJCCJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CCCCJCC="3",CJCJCCJC("D6=64E65"),""):Response.Write(CJCJCCJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQcQ ,")):Response.Write IIf(CCCCJCC="4",CJCJCCJC("D6=64E65"),""):Response.Write(CJCJCCJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ=236=Qm????@??,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5mk:?AFE ,?2>6lQpFE9@CQ ,EJA6lQE6IEQ ,4=2DDlQ:AE`Q ,:5lQpFE9@CQ ,D:K6lQgQ ,G2=F6lQ")):Response.Write CCCCCJJ:Response.Write(CJCJCCJC("Q ,E:E=6lQ????????@??????Q ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5mkD6=64E ,?2>6lQ$Q ,:5lQ$Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQEJA6Q ,")):Response.Write IIf(CCCCJJC=CJCJCCJC("EJA6"),CJCJCCJC("D6=64E65"),""):Response.Write(CJCJCCJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQ52E6E:>6Q ,")):Response.Write IIf(CCCCJJC=CJCJCCJC("52E6E:>6"),CJCJCCJC("D6=64E65"),""):Response.Write(CJCJCCJC("m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5mkD6=64E ,?2>6lQ!Q ,:5lQ!Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,k@AE:@? ,G2=F6lQQm??,??,??,??,k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJC(" ,")):for CJJCJCJ=10 to 50 step 5:response.write CJCJCCJC("k@AE:@? ,G2=F6lV") & CJJCJCJ & CJCJCCJC("V") & IIf(CJJCCJC=cstr(CJJCJCJ),CJCJCCJC(" ,D6=64E65"),"") & CJCJCCJC("m") & CJJCJCJ & CJCJCCJC("??k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCJCCJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCCJC(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJCJCCJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJCJCCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ????????????Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,^m") & vbCrLf):Response.Write(CJCJCCJC(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Q ,^m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCCJC("k^7@C>m") & vbCrLf):Response.Write(CJCJCCJC("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf):Response.Write(CJCJCCJC("7@C>`]}F>]7@4FDWXj") & vbCrLf):Response.Write(CJCJCCJC("k^D4C:AEm") & vbCrLf)::if CCCCJJJ="1" then
sql=CJCJCCJC("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[4@?E6?E[52E6E:>6[2FE9@C?2>6[EJA6[:A ,7C@> ,G0C6>2C< ,H96C6 ,") & CJCCJJJ.Sql_GetChildren(CCCJCCC)
if CCJJCJJ<>"" then sql=sql & CJCJCCJC(" ,2?5 ,?F>36ClV") & CCJJCJJ & CJCJCCJC("V")
if CCCCJCJ<>"" then sql=sql & CJCJCCJC(" ,2?5 ,?:4<?2>6lV") & CCCCJCJ & CJCJCCJC("V")
if CJJJCJCC(CCCCJCC) then sql=sql & CJCJCCJC(" ,2?5 ,EJA6l") & CCCCJCC
if CCCCCJJ<>"" then sql=sql & CJCJCCJC(" ,2?5 ,pFE9@C?2>6lV") & CCCCCJJ & CJCJCCJC("V")
if CCCCJJC="" then sql=sql & CJCJCCJC(" ,@C56C ,3J ,:5 ,56D4") else sql=sql & CJCJCCJC(" ,@C56C ,3J ,") & CCCCJJC
dim CCCCCJC:set CCCCCJC=new splitpage:with CCCCCJC:.sql=sql:.pagesize=IIf(CJJJCJCC(CJJCCJC),CJJCCJC,20):.style=2:end with:set rs=CCCCCJC.rs:if rs.eof then
Call ShowMessage(CJCJCCJC("??????????????????????????,"))
else
Response.Write(vbCrLf):Response.Write(CJCJCCJC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJCJCCJC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJCCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCCJC(" ,kE9m??k^E9m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE9m??@????,??????`d??????,k^E9m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE9m,????.U?3DAj????@k^E9m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE9m????^x!k^E9m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJC(" ,")):dim CJJCJCJ:for CJJCJCJ=1 to CCCCCJC.pagesize:Response.Write(vbCrLf):Response.Write(CJCJCCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCCCJC.listnum(CJJCJCJ):Response.Write(CJCJCCJC("k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5m")):Response.Write rs(2):Response.Write(CJCJCCJC("k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5mk2 ,9C67lQ;2G2D4C:AEi@A6?$EF56?Ex?7@(:?W")):Response.Write rs(1):Response.Write(CJCJCCJC("XQ ,E:E=6lQ????????????Qm")):Response.Write rs(3):Response.Write(CJCJCCJC("k^2mk^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5m")):Response.Write CJJJCJCJ(rs(4),30):Response.Write(CJCJCCJC("k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5m")):select case rs(7):case 0 : response.write CJCJCCJC(",????."):case 1 : response.write CJCJCCJC(",????."):case 2 : response.write CJCJCCJC(",????."):case 3 : response.write CJCJCCJC(",????."):case 4 : response.write CJCJCCJC(",????."):end select:Response.Write(CJCJCCJC("U?3DAj") & rs(6)):Response.Write(vbCrLf):Response.Write(CJCJCCJC(" ,k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4=2DDlQ7E`_Qm")):Response.Write formatdatetime(rs(5),2) & CJCJCCJC("^") & rs(8):Response.Write(CJCJCCJC("k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCJCCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCCJC(" ,kE5 ,4@=DA2?lQeQm")):call CCCCCJC.showpage:Response.Write(CJCJCCJC("k^E5m") & vbCrLf):Response.Write(CJCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCCJC("k^7@C>m") & vbCrLf)
End If:set CCCCCJC=nothing
else
response.write CJCJCCJC("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJCJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJC("kD4C:AEm") & vbCrLf):Response.Write(CJCJCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCCJC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCJCCJC("NXj") & vbCrLf):Response.Write(CJCJCCJC("7F?4E:@? ,@A6?$EF56?Ex?7@(:?W:5XL") & vbCrLf):Response.Write(CJCJCCJC(" ,@A6?WVDEF56?E:?7@]2DAn:5lVZ:5[V$EF56?Ex?7@V[VH:5E9ldd_[96:89Elb__[D4C@==32CDlJ6DVXj") & vbCrLf):Response.Write(CJCJCCJC("N") & vbCrLf):Response.Write(CJCJCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJJJ=nothing:set CJJJCCJC=nothing:set CJJJCCCJ=nothing:set CJJJCCCC=nothing:CCJCJC.Close:Set CCJCJC=Nothing:rs.Close:Set rs=Nothing:CCJJCJ.Close:Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCCJC(ByVal CJCJCJC)
Dim CCCCCCJ, CJJCJCJ, CJCJJCJ
CJCJCJC = Replace(CJCJCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCJ = 1 To Len(CJCJCJC)
If CJJCJCJ <> CJCJJCJ Then
CCCCCCJ = AscW(Mid(CJCJCJC, CJJCJCJ, 1))
If CCCCCCJ >= 33 And CCCCCCJ <= 79 Then
CJCJCCJC = CJCJCCJC & Chr(CCCCCCJ + 47)
ElseIf CCCCCCJ >= 80 And CCCCCCJ <= 126 Then
CJCJCCJC = CJCJCCJC & Chr(CCCCCCJ - 47)
Else
CJCJJCJ = CJJCJCJ + 1
If Mid(CJCJCJC, CJCJJCJ, 1) = Chr(64) Then CJCJCCJC = CJCJCCJC & ChrW(CCCCCCJ + 5) Else CJCJCCJC = CJCJCCJC & Mid(CJCJCJC, CJJCJCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de