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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCC, CCJJJ,rs, CCJCJ, sql:Set CJCCC = server.CreateObject(CJJJCCCJ("ps~sq]r@??64E:@?")):CJCCC.open Application(CJJJCCCJ("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Dim CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ:Dim CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ:Dim CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ:CJCCCJ=Trim(Request.Cookies(CJJJCCCJ("!$*|t|qt#"))):if CJCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJJ>0 then
sql=CJJJCCCJ("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") & CCCJC & CJJJCCCJ("V ,2?5 ,:5l") & CCCJJ
set rs=CJCCC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCCCJ=rs(2) & "":CCCCC=rs(3):CJJJJJ=rs(5):CJJJJC=rs(6):CJJJCJ=rs(9):CJJJCC=rs(15):CJJCJC=rs(0):CJCCJJ=rs(1):CJCJCC=rs(11) & "":CJJCCJ=rs(10) & "":CJJCJJ=rs(12):CJJCCC=rs(14):CJCJJJ=rs(13):CJCJJC=rs(7) & "":CJCJCJ=rs(4):CJCCJC=rs(8):if isnull(CJJJCC) then CJJJCC=0
if isnull(CJJJCJ) or CJJJCJ=0 then CJJJCJ=CCCCC
if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJJJJJ) then CJJJJJ=0
if instr(CJJJCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJC)>0 then Call RedirectMessage(CJJJCCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCJJ,CCCJC)
End IF
end if:Sub CheckRight(CJJJCCCC):dim CJCCCC,CCJJJJ:if CCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJCCCJ("??????????????,????????????,"))
elseIf not CCJCCCJ(CJJJCCCC) then
Call RedirectMessage(CJJJCCCJ("????W") & CJJJCCCC & CJJJCCCJ("X????????,????????????????????,"))
end if:End Sub:Function CCJCCCJ(CJJJCCCC):dim CJCCCC,CCJJJJ:CCJJJJ=split(CJJJCCCC,CJJJCCCJ("[")):CCJCCCJ=False:for CJCCCC=0 to ubound(CCJJJJ):If Mid(CCCCJ,CCJJJJ(CJCCCC),1)="1" then
CCJCCCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJJC:CCJJJC=trim(request.QueryString(CJJJCCCJ("D49@@="))):if isnumeric(CCJJJC) then
response.Redirect CJJJCCCJ("^>^G2?E^R^D49@@=^") & CCJJJC & CJJJCCCJ("^DEF56?E^=@8:?nC65:C64El") & CCCJJJ
else
Call RedirectMessage(CJJJCCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJCCCJ("!$*|t|qt#"))="":CCCJJ=0:CJJJJC=0:CCCJC=Empty:CJJJJJ=0:CJJJCC=0:CJJJCJ=0:CCCCC=0:CJJCJC=False:CJCCJJ=False:CJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJCJ,CCJJCC,CJCCCC,CCJCJJ,CCJCJC:CCJJCJ=split(CJCCCJ,CJJJCCCJ("]")):if ubound(CCJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJCJ(0)) or len(CCJJCJ(1))<>32 or len(CCJJCJ(2))<>32 then
Call ClearMemberCookie
else
CCJJCC=CCJJCJ(1):for CJCCCC=1 to len(CCJJCC):CCJCJJ=mid(CCJJCC,CJCCCC,1):if isnumeric(CCJCJJ) then CCJCJC=CCJCJC & CCJCJJ
if len(CCJCJC)=7 then exit for
next:CCJJCC=CCJJCJ(2):if CCJCJC<>mid(CCJJCC,6,7) then
Call ClearMemberCookie
else
CCJCJJ=mid(CCJJCC,18,10)/2:if CCJCJJ<DateDiff(CJJJCCCJ("D"), CJJJCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJJ=Clng(CCJJCJ(0)):CCCJC=CCJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJCC,CJJCJJJJ):dim CJCCCC,CCJCJJ,CCJCJC:for CJCCCC=1 to len(CJJCJJJJ):CCJCJJ=mid(CJJCJJJJ,CJCCCC,1):if isnumeric(CCJCJJ) then CCJCJC=CCJCJC & CCJCJJ
if len(CCJCJC)=7 then exit for
next:CCJCJC=CCJJJCC & CJJJCCCJ("]") & CJJCJJJJ & CJJJCCCJ("]") & Fix(10000*(Rnd+1)) & CCJCJC & Fix(10000*(Rnd+1)) & DateDiff(CJJJCCCJ("D"), CJJJCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJCCCJ("!$*|t|qt#"))=CCJCJC:End Sub:::Function IIf(CJJCJJJC, CJJCJJCJ, CJJCJJCC):if isnull(CJJCJJJC) or isempty(CJJCJJJC) then
IIf = CJJCJJCC
elseif CJJCJJJC Then
IIf = CJJCJJCJ
Else
IIf = CJJCJJCC
end if:End Function:Const CCJJCJC="^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 CJCCCC,CCJCJJ,CCJCCJ:if isarray(str) then
on error resume next:CJCCCC=ubound(str,2):CCJCCJ=err.number:err.clear:on error goto 0:if CCJCCJ<>0 then
for CJCCCC=0 to ubound(str):if CJCCCC>0 then response.Write CJJJCCCJ("k3C ,^m")
response.Write CJCCCC & CJJJCCCJ("i ,") & str(CJCCCC):next
else
response.Write CJJJCCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCCC=0 to ubound(str,2):response.Write CJJJCCCJ("kE9 ,2=:8?lV=67EVm") & CJCCCC & CJJJCCCJ("k^E9m")
next:response.Write CJJJCCCJ("k^ECm"):for CJCCCC=0 to ubound(str):response.Write CJJJCCCJ("kECmkE9m") & CJCCCC & CJJJCCCJ("k^E9m"):for CCJCJJ=0 to ubound(str,2):response.Write CJJJCCCJ("kE5m") & str(CJCCCC,CCJCJJ) & CJJJCCCJ("k^E5m"):next:response.Write CJJJCCCJ("k^ECm"):next:response.Write CJJJCCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJCCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJCCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCJJJJ():Dim CCJCCC, CCCJJJ:CCCJJJ = Request.ServerVariables(CJJJCCCJ("!p%w0x}u~")):CCJCCC = Request.ServerVariables(CJJJCCCJ("""&t#*0$%#x}v")):If CCJCCC <> Empty Then
if instr(lcase(CCJCCC),CJJJCCCJ("Tb4:7C2>6"))>0 or instr(lcase(CCJCCC),CJJJCCCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJCCCJ("????????,????????????????????????,??,??,"))
CCCJJJ = CCCJJJ & CJJJCCCJ("n") & CCJCCC
end if:CCCJJJJ = CCCJJJ:End Function:Sub SetHttpOnlyCookie(CJJCJCJJ,CJJCJCJC):dim CCJJCJ:CCJJCJ=CJJCJCJJ & CJJJCCCJ("l") & CJJCJCJC & CJJJCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJCCCJ("$6E\r@@<:6"),CCJJCJ):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJJCCCJ("!$*"))(CJJJCCCJ("&#{")) = CCCJJJJ:End Sub::::::Function CCCJJJC(CCJCCJ):if isnull(CCJCCJ) or trim(CCJCCJ)="" or not isnumeric(CCJCCJ) then
CCCJJJC=false
else
Dim CCCJJC:Set CCCJJC = New RegExp:CCCJJC.Pattern = CJJJCCCJ("/-5ZS"):CCCJJC.IgnoreCase = True:CCCJJJC = CCCJJC.test(CCJCCJ):set CCCJJC=nothing
end if:End Function:Function CCCJJCJ(CJJCJCCJ):dim CCCJCJ,CCCJCC:CCCJCJ=CJJJCCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCCJ & CJJJCCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCJCC=CJCCC.execute(CCCJCJ):CCCJJCJ = CCCJCC(0):if isnull(CCCJJCJ) then CCCJJCJ=1
CCCJCC.close : set CCCJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCJJJC=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:CCCJCC.close : set CCCJCC=nothing:CCJCJ.Close : Set CCJCJ=Nothing:rs.Close : Set rs=Nothing:CCCJCCJ.Close : Set CCCJCCJ = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJCCCJ("!$*0|6DD286"),server.URLEncode(CJJCJCCC)):Response.Redirect CJJJCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCJCCC(ByVal CCCCJJJ,style):if not isdate(CCCCJJJ) then
CCCJCCC=CCCCJJJ:exit function
end if:dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:CCCCJJJ=cdate(CCCCJJJ):CCCCJJ=Year(CCCCJJJ):CCCCJC=Month(CCCCJJJ):CCCCCJ=Day(CCCCJJJ):select case style:case 0:CCCJCCC=CCCCJJ & CJJJCCCJ("\") & right(0 & CCCCJC,2) & CJJJCCCJ("\") & right(0 & CCCCCJ,2):case 1:CCCJCCC=CCCCJJ & right(0 & CCCCJC,2) & right(0 & CCCCCJ,2):case 2:CCCJCCC=right(CCCCJJ,2) & CJJJCCCJ("\") & right(0 & CCCCJC,2) & CJJJCCCJ("\") & right(0 & CCCCCJ,2):case 3:CCCJCCC=CCCCJJ & CJJJCCCJ("\") & right(0 & CCCCJC,2):case 4:CCCJCCC=right(0 & CCCCJC,2) & CJJJCCCJ("\") & right(0 & CCCCCJ,2):case 5:CCCJCCC=right(0 & CCCCCJ,2):case 6:CCCJCCC=CCCCJJ & CJJJCCCJ("??") & right(0 & CCCCJC,2) & CJJJCCCJ("??") & right(0 & CCCCCJ,2) & CJJJCCCJ("??"):case else
CCCJCCC=CCCCJJJ:end select:End Function::::::::::::::::::::Sub ClearCache(CJJCCJJJ):Application.Contents.Remove CJJCCJJJ
End Sub::Const CCJJCCJ ="9"
Const CCJJCCC ="7"
Const CCJCJJJ ="3"
Const CCJCJJC ="4"
Const CCJCJCJ ="8"
Const CCJCJCC =":"
Const CCJCCJJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJJJJJC, CJJJJCJ, CJJJJCC, CJJJCJJ, CJJJCJC, CCCJJJ, CJJJCCJ, CJJJCCC, CJJCJJJ, CJJCJJC:Private Function CCCCJJC():Dim CJJCJCJ:CJJCJCJ = "??" & CJJJCJC & CJJJCCCJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJCJJJ & CJJJCCCJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJJCJJ & CJJJCCCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJJCCCJ("k^3mk^DA2?m??")
CCCCJJC = CJJCJCJ:End Function:Private Function CCCCJCJ():CCCCJCJ = CJJJCCCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJJJCJJ & CJJJCCCJ("V ,DEJ=6lV") & CCJCCJJ & CJJJCCCJ("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") & CCCJJJ & CJJJCCCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CCCCJCC():CCCCJCC = CJJJCCCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCJCCJJ & CJJJCCCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCCJJJ & CJJJCCCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CCCCCJJ():Dim CJJCJCJ, CJCCCC:CJJCJCJ = CJJJCCCJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCCJJJ & CJJJCCCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJCCCC = 1 To PageCount:CJJCJCJ = CJJCJCJ & CJJJCCCJ("k@AE:@? ,G2=F6lV") & CJCCCC & CJJJCCCJ("V")
If CJCCCC = CJJJCJJ Then CJJCJCJ = CJJCJCJ & CJJJCCCJ(" ,D6=64E65")
CJJCJCJ = CJJCJCJ & CJJJCCCJ("m") & CJCCCC & CJJJCCCJ("k^@AE:@?m"):Next:CJJCJCJ = CJJCJCJ & CJJJCCCJ("k^D6=64Em??"):CCCCCJJ = CJJCJCJ:End Function:Public Sub ShowPage():Dim CJCCCC, CJJCJCC,CJJCCJJ,CJJCCJC:if CJJJCJC>0 then
CJJCJCC = CJJJCCCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CCCCJJC & CJJJCCCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJJCJJC:Case 1: CJJCCJC = CCCCCCC:Case 2: CJJCCJC = CJJJJJJJ:Case 3: CJJCCJC = CJJJJJJC:Case 4: CJJCCJC = CJJJJJCJ:Case 5: CJJCCJC = CJJJJJCC:Case 6: CJJCCJC = CJJJJCJJ:Case 7: CJJCCJC = CJJJJCJC:Case 8: CJJCCJC = CJJJJCCJ:End Select
End If:CJJCCJJ = CJJJCCCJ("k^5:Gmk^5:Gm")
end if:if CJJCJJC>=6 then
Response.Write CJJCCJC
else
Response.Write CJJCJCC & CJJCCJC & CJJCCJJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJJJJCJ = Server.CreateObject(CJJJCCCJ("ps~sq]#64@C5$6E")):CJJJJCJ.PageSize = CJJCJJJ:CJJJJCJ.Open CJJJJCC, CJJJJJC, 1:If err then
Response.Write	CJJJCCCJ("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 & CJJJCCCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJJJJCJ.EOF Then
CJJJCJC = CJJJJCJ.RecordCount:PageCount = CJJJJCJ.PageCount:If CJJJCJJ > PageCount Then CJJJCJJ = PageCount
CJJJJCJ.AbsolutePage = CJJJCJJ
End If:Set Rs = CJJJJCJ:End Function:Public Property Let CCJJJ(CJJCCJJC):Set CJJJJJC = CJJCCJJC:End Property:Public Property Let SQL(str):CJJJJCC = str:End Property:Public Property Let Style(CJJJCCCC):If IsNumeric(CJJJCCCC) Then
CJJCJJC = CInt(CJJJCCCC):If CJJCJJC < 1 Or CJJCJJC > 8 Then CJJCJJC = 1
Else
CJJCJJC = 1
End If:End Property:Public Property Let PageSize(CJJJCCCC):If IsNumeric(CJJJCCCC) Then
CJJCJJJ = CInt(CJJJCCCC):If CJJCJJJ < 1 Then CJJCJJJ = 10
Else
CJJCJJJ = 10
End If:End Property:Public Property Get PageSize():If CJJJCJJ = PageCount Then
PageSize = CJJJCJC - CJJCJJJ * (PageCount - 1)
Elseif CJJJCJC=0 then
pagesize=0
else
PageSize = CJJCJJJ
end if:End Property:Private Sub Class_Initialize():dim CJJCCCJ:CJJCJJJ = 10:CJJCJJC = 1:Set CJJJJJC = CJCCC:CJJJCJJ = Trim(Request.QueryString(CJJJCCCJ("!286"))):If IsNumeric(CJJJCJJ) Then
CJJJCJJ = CLng(CJJJCJJ):If CJJJCJJ < 1 Then CJJJCJJ = 1
Else
CJJJCJJ = 1
End If:CJJJCCC = Trim(Request.ServerVariables(CJJJCCCJ("&#{"))):CJJJCCC = Mid(CJJJCCC, InStrRev(CJJJCCC, CJJJCCCJ("^")) + 1):CJJJCCJ = Split(Trim(Request.ServerVariables(CJJJCCCJ("""&t#*0$%#x}v"))), CJJJCCCJ("U")):CCCJJJ = Server.HtmlEncode(CJJCCJCJ):CJJCCCJ=lcase(CCCJJJ):if instr(CJJCCCJ,CJJJCCCJ("Tb4:7C2>6"))>0 or instr(CJJCCCJ,CJJJCCCJ("Tb4D4C:AE"))>0 or instr(CJJCCCJ,CJJJCCCJ("V"))>0 or instr(CJJCCCJ,CJJJCCCJ(";2G2D4C:AE"))>0 or instr(CJJCCCJ,CJJJCCCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJJCCCJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CJJJCCCC):ListNum = CJJCJJJ * (CJJJCJJ - 1) + CJJJCCCC:End Function:Private Function CJJCCJCJ():Dim CJCCCC, str:For CJCCCC = 0 To UBound(CJJJCCJ):If InStr(LCase(CJJJCCJ(CJCCCC)), CJJJCCCJ("A286l")) = 0 Then str = str & CJJJCCCJ("U") & CJJJCCJ(CJCCCC)
Next:str = Mid(str, 2):If str = "" Then CJJCCJCJ = CJJJCCC & CJJJCCCJ("n") & CJJJCCCJ("A286l") Else CJJCCJCJ = CJJJCCC & CJJJCCCJ("n") & str & CJJJCCCJ("UA286l")
End Function:Private Function CCCCCCC():Dim str:str = CJJJCCCJ("???? ,??"):For CJCCCC = 1 To PageCount:If CJCCCC = CJJJCJJ Then str = str & CJJJCCCJ("k3m") & CJCCCC & CJJJCCCJ("k^3m ,") Else str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJCCCC & CJJJCCCJ("Vm") & CJCCCC & CJJJCCCJ("k^2m ,")
Next:str = str & CJJJCCCJ("??"):CCCCCCC = str:End Function:Private Function CJJJJJJJ():Dim str:If CJJJCJJ > 1 Then
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCCCJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJJCCJ & CJJJCCCJ("k^2m ,")
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ - 1 & CJJJCCCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJJJ & CJJJCCCJ("k^2m ,")
Else
str = str & CCJJCCJ & CJJJCCCJ(" ,") & CCJCJJJ
End If:If CJJJCJJ < PageCount Then
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ + 1 & CJJJCCCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJJC & CJJJCCCJ("k^2m ,")
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & PageCount & CJJJCCCJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJCC & CJJJCCCJ("k^2m ,")
Else
str = str & CCJCJJC & CJJJCCCJ(" ,") & CCJCJCC
End If:str = str & CCCCJCJ:str = str & CCCCJCC:CJJJJJJJ = str:End Function:Private Function CJJJJJJC():Dim str, CCJJCC:CCJJCC = (CJJJCJJ - 1) \ 10:If CJJJCJJ = 1 Then str = str & CCJJCCJ & CJJJCCCJ(" ,") Else str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCCCJ("`V ,E:E=6lV????Vm") & CCJJCCJ & CJJJCCCJ("k^2m ,")
If CCJJCC * 10 > 0 Then str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ - 10 & CJJJCCCJ("V ,E:E=6lV??????Vm") & CCJJCCC & CJJJCCCJ("k^2m ,")
For CJCCCC = (CCJJCC * 10 + 1) To (CCJJCC * 10 + 10):If CJCCCC = CJJJCJJ Then str = str & CJJJCCCJ("k3m") & CJCCCC & CJJJCCCJ("k^3m ,") Else str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJCCCC & CJJJCCCJ("V ,E:E=6lV??????") & CJCCCC & CJJJCCCJ("??Vm") & CJCCCC & CJJJCCCJ("k^2m ,")
If CJCCCC = PageCount Then Exit For
Next:If CJCCCC < PageCount Then str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJCCCC & CJJJCCCJ("V ,E:E=6lV??????Vm") & CCJCJCJ & CJJJCCCJ("k^2m ,")
If CJJJCJJ = PageCount Then str = str & CCJCJCC Else str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & PageCount & CJJJCCCJ("V ,E:E=6lV????Vm") & CCJCJCC & CJJJCCCJ("k^2m")
CJJJJJJC = str:End Function:Private Function CJJJJJCJ():Dim str, CCJCCJ, CJCJJJJ, CJCCCC:If CJJJCJJ > 4 Then str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCCCJ("`Vm,`.k^2m ,]]]")
If CJJJCJJ < PageCount - 3 Then CJCJJJJ = CJJJCJJ + 3 Else CJCJJJJ = PageCount
For CJCCCC = CJJJCJJ - 3 To CJCJJJJ:If CJCCCC >= 1 Then
If CJCCCC = CJJJCJJ Then str = str & CJJJCCCJ(" ,k3m,") & CJCCCC & CJJJCCCJ(".k^3m") Else str = str & CJJJCCCJ(" ,k2 ,9C67lV") & CCCJJJ & CJCCCC & CJJJCCCJ("Vm,") & CJCCCC & CJJJCCCJ(".k^2m")
End If:Next:If CJJJCJJ < PageCount - 3 Then str = str & CJJJCCCJ(" ,]]] ,k2 ,9C67lV") & CCCJJJ & PageCount & CJJJCCCJ("Vm,") & PageCount & CJJJCCCJ(".k^2m")
CJJJJJCJ = str:End Function:Private Function CJJJJJCC():Dim str:If CJJJCJJ > 1 Then
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCCCJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ - 1 & CJJJCCCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJJJCCCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJJJCJJ < PageCount Then
str = str & CJJJCCCJ(" ,k2 ,9C67lV") & CCCJJJ & CJJJCJJ + 1 & CJJJCCCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & PageCount & CJJJCCCJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJJJCCCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CCCCCJJ:CJJJJJCC = str:End Function:Private Function CJJJJCJJ():Dim str:if CJJJCJJ>=2 then
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ - 1 & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ - 1 & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJJJCJJ-1 & CJJJCCCJ("k^2m")
end if:str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJJJCJJ & CJJJCCCJ("k^2m")
if pagecount>CJJJCJJ then
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ + 1 & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJJJCJJ+1 & CJJJCCCJ("k^2m")
str = str & CJJJCCCJ("k2 ,9C67lV") & CCCJJJ & CJJJCJJ + 1 & CJJJCCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJJJCJJ=str:End Function:Private Function CJJJJCJC():Dim str:str=CJJJCCCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJJJCJJ>=2 then
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CCCJJJ & CJJJCJJ - 1 & CJJJCCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CCCJJJ & CJJJCJJ - 1 & CJJJCCCJ("Vm") & CJJJCJJ-1 & CJJJCCCJ("k^2mk^=:m")
end if:str = str & CJJJCCCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCCJJJ & CJJJCJJ & CJJJCCCJ("Vm") & CJJJCJJ & CJJJCCCJ("k^2mk^=:m")
if pagecount>CJJJCJJ then
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CCCJJJ & CJJJCJJ + 1 & CJJJCCCJ("Vm") & CJJJCJJ+1 & CJJJCCCJ("k^2mk^=:m")
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CCCJJJ & CJJJCJJ + 1 & CJJJCCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJJCCCJ("k^F=m"):CJJJJCJC=str:End Function:Private Function CJJJJCCJ():Dim str:str=CJJJCCCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJJJCJJ>=2 then
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CCCJJJ & CJJJCJJ - 1 & CJJJCCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CCCJJJ & CJJJCJJ - 1 & CJJJCCCJ("Vm") & CJJJCJJ-1 & CJJJCCCJ("k^2mk^=:m")
end if:str = str & CJJJCCCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCCJJJ & CJJJCJJ & CJJJCCCJ("Vm") & CJJJCJJ & CJJJCCCJ("k^2mk^=:m")
if pagecount>CJJJCJJ then
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CCCJJJ & CJJJCJJ + 1 & CJJJCCCJ("Vm") & CJJJCJJ+1 & CJJJCCCJ("k^2mk^=:m")
str = str & CJJJCCCJ("k=:mk2 ,9C67lV") & CCCJJJ & CJJJCJJ + 1 & CJJJCCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJJCCCJ("k^F=m"):CJJJJCCJ=str:End Function:End Class::Class jTree:Private Sql, CJCJJJC, CJCJJCJ, CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Private Sub Class_Initialize():CJCJJCJ = 0:CJCJJCC = 0:CJCJCCC=10:End Sub:Public Property Let Table(CJJCCJCC):if CJJCCJCC="" then Call RedirectMessage(CJJJCCCJ("????????,;%C66????????????????????@??????????,"))
CJCJCJJ=CJJCCJCC:CJCJCJC=CJJJCCCJ("!$*0") & UCase(CJCJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCJJ:End Property:::Private Sub GetTreeArray():Dim CJCCCC, CCJCJJ, CJCCJJJ,RecordCount:CJCJJJC = Application(CJCJCJC):If Not IsArray(CJCJJJC) Then
Sql = CJJJCCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCJJ:if CJCJCCJ<>"" then Sql=Sql & CJJJCCCJ(" ,H96C6 ,") & CJCJCCJ
set CJCCJJJ=CJCCC.execute(sql):RecordCount=CJCCJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJJCCCJ("????W") & CJCJCJJ & CJJJCCCJ("^") & CJCJCCJ & CJJJCCCJ("X????????????"))
CJCJJCC=RecordCount+CJCJCCC:ReDim CJCJJJC(CJCJJCC, 4):Sql = CJJJCCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJJCCCJ(" ,H:E9 ,W?@=@4<X"):if CJCJCCJ<>"" then Sql=Sql & CJJJCCCJ(" ,H96C6 ,") & CJCJCCJ
Sql=Sql & CJJJCCCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCJJJ=CJCCC.execute(sql):For CJCCCC = 1 To RecordCount:For CCJCJJ = 0 To 4:CJCJJJC(CJCCCC, CCJCJJ) = CJCCJJJ(CCJCJJ):if IsNull(CJCJJJC(CJCCCC,4)) then CJCJJJC(CJCCCC,4)=0
If CJCJJJC(CJCCCC,2)="" then CJCJJJC(CJCCCC,2)=CJJJCCCJ(",??.")
Next:CJCCJJJ.MoveNext:Next:CJCCJJJ.Close: Set CJCCJJJ = Nothing:for CJCCCC=CJCJJCC-(CJCJCCC-1) to CJCJJCC:CJCJJJC(CJCCCC,0)=CJCCCC:next:Application.Lock():Application(CJCJCJC) = CJCJJJC:Application.UnLock()
else
CJCJJCC=Ubound(CJCJJJC)
End If:End Sub:Public Sub ShowChild_Select(CCJJJCC, CJJJCJJJ):Dim CJCCCC:CCJJJCC=CLng(CCJJJCC):CJJJCJJJ=Cstr(CJJJCJJJ):For CJCCCC = 1 To CJCJJCC:If CJCJJJC(CJCCCC, 1) = CCJJJCC Then
Response.Write CJJJCCCJ("k@AE:@? ,G2=F6lV") & CJCJJJC(CJCCCC, 0) & CJJJCCCJ("V")
If Instr(CJJJCCCJ("[") & CJJJCJJJ & CJJJCCCJ("["),CJJJCCCJ("[") & CJCJJJC(CJCCCC, 0) & CJJJCCCJ("["))>0 Then Response.Write CJJJCCCJ(" ,D6=64E65")
Response.Write CJJJCCCJ("m\ ,") & CJCJJJC(CJCCCC, 2) & CJJJCCCJ("k^@AE:@?m")
End If:Next:End Sub::::Private Function CJJJCJJC(CCJJJCC):dim CJCCCC,CJCCJCJ:CJJJCJJC=0:CJCCJCJ=CStr(CCJJJCC):if CJCCJCJ<>"0" then
for CJCCCC=1 to CJCJJCC:If CStr(CJCJJJC(CJCCCC, 0))=CJCCJCJ Then
CJJJCJJC = CJCCCC:Exit For
End If:Next
end if:End Function::::Public Function CJJJCJCJ(CCJJJCC):Dim CJCCCC,CJCCJCC:CJCCCC=CJJJCJJC(CCJJJCC):if CJCCCC=0 then
CJCCJCC=CJJJCJCC(CCJJJCC)
else
CJCCJCC=CJCJJJC(CJCCCC,3):if isnull(CJCCJCC) or CJCCJCC="" then
CJCCJCC=CJJJCJCC(CCJJJCC)
elseif Mid(CJCCJCC,instrrev(CJCCJCC,CJJJCCCJ("["))+1)<>CStr(CCJJJCC) then
CJCCJCC=CJJJCJCC(CCJJJCC)
elseif Left(CJCCJCC,1)=CJJJCCCJ("[") then
CJCCJCC=CJJJCJCC(CCJJJCC)
end if
end if:CJJJCJCJ=CJCCJCC:End Function:Private Function CJJJCJCC(CCJJJCC):dim CJCCJCJ:CJCCJCJ=CStr(CCJJJCC):if CJCCJCJ="0" then
CJJJCJCC=""
else
dim CJCCJJJ:set CJCCJJJ=CJCCC.execute(CJJJCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJJCCCJ(" ,H96C6 ,:5l") & CCJJJCC):if CJCCJJJ.eof then
Call UpdateCache(CCJJJCC,"","","",""):Call RedirectMessage(CJJJCCCJ("??????,xs??,") & CCJJJCC & CJJJCCCJ("??,????????,????????????????????,"))
else
if CJCCJJJ(0)=0 then
CJJJCJCC="0," & CCJJJCC
else
CJJJCJCC=CJJJCJCJ(CJCCJJJ(0)) & CJJJCCCJ("[") & CCJJJCC
end if:if CJCCJJJ(2)<>CJJJCJCC then
CJCCC.execute CJJJCCCJ("FA52E6 ,") & CJCJCJJ & CJJJCCCJ(" ,D6E ,A2E9lV") & CJJJCJCC & CJJJCCCJ("V ,H96C6 ,:5l") & CCJJJCC
else
CJJJCJCC=CJCCJJJ(2)
end if
end if:Call UpdateCache(CCJJJCC,CJCCJJJ(0),CJCCJJJ(1),CJJJCJCC,CJCCJJJ(3)):CJCCJJJ.Close: Set CJCCJJJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCJCJC
End Sub:Public Sub UpdateCache(CCJJJCC,CJJCCCJJ,CJJCCCJC,CJCCJCC,CJJCCCCJ):dim CJCCCC,CCJCJJ:CCJJJCC=CLng(CCJJJCC):CJCCCC=CJJJCJJC(CCJJJCC):if CJJCCCJJ="" and CJJCCCJC="" and CJCCJCC="" and CJJCCCCJ="" then
if CJCCCC>0 then
for CCJCJJ=1 to 4:CJCJJJC(CJCCCC,CCJCJJ)=Null:next
end if
else
if CJCCCC=0 then
for CCJCJJ=1 to CJCJJCC:if CJCJJJC(CCJCJJ,1) & ""="" then
CJCCCC=CCJCJJ:exit for
end if:next
end if:if CJCCCC=0 then
Call ClearCache
else
CJCJJJC(CJCCCC,0)=CLng(CCJJJCC):if CJJCCCJJ<>"" then CJCJJJC(CJCCCC,1)=CLng(CJJCCCJJ)
if CJJCCCJC<>"" then CJCJJJC(CJCCCC,2)=CJJCCCJC
if CJCCJCC<>"" then CJCJJJC(CJCCCC,3)=CJCCJCC
if CJJCCCCJ<>"" then CJCJJJC(CJCCCC,4)=CLng(CJJCCCCJ)
end if
end if:if CJCCCC>0 then
Application.Lock():Application(CJCJCJC) = CJCJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCCC):Call ConnClose:Response.Write CJJCJCCC:Response.End:End Sub:Private Function CCCJJCJ():CCCJJCJ=CJJJCCJJ+1:End Function:Private Function CJJJCCJJ():dim CCCJCC:set CCCJCC=CJCCC.execute(CJJJCCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCJJ & CJJJCCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCJJ=CCCJCC(0):CCCJCC.Close: Set CCCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCJJJC:sql=Request.ServerVariables(CJJJCCCJ("!p%w0x}u~")):if instr(sql,CJJJCCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCJC and not CJCCJJ then Call RedirectMessage(CJJJCCCJ("????????,????????????????????????,"))
CCJJJC=CJJJCJ
elseif instr(sql,CJJJCCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJJJCCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CCJJJC=CJJJCJ
elseif instr(sql,CJJJCCCJ("^D49@@="))>0 then
CCJJJC=Request.QueryString(CJJJCCCJ("D49@@=")):if not CCCJJJC(CCJJJC) then CCJJJC=Request.QueryString(CJJJCCCJ("F"))
if not CCCJJJC(CCJJJC) then CCJJJC=Request.QueryString(CJJJCCCJ("D4"))
if not CCCJJJC(CCJJJC) then Call RedirectMessage(CJJJCCCJ("????????W$49@@=X??@??????????,"))
CCJJJC=csng(CCJJJC)
end if:if CCJJJC=0 then Call RedirectMessage(CJJJCCCJ("????????W$49@@=X????W_X??,"))
Dim CJCCCJJ:Call SetConfig:Sub SetConfig():dim CCJJJJ,CCCJCC:sql=CJJJCCCJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJJJC:set CCCJCC=CJCCC.execute(sql):if CCCJCC.eof then Call RedirectMessage(CJJJCCCJ("??W") & CCCJJ & CJJJCCCJ("X??????????W") & CCJJJC & CJJJCCCJ("X????????,"))
ReDim CCJJJJ(61):CCJJJJ(0)=CCCJCC(CJJJCCCJ(";:2@H6:")) & "":CCJJJJ(1)=CCCJCC(CJJJCCCJ("EJA6")):CCJJJJ(2)=CCCJCC(CJJJCCCJ("D>D")):CCJJJJ(3)=CCCJCC(CJJJCCCJ("4FDE@>8C@FA")) & "":CCJJJJ(4)=CCCJCC(CJJJCCCJ("D:5632C0@E96C")) & "":CCJJJJ(5)=IIf(isnull(CCCJCC(CJJJCCCJ("E6DEC6DF=EG:6H"))),0,CCCJCC(CJJJCCCJ("E6DEC6DF=EG:6H"))):CCJJJJ(6)=CCCJCC(CJJJCCCJ("K:IF?E:>6")):CCJJJJ(7)=CCCJCC(CJJJCCCJ("766")):CCJJJJ(8)=CCCJCC(CJJJCCCJ("C6E6DE52J")):CCJJJJ(9)=CCCJCC(CJJJCCCJ("6IA:C652E6")):CCJJJJ(10)=CCCJCC(CJJJCCCJ("E:E=6")):CCJJJJ(11)=CCCJCC(CJJJCCCJ(":?EC@")) & "":CCJJJJ(12)=CCCJCC(CJJJCCCJ("A:4EFC6")) & "":CCJJJJ(13)=CCCJCC(CJJJCCCJ("72>:=J")):CCJJJJ(14)=CCCJCC(CJJJCCCJ("4@AJC:89E")) & "":CCJJJJ(15)=IIf(isnull(CCCJCC(CJJJCCCJ("D6>6DE6C0DE2CE052E6"))),CJJJCCCJ("`h__\`\`"),CCCJCC(CJJJCCCJ("D6>6DE6C0DE2CE052E6"))):CCJJJJ(16)=IIf(isnull(CCCJCC(CJJJCCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCCJCC(CJJJCCCJ("K:IF?0E:>6D09:89=:89E"))):CCJJJJ(17)=CCCJCC(CJJJCCCJ("4@?E24E")) & "":CCJJJJ(18)=CCCJCC(CJJJCCCJ("D2?5E23=6")):CCJJJJ(19)=CCCJCC(CJJJCCCJ("4C:D:D")):CCJJJJ(20)=CCCJCC(CJJJCCCJ("JJ52E6")):CCJJJJ(21)=CCCJCC(CJJJCCCJ("BB")):CCJJJJ(22)=CCCJCC(CJJJCCCJ("JFJF60D>D0EA=")) & "":CCJJJJ(23)=CCCJCC(CJJJCCCJ("JFJF60E6DE0=3")) & "":CCJJJJ(25)=CCCJCC(CJJJCCCJ("6IA6CE")):CCJJJJ(26)=CCCJCC(CJJJCCCJ(">@5:?7@")):CCJJJJ(27)=CCCJCC(CJJJCCCJ("9@>6A286E@AA:4EFC6")) & "":CCJJJJ(28)=CCCJCC(CJJJCCCJ("4C:D:D=3")):CCJJJJ(29)=IIf(CCCJCC(CJJJCCCJ("4C:D:D@=5")),False,True):CCJJJJ(30)=CCCJCC(CJJJCCCJ("8C@FA8F:52?46")):CCJJJJ(31)=CCCJCC(CJJJCCCJ("3:@7665324<")):CCJJJJ(32)=CCCJCC(CJJJCCCJ("<6JDEC")):CCJJJJ(33)=CCCJCC(CJJJCCCJ("=@8@")) & "":CCJJJJ(34)=CCCJCC(CJJJCCCJ("K:46")):CCJJJJ(35)=IIf(CCCJCC(CJJJCCCJ(":D?6H")),True,False):CCJJJJ(36)=121:CCJJJJ(37)=111:CCJJJJ(38)=160:CCJJJJ(39)=CCCJCC(CJJJCCCJ("8F6DE3@@<")):CCJJJJ(40)=CCCJCC(CJJJCCCJ("75D")):CCJJJJ(42)=CCCJCC(CJJJCCCJ("9@>6=@8:?")):CCJJJJ(43)=CCCJCC(CJJJCCCJ("K:IF?0?6657665324<")):CCJJJJ(44)=CCCJCC(CJJJCCCJ("K:IF?0E:>6D0=:>:E")):CCJJJJ(45)=CCCJCC(CJJJCCCJ("4@>A=6E60:?7@")):CCJJJJ(46)=CCCJCC(CJJJCCCJ("E6DE:?EC@")) & "":CCJJJJ(47)=IIf(isnull(CCCJCC(CJJJCCCJ("JFJF60367@C60E:>6"))),0,CCCJCC(CJJJCCCJ("JFJF60367@C60E:>6"))):CCJJJJ(49)=CCCJCC(CJJJCCCJ("D>D0C646:G6C")):CCJJJJ(50)=CCCJCC(CJJJCCCJ("D>D0D:8?")) & "":CCJJJJ(52)=CCCJCC(CJJJCCCJ("JFJF602CC2?86")):CCJJJJ(53)=IIf(isnull(CCCJCC(CJJJCCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCCJCC(CJJJCCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJJJ(54)=CCCJCC(CJJJCCCJ("9:560=30@FE@7286")):CCJJJJ(55)=CCCJCC(CJJJCCCJ("JFJF60E6DE052JD")):CCJJJJ(56)=CCCJCC(CJJJCCCJ("JFJF60H66<0=:>:E")):CCJJJJ(57)=CCCJCC(CJJJCCCJ("JFJF604964<65")):CCJJJJ(58)=CCCJCC(CJJJCCCJ("K:IF?0?6657665324<0?6IE")):CCJJJJ(59)=CCCJCC(CJJJCCCJ("4964<?6HDEF56?E")):CCJJJJ(60)=CCCJCC(CJJJCCCJ("K:IF?04=@D6052E6")):CCCJCC.close : set CCCJCC=nothing:if isNull(CCJJJJ(8)) or CCJJJJ(8)="" then CCJJJJ(8)=0
if isdate(CCJJJJ(9)) then
CCJJJJ(9)=cdate(CCJJJJ(9)):if CCJJJJ(9)<Date then Call RedirectMessage(CJJJCCCJ("????????,????????????????W") & CCJJJJ(9) & CJJJCCCJ("X??????,"))
end if:if not CCCJJJC(CCJJJJ(20)) then CCJJJJ(20)=7
select case CCJJJJ(1):case 1,2,16:CCJJJJ(36)=159:case 4,5,6,10,11:CCJJJJ(36)=190:CCJJJJ(37)=178:CCJJJJ(38)=191:case 7,13:CCJJJJ(36)=164:CCJJJJ(37)=178:CCJJJJ(38)=179:end select:CJCCCJJ=CCJJJJ:End Sub:Function CCCJCJC(CJJCCCCC):dim CCJJJJ(7,1),CJCCCC,CJCCCJC,CJCCCCJ:CJCCCJC=Array(CJJJCCCJ("$49@@="),CJJJCCCJ("$EF56?E"),CJJJCCCJ("s6AE"),CJJJCCCJ("vC256"),CJJJCCCJ("r=2DD>2E6"),CJJJCCCJ("}F>36C"),CJJJCCCJ("%62496C"),CJJJCCCJ("!2C6?E")):select case CJCCCJJ(1):case 1,2 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????")):case 3,16 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????")):case 4 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("??????@"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????")):case 5 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????")):case 6 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("??????@"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case 7 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case 8 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("??????@"),CJJJCCCJ("????"),CJJJCCCJ("????????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case 9 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case 10 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case 11 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case 12 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case 13 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????")):case 14 : CJCCCCJ=Array(CJJJCCCJ("??????"),CJJJCCCJ("??@??"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case 15 : CJCCCCJ=Array(CJJJCCCJ("????"),CJJJCCCJ("????????"),CJJJCCCJ("????"),CJJJCCCJ("????????"),CJJJCCCJ("????"),CJJJCCCJ("????"),CJJJCCCJ("??????"),CJJJCCCJ("????")):case else : CJCCCCJ=CJCCCJC
end select:for CJCCCC=0 to Ubound(CCJJJJ):CCJJJJ(CJCCCC,0)=CJCCCJC(CJCCCC):CCJJJJ(CJCCCC,1)=CJCCCCJ(CJCCCC):next:for CJCCCC=0 to Ubound(CCJJJJ):if CCJJJJ(CJCCCC,0)=CJJCCCCC then
CCCJCJC=CCJJJJ(CJCCCC,1):exit for
end if:next:End Function::Call CheckRight(16):Call WriteCurrentURL:Const CCJCCJC="??"
dim CCCCJJ,CCCCJC,CCJJCC,CJCCCCC,CJCCCC,CCJJJJJ,CCJJJJC:CCCCJJ=Request.QueryString(CJJJCCCJ("*")):CCCCJC=Request.QueryString(CJJJCCCJ("|")):CJCCCCC=Request.QueryString(CJJJCCCJ("u")):CCJJCC=Request.QueryString(CJJJCCCJ("!")):CCJJJJC=Request.QueryString(CJJJCCCJ("56AE")):CCJJJJJ=Date:dim CJCJJJC:set CJCJJJC=new jtree:CJCJJJC.table=CJJJCCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJCCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJCCCJ("k9E>=m") & vbCrLf):Response.Write(CJJJCCCJ("k9625m") & vbCrLf):Response.Write(CJJJCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJCCCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJCCCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJCCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJJCCCJ(" ,SWV2i4@?E2:?DW-V????-VXV[SWV]E30=:DEVXX]4=:4<W7F?4E:@?W6XL:7WP4@?7:C>WV????????????????????????,????????????,????????????????,VXXLC6EFC? ,72=D6NNX") & vbCrLf):Response.Write(CJJJCCCJ("NX") & vbCrLf):Response.Write(CJJJCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJCCCJ("k^9625m") & vbCrLf):Response.Write(CJJJCCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJCCCJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE23=6 ,H:5E9lQ`__TQ ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m?, ,???? ,?, ,k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mkD6=64E ,?2>6lQ*Q ,:5lQD6=64EQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):for CJCCCC=Year(CCJJJJJ) to 2011 step -1:response.Write CJJJCCCJ("k@AE:@?") & IIf(Cstr(CJCCCC)=CCCCJJ,CJJJCCCJ(" ,D6=64E65"),"") & CJJJCCCJ("m") & CJCCCC & CJJJCCCJ("k^@AE:@?m"):next:Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mkD6=64E ,?2>6lQ|Q ,:5lQD6=64EaQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):for CJCCCC=1 to 12:response.Write CJJJCCCJ("k@AE:@?") & IIf(Cstr(CJCCCC)=CCCCJC,CJJJCCCJ(" ,D6=64E65"),"") & CJJJCCCJ("m") & CJCCCC & CJJJCCCJ("k^@AE:@?m"):next:Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mkD6=64E ,?2>6lQuQ ,:5lQD6=64EbQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@?m,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJCCCCC="1",CJJJCCCJ("D6=64E65"),""):Response.Write(CJJJCCCJ("m??????k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJCCCCC="0",CJJJCCCJ("D6=64E65"),""):Response.Write(CJJJCCCJ("m??????k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):If CJJJCJ=CCCCC Then
Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5mkD6=64E ,?2>6lQ56AEQ ,:5lQ56AEQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,G2=F6lQ")):Response.Write CCCCC:Response.Write(CJJJCCCJ("Qm")):Response.Write CJJCCC:Response.Write(CJJJCCCJ("k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k@AE:@? ,")):Response.Write IIf(CCJJJJC=CJJJCCCJ(",????."),CJJJCCCJ("D6=64E65"),""):Response.Write(CJJJCCCJ("m,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):Call CJCJJJC.ShowChild_Select(CJJJCJ,CCJJJJC):Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ9:556?Q ,?2>6lQ!Q ,G2=F6lQ`Q ,^m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVn*l")):Response.Write year(CCJJJJJ):Response.Write(CJJJCCCJ("U|l")):Response.Write month(CCJJJJJ):Response.Write(CJJJCCCJ("U56AEl")):Response.Write CCJJJJC:Response.Write(CJJJCCCJ("U!l`VjQ ,E:E=6lQ??????????,")):Response.Write CCJJJJJ:Response.Write(CJJJCCCJ("Q ,^m") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):CCJJJJJ=CDate(year(CCJJJJJ) & CJJJCCCJ("\") & month(CCJJJJJ) & "-1")-1:Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVn*l")):Response.Write year(CCJJJJJ):Response.Write(CJJJCCCJ("U|l")):Response.Write month(CCJJJJJ):Response.Write(CJJJCCCJ("U56AEl")):Response.Write CCJJJJC:Response.Write(CJJJCCCJ("U!l`VjQ ,^m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVjQ ,^m") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):If CCCJJJC(CCCCJJ) and CCCJJJC(CCCCJC) Then
set rs=CJCCC.execute(CJJJCCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,>@?E9=J ,H96C6 ,J62Cl") & CCCCJJ & CJJJCCCJ(" ,2?5 ,>@?E9l") & CCCCJC & CJJJCCCJ(" ,2?5 ,>6>36CEJA6l") & CCCCC):if rs.eof then
Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lV>@?E9=J024E]2DAn24El255U*l")):Response.Write CCCCJJ:Response.Write(CJJJCCCJ("U|l")):Response.Write CCCCJC:Response.Write(CJJJCCCJ("VjQ ,E:E=6lQ??????")):Response.Write CCCCJJ:Response.Write(CJJJCCCJ("??")):Response.Write CCCCJC:Response.Write(CJJJCCCJ("????????Q ,^m") & vbCrLf):Response.Write(CJJJCCCJ(" ,"))
end if
End If:Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJCCCJ("k^7@C>m") & vbCrLf)::If CCJJCC="1" Then
sql=CJJJCCCJ("D6=64E ,:5[?F>36C[J62C[>@?E9[2FE9@C[52E6E:>6[7:?:D9[>6>36CEJA6?2>6[>6>36CEJA6 ,7C@> ,G0>@?E9=J ,H96C6 ,"):if CCCJJJC(CCJJJJC) then sql=sql & CJJJCCCJ(">6>36CEJA6l") & CCJJJJC else sql=sql & CJJJCCCJ("W>6>36CEJA6l") & CCCCC & CJJJCCCJ(" ,@C ,A2C:5l") & CCCCC & CJJJCCCJ("X")
if CCCJJJC(CCCCJJ) then sql=sql & CJJJCCCJ(" ,2?5 ,J62Cl") & CCCCJJ
if CCCJJJC(CCCCJC) then sql=sql & CJJJCCCJ(" ,2?5 ,>@?E9l") & CCCCJC
if CCCJJJC(CJCCCCC) then sql=sql & CJJJCCCJ(" ,2?5 ,7:?:D9l") & CJCCCCC
sql=sql & CJJJCCCJ(" ,@C56C ,3J ,J62C ,56D4[>@?E9 ,56D4"):dim CCJJJCJ,CCJJJCC:set CCJJJCJ=new splitpage:with CCJJJCJ:.sql=sql:.pagesize=20:.style=5:end with:set rs=CCJJJCJ.rs:Response.Write(vbCrLf):Response.Write(CJJJCCCJ("kE23=6 ,H:5E9lQ`__TQ ,46==A255:?8lQbQ ,46==DA24:?8lQ`Q ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m??k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m????@k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):for CJCCCC=1 to CCJJJCJ.pagesize:CCJJJCC=rs(0):Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCJJJCJ.listnum(CJCCCC):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(2):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(3):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5m")):If rs(8)=CCCCC Then
Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k:>8 ,DC4lQ]]^]]^:>286D^25>:?]8:7Q ,H:5E9lQ`eQ ,96:89ElQ`eQ ,2=:8?lQ23D>:55=6Q ,E:E=6lQ????????Q ,^m") & vbCrLf):Response.Write(CJJJCCCJ(" ,"))
End If::Response.Write rs(7):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5m")):Response.Write rs(4):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJCCC(rs(5),0):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(6),CCJCCJC,CJJJCCCJ("U?3DAj")):Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,2=:8?lQC:89EQm")):If not rs(6) and rs(8)=CCCCC Then
Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k2 ,9C67lQ>@?E9=J024E]2DAn24El>@5U:5l")):Response.Write CCJJJCC:Response.Write(CJJJCCCJ("U*l")):Response.Write rs(2):Response.Write(CJJJCCCJ("U|l")):Response.Write rs(3):Response.Write(CJJJCCCJ("U56AEl")):Response.Write CCJJJJC:Response.Write(CJJJCCCJ("Qm????k^2m") & vbCrLf):Response.Write(CJJJCCCJ(" ,"))
End If::If rs(8)=CCCCC or CCCCC=CCJJJC Then
Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k2 ,9C67lQ>@?E9=J024E]2DAn24El56=U:5l")):Response.Write CCJJJCC:Response.Write(CJJJCCCJ("U*l")):Response.Write rs(2):Response.Write(CJJJCCCJ("U|l")):Response.Write rs(3):Response.Write(CJJJCCCJ("U56AEl")):Response.Write CCJJJJC:Response.Write(CJJJCCCJ("Qm????k^2m") & vbCrLf):Response.Write(CJJJCCCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,k2 ,9C67lQ>@?E9=J0G:6H]2DAn:5l")):Response.Write CCJJJCC:Response.Write(CJJJCCCJ("Q ,E2C86ElQ03=2?<Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJJCCCJ(" ,kECm") & vbCrLf):Response.Write(CJJJCCCJ(" ,kE5 ,4@=DA2?lQgQm")):call CCJJJCJ.showpage:Response.Write(CJJJCCCJ("k^E5m") & vbCrLf):Response.Write(CJJJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJCCCJ("k^E23=6m") & vbCrLf)::set CCJJJCJ=nothing
else
response.write CJJJCCCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVm??????????????????,??????,??????,k^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJJJCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJC=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:CCJCJ.Close:Set CCJCJ=Nothing:rs.Close:Set rs=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJCCCJ(ByVal CJJJCCJC)
Dim CCJJCJJ, CJCCCC, CCJCCJ
CJJJCCJC = Replace(CJJJCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCC = 1 To Len(CJJJCCJC)
If CJCCCC <> CCJCCJ Then
CCJJCJJ = AscW(Mid(CJJJCCJC, CJCCCC, 1))
If CCJJCJJ >= 33 And CCJJCJJ <= 79 Then
CJJJCCCJ = CJJJCCCJ & Chr(CCJJCJJ + 47)
ElseIf CCJJCJJ >= 80 And CCJJCJJ <= 126 Then
CJJJCCCJ = CJJJCCCJ & Chr(CCJJCJJ - 47)
Else
CCJCCJ = CJCCCC + 1
If Mid(CJJJCCJC, CCJCCJ, 1) = Chr(64) Then CJJJCCCJ = CJJJCCCJ & ChrW(CCJJCJJ + 5) Else CJJJCCCJ = CJJJCCCJ & Mid(CJJJCCJC, CJCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de