Edit D:\xinhaisoft\crisis_new\school\admin\sandtable

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de