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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de