Edit D:\xinhaisoft\crisis_new\school\admin\biofeedback\brainwave.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,rs, CCCCJ, sql:Set CCJCC = server.CreateObject(CJJCCCJJ("ps~sq]r@??64E:@?")):CCJCC.open Application(CJJCCCJJ("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CJJCCCJJ("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
sql=CJJCCCJJ("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") & CJJJJC & CJJCCCJJ("V ,2?5 ,:5l") & CJJJJJ
set rs=CCJCC.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=rs(2) & "":CJJJCC=rs(3):CJJCJJ=rs(5):CJJCJC=rs(6):CJJCCJ=rs(9):CJJCCC=rs(15):CJCJJC=rs(0):CCJJJJ=rs(1):CJCCCC=rs(11) & "":CJCJCJ=rs(10) & "":CJCJJJ=rs(12):CJCJCC=rs(14):CJCCJJ=rs(13):CJCCJC=rs(7) & "":CJCCCJ=rs(4):CCJJJC=rs(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CJJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:::Sub CheckLogined():if CJJJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJCC:CCJJCC=trim(request.QueryString(CJJCCCJJ("D49@@="))):if isnumeric(CCJJCC) then
response.Redirect CJJCCCJJ("^>^G2?E^R^D49@@=^") & CCJJCC & CJJCCCJJ("^DEF56?E^=@8:?nC65:C64El") & CCCCJC
else
Call RedirectMessage(CJJCCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCCJJ("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:CCJCJJ=split(CCJJCJ,CJJCCCJJ("]")):if ubound(CCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJJ(0)) or len(CCJCJJ(1))<>32 or len(CCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CCJCJC=CCJCJJ(1):for CCJCCJ=1 to len(CCJCJC):CCJCCC=mid(CCJCJC,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCJC=CCJCJJ(2):if CCCJJJ<>mid(CCJCJC,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCJC,18,10)/2:if CCJCCC<DateDiff(CJJCCCJJ("D"), CJJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJJ(0)):CJJJJC=CCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJJJ,CJJCCCJC):dim CCJCCJ,CCJCCC,CCCJJJ:for CCJCCJ=1 to len(CJJCCCJC):CCJCCC=mid(CJJCCCJC,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CCCJJJJ & CJJCCCJJ("]") & CJJCCCJC & CJJCCCJJ("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCJJ("D"), CJJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCJJ("!$*|t|qt#"))=CCCJJJ:End Sub::Function CCCCJCJ(CJJCCCCJ):Dim str,CCCJCJ:str = Trim(CJJCCCCJ):If IsNull(str) Or str = "" Then
CCCCJCJ = ""
else
str=Replace(str, CJJCCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCCCJJ("k:7C2>6"), CJJCCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCCJJ("kD4C:AE"), CJJCCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJCJ=new RegExp:CCCJCJ.Pattern=CJJCCCJJ("@?W,2\K.ZXl"):CCCJCJ.IgnoreCase = True:CCCJCJ.Global=True:str=CCCJCJ.Replace(str,CJJCCCJJ("@?S`U6BF2=Dj")):set CCCJCJ=nothing:CCCCJCJ=str
End If:End Function:Function IIf(CJJCCCCC, CJCJJJJJ, CJCJJJJC):if isnull(CJJCCCCC) or isempty(CJJCCCCC) then
IIf = CJCJJJJC
elseif CJJCCCCC Then
IIf = CJCJJJJJ
Else
IIf = CJCJJJJC
end if:End Function:Const CCCJJCJ="^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 CCJCCJ,CCJCCC,CCCJCC:if isarray(str) then
on error resume next:CCJCCJ=ubound(str,2):CCCJCC=err.number:err.clear:on error goto 0:if CCCJCC<>0 then
for CCJCCJ=0 to ubound(str):if CCJCCJ>0 then response.Write CJJCCCJJ("k3C ,^m")
response.Write CCJCCJ & CJJCCCJJ("i ,") & str(CCJCCJ):next
else
response.Write CJJCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCCJ=0 to ubound(str,2):response.Write CJJCCCJJ("kE9 ,2=:8?lV=67EVm") & CCJCCJ & CJJCCCJJ("k^E9m")
next:response.Write CJJCCCJJ("k^ECm"):for CCJCCJ=0 to ubound(str):response.Write CJJCCCJJ("kECmkE9m") & CCJCCJ & CJJCCCJJ("k^E9m"):for CCJCCC=0 to ubound(str,2):response.Write CJJCCCJJ("kE5m") & str(CCJCCJ,CCJCCC) & CJJCCCJJ("k^E5m"):next:response.Write CJJCCCJJ("k^ECm"):next:response.Write CJJCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCCCJJ():Dim CCCCJJ, CCCCJC:CCCCJC = Request.ServerVariables(CJJCCCJJ("!p%w0x}u~")):CCCCJJ = Request.ServerVariables(CJJCCCJJ("""&t#*0$%#x}v")):If CCCCJJ <> Empty Then
if instr(lcase(CCCCJJ),CJJCCCJJ("Tb4:7C2>6"))>0 or instr(lcase(CCCCJJ),CJJCCCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????,??,??,"))
CCCCJC = CCCCJC & CJJCCCJJ("n") & CCCCJJ
end if:CCCCCJJ = CCCCJC:End Function:Sub SetHttpOnlyCookie(CJCJJJCJ,CJCJJJCC):dim CCJCJJ:CCJCJJ=CJCJJJCJ & CJJCCCJJ("l") & CJCJJJCC & CJJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCJJ("$6E\r@@<:6"),CCJCJJ):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJCCCJJ("!$*"))(CJJCCCJJ("&#{")) = CCCCCJJ:End Sub::::::Function CCCCCJC(CCCJCC):if isnull(CCCJCC) or trim(CCCJCC)="" or not isnumeric(CCCJCC) then
CCCCCJC=false
else
Dim CCCJCJ:Set CCCJCJ = New RegExp:CCCJCJ.Pattern = CJJCCCJJ("/-5ZS"):CCCJCJ.IgnoreCase = True:CCCCCJC = CCCJCJ.test(CCCJCC):set CCCJCJ=nothing
end if:End Function:Function CCCCCCJ(CJCJJCJJ):dim CCCCCJ,CCCCCC:CCCCCJ=CJJCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJCJJ & CJJCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCCC=CCJCC.execute(CCCCCJ):CCCCCCJ = CCCCCC(0):if isnull(CCCCCCJ) then CCCCCCJ=1
CCCCCC.close : set CCCCCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCCC=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:CCCCCC.close : set CCCCCC=nothing:CCCCJ.Close : Set CCCCJ=Nothing:rs.Close : Set rs=Nothing:CJJJJJCJ.Close : Set CJJJJJCJ = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCJJ("!$*0|6DD286"),server.URLEncode(CJCJJCJC)):Response.Redirect CJJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::Function CJJJJJCC(CCCJCC):Dim CJJJJJJ, CJJJJJC, CJJJJCJ, CJJJJCC, str:If Not CCCCCJC(CCCJCC) or CCCJCC=0 Then
str=0
else
CJJJJJJ = Fix(CCCJCC / 86400):CJJJJJC = Fix((CCCJCC - CJJJJJJ * 86400) / 3600):CJJJJCJ = Fix((CCCJCC - CJJJJJJ * 86400 - CJJJJJC * 3600) / 60):CJJJJCC = Fix(CCCJCC - CJJJJJJ * 86400 - CJJJJJC * 3600 - CJJJJCJ * 60):If CJJJJJJ <> 0 Then str = CJJJJJJ & CJJCCCJJ("??")
If CJJJJJC <> 0 Then str = str & CJJJJJC & CJJCCCJJ("????")
If CJJJJCJ <> 0 Then str = str & CJJJJCJ & CJJCCCJJ("??")
if CJJJJCC <> 0 Then str = str & CJJJJCC & CJJCCCJJ("??")
end if:CJJJJJCC = str:End Function:::::::::::::Function CJJJJCJJ(Table):Dim CCCCCC, CJJJCJJ, str(), CCJCCJ,CCJCCC,CJJJCJC:CJJJCJC=UCase(Table):If Not IsArray(Application(CJJCCCJJ("!$*0") & CJJJCJC)) Then
Sql=CJJCCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJCCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CCCCCC=server.createobject(CJJCCCJJ("25@53]C64@C5D6E")):CCCCCC.open sql,CCJCC,1:CJJJCJJ = CCCCCC.RecordCount:ReDim str(CJJJCJJ, 2):If CJJJCJJ > 0 Then
For CCJCCJ = 1 To CJJJCJJ:for CCJCCC=0 to 2:str(CCJCCJ, CCJCCC) = CCCCCC(CCJCCC):next:CCCCCC.MoveNext:Next
End If:CCCCCC.Close: Set CCCCCC = Nothing:Application(CJJCCCJJ("!$*0") & CJJJCJC) = str
End If:CJJJJCJJ = Application(CJJCCCJJ("!$*0") & CJJJCJC):End Function:Sub ShowListSelect(CJCJJCJJ,CJCJJCCJ,CJCJJCCC):Dim str, CCJCCJ, CJJJCCJ:CJJJCCJ = CJJJJCJJ(CJCJJCJJ):For CCJCCJ = 1 To UBound(CJJJCCJ):if Cstr(CJJJCCJ(CCJCCJ,2))=Cstr(CJCJJCCJ) then
str = str & CJJCCCJJ("k@AE:@? ,G2=F6lV") & CJJJCCJ(CCJCCJ, 0) & CJJCCCJJ("V")
If CStr(CJJJCCJ(CCJCCJ, 0)) = CJCJJCCC & "" Then str = str & CJJCCCJJ(" ,D6=64E65lVD6=64E65V")
str = str & CJJCCCJJ("m") & CJJJCCJ(CCJCCJ, 1) & CJJCCCJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJJJCJC(CJCJJCJJ,CJCJJCCJ,CCCJJJJ):Dim str, CCJCCJ, CJJJCCJ:CJJJCCJ = CJJJJCJJ(CJCJJCJJ):For CCJCCJ = 1 To UBound(CJJJCCJ):if Cstr(CJJJCCJ(CCJCCJ,2))=Cstr(CJCJJCCJ) and CStr(CJJJCCJ(CCJCCJ, 0)) = CCCJJJJ & "" then
str=CJJJCCJ(CCJCCJ,1):exit for
end if:Next:if str="" then str=CJJCCCJJ(",????.")
CJJJJCJC=str:End Function:::::::::::::::::Sub ClearCache(CJCJCJJJ):Application.Contents.Remove CJCJCJJJ
End Sub::Class jTree:Private Sql, CJJJCCC, CJJCJJJ, CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Private Sub Class_Initialize():CJJCJJJ = 0:CJJCJJC = 0:CJJCCJC=10:End Sub:Public Property Let Table(CJCJCJJC):if CJCJCJJC="" then Call RedirectMessage(CJJCCCJJ("????????,;%C66????????????????????@??????????,"))
CJJCJCJ=CJCJCJJC:CJJCJCC=CJJCCCJJ("!$*0") & UCase(CJJCJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJCJ:End Property:::Private Sub GetTreeArray():Dim CCJCCJ, CCJCCC, CJJCCCJ,RecordCount:CJJJCCC = Application(CJJCJCC):If Not IsArray(CJJJCCC) Then
Sql = CJJCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJCJ:if CJJCCJJ<>"" then Sql=Sql & CJJCCCJJ(" ,H96C6 ,") & CJJCCJJ
set CJJCCCJ=CCJCC.execute(sql):RecordCount=CJJCCCJ(0):if RecordCount=0 then Call RedirectMessage(CJJCCCJJ("????W") & CJJCJCJ & CJJCCCJJ("^") & CJJCCJJ & CJJCCCJJ("X????????????"))
CJJCJJC=RecordCount+CJJCCJC:ReDim CJJJCCC(CJJCJJC, 4):Sql = CJJCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CJJCCCJJ(" ,H:E9 ,W?@=@4<X"):if CJJCCJJ<>"" then Sql=Sql & CJJCCCJJ(" ,H96C6 ,") & CJJCCJJ
Sql=Sql & CJJCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCCCJ=CCJCC.execute(sql):For CCJCCJ = 1 To RecordCount:For CCJCCC = 0 To 4:CJJJCCC(CCJCCJ, CCJCCC) = CJJCCCJ(CCJCCC):if IsNull(CJJJCCC(CCJCCJ,4)) then CJJJCCC(CCJCCJ,4)=0
If CJJJCCC(CCJCCJ,2)="" then CJJJCCC(CCJCCJ,2)=CJJCCCJJ(",??.")
Next:CJJCCCJ.MoveNext:Next:CJJCCCJ.Close: Set CJJCCCJ = Nothing:for CCJCCJ=CJJCJJC-(CJJCCJC-1) to CJJCJJC:CJJJCCC(CCJCCJ,0)=CCJCCJ:next:Application.Lock():Application(CJJCJCC) = CJJJCCC:Application.UnLock()
else
CJJCJJC=Ubound(CJJJCCC)
End If:End Sub:::::Private Function CJJJJCCC(CCCJJJJ):dim CCJCCJ,CJCJJJJ:CJJJJCCC=0:CJCJJJJ=CStr(CCCJJJJ):if CJCJJJJ<>"0" then
for CCJCCJ=1 to CJJCJJC:If CStr(CJJJCCC(CCJCCJ, 0))=CJCJJJJ Then
CJJJJCCC = CCJCCJ:Exit For
End If:Next
end if:End Function:Public Function CJJJCJJJ(CCCJJJJ):if Cstr(CCCJJJJ)="0" then
CJJJCJJJ=CJJCCCJJ("??")
else
Dim CCJCCJ,CJJCCCJ:CCJCCJ=CJJJJCCC(CCCJJJJ):if CCJCCJ>0 then
CJJJCJJJ=CJJJCCC(CCJCCJ,2):if CJJJCJJJ="" then
set CJJCCCJ=CCJCC.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CJJCCCJJ(" ,H96C6 ,:5l") & CCCJJJJ):if CJJCCCJ.eof then Call RedirectMessage(CJJCCCJJ("xs??,") & CCCJJJJ & CJJCCCJJ("??,??????"))
CJJJCJJJ=CJJCCCJ(1):Call UpdateCache(CCCJJJJ,CJJCCCJ(0),CJJJCJJJ,CJJCCCJ(2),CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing
end if
else
set CJJCCCJ=CCJCC.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CJJCCCJJ(" ,H96C6 ,:5l") & CCCJJJJ):if CJJCCCJ.eof then Call RedirectMessage(CJJCCCJJ("xs??,") & CCCJJJJ & CJJCCCJJ("??,??????"))
CJJJCJJJ=CJJCCCJ(1):Call UpdateCache(CCCJJJJ,CJJCCCJ(0),CJJJCJJJ,CJJCCCJ(2),CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing
end if
end if:End Function:::Public Function CJJJCJJC(CCCJJJJ):Dim CCJCCJ,CJCJJJC:CCJCCJ=CJJJJCCC(CCCJJJJ):if CCJCCJ=0 then
CJCJJJC=CJJJCJCJ(CCCJJJJ)
else
CJCJJJC=CJJJCCC(CCJCCJ,3):if isnull(CJCJJJC) or CJCJJJC="" then
CJCJJJC=CJJJCJCJ(CCCJJJJ)
elseif Mid(CJCJJJC,instrrev(CJCJJJC,CJJCCCJJ("["))+1)<>CStr(CCCJJJJ) then
CJCJJJC=CJJJCJCJ(CCCJJJJ)
elseif Left(CJCJJJC,1)=CJJCCCJJ("[") then
CJCJJJC=CJJJCJCJ(CCCJJJJ)
end if
end if:CJJJCJJC=CJCJJJC:End Function:Private Function CJJJCJCJ(CCCJJJJ):dim CJCJJJJ:CJCJJJJ=CStr(CCCJJJJ):if CJCJJJJ="0" then
CJJJCJCJ=""
else
dim CJJCCCJ:set CJJCCCJ=CCJCC.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCJ & CJJCCCJJ(" ,H96C6 ,:5l") & CCCJJJJ):if CJJCCCJ.eof then
Call UpdateCache(CCCJJJJ,"","","",""):Call RedirectMessage(CJJCCCJJ("??????,xs??,") & CCCJJJJ & CJJCCCJJ("??,????????,????????????????????,"))
else
if CJJCCCJ(0)=0 then
CJJJCJCJ="0," & CCCJJJJ
else
CJJJCJCJ=CJJJCJJC(CJJCCCJ(0)) & CJJCCCJJ("[") & CCCJJJJ
end if:if CJJCCCJ(2)<>CJJJCJCJ then
CCJCC.execute CJJCCCJJ("FA52E6 ,") & CJJCJCJ & CJJCCCJJ(" ,D6E ,A2E9lV") & CJJJCJCJ & CJJCCCJJ("V ,H96C6 ,:5l") & CCCJJJJ
else
CJJJCJCJ=CJJCCCJ(2)
end if
end if:Call UpdateCache(CCCJJJJ,CJJCCCJ(0),CJJCCCJ(1),CJJJCJCJ,CJJCCCJ(3)):CJJCCCJ.Close: Set CJJCCCJ = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CCCJJJJ,ByVal CJCJJCCC):Dim Str, CCJCCJ:CCCJJJJ=CLng(CCCJJJJ):if isnumeric(CJCJJCCC) then CJCJJCCC=CLng(CJCJJCCC) else CJCJJCCC=0
if CCCJJJJ>0 then str=CJJCCCJJ("k@AE:@? ,G2=F6lV") & CCCJJJJ & CJJCCCJJ("V ,52E2\A:5lV_Vm") & CJJJCJJJ(CCCJJJJ) & CJJCCCJJ("k^@AE:@?m")
For CCJCCJ = 1 To CJJCJJC:If CCCJJJJ=0 or (CCCJJJJ>0 and InStr(CJJJCCC(CCJCCJ, 3), CJJCCCJJ("[") & CCCJJJJ & CJJCCCJJ("[")) > 0) Then
str=str & CJJCCCJJ("k@AE:@?"):if CJJJCCC(CCJCCJ,0)=CJCJJCCC then str=str & CJJCCCJJ(" ,D6=64E65")
str=str & CJJCCCJJ(" ,G2=F6lV") & CJJJCCC(CCJCCJ,0) & CJJCCCJJ("V ,52E2\A:5lV") & CJJJCCC(CCJCCJ,1) & CJJCCCJJ("Vm") & CJJJCCC(CCJCCJ,2) & CJJCCCJJ("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CCCJJJJ):dim CJCJJJC:CJCJJJC=CJJJCJJC(CCCJJJJ):Sql_GetChildren = CJJCJCJ & CJJCCCJJ("0A2E9ZV[V ,=:<6 ,V") & CJCJJJC & CJJCCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCJCC
End Sub:Public Sub UpdateCache(CCCJJJJ,CJCJCJCJ,CJCJCJCC,CJCJJJC,CJCJCCJJ):dim CCJCCJ,CCJCCC:CCCJJJJ=CLng(CCCJJJJ):CCJCCJ=CJJJJCCC(CCCJJJJ):if CJCJCJCJ="" and CJCJCJCC="" and CJCJJJC="" and CJCJCCJJ="" then
if CCJCCJ>0 then
for CCJCCC=1 to 4:CJJJCCC(CCJCCJ,CCJCCC)=Null:next
end if
else
if CCJCCJ=0 then
for CCJCCC=1 to CJJCJJC:if CJJJCCC(CCJCCC,1) & ""="" then
CCJCCJ=CCJCCC:exit for
end if:next
end if:if CCJCCJ=0 then
Call ClearCache
else
CJJJCCC(CCJCCJ,0)=CLng(CCCJJJJ):if CJCJCJCJ<>"" then CJJJCCC(CCJCCJ,1)=CLng(CJCJCJCJ)
if CJCJCJCC<>"" then CJJJCCC(CCJCCJ,2)=CJCJCJCC
if CJCJJJC<>"" then CJJJCCC(CCJCCJ,3)=CJCJJJC
if CJCJCCJJ<>"" then CJJJCCC(CCJCCJ,4)=CLng(CJCJCCJJ)
end if
end if:if CCJCCJ>0 then
Application.Lock():Application(CJJCJCC) = CJJJCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJJCJC):Call ConnClose:Response.Write CJCJJCJC:Response.End:End Sub:Private Function CCCCCCJ():CCCCCCJ=CJJJCCJJ+1:End Function:Private Function CJJJCCJJ():dim CCCCCC:set CCCCCC=CCJCC.execute(CJJCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJCJ & CJJCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCJJ=CCCCCC(0):CCCCCC.Close: Set CCCCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJJCC ="9"
Const CCCJCJJ ="7"
Const CCCJCJC ="3"
Const CCCJCCJ ="4"
Const CCCJCCC ="8"
Const CCCCJJJ =":"
Const CCCCJJC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCJJCC, CJCJCJJ, CJCJCJC, CJCJCCJ, CJCJCCC, CCCCJC, CJCCJJJ, CJCCJJC, CJCCJCJ, CJCCJCC:Private Function CJJJCCJC():Dim CJCCCJJ:CJCCCJJ = "??" & CJCJCCC & CJJCCCJJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCJCJ & CJJCCCJJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJCCJ & CJJCCCJJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCCCJJ("k^3mk^DA2?m??")
CJJJCCJC = CJCCCJJ:End Function:Private Function CJJJCCCJ():CJJJCCCJ = CJJCCCJJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCJCCJ & CJJCCCJJ("V ,DEJ=6lV") & CCCCJJC & CJJCCCJJ("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") & CCCCJC & CJJCCCJJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJJJCCCC():CJJJCCCC = CJJCCCJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCJJC & CJJCCCJJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCCCJC & CJJCCCJJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJCJJJJ():Dim CJCCCJJ, CCJCCJ:CJCCCJJ = CJJCCCJJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCCCJC & CJJCCCJJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCJCCJ = 1 To PageCount:CJCCCJJ = CJCCCJJ & CJJCCCJJ("k@AE:@? ,G2=F6lV") & CCJCCJ & CJJCCCJJ("V")
If CCJCCJ = CJCJCCJ Then CJCCCJJ = CJCCCJJ & CJJCCCJJ(" ,D6=64E65")
CJCCCJJ = CJCCCJJ & CJJCCCJJ("m") & CCJCCJ & CJJCCCJJ("k^@AE:@?m"):Next:CJCCCJJ = CJCCCJJ & CJJCCCJJ("k^D6=64Em??"):CJJCJJJJ = CJCCCJJ:End Function:Public Sub ShowPage():Dim CCJCCJ, CJCCCJC,CJCCCCJ,CJCCCCC:if CJCJCCC>0 then
CJCCCJC = CJJCCCJJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJJCCJC & CJJCCCJJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJCCJCC:Case 1: CJCCCCC = CJJCJJCC:Case 2: CJCCCCC = CJJCJCJJ:Case 3: CJCCCCC = CJJCJCJC:Case 4: CJCCCCC = CJJCJCCJ:Case 5: CJCCCCC = CJJCJCCC:Case 6: CJCCCCC = CJJCCJJJ:Case 7: CJCCCCC = CJJCCJJC:Case 8: CJCCCCC = CJJCCJCJ:End Select
End If:CJCCCCJ = CJJCCCJJ("k^5:Gmk^5:Gm")
end if:if CJCCJCC>=6 then
Response.Write CJCCCCC
else
Response.Write CJCCCJC & CJCCCCC & CJCCCCJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJCJJ = Server.CreateObject(CJJCCCJJ("ps~sq]#64@C5$6E")):CJCJCJJ.PageSize = CJCCJCJ:CJCJCJJ.Open CJCJCJC, CJCJJCC, 1:If err then
Response.Write	CJJCCCJJ("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 & CJJCCCJJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCJCJJ.EOF Then
CJCJCCC = CJCJCJJ.RecordCount:PageCount = CJCJCJJ.PageCount:If CJCJCCJ > PageCount Then CJCJCCJ = PageCount
CJCJCJJ.AbsolutePage = CJCJCCJ
End If:Set Rs = CJCJCJJ:End Function:Public Property Let CCCJJ(CJCJCCJC):Set CJCJJCC = CJCJCCJC:End Property:Public Property Let SQL(str):CJCJCJC = str:End Property:Public Property Let Style(CJJJCJJ):If IsNumeric(CJJJCJJ) Then
CJCCJCC = CInt(CJJJCJJ):If CJCCJCC < 1 Or CJCCJCC > 8 Then CJCCJCC = 1
Else
CJCCJCC = 1
End If:End Property:Public Property Let PageSize(CJJJCJJ):If IsNumeric(CJJJCJJ) Then
CJCCJCJ = CInt(CJJJCJJ):If CJCCJCJ < 1 Then CJCCJCJ = 10
Else
CJCCJCJ = 10
End If:End Property:Public Property Get PageSize():If CJCJCCJ = PageCount Then
PageSize = CJCJCCC - CJCCJCJ * (PageCount - 1)
Elseif CJCJCCC=0 then
pagesize=0
else
PageSize = CJCCJCJ
end if:End Property:Private Sub Class_Initialize():dim CCJJJJJ:CJCCJCJ = 10:CJCCJCC = 1:Set CJCJJCC = CCJCC:CJCJCCJ = Trim(Request.QueryString(CJJCCCJJ("!286"))):If IsNumeric(CJCJCCJ) Then
CJCJCCJ = CLng(CJCJCCJ):If CJCJCCJ < 1 Then CJCJCCJ = 1
Else
CJCJCCJ = 1
End If:CJCCJJC = Trim(Request.ServerVariables(CJJCCCJJ("&#{"))):CJCCJJC = Mid(CJCCJJC, InStrRev(CJCCJJC, CJJCCCJJ("^")) + 1):CJCCJJJ = Split(Trim(Request.ServerVariables(CJJCCCJJ("""&t#*0$%#x}v"))), CJJCCCJJ("U")):CCCCJC = Server.HtmlEncode(CJCJCCCJ):CCJJJJJ=lcase(CCCCJC):if instr(CCJJJJJ,CJJCCCJJ("Tb4:7C2>6"))>0 or instr(CCJJJJJ,CJJCCCJJ("Tb4D4C:AE"))>0 or instr(CCJJJJJ,CJJCCCJJ("V"))>0 or instr(CCJJJJJ,CJJCCCJJ(";2G2D4C:AE"))>0 or instr(CCJJJJJ,CJJCCCJJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CJJJCJJ):ListNum = CJCCJCJ * (CJCJCCJ - 1) + CJJJCJJ:End Function:Private Function CJCJCCCJ():Dim CCJCCJ, str:For CCJCCJ = 0 To UBound(CJCCJJJ):If InStr(LCase(CJCCJJJ(CCJCCJ)), CJJCCCJJ("A286l")) = 0 Then str = str & CJJCCCJJ("U") & CJCCJJJ(CCJCCJ)
Next:str = Mid(str, 2):If str = "" Then CJCJCCCJ = CJCCJJC & CJJCCCJJ("n") & CJJCCCJJ("A286l") Else CJCJCCCJ = CJCCJJC & CJJCCCJJ("n") & str & CJJCCCJJ("UA286l")
End Function:Private Function CJJCJJCC():Dim str:str = CJJCCCJJ("???? ,??"):For CCJCCJ = 1 To PageCount:If CCJCCJ = CJCJCCJ Then str = str & CJJCCCJJ("k3m") & CCJCCJ & CJJCCCJJ("k^3m ,") Else str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CCJCCJ & CJJCCCJJ("Vm") & CCJCCJ & CJJCCCJJ("k^2m ,")
Next:str = str & CJJCCCJJ("??"):CJJCJJCC = str:End Function:Private Function CJJCJCJJ():Dim str:If CJCJCCJ > 1 Then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJJCCCJJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJJCC & CJJCCCJJ("k^2m ,")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCCCJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCJC & CJJCCCJJ("k^2m ,")
Else
str = str & CCCJJCC & CJJCCCJJ(" ,") & CCCJCJC
End If:If CJCJCCJ < PageCount Then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCCCJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCJ & CJJCCCJJ("k^2m ,")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & PageCount & CJJCCCJJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJJ & CJJCCCJJ("k^2m ,")
Else
str = str & CCCJCCJ & CJJCCCJJ(" ,") & CCCCJJJ
End If:str = str & CJJJCCCJ:str = str & CJJJCCCC:CJJCJCJJ = str:End Function:Private Function CJJCJCJC():Dim str, CCJCJC:CCJCJC = (CJCJCCJ - 1) \ 10:If CJCJCCJ = 1 Then str = str & CCCJJCC & CJJCCCJJ(" ,") Else str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJJCCCJJ("`V ,E:E=6lV????Vm") & CCCJJCC & CJJCCCJJ("k^2m ,")
If CCJCJC * 10 > 0 Then str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 10 & CJJCCCJJ("V ,E:E=6lV??????Vm") & CCCJCJJ & CJJCCCJJ("k^2m ,")
For CCJCCJ = (CCJCJC * 10 + 1) To (CCJCJC * 10 + 10):If CCJCCJ = CJCJCCJ Then str = str & CJJCCCJJ("k3m") & CCJCCJ & CJJCCCJJ("k^3m ,") Else str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CCJCCJ & CJJCCCJJ("V ,E:E=6lV??????") & CCJCCJ & CJJCCCJJ("??Vm") & CCJCCJ & CJJCCCJJ("k^2m ,")
If CCJCCJ = PageCount Then Exit For
Next:If CCJCCJ < PageCount Then str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CCJCCJ & CJJCCCJJ("V ,E:E=6lV??????Vm") & CCCJCCC & CJJCCCJJ("k^2m ,")
If CJCJCCJ = PageCount Then str = str & CCCCJJJ Else str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & PageCount & CJJCCCJJ("V ,E:E=6lV????Vm") & CCCCJJJ & CJJCCCJJ("k^2m")
CJJCJCJC = str:End Function:Private Function CJJCJCCJ():Dim str, CCCJCC, CCJJJJC, CCJCCJ:If CJCJCCJ > 4 Then str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJJCCCJJ("`Vm,`.k^2m ,]]]")
If CJCJCCJ < PageCount - 3 Then CCJJJJC = CJCJCCJ + 3 Else CCJJJJC = PageCount
For CCJCCJ = CJCJCCJ - 3 To CCJJJJC:If CCJCCJ >= 1 Then
If CCJCCJ = CJCJCCJ Then str = str & CJJCCCJJ(" ,k3m,") & CCJCCJ & CJJCCCJJ(".k^3m") Else str = str & CJJCCCJJ(" ,k2 ,9C67lV") & CCCCJC & CCJCCJ & CJJCCCJJ("Vm,") & CCJCCJ & CJJCCCJJ(".k^2m")
End If:Next:If CJCJCCJ < PageCount - 3 Then str = str & CJJCCCJJ(" ,]]] ,k2 ,9C67lV") & CCCCJC & PageCount & CJJCCCJJ("Vm,") & PageCount & CJJCCCJJ(".k^2m")
CJJCJCCJ = str:End Function:Private Function CJJCJCCC():Dim str:If CJCJCCJ > 1 Then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJJCCCJJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCCCJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJJCCCJJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJCJCCJ < PageCount Then
str = str & CJJCCCJJ(" ,k2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCCCJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & PageCount & CJJCCCJJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJJCCCJJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJJCJJJJ:CJJCJCCC = str:End Function:Private Function CJJCCJJJ():Dim str:if CJCJCCJ>=2 then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJCCJ-1 & CJJCCCJJ("k^2m")
end if:str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCJCCJ & CJJCCCJJ("k^2m")
if pagecount>CJCJCCJ then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJCCJ+1 & CJJCCCJJ("k^2m")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJCCJJJ=str:End Function:Private Function CJJCCJJC():Dim str:str=CJJCCCJJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCJCCJ>=2 then
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCCCJJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCCCJJ("Vm") & CJCJCCJ-1 & CJJCCCJJ("k^2mk^=:m")
end if:str = str & CJJCCCJJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCCCJC & CJCJCCJ & CJJCCCJJ("Vm") & CJCJCCJ & CJJCCCJJ("k^2mk^=:m")
if pagecount>CJCJCCJ then
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCCCJJ("Vm") & CJCJCCJ+1 & CJJCCCJJ("k^2mk^=:m")
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCCCJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCCJJ("k^F=m"):CJJCCJJC=str:End Function:Private Function CJJCCJCJ():Dim str:str=CJJCCCJJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCJCCJ>=2 then
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCCCJJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ - 1 & CJJCCCJJ("Vm") & CJCJCCJ-1 & CJJCCCJJ("k^2mk^=:m")
end if:str = str & CJJCCCJJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCCCJC & CJCJCCJ & CJJCCCJJ("Vm") & CJCJCCJ & CJJCCCJJ("k^2mk^=:m")
if pagecount>CJCJCCJ then
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCCCJJ("Vm") & CJCJCCJ+1 & CJJCCCJJ("k^2mk^=:m")
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCJC & CJCJCCJ + 1 & CJJCCCJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCCJJ("k^F=m"):CJJCCJCJ=str:End Function:End Class::Call CheckLogined:if not CJCJJC then Call RedirectMessage(CJJCCCJJ("????????????M????????,????????????????????????,"))
dim CCJJCC,CCJJJCJ(38):CCJJCC=CJJCCJ:if not CCCCCJC(CCJJCC) or CCJJCC=0 then
server.Transfer CJJCCCJJ("=@8:?]2DA")
end if:sql=CJJCCCJJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[>2I>6>36C[766[C6E6DE52J[6IA:C652E6[E:E=6[>6>36C0EJA60?2>6[4@AJC:89E[A:4EFC6[DEF56?E2AA62=[6>2:=0D>EA[6>2:=0=@8:??2>6[6>2:=0=@8:?A2DD[6>2:=07C@>[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 ,7C@> ,G0D49@@= ,H96C6 ,:5l") & CCJJCC:set rs=CCJCC.execute(sql):if rs.eof then Call RedirectMessage(CJJCCCJJ("??????????M????????,??????????????W") & CCJJCC & CJJCCCJJ("X??????????????????,??????????????,"))
CCJJJCJ(0)=rs(0) & "":CCJJJCJ(1)=rs(1):CCJJJCJ(3)=rs(2) & "":CCJJJCJ(4)=rs(3) & "":CCJJJCJ(5)=rs(4):CCJJJCJ(6)=rs(5):CCJJJCJ(7)=rs(6):CCJJJCJ(8)=rs(7):CCJJJCJ(9)=rs(8):CCJJJCJ(10)=rs(9) & "":CCJJJCJ(11)=rs(11) & "":CCJJJCJ(12)=rs(12) & "":CCJJJCJ(14)=rs(14) & "":CCJJJCJ(15)=rs(15) & "":CCJJJCJ(16)=rs(16) & "":CCJJJCJ(17)=rs(17) & "":CCJJJCJ(18)=rs(18):CCJJJCJ(19)=IIf(rs(19),True,False):CCJJJCJ(20)=rs(20):CCJJJCJ(25)=rs(21):CCJJJCJ(27)=rs(22):CCJJJCJ(28)=rs(23):CCJJJCJ(29)=IIf(rs(24),False,True):CCJJJCJ(30)=rs(25):CCJJJCJ(31)=rs(26):CCJJJCJ(32)=rs(27):CCJJJCJ(33)=rs(28):CCJJJCJ(34)=rs(29):CCJJJCJ(35)=IIf(rs(30),True,False):CCJJJCJ(36)=121:CCJJJCJ(37)=111:CCJJJCJ(38)=160:if isNull(CCJJJCJ(7)) then CCJJJCJ(7)=0
if not isdate(CCJJJCJ(9)) then CCJJJCJ(9)=Date+2 else CCJJJCJ(9)=cdate(CCJJJCJ(9))
if CCJJJCJ(9)<Date then Call RedirectMessage(CJJCCCJJ("??????????M????????,????????????????W") & CCJJJCJ(9) & CJJCCCJJ("X??????,"))
if CCJJJCJ(10)="" then CCJJJCJ(10)=rs(10)
if CCJJJCJ(11)="" then CCJJJCJ(11)=CJJCCCJJ("??????????,U4@AJj") & year(date)-1 & CJJCCCJJ("\") & year(date)+1 & CJJCCCJJ(" ,????????????????????????????????") & vbcrlf & CJJCCCJJ("??????????,_`_\eahge_``^`a") & vbcrlf & CJJCCCJJ("??????????,??????????????????,??????@??????????a????ac_`??W`___gdX") & vbcrlf & CJJCCCJJ("??????????,k2 ,9C67lV9EEADi^^HHH]I:?92:D@7E]4@>V ,E2C86ElV03=2?<VmHHH]I:?92:D@7E]4@>k^2m")
if not CCCCCJC(CCJJJCJ(20)) then CCJJJCJ(20)=7
select case CCJJJCJ(1):case 1,2,16:CCJJJCJ(36)=159:case 4,5,6,10,11:CCJJJCJ(36)=190:CCJJJCJ(37)=178:CCJJJCJ(38)=191:case 7,13:CCJJJCJ(36)=164:CCJJJCJ(37)=178:CCJJJCJ(38)=179:end select:Function CJJJJJJC(CJCCJJJJ):dim CCJJJCC(7,1),CCJCCJ,CCJJCJJ,CCJJCJC:CCJJCJJ=Array(CJJCCCJJ("$49@@="),CJJCCCJJ("$EF56?E"),CJJCCCJJ("s6AE"),CJJCCCJJ("vC256"),CJJCCCJJ("r=2DD>2E6"),CJJCCCJJ("}F>36C"),CJJCCCJJ("%62496C"),CJJCCCJJ("!2C6?E")):select case CCJJJCJ(1):case 1,2 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 3,16 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 4 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 5 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 6 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 7 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 8 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 9 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 10 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 11 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 12 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 13 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 14 : CCJJCJC=Array(CJJCCCJJ("??????"),CJJCCCJJ("??@??"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 15 : CCJJCJC=Array(CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case else : CCJJCJC=CCJJCJJ
end select:for CCJCCJ=0 to Ubound(CCJJJCC):CCJJJCC(CCJCCJ,0)=CCJJCJJ(CCJCCJ):CCJJJCC(CCJCCJ,1)=CCJJCJC(CCJCCJ):next:for CCJCCJ=0 to Ubound(CCJJJCC):if CCJJJCC(CCJCCJ,0)=CJCCJJJJ then
CJJJJJJC=CCJJJCC(CCJCCJ,1):exit for
end if:next:End Function:::if not CCJJJCJ(31) then Call response.redirect(CJJCCCJJ("]]^A:4EFC6^??????@??????^????????????^????????]A?8"))
Call CheckLogined:Call WriteCurrentURL:dim CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC,CJJJCJJ,CCJCJCJ,CCJCCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ:CCJJCCJ=Request.QueryString(CJJCCCJJ("56AE")):CCJJCCC=Request.QueryString(CJJCCCJJ("8C256")):CCJCCJC=Request.QueryString(CJJCCCJJ("vC@FA")):CCJCJJJ=Request.QueryString(CJJCCCJJ("!@DE")):CCJCJJC=Request.QueryString(CJJCCCJJ("D6I")):CJJJCJJ=CCCCJCJ(Request.QueryString(CJJCCCJJ("}F>"))):CCJCJCJ=CCCCJCJ(Request.QueryString(CJJCCCJJ("}:4<"))):CCJCJCC=Request.QueryString(CJJCCCJJ("%`")):CCJCCJJ=Request.QueryString(CJJCCCJJ("%a")):CCJCCCJ=Request.QueryString(CJJCCCJJ("E96EJA6")):if not CCCCCJC(CCJJCCJ) then CCJJCCJ=CJJJCC
dim CJJJCCC:set CJJJCCC=new jtree:CJJJCCC.table=CJJCCCJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJCCCJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCCCJJ("k9E>=m") & vbCrLf):Response.Write(CJJCCCJJ("k9625m") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCJJ("kE:E=6m????????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCCJJ("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCCJJ("k^9625m") & vbCrLf):Response.Write(CJJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm?,?????????????,k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJJJJJC(CJJCCCJJ("}F>36C")):Response.Write(CJJCCCJJ("??,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`aQ ,G2=F6lQ")):Response.Write CJJJCJJ:Response.Write(CJJCCCJJ("Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQs6AEQ ,:5lQs6AEQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):Call CJJJCCC.ShowTree_Select(CJJJCC, CCJJCCJ):Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):If CCJJJCJ(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kD6=64E ,?2>6lQvC256Q ,:5lQvC256Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):if CJJCCC=0 then
response.Write CJJCCCJJ("k@AE:@? ,G2=F6lVVm,") & CJJJJJJC(CJJCCCJJ("vC256")) & CJJCCCJJ(".k^@AE:@?m")
Call ShowListSelect(CJJCCCJJ(">6>36C08C256"),CCJJCC,CCJJCCC)
else
response.Write CJJCCCJJ("k@AE:@? ,G2=F6lV") & CJJCCC & CJJCCCJJ("Vm") & CJJJJCJC(CJJCCCJJ(">6>36C08C256"),CCJJCC,CJJCCC) & CJJCCCJJ("k^@AE:@?m")
end if:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCCJJ(" ,"))
End If::If CCJJJCJ(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kD6=64E ,?2>6lQ8C@FAQ ,:5lQ8C@FAQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm,")):Response.Write CCJJJCJ(3):Response.Write(CJJCCCJJ(".k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):Call ShowListSelect(CJJCCCJJ(">6>36C04FDE@>8C@FA"),CJJCCJ,CCJCCJC):Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCCJJ(" ,"))
End If:Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQ$6IQ ,:5lQ$6IQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CCJCJJC="1",CJJCCCJJ("D6=64E65"),""):Response.Write(CJJCCCJJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CCJCJJC="0",CJJCCCJJ("D6=64E65"),""):Response.Write(CJJCCCJJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`aQ ,G2=F6lQ")):Response.Write CCJCJCJ:Response.Write(CJJCCCJJ("Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ>J52E6Q ,:5lQ%`Q ,D:K6lQ`_Q ,G2=F6lQ")):Response.Write CCJCJCC:Response.Write(CJJCCCJJ("Q ,C625@?=J ,E:E=6lQ??????????????Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,O") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ>J52E6Q ,:5lQ%aQ ,D:K6lQ`_Q ,G2=F6lQ")):Response.Write CCJCCJJ:Response.Write(CJJCCCJJ("Q ,C625@?=J ,E:E=6lQ??????????????Qmk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQE96EJA6Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):set rs=CCJCC.execute(CJJCCCJJ("D6=64E ,5:DE:?4E ,EJA6 ,7C@> ,3:@7665324<03C2:?H2G6")):while not rs.eof:response.Write CJJCCCJJ("k@AE:@?") & IIf(rs(0)=CCJCCCJ,CJJCCCJJ(" ,D6=64E65"),"") & CJJCCCJJ("m") & rs(0) & CJJCCCJJ("k^@AE:@?m"):rs.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,:5lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,E:E=6lQ????????????Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):If CCJCJJJ="1" Then
Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCJJ("k^7@C>m") & vbCrLf):Response.Write(CJJCCCJJ("k3Cm") & vbCrLf)::if CCJCJJJ="1" then
sql=CJJCCCJJ("H96C6 ,") & CJJJCCC.Sql_GetChildren(CCJJCCJ):if CJJJCJJ<>"" then Sql=Sql & CJJCCCJJ(" ,2?5 ,?F>36ClV") & CJJJCJJ & CJJCCCJJ("V")
if CCJCJCJ<>"" then Sql=Sql & CJJCCCJJ(" ,2?5 ,C62=?2>6lV") & CCJCJCJ & CJJCCCJJ("V")
if CCJCCCJ<>"" then Sql=Sql & CJJCCCJJ(" ,2?5 ,EJA6lV") & CCJCCCJ & CJJCCCJJ("V")
if CCCCCJC(CCJJCCC) then Sql=Sql & CJJCCCJJ(" ,2?5 ,8C256l") & CCJJCCC
if CCCCCJC(CCJCCJC) then Sql=Sql & CJJCCCJJ(" ,2?5 ,4FDE@>8C@FAl") & CCJCCJC
if CCCCCJC(CCJCJJC) then sql=sql & CJJCCCJJ(" ,2?5 ,D6Il") & CCJCJJC
if isDate(CCJCJCC) then Sql=Sql & CJJCCCJJ(" ,2?5 ,52E6E:>6mlV") & CCJCJCC & CJJCCCJJ("V")
if isDate(CCJCCJJ) then Sql=Sql & CJJCCCJJ(" ,2?5 ,52E6E:>6klV") & cdate(CCJCCJJ)+1 & CJJCCCJJ("V")
sql=sql & CJJCCCJJ(" ,@C56C ,3J ,52E6E:>6 ,56D4"):Session(CJJCCCJJ("!$*0$B="))=sql:Sql=CJJCCCJJ("D6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[286[EJA6[52E6E:>6[5FC2E:@?[>6>36C[7D0>2I[7D0>:?[7D02G8[KK0>2I[KK0>:?[KK02G8 ,7C@> ,G03:@7665324<03C2:?H2G6 ,") & Sql:dim CCJCCCC:set CCJCCCC=new splitpage:with CCJCCCC:.sql=Sql:.pagesize=15:.style=2:end with:set rs=CCJCCCC.rs:Response.Write(vbCrLf):Response.Write(CJJCCCJJ("k7@C> ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm??k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm")):Response.Write CJJJJJJC(CJJCCCJJ("}F>36C")):Response.Write(CJJCCCJJ("k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm????????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,4@=DA2?lQbQm??????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,4@=DA2?lQbQm??????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):dim CCCJJJJ:for CCJCCJ=1 to CCJCCCC.pagesize:CCCJJJJ=rs(0):Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCJCCCC.listnum(CCJCCJ):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(1):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(2):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(3):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(4):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write rs(5):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write rs(6):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write CJJJJJCC(rs(7)):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(9):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(10):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(11):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(12):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(13):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(14):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,4=2DDlQH:?Q ,52E2\H:?D:K6lQ,`___[d__.Q ,9C67lQ3C2:?H2G6024E]2DAn:5l")):Response.Write CCCJJJJ:Response.Write(CJJCCCJJ("Qm????k^2m ,k2 ,9C67lQ3C2:?H2G6024E]2DAn24El56=U:5l")):Response.Write CCCJJJJ:Response.Write(CJJCCCJJ("Qm????k^2mk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4@=DA2?lQ`dQm")):call CCJCCCC.showpage:set CCJCCCC=nothing:Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ("k^7@C>m") & vbCrLf)
else
response.write CJJCCCJJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];52E6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWQ:?AFEiE6IE]>J52E6QX];s2E6WXj") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWQRs6AEQX];%C66$6=64EWX]49@D6?WXj") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWQRvC256[R8C@FAQX]49@D6?WXj") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWQ:?AFEi3FEE@?,G2=F6lV?? ,??V.QX]@?WV4=:4<V[7F?4E:@?W6XLD6=7]AC:?EWXjNXj") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWQ2i4@?E2:?DWV????VXQ[SWVE23=6]E30=:DEVXX]@?WQ4=:4<Q[7F?4E:@?W6XL:7WP4@?7:C>WV????????????????????????,????????????,????????????????,VXXLC6EFC? ,72=D6jNNXj") & vbCrLf):Response.Write(CJJCCCJJ("NXj") & vbCrLf):Response.Write(CJJCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCCC=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:set CJJJJJJC=nothing:CCCCJ.Close:Set CCCCJ=Nothing:rs.Close:Set rs=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCCJJ(ByVal CJJCCJCC)
Dim CCCJJJC, CCJCCJ, CCCJCC
CJJCCJCC = Replace(CJJCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCJ = 1 To Len(CJJCCJCC)
If CCJCCJ <> CCCJCC Then
CCCJJJC = AscW(Mid(CJJCCJCC, CCJCCJ, 1))
If CCCJJJC >= 33 And CCCJJJC <= 79 Then
CJJCCCJJ = CJJCCCJJ & Chr(CCCJJJC + 47)
ElseIf CCCJJJC >= 80 And CCCJJJC <= 126 Then
CJJCCCJJ = CJJCCCJJ & Chr(CCCJJJC - 47)
Else
CCCJCC = CCJCCJ + 1
If Mid(CJJCCJCC, CCCJCC, 1) = Chr(64) Then CJJCCCJJ = CJJCCCJJ & ChrW(CCCJJJC + 5) Else CJJCCCJJ = CJJCCCJJ & Mid(CJJCCJCC, CCJCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de