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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCC, CJJJJJ,rs, CJJJCJ, sql:Set CCCCC = server.CreateObject(CJJJJCCC("ps~sq]r@??64E:@?")):CCCCC.open Application(CJJJJCCC("r@??64E:@?$EC:?8")):Set CJJJJJ=CCCCC::Dim CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ:Dim CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ:CCJCCJ=Trim(Request.Cookies(CJJJJCCC("!$*|t|qt#"))):if CCJCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJCJJ>0 then
sql=CJJJJCCC("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") & CJJCJC & CJJJJCCC("V ,2?5 ,:5l") & CJJCJJ
set rs=CCCCC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJCCJ=rs(2) & "":CJJCCC=rs(3):CJCJJJ=rs(5):CJCJJC=rs(6):CJCJCJ=rs(9):CJCJCC=rs(15):CJCCJC=rs(0):CCJCJJ=rs(1):CCJJCC=rs(11) & "":CJCCCJ=rs(10) & "":CJCCJJ=rs(12):CJCCCC=rs(14):CCJJJJ=rs(13):CCJJJC=rs(7) & "":CCJJCJ=rs(4):CCJCJC=rs(8):if isnull(CJCJCC) then CJCJCC=0
if isnull(CJCJCJ) or CJCJCJ=0 then CJCJCJ=CJJCCC
if isnull(CCJJCJ) then CCJJCJ=0
if isnull(CJCJJJ) then CJCJJJ=0
if instr(CJJJJCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJC)>0 then Call RedirectMessage(CJJJJCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJCJJ,CJJCJC)
End IF
end if:Sub CheckRight(CJJJCJJJ):dim CCJCCC,CCCJJJ:if CJJCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJCCC("??????????????,????????????,"))
elseIf not CCJCCJC(CJJJCJJJ) then
Call RedirectMessage(CJJJJCCC("????W") & CJJJCJJJ & CJJJJCCC("X????????,????????????????????,"))
end if:End Sub:Function CCJCCJC(CJJJCJJJ):dim CCJCCC,CCCJJJ:CCCJJJ=split(CJJJCJJJ,CJJJJCCC("[")):CCJCCJC=False:for CCJCCC=0 to ubound(CCCJJJ):If Mid(CJJCCJ,CCCJJJ(CCJCCC),1)="1" then
CCJCCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJCJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJJC:CCCJJC=trim(request.QueryString(CJJJJCCC("D49@@="))):if isnumeric(CCCJJC) then
response.Redirect CJJJJCCC("^>^G2?E^R^D49@@=^") & CCCJJC & CJJJJCCC("^DEF56?E^=@8:?nC65:C64El") & CJJCJCJ
else
Call RedirectMessage(CJJJJCCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJCCC("!$*|t|qt#"))="":CJJCJJ=0:CJCJJC=0:CJJCJC=Empty:CJCJJJ=0:CJCJCC=0:CJCJCJ=0:CJJCCC=0:CJCCJC=False:CCJCJJ=False:CCJCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCCJCJ,CCCJCC,CCJCCC,CCCCJJ,CCCCJC:CCCJCJ=split(CCJCCJ,CJJJJCCC("]")):if ubound(CCCJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJCJ(0)) or len(CCCJCJ(1))<>32 or len(CCCJCJ(2))<>32 then
Call ClearMemberCookie
else
CCCJCC=CCCJCJ(1):for CCJCCC=1 to len(CCCJCC):CCCCJJ=mid(CCCJCC,CCJCCC,1):if isnumeric(CCCCJJ) then CCCCJC=CCCCJC & CCCCJJ
if len(CCCCJC)=7 then exit for
next:CCCJCC=CCCJCJ(2):if CCCCJC<>mid(CCCJCC,6,7) then
Call ClearMemberCookie
else
CCCCJJ=mid(CCCJCC,18,10)/2:if CCCCJJ<DateDiff(CJJJJCCC("D"), CJJJJCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJCJJ=Clng(CCCJCJ(0)):CJJCJC=CCCJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJJJ,CJJJCJJC):dim CCJCCC,CCCCJJ,CCCCJC:for CCJCCC=1 to len(CJJJCJJC):CCCCJJ=mid(CJJJCJJC,CCJCCC,1):if isnumeric(CCCCJJ) then CCCCJC=CCCCJC & CCCCJJ
if len(CCCCJC)=7 then exit for
next:CCCCJC=CCJJJJJ & CJJJJCCC("]") & CJJJCJJC & CJJJJCCC("]") & Fix(10000*(Rnd+1)) & CCCCJC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCC("D"), CJJJJCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCC("!$*|t|qt#"))=CCCCJC:End Sub::Function CCJCCCJ(CJJJCJCJ):Dim str,CCCCCC:str = Trim(CJJJCJCJ):If IsNull(str) Or str = "" Then
CCJCCCJ = ""
else
str=Replace(str, CJJJJCCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJCCC("k:7C2>6"), CJJJJCCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJCCC("kD4C:AE"), CJJJJCCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCCCC=new RegExp:CCCCCC.Pattern=CJJJJCCC("@?W,2\K.ZXl"):CCCCCC.IgnoreCase = True:CCCCCC.Global=True:str=CCCCCC.Replace(str,CJJJJCCC("@?S`U6BF2=Dj")):set CCCCCC=nothing:CCJCCCJ=str
End If:End Function:Function IIf(CJJJCJCC, CJJJCCJJ, CJJJCCJC):if isnull(CJJJCJCC) or isempty(CJJJCJCC) then
IIf = CJJJCCJC
elseif CJJJCJCC Then
IIf = CJJJCCJJ
Else
IIf = CJJJCCJC
end if:End Function:Const CCJJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJCCCJ,CJJJCCCC):dim CCCJCJ:CCCJCJ=CJJJCCCJ & "=" & CJJJCCCC & CJJJJCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCC("$6E\r@@<:6"),CCCJCJ):End Sub:::::::Function CCCJJJJ(CJCJCJJ):if isnull(CJCJCJJ) or trim(CJCJCJJ)="" or not isnumeric(CJCJCJJ) then
CCCJJJJ=false
else
Dim CCCCCC:Set CCCCCC = New RegExp:CCCCCC.Pattern = CJJJJCCC("/-5ZS"):CCCCCC.IgnoreCase = True:CCCJJJJ = CCCCCC.test(CJCJCJJ):set CCCCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:CJCJCCC.close : set CJCJCCC=nothing:CJJJCJ.Close : Set CJJJCJ=Nothing:rs.Close : Set rs=Nothing:CCCJCJC.Close : Set CCCJCJC = Nothing:CCCCC.Close : Set CCCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCC("!$*0|6DD286"),server.URLEncode(CJJCJJJJ)):Response.Redirect CJJJJCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCJCCJ(ByVal CCCJCCC,style):if not isdate(CCCJCCC) then
CCCJCCJ=CCCJCCC:exit function
end if:dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:CCCJCCC=cdate(CCCJCCC):CJJJJJJ=Year(CCCJCCC):CJJJJJC=Month(CCCJCCC):CJJJJCJ=Day(CCCJCCC):select case style:case 0:CCCJCCJ=CJJJJJJ & CJJJJCCC("\") & right(0 & CJJJJJC,2) & CJJJJCCC("\") & right(0 & CJJJJCJ,2):case 1:CCCJCCJ=CJJJJJJ & right(0 & CJJJJJC,2) & right(0 & CJJJJCJ,2):case 2:CCCJCCJ=right(CJJJJJJ,2) & CJJJJCCC("\") & right(0 & CJJJJJC,2) & CJJJJCCC("\") & right(0 & CJJJJCJ,2):case 3:CCCJCCJ=CJJJJJJ & CJJJJCCC("\") & right(0 & CJJJJJC,2):case 4:CCCJCCJ=right(0 & CJJJJJC,2) & CJJJJCCC("\") & right(0 & CJJJJCJ,2):case 5:CCCJCCJ=right(0 & CJJJJCJ,2):case 6:CCCJCCJ=CJJJJJJ & CJJJJCCC("??") & right(0 & CJJJJJC,2) & CJJJJCCC("??") & right(0 & CJJJJCJ,2) & CJJJJCCC("??"):case else
CCCJCCJ=CCCJCCC:end select:End Function::::::::::::::::::::::Const CCJJCJJ ="9"
Const CCJJCJC ="7"
Const CCJJCCJ ="3"
Const CCJJCCC ="4"
Const CCJCJJJ ="8"
Const CCJCJJC =":"
Const CCJCJCJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJJJCJC, CJJJCCJ, CJJJCCC, CJJCJJJ, CJJCJJC, CJJCJCJ, CJJCJCC, CJJCCJJ, CJJCCJC, CJJCCCJ:Private Function CCCCJJJ():Dim CJJCCCC:CJJCCCC = "??" & CJJCJJC & CJJJJCCC("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJCCJC & CJJJJCCC("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJCJJJ & CJJJJCCC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJJJCCC("k^3mk^DA2?m??")
CCCCJJJ = CJJCCCC:End Function:Private Function CCCCJJC():CCCCJJC = CJJJJCCC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJJCJJJ & CJJJJCCC("V ,DEJ=6lV") & CCJCJCJ & CJJJJCCC("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") & CJJCJCJ & CJJJJCCC("VZE9:D]G2=F6Qm")
End Function:Private Function CCCCJCJ():CCCCJCJ = CJJJJCCC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCJCJCJ & CJJJJCCC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJJCJCJ & CJJJJCCC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CCCCJCC():Dim CJJCCCC, CCJCCC:CJJCCCC = CJJJJCCC(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJJCJCJ & CJJJJCCC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCJCCC = 1 To PageCount:CJJCCCC = CJJCCCC & CJJJJCCC("k@AE:@? ,G2=F6lV") & CCJCCC & CJJJJCCC("V")
If CCJCCC = CJJCJJJ Then CJJCCCC = CJJCCCC & CJJJJCCC(" ,D6=64E65")
CJJCCCC = CJJCCCC & CJJJJCCC("m") & CCJCCC & CJJJJCCC("k^@AE:@?m"):Next:CJJCCCC = CJJCCCC & CJJJJCCC("k^D6=64Em??"):CCCCJCC = CJJCCCC:End Function:Public Sub ShowPage():Dim CCJCCC, CJCJJJJ,CJCJJJC,CJCJJCJ:if CJJCJJC>0 then
CJCJJJJ = CJJJJCCC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CCCCJJJ & CJJJJCCC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJJCCCJ:Case 1: CJCJJCJ = CCCCCCJ:Case 2: CJCJJCJ = CCCCCCC:Case 3: CJCJJCJ = CJJJJJJJ:Case 4: CJCJJCJ = CJJJJJJC:Case 5: CJCJJCJ = CJJJJJCJ:Case 6: CJCJJCJ = CJJJJJCC:Case 7: CJCJJCJ = CJJJJCJJ:Case 8: CJCJJCJ = CJJJJCJC:End Select
End If:CJCJJJC = CJJJJCCC("k^5:Gmk^5:Gm")
end if:if CJJCCCJ>=6 then
Response.Write CJCJJCJ
else
Response.Write CJCJJJJ & CJCJJCJ & CJCJJJC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJJJCCJ = Server.CreateObject(CJJJJCCC("ps~sq]#64@C5$6E")):CJJJCCJ.PageSize = CJJCCJC:CJJJCCJ.Open CJJJCCC, CJJJCJC, 1:If err then
Response.Write	CJJJJCCC("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 & CJJJJCCC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJJJCCJ.EOF Then
CJJCJJC = CJJJCCJ.RecordCount:PageCount = CJJJCCJ.PageCount:If CJJCJJJ > PageCount Then CJJCJJJ = PageCount
CJJJCCJ.AbsolutePage = CJJCJJJ
End If:Set Rs = CJJJCCJ:End Function:Public Property Let CJJJJJ(CJJCJJJC):Set CJJJCJC = CJJCJJJC:End Property:Public Property Let SQL(str):CJJJCCC = str:End Property:Public Property Let Style(CJJJCJJJ):If IsNumeric(CJJJCJJJ) Then
CJJCCCJ = CInt(CJJJCJJJ):If CJJCCCJ < 1 Or CJJCCCJ > 8 Then CJJCCCJ = 1
Else
CJJCCCJ = 1
End If:End Property:Public Property Let PageSize(CJJJCJJJ):If IsNumeric(CJJJCJJJ) Then
CJJCCJC = CInt(CJJJCJJJ):If CJJCCJC < 1 Then CJJCCJC = 10
Else
CJJCCJC = 10
End If:End Property:Public Property Get PageSize():If CJJCJJJ = PageCount Then
PageSize = CJJCJJC - CJJCCJC * (PageCount - 1)
Elseif CJJCJJC=0 then
pagesize=0
else
PageSize = CJJCCJC
end if:End Property:Private Sub Class_Initialize():dim CJCJJCC:CJJCCJC = 10:CJJCCCJ = 1:Set CJJJCJC = CCCCC:CJJCJJJ = Trim(Request.QueryString(CJJJJCCC("!286"))):If IsNumeric(CJJCJJJ) Then
CJJCJJJ = CLng(CJJCJJJ):If CJJCJJJ < 1 Then CJJCJJJ = 1
Else
CJJCJJJ = 1
End If:CJJCCJJ = Trim(Request.ServerVariables(CJJJJCCC("&#{"))):CJJCCJJ = Mid(CJJCCJJ, InStrRev(CJJCCJJ, CJJJJCCC("^")) + 1):CJJCJCC = Split(Trim(Request.ServerVariables(CJJJJCCC("""&t#*0$%#x}v"))), CJJJJCCC("U")):CJJCJCJ = Server.HtmlEncode(CJJCJJCJ):CJCJJCC=lcase(CJJCJCJ):if instr(CJCJJCC,CJJJJCCC("Tb4:7C2>6"))>0 or instr(CJCJJCC,CJJJJCCC("Tb4D4C:AE"))>0 or instr(CJCJJCC,CJJJJCCC("V"))>0 or instr(CJCJJCC,CJJJJCCC(";2G2D4C:AE"))>0 or instr(CJCJJCC,CJJJJCCC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJJJCCC("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CJJJCJJJ):ListNum = CJJCCJC * (CJJCJJJ - 1) + CJJJCJJJ:End Function:Private Function CJJCJJCJ():Dim CCJCCC, str:For CCJCCC = 0 To UBound(CJJCJCC):If InStr(LCase(CJJCJCC(CCJCCC)), CJJJJCCC("A286l")) = 0 Then str = str & CJJJJCCC("U") & CJJCJCC(CCJCCC)
Next:str = Mid(str, 2):If str = "" Then CJJCJJCJ = CJJCCJJ & CJJJJCCC("n") & CJJJJCCC("A286l") Else CJJCJJCJ = CJJCCJJ & CJJJJCCC("n") & str & CJJJJCCC("UA286l")
End Function:Private Function CCCCCCJ():Dim str:str = CJJJJCCC("???? ,??"):For CCJCCC = 1 To PageCount:If CCJCCC = CJJCJJJ Then str = str & CJJJJCCC("k3m") & CCJCCC & CJJJJCCC("k^3m ,") Else str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CCJCCC & CJJJJCCC("Vm") & CCJCCC & CJJJJCCC("k^2m ,")
Next:str = str & CJJJJCCC("??"):CCCCCCJ = str:End Function:Private Function CCCCCCC():Dim str:If CJJCJJJ > 1 Then
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJJJCCC("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJJCJJ & CJJJJCCC("k^2m ,")
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 1 & CJJJJCCC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJJCCJ & CJJJJCCC("k^2m ,")
Else
str = str & CCJJCJJ & CJJJJCCC(" ,") & CCJJCCJ
End If:If CJJCJJJ < PageCount Then
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ + 1 & CJJJJCCC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJJCCC & CJJJJCCC("k^2m ,")
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & PageCount & CJJJJCCC("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJCJJC & CJJJJCCC("k^2m ,")
Else
str = str & CCJJCCC & CJJJJCCC(" ,") & CCJCJJC
End If:str = str & CCCCJJC:str = str & CCCCJCJ:CCCCCCC = str:End Function:Private Function CJJJJJJJ():Dim str, CCCJCC:CCCJCC = (CJJCJJJ - 1) \ 10:If CJJCJJJ = 1 Then str = str & CCJJCJJ & CJJJJCCC(" ,") Else str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJJJCCC("`V ,E:E=6lV????Vm") & CCJJCJJ & CJJJJCCC("k^2m ,")
If CCCJCC * 10 > 0 Then str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 10 & CJJJJCCC("V ,E:E=6lV??????Vm") & CCJJCJC & CJJJJCCC("k^2m ,")
For CCJCCC = (CCCJCC * 10 + 1) To (CCCJCC * 10 + 10):If CCJCCC = CJJCJJJ Then str = str & CJJJJCCC("k3m") & CCJCCC & CJJJJCCC("k^3m ,") Else str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CCJCCC & CJJJJCCC("V ,E:E=6lV??????") & CCJCCC & CJJJJCCC("??Vm") & CCJCCC & CJJJJCCC("k^2m ,")
If CCJCCC = PageCount Then Exit For
Next:If CCJCCC < PageCount Then str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CCJCCC & CJJJJCCC("V ,E:E=6lV??????Vm") & CCJCJJJ & CJJJJCCC("k^2m ,")
If CJJCJJJ = PageCount Then str = str & CCJCJJC Else str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & PageCount & CJJJJCCC("V ,E:E=6lV????Vm") & CCJCJJC & CJJJJCCC("k^2m")
CJJJJJJJ = str:End Function:Private Function CJJJJJJC():Dim str, CJCJCJJ, CJCJCJC, CCJCCC:If CJJCJJJ > 4 Then str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJJJCCC("`Vm,`.k^2m ,]]]")
If CJJCJJJ < PageCount - 3 Then CJCJCJC = CJJCJJJ + 3 Else CJCJCJC = PageCount
For CCJCCC = CJJCJJJ - 3 To CJCJCJC:If CCJCCC >= 1 Then
If CCJCCC = CJJCJJJ Then str = str & CJJJJCCC(" ,k3m,") & CCJCCC & CJJJJCCC(".k^3m") Else str = str & CJJJJCCC(" ,k2 ,9C67lV") & CJJCJCJ & CCJCCC & CJJJJCCC("Vm,") & CCJCCC & CJJJJCCC(".k^2m")
End If:Next:If CJJCJJJ < PageCount - 3 Then str = str & CJJJJCCC(" ,]]] ,k2 ,9C67lV") & CJJCJCJ & PageCount & CJJJJCCC("Vm,") & PageCount & CJJJJCCC(".k^2m")
CJJJJJJC = str:End Function:Private Function CJJJJJCJ():Dim str:If CJJCJJJ > 1 Then
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJJJCCC("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 1 & CJJJJCCC("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJJJJCCC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJJCJJJ < PageCount Then
str = str & CJJJJCCC(" ,k2 ,9C67lV") & CJJCJCJ & CJJCJJJ + 1 & CJJJJCCC("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & PageCount & CJJJJCCC("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJJJJCCC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CCCCJCC:CJJJJJCJ = str:End Function:Private Function CJJJJJCC():Dim str:if CJJCJJJ>=2 then
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 1 & CJJJJCCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 1 & CJJJJCCC("V ,52E2\C@=6lV3FEE@?Vm") & CJJCJJJ-1 & CJJJJCCC("k^2m")
end if:str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ & CJJJJCCC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJJCJJJ & CJJJJCCC("k^2m")
if pagecount>CJJCJJJ then
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ + 1 & CJJJJCCC("V ,52E2\C@=6lV3FEE@?Vm") & CJJCJJJ+1 & CJJJJCCC("k^2m")
str = str & CJJJJCCC("k2 ,9C67lV") & CJJCJCJ & CJJCJJJ + 1 & CJJJJCCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJJJJCC=str:End Function:Private Function CJJJJCJJ():Dim str:str=CJJJJCCC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJJCJJJ>=2 then
str = str & CJJJJCCC("k=:mk2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 1 & CJJJJCCC("VmU=2BF@jk^2mk^=:m")
str = str & CJJJJCCC("k=:mk2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 1 & CJJJJCCC("Vm") & CJJCJJJ-1 & CJJJJCCC("k^2mk^=:m")
end if:str = str & CJJJJCCC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJJCJCJ & CJJCJJJ & CJJJJCCC("Vm") & CJJCJJJ & CJJJJCCC("k^2mk^=:m")
if pagecount>CJJCJJJ then
str = str & CJJJJCCC("k=:mk2 ,9C67lV") & CJJCJCJ & CJJCJJJ + 1 & CJJJJCCC("Vm") & CJJCJJJ+1 & CJJJJCCC("k^2mk^=:m")
str = str & CJJJJCCC("k=:mk2 ,9C67lV") & CJJCJCJ & CJJCJJJ + 1 & CJJJJCCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJJJCCC("k^F=m"):CJJJJCJJ=str:End Function:Private Function CJJJJCJC():Dim str:str=CJJJJCCC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJJCJJJ>=2 then
str = str & CJJJJCCC("k=:mk2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 1 & CJJJJCCC("VmU=2BF@jk^2mk^=:m")
str = str & CJJJJCCC("k=:mk2 ,9C67lV") & CJJCJCJ & CJJCJJJ - 1 & CJJJJCCC("Vm") & CJJCJJJ-1 & CJJJJCCC("k^2mk^=:m")
end if:str = str & CJJJJCCC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJJCJCJ & CJJCJJJ & CJJJJCCC("Vm") & CJJCJJJ & CJJJJCCC("k^2mk^=:m")
if pagecount>CJJCJJJ then
str = str & CJJJJCCC("k=:mk2 ,9C67lV") & CJJCJCJ & CJJCJJJ + 1 & CJJJJCCC("Vm") & CJJCJJJ+1 & CJJJJCCC("k^2mk^=:m")
str = str & CJJJJCCC("k=:mk2 ,9C67lV") & CJJCJCJ & CJJCJJJ + 1 & CJJJJCCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJJJCCC("k^F=m"):CJJJJCJC=str:End Function:End Class::dim CCCJJC:sql=Request.ServerVariables(CJJJJCCC("!p%w0x}u~")):if instr(sql,CJJJJCCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCJC and not CCJCJJ then Call RedirectMessage(CJJJJCCC("????????,????????????????????????,"))
CCCJJC=CJCJCJ
elseif instr(sql,CJJJJCCC("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJJJJCCC("^DEF56?E^"))>0 then
Call CheckLogined:CCCJJC=CJCJCJ
elseif instr(sql,CJJJJCCC("^D49@@="))>0 then
CCCJJC=Request.QueryString(CJJJJCCC("D49@@=")):if not CCCJJJJ(CCCJJC) then CCCJJC=Request.QueryString(CJJJJCCC("F"))
if not CCCJJJJ(CCCJJC) then CCCJJC=Request.QueryString(CJJJJCCC("D4"))
if not CCCJJJJ(CCCJJC) then Call RedirectMessage(CJJJJCCC("????????W$49@@=X??@??????????,"))
CCCJJC=csng(CCCJJC)
end if:if CCCJJC=0 then Call RedirectMessage(CJJJJCCC("????????W$49@@=X????W_X??,"))
Dim CJCJCCJ:Call SetConfig:Sub SetConfig():dim CCCJJJ,CJCJCCC:sql=CJJJJCCC("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") & CCCJJC:set CJCJCCC=CCCCC.execute(sql):if CJCJCCC.eof then Call RedirectMessage(CJJJJCCC("??W") & CJJCJJ & CJJJJCCC("X??????????W") & CCCJJC & CJJJJCCC("X????????,"))
ReDim CCCJJJ(61):CCCJJJ(0)=CJCJCCC(CJJJJCCC(";:2@H6:")) & "":CCCJJJ(1)=CJCJCCC(CJJJJCCC("EJA6")):CCCJJJ(2)=CJCJCCC(CJJJJCCC("D>D")):CCCJJJ(3)=CJCJCCC(CJJJJCCC("4FDE@>8C@FA")) & "":CCCJJJ(4)=CJCJCCC(CJJJJCCC("D:5632C0@E96C")) & "":CCCJJJ(5)=IIf(isnull(CJCJCCC(CJJJJCCC("E6DEC6DF=EG:6H"))),0,CJCJCCC(CJJJJCCC("E6DEC6DF=EG:6H"))):CCCJJJ(6)=CJCJCCC(CJJJJCCC("K:IF?E:>6")):CCCJJJ(7)=CJCJCCC(CJJJJCCC("766")):CCCJJJ(8)=CJCJCCC(CJJJJCCC("C6E6DE52J")):CCCJJJ(9)=CJCJCCC(CJJJJCCC("6IA:C652E6")):CCCJJJ(10)=CJCJCCC(CJJJJCCC("E:E=6")):CCCJJJ(11)=CJCJCCC(CJJJJCCC(":?EC@")) & "":CCCJJJ(12)=CJCJCCC(CJJJJCCC("A:4EFC6")) & "":CCCJJJ(13)=CJCJCCC(CJJJJCCC("72>:=J")):CCCJJJ(14)=CJCJCCC(CJJJJCCC("4@AJC:89E")) & "":CCCJJJ(15)=IIf(isnull(CJCJCCC(CJJJJCCC("D6>6DE6C0DE2CE052E6"))),CJJJJCCC("`h__\`\`"),CJCJCCC(CJJJJCCC("D6>6DE6C0DE2CE052E6"))):CCCJJJ(16)=IIf(isnull(CJCJCCC(CJJJJCCC("K:IF?0E:>6D09:89=:89E"))),0,CJCJCCC(CJJJJCCC("K:IF?0E:>6D09:89=:89E"))):CCCJJJ(17)=CJCJCCC(CJJJJCCC("4@?E24E")) & "":CCCJJJ(18)=CJCJCCC(CJJJJCCC("D2?5E23=6")):CCCJJJ(19)=CJCJCCC(CJJJJCCC("4C:D:D")):CCCJJJ(20)=CJCJCCC(CJJJJCCC("JJ52E6")):CCCJJJ(21)=CJCJCCC(CJJJJCCC("BB")):CCCJJJ(22)=CJCJCCC(CJJJJCCC("JFJF60D>D0EA=")) & "":CCCJJJ(23)=CJCJCCC(CJJJJCCC("JFJF60E6DE0=3")) & "":CCCJJJ(25)=CJCJCCC(CJJJJCCC("6IA6CE")):CCCJJJ(26)=CJCJCCC(CJJJJCCC(">@5:?7@")):CCCJJJ(27)=CJCJCCC(CJJJJCCC("9@>6A286E@AA:4EFC6")) & "":CCCJJJ(28)=CJCJCCC(CJJJJCCC("4C:D:D=3")):CCCJJJ(29)=IIf(CJCJCCC(CJJJJCCC("4C:D:D@=5")),False,True):CCCJJJ(30)=CJCJCCC(CJJJJCCC("8C@FA8F:52?46")):CCCJJJ(31)=CJCJCCC(CJJJJCCC("3:@7665324<")):CCCJJJ(32)=CJCJCCC(CJJJJCCC("<6JDEC")):CCCJJJ(33)=CJCJCCC(CJJJJCCC("=@8@")) & "":CCCJJJ(34)=CJCJCCC(CJJJJCCC("K:46")):CCCJJJ(35)=IIf(CJCJCCC(CJJJJCCC(":D?6H")),True,False):CCCJJJ(36)=121:CCCJJJ(37)=111:CCCJJJ(38)=160:CCCJJJ(39)=CJCJCCC(CJJJJCCC("8F6DE3@@<")):CCCJJJ(40)=CJCJCCC(CJJJJCCC("75D")):CCCJJJ(42)=CJCJCCC(CJJJJCCC("9@>6=@8:?")):CCCJJJ(43)=CJCJCCC(CJJJJCCC("K:IF?0?6657665324<")):CCCJJJ(44)=CJCJCCC(CJJJJCCC("K:IF?0E:>6D0=:>:E")):CCCJJJ(45)=CJCJCCC(CJJJJCCC("4@>A=6E60:?7@")):CCCJJJ(46)=CJCJCCC(CJJJJCCC("E6DE:?EC@")) & "":CCCJJJ(47)=IIf(isnull(CJCJCCC(CJJJJCCC("JFJF60367@C60E:>6"))),0,CJCJCCC(CJJJJCCC("JFJF60367@C60E:>6"))):CCCJJJ(49)=CJCJCCC(CJJJJCCC("D>D0C646:G6C")):CCCJJJ(50)=CJCJCCC(CJJJJCCC("D>D0D:8?")) & "":CCCJJJ(52)=CJCJCCC(CJJJJCCC("JFJF602CC2?86")):CCCJJJ(53)=IIf(isnull(CJCJCCC(CJJJJCCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCCC(CJJJJCCC("DEF56?E0BF6DE:@?04@F?E"))):CCCJJJ(54)=CJCJCCC(CJJJJCCC("9:560=30@FE@7286")):CCCJJJ(55)=CJCJCCC(CJJJJCCC("JFJF60E6DE052JD")):CCCJJJ(56)=CJCJCCC(CJJJJCCC("JFJF60H66<0=:>:E")):CCCJJJ(57)=CJCJCCC(CJJJJCCC("JFJF604964<65")):CCCJJJ(58)=CJCJCCC(CJJJJCCC("K:IF?0?6657665324<0?6IE")):CCCJJJ(59)=CJCJCCC(CJJJJCCC("4964<?6HDEF56?E")):CCCJJJ(60)=CJCJCCC(CJJJJCCC("K:IF?04=@D6052E6")):CJCJCCC.close : set CJCJCCC=nothing:if isNull(CCCJJJ(8)) or CCCJJJ(8)="" then CCCJJJ(8)=0
if isdate(CCCJJJ(9)) then
CCCJJJ(9)=cdate(CCCJJJ(9)):if CCCJJJ(9)<Date then Call RedirectMessage(CJJJJCCC("????????,????????????????W") & CCCJJJ(9) & CJJJJCCC("X??????,"))
end if:if not CCCJJJJ(CCCJJJ(20)) then CCCJJJ(20)=7
select case CCCJJJ(1):case 1,2,16:CCCJJJ(36)=159:case 4,5,6,10,11:CCCJJJ(36)=190:CCCJJJ(37)=178:CCCJJJ(38)=191:case 7,13:CCCJJJ(36)=164:CCCJJJ(37)=178:CCCJJJ(38)=179:end select:CJCJCCJ=CCCJJJ:End Sub:Function CCCJCJJ(CJJCJJCC):dim CCCJJJ(7,1),CCJCCC,CJCCJJJ,CJCCJJC:CJCCJJJ=Array(CJJJJCCC("$49@@="),CJJJJCCC("$EF56?E"),CJJJJCCC("s6AE"),CJJJJCCC("vC256"),CJJJJCCC("r=2DD>2E6"),CJJJJCCC("}F>36C"),CJJJJCCC("%62496C"),CJJJJCCC("!2C6?E")):select case CJCJCCJ(1):case 1,2 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????")):case 3,16 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????")):case 4 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("??????@"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????")):case 5 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????")):case 6 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("??????@"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case 7 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case 8 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("??????@"),CJJJJCCC("????"),CJJJJCCC("????????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case 9 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case 10 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case 11 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case 12 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case 13 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????")):case 14 : CJCCJJC=Array(CJJJJCCC("??????"),CJJJJCCC("??@??"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case 15 : CJCCJJC=Array(CJJJJCCC("????"),CJJJJCCC("????????"),CJJJJCCC("????"),CJJJJCCC("????????"),CJJJJCCC("????"),CJJJJCCC("????"),CJJJJCCC("??????"),CJJJJCCC("????")):case else : CJCCJJC=CJCCJJJ
end select:for CCJCCC=0 to Ubound(CCCJJJ):CCCJJJ(CCJCCC,0)=CJCCJJJ(CCJCCC):CCCJJJ(CCJCCC,1)=CJCCJJC(CCJCCC):next:for CCJCCC=0 to Ubound(CCCJJJ):if CCCJJJ(CCJCCC,0)=CJJCJJCC then
CCCJCJJ=CCCJJJ(CCJCCC,1):exit for
end if:next:End Function::if CJCJCCJ(7)<2 then Call RedirectMessage(CJJJJCCC("????????,??????????????????????,"))
Call CheckRight(109):Const CCJCJCC=118:Const CCJCCJJ="??"
dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:CJCCJCJ=Request.QueryString(CJJJJCCC("{")):CJCCJCC=CCJCCCJ(Request.QueryString(CJJJJCCC("%"))):CJCCCJJ=CCJCCCJ(Request.QueryString(CJJJJCCC("p"))):CJCCCJC=Request.QueryString(CJJJJCCC("$")):CJCCCCJ=Request.QueryString(CJJJJCCC("A@DE")):Response.Write(vbCrLf):Response.Write(CJJJJCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJCCC("k9625m") & vbCrLf):Response.Write(CJJJJCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJCCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJCCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJCCC("k^9625m") & vbCrLf):Response.Write(CJJJJCCC("k3@5Jm") & vbCrLf):Response.Write(CJJJJCCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJJCCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJJCCC(" ,kECm") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kD6=64E ,?2>6lQ{Qm") & vbCrLf):Response.Write(CJJJJCCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCC(" ,")):set rs=CCCCC.execute(CJJJJCCC("D6=64E ,:5[?2>6 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A=246l_ ,2?5 ,A2C:5l") & CCJCJCC & CJJJJCCC(" ,2?5 ,>6>36CEJA6l") & CCCJJC & CJJJJCCC(" ,@C56C ,3J ,D@CE")):if rs.eof then
Call RedirectMessage(CJJJJCCC("??????????????????,k2 ,9C67lV^D49@@=^25>:?^2CE:4=60EJA6]2DAn24El255Vm????k^2m??????,"))
else
while not rs.eof:response.write CJJJJCCC("k@AE:@? ,G2=F6lV") & rs(0) & CJJJJCCC("V") & IIf(Cstr(rs(0))=CJCCJCJ,CJJJJCCC(" ,D6=64E65"),"") & CJJJJCCC("m") & rs(1) & CJJJJCCC("k^@AE:@?m")
rs.movenext:wend
end if:Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5mk:?AFE ,?2>6lQ%Q ,EJA6lQE6IEQ ,E:E=6lQ????????Q ,G2=F6lQ")):Response.Write CJCCJCC:Response.Write(CJJJJCCC("Q ,D:K6lQadQmk^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????@??,k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5mk:?AFE ,?2>6lQpQ ,EJA6lQE6IEQ ,D:K6lQ`dQ ,E:E=6lQ????????@????Q ,G2=F6lQ")):Response.Write CJCCCJJ:Response.Write(CJJJJCCC("Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kD6=64E ,?2>6lQ$Qm") & vbCrLf):Response.Write(CJJJJCCC(" ,k@AE:@? ,G2=F6lQ52E6E:>6Q ,")):Response.Write IIf(CJCCCJC=CJJJJCCC("52E6E:>6"),CJJJJCCC("D6=64E65"),""):Response.Write(CJJJJCCC("m????????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCC(" ,k@AE:@? ,G2=F6lQ9:EQ ,")):Response.Write IIf(CJCCCJC=CJJJJCCC("9:E"),CJJJJCCC("D6=64E65"),""):Response.Write(CJJJJCCC("m??????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCC(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJJJJCCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJCCC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQm?? ,??k^2m") & vbCrLf):Response.Write(CJJJJCCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\56=Q ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CJJJJCCC(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJJJCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCCC("k^7@C>m") & vbCrLf)::If CJCCCCJ="1" Then
sql=CJJJJCCC("D6=64E ,:5[E:E=6[52E6E:>6[EJA6?2>6[9:E[C62=?2>6[A:4EFC6[2FE9@C[:DE@A[=:?< ,7C@> ,G02CE:4=6 ,H96C6 ,A=246l_ ,2?5 ,>6>36CEJA6l") & CCCJJC:if CCCJJJJ(CJCCJCJ) then sql=sql & CJJJJCCC(" ,2?5 ,EJA6l") & CJCCJCJ
if CJCCJCC<>"" then sql=sql & CJJJJCCC(" ,2?5 ,E:E=6 ,=:<6 ,VT") & CJCCJCC & CJJJJCCC("TV")
if CJCCCJJ<>"" then sql=sql & CJJJJCCC(" ,2?5 ,C62=?2>6 ,=:<6 ,VT") & CJCCCJJ & CJJJJCCC("TV")
sql=sql & CJJJJCCC(" ,@C56C ,3J ,:DE@A ,56D4[") & CJCCCJC & CJJJJCCC(" ,56D4"):dim CJCCCCC,CCJCCC,CCJJJJJ,CCJJJJC:set CJCCCCC=new splitpage:with CJCCCCC:.sql=sql:.pagesize=20:.style=5:end with:set rs=CJCCCCC.rs:Response.Write(vbCrLf):Response.Write(CJJJJCCC("k3Cm") & vbCrLf):Response.Write(CJJJJCCC("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJJCCC(" ,kECm") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9 ,E:E=6lQ????????,??????????????????????QmRk^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m??????@k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCC(" ,")):for CCJCCC=1 to CJCCCCC.pagesize:CCJJJJJ=rs(0):CCJJJJC=not (rs(9) & ""=""):Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,kECm") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCCCCC.listnum(CCJCCC):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,:5lQ:5=:DE\")):Response.Write CCJJJJJ:Response.Write(CJJJJCCC("Q ,G2=F6lQ")):Response.Write CCJJJJJ:Response.Write(CJJJJCCC("Qmk^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5m") & vbCrLf):Response.Write(CJJJJCCC(" ,")):if CCJJJJC then
Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k2 ,9C67lQ")):Response.Write rs(9):Response.Write(CJJJJCCC("Q ,E2C86ElQ03=2?<Qm")):Response.Write rs(1):Response.Write(CJJJJCCC("k^2m") & vbCrLf):Response.Write(CJJJJCCC(" ,"))
else
Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k2 ,9C67lQ]]^G:6H]2DAnD49@@=l")):Response.Write CCCJJC:Response.Write(CJJJJCCC("U:5l")):Response.Write CCJJJJJ:Response.Write(CJJJJCCC("Q ,E2C86ElQ03=2?<Qm")):Response.Write rs(1):Response.Write(CJJJJCCC("k^2m") & vbCrLf):Response.Write(CJJJJCCC(" ,"))
end if::If rs(6) & ""<>"" Then
Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k2 ,4=2DDlQH:?Q ,9C67lQ")):Response.Write rs(6):Response.Write(CJJJJCCC("Qmk:>8 ,DC4lQ]]^]]^:>286D^:4@?0:>8]A?8Q ,DEJ=6lQG6CE:42=\2=:8?i>:55=6jQmk^2m") & vbCrLf):Response.Write(CJJJJCCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5m")):Response.Write CCJJJJJ:Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5m")):Response.Write rs(3):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(7):Response.Write(CJJJJCCC("Qm")):Response.Write rs(5):Response.Write(CJJJJCCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJCCJ(rs(2),0):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(CCJJJJC,CCJCCJJ,""):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(8),CCJCCJJ,""):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write rs(4):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ2CE:4=6024E]2DAn24El>@5U:5l")):Response.Write CCJJJJJ:Response.Write(CJJJJCCC("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,kECm") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,4@=DA2?lQ``Qm") & vbCrLf):Response.Write(CJJJJCCC(" ,")):call CJCCCCC.showpage:set CJCCCCC=nothing:Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCC("k^E23=6m") & vbCrLf)
end if:Response.Write(vbCrLf):Response.Write(CJJJJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCC("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJJJCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJJJJCCC(" ,SWVR3E?\56=VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CJJJJCCC(" ,:7W:5=:DElllVVXL=2J6C]>D8WV????????????????VXN") & vbCrLf):Response.Write(CJJJJCCC(" ,6=D6L") & vbCrLf):Response.Write(CJJJJCCC(" ,=2J6C]4@?7:C>WV??????????????????????????????????????????,??????????????,V[L:4@?ibN[7F?4E:@?W:?56IXL") & vbCrLf):Response.Write(CJJJJCCC(" ,S]86EWV2CE:4=6024E]2DAn24El56=V[L:5i:5=:DEN[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCCC(" ,:5=:DEl:5=:DE]DA=:EWV[VX") & vbCrLf):Response.Write(CJJJJCCC(" ,S]6249W:5=:DE[7F?4E:@?W:[:E6>XL") & vbCrLf):Response.Write(CJJJJCCC(" ,SWVR:5=:DE\VZ:E6>X]4=@D6DEWVECVX]C6>@G6WX") & vbCrLf):Response.Write(CJJJJCCC(" ,NX") & vbCrLf):Response.Write(CJJJJCCC(" ,=2J6C]>D8WV????????VX") & vbCrLf):Response.Write(CJJJJCCC(" ,NX") & vbCrLf):Response.Write(CJJJJCCC(" ,=2J6C]4=@D6W:?56IX") & vbCrLf):Response.Write(CJJJJCCC(" ,NX") & vbCrLf):Response.Write(CJJJJCCC(" ,N") & vbCrLf):Response.Write(CJJJJCCC(" ,NX") & vbCrLf):Response.Write(CJJJJCCC("NX") & vbCrLf):Response.Write(CJJJJCCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:set CCCJCJJ=nothing:CJJJCJ.Close:Set CJJJCJ=Nothing:rs.Close:Set rs=Nothing:CCCCC.Close:Set CCCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJCCC(ByVal CJJJJCCJ)
Dim CCJJJCJ, CCJCCC, CJCJCJJ
CJJJJCCJ = Replace(CJJJJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCC = 1 To Len(CJJJJCCJ)
If CCJCCC <> CJCJCJJ Then
CCJJJCJ = AscW(Mid(CJJJJCCJ, CCJCCC, 1))
If CCJJJCJ >= 33 And CCJJJCJ <= 79 Then
CJJJJCCC = CJJJJCCC & Chr(CCJJJCJ + 47)
ElseIf CCJJJCJ >= 80 And CCJJJCJ <= 126 Then
CJJJJCCC = CJJJJCCC & Chr(CCJJJCJ - 47)
Else
CJCJCJJ = CCJCCC + 1
If Mid(CJJJJCCJ, CJCJCJJ, 1) = Chr(64) Then CJJJJCCC = CJJJJCCC & ChrW(CCJJJCJ + 5) Else CJJJJCCC = CJJJJCCC & Mid(CJJJJCCJ, CCJCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de