Edit D:\xinhaisoft\crisis_new\admin\system\log.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCJ, CJJCCC,rs, CJCJJC, sql:Set CJJCCJ = server.CreateObject(CJJCCJJC("ps~sq]r@??64E:@?")):CJJCCJ.open Application(CJJCCJJC("r@??64E:@?$EC:?8")):Set CJJCCC=CJJCCJ::Dim CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC:Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:Dim CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC:CCCCJC=Trim(Request.Cookies(CJJCCJJC("!$*|t|qt#"))):if CCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCC>0 then
sql=CJJCCJJC("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") & CJCCJJ & CJJCCJJC("V ,2?5 ,:5l") & CJCJCC
set rs=CJJCCJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJCCJC=rs(2) & "":CJCCCJ=rs(3):CJCCCC=rs(5):CCJJJJ=rs(6):CCJJJC=rs(9):CCJJCJ=rs(15):CCJCJJ=rs(0):CCCJCC=rs(1):CCCJCJ=rs(11) & "":CCJCJC=rs(10) & "":CCJJCC=rs(12):CCJCCJ=rs(14):CCJCCC=rs(13):CCCJJJ=rs(7) & "":CCCJJC=rs(4):CCCCJJ=rs(8):if isnull(CCJJCJ) then CCJJCJ=0
if isnull(CCJJJC) or CCJJJC=0 then CCJJJC=CJCCCJ
if isnull(CCCJJC) then CCCJJC=0
if isnull(CJCCCC) then CJCCCC=0
if instr(CJJCCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJJ)>0 then Call RedirectMessage(CJJCCJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJCC,CJCCJJ)
End IF
end if:Sub CheckRight(CJJCCJCJ):dim CCCCCJ,CCCCCC:if CJCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCJJC("??????????????,????????????,"))
elseIf not CCCCJJJ(CJJCCJCJ) then
Call RedirectMessage(CJJCCJJC("????W") & CJJCCJCJ & CJJCCJJC("X????????,????????????????????,"))
end if:End Sub:Function CCCCJJJ(CJJCCJCJ):dim CCCCCJ,CCCCCC:CCCCCC=split(CJJCCJCJ,CJJCCJJC("[")):CCCCJJJ=False:for CCCCCJ=0 to ubound(CCCCCC):If Mid(CJCCJC,CCCCCC(CCCCCJ),1)="1" then
CCCCJJJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCCJJC("!$*|t|qt#"))="":CJCJCC=0:CCJJJJ=0:CJCCJJ=Empty:CJCCCC=0:CCJJCJ=0:CCJJJC=0:CJCCCJ=0:CCJCJJ=False:CCCJCC=False:CCCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJJ,CJJJJJC,CCCCCJ,CJJJJCJ,CJJJJCC:CJJJJJJ=split(CCCCJC,CJJCCJJC("]")):if ubound(CJJJJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJJ(0)) or len(CJJJJJJ(1))<>32 or len(CJJJJJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJJC=CJJJJJJ(1):for CCCCCJ=1 to len(CJJJJJC):CJJJJCJ=mid(CJJJJJC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJJC=CJJJJJJ(2):if CJJJJCC<>mid(CJJJJJC,6,7) then
Call ClearMemberCookie
else
CJJJJCJ=mid(CJJJJJC,18,10)/2:if CJJJJCJ<DateDiff(CJJCCJJC("D"), CJJCCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCC=Clng(CJJJJJJ(0)):CJCCJJ=CJJJJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCCC,CJJCCJCC):dim CCCCCJ,CJJJJCJ,CJJJJCC:for CCCCCJ=1 to len(CJJCCJCC):CJJJJCJ=mid(CJJCCJCC,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CJJCJCCC & CJJCCJJC("]") & CJJCCJCC & CJJCCJJC("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCJJC("D"), CJJCCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCJJC("!$*|t|qt#"))=CJJJJCC:End Sub::Function CCCCJJC(CJJCCCJJ):Dim str,CJJJCJC:str = Trim(CJJCCCJJ):If IsNull(str) Or str = "" Then
CCCCJJC = ""
else
str=Replace(str, CJJCCJJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCCJJC("k:7C2>6"), CJJCCJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCJJC("kD4C:AE"), CJJCCJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJCJC=new RegExp:CJJJCJC.Pattern=CJJCCJJC("@?W,2\K.ZXl"):CJJJCJC.IgnoreCase = True:CJJJCJC.Global=True:str=CJJJCJC.Replace(str,CJJCCJJC("@?S`U6BF2=Dj")):set CJJJCJC=nothing:CCCCJJC=str
End If:End Function:Function IIf(CJJCCCJC, CJJCCCCJ, CJJCCCCC):if isnull(CJJCCCJC) or isempty(CJJCCCJC) then
IIf = CJJCCCCC
elseif CJJCCCJC Then
IIf = CJJCCCCJ
Else
IIf = CJJCCCCC
end if:End Function:Const CCCJJJJ="^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 CCCCCJ,CJJJJCJ,CJJJCCJ:if isarray(str) then
on error resume next:CCCCCJ=ubound(str,2):CJJJCCJ=err.number:err.clear:on error goto 0:if CJJJCCJ<>0 then
for CCCCCJ=0 to ubound(str):if CCCCCJ>0 then response.Write CJJCCJJC("k3C ,^m")
response.Write CCCCCJ & CJJCCJJC("i ,") & str(CCCCCJ):next
else
response.Write CJJCCJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCJ=0 to ubound(str,2):response.Write CJJCCJJC("kE9 ,2=:8?lV=67EVm") & CCCCCJ & CJJCCJJC("k^E9m")
next:response.Write CJJCCJJC("k^ECm"):for CCCCCJ=0 to ubound(str):response.Write CJJCCJJC("kECmkE9m") & CCCCCJ & CJJCCJJC("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CJJCCJJC("kE5m") & str(CCCCCJ,CJJJJCJ) & CJJCCJJC("k^E5m"):next:response.Write CJJCCJJC("k^ECm"):next:response.Write CJJCCJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCCJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCCJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCCJCC():Dim CJJJCCC, CJJCJJJ:CJJCJJJ = Request.ServerVariables(CJJCCJJC("!p%w0x}u~")):CJJJCCC = Request.ServerVariables(CJJCCJJC("""&t#*0$%#x}v")):If CJJJCCC <> Empty Then
if instr(lcase(CJJJCCC),CJJCCJJC("Tb4:7C2>6"))>0 or instr(lcase(CJJJCCC),CJJCCJJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCCJJC("????????,????????????????????????,??,??,"))
CJJCJJJ = CJJCJJJ & CJJCCJJC("n") & CJJJCCC
end if:CCCCJCC = CJJCJJJ:End Function:Sub SetHttpOnlyCookie(CJCJJJJJ,CJCJJJJC):dim CJJJJJJ:CJJJJJJ=CJCJJJJJ & CJJCCJJC("l") & CJCJJJJC & CJJCCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCJJC("$6E\r@@<:6"),CJJJJJJ):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJCCJJC("!$*"))(CJJCCJJC("&#{")) = CCCCJCC:End Sub::Function CCCCCJJ(ByVal Str, ByVal StrLen):Dim CJJCJJC, CJJCJCJ, CJJCJCC, CCCCCJ:if isnull(str) then
CCCCCJJ=""
else
CJJCJJC = Len(Str):CJJCJCJ = 0:For CCCCCJ = 1 To CJJCJJC:CJJCJCC = AscW(Mid(Str, CCCCCJ, 1)):If CJJCJCC < 0 Or CJJCJCC > 255 Then CJJCJCJ = CJJCJCJ + 2 Else CJJCJCJ = CJJCJCJ + 1
If CJJCJCJ >= StrLen Then
CCCCCJJ = Left(Str, CCCCCJ) & CJJCCJJC("]]]"):Exit For
Else
CCCCCJJ = Str
End If:Next
end if:End Function::::Function CCCCCJC(CJJJCCJ):if isnull(CJJJCCJ) or trim(CJJJCCJ)="" or not isnumeric(CJJJCCJ) then
CCCCCJC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CJJCCJJC("/-5ZS"):CJJJCJC.IgnoreCase = True:CCCCCJC = CJJJCJC.test(CJJJCCJ):set CJJJCJC=nothing
end if:End Function:Function CCCCCCJ(CJCJJJCJ):dim CJJCCJJ,CJJCCJC:CJJCCJJ=CJJCCJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJJCJ & CJJCCJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCCJC=CJJCCJ.execute(CJJCCJJ):CCCCCCJ = CJJCCJC(0):if isnull(CCCCCCJ) then CCCCCCJ=1
CJJCCJC.close : set CJJCCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:CJJCCJC.close : set CJJCCJC=nothing:CJCJJC.Close : Set CJCJJC=Nothing:rs.Close : Set rs=Nothing:CJJJJJCJ.Close : Set CJJJJJCJ = Nothing:CJJCCJ.Close : Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCJJC("!$*0|6DD286"),server.URLEncode(CJCJJJCC)):Response.Redirect CJJCCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::Function CJJJJJCC(CJCJJCJJ):CJJJJJCC=CJCJJCJJ:End Function:::::::::::::::::::::::::Sub ClearCache(CJCJJCJC):Application.Contents.Remove CJCJJCJC
End Sub::Const CCCJJJC ="9"
Const CCCJJCJ ="7"
Const CCCJJCC ="3"
Const CCCJCJJ ="4"
Const CCCJCJC ="8"
Const CCCJCCJ =":"
Const CCCJCCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJJCCCC, CJCJJJJ, CJCJJJC, CJCJJCJ, CJCJJCC, CJJCJJJ, CJCJCJJ, CJCJCJC, CJCJCCJ, CJCJCCC:Private Function CJJJJCJJ():Dim CJCCJJJ:CJCCJJJ = "??" & CJCJJCC & CJJCCJJC("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJCCJ & CJJCCJJC("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJJCJ & CJJCCJJC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCCJJC("k^3mk^DA2?m??")
CJJJJCJJ = CJCCJJJ:End Function:Private Function CJJJJCJC():CJJJJCJC = CJJCCJJC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCJJCJ & CJJCCJJC("V ,DEJ=6lV") & CCCJCCC & CJJCCJJC("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") & CJJCJJJ & CJJCCJJC("VZE9:D]G2=F6Qm")
End Function:Private Function CJJJJCCJ():CJJJJCCJ = CJJCCJJC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCJCCC & CJJCCJJC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJJCJJJ & CJJCCJJC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJJJCCC():Dim CJCCJJJ, CCCCCJ:CJCCJJJ = CJJCCJJC(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJJCJJJ & CJJCCJJC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCCCCJ = 1 To PageCount:CJCCJJJ = CJCCJJJ & CJJCCJJC("k@AE:@? ,G2=F6lV") & CCCCCJ & CJJCCJJC("V")
If CCCCCJ = CJCJJCJ Then CJCCJJJ = CJCCJJJ & CJJCCJJC(" ,D6=64E65")
CJCCJJJ = CJCCJJJ & CJJCCJJC("m") & CCCCCJ & CJJCCJJC("k^@AE:@?m"):Next:CJCCJJJ = CJCCJJJ & CJJCCJJC("k^D6=64Em??"):CJJJJCCC = CJCCJJJ:End Function:Public Sub ShowPage():Dim CCCCCJ, CJCCJJC,CJCCJCJ,CJCCJCC:if CJCJJCC>0 then
CJCCJJC = CJJCCJJC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJJJCJJ & CJJCCJJC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJCJCCC:Case 1: CJCCJCC = CJJJCJCJ:Case 2: CJCCJCC = CJJJCJCC:Case 3: CJCCJCC = CJJJCCJJ:Case 4: CJCCJCC = CJJJCCJC:Case 5: CJCCJCC = CJJJCCCJ:Case 6: CJCCJCC = CJJJCCCC:Case 7: CJCCJCC = CJJCJJJJ:Case 8: CJCCJCC = CJJCJJJC:End Select
End If:CJCCJCJ = CJJCCJJC("k^5:Gmk^5:Gm")
end if:if CJCJCCC>=6 then
Response.Write CJCCJCC
else
Response.Write CJCCJJC & CJCCJCC & CJCCJCJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJJJJ = Server.CreateObject(CJJCCJJC("ps~sq]#64@C5$6E")):CJCJJJJ.PageSize = CJCJCCJ:CJCJJJJ.Open CJCJJJC, CJJCCCC, 1:If err then
Response.Write	CJJCCJJC("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 & CJJCCJJC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCJJJJ.EOF Then
CJCJJCC = CJCJJJJ.RecordCount:PageCount = CJCJJJJ.PageCount:If CJCJJCJ > PageCount Then CJCJJCJ = PageCount
CJCJJJJ.AbsolutePage = CJCJJCJ
End If:Set Rs = CJCJJJJ:End Function:Public Property Let CJJCCC(CJCJJCCJ):Set CJJCCCC = CJCJJCCJ:End Property:Public Property Let SQL(str):CJCJJJC = str:End Property:Public Property Let Style(CJJCCJCJ):If IsNumeric(CJJCCJCJ) Then
CJCJCCC = CInt(CJJCCJCJ):If CJCJCCC < 1 Or CJCJCCC > 8 Then CJCJCCC = 1
Else
CJCJCCC = 1
End If:End Property:Public Property Let PageSize(CJJCCJCJ):If IsNumeric(CJJCCJCJ) Then
CJCJCCJ = CInt(CJJCCJCJ):If CJCJCCJ < 1 Then CJCJCCJ = 10
Else
CJCJCCJ = 10
End If:End Property:Public Property Get PageSize():If CJCJJCJ = PageCount Then
PageSize = CJCJJCC - CJCJCCJ * (PageCount - 1)
Elseif CJCJJCC=0 then
pagesize=0
else
PageSize = CJCJCCJ
end if:End Property:Private Sub Class_Initialize():dim CJCCCJJ:CJCJCCJ = 10:CJCJCCC = 1:Set CJJCCCC = CJJCCJ:CJCJJCJ = Trim(Request.QueryString(CJJCCJJC("!286"))):If IsNumeric(CJCJJCJ) Then
CJCJJCJ = CLng(CJCJJCJ):If CJCJJCJ < 1 Then CJCJJCJ = 1
Else
CJCJJCJ = 1
End If:CJCJCJC = Trim(Request.ServerVariables(CJJCCJJC("&#{"))):CJCJCJC = Mid(CJCJCJC, InStrRev(CJCJCJC, CJJCCJJC("^")) + 1):CJCJCJJ = Split(Trim(Request.ServerVariables(CJJCCJJC("""&t#*0$%#x}v"))), CJJCCJJC("U")):CJJCJJJ = Server.HtmlEncode(CJCJJCCC):CJCCCJJ=lcase(CJJCJJJ):if instr(CJCCCJJ,CJJCCJJC("Tb4:7C2>6"))>0 or instr(CJCCCJJ,CJJCCJJC("Tb4D4C:AE"))>0 or instr(CJCCCJJ,CJJCCJJC("V"))>0 or instr(CJCCCJJ,CJJCCJJC(";2G2D4C:AE"))>0 or instr(CJCCCJJ,CJJCCJJC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCCJJC("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CJJCCJCJ):ListNum = CJCJCCJ * (CJCJJCJ - 1) + CJJCCJCJ:End Function:Private Function CJCJJCCC():Dim CCCCCJ, str:For CCCCCJ = 0 To UBound(CJCJCJJ):If InStr(LCase(CJCJCJJ(CCCCCJ)), CJJCCJJC("A286l")) = 0 Then str = str & CJJCCJJC("U") & CJCJCJJ(CCCCCJ)
Next:str = Mid(str, 2):If str = "" Then CJCJJCCC = CJCJCJC & CJJCCJJC("n") & CJJCCJJC("A286l") Else CJCJJCCC = CJCJCJC & CJJCCJJC("n") & str & CJJCCJJC("UA286l")
End Function:Private Function CJJJCJCJ():Dim str:str = CJJCCJJC("???? ,??"):For CCCCCJ = 1 To PageCount:If CCCCCJ = CJCJJCJ Then str = str & CJJCCJJC("k3m") & CCCCCJ & CJJCCJJC("k^3m ,") Else str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CCCCCJ & CJJCCJJC("Vm") & CCCCCJ & CJJCCJJC("k^2m ,")
Next:str = str & CJJCCJJC("??"):CJJJCJCJ = str:End Function:Private Function CJJJCJCC():Dim str:If CJCJJCJ > 1 Then
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJJCCJJC("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJJJC & CJJCCJJC("k^2m ,")
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 1 & CJJCCJJC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJJCC & CJJCCJJC("k^2m ,")
Else
str = str & CCCJJJC & CJJCCJJC(" ,") & CCCJJCC
End If:If CJCJJCJ < PageCount Then
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ + 1 & CJJCCJJC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCJJ & CJJCCJJC("k^2m ,")
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & PageCount & CJJCCJJC("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCJ & CJJCCJJC("k^2m ,")
Else
str = str & CCCJCJJ & CJJCCJJC(" ,") & CCCJCCJ
End If:str = str & CJJJJCJC:str = str & CJJJJCCJ:CJJJCJCC = str:End Function:Private Function CJJJCCJJ():Dim str, CJJJJJC:CJJJJJC = (CJCJJCJ - 1) \ 10:If CJCJJCJ = 1 Then str = str & CCCJJJC & CJJCCJJC(" ,") Else str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJJCCJJC("`V ,E:E=6lV????Vm") & CCCJJJC & CJJCCJJC("k^2m ,")
If CJJJJJC * 10 > 0 Then str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 10 & CJJCCJJC("V ,E:E=6lV??????Vm") & CCCJJCJ & CJJCCJJC("k^2m ,")
For CCCCCJ = (CJJJJJC * 10 + 1) To (CJJJJJC * 10 + 10):If CCCCCJ = CJCJJCJ Then str = str & CJJCCJJC("k3m") & CCCCCJ & CJJCCJJC("k^3m ,") Else str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CCCCCJ & CJJCCJJC("V ,E:E=6lV??????") & CCCCCJ & CJJCCJJC("??Vm") & CCCCCJ & CJJCCJJC("k^2m ,")
If CCCCCJ = PageCount Then Exit For
Next:If CCCCCJ < PageCount Then str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CCCCCJ & CJJCCJJC("V ,E:E=6lV??????Vm") & CCCJCJC & CJJCCJJC("k^2m ,")
If CJCJJCJ = PageCount Then str = str & CCCJCCJ Else str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & PageCount & CJJCCJJC("V ,E:E=6lV????Vm") & CCCJCCJ & CJJCCJJC("k^2m")
CJJJCCJJ = str:End Function:Private Function CJJJCCJC():Dim str, CJJJCCJ, CJCCCJC, CCCCCJ:If CJCJJCJ > 4 Then str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJJCCJJC("`Vm,`.k^2m ,]]]")
If CJCJJCJ < PageCount - 3 Then CJCCCJC = CJCJJCJ + 3 Else CJCCCJC = PageCount
For CCCCCJ = CJCJJCJ - 3 To CJCCCJC:If CCCCCJ >= 1 Then
If CCCCCJ = CJCJJCJ Then str = str & CJJCCJJC(" ,k3m,") & CCCCCJ & CJJCCJJC(".k^3m") Else str = str & CJJCCJJC(" ,k2 ,9C67lV") & CJJCJJJ & CCCCCJ & CJJCCJJC("Vm,") & CCCCCJ & CJJCCJJC(".k^2m")
End If:Next:If CJCJJCJ < PageCount - 3 Then str = str & CJJCCJJC(" ,]]] ,k2 ,9C67lV") & CJJCJJJ & PageCount & CJJCCJJC("Vm,") & PageCount & CJJCCJJC(".k^2m")
CJJJCCJC = str:End Function:Private Function CJJJCCCJ():Dim str:If CJCJJCJ > 1 Then
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJJCCJJC("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 1 & CJJCCJJC("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJJCCJJC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJCJJCJ < PageCount Then
str = str & CJJCCJJC(" ,k2 ,9C67lV") & CJJCJJJ & CJCJJCJ + 1 & CJJCCJJC("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & PageCount & CJJCCJJC("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJJCCJJC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJJJJCCC:CJJJCCCJ = str:End Function:Private Function CJJJCCCC():Dim str:if CJCJJCJ>=2 then
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 1 & CJJCCJJC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 1 & CJJCCJJC("V ,52E2\C@=6lV3FEE@?Vm") & CJCJJCJ-1 & CJJCCJJC("k^2m")
end if:str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ & CJJCCJJC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCJJCJ & CJJCCJJC("k^2m")
if pagecount>CJCJJCJ then
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ + 1 & CJJCCJJC("V ,52E2\C@=6lV3FEE@?Vm") & CJCJJCJ+1 & CJJCCJJC("k^2m")
str = str & CJJCCJJC("k2 ,9C67lV") & CJJCJJJ & CJCJJCJ + 1 & CJJCCJJC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJJCCCC=str:End Function:Private Function CJJCJJJJ():Dim str:str=CJJCCJJC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCJJCJ>=2 then
str = str & CJJCCJJC("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 1 & CJJCCJJC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCJJC("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 1 & CJJCCJJC("Vm") & CJCJJCJ-1 & CJJCCJJC("k^2mk^=:m")
end if:str = str & CJJCCJJC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJJCJJJ & CJCJJCJ & CJJCCJJC("Vm") & CJCJJCJ & CJJCCJJC("k^2mk^=:m")
if pagecount>CJCJJCJ then
str = str & CJJCCJJC("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCJ + 1 & CJJCCJJC("Vm") & CJCJJCJ+1 & CJJCCJJC("k^2mk^=:m")
str = str & CJJCCJJC("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCJ + 1 & CJJCCJJC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCJJC("k^F=m"):CJJCJJJJ=str:End Function:Private Function CJJCJJJC():Dim str:str=CJJCCJJC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCJJCJ>=2 then
str = str & CJJCCJJC("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 1 & CJJCCJJC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCJJC("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCJ - 1 & CJJCCJJC("Vm") & CJCJJCJ-1 & CJJCCJJC("k^2mk^=:m")
end if:str = str & CJJCCJJC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJJCJJJ & CJCJJCJ & CJJCCJJC("Vm") & CJCJJCJ & CJJCCJJC("k^2mk^=:m")
if pagecount>CJCJJCJ then
str = str & CJJCCJJC("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCJ + 1 & CJJCCJJC("Vm") & CJCJJCJ+1 & CJJCCJJC("k^2mk^=:m")
str = str & CJJCCJJC("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCJ + 1 & CJJCCJJC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCJJC("k^F=m"):CJJCJJJC=str:End Function:End Class::Class jTree:Private Sql, CJCCCCJ, CJCCCCC, CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:Private Sub Class_Initialize():CJCCCCC = 0:CCJJJJJ = 0:CCJJCJJ=10:End Sub:Public Property Let Table(CJCJCJJJ):if CJCJCJJJ="" then Call RedirectMessage(CJJCCJJC("????????,;%C66????????????????????@??????????,"))
CCJJJJC=CJCJCJJJ:CCJJJCJ=CJJCCJJC("!$*0") & UCase(CCJJJJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJJC:End Property:::Private Sub GetTreeArray():Dim CCCCCJ, CJJJJCJ, CCJJCJC,RecordCount:CJCCCCJ = Application(CCJJJCJ):If Not IsArray(CJCCCCJ) Then
Sql = CJJCCJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJC:if CCJJJCC<>"" then Sql=Sql & CJJCCJJC(" ,H96C6 ,") & CCJJJCC
set CCJJCJC=CJJCCJ.execute(sql):RecordCount=CCJJCJC(0):if RecordCount=0 then Call RedirectMessage(CJJCCJJC("????W") & CCJJJJC & CJJCCJJC("^") & CCJJJCC & CJJCCJJC("X????????????"))
CCJJJJJ=RecordCount+CCJJCJJ:ReDim CJCCCCJ(CCJJJJJ, 4):Sql = CJJCCJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJJCCJJC(" ,H:E9 ,W?@=@4<X"):if CCJJJCC<>"" then Sql=Sql & CJJCCJJC(" ,H96C6 ,") & CCJJJCC
Sql=Sql & CJJCCJJC(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJC=CJJCCJ.execute(sql):For CCCCCJ = 1 To RecordCount:For CJJJJCJ = 0 To 4:CJCCCCJ(CCCCCJ, CJJJJCJ) = CCJJCJC(CJJJJCJ):if IsNull(CJCCCCJ(CCCCCJ,4)) then CJCCCCJ(CCCCCJ,4)=0
If CJCCCCJ(CCCCCJ,2)="" then CJCCCCJ(CCCCCJ,2)=CJJCCJJC(",??.")
Next:CCJJCJC.MoveNext:Next:CCJJCJC.Close: Set CCJJCJC = Nothing:for CCCCCJ=CCJJJJJ-(CCJJCJJ-1) to CCJJJJJ:CJCCCCJ(CCCCCJ,0)=CCCCCJ:next:Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
else
CCJJJJJ=Ubound(CJCCCCJ)
End If:End Sub:::::Private Function CJJCJJCC(CJJCJCCC):dim CCCCCJ,CCJJCCC:CJJCJJCC=0:CCJJCCC=CStr(CJJCJCCC):if CCJJCCC<>"0" then
for CCCCCJ=1 to CCJJJJJ:If CStr(CJCCCCJ(CCCCCJ, 0))=CCJJCCC Then
CJJCJJCC = CCCCCJ:Exit For
End If:Next
end if:End Function::::Public Function CJJCJCJJ(CJJCJCCC):Dim CCCCCJ,CCJCJJJ:CCCCCJ=CJJCJJCC(CJJCJCCC):if CCCCCJ=0 then
CCJCJJJ=CJJCJCJC(CJJCJCCC)
else
CCJCJJJ=CJCCCCJ(CCCCCJ,3):if isnull(CCJCJJJ) or CCJCJJJ="" then
CCJCJJJ=CJJCJCJC(CJJCJCCC)
elseif Mid(CCJCJJJ,instrrev(CCJCJJJ,CJJCCJJC("["))+1)<>CStr(CJJCJCCC) then
CCJCJJJ=CJJCJCJC(CJJCJCCC)
elseif Left(CCJCJJJ,1)=CJJCCJJC("[") then
CCJCJJJ=CJJCJCJC(CJJCJCCC)
end if
end if:CJJCJCJJ=CCJCJJJ:End Function:Private Function CJJCJCJC(CJJCJCCC):dim CCJJCCC:CCJJCCC=CStr(CJJCJCCC):if CCJJCCC="0" then
CJJCJCJC=""
else
dim CCJJCJC:set CCJJCJC=CJJCCJ.execute(CJJCCJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJC & CJJCCJJC(" ,H96C6 ,:5l") & CJJCJCCC):if CCJJCJC.eof then
Call UpdateCache(CJJCJCCC,"","","",""):Call RedirectMessage(CJJCCJJC("??????,xs??,") & CJJCJCCC & CJJCCJJC("??,????????,????????????????????,"))
else
if CCJJCJC(0)=0 then
CJJCJCJC="0," & CJJCJCCC
else
CJJCJCJC=CJJCJCJJ(CCJJCJC(0)) & CJJCCJJC("[") & CJJCJCCC
end if:if CCJJCJC(2)<>CJJCJCJC then
CJJCCJ.execute CJJCCJJC("FA52E6 ,") & CCJJJJC & CJJCCJJC(" ,D6E ,A2E9lV") & CJJCJCJC & CJJCCJJC("V ,H96C6 ,:5l") & CJJCJCCC
else
CJJCJCJC=CCJJCJC(2)
end if
end if:Call UpdateCache(CJJCJCCC,CCJJCJC(0),CCJJCJC(1),CJJCJCJC,CCJJCJC(3)):CCJJCJC.Close: Set CCJJCJC = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CJJCJCCC):dim CCJCJJJ:CCJCJJJ=CJJCJCJJ(CJJCJCCC):Sql_GetChildren = CCJJJJC & CJJCCJJC("0A2E9ZV[V ,=:<6 ,V") & CCJCJJJ & CJJCCJJC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJJCJ
End Sub:Public Sub UpdateCache(CJJCJCCC,CJCJCJJC,CJCJCJCJ,CCJCJJJ,CJCJCJCC):dim CCCCCJ,CJJJJCJ:CJJCJCCC=CLng(CJJCJCCC):CCCCCJ=CJJCJJCC(CJJCJCCC):if CJCJCJJC="" and CJCJCJCJ="" and CCJCJJJ="" and CJCJCJCC="" then
if CCCCCJ>0 then
for CJJJJCJ=1 to 4:CJCCCCJ(CCCCCJ,CJJJJCJ)=Null:next
end if
else
if CCCCCJ=0 then
for CJJJJCJ=1 to CCJJJJJ:if CJCCCCJ(CJJJJCJ,1) & ""="" then
CCCCCJ=CJJJJCJ:exit for
end if:next
end if:if CCCCCJ=0 then
Call ClearCache
else
CJCCCCJ(CCCCCJ,0)=CLng(CJJCJCCC):if CJCJCJJC<>"" then CJCCCCJ(CCCCCJ,1)=CLng(CJCJCJJC)
if CJCJCJCJ<>"" then CJCCCCJ(CCCCCJ,2)=CJCJCJCJ
if CCJCJJJ<>"" then CJCCCCJ(CCCCCJ,3)=CCJCJJJ
if CJCJCJCC<>"" then CJCCCCJ(CCCCCJ,4)=CLng(CJCJCJCC)
end if
end if:if CCCCCJ>0 then
Application.Lock():Application(CCJJJCJ) = CJCCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJJJCC):Call ConnClose:Response.Write CJCJJJCC:Response.End:End Sub:Private Function CCCCCCJ():CCCCCCJ=CJJCCJJJ+1:End Function:Private Function CJJCCJJJ():dim CJJCCJC:set CJJCCJC=CJJCCJ.execute(CJJCCJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJC & CJJCCJJC(" ,@C56C ,3J ,:5 ,56D4")):CJJCCJJJ=CJJCCJC(0):CJJCCJC.Close: Set CJJCCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(4):Call WriteCurrentURL:dim CJCCCCJ:set CJCCCCJ=new jtree:CJCCCCJ.table=CJJCCJJC(">6>36C0EJA6"):dim CCJCJJC,CCJCJCJ,CJJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC:CCJCJJC=CCCCJJC(Request.QueryString(CJJCCJJC("|"))):CCJCJCJ=CCCCJJC(Request.QueryString(CJJCCJJC("|%"))):CJJCJCJ=Request.QueryString(CJJCCJJC("%")):CCJCJCC=Request.QueryString(CJJCCJJC("s`")):CCJCCJJ=Request.QueryString(CJJCCJJC("sa")):CCJCCJC=Request.QueryString(CJJCCJJC("!@DE")):Response.Write(vbCrLf):Response.Write(CJJCCJJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCCJJC("k9E>=m") & vbCrLf):Response.Write(CJJCCJJC("k9625m") & vbCrLf):Response.Write(CJJCCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCJJC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCJJC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJCCJJC("k^9625m") & vbCrLf):Response.Write(CJJCCJJC("k3@5Jm") & vbCrLf):Response.Write(CJJCCJJC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9 ,C@HDA2?lQaQm?, ,???? ,?,k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,?2>6lQ|Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5Q ,D:K6lQ`_Q ,G2=F6lQ")):Response.Write CCJCJJC:Response.Write(CJJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm??????????,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,?2>6lQ|%Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQ&?2>6Q ,D:K6lQ`_Q ,G2=F6lQ")):Response.Write CCJCJCJ:Response.Write(CJJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,?2>6lQs`Q ,EJA6lQE6IEQ ,4=2DDlQE6IE ,52E6Q ,:5lQE6IE7:6=5aQ ,G2=F6lQ")):Response.Write CCJCJCC:Response.Write(CJJCCJJC("Q ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,C@HDA2?lQaQ ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,?2>6lQ$F3>:EbQ ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,?2>6lQ$F3>:EcQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,?2>6lQ3FEE@?Q ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?r=:4<lQ;2G2D4C:AEi:7W4@?7:C>WV????????????????????????????????????,????@??@??????????,-???????????????,VXXLH:?5@H]=@42E:@?lV=@8024E]2DAn24El56=VNQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ!@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=QmU?3DAjk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm??????????,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mkD6=64E ,?2>6lQ%Q ,:5lQD6=64EQm") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@?m,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJCJCJ="0",CJJCCJJC("D6=64E65"),""):Response.Write(CJJCCJJC("m??,??k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCJCJ="1",CJJCCJJC("D6=64E65"),""):Response.Write(CJJCCJJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write IIf(CJJCJCJ="2",CJJCCJJC("D6=64E65"),""):Response.Write(CJJCCJJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CJJCJCJ="3",CJJCCJJC("D6=64E65"),""):Response.Write(CJJCCJJC("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk:?AFE ,?2>6lQsaQ ,EJA6lQE6IEQ ,4=2DDlQE6IE ,52E6Q ,:5lQE6IE7:6=5bQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCCJJ:Response.Write(CJJCCJJC("Qmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCJJC("k^7@C>m") & vbCrLf)::If CCJCCJC="1" Then
Response.Write(vbCrLf):Response.Write(CJJCCJJC("k3Cm") & vbCrLf):Response.Write(CJJCCJJC("??,????,????????`___????,??,") & vbCrLf):Response.Write(CJJCCJJC("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m??k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9mx!k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE9m&#{k^E9m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):sql=CJJCCJJC("H96C6 ,`l`"):if CCCCCJC(CCJCJJC) then sql=sql & CJJCCJJC(" ,2?5 ,>6>36Cl") & CCJCJJC
if CCCCCJC(CCJCJCJ) then sql=sql & CJJCCJJC(" ,2?5 ,") & CJCCCCJ.Sql_GetChildren(CCJCJCJ)
if CCCCCJC(CJJCJCJ) then sql=sql & CJJCCJJC(" ,2?5 ,EJA6l") & CJJCJCJ
if isdate(CCJCJCC) then sql=sql & CJJCCJJC(" ,2?5 ,52E6E:>6mlV") & CCJCJCC & CJJCCJJC("V")
if isdate(CCJCCJJ) then sql=sql & CJJCCJJC(" ,2?5 ,52E6E:>6klV") & cdate(CCJCCJJ)+1 & CJJCCJJC("V")
Session(CJJCCJJC("!$*0$B="))=sql:sql=CJJCCJJC("D6=64E ,E@A ,`___ ,>6>36C[C62=?2>6[>6>36CEJA6[EJA6[4@?E6?E[FC=[52E6E:>6[:A ,7C@> ,G0=@8 ,") & sql & CJJCCJJC(" ,@C56C ,3J ,:5 ,56D4"):dim CCJCCCJ,CCCCCJ:set CCJCCCJ=new splitpage:with CCJCCCJ:.sql=sql:.pagesize=25:.style=3:end with:set rs=CCJCCCJ.rs:for CCCCCJ=1 to CCJCCCJ.pagesize:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCJCCCJ.listnum(CCCCCJ):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write rs(0):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5mk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,f__[cd_.Q ,9C67lQ]]^>6>36C^G:6H]2DAn:5l")):Response.Write rs(0):Response.Write(CJJCCJJC("Qm")):Response.Write rs(1):Response.Write(CJJCCJJC("k^2mk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write rs(2):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQm")):select case rs(3):case 0 : response.Write CJJCCJJC("??,??"):case 1 : response.Write CJJCCJJC("????"):case 2 : response.Write CJJCCJJC("????"):case 3 : response.Write CJJCCJJC("k7@?E ,4@=@ClVC65Vm????k^2m")
end select:Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,E:E=6lQ")):Response.Write rs(4):Response.Write(CJJCCJJC("Qm")):Response.Write CCCCCJJ(rs(4),50):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write rs(6):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5m")):Response.Write CJJJJJCC(rs(7)):Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,2=:8?lQ46?E6CQmk:>8 ,DC4lQ]]^:>286D^4@AJ]8:7Q ,E:E=6lQ")):Response.Write rs(5):Response.Write(CJJCCJJC("Q ,H:5E9lQ`dQ ,96:89ElQ`bQmk^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJJCCJJC(" ,kE5 ,4@=DA2?lQhQm")):call CCJCCCJ.showpage:Response.Write(CJJCCJJC("k^E5m") & vbCrLf):Response.Write(CJJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCJJC(" ,")):set CCJCCCJ=nothing:Response.Write(vbCrLf):Response.Write(CJJCCJJC("k^E23=6m") & vbCrLf)
Else
response.write CJJCCJJC("k3Cmk5:G ,2=:8?lV46?E6CVmk3m????????????????????,??????????????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];52E6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]KII3@I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCJJC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJCCJJC(" ,SWVRE6IE7:6=5a[RE6IE7:6=5bVX];s2E6WL6?552E6i?6H ,s2E6WXNX") & vbCrLf):Response.Write(CJJCCJJC("NX") & vbCrLf):Response.Write(CJJCCJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:CJCJJC.Close:Set CJCJJC=Nothing:rs.Close:Set rs=Nothing:CJJCCJ.Close:Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCJJC(ByVal CJJCJCC)
Dim CCJCCCC, CCCCCJ, CJJJCCJ
CJJCJCC = Replace(CJJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCJ = 1 To Len(CJJCJCC)
If CCCCCJ <> CJJJCCJ Then
CCJCCCC = AscW(Mid(CJJCJCC, CCCCCJ, 1))
If CCJCCCC >= 33 And CCJCCCC <= 79 Then
CJJCCJJC = CJJCCJJC & Chr(CCJCCCC + 47)
ElseIf CCJCCCC >= 80 And CCJCCCC <= 126 Then
CJJCCJJC = CJJCCJJC & Chr(CCJCCCC - 47)
Else
CJJJCCJ = CCCCCJ + 1
If Mid(CJJCJCC, CJJJCCJ, 1) = Chr(64) Then CJJCCJJC = CJJCCJJC & ChrW(CCJCCCC + 5) Else CJJCCJJC = CJJCCJJC & Mid(CJJCJCC, CCCCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de