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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de