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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJJC, CCJJCJ,rs, CCJCJJ, sql:Set CCJJJC = server.CreateObject(CJCJCCJJ("ps~sq]r@??64E:@?")):CCJJJC.open Application(CJCJCCJJ("r@??64E:@?$EC:?8")):Set CCJJCJ=CCJJJC::Function CJJJCJCJ(CJCJCCJC):Dim str,CCJCCC:str = Trim(CJCJCCJC):If IsNull(str) Or str = "" Then
CJJJCJCJ = ""
else
str=Replace(str, CJCJCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJCCJJ("k:7C2>6"), CJCJCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJCCJJ("kD4C:AE"), CJCJCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJCCC=new RegExp:CCJCCC.Pattern=CJCJCCJJ("@?W,2\K.ZXl"):CCJCCC.IgnoreCase = True:CCJCCC.Global=True:str=CCJCCC.Replace(str,CJCJCCJJ("@?S`U6BF2=Dj")):set CCJCCC=nothing:CJJJCJCJ=str
End If:End Function:Function IIf(CJCJCCCJ, CJCJCCCC, CJCCJJJJ):if isnull(CJCJCCCJ) or isempty(CJCJCCCJ) then
IIf = CJCCJJJJ
elseif CJCJCCCJ Then
IIf = CJCJCCCC
Else
IIf = CJCCJJJJ
end if:End Function:Const CJJJJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CCCJJJ,CCCJJC,CCCJCJ:if isarray(str) then
on error resume next:CCCJJJ=ubound(str,2):CCCJCJ=err.number:err.clear:on error goto 0:if CCCJCJ<>0 then
for CCCJJJ=0 to ubound(str):if CCCJJJ>0 then response.Write CJCJCCJJ("k3C ,^m")
response.Write CCCJJJ & CJCJCCJJ("i ,") & str(CCCJJJ):next
else
response.Write CJCJCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCJJJ=0 to ubound(str,2):response.Write CJCJCCJJ("kE9 ,2=:8?lV=67EVm") & CCCJJJ & CJCJCCJJ("k^E9m")
next:response.Write CJCJCCJJ("k^ECm"):for CCCJJJ=0 to ubound(str):response.Write CJCJCCJJ("kECmkE9m") & CCCJJJ & CJCJCCJJ("k^E9m"):for CCCJJC=0 to ubound(str,2):response.Write CJCJCCJJ("kE5m") & str(CCCJJJ,CCCJJC) & CJCJCCJJ("k^E5m"):next:response.Write CJCJCCJJ("k^ECm"):next:response.Write CJCJCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJJCCJJ():Dim CCCJCC, CCCCJJ:CCCCJJ = Request.ServerVariables(CJCJCCJJ("!p%w0x}u~")):CCCJCC = Request.ServerVariables(CJCJCCJJ("""&t#*0$%#x}v")):If CCCJCC <> Empty Then
if instr(lcase(CCCJCC),CJCJCCJJ("Tb4:7C2>6"))>0 or instr(lcase(CCCJCC),CJCJCCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCJCCJJ("????????,????????????????????????,??,??,"))
CCCCJJ = CCCCJJ & CJCJCCJJ("n") & CCCJCC
end if:CJJJCCJJ = CCCCJJ:End Function:Sub SetHttpOnlyCookie(CJCCJJJC,CJCCJJCJ):dim CCCCJC:CCCCJC=CJCCJJJC & CJCJCCJJ("l") & CJCCJJCJ & CJCJCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCCJJ("$6E\r@@<:6"),CCCCJC):End Sub:Sub WriteCurrentURL():Response.Cookies(CJCJCCJJ("!$*"))(CJCJCCJJ("&#{")) = CJJJCCJJ:End Sub::::::Function CJJJCCJC(CCCJCJ):if isnull(CCCJCJ) or trim(CCCJCJ)="" or not isnumeric(CCCJCJ) then
CJJJCCJC=false
else
Dim CCJCCC:Set CCJCCC = New RegExp:CCJCCC.Pattern = CJCJCCJJ("/-5ZS"):CCJCCC.IgnoreCase = True:CJJJCCJC = CCJCCC.test(CCCJCJ):set CCJCCC=nothing
end if:End Function:Function CJJJCCCJ(CJCCJJCC):dim CCCCCJ,CCCCCC:CCCCCJ=CJCJCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCJJCC & CJCJCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCCC=CCJJJC.execute(CCCCCJ):CJJJCCCJ = CCCCCC(0):if isnull(CJJJCCCJ) then CJJJCCCJ=1
CCCCCC.close : set CCCCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCJCC=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:CCCCCC.close : set CCCCCC=nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:rs.Close : Set rs=Nothing:CJJCJJCJ.Close : Set CJJCJJCJ = Nothing:CCJJJC.Close : Set CCJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCCJJ("!$*0|6DD286"),server.URLEncode(CJCCJCJJ)):Response.Redirect CJCJCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJCJJCC(ByVal CJJCJCJJ,style):if not isdate(CJJCJCJJ) then
CJJCJJCC=CJJCJCJJ:exit function
end if:dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:CJJCJCJJ=cdate(CJJCJCJJ):CJJJJJJ=Year(CJJCJCJJ):CJJJJJC=Month(CJJCJCJJ):CJJJJCJ=Day(CJJCJCJJ):select case style:case 0:CJJCJJCC=CJJJJJJ & CJCJCCJJ("\") & right(0 & CJJJJJC,2) & CJCJCCJJ("\") & right(0 & CJJJJCJ,2):case 1:CJJCJJCC=CJJJJJJ & right(0 & CJJJJJC,2) & right(0 & CJJJJCJ,2):case 2:CJJCJJCC=right(CJJJJJJ,2) & CJCJCCJJ("\") & right(0 & CJJJJJC,2) & CJCJCCJJ("\") & right(0 & CJJJJCJ,2):case 3:CJJCJJCC=CJJJJJJ & CJCJCCJJ("\") & right(0 & CJJJJJC,2):case 4:CJJCJJCC=right(0 & CJJJJJC,2) & CJCJCCJJ("\") & right(0 & CJJJJCJ,2):case 5:CJJCJJCC=right(0 & CJJJJCJ,2):case 6:CJJCJJCC=CJJJJJJ & CJCJCCJJ("??") & right(0 & CJJJJJC,2) & CJCJCCJJ("??") & right(0 & CJJJJCJ,2) & CJCJCCJJ("??"):case else
CJJCJJCC=CJJCJCJJ:end select:End Function::::::::::::::::::::Sub ClearCache(CJCCJCJC):Application.Contents.Remove CJCCJCJC
End Sub::Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC,CJCJCJJ,CJCJCJC:Dim CJCJCCJ:CJCJCCJ=Trim(Request.Cookies(CJCJCCJJ("!$*|t|qt#"))):if CJCJCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCJJ>0 then
sql=CJCJCCJJ("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") & CJJJCJC & CJCJCCJJ("V ,2?5 ,:5l") & CJJJCJJ
set rs=CCJJJC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJJCCJ=rs(2) & "":CJJJCCC=rs(3):CJJCJJJ=rs(5):CJJCJJC=rs(6):CJJCJCJ=rs(9):CJJCJCC=rs(15):CJJCCJC=rs(0):CJCJCJJ=rs(1):CJCJJCC=rs(11) & "":CJJCCCJ=rs(10) & "":CJJCCJJ=rs(12):CJJCCCC=rs(14):CJCJJJJ=rs(13):CJCJJJC=rs(7) & "":CJCJJCJ=rs(4):CJCJCJC=rs(8):if isnull(CJJCJCC) then CJJCJCC=0
if isnull(CJJCJCJ) or CJJCJCJ=0 then CJJCJCJ=CJJJCCC
if isnull(CJCJJCJ) then CJCJJCJ=0
if isnull(CJJCJJJ) then CJJCJJJ=0
if instr(CJCJCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJC)>0 then Call RedirectMessage(CJCJCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCJJ,CJJJCJC)
End IF
end if:Sub CheckRight(CCCCJCC):dim CCCJJJ,CJCJCCC:if CJJJCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJCCJJ("??????????????,????????????,"))
elseIf not CJJCJCJC(CCCCJCC) then
Call RedirectMessage(CJCJCCJJ("????W") & CCCCJCC & CJCJCCJJ("X????????,????????????????????,"))
end if:End Sub:Function CJJCJCJC(CCCCJCC):dim CCCJJJ,CJCJCCC:CJCJCCC=split(CCCCJCC,CJCJCCJJ("[")):CJJCJCJC=False:for CCCJJJ=0 to ubound(CJCJCCC):If Mid(CJJJCCJ,CJCJCCC(CCCJJJ),1)="1" then
CJJCJCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJCJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJJJ:CJCCJJJ=trim(request.QueryString(CJCJCCJJ("D49@@="))):if isnumeric(CJCCJJJ) then
response.Redirect CJCJCCJJ("^>^G2?E^R^D49@@=^") & CJCCJJJ & CJCJCCJJ("^DEF56?E^=@8:?nC65:C64El") & CCCCJJ
else
Call RedirectMessage(CJCJCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJCCJJ("!$*|t|qt#"))="":CJJJCJJ=0:CJJCJJC=0:CJJJCJC=Empty:CJJCJJJ=0:CJJCJCC=0:CJJCJCJ=0:CJJJCCC=0:CJJCCJC=False:CJCJCJJ=False:CJCJCJC=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJC,CJCCJJC,CCCJJJ,CCCJJC,CJCCJCJ:CCCCJC=split(CJCJCCJ,CJCJCCJJ("]")):if ubound(CCCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCJC(0)) or len(CCCCJC(1))<>32 or len(CCCCJC(2))<>32 then
Call ClearMemberCookie
else
CJCCJJC=CCCCJC(1):for CCCJJJ=1 to len(CJCCJJC):CCCJJC=mid(CJCCJJC,CCCJJJ,1):if isnumeric(CCCJJC) then CJCCJCJ=CJCCJCJ & CCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJJC=CCCCJC(2):if CJCCJCJ<>mid(CJCCJJC,6,7) then
Call ClearMemberCookie
else
CCCJJC=mid(CJCCJJC,18,10)/2:if CCCJJC<DateDiff(CJCJCCJJ("D"), CJCJCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCJJ=Clng(CCCCJC(0)):CJJJCJC=CCCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJJJ,CJCCJCCJ):dim CCCJJJ,CCCJJC,CJCCJCJ:for CCCJJJ=1 to len(CJCCJCCJ):CCCJJC=mid(CJCCJCCJ,CCCJJJ,1):if isnumeric(CCCJJC) then CJCCJCJ=CJCCJCJ & CCCJJC
if len(CJCCJCJ)=7 then exit for
next:CJCCJCJ=CJJJJJJJ & CJCJCCJJ("]") & CJCCJCCJ & CJCJCCJJ("]") & Fix(10000*(Rnd+1)) & CJCCJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJCCJJ("D"), CJCJCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCCJJ("!$*|t|qt#"))=CJCCJCJ:End Sub::Class jTree:Private Sql, CJCCJCC, CJCCCJJ, CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC:Private Sub Class_Initialize():CJCCCJJ = 0:CJCCCJC = 0:CCJJJJC=10:End Sub:Public Property Let Table(CJCCJCCC):if CJCCJCCC="" then Call RedirectMessage(CJCJCCJJ("????????,;%C66????????????????????@??????????,"))
CJCCCCJ=CJCCJCCC:CJCCCCC=CJCJCCJJ("!$*0") & UCase(CJCCCCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCCCCJ:End Property:::Private Sub GetTreeArray():Dim CCCJJJ, CCCJJC, CCJJJCJ,RecordCount:CJCCJCC = Application(CJCCCCC):If Not IsArray(CJCCJCC) Then
Sql = CJCJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCCCJ:if CCJJJJJ<>"" then Sql=Sql & CJCJCCJJ(" ,H96C6 ,") & CCJJJJJ
set CCJJJCJ=CCJJJC.execute(sql):RecordCount=CCJJJCJ(0):if RecordCount=0 then Call RedirectMessage(CJCJCCJJ("????W") & CJCCCCJ & CJCJCCJJ("^") & CCJJJJJ & CJCJCCJJ("X????????????"))
CJCCCJC=RecordCount+CCJJJJC:ReDim CJCCJCC(CJCCCJC, 4):Sql = CJCJCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCCJ & CJCJCCJJ(" ,H:E9 ,W?@=@4<X"):if CCJJJJJ<>"" then Sql=Sql & CJCJCCJJ(" ,H96C6 ,") & CCJJJJJ
Sql=Sql & CJCJCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJJCJ=CCJJJC.execute(sql):For CCCJJJ = 1 To RecordCount:For CCCJJC = 0 To 4:CJCCJCC(CCCJJJ, CCCJJC) = CCJJJCJ(CCCJJC):if IsNull(CJCCJCC(CCCJJJ,4)) then CJCCJCC(CCCJJJ,4)=0
If CJCCJCC(CCCJJJ,2)="" then CJCCJCC(CCCJJJ,2)=CJCJCCJJ(",??.")
Next:CCJJJCJ.MoveNext:Next:CCJJJCJ.Close: Set CCJJJCJ = Nothing:for CCCJJJ=CJCCCJC-(CCJJJJC-1) to CJCCCJC:CJCCJCC(CCCJJJ,0)=CCCJJJ:next:Application.Lock():Application(CJCCCCC) = CJCCJCC:Application.UnLock()
else
CJCCCJC=Ubound(CJCCJCC)
End If:End Sub:::::Private Function CJJCJCCC(CJJJJJJJ):dim CCCJJJ,CCJJCJJ:CJJCJCCC=0:CCJJCJJ=CStr(CJJJJJJJ):if CCJJCJJ<>"0" then
for CCCJJJ=1 to CJCCCJC:If CStr(CJCCJCC(CCCJJJ, 0))=CCJJCJJ Then
CJJCJCCC = CCCJJJ:Exit For
End If:Next
end if:End Function:Public Function CJJCCJJJ(CJJJJJJJ):if Cstr(CJJJJJJJ)="0" then
CJJCCJJJ=CJCJCCJJ("??")
else
Dim CCCJJJ,CCJJJCJ:CCCJJJ=CJJCJCCC(CJJJJJJJ):if CCCJJJ>0 then
CJJCCJJJ=CJCCJCC(CCCJJJ,2):if CJJCCJJJ="" then
set CCJJJCJ=CCJJJC.execute(CJCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCCJ & CJCJCCJJ(" ,H96C6 ,:5l") & CJJJJJJJ):if CCJJJCJ.eof then Call RedirectMessage(CJCJCCJJ("xs??,") & CJJJJJJJ & CJCJCCJJ("??,??????"))
CJJCCJJJ=CCJJJCJ(1):Call UpdateCache(CJJJJJJJ,CCJJJCJ(0),CJJCCJJJ,CCJJJCJ(2),CCJJJCJ(3)):CCJJJCJ.Close: Set CCJJJCJ = Nothing
end if
else
set CCJJJCJ=CCJJJC.execute(CJCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCCJ & CJCJCCJJ(" ,H96C6 ,:5l") & CJJJJJJJ):if CCJJJCJ.eof then Call RedirectMessage(CJCJCCJJ("xs??,") & CJJJJJJJ & CJCJCCJJ("??,??????"))
CJJCCJJJ=CCJJJCJ(1):Call UpdateCache(CJJJJJJJ,CCJJJCJ(0),CJJCCJJJ,CCJJJCJ(2),CCJJJCJ(3)):CCJJJCJ.Close: Set CCJJJCJ = Nothing
end if
end if:End Function:::Public Function CJJCCJJC(CJJJJJJJ):Dim CCCJJJ,CCJJCJC:CCCJJJ=CJJCJCCC(CJJJJJJJ):if CCCJJJ=0 then
CCJJCJC=CJJCCJCJ(CJJJJJJJ)
else
CCJJCJC=CJCCJCC(CCCJJJ,3):if isnull(CCJJCJC) or CCJJCJC="" then
CCJJCJC=CJJCCJCJ(CJJJJJJJ)
elseif Mid(CCJJCJC,instrrev(CCJJCJC,CJCJCCJJ("["))+1)<>CStr(CJJJJJJJ) then
CCJJCJC=CJJCCJCJ(CJJJJJJJ)
elseif Left(CCJJCJC,1)=CJCJCCJJ("[") then
CCJJCJC=CJJCCJCJ(CJJJJJJJ)
end if
end if:CJJCCJJC=CCJJCJC:End Function:Private Function CJJCCJCJ(CJJJJJJJ):dim CCJJCJJ:CCJJCJJ=CStr(CJJJJJJJ):if CCJJCJJ="0" then
CJJCCJCJ=""
else
dim CCJJJCJ:set CCJJJCJ=CCJJJC.execute(CJCJCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCCCJ & CJCJCCJJ(" ,H96C6 ,:5l") & CJJJJJJJ):if CCJJJCJ.eof then
Call UpdateCache(CJJJJJJJ,"","","",""):Call RedirectMessage(CJCJCCJJ("??????,xs??,") & CJJJJJJJ & CJCJCCJJ("??,????????,????????????????????,"))
else
if CCJJJCJ(0)=0 then
CJJCCJCJ="0," & CJJJJJJJ
else
CJJCCJCJ=CJJCCJJC(CCJJJCJ(0)) & CJCJCCJJ("[") & CJJJJJJJ
end if:if CCJJJCJ(2)<>CJJCCJCJ then
CCJJJC.execute CJCJCCJJ("FA52E6 ,") & CJCCCCJ & CJCJCCJJ(" ,D6E ,A2E9lV") & CJJCCJCJ & CJCJCCJJ("V ,H96C6 ,:5l") & CJJJJJJJ
else
CJJCCJCJ=CCJJJCJ(2)
end if
end if:Call UpdateCache(CJJJJJJJ,CCJJJCJ(0),CCJJJCJ(1),CJJCCJCJ,CCJJJCJ(3)):CCJJJCJ.Close: Set CCJJJCJ = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CJJJJJJJ,ByVal CJCCCJJJ):Dim Str, CCCJJJ:CJJJJJJJ=CLng(CJJJJJJJ):if isnumeric(CJCCCJJJ) then CJCCCJJJ=CLng(CJCCCJJJ) else CJCCCJJJ=0
if CJJJJJJJ>0 then str=CJCJCCJJ("k@AE:@? ,G2=F6lV") & CJJJJJJJ & CJCJCCJJ("V ,52E2\A:5lV_Vm") & CJJCCJJJ(CJJJJJJJ) & CJCJCCJJ("k^@AE:@?m")
For CCCJJJ = 1 To CJCCCJC:If CJJJJJJJ=0 or (CJJJJJJJ>0 and InStr(CJCCJCC(CCCJJJ, 3), CJCJCCJJ("[") & CJJJJJJJ & CJCJCCJJ("[")) > 0) Then
str=str & CJCJCCJJ("k@AE:@?"):if CJCCJCC(CCCJJJ,0)=CJCCCJJJ then str=str & CJCJCCJJ(" ,D6=64E65")
str=str & CJCJCCJJ(" ,G2=F6lV") & CJCCJCC(CCCJJJ,0) & CJCJCCJJ("V ,52E2\A:5lV") & CJCCJCC(CCCJJJ,1) & CJCJCCJJ("Vm") & CJCCJCC(CCCJJJ,2) & CJCJCCJJ("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CJJJJJJJ):dim CCJJCJC:CCJJCJC=CJJCCJJC(CJJJJJJJ):Sql_GetChildren = CJCCCCJ & CJCJCCJJ("0A2E9ZV[V ,=:<6 ,V") & CCJJCJC & CJCJCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCCCC
End Sub:Public Sub UpdateCache(CJJJJJJJ,CJCCCJJC,CJCCCJCJ,CCJJCJC,CJCCCJCC):dim CCCJJJ,CCCJJC:CJJJJJJJ=CLng(CJJJJJJJ):CCCJJJ=CJJCJCCC(CJJJJJJJ):if CJCCCJJC="" and CJCCCJCJ="" and CCJJCJC="" and CJCCCJCC="" then
if CCCJJJ>0 then
for CCCJJC=1 to 4:CJCCJCC(CCCJJJ,CCCJJC)=Null:next
end if
else
if CCCJJJ=0 then
for CCCJJC=1 to CJCCCJC:if CJCCJCC(CCCJJC,1) & ""="" then
CCCJJJ=CCCJJC:exit for
end if:next
end if:if CCCJJJ=0 then
Call ClearCache
else
CJCCJCC(CCCJJJ,0)=CLng(CJJJJJJJ):if CJCCCJJC<>"" then CJCCJCC(CCCJJJ,1)=CLng(CJCCCJJC)
if CJCCCJCJ<>"" then CJCCJCC(CCCJJJ,2)=CJCCCJCJ
if CCJJCJC<>"" then CJCCJCC(CCCJJJ,3)=CCJJCJC
if CJCCCJCC<>"" then CJCCJCC(CCCJJJ,4)=CLng(CJCCCJCC)
end if
end if:if CCCJJJ>0 then
Application.Lock():Application(CJCCCCC) = CJCCJCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCCJCJJ):Call ConnClose:Response.Write CJCCJCJJ:Response.End:End Sub:Private Function CJJJCCCJ():CJJJCCCJ=CJJCCCJJ+1:End Function:Private Function CJJCCCJJ():dim CCCCCC:set CCCCCC=CCJJJC.execute(CJCJCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCCCJ & CJCJCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJCCCJJ=CCCCCC(0):CCCCCC.Close: Set CCCCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJJJCC ="9"
Const CJJJJCJJ ="7"
Const CJJJJCJC ="3"
Const CJJJJCCJ ="4"
Const CJJJJCCC ="8"
Const CJJJCJJJ =":"
Const CJJJCJJC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCJJCCC, CCJCJJJ, CCJCJJC, CCJCJCJ, CCJCJCC, CCCCJJ, CCJCCJJ, CCJCCJC, CCJCCCJ, CCJCCCC:Private Function CJJCCCJC():Dim CCCJJJJ:CCCJJJJ = "??" & CCJCJCC & CJCJCCJJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJCCCJ & CJCJCCJJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCJCJCJ & CJCJCCJJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCJCCJJ("k^3mk^DA2?m??")
CJJCCCJC = CCCJJJJ:End Function:Private Function CJJCCCCJ():CJJCCCCJ = CJCJCCJJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCJCJCJ & CJCJCCJJ("V ,DEJ=6lV") & CJJJCJJC & CJCJCCJJ("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") & CCCCJJ & CJCJCCJJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJJCCCCC():CJJCCCCC = CJCJCCJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJJCJJC & CJCJCCJJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCCCJJ & CJCJCCJJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJCJJJJJ():Dim CCCJJJJ, CCCJJJ:CCCJJJJ = CJCJCCJJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCCCJJ & CJCJCCJJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCCJJJ = 1 To PageCount:CCCJJJJ = CCCJJJJ & CJCJCCJJ("k@AE:@? ,G2=F6lV") & CCCJJJ & CJCJCCJJ("V")
If CCCJJJ = CCJCJCJ Then CCCJJJJ = CCCJJJJ & CJCJCCJJ(" ,D6=64E65")
CCCJJJJ = CCCJJJJ & CJCJCCJJ("m") & CCCJJJ & CJCJCCJJ("k^@AE:@?m"):Next:CCCJJJJ = CCCJJJJ & CJCJCCJJ("k^D6=64Em??"):CJCJJJJJ = CCCJJJJ:End Function:Public Sub ShowPage():Dim CCCJJJ, CCCJJJC,CCCJJCJ,CCCJJCC:if CCJCJCC>0 then
CCCJJJC = CJCJCCJJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJCCCJC & CJCJCCJJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CCJCCCC:Case 1: CCCJJCC = CJCJJJCC:Case 2: CCCJJCC = CJCJJCJJ:Case 3: CCCJJCC = CJCJJCJC:Case 4: CCCJJCC = CJCJJCCJ:Case 5: CCCJJCC = CJCJJCCC:Case 6: CCCJJCC = CJCJCJJJ:Case 7: CCCJJCC = CJCJCJJC:Case 8: CCCJJCC = CJCJCJCJ:End Select
End If:CCCJJCJ = CJCJCCJJ("k^5:Gmk^5:Gm")
end if:if CCJCCCC>=6 then
Response.Write CCCJJCC
else
Response.Write CCCJJJC & CCCJJCC & CCCJJCJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CCJCJJJ = Server.CreateObject(CJCJCCJJ("ps~sq]#64@C5$6E")):CCJCJJJ.PageSize = CCJCCCJ:CCJCJJJ.Open CCJCJJC, CCJJCCC, 1:If err then
Response.Write	CJCJCCJJ("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 & CJCJCCJJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CCJCJJJ.EOF Then
CCJCJCC = CCJCJJJ.RecordCount:PageCount = CCJCJJJ.PageCount:If CCJCJCJ > PageCount Then CCJCJCJ = PageCount
CCJCJJJ.AbsolutePage = CCJCJCJ
End If:Set Rs = CCJCJJJ:End Function:Public Property Let CCJJCJ(CJCCCCJJ):Set CCJJCCC = CJCCCCJJ:End Property:Public Property Let SQL(str):CCJCJJC = str:End Property:Public Property Let Style(CCCCJCC):If IsNumeric(CCCCJCC) Then
CCJCCCC = CInt(CCCCJCC):If CCJCCCC < 1 Or CCJCCCC > 8 Then CCJCCCC = 1
Else
CCJCCCC = 1
End If:End Property:Public Property Let PageSize(CCCCJCC):If IsNumeric(CCCCJCC) Then
CCJCCCJ = CInt(CCCCJCC):If CCJCCCJ < 1 Then CCJCCCJ = 10
Else
CCJCCCJ = 10
End If:End Property:Public Property Get PageSize():If CCJCJCJ = PageCount Then
PageSize = CCJCJCC - CCJCCCJ * (PageCount - 1)
Elseif CCJCJCC=0 then
pagesize=0
else
PageSize = CCJCCCJ
end if:End Property:Private Sub Class_Initialize():dim CCCJCJJ:CCJCCCJ = 10:CCJCCCC = 1:Set CCJJCCC = CCJJJC:CCJCJCJ = Trim(Request.QueryString(CJCJCCJJ("!286"))):If IsNumeric(CCJCJCJ) Then
CCJCJCJ = CLng(CCJCJCJ):If CCJCJCJ < 1 Then CCJCJCJ = 1
Else
CCJCJCJ = 1
End If:CCJCCJC = Trim(Request.ServerVariables(CJCJCCJJ("&#{"))):CCJCCJC = Mid(CCJCCJC, InStrRev(CCJCCJC, CJCJCCJJ("^")) + 1):CCJCCJJ = Split(Trim(Request.ServerVariables(CJCJCCJJ("""&t#*0$%#x}v"))), CJCJCCJJ("U")):CCCCJJ = Server.HtmlEncode(CJCCCCJC):CCCJCJJ=lcase(CCCCJJ):if instr(CCCJCJJ,CJCJCCJJ("Tb4:7C2>6"))>0 or instr(CCCJCJJ,CJCJCCJJ("Tb4D4C:AE"))>0 or instr(CCCJCJJ,CJCJCCJJ("V"))>0 or instr(CCCJCJJ,CJCJCCJJ(";2G2D4C:AE"))>0 or instr(CCCJCJJ,CJCJCCJJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCJCCJJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CCCCJCC):ListNum = CCJCCCJ * (CCJCJCJ - 1) + CCCCJCC:End Function:Private Function CJCCCCJC():Dim CCCJJJ, str:For CCCJJJ = 0 To UBound(CCJCCJJ):If InStr(LCase(CCJCCJJ(CCCJJJ)), CJCJCCJJ("A286l")) = 0 Then str = str & CJCJCCJJ("U") & CCJCCJJ(CCCJJJ)
Next:str = Mid(str, 2):If str = "" Then CJCCCCJC = CCJCCJC & CJCJCCJJ("n") & CJCJCCJJ("A286l") Else CJCCCCJC = CCJCCJC & CJCJCCJJ("n") & str & CJCJCCJJ("UA286l")
End Function:Private Function CJCJJJCC():Dim str:str = CJCJCCJJ("???? ,??"):For CCCJJJ = 1 To PageCount:If CCCJJJ = CCJCJCJ Then str = str & CJCJCCJJ("k3m") & CCCJJJ & CJCJCCJJ("k^3m ,") Else str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCCJJJ & CJCJCCJJ("Vm") & CCCJJJ & CJCJCCJJ("k^2m ,")
Next:str = str & CJCJCCJJ("??"):CJCJJJCC = str:End Function:Private Function CJCJJCJJ():Dim str:If CCJCJCJ > 1 Then
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CJCJCCJJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJJCC & CJCJCCJJ("k^2m ,")
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ - 1 & CJCJCCJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJCJC & CJCJCCJJ("k^2m ,")
Else
str = str & CJJJJJCC & CJCJCCJJ(" ,") & CJJJJCJC
End If:If CCJCJCJ < PageCount Then
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ + 1 & CJCJCCJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJJCCJ & CJCJCCJJ("k^2m ,")
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & PageCount & CJCJCCJJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJJCJJJ & CJCJCCJJ("k^2m ,")
Else
str = str & CJJJJCCJ & CJCJCCJJ(" ,") & CJJJCJJJ
End If:str = str & CJJCCCCJ:str = str & CJJCCCCC:CJCJJCJJ = str:End Function:Private Function CJCJJCJC():Dim str, CJCCJJC:CJCCJJC = (CCJCJCJ - 1) \ 10:If CCJCJCJ = 1 Then str = str & CJJJJJCC & CJCJCCJJ(" ,") Else str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CJCJCCJJ("`V ,E:E=6lV????Vm") & CJJJJJCC & CJCJCCJJ("k^2m ,")
If CJCCJJC * 10 > 0 Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ - 10 & CJCJCCJJ("V ,E:E=6lV??????Vm") & CJJJJCJJ & CJCJCCJJ("k^2m ,")
For CCCJJJ = (CJCCJJC * 10 + 1) To (CJCCJJC * 10 + 10):If CCCJJJ = CCJCJCJ Then str = str & CJCJCCJJ("k3m") & CCCJJJ & CJCJCCJJ("k^3m ,") Else str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCCJJJ & CJCJCCJJ("V ,E:E=6lV??????") & CCCJJJ & CJCJCCJJ("??Vm") & CCCJJJ & CJCJCCJJ("k^2m ,")
If CCCJJJ = PageCount Then Exit For
Next:If CCCJJJ < PageCount Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCCJJJ & CJCJCCJJ("V ,E:E=6lV??????Vm") & CJJJJCCC & CJCJCCJJ("k^2m ,")
If CCJCJCJ = PageCount Then str = str & CJJJCJJJ Else str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & PageCount & CJCJCCJJ("V ,E:E=6lV????Vm") & CJJJCJJJ & CJCJCCJJ("k^2m")
CJCJJCJC = str:End Function:Private Function CJCJJCCJ():Dim str, CCCJCJ, CCCJCJC, CCCJJJ:If CCJCJCJ > 4 Then str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CJCJCCJJ("`Vm,`.k^2m ,]]]")
If CCJCJCJ < PageCount - 3 Then CCCJCJC = CCJCJCJ + 3 Else CCCJCJC = PageCount
For CCCJJJ = CCJCJCJ - 3 To CCCJCJC:If CCCJJJ >= 1 Then
If CCCJJJ = CCJCJCJ Then str = str & CJCJCCJJ(" ,k3m,") & CCCJJJ & CJCJCCJJ(".k^3m") Else str = str & CJCJCCJJ(" ,k2 ,9C67lV") & CCCCJJ & CCCJJJ & CJCJCCJJ("Vm,") & CCCJJJ & CJCJCCJJ(".k^2m")
End If:Next:If CCJCJCJ < PageCount - 3 Then str = str & CJCJCCJJ(" ,]]] ,k2 ,9C67lV") & CCCCJJ & PageCount & CJCJCCJJ("Vm,") & PageCount & CJCJCCJJ(".k^2m")
CJCJJCCJ = str:End Function:Private Function CJCJJCCC():Dim str:If CCJCJCJ > 1 Then
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CJCJCCJJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ - 1 & CJCJCCJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJCJCCJJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CCJCJCJ < PageCount Then
str = str & CJCJCCJJ(" ,k2 ,9C67lV") & CCCCJJ & CCJCJCJ + 1 & CJCJCCJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & PageCount & CJCJCCJJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJCJCCJJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJCJJJJJ:CJCJJCCC = str:End Function:Private Function CJCJCJJJ():Dim str:if CCJCJCJ>=2 then
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ - 1 & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ - 1 & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?Vm") & CCJCJCJ-1 & CJCJCCJJ("k^2m")
end if:str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCJCJCJ & CJCJCCJJ("k^2m")
if pagecount>CCJCJCJ then
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ + 1 & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?Vm") & CCJCJCJ+1 & CJCJCCJJ("k^2m")
str = str & CJCJCCJJ("k2 ,9C67lV") & CCCCJJ & CCJCJCJ + 1 & CJCJCCJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJCJCJJJ=str:End Function:Private Function CJCJCJJC():Dim str:str=CJCJCCJJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CCJCJCJ>=2 then
str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCCJJ & CCJCJCJ - 1 & CJCJCCJJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCCJJ & CCJCJCJ - 1 & CJCJCCJJ("Vm") & CCJCJCJ-1 & CJCJCCJJ("k^2mk^=:m")
end if:str = str & CJCJCCJJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCCCJJ & CCJCJCJ & CJCJCCJJ("Vm") & CCJCJCJ & CJCJCCJJ("k^2mk^=:m")
if pagecount>CCJCJCJ then
str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCCJJ & CCJCJCJ + 1 & CJCJCCJJ("Vm") & CCJCJCJ+1 & CJCJCCJJ("k^2mk^=:m")
str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCCJJ & CCJCJCJ + 1 & CJCJCCJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJCCJJ("k^F=m"):CJCJCJJC=str:End Function:Private Function CJCJCJCJ():Dim str:str=CJCJCCJJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CCJCJCJ>=2 then
str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCCJJ & CCJCJCJ - 1 & CJCJCCJJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCCJJ & CCJCJCJ - 1 & CJCJCCJJ("Vm") & CCJCJCJ-1 & CJCJCCJJ("k^2mk^=:m")
end if:str = str & CJCJCCJJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCCCJJ & CCJCJCJ & CJCJCCJJ("Vm") & CCJCJCJ & CJCJCCJJ("k^2mk^=:m")
if pagecount>CCJCJCJ then
str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCCJJ & CCJCJCJ + 1 & CJCJCCJJ("Vm") & CCJCJCJ+1 & CJCJCCJJ("k^2mk^=:m")
str = str & CJCJCCJJ("k=:mk2 ,9C67lV") & CCCCJJ & CCJCJCJ + 1 & CJCJCCJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJCCJJ("k^F=m"):CJCJCJCJ=str:End Function:End Class::dim CJCCJJJ:sql=Request.ServerVariables(CJCJCCJJ("!p%w0x}u~")):if instr(sql,CJCJCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCJC and not CJCJCJJ then Call RedirectMessage(CJCJCCJJ("????????,????????????????????????,"))
CJCCJJJ=CJJCJCJ
elseif instr(sql,CJCJCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJCJCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJJJ=CJJCJCJ
elseif instr(sql,CJCJCCJJ("^D49@@="))>0 then
CJCCJJJ=Request.QueryString(CJCJCCJJ("D49@@=")):if not CJJJCCJC(CJCCJJJ) then CJCCJJJ=Request.QueryString(CJCJCCJJ("F"))
if not CJJJCCJC(CJCCJJJ) then CJCCJJJ=Request.QueryString(CJCJCCJJ("D4"))
if not CJJJCCJC(CJCCJJJ) then Call RedirectMessage(CJCJCCJJ("????????W$49@@=X??@??????????,"))
CJCCJJJ=csng(CJCCJJJ)
end if:if CJCCJJJ=0 then Call RedirectMessage(CJCJCCJJ("????????W$49@@=X????W_X??,"))
Dim CCCJCCJ:Call SetConfig:Sub SetConfig():dim CJCJCCC,CCCCCC:sql=CJCJCCJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCCJJJ:set CCCCCC=CCJJJC.execute(sql):if CCCCCC.eof then Call RedirectMessage(CJCJCCJJ("??W") & CJJJCJJ & CJCJCCJJ("X??????????W") & CJCCJJJ & CJCJCCJJ("X????????,"))
ReDim CJCJCCC(61):CJCJCCC(0)=CCCCCC(CJCJCCJJ(";:2@H6:")) & "":CJCJCCC(1)=CCCCCC(CJCJCCJJ("EJA6")):CJCJCCC(2)=CCCCCC(CJCJCCJJ("D>D")):CJCJCCC(3)=CCCCCC(CJCJCCJJ("4FDE@>8C@FA")) & "":CJCJCCC(4)=CCCCCC(CJCJCCJJ("D:5632C0@E96C")) & "":CJCJCCC(5)=IIf(isnull(CCCCCC(CJCJCCJJ("E6DEC6DF=EG:6H"))),0,CCCCCC(CJCJCCJJ("E6DEC6DF=EG:6H"))):CJCJCCC(6)=CCCCCC(CJCJCCJJ("K:IF?E:>6")):CJCJCCC(7)=CCCCCC(CJCJCCJJ("766")):CJCJCCC(8)=CCCCCC(CJCJCCJJ("C6E6DE52J")):CJCJCCC(9)=CCCCCC(CJCJCCJJ("6IA:C652E6")):CJCJCCC(10)=CCCCCC(CJCJCCJJ("E:E=6")):CJCJCCC(11)=CCCCCC(CJCJCCJJ(":?EC@")) & "":CJCJCCC(12)=CCCCCC(CJCJCCJJ("A:4EFC6")) & "":CJCJCCC(13)=CCCCCC(CJCJCCJJ("72>:=J")):CJCJCCC(14)=CCCCCC(CJCJCCJJ("4@AJC:89E")) & "":CJCJCCC(15)=IIf(isnull(CCCCCC(CJCJCCJJ("D6>6DE6C0DE2CE052E6"))),CJCJCCJJ("`h__\`\`"),CCCCCC(CJCJCCJJ("D6>6DE6C0DE2CE052E6"))):CJCJCCC(16)=IIf(isnull(CCCCCC(CJCJCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CCCCCC(CJCJCCJJ("K:IF?0E:>6D09:89=:89E"))):CJCJCCC(17)=CCCCCC(CJCJCCJJ("4@?E24E")) & "":CJCJCCC(18)=CCCCCC(CJCJCCJJ("D2?5E23=6")):CJCJCCC(19)=CCCCCC(CJCJCCJJ("4C:D:D")):CJCJCCC(20)=CCCCCC(CJCJCCJJ("JJ52E6")):CJCJCCC(21)=CCCCCC(CJCJCCJJ("BB")):CJCJCCC(22)=CCCCCC(CJCJCCJJ("JFJF60D>D0EA=")) & "":CJCJCCC(23)=CCCCCC(CJCJCCJJ("JFJF60E6DE0=3")) & "":CJCJCCC(25)=CCCCCC(CJCJCCJJ("6IA6CE")):CJCJCCC(26)=CCCCCC(CJCJCCJJ(">@5:?7@")):CJCJCCC(27)=CCCCCC(CJCJCCJJ("9@>6A286E@AA:4EFC6")) & "":CJCJCCC(28)=CCCCCC(CJCJCCJJ("4C:D:D=3")):CJCJCCC(29)=IIf(CCCCCC(CJCJCCJJ("4C:D:D@=5")),False,True):CJCJCCC(30)=CCCCCC(CJCJCCJJ("8C@FA8F:52?46")):CJCJCCC(31)=CCCCCC(CJCJCCJJ("3:@7665324<")):CJCJCCC(32)=CCCCCC(CJCJCCJJ("<6JDEC")):CJCJCCC(33)=CCCCCC(CJCJCCJJ("=@8@")) & "":CJCJCCC(34)=CCCCCC(CJCJCCJJ("K:46")):CJCJCCC(35)=IIf(CCCCCC(CJCJCCJJ(":D?6H")),True,False):CJCJCCC(36)=121:CJCJCCC(37)=111:CJCJCCC(38)=160:CJCJCCC(39)=CCCCCC(CJCJCCJJ("8F6DE3@@<")):CJCJCCC(40)=CCCCCC(CJCJCCJJ("75D")):CJCJCCC(42)=CCCCCC(CJCJCCJJ("9@>6=@8:?")):CJCJCCC(43)=CCCCCC(CJCJCCJJ("K:IF?0?6657665324<")):CJCJCCC(44)=CCCCCC(CJCJCCJJ("K:IF?0E:>6D0=:>:E")):CJCJCCC(45)=CCCCCC(CJCJCCJJ("4@>A=6E60:?7@")):CJCJCCC(46)=CCCCCC(CJCJCCJJ("E6DE:?EC@")) & "":CJCJCCC(47)=IIf(isnull(CCCCCC(CJCJCCJJ("JFJF60367@C60E:>6"))),0,CCCCCC(CJCJCCJJ("JFJF60367@C60E:>6"))):CJCJCCC(49)=CCCCCC(CJCJCCJJ("D>D0C646:G6C")):CJCJCCC(50)=CCCCCC(CJCJCCJJ("D>D0D:8?")) & "":CJCJCCC(52)=CCCCCC(CJCJCCJJ("JFJF602CC2?86")):CJCJCCC(53)=IIf(isnull(CCCCCC(CJCJCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCCCCC(CJCJCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJCJCCC(54)=CCCCCC(CJCJCCJJ("9:560=30@FE@7286")):CJCJCCC(55)=CCCCCC(CJCJCCJJ("JFJF60E6DE052JD")):CJCJCCC(56)=CCCCCC(CJCJCCJJ("JFJF60H66<0=:>:E")):CJCJCCC(57)=CCCCCC(CJCJCCJJ("JFJF604964<65")):CJCJCCC(58)=CCCCCC(CJCJCCJJ("K:IF?0?6657665324<0?6IE")):CJCJCCC(59)=CCCCCC(CJCJCCJJ("4964<?6HDEF56?E")):CJCJCCC(60)=CCCCCC(CJCJCCJJ("K:IF?04=@D6052E6")):CCCCCC.close : set CCCCCC=nothing:if isNull(CJCJCCC(8)) or CJCJCCC(8)="" then CJCJCCC(8)=0
if isdate(CJCJCCC(9)) then
CJCJCCC(9)=cdate(CJCJCCC(9)):if CJCJCCC(9)<Date then Call RedirectMessage(CJCJCCJJ("????????,????????????????W") & CJCJCCC(9) & CJCJCCJJ("X??????,"))
end if:if not CJJJCCJC(CJCJCCC(20)) then CJCJCCC(20)=7
select case CJCJCCC(1):case 1,2,16:CJCJCCC(36)=159:case 4,5,6,10,11:CJCJCCC(36)=190:CJCJCCC(37)=178:CJCJCCC(38)=191:case 7,13:CJCJCCC(36)=164:CJCJCCC(37)=178:CJCJCCC(38)=179:end select:CCCJCCJ=CJCJCCC:End Sub:Function CJJCJJJC(CJCCCCCJ):dim CJCJCCC(7,1),CCCJJJ,CCCJCCC,CCCCJJJ:CCCJCCC=Array(CJCJCCJJ("$49@@="),CJCJCCJJ("$EF56?E"),CJCJCCJJ("s6AE"),CJCJCCJJ("vC256"),CJCJCCJJ("r=2DD>2E6"),CJCJCCJJ("}F>36C"),CJCJCCJJ("%62496C"),CJCJCCJJ("!2C6?E")):select case CCCJCCJ(1):case 1,2 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????")):case 3,16 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????")):case 4 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("??????@"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????")):case 5 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????")):case 6 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("??????@"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case 7 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case 8 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("??????@"),CJCJCCJJ("????"),CJCJCCJJ("????????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case 9 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case 10 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case 11 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case 12 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case 13 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????")):case 14 : CCCCJJJ=Array(CJCJCCJJ("??????"),CJCJCCJJ("??@??"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case 15 : CCCCJJJ=Array(CJCJCCJJ("????"),CJCJCCJJ("????????"),CJCJCCJJ("????"),CJCJCCJJ("????????"),CJCJCCJJ("????"),CJCJCCJJ("????"),CJCJCCJJ("??????"),CJCJCCJJ("????")):case else : CCCCJJJ=CCCJCCC
end select:for CCCJJJ=0 to Ubound(CJCJCCC):CJCJCCC(CCCJJJ,0)=CCCJCCC(CCCJJJ):CJCJCCC(CCCJJJ,1)=CCCCJJJ(CCCJJJ):next:for CCCJJJ=0 to Ubound(CJCJCCC):if CJCJCCC(CCCJJJ,0)=CJCCCCCJ then
CJJCJJJC=CJCJCCC(CCCJJJ,1):exit for
end if:next:End Function::Call CheckRight(88):if CCCJCCJ(7)<3 then Call RedirectMessage(CJCJCCJJ("????????M????????,??????????????????????,"))
Call WriteCurrentURL:dim CCCCJJC,CCCCJCJ,CJCCJJC,CCCCJCC,CCCCCJJ,CCCCCJC,CCCCCCJ:CCCCJJC=Request.QueryString(CJCJCCJJ("56AE")):CCCCJCJ=Request.QueryString(CJCJCCJJ("!@DE")):CJCCJJC=Request.QueryString(CJCJCCJJ("A")):CCCCJCC=CJJJCJCJ(Request.QueryString(CJCJCCJJ("}F>"))):CCCCCJJ=CJJJCJCJ(Request.QueryString(CJCJCCJJ("}:4<"))):CCCCCJC=Request.QueryString(CJCJCCJJ("%`")):CCCCCCJ=Request.QueryString(CJCJCCJJ("%a")):if not CJJJCCJC(CCCCJJC) then CCCCJJC=CJJJCCC
dim CJCCJCC:set CJCCJCC=new jtree:CJCCJCC.table=CJCJCCJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCJCCJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCJCCJJ("k9E>=m") & vbCrLf):Response.Write(CJCJCCJJ("k9625m") & vbCrLf):Response.Write(CJCJCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCCJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCJCCJJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJCJCCJJ("k^9625m") & vbCrLf):Response.Write(CJCJCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCJCCJJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE23=6 ,H:5E9lQ`__TQ ,46==DA24:?8lQ`Q ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9 ,C@HDA2?lQaQm?, ,???????? ,?,k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJCJJJC(CJCJCCJJ("}F>36C")):Response.Write(CJCJCCJJ("??,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCCCJCC:Response.Write(CJCJCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ>J52E6Q ,E:E=6lQ??????????????Q ,G2=F6lQ")):Response.Write CCCCCJC:Response.Write(CJCJCCJJ("Q ,D:K6lQ`dQ ,C625@?=J ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQC:89EQ ,384@=@ClQRu`u`u`Qm")):Response.Write CJJCJJJC(CJCJCCJJ("s6AE")):Response.Write(CJCJCCJJ("??,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mkD6=64E ,?2>6lQs6AEQ ,:5lQs6AEQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):Call CJCCJCC.ShowTree_Select(CJJJCCC, CCCCJJC):Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCCCCJJ:Response.Write(CJCJCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4=2DDlQ=236=Qm????????,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ>J52E6Q ,E:E=6lQ??????????????Q ,G2=F6lQ")):Response.Write CCCCCCJ:Response.Write(CJCJCCJJ("Q ,D:K6lQ`dQ ,C625@?=J ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQC:89EQ ,384@=@ClQRu`u`u`Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mkD6=64E ,?2>6lQ!Q ,:5lQ!Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):for CCCJJJ=10 to 50 step 5:response.write CJCJCCJJ("k@AE:@? ,G2=F6lV") & CCCJJJ & CJCJCCJJ("V") & IIf(CJCCJJC=cstr(CCCJJJ),CJCJCCJJ(" ,D6=64E65"),"") & CJCJCCJJ("m") & CCCJJJ & CJCJCCJJ("??k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ????????????Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,^m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ??????????????????????Q ,@?4=:4<lQ;2G2D4C:AEi:7W4@?7:C>WV??????????????????????????????,????????????????????,-?-?????,??????,????-?????,??????,??????VXXL7@C>a]24E:@?lV83@@<0562=]2DAn24El56=32E49U2>Aj:5l_Vj7@C>a]DF3>:EWXjNQ ,^m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Q ,^m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJCCJJ("k^7@C>m") & vbCrLf)::if CCCCJCJ="1" then
sql=CJCJCCJJ("D6=64E ,:5[E:E=6[C62=?2>6[2FE9@C[52E6E:>6[FA52E6E:>6 ,7C@> ,G0KI083@@< ,H96C6 ,C6l_ ,2?5 ,") & CJCCJCC.sql_getchildren(CCCCJJC):if CCCCJCC<>"" then sql=sql & CJCJCCJJ(" ,2?5 ,?F>36ClV") & CCCCJCC & CJCJCCJJ("V")
if CCCCCJJ<>"" then sql=sql & CJCJCCJJ(" ,2?5 ,C62=?2>6lV") & CCCCCJJ & CJCJCCJJ("V")
if isdate(CCCCCJC) then sql=sql & CJCJCCJJ(" ,2?5 ,52E6E:>6mlV") & CCCCCJC & CJCJCCJJ("V")
if isdate(CCCCCCJ) then sql=sql & CJCJCCJJ(" ,2?5 ,52E6E:>6klV") & CCCCCCJ & CJCJCCJJ("V")
sql=sql & CJCJCCJJ(" ,@C56C ,3J ,:5 ,56D4"):dim CCCCCCC:set CCCCCCC=new splitpage:with CCCCCCC:.sql=sql:.pagesize=IIf(CJJJCCJC(CJCCJJC),CJCCJJC,20):.style=2:end with:set rs=CCCCCCC.rs:Response.Write(vbCrLf):Response.Write(CJCJCCJJ("k3C ,^m") & vbCrLf):Response.Write(CJCJCCJJ("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m??k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ4964<2==Q ,:5lQ4964<2==Q ,^mk^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):dim CCCJJJ,CJJJJJJJ:for CCCJJJ=1 to CCCCCCC.pagesize:CJJJJJJJ=rs(0):Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCCCCC.listnum(CCCJJJ):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,:5lQ:5=:DEQ ,G2=F6lQ")):Response.Write CJJJJJJJ:Response.Write(CJCJCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5m")):Response.Write rs(1):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5mk2 ,9C67lQ;2G2D4C:AEi@A6?$EF56?Ex?7@(:?W")):Response.Write rs(3):Response.Write(CJCJCCJJ("XjQm")):Response.Write rs(2):Response.Write(CJCJCCJJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCJJCC(rs(4),0):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCJJJC.execute(CJCJCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,KI083@@< ,H96C6 ,C6l") & rs(0))(0):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCJJCC(rs(5),0):Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,9C67lQ83@@<0562=]2DAn:5l")):Response.Write CJJJJJJJ:Response.Write(CJCJCCJJ("Qm????k^2m\k2 ,9C67lQ83@@<0562=]2DAn24El56=U2>Aj:5l")):Response.Write CJJJJJJJ:Response.Write(CJCJCCJJ("Q ,@?4=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV??????????????????????????,VXQm????k^2mk^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCJCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,kE5 ,4@=DA2?lQ``Qm")):call CCCCCCC.showpage:Response.Write(CJCJCCJJ("k^E5m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCJCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCCJJ(" ,k:?AFE ,?2>6lQ#64@C5}F>Q ,EJA6lQ9:556?Q ,:5lQ#64@C5}F>Q ,G2=F6lQ")):Response.Write rs.recordcount:Response.Write(CJCJCCJJ("Q ,^m") & vbCrLf):Response.Write(CJCJCCJJ("k^7@C>m") & vbCrLf)::set CCCCCCC=nothing
else
response.write CJCJCCJJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];52E6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ(";""F6CJW7F?4E:@?WSXL") & vbCrLf):Response.Write(CJCJCCJJ(" ,SWVE23=6]E30=:DEVX];%23=6WXj") & vbCrLf):Response.Write(CJCJCCJJ(" ,SWQ:?AFEiE6IE]>J52E6QX];s2E6WXj") & vbCrLf):Response.Write(CJCJCCJJ(" ,SWQRs6AEQX];%C66$6=64EWXj") & vbCrLf):Response.Write(CJCJCCJJ("NXj") & vbCrLf):Response.Write(CJCJCCJJ("7F?4E:@? ,@A6?$EF56?Ex?7@(:?W:5XL") & vbCrLf):Response.Write(CJCJCCJJ(" ,@A6?WVDEF56?E:?7@]2DAn:5lVZ:5[V$EF56?Ex?7@V[VH:5E9ldd_[96:89Elb__[D4C@==32CDlJ6DVXj") & vbCrLf):Response.Write(CJCJCCJJ("N") & vbCrLf):Response.Write(CJCJCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCJCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJCC=nothing:set CJJJCCCC=nothing:set CJJCJJJJ=nothing:set CJJCJJJC=nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:rs.Close:Set rs=Nothing:CCJJJC.Close:Set CCJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCCJJ(ByVal CJCJCJCC)
Dim CJJJJJJC, CCCJJJ, CCCJCJ
CJCJCJCC = Replace(CJCJCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCJJJ = 1 To Len(CJCJCJCC)
If CCCJJJ <> CCCJCJ Then
CJJJJJJC = AscW(Mid(CJCJCJCC, CCCJJJ, 1))
If CJJJJJJC >= 33 And CJJJJJJC <= 79 Then
CJCJCCJJ = CJCJCCJJ & Chr(CJJJJJJC + 47)
ElseIf CJJJJJJC >= 80 And CJJJJJJC <= 126 Then
CJCJCCJJ = CJCJCCJJ & Chr(CJJJJJJC - 47)
Else
CCCJCJ = CCCJJJ + 1
If Mid(CJCJCJCC, CCCJCJ, 1) = Chr(64) Then CJCJCCJJ = CJCJCCJJ & ChrW(CJJJJJJC + 5) Else CJCJCCJJ = CJCJCCJJ & Mid(CJCJCJCC, CCCJJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de