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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJJ, conn,rs, CCCJCC, sql:Set CCCJJJ = server.CreateObject(CCJJCJCJ("ps~sq]r@??64E:@?")):CCCJJJ.open Application(CCJJCJCJ("r@??64E:@?$EC:?8")):Set conn=CCCJJJ::Dim CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC:Dim CJJCCJJ,CJJCCJC,CJJCCCJ:Dim CJJCCCC:CJJCCCC=Trim(Request.Cookies(CCJJCJCJ("!$*|t|qt#"))):if CJJCCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCJC>0 then
sql=CCJJCJCJ("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") & CCCCCJ & CCJJCJCJ("V ,2?5 ,:5l") & CCCCJC
set rs=CCCJJJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCCCCC=rs(2) & "":CJJJJJJ=rs(3):CJJJJJC=rs(5):CJJJJCJ=rs(6):CJJJJCC=rs(9):CJJJCJJ=rs(15):CJJJCCJ=rs(0):CJJCCJC=rs(1):CJJCCJJ=rs(11) & "":CJJJCCC=rs(10) & "":CJJJCJC=rs(12):CJJCJJJ=rs(14):CJJCJJC=rs(13):CJJCJCJ=rs(7) & "":CJJCJCC=rs(4):CJJCCCJ=rs(8):if isnull(CJJJCJJ) then CJJJCJJ=0
if isnull(CJJJJCC) or CJJJJCC=0 then CJJJJCC=CJJJJJJ
if isnull(CJJCJCC) then CJJCJCC=0
if isnull(CJJJJJC) then CJJJJJC=0
if instr(CCJJCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCCJ)>0 then Call RedirectMessage(CCJJCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCCCJC,CCCCCJ)
End IF
end if:Sub CheckRight(CCJJJCJ):dim CJCJJJJ,CJCJJJC:if CCCCJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCJCJ("??????????????,????????????,"))
elseIf not CJCJJJJC(CCJJJCJ) then
Call RedirectMessage(CCJJCJCJ("????W") & CCJJJCJ & CCJJCJCJ("X????????,????????????????????,"))
end if:End Sub:Function CJCJJJJC(CCJJJCJ):dim CJCJJJJ,CJCJJJC:CJCJJJC=split(CCJJJCJ,CCJJCJCJ("[")):CJCJJJJC=False:for CJCJJJJ=0 to ubound(CJCJJJC):If Mid(CCCCCC,CJCJJJC(CJCJJJJ),1)="1" then
CJCJJJJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCCCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJJCJ:CJCJJCJ=trim(request.QueryString(CCJJCJCJ("D49@@="))):if isnumeric(CJCJJCJ) then
response.Redirect CCJJCJCJ("^>^G2?E^R^D49@@=^") & CJCJJCJ & CCJJCJCJ("^DEF56?E^=@8:?nC65:C64El") & CJCCJCC
else
Call RedirectMessage(CCJJCJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJCJCJ("!$*|t|qt#"))="":CCCCJC=0:CJJJJCJ=0:CCCCCJ=Empty:CJJJJJC=0:CJJJCJJ=0:CJJJJCC=0:CJJJJJJ=0:CJJJCCJ=False:CJJCCJC=False:CJJCCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJCC,CJCJCJJ,CJCJJJJ,CJCJCJC,CJCJCCJ:CJCJJCC=split(CJJCCCC,CCJJCJCJ("]")):if ubound(CJCJJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJCC(0)) or len(CJCJJCC(1))<>32 or len(CJCJJCC(2))<>32 then
Call ClearMemberCookie
else
CJCJCJJ=CJCJJCC(1):for CJCJJJJ=1 to len(CJCJCJJ):CJCJCJC=mid(CJCJCJJ,CJCJJJJ,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC
if len(CJCJCCJ)=7 then exit for
next:CJCJCJJ=CJCJJCC(2):if CJCJCCJ<>mid(CJCJCJJ,6,7) then
Call ClearMemberCookie
else
CJCJCJC=mid(CJCJCJJ,18,10)/2:if CJCJCJC<DateDiff(CCJJCJCJ("D"), CCJJCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCJC=Clng(CJCJJCC(0)):CCCCCJ=CJCJJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCJJ,CCJJCJCC):dim CJCJJJJ,CJCJCJC,CJCJCCJ:for CJCJJJJ=1 to len(CCJJCJCC):CJCJCJC=mid(CCJJCJCC,CJCJJJJ,1):if isnumeric(CJCJCJC) then CJCJCCJ=CJCJCCJ & CJCJCJC
if len(CJCJCCJ)=7 then exit for
next:CJCJCCJ=CJJCJCJJ & CCJJCJCJ("]") & CCJJCJCC & CCJJCJCJ("]") & Fix(10000*(Rnd+1)) & CJCJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CCJJCJCJ("D"), CCJJCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCJCJ("!$*|t|qt#"))=CJCJCCJ:End Sub::Function CJCJJJCJ(CCJJCCJJ):Dim str,CJCCJJJ:str = Trim(CCJJCCJJ):If IsNull(str) Or str = "" Then
CJCJJJCJ = ""
else
str=Replace(str, CCJJCJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJJCJCJ("k:7C2>6"), CCJJCJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJCJCJ("kD4C:AE"), CCJJCJCJ("U=EjD4C:AE"),1,-1,1):str=Replace(str,CCJJCJCJ(";2G2D4C:AEi"), CCJJCJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCJCJ("2=6CEW"), CCJJCJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCJCJ("4@?7:C>W"), CCJJCJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCJCJ("AC@>AEW"), CCJJCJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCJCJ("6G2=W"), CCJJCJCJ(",IDD."),1,-1,1):str=Replace(str,CCJJCJCJ("5@4F>6?E]"), CCJJCJCJ(",IDD."),1,-1,1):On Error Goto 0:set CJCCJJJ=new RegExp:CJCCJJJ.Pattern=CCJJCJCJ("@?W,2\K.ZXl"):CJCCJJJ.IgnoreCase = True:CJCCJJJ.Global=True:str=CJCCJJJ.Replace(str,CCJJCJCJ("@?S`U6BF2=Dj")):set CJCCJJJ=nothing:CJCJJJCJ=str
End If:End Function:Function IIf(CCJJCCJC, CCJJCCCJ, CCJJCCCC):if isnull(CCJJCCJC) or isempty(CCJJCCJC) then
IIf = CCJJCCCC
elseif CCJJCCJC Then
IIf = CCJJCCCJ
Else
IIf = CCJJCCCC
end if:End Function:Const CJJCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CCJJCJCJ("FE7\g"):dim CJCJJJJ,CJCJCJC,CJCCJJC:if isarray(str) then
on error resume next:CJCJJJJ=ubound(str,2):CJCCJJC=err.number:err.clear:on error goto 0:if CJCCJJC<>0 then
for CJCJJJJ=0 to ubound(str):if CJCJJJJ>0 then response.Write CCJJCJCJ("k3C ,^m")
response.Write CJCJJJJ & CCJJCJCJ("i ,") & str(CJCJJJJ):next
else
response.Write CCJJCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJJJ=0 to ubound(str,2):response.Write CCJJCJCJ("kE9 ,2=:8?lV=67EVm") & CJCJJJJ & CCJJCJCJ("k^E9m")
next:response.Write CCJJCJCJ("k^ECm"):for CJCJJJJ=0 to ubound(str):response.Write CCJJCJCJ("kECmkE9m") & CJCJJJJ & CCJJCJCJ("k^E9m"):for CJCJCJC=0 to ubound(str,2):response.Write CCJJCJCJ("kE5m") & str(CJCJJJJ,CJCJCJC) & CCJJCJCJ("k^E5m"):next:response.Write CCJJCJCJ("k^ECm"):next:response.Write CCJJCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCJJCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCJJCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJCJJCJJ():Dim CJCCJCJ, CJCCJCC:CJCCJCC = Request.ServerVariables(CCJJCJCJ("!p%w0x}u~")):CJCCJCJ = Request.ServerVariables(CCJJCJCJ("""&t#*0$%#x}v")):If CJCCJCJ <> Empty Then
if instr(lcase(CJCCJCJ),CCJJCJCJ("Tb4:7C2>6"))>0 or instr(lcase(CJCCJCJ),CCJJCJCJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCJJCJCJ("????????,????????????????????????,??,??,"))
CJCCJCC = CJCCJCC & CCJJCJCJ("n") & CJCCJCJ
end if:CJCJJCJJ = CJCCJCC:End Function:Sub SetHttpOnlyCookie(CCJCJJJJ,CCJCJJJC):dim CJCJJCC:CJCJJCC=CCJCJJJJ & CCJJCJCJ("l") & CCJCJJJC & CCJJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJCJ("$6E\r@@<:6"),CJCJJCC):End Sub::::::sub ShowMessage(CCJCJJCJ):response.Charset="utf-8":Response.Write CCJJCJCJ("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:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCJCJJCJ & CCJJCJCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCJJCJC(CJCCJJC):if isnull(CJCCJJC) or trim(CJCCJJC)="" or not isnumeric(CJCCJJC) then
CJCJJCJC=false
else
Dim CJCCJJJ:Set CJCCJJJ = New RegExp:CJCCJJJ.Pattern = CCJJCJCJ("/-5ZS"):CJCCJJJ.IgnoreCase = True:CJCJJCJC = CJCCJJJ.test(CJCCJJC):set CJCCJJJ=nothing
end if:End Function:Function CJCJJCCJ(CCJCJJCC):dim CJCCCJJ,CJCCCJC:CJCCCJJ=CCJJCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCJJCC & CCJJCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJC=CCCJJJ.execute(CJCCCJJ):CJCJJCCJ = CJCCCJC(0):if isnull(CJCJJCCJ) then CJCJJCCJ=1
CJCCCJC.close : set CJCCCJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJJJ=nothing:set CJCJJCCC=nothing:set CJCJCJJJ=nothing:set CJCJCJJC=nothing:CJCCCJC.close : set CJCCCJC=nothing:CCCJCC.Close : Set CCCJCC=Nothing:rs.Close : Set rs=Nothing:CJCJCJCJ.Close : Set CJCJCJCJ = Nothing:CCCJJJ.Close : Set CCCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJCJ("!$*0|6DD286"),server.URLEncode(CCJCJJCJ)):Response.Redirect CCJJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJCJCC(ByVal CJCJCCJJ,style):if not isdate(CJCJCCJJ) then
CJCJCJCC=CJCJCCJJ:exit function
end if:dim CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC:CJCJCCJJ=cdate(CJCJCCJJ):CJCCCCJ=Year(CJCJCCJJ):CJCCCCC=Month(CJCJCCJJ):CCJJJJJ=Day(CJCJCCJJ):select case style:case 0:CJCJCJCC=CJCCCCJ & CCJJCJCJ("\") & right(0 & CJCCCCC,2) & CCJJCJCJ("\") & right(0 & CCJJJJJ,2):case 1:CJCJCJCC=CJCCCCJ & right(0 & CJCCCCC,2) & right(0 & CCJJJJJ,2):case 2:CJCJCJCC=right(CJCCCCJ,2) & CCJJCJCJ("\") & right(0 & CJCCCCC,2) & CCJJCJCJ("\") & right(0 & CCJJJJJ,2):case 3:CJCJCJCC=CJCCCCJ & CCJJCJCJ("\") & right(0 & CJCCCCC,2):case 4:CJCJCJCC=right(0 & CJCCCCC,2) & CCJJCJCJ("\") & right(0 & CCJJJJJ,2):case 5:CJCJCJCC=right(0 & CCJJJJJ,2):case 6:CJCJCJCC=CJCCCCJ & CCJJCJCJ("??") & right(0 & CJCCCCC,2) & CCJJCJCJ("??") & right(0 & CCJJJJJ,2) & CCJJCJCJ("??"):case else
CJCJCJCC=CJCJCCJJ:end select:End Function:Function CJCJCCJC(Table):Dim CJCCCJC, CCJJJCJ, str(), CJCJJJJ,CJCJCJC,CCJJJCC:CCJJJCC=UCase(Table):If Not IsArray(Application(CCJJCJCJ("!$*0") & CCJJJCC)) Then
Sql=CCJJCJCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CCJJCJCJ(". ,@C56C ,3J ,D@CE[:5"):set CJCCCJC=server.createobject(CCJJCJCJ("25@53]C64@C5D6E")):CJCCCJC.open sql,CCCJJJ,1:CCJJJCJ = CJCCCJC.RecordCount:ReDim str(CCJJJCJ, 2):If CCJJJCJ > 0 Then
For CJCJJJJ = 1 To CCJJJCJ:for CJCJCJC=0 to 2:str(CJCJJJJ, CJCJCJC) = CJCCCJC(CJCJCJC):next:CJCCCJC.MoveNext:Next
End If:CJCCCJC.Close: Set CJCCCJC = Nothing:Application(CCJJCJCJ("!$*0") & CCJJJCC) = str
End If:CJCJCCJC = Application(CCJJCJCJ("!$*0") & CCJJJCC):End Function:Sub ShowListSelect(CCJCJJCC,CCJCJCJJ,CCJCJCJC):Dim str, CJCJJJJ, CCJJCJJ:CCJJCJJ = CJCJCCJC(CCJCJJCC):For CJCJJJJ = 1 To UBound(CCJJCJJ):if Cstr(CCJJCJJ(CJCJJJJ,2))=Cstr(CCJCJCJJ) then
str = str & CCJJCJCJ("k@AE:@? ,G2=F6lV") & CCJJCJJ(CJCJJJJ, 0) & CCJJCJCJ("V")
If CStr(CCJJCJJ(CJCJJJJ, 0)) = CCJCJCJC & "" Then str = str & CCJJCJCJ(" ,D6=64E65lVD6=64E65V")
str = str & CCJJCJCJ("m") & CCJJCJJ(CJCJJJJ, 1) & CCJJCJCJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJCJCCCJ(CCJCJJCC,CCJCJCJJ,CJJCJCJJ):Dim str, CJCJJJJ, CCJJCJJ:CCJJCJJ = CJCJCCJC(CCJCJJCC):For CJCJJJJ = 1 To UBound(CCJJCJJ):if Cstr(CCJJCJJ(CJCJJJJ,2))=Cstr(CCJCJCJJ) and CStr(CCJJCJJ(CJCJJJJ, 0)) = CJJCJCJJ & "" then
str=CCJJCJJ(CJCJJJJ,1):exit for
end if:Next:if str="" then str=CCJJCJCJ(",????.")
CJCJCCCJ=str:End Function:::::::::::::::Function CJCJCCCC(CCJCJCCJ,str):dim CJCJJJJ,CCJJCJC,CCJJCCJ,CJCCCCC,CJCCJJC,CCJJCCC,CJCJCCJ:CJCJCCJ=ucase(CCJCJCCJ):CCJJCCC=str:if CCJJCCC="" then
CCJJCCC=request.cookies(CJCJCCJ):if CCJJCCC="" then
CJCJCCCC=""
else
CCJJCCC=strreverse(CCJJCCC):CCJJCJC=len(CCJJCCC):for CJCJJJJ=1 to CCJJCJC-1 step 2:CJCCCCC=mid(CCJJCCC,CJCJJJJ,1):CJCCJJC=mid(CCJJCCC,CJCJJJJ+1,1):CCJJCCJ=CCJJCCJ & CJCCJJC & CJCCCCC:next:CCJJCCJ=replace(CCJJCCJ,CCJJCJCJ("L0N"),CCJJCJCJ(" ,")):CCJJCCJ=replace(CCJJCCJ,CCJJCJCJ("LIN"),CCJJCJCJ("Y")):CCJJCCJ=replace(CCJJCCJ,CCJJCJCJ("L:N"),CCJJCJCJ("^")):CJCJCCCC=trim(CCJJCCJ)
end if
else
if Len(CCJJCCC) Mod 2=1 then CCJJCCC=CCJJCCC & CCJJCJCJ(" ,")
CCJJCCC=replace(CCJJCCC,CCJJCJCJ(" ,"),CCJJCJCJ("L0N")):CCJJCCC=replace(CCJJCCC,CCJJCJCJ("Y"),CCJJCJCJ("LIN")):CCJJCCC=replace(CCJJCCC,CCJJCJCJ("^"),CCJJCJCJ("L:N")):CCJJCJC=len(CCJJCCC):for CJCJJJJ=1 to CCJJCJC-1 step 2:CJCCCCC=mid(CCJJCCC,CJCJJJJ,1):CJCCJJC=mid(CCJJCCC,CJCJJJJ+1,1):CCJJCCJ=CCJJCCJ & CJCCJJC & CJCCCCC:next:CCJJCCJ=Trim(strreverse(CCJJCCJ)):CJCJCCCC=CCJJCCJ:response.cookies(CJCJCCJ)=CCJJCCJ
end if:End Function::Sub ClearCache(CCJCJCCC):Application.Contents.Remove CCJCJCCC
End Sub::Class jTree:Private Sql, CCJCJJJ, CCJCJJC, CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ:Private Sub Class_Initialize():CCJCJJC = 0:CCJCJCJ = 0:CCJCCCJ=10:End Sub:Public Property Let Table(CCJCCJJJ):if CCJCCJJJ="" then Call RedirectMessage(CCJJCJCJ("????????,;%C66????????????????????@??????????,"))
CCJCJCC=CCJCCJJJ:CCJCCJJ=CCJJCJCJ("!$*0") & UCase(CCJCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJCC:End Property:::Private Sub GetTreeArray():Dim CJCJJJJ, CJCJCJC, CCJCCCC,RecordCount:CCJCJJJ = Application(CCJCCJJ):If Not IsArray(CCJCJJJ) Then
Sql = CCJJCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJCC:if CCJCCJC<>"" then Sql=Sql & CCJJCJCJ(" ,H96C6 ,") & CCJCCJC
set CCJCCCC=CCCJJJ.execute(sql):RecordCount=CCJCCCC(0):if RecordCount=0 then Call RedirectMessage(CCJJCJCJ("????W") & CCJCJCC & CCJJCJCJ("^") & CCJCCJC & CCJJCJCJ("X????????????"))
CCJCJCJ=RecordCount+CCJCCCJ:ReDim CCJCJJJ(CCJCJCJ, 4):Sql = CCJJCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CCJJCJCJ(" ,H:E9 ,W?@=@4<X"):if CCJCCJC<>"" then Sql=Sql & CCJJCJCJ(" ,H96C6 ,") & CCJCCJC
Sql=Sql & CCJJCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CCJCCCC=CCCJJJ.execute(sql):For CJCJJJJ = 1 To RecordCount:For CJCJCJC = 0 To 4:CCJCJJJ(CJCJJJJ, CJCJCJC) = CCJCCCC(CJCJCJC):if IsNull(CCJCJJJ(CJCJJJJ,4)) then CCJCJJJ(CJCJJJJ,4)=0
If CCJCJJJ(CJCJJJJ,2)="" then CCJCJJJ(CJCJJJJ,2)=CCJJCJCJ(",??.")
Next:CCJCCCC.MoveNext:Next:CCJCCCC.Close: Set CCJCCCC = Nothing:for CJCJJJJ=CCJCJCJ-(CCJCCCJ-1) to CCJCJCJ:CCJCJJJ(CJCJJJJ,0)=CJCJJJJ:next:Application.Lock():Application(CCJCCJJ) = CCJCJJJ:Application.UnLock()
else
CCJCJCJ=Ubound(CCJCJJJ)
End If:End Sub:::::Private Function CJCCJJJC(CJJCJCJJ):dim CJCJJJJ,CCCJJJC:CJCCJJJC=0:CCCJJJC=CStr(CJJCJCJJ):if CCCJJJC<>"0" then
for CJCJJJJ=1 to CCJCJCJ:If CStr(CCJCJJJ(CJCJJJJ, 0))=CCCJJJC Then
CJCCJJJC = CJCJJJJ:Exit For
End If:Next
end if:End Function:Public Function CJCCJJCJ(CJJCJCJJ):if Cstr(CJJCJCJJ)="0" then
CJCCJJCJ=CCJJCJCJ("??")
else
Dim CJCJJJJ,CCJCCCC:CJCJJJJ=CJCCJJJC(CJJCJCJJ):if CJCJJJJ>0 then
CJCCJJCJ=CCJCJJJ(CJCJJJJ,2):if CJCCJJCJ="" then
set CCJCCCC=CCCJJJ.execute(CCJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CCJJCJCJ(" ,H96C6 ,:5l") & CJJCJCJJ):if CCJCCCC.eof then Call RedirectMessage(CCJJCJCJ("xs??,") & CJJCJCJJ & CCJJCJCJ("??,??????"))
CJCCJJCJ=CCJCCCC(1):Call UpdateCache(CJJCJCJJ,CCJCCCC(0),CJCCJJCJ,CCJCCCC(2),CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if
else
set CCJCCCC=CCCJJJ.execute(CCJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CCJJCJCJ(" ,H96C6 ,:5l") & CJJCJCJJ):if CCJCCCC.eof then Call RedirectMessage(CCJJCJCJ("xs??,") & CJJCJCJJ & CCJJCJCJ("??,??????"))
CJCCJJCJ=CCJCCCC(1):Call UpdateCache(CJJCJCJJ,CCJCCCC(0),CJCCJJCJ,CCJCCCC(2),CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if
end if:End Function:::Public Function CJCCJJCC(CJJCJCJJ):Dim CJCJJJJ,CCCJJCJ:CJCJJJJ=CJCCJJJC(CJJCJCJJ):if CJCJJJJ=0 then
CCCJJCJ=CJCCJCJJ(CJJCJCJJ)
else
CCCJJCJ=CCJCJJJ(CJCJJJJ,3):if isnull(CCCJJCJ) or CCCJJCJ="" then
CCCJJCJ=CJCCJCJJ(CJJCJCJJ)
elseif Mid(CCCJJCJ,instrrev(CCCJJCJ,CCJJCJCJ("["))+1)<>CStr(CJJCJCJJ) then
CCCJJCJ=CJCCJCJJ(CJJCJCJJ)
elseif Left(CCCJJCJ,1)=CCJJCJCJ("[") then
CCCJJCJ=CJCCJCJJ(CJJCJCJJ)
end if
end if:CJCCJJCC=CCCJJCJ:End Function:Private Function CJCCJCJJ(CJJCJCJJ):dim CCCJJJC:CCCJJJC=CStr(CJJCJCJJ):if CCCJJJC="0" then
CJCCJCJJ=""
else
dim CCJCCCC:set CCJCCCC=CCCJJJ.execute(CCJJCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CCJJCJCJ(" ,H96C6 ,:5l") & CJJCJCJJ):if CCJCCCC.eof then
Call UpdateCache(CJJCJCJJ,"","","",""):Call RedirectMessage(CCJJCJCJ("??????,xs??,") & CJJCJCJJ & CCJJCJCJ("??,????????,????????????????????,"))
else
if CCJCCCC(0)=0 then
CJCCJCJJ="0," & CJJCJCJJ
else
CJCCJCJJ=CJCCJJCC(CCJCCCC(0)) & CCJJCJCJ("[") & CJJCJCJJ
end if:if CCJCCCC(2)<>CJCCJCJJ then
CCCJJJ.execute CCJJCJCJ("FA52E6 ,") & CCJCJCC & CCJJCJCJ(" ,D6E ,A2E9lV") & CJCCJCJJ & CCJJCJCJ("V ,H96C6 ,:5l") & CJJCJCJJ
else
CJCCJCJJ=CCJCCCC(2)
end if
end if:Call UpdateCache(CJJCJCJJ,CCJCCCC(0),CCJCCCC(1),CJCCJCJJ,CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if:End Function::Public Function CJCCJCJC(CJJCJCJJ):CJCCJCJC = Mid(CJCCJJCC(CJJCJCJJ), 3):End Function:Public Function CJCCJCCJ(CJJCJCJJ):Dim CJCJJJJ, CJCJCJC, CCCJJCC,Str, CCCJJCJ, CCJJJCJ, CJCJJJC():CCCJJCJ = CJCCJCJC(CJJCJCJJ):CCCJJCJ = Split(CCCJJCJ, CCJJCJCJ("[")):for CJCJJJJ=0 to Ubound(CCCJJCJ):CCCJJCC=CCCJJCJ(CJCJJJJ):str=str & CCJJCJCJ("M") & CCCJJCC & CCJJCJCJ("M") & CJCCJJCJ(CCCJJCC):next:if str<>"" then str=Mid(str,2)
CJCCJCCJ=str:End Function:::::::::Public Function Sql_GetChildren(CJJCJCJJ):dim CCCJJCJ:CCCJJCJ=CJCCJJCC(CJJCJCJJ):Sql_GetChildren = CCJCJCC & CCJJCJCJ("0A2E9ZV[V ,=:<6 ,V") & CCCJJCJ & CCJJCJCJ("[TV")
End Function:::Public Function GetPositionStr_From(CJJCJCJJ, CJCCCJJC):if isnull(CJJCJCJJ) or isnull(CJCCCJJC) then
GetPositionStr_From=CCJJCJCJ(",????????."):exit function
end if:Dim Str, CJCJJJJ, CJCJJJC, CCJJJCJ, CCCJCJJ:CJCCCJJC = CStr(CJCCCJJC):If CJCCCJJC = "0" or CJCCCJJC = CStr(CJJCJCJJ) Then
Str = CJCCJJCJ(CJJCJCJJ)
Else
CJCJJJC = Split(CJCCJCCJ(CJJCJCJJ), CCJJCJCJ("M")):CCJJJCJ = UBound(CJCJJJC):CCCJCJJ = False:For CJCJJJJ = 0 To CCJJJCJ Step 2:If CJCJJJC(CJCJJJJ) = CJCCCJJC And Not CCCJCJJ Then CCCJCJJ = True
If CCCJCJJ Then
If Str <> "" Then Str = Str & CCJJCJCJ("??,")
Str = Str & CJCJJJC(CJCJJJJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CCJJCJCJ("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CCJCCJJ
End Sub:Public Sub UpdateCache(CJJCJCJJ,CCCJJCC,CCJCCJJC,CCCJJCJ,CCJCCJCJ):dim CJCJJJJ,CJCJCJC:CJJCJCJJ=CLng(CJJCJCJJ):CJCJJJJ=CJCCJJJC(CJJCJCJJ):if CCCJJCC="" and CCJCCJJC="" and CCCJJCJ="" and CCJCCJCJ="" then
if CJCJJJJ>0 then
for CJCJCJC=1 to 4:CCJCJJJ(CJCJJJJ,CJCJCJC)=Null:next
end if
else
if CJCJJJJ=0 then
for CJCJCJC=1 to CCJCJCJ:if CCJCJJJ(CJCJCJC,1) & ""="" then
CJCJJJJ=CJCJCJC:exit for
end if:next
end if:if CJCJJJJ=0 then
Call ClearCache
else
CCJCJJJ(CJCJJJJ,0)=CLng(CJJCJCJJ):if CCCJJCC<>"" then CCJCJJJ(CJCJJJJ,1)=CLng(CCCJJCC)
if CCJCCJJC<>"" then CCJCJJJ(CJCJJJJ,2)=CCJCCJJC
if CCCJJCJ<>"" then CCJCJJJ(CJCJJJJ,3)=CCCJJCJ
if CCJCCJCJ<>"" then CCJCJJJ(CJCJJJJ,4)=CLng(CCJCCJCJ)
end if
end if:if CJCJJJJ>0 then
Application.Lock():Application(CCJCCJJ) = CCJCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJCJJCJ):Call ConnClose:Response.Write CCJCJJCJ:Response.End:End Sub:Private Function CJCJJCCJ():CJCJJCCJ=CJCCCJCJ+1:End Function:Private Function CJCCCJCJ():dim CJCCCJC:set CJCCCJC=CCCJJJ.execute(CCJJCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJCC & CCJJCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCCJCJ=CJCCCJC(0):CJCCCJC.Close: Set CJCCCJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCCJJC ="9"
Const CJJCCJCJ ="7"
Const CJJCCJCC ="3"
Const CJJCCCJJ ="4"
Const CJJCCCJC ="8"
Const CJJCCCCJ =":"
Const CJJCCCCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCCJCCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CJCCJCC, CCCCJCC, CCCCCJJ, CCCCCJC, CCCCCCJ:Private Function CJCCCJCC():Dim CCCCCCC:CCCCCCC = "??" & CCCCJCJ & CCJJCJCJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCCJC & CCJJCJCJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCJJC & CCJJCJCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CCJJCJCJ("k^3mk^DA2?m??")
CJCCCJCC = CCCCCCC:End Function:Private Function CJCCCCJJ():CJCCCCJJ = CCJJCJCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCCCJJC & CCJJCJCJ("V ,DEJ=6lV") & CJJCCCCC & CCJJCJCJ("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") & CJCCJCC & CCJJCJCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJCCCCJC():CJCCCCJC = CCJJCJCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJCCCCC & CCJJCJCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJCCJCC & CCJJCJCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJCCCCCJ():Dim CCCCCCC, CJCJJJJ:CCCCCCC = CCJJCJCJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJCCJCC & CCJJCJCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJCJJJJ = 1 To PageCount:CCCCCCC = CCCCCCC & CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJCJJJJ & CCJJCJCJ("V")
If CJCJJJJ = CCCCJJC Then CCCCCCC = CCCCCCC & CCJJCJCJ(" ,D6=64E65")
CCCCCCC = CCCCCCC & CCJJCJCJ("m") & CJCJJJJ & CCJJCJCJ("k^@AE:@?m"):Next:CCCCCCC = CCCCCCC & CCJJCJCJ("k^D6=64Em??"):CJCCCCCJ = CCCCCCC:End Function:Public Sub ShowPage():Dim CJCJJJJ, CJJJJJJJ,CJJJJJJC,CJJJJJCJ:if CCCCJCJ>0 then
CJJJJJJJ = CCJJCJCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJCCCJCC & CCJJCJCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CCCCCCJ:Case 1: CJJJJJCJ = CCJJJJJC:Case 2: CJJJJJCJ = CCJJJJCJ:Case 3: CJJJJJCJ = CCJJJJCC:Case 4: CJJJJJCJ = CCJJJCJJ:Case 5: CJJJJJCJ = CCJJJCJC:Case 6: CJJJJJCJ = CCJJJCCJ:Case 7: CJJJJJCJ = CCJJJCCC:Case 8: CJJJJJCJ = CCJJCJJJ:End Select
End If:CJJJJJJC = CCJJCJCJ("k^5:Gmk^5:Gm")
end if:if CCCCCCJ>=6 then
Response.Write CJJJJJCJ
else
Response.Write CJJJJJJJ & CJJJJJCJ & CJJJJJJC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCJCCC = Server.CreateObject(CCJJCJCJ("ps~sq]#64@C5$6E")):CCCJCCC.PageSize = CCCCCJC:CCCJCCC.Open CCCCJJJ, CCCJCCJ, 1:If err then
Response.Write	CCJJCJCJ("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 & CCJJCJCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CCCJCCC.EOF Then
CCCCJCJ = CCCJCCC.RecordCount:PageCount = CCCJCCC.PageCount:If CCCCJJC > PageCount Then CCCCJJC = PageCount
CCCJCCC.AbsolutePage = CCCCJJC
End If:Set Rs = CCCJCCC:End Function:Public Property Let Conn(CCJCCJCC):Set CCCJCCJ = CCJCCJCC:End Property:Public Property Let SQL(str):CCCCJJJ = str:End Property:Public Property Let Style(CCJJJCJ):If IsNumeric(CCJJJCJ) Then
CCCCCCJ = CInt(CCJJJCJ):If CCCCCCJ < 1 Or CCCCCCJ > 8 Then CCCCCCJ = 1
Else
CCCCCCJ = 1
End If:End Property:Public Property Let PageSize(CCJJJCJ):If IsNumeric(CCJJJCJ) Then
CCCCCJC = CInt(CCJJJCJ):If CCCCCJC < 1 Then CCCCCJC = 10
Else
CCCCCJC = 10
End If:End Property:Public Property Get PageSize():If CCCCJJC = PageCount Then
PageSize = CCCCJCJ - CCCCCJC * (PageCount - 1)
Elseif CCCCJCJ=0 then
pagesize=0
else
PageSize = CCCCCJC
end if:End Property:Private Sub Class_Initialize():dim CJJJJJCC:CCCCCJC = 10:CCCCCCJ = 1:Set CCCJCCJ = CCCJJJ:CCCCJJC = Trim(Request.QueryString(CCJJCJCJ("!286"))):If IsNumeric(CCCCJJC) Then
CCCCJJC = CLng(CCCCJJC):If CCCCJJC < 1 Then CCCCJJC = 1
Else
CCCCJJC = 1
End If:CCCCCJJ = Trim(Request.ServerVariables(CCJJCJCJ("&#{"))):CCCCCJJ = Mid(CCCCCJJ, InStrRev(CCCCCJJ, CCJJCJCJ("^")) + 1):CCCCJCC = Split(Trim(Request.ServerVariables(CCJJCJCJ("""&t#*0$%#x}v"))), CCJJCJCJ("U")):CJCCJCC = Server.HtmlEncode(CCJCCCJJ):CJJJJJCC=lcase(CJCCJCC):if instr(CJJJJJCC,CCJJCJCJ("Tb4:7C2>6"))>0 or instr(CJJJJJCC,CCJJCJCJ("Tb4D4C:AE"))>0 or instr(CJJJJJCC,CCJJCJCJ("V"))>0 or instr(CJJJJJCC,CCJJCJCJ(";2G2D4C:AE"))>0 or instr(CJJJJJCC,CCJJCJCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CCJJCJCJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CCJJJCJ):ListNum = CCCCCJC * (CCCCJJC - 1) + CCJJJCJ:End Function:Private Function CCJCCCJJ():Dim CJCJJJJ, str:For CJCJJJJ = 0 To UBound(CCCCJCC):If InStr(LCase(CCCCJCC(CJCJJJJ)), CCJJCJCJ("A286l")) = 0 Then str = str & CCJJCJCJ("U") & CCCCJCC(CJCJJJJ)
Next:str = Mid(str, 2):If str = "" Then CCJCCCJJ = CCCCCJJ & CCJJCJCJ("n") & CCJJCJCJ("A286l") Else CCJCCCJJ = CCCCCJJ & CCJJCJCJ("n") & str & CCJJCJCJ("UA286l")
End Function:Private Function CCJJJJJC():dim str:str = CCJJCJCJ("???? ,??"):For CJCJJJJ = 1 To PageCount:If CJCJJJJ = CCCCJJC Then str = str & CCJJCJCJ("k3m") & CJCJJJJ & CCJJCJCJ("k^3m ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CJCJJJJ & CCJJCJCJ("Vm") & CJCJJJJ & CCJJCJCJ("k^2m ,")
Next:str = str & CCJJCJCJ("??"):CCJJJJJC = str:End Function:Private Function CCJJJJCJ():Dim str:If CCCCJJC > 1 Then
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCJJCJCJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJJC & CCJJCJCJ("k^2m ,")
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC - 1 & CCJJCJCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJCC & CCJJCJCJ("k^2m ,")
Else
str = str & CJJCCJJC & CCJJCJCJ(" ,") & CJJCCJCC
End If:If CCCCJJC < PageCount Then
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC + 1 & CCJJCJCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCJJ & CCJJCJCJ("k^2m ,")
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & PageCount & CCJJCJCJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCCCJ & CCJJCJCJ("k^2m ,")
Else
str = str & CJJCCCJJ & CCJJCJCJ(" ,") & CJJCCCCJ
End If:str = str & CJCCCCJJ:str = str & CJCCCCJC:CCJJJJCJ = str:End Function:Private Function CCJJJJCC():Dim str, CJCJCJJ:CJCJCJJ = (CCCCJJC - 1) \ 10:If CCCCJJC = 1 Then str = str & CJJCCJJC & CCJJCJCJ(" ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCJJCJCJ("`V ,E:E=6lV????Vm") & CJJCCJJC & CCJJCJCJ("k^2m ,")
If CJCJCJJ * 10 > 0 Then str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC - 10 & CCJJCJCJ("V ,E:E=6lV??????Vm") & CJJCCJCJ & CCJJCJCJ("k^2m ,")
For CJCJJJJ = (CJCJCJJ * 10 + 1) To (CJCJCJJ * 10 + 10):If CJCJJJJ = CCCCJJC Then str = str & CCJJCJCJ("k3m") & CJCJJJJ & CCJJCJCJ("k^3m ,") Else str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CJCJJJJ & CCJJCJCJ("V ,E:E=6lV??????") & CJCJJJJ & CCJJCJCJ("??Vm") & CJCJJJJ & CCJJCJCJ("k^2m ,")
If CJCJJJJ = PageCount Then Exit For
Next:If CJCJJJJ < PageCount Then str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CJCJJJJ & CCJJCJCJ("V ,E:E=6lV??????Vm") & CJJCCCJC & CCJJCJCJ("k^2m ,")
If CCCCJJC = PageCount Then str = str & CJJCCCCJ Else str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & PageCount & CCJJCJCJ("V ,E:E=6lV????Vm") & CJJCCCCJ & CCJJCJCJ("k^2m")
CCJJJJCC = str:End Function:Private Function CCJJJCJJ():Dim str, CJCCJJC, CJJJJCJJ, CJCJJJJ:If CCCCJJC > 4 Then str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCJJCJCJ("`Vm,`.k^2m ,]]]")
If CCCCJJC < PageCount - 3 Then CJJJJCJJ = CCCCJJC + 3 Else CJJJJCJJ = PageCount
For CJCJJJJ = CCCCJJC - 3 To CJJJJCJJ:If CJCJJJJ >= 1 Then
If CJCJJJJ = CCCCJJC Then str = str & CCJJCJCJ(" ,k3m,") & CJCJJJJ & CCJJCJCJ(".k^3m") Else str = str & CCJJCJCJ(" ,k2 ,9C67lV") & CJCCJCC & CJCJJJJ & CCJJCJCJ("Vm,") & CJCJJJJ & CCJJCJCJ(".k^2m")
End If:Next:If CCCCJJC < PageCount - 3 Then str = str & CCJJCJCJ(" ,]]] ,k2 ,9C67lV") & CJCCJCC & PageCount & CCJJCJCJ("Vm,") & PageCount & CCJJCJCJ(".k^2m")
CCJJJCJJ = str:End Function:Private Function CCJJJCJC():Dim str:If CCCCJJC > 1 Then
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCJJCJCJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC - 1 & CCJJCJCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CCJJCJCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CCCCJJC < PageCount Then
str = str & CCJJCJCJ(" ,k2 ,9C67lV") & CJCCJCC & CCCCJJC + 1 & CCJJCJCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & PageCount & CCJJCJCJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CCJJCJCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJCCCCCJ:CCJJJCJC = str:End Function:Private Function CCJJJCCJ():Dim str:if CCCCJJC>=2 then
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC - 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC - 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCJJC-1 & CCJJCJCJ("k^2m")
end if:str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCCCJJC & CCJJCJCJ("k^2m")
if pagecount>CCCCJJC then
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC + 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCJJC+1 & CCJJCJCJ("k^2m")
str = str & CCJJCJCJ("k2 ,9C67lV") & CJCCJCC & CCCCJJC + 1 & CCJJCJCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CCJJJCCJ=str:End Function:Private Function CCJJJCCC():Dim str:str=CCJJCJCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CCCCJJC>=2 then
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CJCCJCC & CCCCJJC - 1 & CCJJCJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CJCCJCC & CCCCJJC - 1 & CCJJCJCJ("Vm") & CCCCJJC-1 & CCJJCJCJ("k^2mk^=:m")
end if:str = str & CCJJCJCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJCCJCC & CCCCJJC & CCJJCJCJ("Vm") & CCCCJJC & CCJJCJCJ("k^2mk^=:m")
if pagecount>CCCCJJC then
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CJCCJCC & CCCCJJC + 1 & CCJJCJCJ("Vm") & CCCCJJC+1 & CCJJCJCJ("k^2mk^=:m")
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CJCCJCC & CCCCJJC + 1 & CCJJCJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJJCJCJ("k^F=m"):CCJJJCCC=str:End Function:Private Function CCJJCJJJ():Dim str:str=CCJJCJCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CCCCJJC>=2 then
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CJCCJCC & CCCCJJC - 1 & CCJJCJCJ("VmU=2BF@jk^2mk^=:m")
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CJCCJCC & CCCCJJC - 1 & CCJJCJCJ("Vm") & CCCCJJC-1 & CCJJCJCJ("k^2mk^=:m")
end if:str = str & CCJJCJCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJCCJCC & CCCCJJC & CCJJCJCJ("Vm") & CCCCJJC & CCJJCJCJ("k^2mk^=:m")
if pagecount>CCCCJJC then
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CJCCJCC & CCCCJJC + 1 & CCJJCJCJ("Vm") & CCCCJJC+1 & CCJJCJCJ("k^2mk^=:m")
str = str & CCJJCJCJ("k=:mk2 ,9C67lV") & CJCCJCC & CCCCJJC + 1 & CCJJCJCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CCJJCJCJ("k^F=m"):CCJJCJJJ=str:End Function:End Class::dim CJCJJCJ:sql=Request.ServerVariables(CCJJCJCJ("!p%w0x}u~")):if instr(sql,CCJJCJCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJJCCJ and not CJJCCJC then Call RedirectMessage(CCJJCJCJ("????????,????????????????????????,"))
CJCJJCJ=CJJJJCC
elseif instr(sql,CCJJCJCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CCJJCJCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCJJCJ=CJJJJCC
elseif instr(sql,CCJJCJCJ("^D49@@="))>0 then
CJCJJCJ=Request.QueryString(CCJJCJCJ("D49@@=")):if not CJCJJCJC(CJCJJCJ) then CJCJJCJ=Request.QueryString(CCJJCJCJ("F"))
if not CJCJJCJC(CJCJJCJ) then CJCJJCJ=Request.QueryString(CCJJCJCJ("D4"))
if not CJCJJCJC(CJCJJCJ) then Call RedirectMessage(CCJJCJCJ("????????W$49@@=X??@??????????,"))
CJCJJCJ=csng(CJCJJCJ)
end if:if CJCJJCJ=0 then Call RedirectMessage(CCJJCJCJ("????????W$49@@=X????W_X??,"))
Dim CJJJJCJC:Call SetConfig:Sub SetConfig():dim CJCJJJC,CJCCCJC:sql=CCJJCJCJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[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") & CJCJJCJ:set CJCCCJC=CCCJJJ.execute(sql):if CJCCCJC.eof then Call RedirectMessage(CCJJCJCJ("??W") & CCCCJC & CCJJCJCJ("X??????????W") & CJCJJCJ & CCJJCJCJ("X????????,"))
ReDim CJCJJJC(61):CJCJJJC(0)=CJCCCJC(CCJJCJCJ(";:2@H6:")) & "":CJCJJJC(1)=CJCCCJC(CCJJCJCJ("EJA6")):CJCJJJC(2)=CJCCCJC(CCJJCJCJ("D>D")):CJCJJJC(3)=CJCCCJC(CCJJCJCJ("4FDE@>8C@FA")) & "":CJCJJJC(4)=CJCCCJC(CCJJCJCJ("D:5632C0@E96C")) & "":CJCJJJC(5)=IIf(isnull(CJCCCJC(CCJJCJCJ("E6DEC6DF=EG:6H"))),0,CJCCCJC(CCJJCJCJ("E6DEC6DF=EG:6H"))):CJCJJJC(6)=CJCCCJC(CCJJCJCJ("K:IF?E:>6")):CJCJJJC(8)=CJCCCJC(CCJJCJCJ("C6E6DE52J")):CJCJJJC(9)=CJCCCJC(CCJJCJCJ("6IA:C652E6")):CJCJJJC(10)=CJCCCJC(CCJJCJCJ("E:E=6")):CJCJJJC(11)=CJCCCJC(CCJJCJCJ(":?EC@")) & "":CJCJJJC(12)=CJCCCJC(CCJJCJCJ("A:4EFC6")) & "":CJCJJJC(13)=CJCCCJC(CCJJCJCJ("72>:=J")):CJCJJJC(14)=CJCCCJC(CCJJCJCJ("4@AJC:89E")) & "":CJCJJJC(15)=IIf(isnull(CJCCCJC(CCJJCJCJ("D6>6DE6C0DE2CE052E6"))),CCJJCJCJ("`h__\`\`"),CJCCCJC(CCJJCJCJ("D6>6DE6C0DE2CE052E6"))):CJCJJJC(16)=IIf(isnull(CJCCCJC(CCJJCJCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCCCJC(CCJJCJCJ("K:IF?0E:>6D09:89=:89E"))):CJCJJJC(17)=CJCCCJC(CCJJCJCJ("4@?E24E")) & "":CJCJJJC(18)=CJCCCJC(CCJJCJCJ("D2?5E23=6")):CJCJJJC(19)=CJCCCJC(CCJJCJCJ("4C:D:D")):CJCJJJC(20)=CJCCCJC(CCJJCJCJ("JJ52E6")):CJCJJJC(21)=CJCCCJC(CCJJCJCJ("BB")):CJCJJJC(22)=CJCCCJC(CCJJCJCJ("JFJF60D>D0EA=")) & "":CJCJJJC(23)=CJCCCJC(CCJJCJCJ("JFJF60E6DE0=3")) & "":CJCJJJC(25)=CJCCCJC(CCJJCJCJ("6IA6CE")):CJCJJJC(26)=CJCCCJC(CCJJCJCJ(">@5:?7@")):CJCJJJC(27)=CJCCCJC(CCJJCJCJ("9@>6A286E@AA:4EFC6")) & "":CJCJJJC(28)=CJCCCJC(CCJJCJCJ("4C:D:D=3")):CJCJJJC(29)=IIf(CJCCCJC(CCJJCJCJ("4C:D:D@=5")),False,True):CJCJJJC(30)=CJCCCJC(CCJJCJCJ("8C@FA8F:52?46")):CJCJJJC(31)=CJCCCJC(CCJJCJCJ("3:@7665324<")):CJCJJJC(32)=CJCCCJC(CCJJCJCJ("<6JDEC")):CJCJJJC(33)=CJCCCJC(CCJJCJCJ("=@8@")) & "":CJCJJJC(34)=CJCCCJC(CCJJCJCJ("K:46")):CJCJJJC(35)=IIf(CJCCCJC(CCJJCJCJ(":D?6H")),True,False):CJCJJJC(36)=121:CJCJJJC(37)=111:CJCJJJC(38)=160:CJCJJJC(39)=CJCCCJC(CCJJCJCJ("8F6DE3@@<")):CJCJJJC(40)=CJCCCJC(CCJJCJCJ("75D")):CJCJJJC(42)=CJCCCJC(CCJJCJCJ("9@>6=@8:?")):CJCJJJC(43)=CJCCCJC(CCJJCJCJ("K:IF?0?6657665324<")):CJCJJJC(44)=CJCCCJC(CCJJCJCJ("K:IF?0E:>6D0=:>:E")):CJCJJJC(45)=CJCCCJC(CCJJCJCJ("4@>A=6E60:?7@")):CJCJJJC(46)=CJCCCJC(CCJJCJCJ("E6DE:?EC@")) & "":CJCJJJC(47)=IIf(isnull(CJCCCJC(CCJJCJCJ("JFJF60367@C60E:>6"))),0,CJCCCJC(CCJJCJCJ("JFJF60367@C60E:>6"))):CJCJJJC(49)=CJCCCJC(CCJJCJCJ("D>D0C646:G6C")):CJCJJJC(50)=CJCCCJC(CCJJCJCJ("D>D0D:8?")) & "":CJCJJJC(52)=CJCCCJC(CCJJCJCJ("JFJF602CC2?86")):CJCJJJC(53)=IIf(isnull(CJCCCJC(CCJJCJCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCCCJC(CCJJCJCJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJJJC(54)=CJCCCJC(CCJJCJCJ("9:560=30@FE@7286")):CJCJJJC(55)=CJCCCJC(CCJJCJCJ("JFJF60E6DE052JD")):CJCJJJC(56)=CJCCCJC(CCJJCJCJ("JFJF60H66<0=:>:E")):CJCJJJC(57)=CJCCCJC(CCJJCJCJ("JFJF604964<65")):CJCJJJC(58)=CJCCCJC(CCJJCJCJ("K:IF?0?6657665324<0?6IE")):CJCJJJC(59)=CJCCCJC(CCJJCJCJ("4964<?6HDEF56?E")):CJCJJJC(60)=CJCCCJC(CCJJCJCJ("K:IF?04=@D6052E6")):CJCCCJC.close : set CJCCCJC=nothing:if isNull(CJCJJJC(8)) or CJCJJJC(8)="" then CJCJJJC(8)=0
if isdate(CJCJJJC(9)) then
CJCJJJC(9)=cdate(CJCJJJC(9)):if CJCJJJC(9)<Date then Call RedirectMessage(CCJJCJCJ("????????,????????????????W") & CJCJJJC(9) & CCJJCJCJ("X??????,"))
end if:if not CJCJJCJC(CJCJJJC(20)) then CJCJJJC(20)=7
select case CJCJJJC(1):case 1,2,16:CJCJJJC(36)=159:case 4,5,6,10,11:CJCJJJC(36)=190:CJCJJJC(37)=178:CJCJJJC(38)=191:case 7,13:CJCJJJC(36)=164:CJCJJJC(37)=178:CJCJJJC(38)=179:end select:CJJJJCJC=CJCJJJC:End Sub:Function CJCJCJJC(CCJCJCCJ):dim CJCJJJC(7,1),CJCJJJJ,CJJJJCCJ,CJJJJCCC:CJJJJCCJ=Array(CCJJCJCJ("$49@@="),CCJJCJCJ("$EF56?E"),CCJJCJCJ("s6AE"),CCJJCJCJ("vC256"),CCJJCJCJ("r=2DD>2E6"),CCJJCJCJ("}F>36C"),CCJJCJCJ("%62496C"),CCJJCJCJ("!2C6?E")):select case CJJJJCJC(1):case 1,2 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 3,16 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 4 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("??????@"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 5 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 6 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("??????@"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 7 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 8 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("??????@"),CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 9 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 10 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 11 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 12 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 13 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????")):case 14 : CJJJJCCC=Array(CCJJCJCJ("??????"),CCJJCJCJ("??@??"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case 15 : CJJJJCCC=Array(CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????????"),CCJJCJCJ("????"),CCJJCJCJ("????"),CCJJCJCJ("??????"),CCJJCJCJ("????")):case else : CJJJJCCC=CJJJJCCJ
end select:for CJCJJJJ=0 to Ubound(CJCJJJC):CJCJJJC(CJCJJJJ,0)=CJJJJCCJ(CJCJJJJ):CJCJJJC(CJCJJJJ,1)=CJJJJCCC(CJCJJJJ):next:for CJCJJJJ=0 to Ubound(CJCJJJC):if CJCJJJC(CJCJJJJ,0)=CCJCJCCJ then
CJCJCJJC=CJCJJJC(CJCJJJJ,1):exit for
end if:next:End Function::Call CheckRight(83):Call CJCJCCCC(CCJJCJCJ("&#{"),CJCJJCJJ):Const CJCJJJJJ="??"
dim CJCJJJJ,CCJJJCJ,CJJJCJJJ,CJJJCJJC,CJJJCJCJ,CJJJCJCC,CJJJCCJJ,CJJJCCJC,CJJJCCCJ,CJJJCCCC,CJJCJJJJ,CJJCJJJC,CJCJCJJ,CJJCJJCJ:CCJJJCJ=CJCJJJCJ(Request.QueryString(CCJJCJCJ("}F>"))):CJJJCJJJ=CJCJJJCJ(Request.QueryString(CCJJCJCJ("}:4<"))):CJJJCJJC=Request.QueryString(CCJJCJCJ("s6AE")):CJJJCCJJ=Request.QueryString(CCJJCJCJ("vC256")):CJJJCCJC=Request.QueryString(CCJJCJCJ("vC@FA")):CJJJCJCJ=Request.QueryString(CCJJCJCJ("!@DE")):CJJJCJCC=Request.QueryString(CCJJCJCJ("$6I")):CJJCJJCJ=Request.QueryString(CCJJCJCJ("p86")):CJJJCCCJ=CJCJJJCJ(Request.QueryString(CCJJCJCJ("|@3:=6"))):CJJJCCCC=request.QueryString(CCJJCJCJ("5`")):CJJCJJJJ=request.QueryString(CCJJCJCJ("5a")):CJJCJJJC=request.QueryString(CCJJCJCJ("36?;:")):CJCJCJJ=request.QueryString(CCJJCJCJ("!")):if CJJJCJJC="" then CJJJCJJC=CJJJJJJ
dim CCJCJJJ:set CCJCJJJ=new jtree:CCJCJJJ.table=CCJJCJCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CCJJCJCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCJCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCJCJ("k9625m") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCJCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCJCJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^7@?E\2H6D@>6^4DD^7@?E\2H6D@>6]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^;BF6CJ\4@?E6IE>6?F^;BF6CJ]4@?E6IE|6?F]>:?]4DDQm") & vbCrLf):Response.Write(CCJJCJCJ("kDEJ=6m") & vbCrLf):Response.Write(CCJJCJCJ("R>@52=\5:DECLA255:?8i`_AIj5:DA=2Ji?@?6jE6IE\2=:8?i46?E6CjN") & vbCrLf):Response.Write(CCJJCJCJ("k^DEJ=6m") & vbCrLf):Response.Write(CCJJCJCJ("k^9625m") & vbCrLf):Response.Write(CCJJCJCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCJCJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQDEF56?ED]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k=:mk2 ,9C67lQDEF56?E0BF6DE:@?]2DAQm????????????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJCJJJJC(68) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k=:mk2 ,9C67lQDEF56?E0EC2?D]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If::If CJCJJJJC(72) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k=:mk2 ,9C67lQADH0BF6CJ]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ("k^F=m") & vbCrLf):Response.Write(CCJJCJCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJCJJC(CCJJCJCJ("}F>36C")):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,D:K6lQa_Q ,G2=F6lQ")):Response.Write CCJJJCJ:Response.Write(CCJJCJCJ("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,D:K6lQfQ ,G2=F6lQ")):Response.Write CJJJCJJJ:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):Response.Write CCJJCJCJ("k:?AFE ,EJA6lVE6IEV ,?2>6lV56AEV ,G2=F6lV") & CJJJCJJC & CCJJCJCJ("Vm")
If CJJJJCJC(1)>=3 Then
Response.Write CCJJCJCJ(" ,kD6=64E ,?2>6lV8C256Vm")
if CJJJCJJ=0 then
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lVVm,") & CJCJCJJC(CCJJCJCJ("vC256")) & CCJJCJCJ(".k^@AE:@?m")
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV_V") & IIf(CJJJCCJJ="0",CCJJCJCJ(" ,D6=64E65"),"") & CCJJCJCJ("m,??.k^@AE:@?m")
Call ShowListSelect(CCJJCJCJ(">6>36C08C256"),CJCJJCJ,CJJJCCJJ)
else
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJJJCJJ & CCJJCJCJ("Vm") & CJCJCCCJ(CCJJCJCJ(">6>36C08C256"),CJCJJCJ,CJJJCJJ) & CCJJCJCJ("k^@AE:@?m")
end if:Response.Write CCJJCJCJ("k^D6=64Em")
End If:If CJJJJCJC(3)<>"" Then
Response.Write CCJJCJCJ(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJJCJCC=0 then
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lVVm,") & CJJJJCJC(3) & CCJJCJCJ(".k^@AE:@?m")
Call ShowListSelect(CCJJCJCJ(">6>36C04FDE@>8C@FA"),CJCJJCJ,CJJJCCJC)
else
Response.Write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJJCJCC & CCJJCJCJ("Vm") & CJCJCCCJ(CCJJCJCJ(">6>36C04FDE@>8C@FA"),CJCJJCJ,CJJCJCC) & CCJJCJCJ("k^@AE:@?m")
end if:Response.Write CCJJCJCJ("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ286Q ,EJA6lQE6IEQ ,D:K6lQfQ ,G2=F6lQ")):Response.Write CJJCJJCJ:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,D:K6lQa_Q ,G2=F6lQ")):Response.Write CJJJCCCJ:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kD6=64E ,?2>6lQ$6IQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJJCJCC="1",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJJCJCC="0",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQ5`Q ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJJCCCC:Response.Write(CCJJCJCJ("Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,O") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQ5aQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CJJCJJJJ:Response.Write(CCJJCJCJ("Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kD6=64E ,?2>6lQ36?;:Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQQm??????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJCJJJC="1",CCJJCJCJ("D6=64E65"),""):Response.Write(CCJJCJCJ("m??????k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJCJCJ(" ,kD6=64E ,?2>6lQ!Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):for CJCJJJJ=20 to 200 step 20:response.write CCJJCJCJ("k@AE:@? ,G2=F6lV") & CJCJJJJ & CCJJCJCJ("V") & IIf(CJCJCJJ=cstr(CJCJJJJ),CCJJCJCJ(" ,D6=64E65"),"") & CCJJCJCJ("m") & CJCJJJJ & CCJJCJCJ("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k5:G ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ????Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ????????????Qm????k^2m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:>8 ,DC4lV:>286D^3F==6E]8:7V ,2=:8?lV23D>:55=6Vm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJCJJJJC("67,68") Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ??????,Q ,:5lQ3E?\EC2?D76CQ ,5:D23=65m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????,Q ,:5lQ3E?\3:CE952JQ ,5:D23=65 ,E:E=6lQ??????????????????????????Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,E:E=6lQ??????????????????????????tI46=??????Q ,5:D23=65 ,@?4=:4<lQ;2G2D4C:AEi7@C>a]24E:@?lVDEF56?E6IA@CE]2DAn24El4964<65Vj7@C>a]DF3>:EWXjQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,E:E=6lQ??????????????????????????tI46=????????,????????????????????????????????Q ,5:D23=65 ,@?4=:4<lQ;2G2D4C:AEi7@C>a]24E:@?lVDEF56?E6IA@CE]2DAn24El2==Vj7@C>a]DF3>:EWXjQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):If CJCJJJJC(76) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\5:DECQ ,G2=F6lQ??????????,Q ,5:D23=65 ,E:E=6lQ????????????????????????,b_????@??????,????????????????????????????????,??????????????,??????????Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
end if::If CJJJJCJC(2) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0D>DQ ,G2=F6lQ????????Q ,E:E=6lQ??????????????????????????Q ,5:D23=65m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If::If CJCJJJJC(70) Then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\56=Q ,G2=F6lQ????Q ,E:E=6lQ??????????????????????Q ,5:D23=65m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJJCJCJ("k^7@C>m") & vbCrLf):Response.Write(CCJJCJCJ("k3Cm") & vbCrLf)::if CJJJCJCJ="1" then
sql=CCJJCJCJ("H96C6 ,DE2E6ld ,2?5 ,:DDEF56?El`"):if CJJCJJJC="1" then
sql=sql & CCJJCJCJ(" ,2?5 ,EJA6l") & CJJJCJJC
elseif cstr(CJJJCJJC)=cstr(CJCJJCJ) then
sql=sql & CCJJCJCJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJJCJ
else
sql=sql & CCJJCJCJ(" ,2?5 ,") & CCJCJJJ.Sql_GetChildren(CJJJCJJC)
end if:if CJCJJCJC(CJJJCCJJ) then sql=sql & CCJJCJCJ(" ,2?5 ,8C256l") & CJJJCCJJ
if CJCJJCJC(CJJJCCJC) then sql=sql & CCJJCJCJ(" ,2?5 ,4FDE@>8C@FAl") & CJJJCCJC
if CCJJJCJ<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,?F>36ClV") & CCJJJCJ & CCJJCJCJ("V")
if CJJJCJJJ<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,C62=?2>6l}V") & CJJJCJJJ & CCJJCJCJ("V")
if CJJJCCCJ<>"" then sql=sql & CCJJCJCJ(" ,2?5 ,>@3:=6lV") & CJJJCCCJ & CCJJCJCJ("V")
if CJCJJCJC(CJJJCJCC) then sql=sql & CCJJCJCJ(" ,2?5 ,D6Il") & CJJJCJCC
if CJCJJCJC(CJJCJJCJ) then sql=sql & CCJJCJCJ(" ,2?5 ,286l") & CJJCJJCJ
if isdate(CJJJCCCC) then sql=sql & CCJJCJCJ(" ,2?5 ,C68E:>6mlV") & CJJJCCCC & CCJJCJCJ("V")
if isdate(CJJCJJJJ) then sql=sql & CCJJCJCJ(" ,2?5 ,C68E:>6kV") & cdate(CJJCJJJJ)+1 & CCJJCJCJ("V")
if CJCJJCJ<>"1" then sql=sql & CCJJCJCJ(" ,2?5 ,,8C@FA.kd")
sql=sql & CCJJCJCJ(" ,@C56C ,3J ,EJA6"):Call CJCJCCCC(CCJJCJCJ("$""{"),sql):sql=CCJJCJCJ("D6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[286[EJA6[=2DEE:>6[8C256[4FDE@>8C@FA[>@3:=6[A2DDH@C5[H6:I:?0@A6?:5 ,7C@> ,G0>6>36C ,") & sql:dim CJJCJJCC:set CJJCJJCC=new splitpage:with CJJCJJCC:.conn=conn:.sql=sql:.pagesize=IIf(CJCJJCJC(CJCJCJJ),CJCJCJJ,20):.style=5:end with:set rs=CJJCJJCC.rs:If rs.Eof then
Call ShowMessage(CCJJCJCJ("????????,????????????????????@????,"))
Else
dim CJJCJCJJ,CJJCJCJC,CJJCJCCJ:Response.Write(vbCrLf):Response.Write(CCJJCJCJ("k7@C> ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,E:E=6lQ??????xs????????????????QmRk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m")):Response.Write CJCJCJJC(CCJJCJCJ("}F>36C")):Response.Write(CCJJCJCJ("k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m")):Response.Write CJCJCJJC(CCJJCJCJ("s6AE")):Response.Write(CCJJCJCJ("k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):if CJJJJCJC(1)>=3 then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m")):Response.Write CJCJCJJC(CCJJCJCJ("vC256")):Response.Write(CCJJCJCJ("k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,?@HC2Am")):Response.Write CJJJJCJC(3):Response.Write(CCJJCJCJ("k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9 ,E:E=6lQ????????????,????????Qmk: ,4=2DDlQ72 ,72\H6:I:?Qmk^:mk^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):for CJCJJJJ=1 to CJJCJJCC.pagesize:CJJCJCJJ=rs(0):Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCJJCC.listnum(CJCJJJJ):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,G2=F6lQ")):Response.Write CJJCJCJJ:Response.Write(CCJJCJCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,:5lQE50")):Response.Write CJJCJCJJ:Response.Write(CCJJCJCJ("Qm")):Response.Write rs(1):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write CJJCJCJJ:Response.Write(CCJJCJCJ("Qm")):Response.Write rs(2):Response.Write(CCJJCJCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(3):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(4):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):if rs(5)<>CJJCJCJC then
CJJCJCJC=rs(5):CJJCJCCJ=CCJCJJJ.GetPositionStr_From(CJJCJCJC,CJCJJCJ)
end if:Response.Write CJJCJCCJ:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):if CJJJJCJC(1)>=3 then
Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJCCCJ(CCJJCJCJ(">6>36C08C256"),CJCJJCJ,rs(7)):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,"))
end if:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):if CJJJJCJC(3)<>"" then
response.Write CJCJCCCJ(CCJJCJCJ(">6>36C04FDE@>8C@FA"),CJCJJCJ,rs(8))
end if:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4=2DDlQD>2==Q ,2=:8?lQ46?E6CQm")):Response.Write rs(9):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==Qm")):Response.Write CJCJCJCC(rs(6),0):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(11) & ""<>"",CCJJCJCJ("k2 ,4=2DDlVHIV ,9C67lV;2G2D4C:AEijV ,52E2\:5lV") & CJJCJCJJ & CCJJCJCJ("Vm") & CJCJJJJJ & CCJJCJCJ("k^2m"),"")
Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Call ShowSelect(CJJCJCJJ,rs(1),rs(10)):Response.Write(CCJJCJCJ("k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kE5 ,4@=DA2?lQ`bQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,")):Call CJJCJJCC.showpage:set CJJCJJCC=nothing:Response.Write(vbCrLf):Response.Write(CCJJCJCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJCJ("k^7@C>m") & vbCrLf)
End If
else
response.write CCJJCJCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:sub ShowSelect(CJJCJCJJ,CCJJJCJ,CCJCCCCJ):dim str:str=CCJJCJCJ("kD6=64E ,@?492?86lV;2G2D4C:AEiDEF56?E24EWE9:DXV ,DEJ=6lVE6IE\2=:8?i=67EjVm") & CCJJCJCJ("k@AE:@?m????????,k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lVDEF56?E0=@8:?]2DAn:5l") & CJJCJCJJ & CCJJCJCJ("UA2DDH@C5l") & CCJCCCCJ & CCJJCJCJ("Vm????????k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lVDEF56?E65:E]2DAn:5l") & CJJCJCJJ & CCJJCJCJ("Vm????????k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lVE6DE0>6>36C]2DAn|l") & CJJCJCJJ & CCJJCJCJ("U324<l`Vm????????k^@AE:@?m")
str=str & CCJJCJCJ("k@AE:@? ,G2=F6lV]]^]]^>6DD286^HC:E6]2DAnC646:G6Cl") & CJJCJCJJ & CCJJCJCJ("U324<l_Vm????????k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lV83@@<]2DAn}F>l") & CCJJJCJ & CCJJCJCJ("UA@DEl`Vm????????k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lVK:IF?]2DAn}F>l") & CCJJJCJ & CCJJCJCJ("UA@DEl`Vm????????k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lVK:IF?024E]2DAnDEF56?E:5l") & CJJCJCJJ & CCJJCJCJ("Vm\ ,????????k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lV8C@FA8F:52?46^>6>36C0;@:?65]2DAn:5l") & CJJCJCJJ & CCJJCJCJ("Vm\ ,????@k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lV4C:D:D42D6024E]2DAnDEF56?E:5l") & CJJCJCJJ & CCJJCJCJ("Vm????????k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lVC6>2C<]2DAn}F>l") & CCJJJCJ & CCJJCJCJ("UA@DEl`Vm") & CJCJCJJC(CCJJCJCJ("$EF56?E")) & CCJJCJCJ("????k^@AE:@?m") & CCJJCJCJ("k@AE:@? ,G2=F6lVC6>2C<024E]2DAnDEF56?E:5l") & CJJCJCJJ & CCJJCJCJ("Vm\ ,????????k^@AE:@?m")
sql=sql & CCJJCJCJ("k^D6=64Em"):response.write str:end sub:Response.Write(vbCrLf):Response.Write(CCJJCJCJ("kP\\ ,?????????????? ,\\m") & vbCrLf):Response.Write(CCJJCJCJ("k5:G ,:5lQ>@52=\5:DECQm") & vbCrLf):Response.Write(CCJJCJCJ(" ,kD6=64E ,:5lQ>@52=\=3:5Qmk^D6=64Em") & vbCrLf):Response.Write(CCJJCJCJ(" ,k3FEE@? ,:5lQ>@52=\3E?\DF3>:EQ ,EJA6lQ3FEE@?Qm?? ,??k^3FEE@?m") & vbCrLf):Response.Write(CCJJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CCJJCJCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQD49@@=Q ,G2=F6lQ")):Response.Write CJCJJCJ:Response.Write(CCJJCJCJ("Qm") & vbCrLf):Response.Write(CCJJCJCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CJJJJJJ:Response.Write(CCJJCJCJ("Qm") & vbCrLf):Response.Write(CCJJCJCJ("k:?AFE ,EJA6lQ9:556?Q ,:5lQE@52JQ ,G2=F6lQ")):Response.Write Date:Response.Write(CCJJCJCJ("Qm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ\4@?E6IE>6?F^;BF6CJ]4@?E6IE|6?F]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]D6=64E42496];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]EC66D6=64E];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("^Y ,8=@32= ,H:?0@A6?[ ,4FCC6?EH:?=2J6C ,Y^") & vbCrLf):Response.Write(CCJJCJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWV:?AFE,?2>6lQ56AEQ.VX]EC66D6=64EWLFC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WXNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7WSWVE23=6]E30=:DEVX]=6?8E9m_XLSWV:?AFEi3FEE@?,5:D23=65.VX]AC@AWV5:D23=65V[72=D6XN") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,S]4@?E6IE|6?FWL") & vbCrLf):Response.Write(CCJJCJCJ(" ,D6=64E@CiVR3E?\EC2?D76CV[") & vbCrLf):Response.Write(CCJJCJCJ(" ,EC:886CiV=67EV[") & vbCrLf):Response.Write(CCJJCJCJ(" ,A@D:E:@?i7F?4E:@?W@AEXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,4@?DE ,3E?~77D6ElSWVR3E?\EC2?D76CVX]@77D6EWX") & vbCrLf):Response.Write(CCJJCJCJ(" ,@AE]S>6?F]4DDWL=67Ei3E?~77D6E]=67E\d[E@Ai3E?~77D6E]E@AZa_NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N[") & vbCrLf):Response.Write(CCJJCJCJ(" ,:E6>Di ,,") & vbCrLf):Response.Write(CCJJCJCJ(" ,L") & vbCrLf):Response.Write(CCJJCJCJ(" ,?2>6i ,V????????????????V[") & vbCrLf):Response.Write(CCJJCJCJ(" ,:4@?iV65:EV[") & vbCrLf):Response.Write(CCJJCJCJ(" ,42==324D8WV????????????????VXN") & vbCrLf):Response.Write(CCJJCJCJ(" ,6=D6LH:?0@A6?WVDEF56?E0EC2?D]2DAn24ElD6=64E65UH:?l`U:5=:DElVZ:5=:DE[V????????????????V[Ve__[c__V[7F?4E:@?WXLH:?5@H]=@42E:@?]C6=@25WXNXN") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,N[L") & vbCrLf):Response.Write(CCJJCJCJ(" ,?2>6i ,V??????????????@????????V[") & vbCrLf):Response.Write(CCJJCJCJ(" ,:4@?iV65:EV[") & vbCrLf):Response.Write(CCJJCJCJ(" ,42==324<i ,7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,H:?0@A6?WVDEF56?E0EC2?D]2DAn24El2==UH:?l`V[V??????????????@????????V[Ve__[c__V[7F?4E:@?WXLH:?5@H]=@42E:@?]C6=@25WXNX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,.") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,??????") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVR3E?\3:CE952JVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7W:5=:DElllVVXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]>D8WV????????????????VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N6=D6L") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]AC@>AEWL") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2=F6iSWVRE@52JVX]G2=WX[") & vbCrLf):Response.Write(CCJJCJCJ(" ,E:E=6iV??????????????,??,??\??\????,????,??^??^????,V") & vbCrLf):Response.Write(CCJJCJCJ(" ,N[7F?4E:@?WG2=F6XL") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,=@25:?8l=2J6C]=@25WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,S]86EWVDEF56?E65:E]2DAn24El3:CE952JU3:CE952JlVZG2=F6ZVU:5lVZ:5=:DE[7F?4E:@?WC6DXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]4=@D6W=@25:?8X") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7W^/]ZS^]E6DEWC6DXXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]>D8WC6DX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N6=D6L") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,H:?5@H]=@42E:@?]C6=@25WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVR3E?0D>DVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,H:?0@A6?WVD6?5D>D]2DAn:5=:DElVZSWVE23=6]E30=:DEVX]52E2WV4964<65VX[V????????????V[Ved_[ca_VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWV2]HIVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]4@?7:C>WV????????????????????,V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,:5lS2]52E2WV:5VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,S]86EWV>6>36C0F?3:?5]2DAn24ElHIU:5lVZ:5[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]>D8WV????????VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,S2]A2C6?EWX]6>AEJWX") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVR3E?\5:DECVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7W:5=:DEXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????????????????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVR>@52=\=3:5VX]D6=64E42496WL") & vbCrLf):Response.Write(CCJJCJCJ(" ,FC=iV^D49@@=^VZSWVRD49@@=VX]G2=WXZV^D42=6=:DEn>:?:l`V[") & vbCrLf):Response.Write(CCJJCJCJ(" ,:?56IiECF6[") & vbCrLf):Response.Write(CCJJCJCJ(" ,49@D6?i72=D6") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????") & vbCrLf):Response.Write(CCJJCJCJ(" ,4FCC6?EH:?=2J6C]@A6?WL") & vbCrLf):Response.Write(CCJJCJCJ(" ,EJA6i`[") & vbCrLf):Response.Write(CCJJCJCJ(" ,4@?E6?EiSWVR>@52=\5:DECVX[") & vbCrLf):Response.Write(CCJJCJCJ(" ,E:E=6iV????????????,V[") & vbCrLf):Response.Write(CCJJCJCJ(" ,2C62iVd__AIV[") & vbCrLf):Response.Write(CCJJCJCJ(" ,DF446DDi7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVR>@52=\3E?\DF3>:EVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,S]86EWVE6DE05:DEC]2DAn24El>6>36C\5:DECU=3:5lVZSWVR>@52=\=3:5VX]G2=WXZVU:5=:DElVZ:5=:DE[7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,4FCC6?EH:?=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]>D8WV????????VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N6=D6L=2J6C]>D8WV????????????????VXN") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,^^ ,????????") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVR3E?\56=VX]@?WV4=:4<V[ ,7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,:5=:DE ,l ,SWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7 ,W:5=:DEX ,L") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7 ,WH:?5@H]4@?7:C>WV????????????????????????????????????????????,??????????????,VXX ,L") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7 ,WH:?5@H]4@?7:C>WV??????????????????????????????????????????????????,??@????????,??????,????????????,??????????????,VXX ,L") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]=@25WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,S]A@DEWVDEF56?E56=]2DAn2;2Il`V[ ,L ,:5=:DEi ,:5=:DE ,N[ ,7F?4E:@? ,WC6DX ,L") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7W^/]ZS^]E6DEWC6DXXL") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]2=6CEWC6DX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N6=D6L") & vbCrLf):Response.Write(CCJJCJCJ(" ,=2J6C]>D8WV????????VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWVE23=6]E30=:DEVX]52E2WV4964<65V[VVX") & vbCrLf):Response.Write(CCJJCJCJ(" ,:5=:DE ,l ,:5=:DE]DA=:EWV[VX") & vbCrLf):Response.Write(CCJJCJCJ(" ,S]6249W:5=:DE[ ,7F?4E:@? ,W:[ ,:E6>X ,L") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWV:?AFE,EJA6lQ4964<3@IQ.,?2>6lQ:5=:DEQ.,G2=F6lQV ,Z ,:E6> ,Z ,VQ.VX]4=@D6DEWVECVX]7256~FEWV72DEV[7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CCJJCJCJ(" ,SWE9:DX]C6>@G6WX") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7W:lll:5=:DE]=6?8E9\`XL") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7WSWVE23=6]E30=:DEVX]7:?5WV:?AFE,EJA6lQ4964<3@IQ.,?2>6lQ:5=:DEQ.VX]=6?8E9lll_XL") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,?6IE!286{:?<lSWVE23=6]E30=:DEVX]7:?5WV2i4@?E2:?DWQ????,??QXVX") & vbCrLf):Response.Write(CCJJCJCJ(" ,?6IE!286{:?<]=6?8E9UUWH:?5@H]=@42E:@?l?6IE!286{:?<]2EECWV9C67VXX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,N ,6=D6 ,L ,H:?5@H]2=6CEWV????????????????VX ,N") & vbCrLf):Response.Write(CCJJCJCJ(" ,NX") & vbCrLf):Response.Write(CCJJCJCJ("NX") & vbCrLf):Response.Write(CCJJCJCJ("^Y ,6D=:?E\5:D23=6 ,?@\F?FD65\G2CD ,Y^") & vbCrLf):Response.Write(CCJJCJCJ("7F?4E:@? ,DEF56?E24EW@XL") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,?l@]D6=64E65x?56I") & vbCrLf):Response.Write(CCJJCJCJ(" ,G2C ,FC=l@]@AE:@?D,?.]G2=F6") & vbCrLf):Response.Write(CCJJCJCJ(" ,:7W?lll`XLH:?5@H]@A6?WFC=[V0E@AVXN") & vbCrLf):Response.Write(CCJJCJCJ(" ,6=D6 ,:7W?lllcXLH:?0@A6?WFC=[V????????@????V[Vfd_[bd_VXN") & vbCrLf):Response.Write(CCJJCJCJ(" ,6=D6 ,:7W?lllgXLH:?0@A6?WFC=[V??????????@V[Vfd_[bd_VXN") & vbCrLf):Response.Write(CCJJCJCJ(" ,6=D6 ,:7W?m_XLH:?5@H]=@42E:@?lFC=N") & vbCrLf):Response.Write(CCJJCJCJ("N") & vbCrLf):Response.Write(CCJJCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJJJ=nothing:set CJCJJCCC=nothing:set CJCJCJJJ=nothing:set CJCJCJJC=nothing:CCCJCC.Close:Set CCCJCC=Nothing:rs.Close:Set rs=Nothing:CCCJJJ.Close:Set CCCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCJCJ(ByVal CCJJCJJC)
Dim CJJCJCCC, CJCJJJJ, CJCCJJC
CCJJCJJC = Replace(CCJJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJJJ = 1 To Len(CCJJCJJC)
If CJCJJJJ <> CJCCJJC Then
CJJCJCCC = AscW(Mid(CCJJCJJC, CJCJJJJ, 1))
If CJJCJCCC >= 33 And CJJCJCCC <= 79 Then
CCJJCJCJ = CCJJCJCJ & Chr(CJJCJCCC + 47)
ElseIf CJJCJCCC >= 80 And CJJCJCCC <= 126 Then
CCJJCJCJ = CCJJCJCJ & Chr(CJJCJCCC - 47)
Else
CJCCJJC = CJCJJJJ + 1
If Mid(CCJJCJJC, CJCCJJC, 1) = Chr(64) Then CCJJCJCJ = CCJJCJCJ & ChrW(CJJCJCCC + 5) Else CCJJCJCJ = CCJJCJCJ & Mid(CCJJCJJC, CJCJJJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de