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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJCJC, CJJCCJ,rs, CJCJJJ, sql:Set CJJCJC = server.CreateObject(CJJJJJCJ("ps~sq]r@??64E:@?")):CJJCJC.open Application(CJJJJJCJ("r@??64E:@?$EC:?8")):Set CJJCCJ=CJJCJC::Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:Dim CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ:CCCCJJ=Trim(Request.Cookies(CJJJJJCJ("!$*|t|qt#"))):if CCCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJCJ>0 then
sql=CJJJJJCJ("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") & CJCJCC & CJJJJJCJ("V ,2?5 ,:5l") & CJCJCJ
set rs=CJJCJC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJCCJJ=rs(2) & "":CJCCJC=rs(3):CJCCCJ=rs(5):CJCCCC=rs(6):CCJJJJ=rs(9):CCJJJC=rs(15):CCJJCC=rs(0):CCCJCJ=rs(1):CCCJJC=rs(11) & "":CCJCJJ=rs(10) & "":CCJJCJ=rs(12):CCJCJC=rs(14):CCJCCJ=rs(13):CCJCCC=rs(7) & "":CCCJJJ=rs(4):CCCJCC=rs(8):if isnull(CCJJJC) then CCJJJC=0
if isnull(CCJJJJ) or CCJJJJ=0 then CCJJJJ=CJCCJC
if isnull(CCCJJJ) then CCCJJJ=0
if isnull(CJCCCJ) then CJCCCJ=0
if instr(CJJJJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJCC)>0 then Call RedirectMessage(CJJJJJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCJCJ,CJCJCC)
End IF
end if:Sub CheckRight(CJJJJJCC):dim CCCCJC,CCCCCJ:if CJCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJCJ("??????????????,????????????,"))
elseIf not CCJCJCJ(CJJJJJCC) then
Call RedirectMessage(CJJJJJCJ("????W") & CJJJJJCC & CJJJJJCJ("X????????,????????????????????,"))
end if:End Sub:Function CCJCJCJ(CJJJJJCC):dim CCCCJC,CCCCCJ:CCCCCJ=split(CJJJJJCC,CJJJJJCJ("[")):CCJCJCJ=False:for CCCCJC=0 to ubound(CCCCCJ):If Mid(CJCCJJ,CCCCCJ(CCCCJC),1)="1" then
CCJCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJCJ("!$*|t|qt#"))="":CJCJCJ=0:CJCCCC=0:CJCJCC=Empty:CJCCCJ=0:CCJJJC=0:CCJJJJ=0:CJCCJC=0:CCJJCC=False:CCCJCJ=False:CCCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CCCCCC,CJJJJJJ,CCCCJC,CJJJJJC,CJJJJCJ:CCCCCC=split(CCCCJJ,CJJJJJCJ("]")):if ubound(CCCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCCC(0)) or len(CCCCCC(1))<>32 or len(CCCCCC(2))<>32 then
Call ClearMemberCookie
else
CJJJJJJ=CCCCCC(1):for CCCCJC=1 to len(CJJJJJJ):CJJJJJC=mid(CJJJJJJ,CCCCJC,1):if isnumeric(CJJJJJC) then CJJJJCJ=CJJJJCJ & CJJJJJC
if len(CJJJJCJ)=7 then exit for
next:CJJJJJJ=CCCCCC(2):if CJJJJCJ<>mid(CJJJJJJ,6,7) then
Call ClearMemberCookie
else
CJJJJJC=mid(CJJJJJJ,18,10)/2:if CJJJJJC<DateDiff(CJJJJJCJ("D"), CJJJJJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJCJ=Clng(CCCCCC(0)):CJCJCC=CCCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCJJJ,CJJJJCJJ):dim CCCCJC,CJJJJJC,CJJJJCJ:for CCCCJC=1 to len(CJJJJCJJ):CJJJJJC=mid(CJJJJCJJ,CCCCJC,1):if isnumeric(CJJJJJC) then CJJJJCJ=CJJJJCJ & CJJJJJC
if len(CJJJJCJ)=7 then exit for
next:CJJJJCJ=CJCCJJJ & CJJJJJCJ("]") & CJJJJCJJ & CJJJJJCJ("]") & Fix(10000*(Rnd+1)) & CJJJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJCJ("D"), CJJJJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJCJ("!$*|t|qt#"))=CJJJJCJ:End Sub:::Function IIf(CJJJJCJC, CJJJJCCJ, CJJJJCCC):if isnull(CJJJJCJC) or isempty(CJJJJCJC) then
IIf = CJJJJCCC
elseif CJJJJCJC Then
IIf = CJJJJCCJ
Else
IIf = CJJJJCCC
end if:End Function:Const CCJJJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::::Public Function CCJCCJJ():Dim CJJJJCC, CJJJCJJ:CJJJCJJ = Request.ServerVariables("PATH_INFO"):CJJJJCC = Request.ServerVariables(CJJJJJCJ("""&t#*0$%#x}v")):If CJJJJCC <> Empty Then
if instr(lcase(CJJJJCC),CJJJJJCJ("Tb4:7C2>6"))>0 or instr(lcase(CJJJJCC),CJJJJJCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJJJCJ("????????,????????????????????????,??,??,"))
CJJJCJJ = CJJJCJJ & CJJJJJCJ("n") & CJJJJCC
end if:CCJCCJJ = CJJJCJJ:End Function:Sub SetHttpOnlyCookie(CJJJCJJJ,CJJJCJJC):dim CCCCCC:CCCCCC=CJJJCJJJ & CJJJJJCJ("l") & CJJJCJJC & CJJJJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJCJ("$6E\r@@<:6"),CCCCCC):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJJJJCJ("!$*"))(CJJJJJCJ("&#{")) = CCJCCJJ:End Sub::::::Function CCJCCJC(CJCJCCJ):if isnull(CJCJCCJ) or trim(CJCJCCJ)="" or not isnumeric(CJCJCCJ) then
CCJCCJC=false
else
Dim CJJJCJC:Set CJJJCJC = New RegExp:CJJJCJC.Pattern = CJJJJJCJ("/-5ZS"):CJJJCJC.IgnoreCase = True:CCJCCJC = CJJJCJC.test(CJCJCCJ):set CJJJCJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CCCJJCJ.close : set CCCJJCJ=nothing:CJCJJJ.Close : Set CJCJJJ=Nothing:rs.Close : Set rs=Nothing:CCCJJCC.Close : Set CCCJJCC = Nothing:CJJCJC.Close : Set CJJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJCJ("!$*0|6DD286"),server.URLEncode(CJJJCJCJ)):Response.Redirect CJJJJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Const CCJJJJC ="9"
Const CCJJJCJ ="7"
Const CCJJJCC ="3"
Const CCJJCJJ ="4"
Const CCJJCJC ="8"
Const CCJJCCJ =":"
Const CCJJCCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJJJCCC, CJJCJJJ, CJJCJJC, CJJCJCJ, CJJCJCC, CJJJCJJ, CJJCCJJ, CJJCCJC, CJJCCCJ, CJJCCCC:Private Function CCCJCJJ():Dim CJCJJJJ:CJCJJJJ = "??" & CJJCJCC & CJJJJJCJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJCCCJ & CJJJJJCJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJJCJCJ & CJJJJJCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJJJJCJ("k^3mk^DA2?m??")
CCCJCJJ = CJCJJJJ:End Function:Private Function CCCJCJC():CCCJCJC = CJJJJJCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJJCJCJ & CJJJJJCJ("V ,DEJ=6lV") & CCJJCCC & CJJJJJCJ("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") & CJJJCJJ & CJJJJJCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CCCJCCJ():CCCJCCJ = CJJJJJCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCJJCCC & CJJJJJCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJJJCJJ & CJJJJJCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CCCJCCC():Dim CJCJJJJ, CCCCJC:CJCJJJJ = CJJJJJCJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJJJCJJ & CJJJJJCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCCCJC = 1 To PageCount:CJCJJJJ = CJCJJJJ & CJJJJJCJ("k@AE:@? ,G2=F6lV") & CCCCJC & CJJJJJCJ("V")
If CCCCJC = CJJCJCJ Then CJCJJJJ = CJCJJJJ & CJJJJJCJ(" ,D6=64E65")
CJCJJJJ = CJCJJJJ & CJJJJJCJ("m") & CCCCJC & CJJJJJCJ("k^@AE:@?m"):Next:CJCJJJJ = CJCJJJJ & CJJJJJCJ("k^D6=64Em??"):CCCJCCC = CJCJJJJ:End Function:Public Sub ShowPage():Dim CCCCJC, CJCJJJC,CJCJJCJ,CJCJJCC:if CJJCJCC>0 then
CJCJJJC = CJJJJJCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CCCJCJJ & CJJJJJCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJJCCCC:Case 1: CJCJJCC = CCCCJJC:Case 2: CJCJJCC = CCCCJCJ:Case 3: CJCJJCC = CCCCJCC:Case 4: CJCJJCC = CCCCCJJ:Case 5: CJCJJCC = CCCCCJC:Case 6: CJCJJCC = CCCCCCJ:Case 7: CJCJJCC = CCCCCCC:Case 8: CJCJJCC = CJJJJJJJ:End Select
End If:CJCJJCJ = CJJJJJCJ("k^5:Gmk^5:Gm")
end if:if CJJCCCC>=6 then
Response.Write CJCJJCC
else
Response.Write CJCJJJC & CJCJJCC & CJCJJCJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJJCJJJ = Server.CreateObject(CJJJJJCJ("ps~sq]#64@C5$6E")):CJJCJJJ.PageSize = CJJCCCJ:CJJCJJJ.Open CJJCJJC, CJJJCCC, 1:If err then
Response.Write	CJJJJJCJ("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 & CJJJJJCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJJCJJJ.EOF Then
CJJCJCC = CJJCJJJ.RecordCount:PageCount = CJJCJJJ.PageCount:If CJJCJCJ > PageCount Then CJJCJCJ = PageCount
CJJCJJJ.AbsolutePage = CJJCJCJ
End If:Set Rs = CJJCJJJ:End Function:Public Property Let CJJCCJ(CJJJCJCC):Set CJJJCCC = CJJJCJCC:End Property:Public Property Let SQL(str):CJJCJJC = str:End Property:Public Property Let Style(CJJJJJCC):If IsNumeric(CJJJJJCC) Then
CJJCCCC = CInt(CJJJJJCC):If CJJCCCC < 1 Or CJJCCCC > 8 Then CJJCCCC = 1
Else
CJJCCCC = 1
End If:End Property:Public Property Let PageSize(CJJJJJCC):If IsNumeric(CJJJJJCC) Then
CJJCCCJ = CInt(CJJJJJCC):If CJJCCCJ < 1 Then CJJCCCJ = 10
Else
CJJCCCJ = 10
End If:End Property:Public Property Get PageSize():If CJJCJCJ = PageCount Then
PageSize = CJJCJCC - CJJCCCJ * (PageCount - 1)
Elseif CJJCJCC=0 then
pagesize=0
else
PageSize = CJJCCCJ
end if:End Property:Private Sub Class_Initialize():dim CJCJCJJ:CJJCCCJ = 10:CJJCCCC = 1:Set CJJJCCC = CJJCJC:CJJCJCJ = Trim(Request.QueryString(CJJJJJCJ("!286"))):If IsNumeric(CJJCJCJ) Then
CJJCJCJ = CLng(CJJCJCJ):If CJJCJCJ < 1 Then CJJCJCJ = 1
Else
CJJCJCJ = 1
End If:CJJCCJC = Trim(Request.ServerVariables(CJJJJJCJ("&#{"))):CJJCCJC = Mid(CJJCCJC, InStrRev(CJJCCJC, CJJJJJCJ("^")) + 1):CJJCCJJ = Split(Trim(Request.ServerVariables(CJJJJJCJ("""&t#*0$%#x}v"))), CJJJJJCJ("U")):CJJJCJJ = Server.HtmlEncode(CJJJCCJJ):CJCJCJJ=lcase(CJJJCJJ):if instr(CJCJCJJ,CJJJJJCJ("Tb4:7C2>6"))>0 or instr(CJCJCJJ,CJJJJJCJ("Tb4D4C:AE"))>0 or instr(CJCJCJJ,CJJJJJCJ("V"))>0 or instr(CJCJCJJ,CJJJJJCJ(";2G2D4C:AE"))>0 or instr(CJCJCJJ,CJJJJJCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJJJJCJ("????????,????????????????????????,??,??,"))
End Sub::Private Function CJJJCCJJ():Dim CCCCJC, str:For CCCCJC = 0 To UBound(CJJCCJJ):If InStr(LCase(CJJCCJJ(CCCCJC)), CJJJJJCJ("A286l")) = 0 Then str = str & CJJJJJCJ("U") & CJJCCJJ(CCCCJC)
Next:str = Mid(str, 2):If str = "" Then CJJJCCJJ = CJJCCJC & CJJJJJCJ("n") & CJJJJJCJ("A286l") Else CJJJCCJJ = CJJCCJC & CJJJJJCJ("n") & str & CJJJJJCJ("UA286l")
End Function:Private Function CCCCJJC():Dim str:str = CJJJJJCJ("???? ,??"):For CCCCJC = 1 To PageCount:If CCCCJC = CJJCJCJ Then str = str & CJJJJJCJ("k3m") & CCCCJC & CJJJJJCJ("k^3m ,") Else str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CCCCJC & CJJJJJCJ("Vm") & CCCCJC & CJJJJJCJ("k^2m ,")
Next:str = str & CJJJJJCJ("??"):CCCCJJC = str:End Function:Private Function CCCCJCJ():Dim str:If CJJCJCJ > 1 Then
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJJJJCJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJJJJC & CJJJJJCJ("k^2m ,")
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 1 & CJJJJJCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJJJCC & CJJJJJCJ("k^2m ,")
Else
str = str & CCJJJJC & CJJJJJCJ(" ,") & CCJJJCC
End If:If CJJCJCJ < PageCount Then
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ + 1 & CJJJJJCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJJCJJ & CJJJJJCJ("k^2m ,")
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & PageCount & CJJJJJCJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCJJCCJ & CJJJJJCJ("k^2m ,")
Else
str = str & CCJJCJJ & CJJJJJCJ(" ,") & CCJJCCJ
End If:str = str & CCCJCJC:str = str & CCCJCCJ:CCCCJCJ = str:End Function:Private Function CCCCJCC():Dim str, CJJJJJJ:CJJJJJJ = (CJJCJCJ - 1) \ 10:If CJJCJCJ = 1 Then str = str & CCJJJJC & CJJJJJCJ(" ,") Else str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJJJJCJ("`V ,E:E=6lV????Vm") & CCJJJJC & CJJJJJCJ("k^2m ,")
If CJJJJJJ * 10 > 0 Then str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 10 & CJJJJJCJ("V ,E:E=6lV??????Vm") & CCJJJCJ & CJJJJJCJ("k^2m ,")
For CCCCJC = (CJJJJJJ * 10 + 1) To (CJJJJJJ * 10 + 10):If CCCCJC = CJJCJCJ Then str = str & CJJJJJCJ("k3m") & CCCCJC & CJJJJJCJ("k^3m ,") Else str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CCCCJC & CJJJJJCJ("V ,E:E=6lV??????") & CCCCJC & CJJJJJCJ("??Vm") & CCCCJC & CJJJJJCJ("k^2m ,")
If CCCCJC = PageCount Then Exit For
Next:If CCCCJC < PageCount Then str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CCCCJC & CJJJJJCJ("V ,E:E=6lV??????Vm") & CCJJCJC & CJJJJJCJ("k^2m ,")
If CJJCJCJ = PageCount Then str = str & CCJJCCJ Else str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & PageCount & CJJJJJCJ("V ,E:E=6lV????Vm") & CCJJCCJ & CJJJJJCJ("k^2m")
CCCCJCC = str:End Function:Private Function CCCCCJJ():Dim str, CJCJCCJ, CJCJCCC, CCCCJC:If CJJCJCJ > 4 Then str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJJJJCJ("`Vm,`.k^2m ,]]]")
If CJJCJCJ < PageCount - 3 Then CJCJCCC = CJJCJCJ + 3 Else CJCJCCC = PageCount
For CCCCJC = CJJCJCJ - 3 To CJCJCCC:If CCCCJC >= 1 Then
If CCCCJC = CJJCJCJ Then str = str & CJJJJJCJ(" ,k3m,") & CCCCJC & CJJJJJCJ(".k^3m") Else str = str & CJJJJJCJ(" ,k2 ,9C67lV") & CJJJCJJ & CCCCJC & CJJJJJCJ("Vm,") & CCCCJC & CJJJJJCJ(".k^2m")
End If:Next:If CJJCJCJ < PageCount - 3 Then str = str & CJJJJJCJ(" ,]]] ,k2 ,9C67lV") & CJJJCJJ & PageCount & CJJJJJCJ("Vm,") & PageCount & CJJJJJCJ(".k^2m")
CCCCCJJ = str:End Function:Private Function CCCCCJC():Dim str:If CJJCJCJ > 1 Then
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJJJJCJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 1 & CJJJJJCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJJJJJCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJJCJCJ < PageCount Then
str = str & CJJJJJCJ(" ,k2 ,9C67lV") & CJJJCJJ & CJJCJCJ + 1 & CJJJJJCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & PageCount & CJJJJJCJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJJJJJCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CCCJCCC:CCCCCJC = str:End Function:Private Function CCCCCCJ():Dim str:if CJJCJCJ>=2 then
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 1 & CJJJJJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 1 & CJJJJJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJJCJCJ-1 & CJJJJJCJ("k^2m")
end if:str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ & CJJJJJCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJJCJCJ & CJJJJJCJ("k^2m")
if pagecount>CJJCJCJ then
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ + 1 & CJJJJJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CJJCJCJ+1 & CJJJJJCJ("k^2m")
str = str & CJJJJJCJ("k2 ,9C67lV") & CJJJCJJ & CJJCJCJ + 1 & CJJJJJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CCCCCCJ=str:End Function:Private Function CCCCCCC():Dim str:str=CJJJJJCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJJCJCJ>=2 then
str = str & CJJJJJCJ("k=:mk2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 1 & CJJJJJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJJJJCJ("k=:mk2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 1 & CJJJJJCJ("Vm") & CJJCJCJ-1 & CJJJJJCJ("k^2mk^=:m")
end if:str = str & CJJJJJCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJJJCJJ & CJJCJCJ & CJJJJJCJ("Vm") & CJJCJCJ & CJJJJJCJ("k^2mk^=:m")
if pagecount>CJJCJCJ then
str = str & CJJJJJCJ("k=:mk2 ,9C67lV") & CJJJCJJ & CJJCJCJ + 1 & CJJJJJCJ("Vm") & CJJCJCJ+1 & CJJJJJCJ("k^2mk^=:m")
str = str & CJJJJJCJ("k=:mk2 ,9C67lV") & CJJJCJJ & CJJCJCJ + 1 & CJJJJJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJJJJCJ("k^F=m"):CCCCCCC=str:End Function:Private Function CJJJJJJJ():Dim str:str=CJJJJJCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJJCJCJ>=2 then
str = str & CJJJJJCJ("k=:mk2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 1 & CJJJJJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJJJJCJ("k=:mk2 ,9C67lV") & CJJJCJJ & CJJCJCJ - 1 & CJJJJJCJ("Vm") & CJJCJCJ-1 & CJJJJJCJ("k^2mk^=:m")
end if:str = str & CJJJJJCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJJJCJJ & CJJCJCJ & CJJJJJCJ("Vm") & CJJCJCJ & CJJJJJCJ("k^2mk^=:m")
if pagecount>CJJCJCJ then
str = str & CJJJJJCJ("k=:mk2 ,9C67lV") & CJJJCJJ & CJJCJCJ + 1 & CJJJJJCJ("Vm") & CJJCJCJ+1 & CJJJJJCJ("k^2mk^=:m")
str = str & CJJJJJCJ("k=:mk2 ,9C67lV") & CJJJCJJ & CJJCJCJ + 1 & CJJJJJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJJJJCJ("k^F=m"):CJJJJJJJ=str:End Function:End Class::Call CheckRight(13):Call WriteCurrentURL:Const CCJCJJJ="??"
Const CCJCJJC="?"
dim CJCCJJJ,CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCCJJJ=request.QueryString(CJJJJJCJ("xs")):CJCCJJC=Request.QueryString(CJJJJJCJ("?2>606?")):CJCCJCJ=Request.QueryString(CJJJJJCJ("?2>6049")):CJCCJCC=Request.QueryString(CJJJJJCJ("2G2:=23=6")):CJCCCJJ=Request.QueryString(CJJJJJCJ("A@DE")):CJCCCJC=request.querystring(CJJJJJCJ("D@CE")):Response.Write(vbCrLf):Response.Write(CJJJJJCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJJJCJ("k9E>=m") & vbCrLf):Response.Write(CJJJJJCJ("k9625m") & vbCrLf):Response.Write(CJJJJJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJCJ("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJJJJCJ("k^9625m") & vbCrLf):Response.Write(CJJJJJCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,4=2DDlQ=236=Qmxsk^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5mk:?AFE ,?2>6lQxsQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("Q ,D:K6lQdQ ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5mk:?AFE ,?2>6lQ?2>606?Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write CJCCJJC:Response.Write(CJJJJJCJ("Q ,D:K6lQ`_Q ,E:E=6lQ??????????,????Qmk^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5mk:?AFE ,?2>6lQ?2>6049Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write CJCCJCJ:Response.Write(CJJJJJCJ("Q ,D:K6lQa_Q ,E:E=6lQ????????Qmk^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5mkD6=64E ,?2>6lQ2G2:=23=6Qm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJCCJCC="1",CJJJJJCJ("D6=64E65"),""):Response.Write(CJJJJJCJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJCCJCC="0",CJJJJJCJ("D6=64E65"),""):Response.Write(CJJJJJCJ("m??????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5mkD6=64E ,?2>6lQD@CEQ ,52E2\G2=F6lQ")):Response.Write CJCCCJC:Response.Write(CJJJJJCJ("Q ,@?r92?86lQ;2G2D4C:AEi7@C>]DF3>:EWXjQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k@AE:@? ,G2=F6lQ:5Qmxsk^@AE:@?m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k@AE:@? ,G2=F6lQ?2>606?Qm??????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k@AE:@? ,G2=F6lQBF6DE4@F?EQm????k^@AE:@?m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ>@5:7J]2DAnp4Elr=62Cr2496Qm??@??????k^2m ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ>2<62==]2DAQm????????k^2mk^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJCJ("k^7@C>m") & vbCrLf)::If CJCCCJJ="1" Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):sql=CJJJJJCJ("D6=64E ,:5[?2>606?[?2>6049[>@?6J[D@CE[BF6DE4@F?E[?2>607C[2G2:=23=6[A:4EFC6[5@4 ,7C@> ,=3 ,H96C6 ,W:D4FDE@>l_ ,@C ,:D4FDE@> ,:D ,?F==X"):if CCJCCJC(CJCCJJJ) then sql=sql & CJJJJJCJ(" ,2?5 ,:5l") & CJCCJJJ
if CJCCJJC<>"" then sql=sql & CJJJJJCJ(" ,2?5 ,?2>606?lV") & CJCCJJC & CJJJJJCJ("V")
if CJCCJCJ<>"" then sql=sql & CJJJJJCJ(" ,2?5 ,?2>6049 ,=:<6 ,VT") & CJCCJCJ & CJJJJJCJ("TV")
if CCJCCJC(CJCCJCC) then sql=sql & CJJJJJCJ(" ,2?5 ,2G2:=23=6l") & CJCCJCC
if CJCCCJC="" then sql=sql & CJJJJJCJ(" ,@C56C ,3J ,2G2:=23=6 ,56D4[D@CE[:5") else sql=sql & CJJJJJCJ(" ,@C56C ,3J ,2G2:=23=6 ,56D4[") & CJCCCJC
dim CCCCJC,CJCCCCJ:set CJCCCCJ=new splitpage:with CJCCCCJ:.sql=sql:.pagesize=20:.style=3:end with:set rs=CJCCCCJ.rs:for CCCCJC=1 to CJCCCCJ.pagesize:CJCCJJJ=rs(0):Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write rs(1):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write rs(2):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5m")):Response.Write rs(6):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write rs(5):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQE6IE7:6=50")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write rs(4):Response.Write(CJJJJJCJ("Q ,D:K6lQbQ ,E:E=6lQ??????????????,????,??????,??,Q , ,@?<6J5@H?lQ;2G2D4C:AEi ,:7WH:?5@H]6G6?E]<6Jr@56 ,ll ,`bXL=@42E:@?lVD@CE]2DAn:5l")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("UD@CElVZE9:D]G2=F6jNQmk^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):If rs(8) & ""<>"" Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k2 ,4=2DDlQH:?Q ,9C67lQ")):Response.Write rs(8):Response.Write(CJJJJJCJ("Qmk:>8 ,DC4lQ]]^]]^:>286D^:4@?0:>8]A?8Q ,DEJ=6lQG6CE:42=\2=:8?i>:55=6jQmk^2m") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
End If:Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):If rs(9) & ""<>"" Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k2 ,9C67lQ")):Response.Write rs(9):Response.Write(CJJJJJCJ("Qmk:>8 ,DC4lQ]]^]]^:>286D^:4@?05@4]A?8Q ,2=ElQQ ,DEJ=6lQG6CE:42=\2=:8?i>:55=6jQ^mk^2m") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
End If:Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(7),CCJCJJJ,CCJCJJC):Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5mk2 ,9C67lQ>@5:7J]2DAn:5l")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("Qm????k^2m ,k2 ,9C67lQBF6DE:@?]2DAn=3:5l")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("Qm????k^2m ,k2 ,9C67lQ724E@C]2DAn=3:5l")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("Qm????k^2m ,k2 ,9C67lQ6IA=2:?]2DAn=3:5l")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("Qm????k^2m ,k2 ,9C67lQ]]^]]^=3^:?4^D9@HE6DE]2DAn=3:5l")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("Q ,E2C86ElQ03=2?<Q ,E:E=6lQ??,??,??,????????????????????Qm????k^2m") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):If rs(7) Then
Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,k2 ,9C67lQ]]^]]^=3^")):Response.Write rs(1):Response.Write(CJJJJJCJ("]2DAnp4El#6|2<6#6DF=EQ ,E2C86ElQ03=2?<Q ,E:E=6lQ????????????????Qm????k^2m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k2 ,9C67lQ>@5:7J]2DAn:5l")):Response.Write CJCCJJJ:Response.Write(CJJJJJCJ("Up4El|2<6wE>=Qm????k^2m") & vbCrLf):Response.Write(CJJJJJCJ(" ,"))
End If:Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJJJJCJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJCJ(" ,kE5 ,4@=DA2?lQ`_Qm")):call CJCCCCJ.showpage:set CJCCCCJ=nothing:Response.Write(CJJJJJCJ("k^E5m") & vbCrLf):Response.Write(CJJJJJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJCJ("k^E23=6m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJCJ(" ,SWVE23=6]E30=:DE ,E9,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CJJJJJCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJJJJCJ(" ,^^ ,????????$6=64E") & vbCrLf):Response.Write(CJJJJJCJ(" ,SWVD6=64E,52E2\G2=F6.VX]6249W7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJCJ(" ,G2C ,SE9:DlSWE9:DX") & vbCrLf):Response.Write(CJJJJJCJ(" ,G2C ,GlSE9:D]52E2WVG2=F6VX") & vbCrLf):Response.Write(CJJJJJCJ(" ,:7WGPllVVXL") & vbCrLf):Response.Write(CJJJJJCJ(" ,:7WE9:D]92DpEEC:3FE6WV>F=E:A=6VXXLSE9:D]G2=WG]DA=:EWV[VXXN") & vbCrLf):Response.Write(CJJJJJCJ(" ,6=D6LSE9:D]G2=WGXN") & vbCrLf):Response.Write(CJJJJJCJ(" ,SE9:D]EC:886CWV492?865]D6=64E65]2>F:VX") & vbCrLf):Response.Write(CJJJJJCJ(" ,:7WEJA6@7W49@D6?XPllVF?567:?65VXLSE9:D]EC:886CWV49@D6?iFA52E65VXN") & vbCrLf):Response.Write(CJJJJJCJ(" ,N") & vbCrLf):Response.Write(CJJJJJCJ(" ,NX") & vbCrLf):Response.Write(CJJJJJCJ("NX") & vbCrLf):Response.Write(CJJJJJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCCJ=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CJCJJJ.Close:Set CJCJJJ=Nothing:rs.Close:Set rs=Nothing:CJJCJC.Close:Set CJJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJCJ(ByVal CJJJJJJC)
Dim CJCCCCC, CCCCJC, CJCJCCJ
CJJJJJJC = Replace(CJJJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCJC = 1 To Len(CJJJJJJC)
If CCCCJC <> CJCJCCJ Then
CJCCCCC = AscW(Mid(CJJJJJJC, CCCCJC, 1))
If CJCCCCC >= 33 And CJCCCCC <= 79 Then
CJJJJJCJ = CJJJJJCJ & Chr(CJCCCCC + 47)
ElseIf CJCCCCC >= 80 And CJCCCCC <= 126 Then
CJJJJJCJ = CJJJJJCJ & Chr(CJCCCCC - 47)
Else
CJCJCCJ = CCCCJC + 1
If Mid(CJJJJJJC, CJCJCCJ, 1) = Chr(64) Then CJJJJJCJ = CJJJJJCJ & ChrW(CJCCCCC + 5) Else CJJJJJCJ = CJJJJJCJ & Mid(CJJJJJJC, CCCCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de