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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCCJ, CJJCCC,rs, CJCJJC, sql:Set CJJCCJ = server.CreateObject(CJCJJJJJ("ps~sq]r@??64E:@?")):CJJCCJ.open Application(CJCJJJJJ("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(CJCJJJJJ("!$*|t|qt#"))):if CCCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCC>0 then
sql=CJCJJJJJ("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 & CJCJJJJJ("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(CJCJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCJJ)>0 then Call RedirectMessage(CJCJJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJCC,CJCCJJ)
End IF
end if:Sub CheckRight(CJCJJJJC):dim CCCCCJ,CCCCCC:if CJCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJJJJ("??????????????,????????????,"))
elseIf not CCCCCCC(CJCJJJJC) then
Call RedirectMessage(CJCJJJJJ("????W") & CJCJJJJC & CJCJJJJJ("X????????,????????????????????,"))
end if:End Sub:Function CCCCCCC(CJCJJJJC):dim CCCCCJ,CCCCCC:CCCCCC=split(CJCJJJJC,CJCJJJJJ("[")):CCCCCCC=False:for CCCCCJ=0 to ubound(CCCCCC):If Mid(CJCCJC,CCCCCC(CCCCCJ),1)="1" then
CCCCCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJJJJJ("!$*|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,CJCJJJJJ("]")):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(CJCJJJJJ("D"), CJCJJJJJ("`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(CCCJJCC,CJCJJJCJ):dim CCCCCJ,CJJJJCJ,CJJJJCC:for CCCCCJ=1 to len(CJCJJJCJ):CJJJJCJ=mid(CJCJJJCJ,CCCCCJ,1):if isnumeric(CJJJJCJ) then CJJJJCC=CJJJJCC & CJJJJCJ
if len(CJJJJCC)=7 then exit for
next:CJJJJCC=CCCJJCC & CJCJJJJJ("]") & CJCJJJCJ & CJCJJJJJ("]") & Fix(10000*(Rnd+1)) & CJJJJCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJJJ("D"), CJCJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJJJ("!$*|t|qt#"))=CJJJJCC:End Sub::Function CJJJJJJJ(CJCJJJCC):Dim str,CJJJCJC:str = Trim(CJCJJJCC):If IsNull(str) Or str = "" Then
CJJJJJJJ = ""
else
str=Replace(str, CJCJJJJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJJJJJ("k:7C2>6"), CJCJJJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJJJJJ("kD4C:AE"), CJCJJJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJCJC=new RegExp:CJJJCJC.Pattern=CJCJJJJJ("@?W,2\K.ZXl"):CJJJCJC.IgnoreCase = True:CJJJCJC.Global=True:str=CJJJCJC.Replace(str,CJCJJJJJ("@?S`U6BF2=Dj")):set CJJJCJC=nothing:CJJJJJJJ=str
End If:End Function:Function IIf(CJCJJCJJ, CJCJJCJC, CJCJJCCJ):if isnull(CJCJJCJJ) or isempty(CJCJJCJJ) then
IIf = CJCJJCCJ
elseif CJCJJCJJ Then
IIf = CJCJJCJC
Else
IIf = CJCJJCCJ
end if:End Function:Const CCCJCCJ="^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 CJCJJJJJ("k3C ,^m")
response.Write CCCCCJ & CJCJJJJJ("i ,") & str(CCCCCJ):next
else
response.Write CJCJJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCCJ=0 to ubound(str,2):response.Write CJCJJJJJ("kE9 ,2=:8?lV=67EVm") & CCCCCJ & CJCJJJJJ("k^E9m")
next:response.Write CJCJJJJJ("k^ECm"):for CCCCCJ=0 to ubound(str):response.Write CJCJJJJJ("kECmkE9m") & CCCCCJ & CJCJJJJJ("k^E9m"):for CJJJJCJ=0 to ubound(str,2):response.Write CJCJJJJJ("kE5m") & str(CCCCCJ,CJJJJCJ) & CJCJJJJJ("k^E5m"):next:response.Write CJCJJJJJ("k^ECm"):next:response.Write CJCJJJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJJJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJJJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJJJJCJ():Dim CJJJCCC, CJJCJJJ:CJJCJJJ = Request.ServerVariables(CJCJJJJJ("!p%w0x}u~")):CJJJCCC = Request.ServerVariables(CJCJJJJJ("""&t#*0$%#x}v")):If CJJJCCC <> Empty Then
if instr(lcase(CJJJCCC),CJCJJJJJ("Tb4:7C2>6"))>0 or instr(lcase(CJJJCCC),CJCJJJJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCJJJJJ("????????,????????????????????????,??,??,"))
CJJCJJJ = CJJCJJJ & CJCJJJJJ("n") & CJJJCCC
end if:CJJJJJCJ = CJJCJJJ:End Function:Sub SetHttpOnlyCookie(CJCJJCCC,CJCJCJJJ):dim CJJJJJJ:CJJJJJJ=CJCJJCCC & CJCJJJJJ("l") & CJCJCJJJ & CJCJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJJJ("$6E\r@@<:6"),CJJJJJJ):End Sub:Sub WriteCurrentURL():Response.Cookies(CJCJJJJJ("!$*"))(CJCJJJJJ("&#{")) = CJJJJJCJ:End Sub::::::Function CJJJJJCC(CJJJCCJ):if isnull(CJJJCCJ) or trim(CJJJCCJ)="" or not isnumeric(CJJJCCJ) then
CJJJJJCC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CJCJJJJJ("/-5ZS"):CJJJCJC.IgnoreCase = True:CJJJJJCC = CJJJCJC.test(CJJJCCJ):set CJJJCJC=nothing
end if:End Function:Function CJJJJCJJ(CJCJCJJC):dim CJJCJJC,CJJCJCJ:CJJCJJC=CJCJJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJCJJC & CJCJJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCJ=CJJCCJ.execute(CJJCJJC):CJJJJCJJ = CJJCJCJ(0):if isnull(CJJJJCJJ) then CJJJJCJJ=1
CJJCJCJ.close : set CJJCJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCCC=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:set CJJJJCCC=nothing:CJJCJCJ.close : set CJJCJCJ=nothing:CJCJJC.Close : Set CJCJJC=Nothing:rs.Close : Set rs=Nothing:CJJJCJJJ.Close : Set CJJJCJJJ = Nothing:CJJCCJ.Close : Set CJJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJJJ("!$*0|6DD286"),server.URLEncode(CJCJCJCJ)):Response.Redirect CJCJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJJCJJC(ByVal CJJJCJCJ,style):if not isdate(CJJJCJCJ) then
CJJJCJJC=CJJJCJCJ:exit function
end if:dim CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:CJJJCJCJ=cdate(CJJJCJCJ):CJJCJCC=Year(CJJJCJCJ):CJJCCJJ=Month(CJJJCJCJ):CJJCCJC=Day(CJJJCJCJ):select case style:case 0:CJJJCJJC=CJJCJCC & CJCJJJJJ("\") & right(0 & CJJCCJJ,2) & CJCJJJJJ("\") & right(0 & CJJCCJC,2):case 1:CJJJCJJC=CJJCJCC & right(0 & CJJCCJJ,2) & right(0 & CJJCCJC,2):case 2:CJJJCJJC=right(CJJCJCC,2) & CJCJJJJJ("\") & right(0 & CJJCCJJ,2) & CJCJJJJJ("\") & right(0 & CJJCCJC,2):case 3:CJJJCJJC=CJJCJCC & CJCJJJJJ("\") & right(0 & CJJCCJJ,2):case 4:CJJJCJJC=right(0 & CJJCCJJ,2) & CJCJJJJJ("\") & right(0 & CJJCCJC,2):case 5:CJJJCJJC=right(0 & CJJCCJC,2):case 6:CJJJCJJC=CJJCJCC & CJCJJJJJ("??") & right(0 & CJJCCJJ,2) & CJCJJJJJ("??") & right(0 & CJJCCJC,2) & CJCJJJJJ("??"):case else
CJJJCJJC=CJJJCJCJ:end select:End Function::::::::::::::::::::Sub ClearCache(CJCJCJCC):Application.Contents.Remove CJCJCJCC
End Sub::Const CCCJCCC ="9"
Const CCCCJJJ ="7"
Const CCCCJJC ="3"
Const CCCCJCJ ="4"
Const CCCCJCC ="8"
Const CCCCCJJ =":"
Const CCCCCJC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCJJJJ, CJCJJJC, CJCJJCJ, CJCJJCC, CJCJCJJ, CJJCJJJ, CJCJCJC, CJCJCCJ, CJCJCCC, CJCCJJJ:Private Function CJJJCJCC():Dim CJCCJJC:CJCCJJC = "??" & CJCJCJJ & CJCJJJJJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJCCC & CJCJJJJJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJJCC & CJCJJJJJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCJJJJJ("k^3mk^DA2?m??")
CJJJCJCC = CJCCJJC:End Function:Private Function CJJJCCJJ():CJJJCCJJ = CJCJJJJJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCJJCC & CJCJJJJJ("V ,DEJ=6lV") & CCCCCJC & CJCJJJJJ("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 & CJCJJJJJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJJJCCJC():CJJJCCJC = CJCJJJJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCCJC & CJCJJJJJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJJCJJJ & CJCJJJJJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJJCCCJ():Dim CJCCJJC, CCCCCJ:CJCCJJC = CJCJJJJJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJJCJJJ & CJCJJJJJ("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:CJCCJJC = CJCCJJC & CJCJJJJJ("k@AE:@? ,G2=F6lV") & CCCCCJ & CJCJJJJJ("V")
If CCCCCJ = CJCJJCC Then CJCCJJC = CJCCJJC & CJCJJJJJ(" ,D6=64E65")
CJCCJJC = CJCCJJC & CJCJJJJJ("m") & CCCCCJ & CJCJJJJJ("k^@AE:@?m"):Next:CJCCJJC = CJCCJJC & CJCJJJJJ("k^D6=64Em??"):CJJJCCCJ = CJCCJJC:End Function:Public Sub ShowPage():Dim CCCCCJ, CJCCJCJ,CJCCJCC,CJCCCJJ:if CJCJCJJ>0 then
CJCCJCJ = CJCJJJJJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJJCJCC & CJCJJJJJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJCCJJJ:Case 1: CJCCCJJ = CJJCJJJJ:Case 2: CJCCCJJ = CJJCJJJC:Case 3: CJCCCJJ = CJJCJJCJ:Case 4: CJCCCJJ = CJJCJJCC:Case 5: CJCCCJJ = CJJCJCJJ:Case 6: CJCCCJJ = CJJCJCJC:Case 7: CJCCCJJ = CJJCJCCJ:Case 8: CJCCCJJ = CJJCJCCC:End Select
End If:CJCCJCC = CJCJJJJJ("k^5:Gmk^5:Gm")
end if:if CJCCJJJ>=6 then
Response.Write CJCCCJJ
else
Response.Write CJCCJCJ & CJCCCJJ & CJCCJCC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJJJC = Server.CreateObject(CJCJJJJJ("ps~sq]#64@C5$6E")):CJCJJJC.PageSize = CJCJCCC:CJCJJJC.Open CJCJJCJ, CJCJJJJ, 1:If err then
Response.Write	CJCJJJJJ("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 & CJCJJJJJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCJJJC.EOF Then
CJCJCJJ = CJCJJJC.RecordCount:PageCount = CJCJJJC.PageCount:If CJCJJCC > PageCount Then CJCJJCC = PageCount
CJCJJJC.AbsolutePage = CJCJJCC
End If:Set Rs = CJCJJJC:End Function:Public Property Let CJJCCC(CJCJCCJJ):Set CJCJJJJ = CJCJCCJJ:End Property:Public Property Let SQL(str):CJCJJCJ = str:End Property:Public Property Let Style(CJCJJJJC):If IsNumeric(CJCJJJJC) Then
CJCCJJJ = CInt(CJCJJJJC):If CJCCJJJ < 1 Or CJCCJJJ > 8 Then CJCCJJJ = 1
Else
CJCCJJJ = 1
End If:End Property:Public Property Let PageSize(CJCJJJJC):If IsNumeric(CJCJJJJC) Then
CJCJCCC = CInt(CJCJJJJC):If CJCJCCC < 1 Then CJCJCCC = 10
Else
CJCJCCC = 10
End If:End Property:Public Property Get PageSize():If CJCJJCC = PageCount Then
PageSize = CJCJCJJ - CJCJCCC * (PageCount - 1)
Elseif CJCJCJJ=0 then
pagesize=0
else
PageSize = CJCJCCC
end if:End Property:Private Sub Class_Initialize():dim CJCCCJC:CJCJCCC = 10:CJCCJJJ = 1:Set CJCJJJJ = CJJCCJ:CJCJJCC = Trim(Request.QueryString(CJCJJJJJ("!286"))):If IsNumeric(CJCJJCC) Then
CJCJJCC = CLng(CJCJJCC):If CJCJJCC < 1 Then CJCJJCC = 1
Else
CJCJJCC = 1
End If:CJCJCCJ = Trim(Request.ServerVariables(CJCJJJJJ("&#{"))):CJCJCCJ = Mid(CJCJCCJ, InStrRev(CJCJCCJ, CJCJJJJJ("^")) + 1):CJCJCJC = Split(Trim(Request.ServerVariables(CJCJJJJJ("""&t#*0$%#x}v"))), CJCJJJJJ("U")):CJJCJJJ = Server.HtmlEncode(CJCJCCJC):CJCCCJC=lcase(CJJCJJJ):if instr(CJCCCJC,CJCJJJJJ("Tb4:7C2>6"))>0 or instr(CJCCCJC,CJCJJJJJ("Tb4D4C:AE"))>0 or instr(CJCCCJC,CJCJJJJJ("V"))>0 or instr(CJCCCJC,CJCJJJJJ(";2G2D4C:AE"))>0 or instr(CJCCCJC,CJCJJJJJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCJJJJJ("????????,????????????????????????,??,??,"))
End Sub::Private Function CJCJCCJC():Dim CCCCCJ, str:For CCCCCJ = 0 To UBound(CJCJCJC):If InStr(LCase(CJCJCJC(CCCCCJ)), CJCJJJJJ("A286l")) = 0 Then str = str & CJCJJJJJ("U") & CJCJCJC(CCCCCJ)
Next:str = Mid(str, 2):If str = "" Then CJCJCCJC = CJCJCCJ & CJCJJJJJ("n") & CJCJJJJJ("A286l") Else CJCJCCJC = CJCJCCJ & CJCJJJJJ("n") & str & CJCJJJJJ("UA286l")
End Function:Private Function CJJCJJJJ():Dim str:str = CJCJJJJJ("???? ,??"):For CCCCCJ = 1 To PageCount:If CCCCCJ = CJCJJCC Then str = str & CJCJJJJJ("k3m") & CCCCCJ & CJCJJJJJ("k^3m ,") Else str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CCCCCJ & CJCJJJJJ("Vm") & CCCCCJ & CJCJJJJJ("k^2m ,")
Next:str = str & CJCJJJJJ("??"):CJJCJJJJ = str:End Function:Private Function CJJCJJJC():Dim str:If CJCJJCC > 1 Then
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJJJJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCC & CJCJJJJJ("k^2m ,")
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC - 1 & CJCJJJJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJC & CJCJJJJJ("k^2m ,")
Else
str = str & CCCJCCC & CJCJJJJJ(" ,") & CCCCJJC
End If:If CJCJJCC < PageCount Then
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC + 1 & CJCJJJJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJCJ & CJCJJJJJ("k^2m ,")
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & PageCount & CJCJJJJJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCCJJ & CJCJJJJJ("k^2m ,")
Else
str = str & CCCCJCJ & CJCJJJJJ(" ,") & CCCCCJJ
End If:str = str & CJJJCCJJ:str = str & CJJJCCJC:CJJCJJJC = str:End Function:Private Function CJJCJJCJ():Dim str, CJJJJJC:CJJJJJC = (CJCJJCC - 1) \ 10:If CJCJJCC = 1 Then str = str & CCCJCCC & CJCJJJJJ(" ,") Else str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJJJJ("`V ,E:E=6lV????Vm") & CCCJCCC & CJCJJJJJ("k^2m ,")
If CJJJJJC * 10 > 0 Then str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC - 10 & CJCJJJJJ("V ,E:E=6lV??????Vm") & CCCCJJJ & CJCJJJJJ("k^2m ,")
For CCCCCJ = (CJJJJJC * 10 + 1) To (CJJJJJC * 10 + 10):If CCCCCJ = CJCJJCC Then str = str & CJCJJJJJ("k3m") & CCCCCJ & CJCJJJJJ("k^3m ,") Else str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CCCCCJ & CJCJJJJJ("V ,E:E=6lV??????") & CCCCCJ & CJCJJJJJ("??Vm") & CCCCCJ & CJCJJJJJ("k^2m ,")
If CCCCCJ = PageCount Then Exit For
Next:If CCCCCJ < PageCount Then str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CCCCCJ & CJCJJJJJ("V ,E:E=6lV??????Vm") & CCCCJCC & CJCJJJJJ("k^2m ,")
If CJCJJCC = PageCount Then str = str & CCCCCJJ Else str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & PageCount & CJCJJJJJ("V ,E:E=6lV????Vm") & CCCCCJJ & CJCJJJJJ("k^2m")
CJJCJJCJ = str:End Function:Private Function CJJCJJCC():Dim str, CJJJCCJ, CJCCCCJ, CCCCCJ:If CJCJJCC > 4 Then str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJJJJ("`Vm,`.k^2m ,]]]")
If CJCJJCC < PageCount - 3 Then CJCCCCJ = CJCJJCC + 3 Else CJCCCCJ = PageCount
For CCCCCJ = CJCJJCC - 3 To CJCCCCJ:If CCCCCJ >= 1 Then
If CCCCCJ = CJCJJCC Then str = str & CJCJJJJJ(" ,k3m,") & CCCCCJ & CJCJJJJJ(".k^3m") Else str = str & CJCJJJJJ(" ,k2 ,9C67lV") & CJJCJJJ & CCCCCJ & CJCJJJJJ("Vm,") & CCCCCJ & CJCJJJJJ(".k^2m")
End If:Next:If CJCJJCC < PageCount - 3 Then str = str & CJCJJJJJ(" ,]]] ,k2 ,9C67lV") & CJJCJJJ & PageCount & CJCJJJJJ("Vm,") & PageCount & CJCJJJJJ(".k^2m")
CJJCJJCC = str:End Function:Private Function CJJCJCJJ():Dim str:If CJCJJCC > 1 Then
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJJJJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC - 1 & CJCJJJJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJCJJJJJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJCJJCC < PageCount Then
str = str & CJCJJJJJ(" ,k2 ,9C67lV") & CJJCJJJ & CJCJJCC + 1 & CJCJJJJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & PageCount & CJCJJJJJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJCJJJJJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJJJCCCJ:CJJCJCJJ = str:End Function:Private Function CJJCJCJC():Dim str:if CJCJJCC>=2 then
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC - 1 & CJCJJJJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC - 1 & CJCJJJJJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJJCC-1 & CJCJJJJJ("k^2m")
end if:str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC & CJCJJJJJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCJJCC & CJCJJJJJ("k^2m")
if pagecount>CJCJJCC then
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC + 1 & CJCJJJJJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJJCC+1 & CJCJJJJJ("k^2m")
str = str & CJCJJJJJ("k2 ,9C67lV") & CJJCJJJ & CJCJJCC + 1 & CJCJJJJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJCJCJC=str:End Function:Private Function CJJCJCCJ():Dim str:str=CJCJJJJJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCJJCC>=2 then
str = str & CJCJJJJJ("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCC - 1 & CJCJJJJJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCJJJJJ("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCC - 1 & CJCJJJJJ("Vm") & CJCJJCC-1 & CJCJJJJJ("k^2mk^=:m")
end if:str = str & CJCJJJJJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJJCJJJ & CJCJJCC & CJCJJJJJ("Vm") & CJCJJCC & CJCJJJJJ("k^2mk^=:m")
if pagecount>CJCJJCC then
str = str & CJCJJJJJ("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCC + 1 & CJCJJJJJ("Vm") & CJCJJCC+1 & CJCJJJJJ("k^2mk^=:m")
str = str & CJCJJJJJ("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCC + 1 & CJCJJJJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJJJJJ("k^F=m"):CJJCJCCJ=str:End Function:Private Function CJJCJCCC():Dim str:str=CJCJJJJJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCJJCC>=2 then
str = str & CJCJJJJJ("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCC - 1 & CJCJJJJJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCJJJJJ("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCC - 1 & CJCJJJJJ("Vm") & CJCJJCC-1 & CJCJJJJJ("k^2mk^=:m")
end if:str = str & CJCJJJJJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJJCJJJ & CJCJJCC & CJCJJJJJ("Vm") & CJCJJCC & CJCJJJJJ("k^2mk^=:m")
if pagecount>CJCJJCC then
str = str & CJCJJJJJ("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCC + 1 & CJCJJJJJ("Vm") & CJCJJCC+1 & CJCJJJJJ("k^2mk^=:m")
str = str & CJCJJJJJ("k=:mk2 ,9C67lV") & CJJCJJJ & CJCJJCC + 1 & CJCJJJJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJJJJJ("k^F=m"):CJJCJCCC=str:End Function:End Class::Class jTree:Private Sql, CJCCCCC, CCJJJJJ, CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC:Private Sub Class_Initialize():CCJJJJJ = 0:CCJJJJC = 0:CCJJCJC=10:End Sub:Public Property Let Table(CJCJCCCJ):if CJCJCCCJ="" then Call RedirectMessage(CJCJJJJJ("????????,;%C66????????????????????@??????????,"))
CCJJJCJ=CJCJCCCJ:CCJJJCC=CJCJJJJJ("!$*0") & UCase(CCJJJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJJJCJ:End Property:::Private Sub GetTreeArray():Dim CCCCCJ, CJJJJCJ, CCJJCCJ,RecordCount:CJCCCCC = Application(CCJJJCC):If Not IsArray(CJCCCCC) Then
Sql = CJCJJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJCJ:if CCJJCJJ<>"" then Sql=Sql & CJCJJJJJ(" ,H96C6 ,") & CCJJCJJ
set CCJJCCJ=CJJCCJ.execute(sql):RecordCount=CCJJCCJ(0):if RecordCount=0 then Call RedirectMessage(CJCJJJJJ("????W") & CCJJJCJ & CJCJJJJJ("^") & CCJJCJJ & CJCJJJJJ("X????????????"))
CCJJJJC=RecordCount+CCJJCJC:ReDim CJCCCCC(CCJJJJC, 4):Sql = CJCJJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCJ & CJCJJJJJ(" ,H:E9 ,W?@=@4<X"):if CCJJCJJ<>"" then Sql=Sql & CJCJJJJJ(" ,H96C6 ,") & CCJJCJJ
Sql=Sql & CJCJJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCCJ=CJJCCJ.execute(sql):For CCCCCJ = 1 To RecordCount:For CJJJJCJ = 0 To 4:CJCCCCC(CCCCCJ, CJJJJCJ) = CCJJCCJ(CJJJJCJ):if IsNull(CJCCCCC(CCCCCJ,4)) then CJCCCCC(CCCCCJ,4)=0
If CJCCCCC(CCCCCJ,2)="" then CJCCCCC(CCCCCJ,2)=CJCJJJJJ(",??.")
Next:CCJJCCJ.MoveNext:Next:CCJJCCJ.Close: Set CCJJCCJ = Nothing:for CCCCCJ=CCJJJJC-(CCJJCJC-1) to CCJJJJC:CJCCCCC(CCCCCJ,0)=CCCCCJ:next:Application.Lock():Application(CCJJJCC) = CJCCCCC:Application.UnLock()
else
CCJJJJC=Ubound(CJCCCCC)
End If:End Sub:::::Private Function CJJCCJJC(CCCJJCC):dim CCCCCJ,CCJCJJJ:CJJCCJJC=0:CCJCJJJ=CStr(CCCJJCC):if CCJCJJJ<>"0" then
for CCCCCJ=1 to CCJJJJC:If CStr(CJCCCCC(CCCCCJ, 0))=CCJCJJJ Then
CJJCCJJC = CCCCCJ:Exit For
End If:Next
end if:End Function::::Public Function CJJCCJCJ(CCCJJCC):Dim CCCCCJ,CCJCJJC:CCCCCJ=CJJCCJJC(CCCJJCC):if CCCCCJ=0 then
CCJCJJC=CJJCCJCC(CCCJJCC)
else
CCJCJJC=CJCCCCC(CCCCCJ,3):if isnull(CCJCJJC) or CCJCJJC="" then
CCJCJJC=CJJCCJCC(CCCJJCC)
elseif Mid(CCJCJJC,instrrev(CCJCJJC,CJCJJJJJ("["))+1)<>CStr(CCCJJCC) then
CCJCJJC=CJJCCJCC(CCCJJCC)
elseif Left(CCJCJJC,1)=CJCJJJJJ("[") then
CCJCJJC=CJJCCJCC(CCCJJCC)
end if
end if:CJJCCJCJ=CCJCJJC:End Function:Private Function CJJCCJCC(CCCJJCC):dim CCJCJJJ:CCJCJJJ=CStr(CCCJJCC):if CCJCJJJ="0" then
CJJCCJCC=""
else
dim CCJJCCJ:set CCJJCCJ=CJJCCJ.execute(CJCJJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJCJ & CJCJJJJJ(" ,H96C6 ,:5l") & CCCJJCC):if CCJJCCJ.eof then
Call UpdateCache(CCCJJCC,"","","",""):Call RedirectMessage(CJCJJJJJ("??????,xs??,") & CCCJJCC & CJCJJJJJ("??,????????,????????????????????,"))
else
if CCJJCCJ(0)=0 then
CJJCCJCC="0," & CCCJJCC
else
CJJCCJCC=CJJCCJCJ(CCJJCCJ(0)) & CJCJJJJJ("[") & CCCJJCC
end if:if CCJJCCJ(2)<>CJJCCJCC then
CJJCCJ.execute CJCJJJJJ("FA52E6 ,") & CCJJJCJ & CJCJJJJJ(" ,D6E ,A2E9lV") & CJJCCJCC & CJCJJJJJ("V ,H96C6 ,:5l") & CCCJJCC
else
CJJCCJCC=CCJJCCJ(2)
end if
end if:Call UpdateCache(CCCJJCC,CCJJCCJ(0),CCJJCCJ(1),CJJCCJCC,CCJJCCJ(3)):CCJJCCJ.Close: Set CCJJCCJ = Nothing
end if:End Function::::::::Public Function GetAllChildID(CCCJJCC):Dim Str, CCCCCJ:if CJJCCCJC(CCCJJCC) then
For CCCCCJ = 1 To CCJJJJC:If InStr(CJCCCCC(CCCCCJ, 3) & CJCJJJJJ("["), CJCJJJJJ("[") & CCCJJCC & CJCJJJJJ("[")) > 0 Then
Str = Str & CJCJJJJJ("[") & CJCCCCC(CCCCCJ, 0)
End If:Next:Str = Mid(Str, 2)
else
str=CCCJJCC
end if:GetAllChildID = Str:End Function:::::Public Function CJJCCCJC(CCCJJCC):Dim CCCCCJ:CJJCCCJC = False:CCCJJCC=CLng(CCCJJCC):For CCCCCJ = 1 To CCJJJJC:If CJCCCCC(CCCCCJ, 1) = CCCJJCC Then
CJJCCCJC = True:Exit For
End If:Next:End Function:::::::::Public Sub ClearCache():Application.Contents.Remove CCJJJCC
End Sub:Public Sub UpdateCache(CCCJJCC,CCJCCCJ,CJCJCCCC,CCJCJJC,CJCCJJJJ):dim CCCCCJ,CJJJJCJ:CCCJJCC=CLng(CCCJJCC):CCCCCJ=CJJCCJJC(CCCJJCC):if CCJCCCJ="" and CJCJCCCC="" and CCJCJJC="" and CJCCJJJJ="" then
if CCCCCJ>0 then
for CJJJJCJ=1 to 4:CJCCCCC(CCCCCJ,CJJJJCJ)=Null:next
end if
else
if CCCCCJ=0 then
for CJJJJCJ=1 to CCJJJJC:if CJCCCCC(CJJJJCJ,1) & ""="" then
CCCCCJ=CJJJJCJ:exit for
end if:next
end if:if CCCCCJ=0 then
Call ClearCache
else
CJCCCCC(CCCCCJ,0)=CLng(CCCJJCC):if CCJCCCJ<>"" then CJCCCCC(CCCCCJ,1)=CLng(CCJCCCJ)
if CJCJCCCC<>"" then CJCCCCC(CCCCCJ,2)=CJCJCCCC
if CCJCJJC<>"" then CJCCCCC(CCCCCJ,3)=CCJCJJC
if CJCCJJJJ<>"" then CJCCCCC(CCCCCJ,4)=CLng(CJCCJJJJ)
end if
end if:if CCCCCJ>0 then
Application.Lock():Application(CCJJJCC) = CJCCCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJCJCJ):Call ConnClose:Response.Write CJCJCJCJ:Response.End:End Sub:Private Function CJJJJCJJ():CJJJJCJJ=CJJCCCCJ+1:End Function:Private Function CJJCCCCJ():dim CJJCJCJ:set CJJCJCJ=CJJCCJ.execute(CJCJJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJCJ & CJCJJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJCCCCJ=CJJCJCJ(0):CJJCJCJ.Close: Set CJJCJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(25):Call WriteCurrentURL:Const CCCCCCJ="??"
dim CCJCJCJ,CJJJCCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:CCJCJCJ=Request.QueryString(CJCJJJJJ("q")):CJJJCCJ=CJJJJJJJ(Request.QueryString(CJCJJJJJ("}"))):CCJCJCC=Request.QueryString(CJCJJJJJ("u")):CCJCCJJ=Request.QueryString(CJCJJJJJ("%")):CCJCCCJ=Request.QueryString(CJCJJJJJ("A2C:5")):CCJCCCC=request.QueryString(CJCJJJJJ("5E`")):CCCJJJJ=request.QueryString(CJCJJJJJ("5Ea")):CCJCCJC=Request.QueryString(CJCJJJJJ("A@DE")):dim CJCCCCC:set CJCCCCC=new jtree:CJCCCCC.table=CJCJJJJJ(">6>36C0EJA6"):dim CCCJJJC,CCCCCJ:CCCJJJC=split(CJCJJJJJ("M????M????M????M????M????M????????M????M????M????M????M????????M????M????????M????M????M????"),CJCJJJJJ("M")):Response.Write(vbCrLf):Response.Write(CJCJJJJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJJJJJ("k9E>=m") & vbCrLf):Response.Write(CJCJJJJJ("k9625m") & vbCrLf):Response.Write(CJCJJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJJJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCJJJJJ("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCJJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCJJJJJ("=: ,L ,5:DA=2Ji ,:?=:?6\3=@4<j ,N") & vbCrLf):Response.Write(CJCJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJJJJ("k^9625m") & vbCrLf):Response.Write(CJCJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4=2DDlQ=236=Qmxsk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5mk:?AFE ,?2>6lQqQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,E:E=6lQ????????Q ,G2=F6lQ")):Response.Write CCJCJCJ:Response.Write(CJCJJJJJ("Q ,D:K6lQdQ ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5mk:?AFE ,?2>6lQ}Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write CJJJCCJ:Response.Write(CJCJJJJJ("Q ,D:K6lQ`dQ ,E:E=6lQ????????Qmk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5mk:?AFE ,?2>6lQA2C:5Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQdQ ,E:E=6lQ??????????xs??????,??????????????????????????Q ,G2=F6lQ")):Response.Write CCJCCCJ:Response.Write(CJCJJJJJ("Qmk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5mkD6=64E ,?2>6lQuQm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CCJCJCC="0",CJCJJJJJ("D6=64E65"),""):Response.Write(CJCJJJJJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CCJCJCC="1",CJCJJJJJ("D6=64E65"),""):Response.Write(CJCJJJJJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k@AE:@? ,G2=F6lQaQ ,")):Response.Write IIf(CCJCJCC="2",CJCJJJJJ("D6=64E65"),""):Response.Write(CJCJJJJJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k@AE:@? ,G2=F6lQbQ ,")):Response.Write IIf(CCJCJCC="3",CJCJJJJJ("D6=64E65"),""):Response.Write(CJCJJJJJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5mkD6=64E ,?2>6lQ%Qm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):for CCCCCJ=1 to ubound(CCCJJJC):response.Write CJCJJJJJ("k@AE:@? ,G2=F6lV") & CCCCCJ & CJCJJJJJ("V") & IIf(Cstr(CCCCCJ)=CCJCCJJ,CJCJJJJJ(" ,D6=64E65"),"") & CJCJJJJJ("m") & CCCJJJC(CCCCCJ) & CJCJJJJJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5mk:?AFE ,?2>6lQ5E`Q ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write CCJCCCC:Response.Write(CJCJJJJJ("Qm") & vbCrLf):Response.Write(CJCJJJJJ(" ,O") & vbCrLf):Response.Write(CJCJJJJJ(" ,k:?AFE ,?2>6lQ5EaQ ,EJA6lQ52E6Q ,G2=F6lQ")):Response.Write CCCJJJJ:Response.Write(CJCJJJJJ("Qmk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,G2=F6lQ?? ,??Qmk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJJJ("k^7@C>m") & vbCrLf)::If CCJCCJC="1" Then
Response.Write(vbCrLf):Response.Write(CJCJJJJJ("k3Cm") & vbCrLf):Response.Write(CJCJJJJJ("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,E:E=6lQ????????????????????????Qm????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,E:E=6lQ??????????????????@??????Qm????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,E:E=6lQ????????????????????????Qm????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,E:E=6lQ????????????????????????Qm????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,E:E=6lQ??????????????????????Qm????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9 ,E:E=6lQ??????????????????????Qm????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):sql=CJCJJJJJ("D6=64E ,:5[>6>36C0EJA60?2>6[766[286?E[6IA:C652E6[52E6E:>6[EJA6[A2C:5[6IA6CE[>6>36C[:D?6H[D2?5E23=6[4C:D:D[6?[q:@u665324<[vC@FAvF:52?46 ,7C@> ,G0D49@@= ,H96C6 ,`l`"):if CJJJJJCC(CCJCCCJ) then sql=sql & CJCJJJJJ(" ,2?5 ,:5 ,:? ,W") & CJCCCCC.GetAllChildID(CCJCCCJ) & CJCJJJJJ("X")
if CJJJJJCC(CCJCJCJ) then sql=sql & CJCJJJJJ(" ,2?5 ,:5l") & CCJCJCJ
if CJJJCCJ<>"" then sql=sql & CJCJJJJJ(" ,2?5 ,>6>36C0EJA60?2>6 ,=:<6 ,VT") & CJJJCCJ & CJCJJJJJ("TV")
if CJJJJJCC(CCJCJCC) then sql=sql & CJCJJJJJ(" ,2?5 ,766l") & CCJCJCC
if CJJJJJCC(CCJCCJJ) then sql=sql & CJCJJJJJ(" ,2?5 ,EJA6l") & CCJCCJJ
if isdate(CCJCCCC) then sql=sql & CJCJJJJJ(" ,2?5 ,52E6E:>6mlV") & CCJCCCC & CJCJJJJJ("V")
if isdate(CCCJJJJ) then sql=sql & CJCJJJJJ(" ,2?5 ,52E6E:>6klV") & cdate(CCCJJJJ)+1 & CJCJJJJJ("V")
sql=sql & CJCJJJJJ(" ,@C56C ,3J ,52E6E:>6 ,56D4"):dim CCCJJCJ,CCCJJCC,CCCJCJJ:set CCCJCJJ=new splitpage:with CCCJCJJ:.sql=sql:.pagesize=25:.style=4:end with:set rs=CCCJCJJ.rs:for CCCCCJ=1 to CCCJCJJ.pagesize:CCCJJCC=rs(0):if CCCCCJ mod 2=0 then CCCJJCJ=CJCJJJJJ("Rtsuaur") else CCCJJCJ=CJCJJJJJ("Ruuuuuu")
Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJJCC:Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5mk2 ,9C67lQ]]^]]^D49@@=^:?56I]2DAnD49@@=l")):Response.Write CCCJJCC:Response.Write(CJCJJJJJ("Q ,E2C86ElQ03=2?<Qm")):Response.Write rs(1):Response.Write(CJCJJJJJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):select case rs(2):case 0 : response.Write CJCJJJJJ("????"):case 1 : response.Write CJCJJJJJ("????"):case 2 : response.Write CJCJJJJJ("????"):case 3 : response.Write CJCJJJJJ("????"):end select:Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJJJC(rs(6)):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(4):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(11),CCCCCCJ,""):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(15),CCCCCCJ,""):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(12),CCCCCCJ,""):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(8),CCCCCCJ,""):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(14),CCCCCCJ,""):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(10),CCCCCCJ,""):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(3):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(9):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJJCJJC(rs(5),0):Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,g__[d__.Q ,9C67lQ>@5:7J]2DAn:5l")):Response.Write CCCJJCC:Response.Write(CJCJJJJJ("Qm????k^2m ,k2 ,9C67lQ]]^>6>36C^EJA6]2DAnA2C:5l")):Response.Write rs(7):Response.Write(CJCJJJJJ("Q ,E:E=6lQ????????????????????????????Qm????????k^2m ,k2 ,9C67lQ;@:?]2DAnEJA6:5l")):Response.Write CCCJJCC:Response.Write(CJCJJJJJ("Q ,E:E=6lQ????????????????????,??????????Q ,E2C86ElQ03=2?<Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJCJJJJJ(" ,kE5 ,4@=DA2?lQ`eQm")):call CCCJCJJ.showpage:set CCCJCJJ=nothing:Response.Write(CJCJJJJJ("k^E5m") & vbCrLf):Response.Write(CJCJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJJJ("k^E23=6m") & vbCrLf)
Else
response.write CJCJJJJJ("k5:G ,2=:8?lV46?E6CVmk3m????????????????????,??????????????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJJJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCJJJJJ(" ,SWVE9,E:E=6.[2,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CJCJJJJJ("NX") & vbCrLf):Response.Write(CJCJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCCC=nothing:set CJJJJCJC=nothing:set CJJJJCCJ=nothing:set CJJJJCCC=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 CJCJJJJJ(ByVal CJJCCCCC)
Dim CCCJCJC, CCCCCJ, CJJJCCJ
CJJCCCCC = Replace(CJJCCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCCJ = 1 To Len(CJJCCCCC)
If CCCCCJ <> CJJJCCJ Then
CCCJCJC = AscW(Mid(CJJCCCCC, CCCCCJ, 1))
If CCCJCJC >= 33 And CCCJCJC <= 79 Then
CJCJJJJJ = CJCJJJJJ & Chr(CCCJCJC + 47)
ElseIf CCCJCJC >= 80 And CCCJCJC <= 126 Then
CJCJJJJJ = CJCJJJJJ & Chr(CCCJCJC - 47)
Else
CJJJCCJ = CCCCCJ + 1
If Mid(CJJCCCCC, CJJJCCJ, 1) = Chr(64) Then CJCJJJJJ = CJCJJJJJ & ChrW(CCCJCJC + 5) Else CJCJJJJJ = CJCJJJJJ & Mid(CJJCCCCC, 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