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

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJ, CCCCC,rs, CJJJJC, sql:Set CCCCJ = server.CreateObject(CJJCCCCC("ps~sq]r@??64E:@?")):CCCCJ.open Application(CJJCCCCC("r@??64E:@?$EC:?8")):Set CCCCC=CCCCJ::Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ,CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC:CCJCJC=Trim(Request.Cookies(CJJCCCCC("!$*|t|qt#"))):if CCJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCC>0 then
sql=CJJCCCCC("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") & CJJCJJ & CJJCCCCC("V ,2?5 ,:5l") & CJJJCC
set rs=CCCCJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJCJC=rs(2) & "":CJJCCJ=rs(3):CJJCCC=rs(5):CJCJJJ=rs(6):CJCJJC=rs(9):CJCJCJ=rs(15):CJCCJJ=rs(0):CCJJCC=rs(1):CCJJCJ=rs(11) & "":CJCCJC=rs(10) & "":CJCJCC=rs(12):CJCCCJ=rs(14):CJCCCC=rs(13):CCJJJJ=rs(7) & "":CCJJJC=rs(4):CCJCJJ=rs(8):if isnull(CJCJCJ) then CJCJCJ=0
if isnull(CJCJJC) or CJCJJC=0 then CJCJJC=CJJCCJ
if isnull(CCJJJC) then CCJJJC=0
if isnull(CJJCCC) then CJJCCC=0
if instr(CJJCCCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJ)>0 then Call RedirectMessage(CJJCCCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCC,CJJCJJ)
End IF
end if:Sub CheckRight(CJJJCCJ):dim CCJCCJ,CCJCCC:if CJJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCCCCC("??????????????,????????????,"))
elseIf not CCCCCJC(CJJJCCJ) then
Call RedirectMessage(CJJCCCCC("????W") & CJJJCCJ & CJJCCCCC("X????????,????????????????????,"))
end if:End Sub:Function CCCCCJC(CJJJCCJ):dim CCJCCJ,CCJCCC:CCJCCC=split(CJJJCCJ,CJJCCCCC("[")):CCCCCJC=False:for CCJCCJ=0 to ubound(CCJCCC):If Mid(CJJCJC,CCJCCC(CCJCCJ),1)="1" then
CCCCCJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCCJJJ:CCCJJJ=trim(request.QueryString(CJJCCCCC("D49@@="))):if isnumeric(CCCJJJ) then
response.Redirect CJJCCCCC("^>^G2?E^R^D49@@=^") & CCCJJJ & CJJCCCCC("^DEF56?E^=@8:?nC65:C64El") & CJCCJCJ
else
Call RedirectMessage(CJJCCCCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCCCC("!$*|t|qt#"))="":CJJJCC=0:CJCJJJ=0:CJJCJJ=Empty:CJJCCC=0:CJCJCJ=0:CJCJJC=0:CJJCCJ=0:CJCCJJ=False:CCJJCC=False:CCJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCJJC,CCCJCJ,CCJCCJ,CCCJCC,CCCCJJ:CCCJJC=split(CCJCJC,CJJCCCCC("]")):if ubound(CCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCJJC(0)) or len(CCCJJC(1))<>32 or len(CCCJJC(2))<>32 then
Call ClearMemberCookie
else
CCCJCJ=CCCJJC(1):for CCJCCJ=1 to len(CCCJCJ):CCCJCC=mid(CCCJCJ,CCJCCJ,1):if isnumeric(CCCJCC) then CCCCJJ=CCCCJJ & CCCJCC
if len(CCCCJJ)=7 then exit for
next:CCCJCJ=CCCJJC(2):if CCCCJJ<>mid(CCCJCJ,6,7) then
Call ClearMemberCookie
else
CCCJCC=mid(CCCJCJ,18,10)/2:if CCCJCC<DateDiff(CJJCCCCC("D"), CJJCCCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCC=Clng(CCCJJC(0)):CJJCJJ=CCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJC,CJCJJJJJ):dim CCJCCJ,CCCJCC,CCCCJJ:for CCJCCJ=1 to len(CJCJJJJJ):CCCJCC=mid(CJCJJJJJ,CCJCCJ,1):if isnumeric(CCCJCC) then CCCCJJ=CCCCJJ & CCCJCC
if len(CCCCJJ)=7 then exit for
next:CCCCJJ=CCJCJJC & CJJCCCCC("]") & CJCJJJJJ & CJJCCCCC("]") & Fix(10000*(Rnd+1)) & CCCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCCC("D"), CJJCCCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCCC("!$*|t|qt#"))=CCCCJJ:End Sub::Function CCCCCCJ(CJCJJJJC):Dim str,CCCCCJ:str = Trim(CJCJJJJC):If IsNull(str) Or str = "" Then
CCCCCCJ = ""
else
str=Replace(str, CJJCCCCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCCCCC("k:7C2>6"), CJJCCCCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCCCC("kD4C:AE"), CJJCCCCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCCCJ=new RegExp:CCCCCJ.Pattern=CJJCCCCC("@?W,2\K.ZXl"):CCCCCJ.IgnoreCase = True:CCCCCJ.Global=True:str=CCCCCJ.Replace(str,CJJCCCCC("@?S`U6BF2=Dj")):set CCCCCJ=nothing:CCCCCCJ=str
End If:End Function:Function IIf(CJCJJJCJ, CJCJJJCC, CJCJJCJJ):if isnull(CJCJJJCJ) or isempty(CJCJJJCJ) then
IIf = CJCJJCJJ
elseif CJCJJJCJ Then
IIf = CJCJJJCC
Else
IIf = CJCJJCJJ
end if:End Function:Const CCCJCJC="^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,CCCJCC,CCCCCC:if isarray(str) then
on error resume next:CCJCCJ=ubound(str,2):CCCCCC=err.number:err.clear:on error goto 0:if CCCCCC<>0 then
for CCJCCJ=0 to ubound(str):if CCJCCJ>0 then response.Write CJJCCCCC("k3C ,^m")
response.Write CCJCCJ & CJJCCCCC("i ,") & str(CCJCCJ):next
else
response.Write CJJCCCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCCJ=0 to ubound(str,2):response.Write CJJCCCCC("kE9 ,2=:8?lV=67EVm") & CCJCCJ & CJJCCCCC("k^E9m")
next:response.Write CJJCCCCC("k^ECm"):for CCJCCJ=0 to ubound(str):response.Write CJJCCCCC("kECmkE9m") & CCJCCJ & CJJCCCCC("k^E9m"):for CCCJCC=0 to ubound(str,2):response.Write CJJCCCCC("kE5m") & str(CCJCCJ,CCCJCC) & CJJCCCCC("k^E5m"):next:response.Write CJJCCCCC("k^ECm"):next:response.Write CJJCCCCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCCCCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCCCCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCJJCJC,CJCJJCCJ):dim CCCJJC:CCCJJC=CJCJJCJC & CJJCCCCC("l") & CJCJJCCJ & CJJCCCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCCC("$6E\r@@<:6"),CCCJJC):End Sub:::::::Function CJJJJJJJ(CCCCCC):if isnull(CCCCCC) or trim(CCCCCC)="" or not isnumeric(CCCCCC) then
CJJJJJJJ=false
else
Dim CCCCCJ:Set CCCCCJ = New RegExp:CCCCCJ.Pattern = CJJCCCCC("/-5ZS"):CCCCCJ.IgnoreCase = True:CJJJJJJJ = CCCCCJ.test(CCCCCC):set CCCCCJ=nothing
end if:End Function:Function CJJJJJJC(CJCJJCCC):dim CJJJJJJ,CJJJJJC:CJJJJJJ=CJJCCCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJCCC & CJJCCCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJJC=CCCCJ.execute(CJJJJJJ):CJJJJJJC = CJJJJJC(0):if isnull(CJJJJJJC) then CJJJJJJC=1
CJJJJJC.close : set CJJJJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:set CJJJJCJJ=nothing:CJJJJJC.close : set CJJJJJC=nothing:CJJJJC.Close : Set CJJJJC=Nothing:rs.Close : Set rs=Nothing:CJJJJCJC.Close : Set CJJJJCJC = Nothing:CCCCJ.Close : Set CCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCCC("!$*0|6DD286"),server.URLEncode(CJCJCJJJ)):Response.Redirect CJJCCCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJJJJCCJ(ByVal CJJJJCCC,style):if not isdate(CJJJJCCC) then
CJJJJCCJ=CJJJJCCC:exit function
end if:dim CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:CJJJJCCC=cdate(CJJJJCCC):CJJJJCJ=Year(CJJJJCCC):CJJJJCC=Month(CJJJJCCC):CJJJCJJ=Day(CJJJJCCC):select case style:case 0:CJJJJCCJ=CJJJJCJ & CJJCCCCC("\") & right(0 & CJJJJCC,2) & CJJCCCCC("\") & right(0 & CJJJCJJ,2):case 1:CJJJJCCJ=CJJJJCJ & right(0 & CJJJJCC,2) & right(0 & CJJJCJJ,2):case 2:CJJJJCCJ=right(CJJJJCJ,2) & CJJCCCCC("\") & right(0 & CJJJJCC,2) & CJJCCCCC("\") & right(0 & CJJJCJJ,2):case 3:CJJJJCCJ=CJJJJCJ & CJJCCCCC("\") & right(0 & CJJJJCC,2):case 4:CJJJJCCJ=right(0 & CJJJJCC,2) & CJJCCCCC("\") & right(0 & CJJJCJJ,2):case 5:CJJJJCCJ=right(0 & CJJJCJJ,2):case 6:CJJJJCCJ=CJJJJCJ & CJJCCCCC("??") & right(0 & CJJJJCC,2) & CJJCCCCC("??") & right(0 & CJJJCJJ,2) & CJJCCCCC("??"):case else
CJJJJCCJ=CJJJJCCC:end select:End Function:Function CJJJCJJJ(Table):Dim CJJJJJC, CJJJCCJ, str(), CCJCCJ,CCCJCC,CJJJCCC:CJJJCCC=UCase(Table):If Not IsArray(Application(CJJCCCCC("!$*0") & CJJJCCC)) Then
Sql=CJJCCCCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJCCCCC(". ,@C56C ,3J ,D@CE[:5"):set CJJJJJC=server.createobject(CJJCCCCC("25@53]C64@C5D6E")):CJJJJJC.open sql,CCCCJ,1:CJJJCCJ = CJJJJJC.RecordCount:ReDim str(CJJJCCJ, 2):If CJJJCCJ > 0 Then
For CCJCCJ = 1 To CJJJCCJ:for CCCJCC=0 to 2:str(CCJCCJ, CCCJCC) = CJJJJJC(CCCJCC):next:CJJJJJC.MoveNext:Next
End If:CJJJJJC.Close: Set CJJJJJC = Nothing:Application(CJJCCCCC("!$*0") & CJJJCCC) = str
End If:CJJJCJJJ = Application(CJJCCCCC("!$*0") & CJJJCCC):End Function:Sub ShowListSelect(CJCJJCCC,CJCJCJJC,CJCJCJCJ):Dim str, CCJCCJ, CJJCJJJ:CJJCJJJ = CJJJCJJJ(CJCJJCCC):For CCJCCJ = 1 To UBound(CJJCJJJ):if Cstr(CJJCJJJ(CCJCCJ,2))=Cstr(CJCJCJJC) then
str = str & CJJCCCCC("k@AE:@? ,G2=F6lV") & CJJCJJJ(CCJCCJ, 0) & CJJCCCCC("V")
If CStr(CJJCJJJ(CCJCCJ, 0)) = CJCJCJCJ & "" Then str = str & CJJCCCCC(" ,D6=64E65lVD6=64E65V")
str = str & CJJCCCCC("m") & CJJCJJJ(CCJCCJ, 1) & CJJCCCCC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJJCJJC(CJCJJCCC,CJCJCJJC,CCJCJJC):Dim str, CCJCCJ, CJJCJJJ:CJJCJJJ = CJJJCJJJ(CJCJJCCC):For CCJCCJ = 1 To UBound(CJJCJJJ):if Cstr(CJJCJJJ(CCJCCJ,2))=Cstr(CJCJCJJC) and CStr(CJJCJJJ(CCJCCJ, 0)) = CCJCJJC & "" then
str=CJJCJJJ(CCJCCJ,1):exit for
end if:Next:if str="" then str=CJJCCCCC(",????.")
CJJJCJJC=str:End Function:::::::::::::::::Sub ClearCache(CJCJCJCC):Application.Contents.Remove CJCJCJCC
End Sub::Class jTree:Private Sql, CJJCJJC, CJJCJCJ, CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Private Sub Class_Initialize():CJJCJCJ = 0:CJJCJCC = 0:CJJCCCC=10:End Sub:Public Property Let Table(CJCJCCJJ):if CJCJCCJJ="" then Call RedirectMessage(CJJCCCCC("????????,;%C66????????????????????@??????????,"))
CJJCCJJ=CJCJCCJJ:CJJCCJC=CJJCCCCC("!$*0") & UCase(CJJCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCJJ:End Property:::Private Sub GetTreeArray():Dim CCJCCJ, CCCJCC, CJCJJJJ,RecordCount:CJJCJJC = Application(CJJCCJC):If Not IsArray(CJJCJJC) Then
Sql = CJJCCCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCJJ:if CJJCCCJ<>"" then Sql=Sql & CJJCCCCC(" ,H96C6 ,") & CJJCCCJ
set CJCJJJJ=CCCCJ.execute(sql):RecordCount=CJCJJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJCCCCC("????W") & CJJCCJJ & CJJCCCCC("^") & CJJCCCJ & CJJCCCCC("X????????????"))
CJJCJCC=RecordCount+CJJCCCC:ReDim CJJCJJC(CJJCJCC, 4):Sql = CJJCCCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJCCCCC(" ,H:E9 ,W?@=@4<X"):if CJJCCCJ<>"" then Sql=Sql & CJJCCCCC(" ,H96C6 ,") & CJJCCCJ
Sql=Sql & CJJCCCCC(" ,@C56C ,3J ,D@CE[:5"):set CJCJJJJ=CCCCJ.execute(sql):For CCJCCJ = 1 To RecordCount:For CCCJCC = 0 To 4:CJJCJJC(CCJCCJ, CCCJCC) = CJCJJJJ(CCCJCC):if IsNull(CJJCJJC(CCJCCJ,4)) then CJJCJJC(CCJCCJ,4)=0
If CJJCJJC(CCJCCJ,2)="" then CJJCJJC(CCJCCJ,2)=CJJCCCCC(",??.")
Next:CJCJJJJ.MoveNext:Next:CJCJJJJ.Close: Set CJCJJJJ = Nothing:for CCJCCJ=CJJCJCC-(CJJCCCC-1) to CJJCJCC:CJJCJJC(CCJCCJ,0)=CCJCCJ:next:Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock()
else
CJJCJCC=Ubound(CJJCJJC)
End If:End Sub:::::Private Function CJJJCJCC(CCJCJJC):dim CCJCCJ,CJCJJCJ:CJJJCJCC=0:CJCJJCJ=CStr(CCJCJJC):if CJCJJCJ<>"0" then
for CCJCCJ=1 to CJJCJCC:If CStr(CJJCJJC(CCJCCJ, 0))=CJCJJCJ Then
CJJJCJCC = CCJCCJ:Exit For
End If:Next
end if:End Function::::Public Function CJJJCCJJ(CCJCJJC):Dim CCJCCJ,CJCJJCC:CCJCCJ=CJJJCJCC(CCJCJJC):if CCJCCJ=0 then
CJCJJCC=CJJJCCJC(CCJCJJC)
else
CJCJJCC=CJJCJJC(CCJCCJ,3):if isnull(CJCJJCC) or CJCJJCC="" then
CJCJJCC=CJJJCCJC(CCJCJJC)
elseif Mid(CJCJJCC,instrrev(CJCJJCC,CJJCCCCC("["))+1)<>CStr(CCJCJJC) then
CJCJJCC=CJJJCCJC(CCJCJJC)
elseif Left(CJCJJCC,1)=CJJCCCCC("[") then
CJCJJCC=CJJJCCJC(CCJCJJC)
end if
end if:CJJJCCJJ=CJCJJCC:End Function:Private Function CJJJCCJC(CCJCJJC):dim CJCJJCJ:CJCJJCJ=CStr(CCJCJJC):if CJCJJCJ="0" then
CJJJCCJC=""
else
dim CJCJJJJ:set CJCJJJJ=CCCCJ.execute(CJJCCCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJCCCCC(" ,H96C6 ,:5l") & CCJCJJC):if CJCJJJJ.eof then
Call UpdateCache(CCJCJJC,"","","",""):Call RedirectMessage(CJJCCCCC("??????,xs??,") & CCJCJJC & CJJCCCCC("??,????????,????????????????????,"))
else
if CJCJJJJ(0)=0 then
CJJJCCJC="0," & CCJCJJC
else
CJJJCCJC=CJJJCCJJ(CJCJJJJ(0)) & CJJCCCCC("[") & CCJCJJC
end if:if CJCJJJJ(2)<>CJJJCCJC then
CCCCJ.execute CJJCCCCC("FA52E6 ,") & CJJCCJJ & CJJCCCCC(" ,D6E ,A2E9lV") & CJJJCCJC & CJJCCCCC("V ,H96C6 ,:5l") & CCJCJJC
else
CJJJCCJC=CJCJJJJ(2)
end if
end if:Call UpdateCache(CCJCJJC,CJCJJJJ(0),CJCJJJJ(1),CJJJCCJC,CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCJCJJC):dim CJCJJCC:CJCJJCC=CJJJCCJJ(CCJCJJC):Sql_GetChildren = CJJCCJJ & CJJCCCCC("0A2E9ZV[V ,=:<6 ,V") & CJCJJCC & CJJCCCCC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCCJC
End Sub:Public Sub UpdateCache(CCJCJJC,CJCJCCJC,CJCJCCCJ,CJCJJCC,CJCJCCCC):dim CCJCCJ,CCCJCC:CCJCJJC=CLng(CCJCJJC):CCJCCJ=CJJJCJCC(CCJCJJC):if CJCJCCJC="" and CJCJCCCJ="" and CJCJJCC="" and CJCJCCCC="" then
if CCJCCJ>0 then
for CCCJCC=1 to 4:CJJCJJC(CCJCCJ,CCCJCC)=Null:next
end if
else
if CCJCCJ=0 then
for CCCJCC=1 to CJJCJCC:if CJJCJJC(CCCJCC,1) & ""="" then
CCJCCJ=CCCJCC:exit for
end if:next
end if:if CCJCCJ=0 then
Call ClearCache
else
CJJCJJC(CCJCCJ,0)=CLng(CCJCJJC):if CJCJCCJC<>"" then CJJCJJC(CCJCCJ,1)=CLng(CJCJCCJC)
if CJCJCCCJ<>"" then CJJCJJC(CCJCCJ,2)=CJCJCCCJ
if CJCJJCC<>"" then CJJCJJC(CCJCCJ,3)=CJCJJCC
if CJCJCCCC<>"" then CJJCJJC(CCJCCJ,4)=CLng(CJCJCCCC)
end if
end if:if CCJCCJ>0 then
Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJCJJJ):Call ConnClose:Response.Write CJCJCJJJ:Response.End:End Sub:Private Function CJJJJJJC():CJJJJJJC=CJJJCCCC+1:End Function:Private Function CJJJCCCC():dim CJJJJJC:set CJJJJJC=CCCCJ.execute(CJJCCCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCJJ & CJJCCCCC(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCCC=CJJJJJC(0):CJJJJJC.Close: Set CJJJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJCCJ ="9"
Const CCCJCCC ="7"
Const CCCCJJJ ="3"
Const CCCCJJC ="4"
Const CCCCJCJ ="8"
Const CCCCJCC =":"
Const CCCCCJJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCJCJC, CJCJCCJ, CJCJCCC, CJCCJJJ, CJCCJJC, CJCCJCJ, CJCCJCC, CJCCCJJ, CJCCCJC, CJCCCCJ:Private Function CJJCJJJJ():Dim CJCCCCC:CJCCCCC = "??" & CJCCJJC & CJJCCCCC("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCCJC & CJJCCCCC("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCJJJ & CJJCCCCC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCCCCC("k^3mk^DA2?m??")
CJJCJJJJ = CJCCCCC:End Function:Private Function CJJCJJJC():CJJCJJJC = CJJCCCCC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCCJJJ & CJJCCCCC("V ,DEJ=6lV") & CCCCCJJ & CJJCCCCC("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") & CJCCJCJ & CJJCCCCC("VZE9:D]G2=F6Qm")
End Function:Private Function CJJCJJCJ():CJJCJJCJ = CJJCCCCC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCCJJ & CJJCCCCC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJCCJCJ & CJJCCCCC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJCJJCC():Dim CJCCCCC, CCJCCJ:CJCCCCC = CJJCCCCC(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJCCJCJ & CJJCCCCC("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:CJCCCCC = CJCCCCC & CJJCCCCC("k@AE:@? ,G2=F6lV") & CCJCCJ & CJJCCCCC("V")
If CCJCCJ = CJCCJJJ Then CJCCCCC = CJCCCCC & CJJCCCCC(" ,D6=64E65")
CJCCCCC = CJCCCCC & CJJCCCCC("m") & CCJCCJ & CJJCCCCC("k^@AE:@?m"):Next:CJCCCCC = CJCCCCC & CJJCCCCC("k^D6=64Em??"):CJJCJJCC = CJCCCCC:End Function:Public Sub ShowPage():Dim CCJCCJ, CCJJJJJ,CCJJJJC,CCJJJCJ:if CJCCJJC>0 then
CCJJJJJ = CJJCCCCC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJCJJJJ & CJJCCCCC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJCCCCJ:Case 1: CCJJJCJ = CJJCJCCJ:Case 2: CCJJJCJ = CJJCJCCC:Case 3: CCJJJCJ = CJJCCJJJ:Case 4: CCJJJCJ = CJJCCJJC:Case 5: CCJJJCJ = CJJCCJCJ:Case 6: CCJJJCJ = CJJCCJCC:Case 7: CCJJJCJ = CJJCCCJJ:Case 8: CCJJJCJ = CJJCCCJC:End Select
End If:CCJJJJC = CJJCCCCC("k^5:Gmk^5:Gm")
end if:if CJCCCCJ>=6 then
Response.Write CCJJJCJ
else
Response.Write CCJJJJJ & CCJJJCJ & CCJJJJC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJCCJ = Server.CreateObject(CJJCCCCC("ps~sq]#64@C5$6E")):CJCJCCJ.PageSize = CJCCCJC:CJCJCCJ.Open CJCJCCC, CJCJCJC, 1:If err then
Response.Write	CJJCCCCC("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 & CJJCCCCC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCJCCJ.EOF Then
CJCCJJC = CJCJCCJ.RecordCount:PageCount = CJCJCCJ.PageCount:If CJCCJJJ > PageCount Then CJCCJJJ = PageCount
CJCJCCJ.AbsolutePage = CJCCJJJ
End If:Set Rs = CJCJCCJ:End Function:Public Property Let CCCCC(CJCCJJJJ):Set CJCJCJC = CJCCJJJJ:End Property:Public Property Let SQL(str):CJCJCCC = str:End Property:Public Property Let Style(CJJJCCJ):If IsNumeric(CJJJCCJ) Then
CJCCCCJ = CInt(CJJJCCJ):If CJCCCCJ < 1 Or CJCCCCJ > 8 Then CJCCCCJ = 1
Else
CJCCCCJ = 1
End If:End Property:Public Property Let PageSize(CJJJCCJ):If IsNumeric(CJJJCCJ) Then
CJCCCJC = CInt(CJJJCCJ):If CJCCCJC < 1 Then CJCCCJC = 10
Else
CJCCCJC = 10
End If:End Property:Public Property Get PageSize():If CJCCJJJ = PageCount Then
PageSize = CJCCJJC - CJCCCJC * (PageCount - 1)
Elseif CJCCJJC=0 then
pagesize=0
else
PageSize = CJCCCJC
end if:End Property:Private Sub Class_Initialize():dim CCJJJCC:CJCCCJC = 10:CJCCCCJ = 1:Set CJCJCJC = CCCCJ:CJCCJJJ = Trim(Request.QueryString(CJJCCCCC("!286"))):If IsNumeric(CJCCJJJ) Then
CJCCJJJ = CLng(CJCCJJJ):If CJCCJJJ < 1 Then CJCCJJJ = 1
Else
CJCCJJJ = 1
End If:CJCCCJJ = Trim(Request.ServerVariables(CJJCCCCC("&#{"))):CJCCCJJ = Mid(CJCCCJJ, InStrRev(CJCCCJJ, CJJCCCCC("^")) + 1):CJCCJCC = Split(Trim(Request.ServerVariables(CJJCCCCC("""&t#*0$%#x}v"))), CJJCCCCC("U")):CJCCJCJ = Server.HtmlEncode(CJCCJJJC):CCJJJCC=lcase(CJCCJCJ):if instr(CCJJJCC,CJJCCCCC("Tb4:7C2>6"))>0 or instr(CCJJJCC,CJJCCCCC("Tb4D4C:AE"))>0 or instr(CCJJJCC,CJJCCCCC("V"))>0 or instr(CCJJJCC,CJJCCCCC(";2G2D4C:AE"))>0 or instr(CCJJJCC,CJJCCCCC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCCCCC("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CJJJCCJ):ListNum = CJCCCJC * (CJCCJJJ - 1) + CJJJCCJ:End Function:Private Function CJCCJJJC():Dim CCJCCJ, str:For CCJCCJ = 0 To UBound(CJCCJCC):If InStr(LCase(CJCCJCC(CCJCCJ)), CJJCCCCC("A286l")) = 0 Then str = str & CJJCCCCC("U") & CJCCJCC(CCJCCJ)
Next:str = Mid(str, 2):If str = "" Then CJCCJJJC = CJCCCJJ & CJJCCCCC("n") & CJJCCCCC("A286l") Else CJCCJJJC = CJCCCJJ & CJJCCCCC("n") & str & CJJCCCCC("UA286l")
End Function:Private Function CJJCJCCJ():Dim str:str = CJJCCCCC("???? ,??"):For CCJCCJ = 1 To PageCount:If CCJCCJ = CJCCJJJ Then str = str & CJJCCCCC("k3m") & CCJCCJ & CJJCCCCC("k^3m ,") Else str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CCJCCJ & CJJCCCCC("Vm") & CCJCCJ & CJJCCCCC("k^2m ,")
Next:str = str & CJJCCCCC("??"):CJJCJCCJ = str:End Function:Private Function CJJCJCCC():Dim str:If CJCCJJJ > 1 Then
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJJCCCCC("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCJ & CJJCCCCC("k^2m ,")
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 1 & CJJCCCCC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJJ & CJJCCCCC("k^2m ,")
Else
str = str & CCCJCCJ & CJJCCCCC(" ,") & CCCCJJJ
End If:If CJCCJJJ < PageCount Then
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ + 1 & CJJCCCCC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJC & CJJCCCCC("k^2m ,")
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & PageCount & CJJCCCCC("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJCC & CJJCCCCC("k^2m ,")
Else
str = str & CCCCJJC & CJJCCCCC(" ,") & CCCCJCC
End If:str = str & CJJCJJJC:str = str & CJJCJJCJ:CJJCJCCC = str:End Function:Private Function CJJCCJJJ():Dim str, CCCJCJ:CCCJCJ = (CJCCJJJ - 1) \ 10:If CJCCJJJ = 1 Then str = str & CCCJCCJ & CJJCCCCC(" ,") Else str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJJCCCCC("`V ,E:E=6lV????Vm") & CCCJCCJ & CJJCCCCC("k^2m ,")
If CCCJCJ * 10 > 0 Then str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 10 & CJJCCCCC("V ,E:E=6lV??????Vm") & CCCJCCC & CJJCCCCC("k^2m ,")
For CCJCCJ = (CCCJCJ * 10 + 1) To (CCCJCJ * 10 + 10):If CCJCCJ = CJCCJJJ Then str = str & CJJCCCCC("k3m") & CCJCCJ & CJJCCCCC("k^3m ,") Else str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CCJCCJ & CJJCCCCC("V ,E:E=6lV??????") & CCJCCJ & CJJCCCCC("??Vm") & CCJCCJ & CJJCCCCC("k^2m ,")
If CCJCCJ = PageCount Then Exit For
Next:If CCJCCJ < PageCount Then str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CCJCCJ & CJJCCCCC("V ,E:E=6lV??????Vm") & CCCCJCJ & CJJCCCCC("k^2m ,")
If CJCCJJJ = PageCount Then str = str & CCCCJCC Else str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & PageCount & CJJCCCCC("V ,E:E=6lV????Vm") & CCCCJCC & CJJCCCCC("k^2m")
CJJCCJJJ = str:End Function:Private Function CJJCCJJC():Dim str, CCCCCC, CCJJCJJ, CCJCCJ:If CJCCJJJ > 4 Then str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJJCCCCC("`Vm,`.k^2m ,]]]")
If CJCCJJJ < PageCount - 3 Then CCJJCJJ = CJCCJJJ + 3 Else CCJJCJJ = PageCount
For CCJCCJ = CJCCJJJ - 3 To CCJJCJJ:If CCJCCJ >= 1 Then
If CCJCCJ = CJCCJJJ Then str = str & CJJCCCCC(" ,k3m,") & CCJCCJ & CJJCCCCC(".k^3m") Else str = str & CJJCCCCC(" ,k2 ,9C67lV") & CJCCJCJ & CCJCCJ & CJJCCCCC("Vm,") & CCJCCJ & CJJCCCCC(".k^2m")
End If:Next:If CJCCJJJ < PageCount - 3 Then str = str & CJJCCCCC(" ,]]] ,k2 ,9C67lV") & CJCCJCJ & PageCount & CJJCCCCC("Vm,") & PageCount & CJJCCCCC(".k^2m")
CJJCCJJC = str:End Function:Private Function CJJCCJCJ():Dim str:If CJCCJJJ > 1 Then
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJJCCCCC("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 1 & CJJCCCCC("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJJCCCCC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJCCJJJ < PageCount Then
str = str & CJJCCCCC(" ,k2 ,9C67lV") & CJCCJCJ & CJCCJJJ + 1 & CJJCCCCC("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & PageCount & CJJCCCCC("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJJCCCCC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJJCJJCC:CJJCCJCJ = str:End Function:Private Function CJJCCJCC():Dim str:if CJCCJJJ>=2 then
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 1 & CJJCCCCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 1 & CJJCCCCC("V ,52E2\C@=6lV3FEE@?Vm") & CJCCJJJ-1 & CJJCCCCC("k^2m")
end if:str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ & CJJCCCCC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCCJJJ & CJJCCCCC("k^2m")
if pagecount>CJCCJJJ then
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ + 1 & CJJCCCCC("V ,52E2\C@=6lV3FEE@?Vm") & CJCCJJJ+1 & CJJCCCCC("k^2m")
str = str & CJJCCCCC("k2 ,9C67lV") & CJCCJCJ & CJCCJJJ + 1 & CJJCCCCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJCCJCC=str:End Function:Private Function CJJCCCJJ():Dim str:str=CJJCCCCC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCCJJJ>=2 then
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 1 & CJJCCCCC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 1 & CJJCCCCC("Vm") & CJCCJJJ-1 & CJJCCCCC("k^2mk^=:m")
end if:str = str & CJJCCCCC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJCCJCJ & CJCCJJJ & CJJCCCCC("Vm") & CJCCJJJ & CJJCCCCC("k^2mk^=:m")
if pagecount>CJCCJJJ then
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJCCJCJ & CJCCJJJ + 1 & CJJCCCCC("Vm") & CJCCJJJ+1 & CJJCCCCC("k^2mk^=:m")
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJCCJCJ & CJCCJJJ + 1 & CJJCCCCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCCCC("k^F=m"):CJJCCCJJ=str:End Function:Private Function CJJCCCJC():Dim str:str=CJJCCCCC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCCJJJ>=2 then
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 1 & CJJCCCCC("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJCCJCJ & CJCCJJJ - 1 & CJJCCCCC("Vm") & CJCCJJJ-1 & CJJCCCCC("k^2mk^=:m")
end if:str = str & CJJCCCCC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJCCJCJ & CJCCJJJ & CJJCCCCC("Vm") & CJCCJJJ & CJJCCCCC("k^2mk^=:m")
if pagecount>CJCCJJJ then
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJCCJCJ & CJCCJJJ + 1 & CJJCCCCC("Vm") & CJCCJJJ+1 & CJJCCCCC("k^2mk^=:m")
str = str & CJJCCCCC("k=:mk2 ,9C67lV") & CJCCJCJ & CJCCJJJ + 1 & CJJCCCCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCCCC("k^F=m"):CJJCCCJC=str:End Function:End Class::dim CCCJJJ:sql=Request.ServerVariables(CJJCCCCC("!p%w0x}u~")):if instr(sql,CJJCCCCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCCJJ and not CCJJCC then Call RedirectMessage(CJJCCCCC("????????,????????????????????????,"))
CCCJJJ=CJCJJC
elseif instr(sql,CJJCCCCC("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJJCCCCC("^DEF56?E^"))>0 then
Call CheckLogined:CCCJJJ=CJCJJC
elseif instr(sql,CJJCCCCC("^D49@@="))>0 then
CCCJJJ=Request.QueryString(CJJCCCCC("D49@@=")):if not CJJJJJJJ(CCCJJJ) then CCCJJJ=Request.QueryString(CJJCCCCC("F"))
if not CJJJJJJJ(CCCJJJ) then CCCJJJ=Request.QueryString(CJJCCCCC("D4"))
if not CJJJJJJJ(CCCJJJ) then Call RedirectMessage(CJJCCCCC("????????W$49@@=X??@??????????,"))
CCCJJJ=csng(CCCJJJ)
end if:if CCCJJJ=0 then Call RedirectMessage(CJJCCCCC("????????W$49@@=X????W_X??,"))
Dim CCJJCJC:Call SetConfig:Sub SetConfig():dim CCJCCC,CJJJJJC:sql=CJJCCCCC("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") & CCCJJJ:set CJJJJJC=CCCCJ.execute(sql):if CJJJJJC.eof then Call RedirectMessage(CJJCCCCC("??W") & CJJJCC & CJJCCCCC("X??????????W") & CCCJJJ & CJJCCCCC("X????????,"))
ReDim CCJCCC(61):CCJCCC(0)=CJJJJJC(CJJCCCCC(";:2@H6:")) & "":CCJCCC(1)=CJJJJJC(CJJCCCCC("EJA6")):CCJCCC(2)=CJJJJJC(CJJCCCCC("D>D")):CCJCCC(3)=CJJJJJC(CJJCCCCC("4FDE@>8C@FA")) & "":CCJCCC(4)=CJJJJJC(CJJCCCCC("D:5632C0@E96C")) & "":CCJCCC(5)=IIf(isnull(CJJJJJC(CJJCCCCC("E6DEC6DF=EG:6H"))),0,CJJJJJC(CJJCCCCC("E6DEC6DF=EG:6H"))):CCJCCC(6)=CJJJJJC(CJJCCCCC("K:IF?E:>6")):CCJCCC(7)=CJJJJJC(CJJCCCCC("766")):CCJCCC(8)=CJJJJJC(CJJCCCCC("C6E6DE52J")):CCJCCC(9)=CJJJJJC(CJJCCCCC("6IA:C652E6")):CCJCCC(10)=CJJJJJC(CJJCCCCC("E:E=6")):CCJCCC(11)=CJJJJJC(CJJCCCCC(":?EC@")) & "":CCJCCC(12)=CJJJJJC(CJJCCCCC("A:4EFC6")) & "":CCJCCC(13)=CJJJJJC(CJJCCCCC("72>:=J")):CCJCCC(14)=CJJJJJC(CJJCCCCC("4@AJC:89E")) & "":CCJCCC(15)=IIf(isnull(CJJJJJC(CJJCCCCC("D6>6DE6C0DE2CE052E6"))),CJJCCCCC("`h__\`\`"),CJJJJJC(CJJCCCCC("D6>6DE6C0DE2CE052E6"))):CCJCCC(16)=IIf(isnull(CJJJJJC(CJJCCCCC("K:IF?0E:>6D09:89=:89E"))),0,CJJJJJC(CJJCCCCC("K:IF?0E:>6D09:89=:89E"))):CCJCCC(17)=CJJJJJC(CJJCCCCC("4@?E24E")) & "":CCJCCC(18)=CJJJJJC(CJJCCCCC("D2?5E23=6")):CCJCCC(19)=CJJJJJC(CJJCCCCC("4C:D:D")):CCJCCC(20)=CJJJJJC(CJJCCCCC("JJ52E6")):CCJCCC(21)=CJJJJJC(CJJCCCCC("BB")):CCJCCC(22)=CJJJJJC(CJJCCCCC("JFJF60D>D0EA=")) & "":CCJCCC(23)=CJJJJJC(CJJCCCCC("JFJF60E6DE0=3")) & "":CCJCCC(25)=CJJJJJC(CJJCCCCC("6IA6CE")):CCJCCC(26)=CJJJJJC(CJJCCCCC(">@5:?7@")):CCJCCC(27)=CJJJJJC(CJJCCCCC("9@>6A286E@AA:4EFC6")) & "":CCJCCC(28)=CJJJJJC(CJJCCCCC("4C:D:D=3")):CCJCCC(29)=IIf(CJJJJJC(CJJCCCCC("4C:D:D@=5")),False,True):CCJCCC(30)=CJJJJJC(CJJCCCCC("8C@FA8F:52?46")):CCJCCC(31)=CJJJJJC(CJJCCCCC("3:@7665324<")):CCJCCC(32)=CJJJJJC(CJJCCCCC("<6JDEC")):CCJCCC(33)=CJJJJJC(CJJCCCCC("=@8@")) & "":CCJCCC(34)=CJJJJJC(CJJCCCCC("K:46")):CCJCCC(35)=IIf(CJJJJJC(CJJCCCCC(":D?6H")),True,False):CCJCCC(36)=121:CCJCCC(37)=111:CCJCCC(38)=160:CCJCCC(39)=CJJJJJC(CJJCCCCC("8F6DE3@@<")):CCJCCC(40)=CJJJJJC(CJJCCCCC("75D")):CCJCCC(42)=CJJJJJC(CJJCCCCC("9@>6=@8:?")):CCJCCC(43)=CJJJJJC(CJJCCCCC("K:IF?0?6657665324<")):CCJCCC(44)=CJJJJJC(CJJCCCCC("K:IF?0E:>6D0=:>:E")):CCJCCC(45)=CJJJJJC(CJJCCCCC("4@>A=6E60:?7@")):CCJCCC(46)=CJJJJJC(CJJCCCCC("E6DE:?EC@")) & "":CCJCCC(47)=IIf(isnull(CJJJJJC(CJJCCCCC("JFJF60367@C60E:>6"))),0,CJJJJJC(CJJCCCCC("JFJF60367@C60E:>6"))):CCJCCC(49)=CJJJJJC(CJJCCCCC("D>D0C646:G6C")):CCJCCC(50)=CJJJJJC(CJJCCCCC("D>D0D:8?")) & "":CCJCCC(52)=CJJJJJC(CJJCCCCC("JFJF602CC2?86")):CCJCCC(53)=IIf(isnull(CJJJJJC(CJJCCCCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJJC(CJJCCCCC("DEF56?E0BF6DE:@?04@F?E"))):CCJCCC(54)=CJJJJJC(CJJCCCCC("9:560=30@FE@7286")):CCJCCC(55)=CJJJJJC(CJJCCCCC("JFJF60E6DE052JD")):CCJCCC(56)=CJJJJJC(CJJCCCCC("JFJF60H66<0=:>:E")):CCJCCC(57)=CJJJJJC(CJJCCCCC("JFJF604964<65")):CCJCCC(58)=CJJJJJC(CJJCCCCC("K:IF?0?6657665324<0?6IE")):CCJCCC(59)=CJJJJJC(CJJCCCCC("4964<?6HDEF56?E")):CCJCCC(60)=CJJJJJC(CJJCCCCC("K:IF?04=@D6052E6")):CJJJJJC.close : set CJJJJJC=nothing:if isNull(CCJCCC(8)) or CCJCCC(8)="" then CCJCCC(8)=0
if isdate(CCJCCC(9)) then
CCJCCC(9)=cdate(CCJCCC(9)):if CCJCCC(9)<Date then Call RedirectMessage(CJJCCCCC("????????,????????????????W") & CCJCCC(9) & CJJCCCCC("X??????,"))
end if:if not CJJJJJJJ(CCJCCC(20)) then CCJCCC(20)=7
select case CCJCCC(1):case 1,2,16:CCJCCC(36)=159:case 4,5,6,10,11:CCJCCC(36)=190:CCJCCC(37)=178:CCJCCC(38)=191:case 7,13:CCJCCC(36)=164:CCJCCC(37)=178:CCJCCC(38)=179:end select:CCJJCJC=CCJCCC:End Sub:Function CJJJJCJJ(CJCCJJCJ):dim CCJCCC(7,1),CCJCCJ,CCJJCCJ,CCJJCCC:CCJJCCJ=Array(CJJCCCCC("$49@@="),CJJCCCCC("$EF56?E"),CJJCCCCC("s6AE"),CJJCCCCC("vC256"),CJJCCCCC("r=2DD>2E6"),CJJCCCCC("}F>36C"),CJJCCCCC("%62496C"),CJJCCCCC("!2C6?E")):select case CCJJCJC(1):case 1,2 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????")):case 3,16 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????")):case 4 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("??????@"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????")):case 5 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????")):case 6 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("??????@"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case 7 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case 8 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("??????@"),CJJCCCCC("????"),CJJCCCCC("????????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case 9 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case 10 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case 11 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case 12 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case 13 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????")):case 14 : CCJJCCC=Array(CJJCCCCC("??????"),CJJCCCCC("??@??"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case 15 : CCJJCCC=Array(CJJCCCCC("????"),CJJCCCCC("????????"),CJJCCCCC("????"),CJJCCCCC("????????"),CJJCCCCC("????"),CJJCCCCC("????"),CJJCCCCC("??????"),CJJCCCCC("????")):case else : CCJJCCC=CCJJCCJ
end select:for CCJCCJ=0 to Ubound(CCJCCC):CCJCCC(CCJCCJ,0)=CCJJCCJ(CCJCCJ):CCJCCC(CCJCCJ,1)=CCJJCCC(CCJCCJ):next:for CCJCCJ=0 to Ubound(CCJCCC):if CCJCCC(CCJCCJ,0)=CJCCJJCJ then
CJJJJCJJ=CCJCCC(CCJCCJ,1):exit for
end if:next:End Function::if CCJJCJC(7)<3 then Call RedirectMessage(CJJCCCCC("????????,??????????????????????,"))
Call CheckRight(7):dim CCJCJJJ,CCJCJJC:CCJCJJJ=Request.QueryString(CJJCCCCC("24E")):CCJCJJC=Request.QueryString(CJJCCCCC(":5")):if CCJCJJJ=CJJCCCCC("56=") then
CCCCJ.execute CJJCCCCC("56=6E6 ,7C@> ,KI02AA=J ,H96C6 ,:5l") & CCJCJJC:Call ConnClose:response.end
elseif CCJCJJJ=CJJCCCCC("@<") then
CCCCJ.execute CJJCCCCC("FA52E6 ,KI02AA=J ,D6E ,DE2EFDl` ,H96C6 ,:5l") & CCJCJJC:Call ConnClose:response.end
elseif CCJCJJJ=CJJCCCCC("42?46=") then
CCCCJ.execute CJJCCCCC("FA52E6 ,KI02AA=J ,D6E ,DE2EFDla ,H96C6 ,:5l") & CCJCJJC:Call ConnClose:response.end
end if:dim CCJCJCJ,CCJCJCC,CCJCCJJ,CJJJCCJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CCJCCJ:CCCJJJJ=Request.QueryString(CJJCCCCC("DEF56?E:5")):CCJCJCJ=Request.QueryString(CJJCCCCC("56AE")):CCCJJJC=Request.QueryString(CJJCCCCC("vC256")):CCCJJCJ=Request.QueryString(CJJCCCCC("vC@FA")):CCJCJCC=Request.QueryString(CJJCCCCC("!@DE")):CCJCCJJ=Request.QueryString(CJJCCCCC("DE2EFD")):CJJJCCJ=CCCCCCJ(Request.QueryString(CJJCCCCC("}F>"))):CCJCCJC=CCCCCCJ(Request.QueryString(CJJCCCCC("}:4<"))):CCJCCCJ=Request.QueryString(CJJCCCCC("%`")):CCJCCCC=Request.QueryString(CJJCCCCC("%a")):if not CJJJJJJJ(CCJCJCJ) then CCJCJCJ=CJJCCJ
dim CJJCJJC:set CJJCJJC=new jtree:CJJCJJC.table=CJJCCCCC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJCCCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCCCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCCCCC("k9625m") & vbCrLf):Response.Write(CJJCCCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCCCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCCCCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCCCCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^49@D6?^49@D6?]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJJCCCCC("kDEJ=6m") & vbCrLf):Response.Write(CJJCCCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCCCCC("k^9625m") & vbCrLf):Response.Write(CJJCCCCC("k3@5Jm") & vbCrLf):Response.Write(CJJCCCCC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,k=:mk2 ,9C67lQK:IF?]2DAQm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCCCCC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQK:IF?02AA=J]2DAQ ,E:E=6lQ??@????????????Qm????????k^2mk^=:m") & vbCrLf):Response.Write(CJJCCCCC("k^F=m") & vbCrLf):Response.Write(CJJCCCCC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJJJCJJ(CJJCCCCC("}F>36C")):Response.Write(CJJCCCCC("??,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJJJCCJ:Response.Write(CJJCCCCC("Qmk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5m") & vbCrLf):Response.Write(CJJCCCCC(" ,")):Response.Write CJJCCCCC("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CCJCJCJ & CJJCCCCC("Vmk^D6=64Em")
If CCJJCJC(1)>=3 Then
Response.Write CJJCCCCC(" ,kD6=64E ,?2>6lV8C256Vm")
if CJCJCJ=0 then
Response.Write CJJCCCCC("k@AE:@? ,G2=F6lVVm,") & CJJJJCJJ(CJJCCCCC("vC256")) & CJJCCCCC(".k^@AE:@?m")
Call ShowListSelect(CJJCCCCC(">6>36C08C256"),CCCJJJ,CCCJJJC)
else
Response.Write CJJCCCCC("k@AE:@? ,G2=F6lV") & CJCJCJ & CJJCCCCC("Vm") & CJJJCJJC(CJJCCCCC(">6>36C08C256"),CCCJJJ,CJCJCJ) & CJJCCCCC("k^@AE:@?m")
end if:Response.Write CJJCCCCC("k^D6=64Em")
End If:If CCJJCJC(3)<>"" Then
Response.Write CJJCCCCC(" ,kD6=64E ,?2>6lV8C@FAVm")
if CCJJJC=0 then
Response.Write CJJCCCCC("k@AE:@? ,G2=F6lVVm,") & CCJJCJC(3) & CJJCCCCC(".k^@AE:@?m")
Call ShowListSelect(CJJCCCCC(">6>36C04FDE@>8C@FA"),CCCJJJ,CCCJJCJ)
else
Response.Write CJJCCCCC("k@AE:@? ,G2=F6lV") & CCJJJC & CJJCCCCC("Vm") & CJJJCJJC(CJJCCCCC(">6>36C04FDE@>8C@FA"),CCCJJJ,CCJJJC) & CJJCCCCC("k^@AE:@?m")
end if:Response.Write CJJCCCCC("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CJJCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kD6=64E ,?2>6lQDE2EFDQ ,52E2\G2=F6lQ")):Response.Write CCJCCJJ:Response.Write(CJJCCCCC("Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQ_Qm??????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQ`Qm????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k@AE:@? ,G2=F6lQaQm????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCCJC:Response.Write(CJJCCCCC("Qmk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5m") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CCJCCCJ:Response.Write(CJJCCCCC("Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,O") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,4=2DDlQ52E6Q ,G2=F6lQ")):Response.Write CCJCCCC:Response.Write(CJJCCCCC("Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQ=236=Qmk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCCC(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQm?? ,??k^2m") & vbCrLf):Response.Write(CJJCCCCC(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJCCCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCCC("k^7@C>m") & vbCrLf):Response.Write(CJJCCCCC("k3Cm") & vbCrLf)::if CCJCJCC="1" then
sql=CJJCCCCC("H96C6 ,`l`"):if cstr(CCJCJCJ)=cstr(CCCJJJ) then sql=sql & CJJCCCCC(" ,2?5 ,>6>36C0EJA60E@Al") & CCJCJCJ else sql=sql & CJJCCCCC(" ,2?5 ,") & CJJCJJC.Sql_GetChildren(CCJCJCJ)
if CJJJJJJJ(CCCJJJJ) then sql=sql & CJJCCCCC(" ,2?5 ,>6>36Cl") & CCCJJJJ
if CJJJCCJ<>"" then sql=sql & CJJCCCCC(" ,2?5 ,?F>36ClV") & CJJJCCJ & CJJCCCCC("V")
if CCJCCJC<>"" then sql=sql & CJJCCCCC(" ,2?5 ,C62=?2>6lV") & CCJCCJC & CJJCCCCC("V")
if CJJJJJJJ(CCCJJJC) then sql=sql & CJJCCCCC(" ,2?5 ,8C256l") & CCCJJJC
if CJJJJJJJ(CCCJJCJ) then sql=sql & CJJCCCCC(" ,2?5 ,4FDE@>8C@FAl") & CCCJJCJ
if isdate(CCJCCCJ) then sql=sql & CJJCCCCC(" ,2?5 ,52E6E:>6mlV") & CCJCCCJ & CJJCCCCC("V")
if isdate(CCJCCCC) then sql=sql & CJJCCCCC(" ,2?5 ,52E6E:>6kV") & cdate(CCJCCCC)+1 & CJJCCCCC("V")
if CJJJJJJJ(CCJCCJJ) then sql=sql & CJJCCCCC(" ,2?5 ,DE2EFDl") & CCJCCJJ
sql=sql & CJJCCCCC(" ,@C56C ,3J ,DE2EFD[52E6E:>6 ,56D4[:5 ,56D4"):sql=CJJCCCCC("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[4@?E6?E[52E6E:>6[DE2EFD ,7C@> ,G0KI02AA=J ,") & sql:dim CCCJJCC:set CCCJJCC=new splitpage:with CCCJJCC:.sql=sql:.pagesize=15:.style=2:end with:set rs=CCCJJCC.rs:Response.Write(vbCrLf):Response.Write(CJJCCCCC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9 ,E:E=6lQ????????????,????????????????QmRk^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m")):Response.Write CJJJJCJJ(CJJCCCCC("}F>36C")):Response.Write(CJJCCCCC("k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m??@??k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,")):for CCJCCJ=1 to CCCJJCC.pagesize:Response.Write(vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJJCC.listnum(CCJCCJ):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4=2DDlQD>2==Qm")):Response.Write rs(2):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(1):Response.Write(CJJCCCCC("Qm")):Response.Write rs(3):Response.Write(CJJCCCCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5m")):Response.Write rs(4):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQD>2==Qm")):Response.Write CJJJJCCJ(rs(5),0):Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJCCCCC(" ,")):select case rs(6):case 0 : response.Write CJJCCCCC("??????"):case 1 : response.Write CJJCCCCC("??????"):case 2 : response.Write CJJCCCCC("??????"):end select:Response.Write(vbCrLf):Response.Write(CJJCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJCCCCC(" ,k2 ,4=2DDlQ2\562=Q ,9C67lQn24El@<U:5l")):Response.Write rs(0):Response.Write(CJJCCCCC("Qm????k^2m") & vbCrLf):Response.Write(CJJCCCCC(" ,k2 ,4=2DDlQ2\562=Q ,9C67lQn24El42?46=U:5l")):Response.Write rs(0):Response.Write(CJJCCCCC("Qm????k^2m") & vbCrLf):Response.Write(CJJCCCCC(" ,k2 ,9C67lQn24El56=U:5l")):Response.Write rs(0):Response.Write(CJJCCCCC("Qm????k^2m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCCCCC(" ,kECm") & vbCrLf):Response.Write(CJJCCCCC(" ,kE5 ,4@=DA2?lQfQm")):call CCCJJCC.showpage:Response.Write(CJJCCCCC("k^E5m") & vbCrLf):Response.Write(CJJCCCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCCC("k^7@C>m") & vbCrLf)::set CCCJJCC=nothing
else
response.write CJJCCCCC("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJJCCCCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CJJCCJ:Response.Write(CJJCCCCC("Qm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^49@D6?^49@D6?];BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("SW7F?4E:@?WSXL") & vbCrLf):Response.Write(CJJCCCCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJCCCCC(" ,SWVD6=64E,?2>6lQ8C256Q.[D6=64E,?2>6lQ8C@FAQ.VX]H:5E9W7F?4E:@?W:[HXLC6EFC? ,HZ`aNX]49@D6?WL5:D23=60D62C490E9C6D9@=5i`_[?@0C6DF=ED0E6IEiV??????????????,V[D62C4904@?E2:?DiECF6NX") & vbCrLf):Response.Write(CJJCCCCC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJJCCCCC(" ,^^ ,????????????????W$6=64EX") & vbCrLf):Response.Write(CJJCCCCC(" ,SWVD6=64E,52E2\G2=F6.VX]6249W7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJJCCCCC(" ,G2C ,SE9:D ,l ,SWE9:DX") & vbCrLf):Response.Write(CJJCCCCC(" ,G2C ,G ,l ,SE9:D]52E2WVG2=F6VX]E@$EC:?8WX") & vbCrLf):Response.Write(CJJCCCCC(" ,:7 ,WGX ,L") & vbCrLf):Response.Write(CJJCCCCC(" ,:7 ,WE9:D]92DpEEC:3FE6WV>F=E:A=6VXX ,L ,SE9:D]G2=WG]DA=:EWV[VXX ,N") & vbCrLf):Response.Write(CJJCCCCC(" ,6=D6 ,L ,SE9:D]G2=WGX ,N") & vbCrLf):Response.Write(CJJCCCCC(" ,:7 ,WEJA6@7 ,Wp|&xX ,Pll ,VF?567:?65VX ,L ,SE9:D]EC:886CWV492?865]D6=64E65]2>F:VX ,N") & vbCrLf):Response.Write(CJJCCCCC(" ,:7 ,WEJA6@7 ,W49@D6?X ,Pll ,VF?567:?65VX ,L ,SE9:D]EC:886CWV49@D6?iFA52E65VX ,N") & vbCrLf):Response.Write(CJJCCCCC(" ,SE9:D]EC:886CWV492?86VX") & vbCrLf):Response.Write(CJJCCCCC(" ,N") & vbCrLf):Response.Write(CJJCCCCC(" ,NX") & vbCrLf):Response.Write(CJJCCCCC(" ,^^ ,??????@????") & vbCrLf):Response.Write(CJJCCCCC(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[ ,7F?4E:@? ,W6X ,L") & vbCrLf):Response.Write(CJJCCCCC(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CJJCCCCC(" ,G2C ,S2 ,l ,SWE9:DX") & vbCrLf):Response.Write(CJJCCCCC(" ,=2J6C]4@?7:C>WV????????????????????????,????????????????????????,V[ ,L ,:4@?i ,b[ ,E:E=6i ,V??????V ,N[ ,7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJJCCCCC(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJJCCCCC(" ,S]86EWS2]2EECWV9C67VX[ ,7F?4E:@? ,WC6DF=EX ,L") & vbCrLf):Response.Write(CJJCCCCC(" ,:7 ,WC6DF=E ,lll ,VVX ,L ,S2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NX ,N") & vbCrLf):Response.Write(CJJCCCCC(" ,6=D6 ,L ,=2J6C]>D8WC6DF=EX ,N") & vbCrLf):Response.Write(CJJCCCCC(" ,NX") & vbCrLf):Response.Write(CJJCCCCC(" ,NX") & vbCrLf):Response.Write(CJJCCCCC(" ,NX") & vbCrLf):Response.Write(CJJCCCCC(" ,^^ ,????^????") & vbCrLf):Response.Write(CJJCCCCC(" ,SWV2]2\562=VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCCC(" ,G2C ,S2lSWE9:DX") & vbCrLf):Response.Write(CJJCCCCC(" ,G2C ,DlS2]E6IEWX") & vbCrLf):Response.Write(CJJCCCCC(" ,S]86EWS2]2EECWV9C67VX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCCC(" ,S2]4=@D6DEWVECVX]7:?5WVE5VX]6BWdX]E6IEWDlllV????VnV??????ViV??????VX") & vbCrLf):Response.Write(CJJCCCCC(" ,NX") & vbCrLf):Response.Write(CJJCCCCC(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJJCCCCC(" ,NX") & vbCrLf):Response.Write(CJJCCCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJJCCCCC(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJJCCCCC(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJJCCCCC(" ,EC66iECF6") & vbCrLf):Response.Write(CJJCCCCC(" ,NX") & vbCrLf):Response.Write(CJJCCCCC("NX") & vbCrLf):Response.Write(CJJCCCCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCCCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:set CJJJJCJJ=nothing:CJJJJC.Close:Set CJJJJC=Nothing:rs.Close:Set rs=Nothing:CCCCJ.Close:Set CCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCCCC(ByVal CJJCCCCJ)
Dim CCCJCJJ, CCJCCJ, CCCCCC
CJJCCCCJ = Replace(CJJCCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCJ = 1 To Len(CJJCCCCJ)
If CCJCCJ <> CCCCCC Then
CCCJCJJ = AscW(Mid(CJJCCCCJ, CCJCCJ, 1))
If CCCJCJJ >= 33 And CCCJCJJ <= 79 Then
CJJCCCCC = CJJCCCCC & Chr(CCCJCJJ + 47)
ElseIf CCCJCJJ >= 80 And CCCJCJJ <= 126 Then
CJJCCCCC = CJJCCCCC & Chr(CCCJCJJ - 47)
Else
CCCCCC = CCJCCJ + 1
If Mid(CJJCCCCJ, CCCCCC, 1) = Chr(64) Then CJJCCCCC = CJJCCCCC & ChrW(CCCJCJJ + 5) Else CJJCCCCC = CJJCCCCC & Mid(CJJCCCCJ, 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