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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJJ, CJJJJJC,rs, CJJJJCC, sql:Set CJJJJJJ = server.CreateObject(CJCCCCCJ("ps~sq]r@??64E:@?")):CJJJJJJ.open Application(CJCCCCCJ("r@??64E:@?$EC:?8")):Set CJJJJJC=CJJJJJJ::Dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:Dim CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC:CJCJCCC=Trim(Request.Cookies(CJCCCCCJ("!$*|t|qt#"))):if CJCJCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJCJC>0 then
sql=CJCCCCCJ("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") & CJJJCCJ & CJCCCCCJ("V ,2?5 ,:5l") & CJJJCJC
set rs=CJJJJJJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJJCCC=rs(2) & "":CJJCJJJ=rs(3):CJJCJJC=rs(5):CJJCJCJ=rs(6):CJJCJCC=rs(9):CJJCCJJ=rs(15):CJJCCCJ=rs(0):CJCJCJC=rs(1):CJCJCJJ=rs(11) & "":CJJCCCC=rs(10) & "":CJJCCJC=rs(12):CJCJJJJ=rs(14):CJCJJJC=rs(13):CJCJJCJ=rs(7) & "":CJCJJCC=rs(4):CJCJCCJ=rs(8):if isnull(CJJCCJJ) then CJJCCJJ=0
if isnull(CJJCJCC) or CJJCJCC=0 then CJJCJCC=CJJCJJJ
if isnull(CJCJJCC) then CJCJJCC=0
if isnull(CJJCJJC) then CJJCJJC=0
if instr(CJCCCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCCJ)>0 then Call RedirectMessage(CJCCCCCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJCJC,CJJJCCJ)
End IF
end if:::Sub CheckLogined():if CJJJCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCCJJJ:CJCCJJJ=trim(request.QueryString(CJCCCCCJ("D49@@="))):if isnumeric(CJCCJJJ) then
response.Redirect CJCCCCCJ("^>^G2?E^R^D49@@=^") & CJCCJJJ & CJCCCCCJ("^DEF56?E^=@8:?nC65:C64El") & CCCCJCC
else
Call RedirectMessage(CJCCCCCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCCCJ("!$*|t|qt#"))="":CJJJCJC=0:CJJCJCJ=0:CJJJCCJ=Empty:CJJCJJC=0:CJJCCJJ=0:CJJCJCC=0:CJJCJJJ=0:CJJCCCJ=False:CJCJCJC=False:CJCJCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCJJC,CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC:CJCCJJC=split(CJCJCCC,CJCCCCCJ("]")):if ubound(CJCCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCJJC(0)) or len(CJCCJJC(1))<>32 or len(CJCCJJC(2))<>32 then
Call ClearMemberCookie
else
CJCCJCJ=CJCCJJC(1):for CJCCJCC=1 to len(CJCCJCJ):CJCCCJJ=mid(CJCCJCJ,CJCCJCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ
if len(CJCCCJC)=7 then exit for
next:CJCCJCJ=CJCCJJC(2):if CJCCCJC<>mid(CJCCJCJ,6,7) then
Call ClearMemberCookie
else
CJCCCJJ=mid(CJCCJCJ,18,10)/2:if CJCCCJJ<DateDiff(CJCCCCCJ("D"), CJCCCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJCJC=Clng(CJCCJJC(0)):CJJJCCJ=CJCCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJJCC,CJCCCCCC):dim CJCCJCC,CJCCCJJ,CJCCCJC:for CJCCJCC=1 to len(CJCCCCCC):CJCCCJJ=mid(CJCCCCCC,CJCCJCC,1):if isnumeric(CJCCCJJ) then CJCCCJC=CJCCCJC & CJCCCJJ
if len(CJCCCJC)=7 then exit for
next:CJCCCJC=CJJCJJCC & CJCCCCCJ("]") & CJCCCCCC & CJCCCCCJ("]") & Fix(10000*(Rnd+1)) & CJCCCJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCCCJ("D"), CJCCCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCCCJ("!$*|t|qt#"))=CJCCCJC:End Sub::Function CJJCCCJC(CCJJJJJJ):Dim str,CJCCCCC:str = Trim(CCJJJJJJ):If IsNull(str) Or str = "" Then
CJJCCCJC = ""
else
str=Replace(str, CJCCCCCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCCCJ("k:7C2>6"), CJCCCCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCCCJ("kD4C:AE"), CJCCCCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCCCC=new RegExp:CJCCCCC.Pattern=CJCCCCCJ("@?W,2\K.ZXl"):CJCCCCC.IgnoreCase = True:CJCCCCC.Global=True:str=CJCCCCC.Replace(str,CJCCCCCJ("@?S`U6BF2=Dj")):set CJCCCCC=nothing:CJJCCCJC=str
End If:End Function:Function IIf(CCJJJJJC, CCJJJJCJ, CCJJJJCC):if isnull(CCJJJJJC) or isempty(CCJJJJJC) then
IIf = CCJJJJCC
elseif CCJJJJJC Then
IIf = CCJJJJCJ
Else
IIf = CCJJJJCC
end if:End Function:Const CJJCJCJC="^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 CJCCJCC,CJCCCJJ,CCJJJJJ:if isarray(str) then
on error resume next:CJCCJCC=ubound(str,2):CCJJJJJ=err.number:err.clear:on error goto 0:if CCJJJJJ<>0 then
for CJCCJCC=0 to ubound(str):if CJCCJCC>0 then response.Write CJCCCCCJ("k3C ,^m")
response.Write CJCCJCC & CJCCCCCJ("i ,") & str(CJCCJCC):next
else
response.Write CJCCCCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCCJCC=0 to ubound(str,2):response.Write CJCCCCCJ("kE9 ,2=:8?lV=67EVm") & CJCCJCC & CJCCCCCJ("k^E9m")
next:response.Write CJCCCCCJ("k^ECm"):for CJCCJCC=0 to ubound(str):response.Write CJCCCCCJ("kECmkE9m") & CJCCJCC & CJCCCCCJ("k^E9m"):for CJCCCJJ=0 to ubound(str,2):response.Write CJCCCCCJ("kE5m") & str(CJCCJCC,CJCCCJJ) & CJCCCCCJ("k^E5m"):next:response.Write CJCCCCCJ("k^ECm"):next:response.Write CJCCCCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJJCJJ,CCJJJCJC):dim CJCCJJC:CJCCJJC=CCJJJCJJ & CJCCCCCJ("l") & CCJJJCJC & CJCCCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCCCJ("$6E\r@@<:6"),CJCCJJC):End Sub:::::::Function CJJCCCCC(CCJJJJJ):if isnull(CCJJJJJ) or trim(CCJJJJJ)="" or not isnumeric(CCJJJJJ) then
CJJCCCCC=false
else
Dim CJCCCCC:Set CJCCCCC = New RegExp:CJCCCCC.Pattern = CJCCCCCJ("/-5ZS"):CJCCCCC.IgnoreCase = True:CJJCCCCC = CJCCCCC.test(CCJJJJJ):set CJCCCCC=nothing
end if:End Function:Function CJCJJJJJ(CCJJJCCJ):dim CCJJJJC,CCJJJCJ:CCJJJJC=CJCCCCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJCCJ & CJCCCCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCJJJCJ=CJJJJJJ.execute(CCJJJJC):CJCJJJJJ = CCJJJCJ(0):if isnull(CJCJJJJJ) then CJCJJJJJ=1
CCJJJCJ.close : set CCJJJCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJCJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CCJJJCJ.close : set CCJJJCJ=nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:rs.Close : Set rs=Nothing:CJCJJCJJ.Close : Set CJCJJCJJ = Nothing:CJJJJJJ.Close : Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCCCJ("!$*0|6DD286"),server.URLEncode(CCJJJCCC)):Response.Redirect CJCCCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJJCJC(ByVal CJCJJCCJ,style):if not isdate(CJCJJCCJ) then
CJCJJCJC=CJCJJCCJ:exit function
end if:dim CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ:CJCJJCCJ=cdate(CJCJJCCJ):CCJJJCC=Year(CJCJJCCJ):CCJJCJJ=Month(CJCJJCCJ):CCJJCJC=Day(CJCJJCCJ):select case style:case 0:CJCJJCJC=CCJJJCC & CJCCCCCJ("\") & right(0 & CCJJCJJ,2) & CJCCCCCJ("\") & right(0 & CCJJCJC,2):case 1:CJCJJCJC=CCJJJCC & right(0 & CCJJCJJ,2) & right(0 & CCJJCJC,2):case 2:CJCJJCJC=right(CCJJJCC,2) & CJCCCCCJ("\") & right(0 & CCJJCJJ,2) & CJCCCCCJ("\") & right(0 & CCJJCJC,2):case 3:CJCJJCJC=CCJJJCC & CJCCCCCJ("\") & right(0 & CCJJCJJ,2):case 4:CJCJJCJC=right(0 & CCJJCJJ,2) & CJCCCCCJ("\") & right(0 & CCJJCJC,2):case 5:CJCJJCJC=right(0 & CCJJCJC,2):case 6:CJCJJCJC=CCJJJCC & CJCCCCCJ("??") & right(0 & CCJJCJJ,2) & CJCCCCCJ("??") & right(0 & CCJJCJC,2) & CJCCCCCJ("??"):case else
CJCJJCJC=CJCJJCCJ:end select:End Function:Function CJCJJCCC(Table):Dim CCJJJCJ, CCJJCCC, str(), CJCCJCC,CJCCCJJ,CCJCJJJ:CCJCJJJ=UCase(Table):If Not IsArray(Application(CJCCCCCJ("!$*0") & CCJCJJJ)) Then
Sql=CJCCCCCJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCCCCCJ(". ,@C56C ,3J ,D@CE[:5"):set CCJJJCJ=server.createobject(CJCCCCCJ("25@53]C64@C5D6E")):CCJJJCJ.open sql,CJJJJJJ,1:CCJJCCC = CCJJJCJ.RecordCount:ReDim str(CCJJCCC, 2):If CCJJCCC > 0 Then
For CJCCJCC = 1 To CCJJCCC:for CJCCCJJ=0 to 2:str(CJCCJCC, CJCCCJJ) = CCJJJCJ(CJCCCJJ):next:CCJJJCJ.MoveNext:Next
End If:CCJJJCJ.Close: Set CCJJJCJ = Nothing:Application(CJCCCCCJ("!$*0") & CCJCJJJ) = str
End If:CJCJJCCC = Application(CJCCCCCJ("!$*0") & CCJCJJJ):End Function:Sub ShowListSelect(CCJJJCCJ,CCJJCJJJ,CCJJCJJC):Dim str, CJCCJCC, CCJCJJC:CCJCJJC = CJCJJCCC(CCJJJCCJ):For CJCCJCC = 1 To UBound(CCJCJJC):if Cstr(CCJCJJC(CJCCJCC,2))=Cstr(CCJJCJJJ) then
str = str & CJCCCCCJ("k@AE:@? ,G2=F6lV") & CCJCJJC(CJCCJCC, 0) & CJCCCCCJ("V")
If CStr(CCJCJJC(CJCCJCC, 0)) = CCJJCJJC & "" Then str = str & CJCCCCCJ(" ,D6=64E65lVD6=64E65V")
str = str & CJCCCCCJ("m") & CCJCJJC(CJCCJCC, 1) & CJCCCCCJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub::::::::::::::::::Sub ClearCache(CCJJCJCJ):Application.Contents.Remove CCJJCJCJ
End Sub::Class jTree:Private Sql, CCJCJCJ, CCJCJCC, CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ:Private Sub Class_Initialize():CCJCJCC = 0:CCJCCJJ = 0:CCCJJJJ=10:End Sub:Public Property Let Table(CCJJCJCC):if CCJJCJCC="" then Call RedirectMessage(CJCCCCCJ("????????,;%C66????????????????????@??????????,"))
CCJCCJC=CCJJCJCC:CCJCCCJ=CJCCCCCJ("!$*0") & UCase(CCJCCJC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCCJC:End Property:::Private Sub GetTreeArray():Dim CJCCJCC, CJCCCJJ, CCCJJJC,RecordCount:CCJCJCJ = Application(CCJCCCJ):If Not IsArray(CCJCJCJ) Then
Sql = CJCCCCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCCJC:if CCJCCCC<>"" then Sql=Sql & CJCCCCCJ(" ,H96C6 ,") & CCJCCCC
set CCCJJJC=CJJJJJJ.execute(sql):RecordCount=CCCJJJC(0):if RecordCount=0 then Call RedirectMessage(CJCCCCCJ("????W") & CCJCCJC & CJCCCCCJ("^") & CCJCCCC & CJCCCCCJ("X????????????"))
CCJCCJJ=RecordCount+CCCJJJJ:ReDim CCJCJCJ(CCJCCJJ, 4):Sql = CJCCCCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CJCCCCCJ(" ,H:E9 ,W?@=@4<X"):if CCJCCCC<>"" then Sql=Sql & CJCCCCCJ(" ,H96C6 ,") & CCJCCCC
Sql=Sql & CJCCCCCJ(" ,@C56C ,3J ,D@CE[:5"):set CCCJJJC=CJJJJJJ.execute(sql):For CJCCJCC = 1 To RecordCount:For CJCCCJJ = 0 To 4:CCJCJCJ(CJCCJCC, CJCCCJJ) = CCCJJJC(CJCCCJJ):if IsNull(CCJCJCJ(CJCCJCC,4)) then CCJCJCJ(CJCCJCC,4)=0
If CCJCJCJ(CJCCJCC,2)="" then CCJCJCJ(CJCCJCC,2)=CJCCCCCJ(",??.")
Next:CCCJJJC.MoveNext:Next:CCCJJJC.Close: Set CCCJJJC = Nothing:for CJCCJCC=CCJCCJJ-(CCCJJJJ-1) to CCJCCJJ:CCJCJCJ(CJCCJCC,0)=CJCCJCC:next:Application.Lock():Application(CCJCCCJ) = CCJCJCJ:Application.UnLock()
else
CCJCCJJ=Ubound(CCJCJCJ)
End If:End Sub:::::Private Function CJCJCJJC(CJJCJJCC):dim CJCCJCC,CCCJJCC:CJCJCJJC=0:CCCJJCC=CStr(CJJCJJCC):if CCCJJCC<>"0" then
for CJCCJCC=1 to CCJCCJJ:If CStr(CCJCJCJ(CJCCJCC, 0))=CCCJJCC Then
CJCJCJJC = CJCCJCC:Exit For
End If:Next
end if:End Function:Public Function CJCJCJCJ(CJJCJJCC):if Cstr(CJJCJJCC)="0" then
CJCJCJCJ=CJCCCCCJ("??")
else
Dim CJCCJCC,CCCJJJC:CJCCJCC=CJCJCJJC(CJJCJJCC):if CJCCJCC>0 then
CJCJCJCJ=CCJCJCJ(CJCCJCC,2):if CJCJCJCJ="" then
set CCCJJJC=CJJJJJJ.execute(CJCCCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CJCCCCCJ(" ,H96C6 ,:5l") & CJJCJJCC):if CCCJJJC.eof then Call RedirectMessage(CJCCCCCJ("xs??,") & CJJCJJCC & CJCCCCCJ("??,??????"))
CJCJCJCJ=CCCJJJC(1):Call UpdateCache(CJJCJJCC,CCCJJJC(0),CJCJCJCJ,CCCJJJC(2),CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing
end if
else
set CCCJJJC=CJJJJJJ.execute(CJCCCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CJCCCCCJ(" ,H96C6 ,:5l") & CJJCJJCC):if CCCJJJC.eof then Call RedirectMessage(CJCCCCCJ("xs??,") & CJJCJJCC & CJCCCCCJ("??,??????"))
CJCJCJCJ=CCCJJJC(1):Call UpdateCache(CJJCJJCC,CCCJJJC(0),CJCJCJCJ,CCCJJJC(2),CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing
end if
end if:End Function:::Public Function CJCJCJCC(CJJCJJCC):Dim CJCCJCC,CCCJCJJ:CJCCJCC=CJCJCJJC(CJJCJJCC):if CJCCJCC=0 then
CCCJCJJ=CJCJCCJJ(CJJCJJCC)
else
CCCJCJJ=CCJCJCJ(CJCCJCC,3):if isnull(CCCJCJJ) or CCCJCJJ="" then
CCCJCJJ=CJCJCCJJ(CJJCJJCC)
elseif Mid(CCCJCJJ,instrrev(CCCJCJJ,CJCCCCCJ("["))+1)<>CStr(CJJCJJCC) then
CCCJCJJ=CJCJCCJJ(CJJCJJCC)
elseif Left(CCCJCJJ,1)=CJCCCCCJ("[") then
CCCJCJJ=CJCJCCJJ(CJJCJJCC)
end if
end if:CJCJCJCC=CCCJCJJ:End Function:Private Function CJCJCCJJ(CJJCJJCC):dim CCCJJCC:CCCJJCC=CStr(CJJCJJCC):if CCCJJCC="0" then
CJCJCCJJ=""
else
dim CCCJJJC:set CCCJJJC=CJJJJJJ.execute(CJCCCCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCCJC & CJCCCCCJ(" ,H96C6 ,:5l") & CJJCJJCC):if CCCJJJC.eof then
Call UpdateCache(CJJCJJCC,"","","",""):Call RedirectMessage(CJCCCCCJ("??????,xs??,") & CJJCJJCC & CJCCCCCJ("??,????????,????????????????????,"))
else
if CCCJJJC(0)=0 then
CJCJCCJJ="0," & CJJCJJCC
else
CJCJCCJJ=CJCJCJCC(CCCJJJC(0)) & CJCCCCCJ("[") & CJJCJJCC
end if:if CCCJJJC(2)<>CJCJCCJJ then
CJJJJJJ.execute CJCCCCCJ("FA52E6 ,") & CCJCCJC & CJCCCCCJ(" ,D6E ,A2E9lV") & CJCJCCJJ & CJCCCCCJ("V ,H96C6 ,:5l") & CJJCJJCC
else
CJCJCCJJ=CCCJJJC(2)
end if
end if:Call UpdateCache(CJJCJJCC,CCCJJJC(0),CCCJJJC(1),CJCJCCJJ,CCCJJJC(3)):CCCJJJC.Close: Set CCCJJJC = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CJJCJJCC,ByVal CCJJCJJC):Dim Str, CJCCJCC:CJJCJJCC=CLng(CJJCJJCC):if isnumeric(CCJJCJJC) then CCJJCJJC=CLng(CCJJCJJC) else CCJJCJJC=0
if CJJCJJCC>0 then str=CJCCCCCJ("k@AE:@? ,G2=F6lV") & CJJCJJCC & CJCCCCCJ("V ,52E2\A:5lV_Vm") & CJCJCJCJ(CJJCJJCC) & CJCCCCCJ("k^@AE:@?m")
For CJCCJCC = 1 To CCJCCJJ:If CJJCJJCC=0 or (CJJCJJCC>0 and InStr(CCJCJCJ(CJCCJCC, 3), CJCCCCCJ("[") & CJJCJJCC & CJCCCCCJ("[")) > 0) Then
str=str & CJCCCCCJ("k@AE:@?"):if CCJCJCJ(CJCCJCC,0)=CCJJCJJC then str=str & CJCCCCCJ(" ,D6=64E65")
str=str & CJCCCCCJ(" ,G2=F6lV") & CCJCJCJ(CJCCJCC,0) & CJCCCCCJ("V ,52E2\A:5lV") & CCJCJCJ(CJCCJCC,1) & CJCCCCCJ("Vm") & CCJCJCJ(CJCCJCC,2) & CJCCCCCJ("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CJJCJJCC):dim CCCJCJJ:CCCJCJJ=CJCJCJCC(CJJCJJCC):Sql_GetChildren = CCJCCJC & CJCCCCCJ("0A2E9ZV[V ,=:<6 ,V") & CCCJCJJ & CJCCCCCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCCCJ
End Sub:Public Sub UpdateCache(CJJCJJCC,CCJJCCJJ,CCJJCCJC,CCCJCJJ,CCJJCCCJ):dim CJCCJCC,CJCCCJJ:CJJCJJCC=CLng(CJJCJJCC):CJCCJCC=CJCJCJJC(CJJCJJCC):if CCJJCCJJ="" and CCJJCCJC="" and CCCJCJJ="" and CCJJCCCJ="" then
if CJCCJCC>0 then
for CJCCCJJ=1 to 4:CCJCJCJ(CJCCJCC,CJCCCJJ)=Null:next
end if
else
if CJCCJCC=0 then
for CJCCCJJ=1 to CCJCCJJ:if CCJCJCJ(CJCCCJJ,1) & ""="" then
CJCCJCC=CJCCCJJ:exit for
end if:next
end if:if CJCCJCC=0 then
Call ClearCache
else
CCJCJCJ(CJCCJCC,0)=CLng(CJJCJJCC):if CCJJCCJJ<>"" then CCJCJCJ(CJCCJCC,1)=CLng(CCJJCCJJ)
if CCJJCCJC<>"" then CCJCJCJ(CJCCJCC,2)=CCJJCCJC
if CCCJCJJ<>"" then CCJCJCJ(CJCCJCC,3)=CCCJCJJ
if CCJJCCCJ<>"" then CCJCJCJ(CJCCJCC,4)=CLng(CCJJCCCJ)
end if
end if:if CJCCJCC>0 then
Application.Lock():Application(CCJCCCJ) = CCJCJCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJJJCCC):Call ConnClose:Response.Write CCJJJCCC:Response.End:End Sub:Private Function CJCJJJJJ():CJCJJJJJ=CJCJCCCJ+1:End Function:Private Function CJCJCCCJ():dim CCJJJCJ:set CCJJJCJ=CJJJJJJ.execute(CJCCCCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCCJC & CJCCCCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCJCCCJ=CCJJJCJ(0):CCJJJCJ.Close: Set CCJJJCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCJCCJ ="9"
Const CJJCJCCC ="7"
Const CJJCCJJJ ="3"
Const CJJCCJJC ="4"
Const CJJCCJCJ ="8"
Const CJJCCJCC =":"
Const CJJCCCJJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CCCJCCJ, CCCJCCC, CCCCJJJ, CCCCJJC, CCCCJCJ, CCCCJCC, CCCCCJJ, CCCCCJC, CCCCCCJ, CCCCCCC:Private Function CJCJCCCC():Dim CJJJJJJJ:CJJJJJJJ = "??" & CCCCJCJ & CJCCCCCJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCCCJ & CJCCCCCJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CCCCJJC & CJCCCCCJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCCCCCJ("k^3mk^DA2?m??")
CJCJCCCC = CJJJJJJJ:End Function:Private Function CJCCJJJJ():CJCCJJJJ = CJCCCCCJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CCCCJJC & CJCCCCCJ("V ,DEJ=6lV") & CJJCCCJJ & CJCCCCCJ("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") & CCCCJCC & CJCCCCCJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJCCJJJC():CJCCJJJC = CJCCCCCJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CJJCCCJJ & CJCCCCCJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCCCJCC & CJCCCCCJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJCCJJCJ():Dim CJJJJJJJ, CJCCJCC:CJJJJJJJ = CJCCCCCJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCCCJCC & CJCCCCCJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CJCCJCC = 1 To PageCount:CJJJJJJJ = CJJJJJJJ & CJCCCCCJ("k@AE:@? ,G2=F6lV") & CJCCJCC & CJCCCCCJ("V")
If CJCCJCC = CCCCJJC Then CJJJJJJJ = CJJJJJJJ & CJCCCCCJ(" ,D6=64E65")
CJJJJJJJ = CJJJJJJJ & CJCCCCCJ("m") & CJCCJCC & CJCCCCCJ("k^@AE:@?m"):Next:CJJJJJJJ = CJJJJJJJ & CJCCCCCJ("k^D6=64Em??"):CJCCJJCJ = CJJJJJJJ:End Function:Public Sub ShowPage():Dim CJCCJCC, CJJJJJJC,CJJJJJCJ,CJJJJJCC:if CCCCJCJ>0 then
CJJJJJJC = CJCCCCCJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJCJCCCC & CJCCCCCJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CCCCCCC:Case 1: CJJJJJCC = CJCCJCJC:Case 2: CJJJJJCC = CJCCJCCJ:Case 3: CJJJJJCC = CJCCJCCC:Case 4: CJJJJJCC = CJCCCJJJ:Case 5: CJJJJJCC = CJCCCJJC:Case 6: CJJJJJCC = CJCCCJCJ:Case 7: CJJJJJCC = CJCCCJCC:Case 8: CJJJJJCC = CJCCCCJJ:End Select
End If:CJJJJJCJ = CJCCCCCJ("k^5:Gmk^5:Gm")
end if:if CCCCCCC>=6 then
Response.Write CJJJJJCC
else
Response.Write CJJJJJJC & CJJJJJCC & CJJJJJCJ
end if:End Sub:Public Function Rs():On Error Resume Next:Set CCCJCCC = Server.CreateObject(CJCCCCCJ("ps~sq]#64@C5$6E")):CCCJCCC.PageSize = CCCCCCJ:CCCJCCC.Open CCCCJJJ, CCCJCCJ, 1:If err then
Response.Write	CJCCCCCJ("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 & CJCCCCCJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CCCJCCC.EOF Then
CCCCJCJ = CCCJCCC.RecordCount:PageCount = CCCJCCC.PageCount:If CCCCJJC > PageCount Then CCCCJJC = PageCount
CCCJCCC.AbsolutePage = CCCCJJC
End If:Set Rs = CCCJCCC:End Function:Public Property Let CJJJJJC(CCJJCCCC):Set CCCJCCJ = CCJJCCCC:End Property:Public Property Let SQL(str):CCCCJJJ = str:End Property:Public Property Let Style(CCJJCCC):If IsNumeric(CCJJCCC) Then
CCCCCCC = CInt(CCJJCCC):If CCCCCCC < 1 Or CCCCCCC > 8 Then CCCCCCC = 1
Else
CCCCCCC = 1
End If:End Property:Public Property Let PageSize(CCJJCCC):If IsNumeric(CCJJCCC) Then
CCCCCCJ = CInt(CCJJCCC):If CCCCCCJ < 1 Then CCCCCCJ = 10
Else
CCCCCCJ = 10
End If:End Property:Public Property Get PageSize():If CCCCJJC = PageCount Then
PageSize = CCCCJCJ - CCCCCCJ * (PageCount - 1)
Elseif CCCCJCJ=0 then
pagesize=0
else
PageSize = CCCCCCJ
end if:End Property:Private Sub Class_Initialize():dim CJJJJCJJ:CCCCCCJ = 10:CCCCCCC = 1:Set CCCJCCJ = CJJJJJJ:CCCCJJC = Trim(Request.QueryString(CJCCCCCJ("!286"))):If IsNumeric(CCCCJJC) Then
CCCCJJC = CLng(CCCCJJC):If CCCCJJC < 1 Then CCCCJJC = 1
Else
CCCCJJC = 1
End If:CCCCCJC = Trim(Request.ServerVariables(CJCCCCCJ("&#{"))):CCCCCJC = Mid(CCCCCJC, InStrRev(CCCCCJC, CJCCCCCJ("^")) + 1):CCCCCJJ = Split(Trim(Request.ServerVariables(CJCCCCCJ("""&t#*0$%#x}v"))), CJCCCCCJ("U")):CCCCJCC = Server.HtmlEncode(CCJCJJJJ):CJJJJCJJ=lcase(CCCCJCC):if instr(CJJJJCJJ,CJCCCCCJ("Tb4:7C2>6"))>0 or instr(CJJJJCJJ,CJCCCCCJ("Tb4D4C:AE"))>0 or instr(CJJJJCJJ,CJCCCCCJ("V"))>0 or instr(CJJJJCJJ,CJCCCCCJ(";2G2D4C:AE"))>0 or instr(CJJJJCJJ,CJCCCCCJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCCCCCJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CCJJCCC):ListNum = CCCCCCJ * (CCCCJJC - 1) + CCJJCCC:End Function:Private Function CCJCJJJJ():Dim CJCCJCC, str:For CJCCJCC = 0 To UBound(CCCCCJJ):If InStr(LCase(CCCCCJJ(CJCCJCC)), CJCCCCCJ("A286l")) = 0 Then str = str & CJCCCCCJ("U") & CCCCCJJ(CJCCJCC)
Next:str = Mid(str, 2):If str = "" Then CCJCJJJJ = CCCCCJC & CJCCCCCJ("n") & CJCCCCCJ("A286l") Else CCJCJJJJ = CCCCCJC & CJCCCCCJ("n") & str & CJCCCCCJ("UA286l")
End Function:Private Function CJCCJCJC():Dim str:str = CJCCCCCJ("???? ,??"):For CJCCJCC = 1 To PageCount:If CJCCJCC = CCCCJJC Then str = str & CJCCCCCJ("k3m") & CJCCJCC & CJCCCCCJ("k^3m ,") Else str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CJCCJCC & CJCCCCCJ("Vm") & CJCCJCC & CJCCCCCJ("k^2m ,")
Next:str = str & CJCCCCCJ("??"):CJCCJCJC = str:End Function:Private Function CJCCJCCJ():Dim str:If CCCCJJC > 1 Then
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CJCCCCCJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCJCCJ & CJCCCCCJ("k^2m ,")
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC - 1 & CJCCCCCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJJJ & CJCCCCCJ("k^2m ,")
Else
str = str & CJJCJCCJ & CJCCCCCJ(" ,") & CJJCCJJJ
End If:If CCCCJJC < PageCount Then
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC + 1 & CJCCCCCJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJJC & CJCCCCCJ("k^2m ,")
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & PageCount & CJCCCCCJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CJJCCJCC & CJCCCCCJ("k^2m ,")
Else
str = str & CJJCCJJC & CJCCCCCJ(" ,") & CJJCCJCC
End If:str = str & CJCCJJJJ:str = str & CJCCJJJC:CJCCJCCJ = str:End Function:Private Function CJCCJCCC():Dim str, CJCCJCJ:CJCCJCJ = (CCCCJJC - 1) \ 10:If CCCCJJC = 1 Then str = str & CJJCJCCJ & CJCCCCCJ(" ,") Else str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CJCCCCCJ("`V ,E:E=6lV????Vm") & CJJCJCCJ & CJCCCCCJ("k^2m ,")
If CJCCJCJ * 10 > 0 Then str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC - 10 & CJCCCCCJ("V ,E:E=6lV??????Vm") & CJJCJCCC & CJCCCCCJ("k^2m ,")
For CJCCJCC = (CJCCJCJ * 10 + 1) To (CJCCJCJ * 10 + 10):If CJCCJCC = CCCCJJC Then str = str & CJCCCCCJ("k3m") & CJCCJCC & CJCCCCCJ("k^3m ,") Else str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CJCCJCC & CJCCCCCJ("V ,E:E=6lV??????") & CJCCJCC & CJCCCCCJ("??Vm") & CJCCJCC & CJCCCCCJ("k^2m ,")
If CJCCJCC = PageCount Then Exit For
Next:If CJCCJCC < PageCount Then str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CJCCJCC & CJCCCCCJ("V ,E:E=6lV??????Vm") & CJJCCJCJ & CJCCCCCJ("k^2m ,")
If CCCCJJC = PageCount Then str = str & CJJCCJCC Else str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & PageCount & CJCCCCCJ("V ,E:E=6lV????Vm") & CJJCCJCC & CJCCCCCJ("k^2m")
CJCCJCCC = str:End Function:Private Function CJCCCJJJ():Dim str, CCJJJJJ, CJJJJCJC, CJCCJCC:If CCCCJJC > 4 Then str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CJCCCCCJ("`Vm,`.k^2m ,]]]")
If CCCCJJC < PageCount - 3 Then CJJJJCJC = CCCCJJC + 3 Else CJJJJCJC = PageCount
For CJCCJCC = CCCCJJC - 3 To CJJJJCJC:If CJCCJCC >= 1 Then
If CJCCJCC = CCCCJJC Then str = str & CJCCCCCJ(" ,k3m,") & CJCCJCC & CJCCCCCJ(".k^3m") Else str = str & CJCCCCCJ(" ,k2 ,9C67lV") & CCCCJCC & CJCCJCC & CJCCCCCJ("Vm,") & CJCCJCC & CJCCCCCJ(".k^2m")
End If:Next:If CCCCJJC < PageCount - 3 Then str = str & CJCCCCCJ(" ,]]] ,k2 ,9C67lV") & CCCCJCC & PageCount & CJCCCCCJ("Vm,") & PageCount & CJCCCCCJ(".k^2m")
CJCCCJJJ = str:End Function:Private Function CJCCCJJC():Dim str:If CCCCJJC > 1 Then
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CJCCCCCJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC - 1 & CJCCCCCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJCCCCCJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CCCCJJC < PageCount Then
str = str & CJCCCCCJ(" ,k2 ,9C67lV") & CCCCJCC & CCCCJJC + 1 & CJCCCCCJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & PageCount & CJCCCCCJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJCCCCCJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJCCJJCJ:CJCCCJJC = str:End Function:Private Function CJCCCJCJ():Dim str:if CCCCJJC>=2 then
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC - 1 & CJCCCCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC - 1 & CJCCCCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCJJC-1 & CJCCCCCJ("k^2m")
end if:str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC & CJCCCCCJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CCCCJJC & CJCCCCCJ("k^2m")
if pagecount>CCCCJJC then
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC + 1 & CJCCCCCJ("V ,52E2\C@=6lV3FEE@?Vm") & CCCCJJC+1 & CJCCCCCJ("k^2m")
str = str & CJCCCCCJ("k2 ,9C67lV") & CCCCJCC & CCCCJJC + 1 & CJCCCCCJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJCCCJCJ=str:End Function:Private Function CJCCCJCC():Dim str:str=CJCCCCCJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CCCCJJC>=2 then
str = str & CJCCCCCJ("k=:mk2 ,9C67lV") & CCCCJCC & CCCCJJC - 1 & CJCCCCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCCCCCJ("k=:mk2 ,9C67lV") & CCCCJCC & CCCCJJC - 1 & CJCCCCCJ("Vm") & CCCCJJC-1 & CJCCCCCJ("k^2mk^=:m")
end if:str = str & CJCCCCCJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCCCJCC & CCCCJJC & CJCCCCCJ("Vm") & CCCCJJC & CJCCCCCJ("k^2mk^=:m")
if pagecount>CCCCJJC then
str = str & CJCCCCCJ("k=:mk2 ,9C67lV") & CCCCJCC & CCCCJJC + 1 & CJCCCCCJ("Vm") & CCCCJJC+1 & CJCCCCCJ("k^2mk^=:m")
str = str & CJCCCCCJ("k=:mk2 ,9C67lV") & CCCCJCC & CCCCJJC + 1 & CJCCCCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCCCCCJ("k^F=m"):CJCCCJCC=str:End Function:Private Function CJCCCCJJ():Dim str:str=CJCCCCCJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CCCCJJC>=2 then
str = str & CJCCCCCJ("k=:mk2 ,9C67lV") & CCCCJCC & CCCCJJC - 1 & CJCCCCCJ("VmU=2BF@jk^2mk^=:m")
str = str & CJCCCCCJ("k=:mk2 ,9C67lV") & CCCCJCC & CCCCJJC - 1 & CJCCCCCJ("Vm") & CCCCJJC-1 & CJCCCCCJ("k^2mk^=:m")
end if:str = str & CJCCCCCJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCCCJCC & CCCCJJC & CJCCCCCJ("Vm") & CCCCJJC & CJCCCCCJ("k^2mk^=:m")
if pagecount>CCCCJJC then
str = str & CJCCCCCJ("k=:mk2 ,9C67lV") & CCCCJCC & CCCCJJC + 1 & CJCCCCCJ("Vm") & CCCCJJC+1 & CJCCCCCJ("k^2mk^=:m")
str = str & CJCCCCCJ("k=:mk2 ,9C67lV") & CCCCJCC & CCCCJJC + 1 & CJCCCCCJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCCCCCJ("k^F=m"):CJCCCCJJ=str:End Function:End Class::dim CJCCJJJ:sql=Request.ServerVariables(CJCCCCCJ("!p%w0x}u~")):if instr(sql,CJCCCCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCCJ and not CJCJCJC then Call RedirectMessage(CJCCCCCJ("????????,????????????????????????,"))
CJCCJJJ=CJJCJCC
elseif instr(sql,CJCCCCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJCCCCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJCCJJJ=CJJCJCC
elseif instr(sql,CJCCCCCJ("^D49@@="))>0 then
CJCCJJJ=Request.QueryString(CJCCCCCJ("D49@@=")):if not CJJCCCCC(CJCCJJJ) then CJCCJJJ=Request.QueryString(CJCCCCCJ("F"))
if not CJJCCCCC(CJCCJJJ) then CJCCJJJ=Request.QueryString(CJCCCCCJ("D4"))
if not CJJCCCCC(CJCCJJJ) then Call RedirectMessage(CJCCCCCJ("????????W$49@@=X??@??????????,"))
CJCCJJJ=csng(CJCCJJJ)
end if:if CJCCJJJ=0 then Call RedirectMessage(CJCCCCCJ("????????W$49@@=X????W_X??,"))
Dim CJJJJCCJ:Call SetConfig:Sub SetConfig():dim CJJJJCCC,CCJJJCJ:sql=CJCCCCCJ("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[D>D0C646:G6C[766[C6E6DE52J[6IA:C652E6[E:E=6[K:IF?04=@D6052E6[JFJF60D>D0EA=[A:4EFC6[D>D[75D[D6>6DE6C0DE2CE052E6[K:IF?0E:>6D09:89=:89E[D2?5E23=6[4C:D:D[JJ52E6[6IA6CE[72>:=J[4C:D:D=3[4C:D:D@=5[vC@FAvF:52?46[q:@u665324<[<6JDEC[=@8@[K:46[:D?6H[JFJF60E6DE0=3[K:IF?0E:>6D0=:>:E[D>D0D:8?[DEF56?E0BF6DE:@?04@F?E[K:IF?E:>6[:?EC@[4@AJC:89E[4@?E24E[9@>6A286E@AA:4EFC6[>@5:?7@[9@>6=@8:?[K:IF?0?6657665324<[4@>A=6E60:?7@[E6DE:?EC@[8F6DE3@@<[9:560=30@FE@7286[JFJF602CC2?86[JFJF60367@C60E:>6[JFJF60E6DE052JD[JFJF60H66<0=:>:E[JFJF604964<65[K:IF?0?6657665324<0?6IE[4964<?6HDEF56?E[BB ,7C@> ,D49@@= ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCCJJJ:set CCJJJCJ=CJJJJJJ.execute(sql):if CCJJJCJ.eof then Call RedirectMessage(CJCCCCCJ("??W") & CJJJCJC & CJCCCCCJ("X??????????W") & CJCCJJJ & CJCCCCCJ("X????????,"))
ReDim CJJJJCCC(61):CJJJJCCC(0)=CCJJJCJ(CJCCCCCJ(";:2@H6:")) & "":CJJJJCCC(1)=CCJJJCJ(CJCCCCCJ("EJA6")):CJJJJCCC(2)=CCJJJCJ(CJCCCCCJ("D>D")):CJJJJCCC(3)=CCJJJCJ(CJCCCCCJ("4FDE@>8C@FA")) & "":CJJJJCCC(4)=CCJJJCJ(CJCCCCCJ("D:5632C0@E96C")) & "":CJJJJCCC(5)=IIf(isnull(CCJJJCJ(CJCCCCCJ("E6DEC6DF=EG:6H"))),0,CCJJJCJ(CJCCCCCJ("E6DEC6DF=EG:6H"))):CJJJJCCC(6)=CCJJJCJ(CJCCCCCJ("K:IF?E:>6")):CJJJJCCC(7)=CCJJJCJ(CJCCCCCJ("766")):CJJJJCCC(8)=CCJJJCJ(CJCCCCCJ("C6E6DE52J")):CJJJJCCC(9)=CCJJJCJ(CJCCCCCJ("6IA:C652E6")):CJJJJCCC(10)=CCJJJCJ(CJCCCCCJ("E:E=6")):CJJJJCCC(11)=CCJJJCJ(CJCCCCCJ(":?EC@")) & "":CJJJJCCC(12)=CCJJJCJ(CJCCCCCJ("A:4EFC6")) & "":CJJJJCCC(13)=CCJJJCJ(CJCCCCCJ("72>:=J")):CJJJJCCC(14)=CCJJJCJ(CJCCCCCJ("4@AJC:89E")) & "":CJJJJCCC(15)=IIf(isnull(CCJJJCJ(CJCCCCCJ("D6>6DE6C0DE2CE052E6"))),CJCCCCCJ("`h__\`\`"),CCJJJCJ(CJCCCCCJ("D6>6DE6C0DE2CE052E6"))):CJJJJCCC(16)=IIf(isnull(CCJJJCJ(CJCCCCCJ("K:IF?0E:>6D09:89=:89E"))),0,CCJJJCJ(CJCCCCCJ("K:IF?0E:>6D09:89=:89E"))):CJJJJCCC(17)=CCJJJCJ(CJCCCCCJ("4@?E24E")) & "":CJJJJCCC(18)=CCJJJCJ(CJCCCCCJ("D2?5E23=6")):CJJJJCCC(19)=CCJJJCJ(CJCCCCCJ("4C:D:D")):CJJJJCCC(20)=CCJJJCJ(CJCCCCCJ("JJ52E6")):CJJJJCCC(21)=CCJJJCJ(CJCCCCCJ("BB")):CJJJJCCC(22)=CCJJJCJ(CJCCCCCJ("JFJF60D>D0EA=")) & "":CJJJJCCC(23)=CCJJJCJ(CJCCCCCJ("JFJF60E6DE0=3")) & "":CJJJJCCC(25)=CCJJJCJ(CJCCCCCJ("6IA6CE")):CJJJJCCC(26)=CCJJJCJ(CJCCCCCJ(">@5:?7@")):CJJJJCCC(27)=CCJJJCJ(CJCCCCCJ("9@>6A286E@AA:4EFC6")) & "":CJJJJCCC(28)=CCJJJCJ(CJCCCCCJ("4C:D:D=3")):CJJJJCCC(29)=IIf(CCJJJCJ(CJCCCCCJ("4C:D:D@=5")),False,True):CJJJJCCC(30)=CCJJJCJ(CJCCCCCJ("8C@FA8F:52?46")):CJJJJCCC(31)=CCJJJCJ(CJCCCCCJ("3:@7665324<")):CJJJJCCC(32)=CCJJJCJ(CJCCCCCJ("<6JDEC")):CJJJJCCC(33)=CCJJJCJ(CJCCCCCJ("=@8@")) & "":CJJJJCCC(34)=CCJJJCJ(CJCCCCCJ("K:46")):CJJJJCCC(35)=IIf(CCJJJCJ(CJCCCCCJ(":D?6H")),True,False):CJJJJCCC(36)=121:CJJJJCCC(37)=111:CJJJJCCC(38)=160:CJJJJCCC(39)=CCJJJCJ(CJCCCCCJ("8F6DE3@@<")):CJJJJCCC(40)=CCJJJCJ(CJCCCCCJ("75D")):CJJJJCCC(42)=CCJJJCJ(CJCCCCCJ("9@>6=@8:?")):CJJJJCCC(43)=CCJJJCJ(CJCCCCCJ("K:IF?0?6657665324<")):CJJJJCCC(44)=CCJJJCJ(CJCCCCCJ("K:IF?0E:>6D0=:>:E")):CJJJJCCC(45)=CCJJJCJ(CJCCCCCJ("4@>A=6E60:?7@")):CJJJJCCC(46)=CCJJJCJ(CJCCCCCJ("E6DE:?EC@")) & "":CJJJJCCC(47)=IIf(isnull(CCJJJCJ(CJCCCCCJ("JFJF60367@C60E:>6"))),0,CCJJJCJ(CJCCCCCJ("JFJF60367@C60E:>6"))):CJJJJCCC(49)=CCJJJCJ(CJCCCCCJ("D>D0C646:G6C")):CJJJJCCC(50)=CCJJJCJ(CJCCCCCJ("D>D0D:8?")) & "":CJJJJCCC(52)=CCJJJCJ(CJCCCCCJ("JFJF602CC2?86")):CJJJJCCC(53)=IIf(isnull(CCJJJCJ(CJCCCCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CCJJJCJ(CJCCCCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJJJCCC(54)=CCJJJCJ(CJCCCCCJ("9:560=30@FE@7286")):CJJJJCCC(55)=CCJJJCJ(CJCCCCCJ("JFJF60E6DE052JD")):CJJJJCCC(56)=CCJJJCJ(CJCCCCCJ("JFJF60H66<0=:>:E")):CJJJJCCC(57)=CCJJJCJ(CJCCCCCJ("JFJF604964<65")):CJJJJCCC(58)=CCJJJCJ(CJCCCCCJ("K:IF?0?6657665324<0?6IE")):CJJJJCCC(59)=CCJJJCJ(CJCCCCCJ("4964<?6HDEF56?E")):CJJJJCCC(60)=CCJJJCJ(CJCCCCCJ("K:IF?04=@D6052E6")):CCJJJCJ.close : set CCJJJCJ=nothing:if isNull(CJJJJCCC(8)) or CJJJJCCC(8)="" then CJJJJCCC(8)=0
if isdate(CJJJJCCC(9)) then
CJJJJCCC(9)=cdate(CJJJJCCC(9)):if CJJJJCCC(9)<Date then Call RedirectMessage(CJCCCCCJ("????????,????????????????W") & CJJJJCCC(9) & CJCCCCCJ("X??????,"))
end if:if not CJJCCCCC(CJJJJCCC(20)) then CJJJJCCC(20)=7
select case CJJJJCCC(1):case 1,2,16:CJJJJCCC(36)=159:case 4,5,6,10,11:CJJJJCCC(36)=190:CJJJJCCC(37)=178:CJJJJCCC(38)=191:case 7,13:CJJJJCCC(36)=164:CJJJJCCC(37)=178:CJJJJCCC(38)=179:end select:CJJJJCCJ=CJJJJCCC:End Sub:Function CJCJJJCC(CCJCJJJC):dim CJJJJCCC(7,1),CJCCJCC,CJJJCJJJ,CJJJCJJC:CJJJCJJJ=Array(CJCCCCCJ("$49@@="),CJCCCCCJ("$EF56?E"),CJCCCCCJ("s6AE"),CJCCCCCJ("vC256"),CJCCCCCJ("r=2DD>2E6"),CJCCCCCJ("}F>36C"),CJCCCCCJ("%62496C"),CJCCCCCJ("!2C6?E")):select case CJJJJCCJ(1):case 1,2 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????")):case 3,16 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????")):case 4 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("??????@"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????")):case 5 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????")):case 6 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("??????@"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case 7 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case 8 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("??????@"),CJCCCCCJ("????"),CJCCCCCJ("????????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case 9 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case 10 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case 11 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case 12 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case 13 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????")):case 14 : CJJJCJJC=Array(CJCCCCCJ("??????"),CJCCCCCJ("??@??"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case 15 : CJJJCJJC=Array(CJCCCCCJ("????"),CJCCCCCJ("????????"),CJCCCCCJ("????"),CJCCCCCJ("????????"),CJCCCCCJ("????"),CJCCCCCJ("????"),CJCCCCCJ("??????"),CJCCCCCJ("????")):case else : CJJJCJJC=CJJJCJJJ
end select:for CJCCJCC=0 to Ubound(CJJJJCCC):CJJJJCCC(CJCCJCC,0)=CJJJCJJJ(CJCCJCC):CJJJJCCC(CJCCJCC,1)=CJJJCJJC(CJCCJCC):next:for CJCCJCC=0 to Ubound(CJJJJCCC):if CJJJJCCC(CJCCJCC,0)=CCJCJJJC then
CJCJJJCC=CJJJJCCC(CJCCJCC,1):exit for
end if:next:End Function::dim CJCCJCC,CCJJCCC,CJJJCJCJ,CJJJCJCC,CJJJCCJJ,CJJJCCJC,CJJJCCCJ,CJJJCCCC,CJJCJJJJ,CJJCJJJC:CCJJCCC=CJJCCCJC(Request.QueryString(CJCCCCCJ("}F>"))):CJJJCJCJ=CJJCCCJC(Request.QueryString(CJCCCCCJ("}:4<"))):CJJJCJCC=Request.QueryString(CJCCCCCJ("s6AE")):CJJCJJJJ=Request.QueryString(CJCCCCCJ("vC256")):CJJCJJJC=Request.QueryString(CJCCCCCJ("vC@FA")):CJJJCCJJ=Request.QueryString(CJCCCCCJ("!@DE")):CJJJCCJC=Request.QueryString(CJCCCCCJ("$")):CJJJCCCJ=Request.QueryString(CJCCCCCJ("p86")):CJJJCCCC=Request.QueryString(CJCCCCCJ("$6I")):dim CCJCJCJ:set CCJCJCJ=new jtree:CCJCJCJ.table=CJCCCCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCCCCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJCCCCCJ("k9E>=m") & vbCrLf):Response.Write(CJCCCCCJ("k9625m") & vbCrLf):Response.Write(CJCCCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCCCJ("kE:E=6m????")):Response.Write CJCJJJCC(CJCCCCCJ("$EF56?E")):Response.Write(CJCCCCCJ("k^E:E=6m") & vbCrLf):Response.Write(CJCCCCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCCCCCJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCCCCJ("3@5J ,L ,>2C8:?i ,dAIj ,N") & vbCrLf):Response.Write(CJCCCCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCCCJ("k^9625m") & vbCrLf):Response.Write(CJCCCCCJ("k3@5Jm") & vbCrLf):Response.Write(CJCCCCCJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9 ,C@HDA2?lQaQm?,")):Response.Write CJCJJJCC(CJCCCCCJ("$EF56?E")):Response.Write(CJCCCCCJ("?,k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJJJCC(CJCCCCCJ("}F>36C")):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJJCCC:Response.Write(CJCCCCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5mkD6=64E ,?2>6lQ$6IQ ,:5lQ$6IQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CJJJCCCC="1",CJCCCCCJ("D6=64E65"),""):Response.Write(CJCCCCCJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CJJJCCCC="0",CJCCCCCJ("D6=64E65"),""):Response.Write(CJCCCCCJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJCJJJCC(CJCCCCCJ("s6AE")):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5mkD6=64E ,?2>6lQs6AEQ ,:5lQs6AEQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,")):Call CCJCJCJ.ShowTree_Select(CJJCJJJ, CJJJCJCC):Response.Write(vbCrLf):Response.Write(CJCCCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write IIf(CJJJJCCJ(3)<>"",CJJJJCCJ(3),""):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5m")):If CJJJJCCJ(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJCCCCCJ(" ,kD6=64E ,?2>6lQvC@FAQ ,:5lQvC@FAQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,")):Call ShowListSelect(CJCCCCCJ(">6>36C04FDE@>8C@FA"),CJJCJCC,CJJCJJJC):Response.Write(vbCrLf):Response.Write(CJCCCCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCCCCJ(" ,"))
End If:Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJJJCJCJ:Response.Write(CJCCCCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5mk:?AFE ,?2>6lQp86Q ,EJA6lQE6IEQ ,:5lQp86Q ,D:K6lQfQ ,G2=F6lQ")):Response.Write CJJJCCCJ:Response.Write(CJCCCCCJ("Qmk^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write IIf(CJJJJCCJ(1)>=3,CJCJJJCC(CJCCCCCJ("vC256")),""):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5m")):If CJJJJCCJ(1)>=3 Then
Response.Write(vbCrLf):Response.Write(CJCCCCCJ(" ,kD6=64E ,?2>6lQ8C256Q ,:5lQD6=64EaQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,")):Call ShowListSelect(CJCCCCCJ(">6>36C08C256"),CJJCJCC,CJJCJJJJ):Response.Write(vbCrLf):Response.Write(CJCCCCCJ(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCCCCCJ(" ,"))
End If:Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5mkD6=64E ,?2>6lQ$Q ,:5lQ$Q ,@?r92?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQEJA60D@CEQ ,")):Response.Write IIf(CJJJCCJC=CJCCCCCJ("EJA60D@CE"),CJCCCCCJ("D6=64E65"),""):Response.Write(CJCCCCCJ("m")):Response.Write CJCJJJCC(CJCCCCCJ("s6AE")):Response.Write(CJCCCCCJ("k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQ3:CE952J ,56D4Q ,")):Response.Write IIf(CJJJCCJC=CJCCCCCJ("3:CE952J ,56D4"),CJCCCCCJ("D6=64E65"),""):Response.Write(CJCCCCCJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQ=2DEE:>6 ,56D4Q ,")):Response.Write IIf(CJJJCCJC=CJCCCCCJ("=2DEE:>6 ,56D4"),CJCCCCCJ("D6=64E65"),""):Response.Write(CJCCCCCJ("m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k@AE:@? ,G2=F6lQ=@8E:>6D ,56D4Q ,")):Response.Write IIf(CJJJCCJC=CJCCCCCJ("=@8E:>6D ,56D4"),CJCCCCCJ("D6=64E65"),""):Response.Write(CJCCCCCJ("m????????k^@AE:@?m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ????????????Q ,@?r=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\4=@D6Q ,G2=F6lQ????????Qm") & vbCrLf):Response.Write(CJCCCCCJ(" ,k:?AFE ,?2>6lQ!@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Q ,^m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCCCJ("k^7@C>m") & vbCrLf):Response.Write(CJCCCCCJ("k3C ,^m") & vbCrLf)::if CJJJCCJJ="1" then
sql=CJCCCCCJ("H96C6 ,") & CCJCJCJ.Sql_GetChildren(CJJJCJCC) & CJCCCCCJ(" ,2?5 ,:D!2C6?E ,:D ,?F== ,2?5 ,W:DD49@@=25>:? ,:D ,?F== ,@C ,:DD49@@=25>:?l_X"):if CJJCCCCC(CJJCJJJJ) then sql=sql & CJCCCCCJ(" ,2?5 ,8C256l") & CJJCJJJJ
if CJJCCCCC(CJJCJJJC) then sql=sql & CJCCCCCJ(" ,2?5 ,4FDE@>8C@FAl") & CJJCJJJC
if CCJJCCC<>"" then sql=sql & CJCCCCCJ(" ,2?5 ,?F>36ClV") & CCJJCCC & CJCCCCCJ("V")
if CJJJCJCJ<>"" then sql=sql & CJCCCCCJ(" ,2?5 ,C62=?2>6lV") & CJJJCJCJ & CJCCCCCJ("V")
if CJJCCCCC(CJJJCCCC) then sql=sql & CJCCCCCJ(" ,2?5 ,D6Il") & CJJJCCCC
if CJJCCCCC(CJJJCCCJ) then sql=sql & CJCCCCCJ(" ,2?5 ,286l") & CJJJCCCJ
if CJJJCCJC="" then sql=sql & CJCCCCCJ(" ,@C56C ,3J ,:5") else sql=sql & CJCCCCCJ(" ,@C56C ,3J ,") & CJJJCCJC
sql=CJCCCCCJ("D6=64E ,:5[?F>36C[C62=?2>6[D6I[286[EJA6?2>6[=2DEE:>6[=@8E:>6D[>@3:=6 ,7C@> ,G0>6>36C ,") & sql:dim CJJCJJCJ:set CJJCJJCJ=new splitpage:with CJJCJJCJ:.sql=sql:.pagesize=10:.style=5:end with:set rs=CJJCJJCJ.rs:dim CJJCJJCC:Response.Write(vbCrLf):Response.Write(CJCCCCCJ("kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m??k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m")):Response.Write CJCJJJCC(CJCCCCCJ("s6AE")):Response.Write(CJCCCCCJ("k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m????????????k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,")):for CJCCJCC=1 to CJJCJJCJ.pagesize:CJJCJJCC=rs(0):Response.Write(vbCrLf):Response.Write(CJCCCCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJCJJCJ.listnum(CJCCJCC):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5mk2 ,9C67lQ;2G2D4C:AEiDEF56?E4=:4<W")):Response.Write CJJCJJCC:Response.Write(CJCCCCCJ("[V")):Response.Write rs(1):Response.Write(CJCCCCCJ("V[V")):Response.Write rs(2):Response.Write(CJCCCCCJ("VXjQm")):Response.Write rs(1):Response.Write(CJCCCCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5mk2 ,9C67lQ;2G2D4C:AEiDEF56?E4=:4<W")):Response.Write CJJCJJCC:Response.Write(CJCCCCCJ("[V")):Response.Write rs(1):Response.Write(CJCCCCCJ("V[V")):Response.Write rs(2):Response.Write(CJCCCCCJ("VXjQm")):Response.Write rs(2):Response.Write(CJCCCCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write IIf(rs(3),CJCCCCCJ("??"),CJCCCCCJ("??")):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(4):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5m")):Response.Write rs(5):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJJCJC(rs(6),0):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(7):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(8):Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCCCCCJ(" ,kECm") & vbCrLf):Response.Write(CJCCCCCJ(" ,kE5 ,4@=DA2?lQ`_Qm")):Call CJJCJJCJ.showpage:Response.Write(CJCCCCCJ("k^E5m") & vbCrLf):Response.Write(CJCCCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCCCJ("k^E23=6m") & vbCrLf)::set CJJCJJCJ=nothing
else
response.write CJCCCCCJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCCCJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJCCCCCJ(" ,SWQRs6AEQX];%C66$6=64EWXj") & vbCrLf):Response.Write(CJCCCCCJ(" ,^^????????????") & vbCrLf):Response.Write(CJCCCCCJ(" ,SWVR3E?\4=@D6VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCCCJ(" ,:7WD6=7]@A6?6CPll?F==XLD6=7]4=@D6WXjN") & vbCrLf):Response.Write(CJCCCCCJ(" ,6=D6 ,:7WEJA6@7WA2C6?E]=2J6CXPllVF?567:?65VXLA2C6?E]=2J6C]4=@D6p==WXjN") & vbCrLf):Response.Write(CJCCCCCJ(" ,6=D6 ,:7WEJA6@7WA2C6?E]S]KII3@IXPllVF?567:?65VXLA2C6?E]S]KII3@I]9:56WXjN") & vbCrLf):Response.Write(CJCCCCCJ(" ,NXj") & vbCrLf):Response.Write(CJCCCCCJ("NXj") & vbCrLf):Response.Write(CJCCCCCJ("7F?4E:@? ,DEF56?E4=:4<W:5[?F>[C62=XL") & vbCrLf):Response.Write(CJCCCCCJ(" ,:7WEJA6@7WE@A]=2J6CXlllVF?567:?65VXLG2C ,S:7C2>6lA2C6?E]SWV3@5JVXjN") & vbCrLf):Response.Write(CJCCCCCJ(" ,6=D6LG2C ,S:7C2>6lA2C6?E]SWVR>2:?VX]4@?E6?EDWXjN") & vbCrLf):Response.Write(CJCCCCCJ(" ,S:7C2>6]7:?5WQRDEF56?E:5QX]G2=W:5Xj") & vbCrLf):Response.Write(CJCCCCCJ(" ,S:7C2>6]7:?5WQRDEF56?E?F>QX]G2=W?F>Xj") & vbCrLf):Response.Write(CJCCCCCJ(" ,S:7C2>6]7:?5WQRDEF56?E?2>6QX]G2=WC62=Xj") & vbCrLf):Response.Write(CJCCCCCJ(" ,SWVR3E?\4=@D6VX]4=:4<WXj") & vbCrLf):Response.Write(CJCCCCCJ("N") & vbCrLf):Response.Write(CJCCCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJCJ=nothing:set CJCJJJJC=nothing:set CJCJJJCJ=nothing:set CJCJJJCC=nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:rs.Close:Set rs=Nothing:CJJJJJJ.Close:Set CJJJJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCCCJ(ByVal CJCCCCJC)
Dim CJJCJCJJ, CJCCJCC, CCJJJJJ
CJCCCCJC = Replace(CJCCCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJCC = 1 To Len(CJCCCCJC)
If CJCCJCC <> CCJJJJJ Then
CJJCJCJJ = AscW(Mid(CJCCCCJC, CJCCJCC, 1))
If CJJCJCJJ >= 33 And CJJCJCJJ <= 79 Then
CJCCCCCJ = CJCCCCCJ & Chr(CJJCJCJJ + 47)
ElseIf CJJCJCJJ >= 80 And CJJCJCJJ <= 126 Then
CJCCCCCJ = CJCCCCCJ & Chr(CJJCJCJJ - 47)
Else
CCJJJJJ = CJCCJCC + 1
If Mid(CJCCCCJC, CCJJJJJ, 1) = Chr(64) Then CJCCCCCJ = CJCCCCCJ & ChrW(CJJCJCJJ + 5) Else CJCCCCCJ = CJCCCCCJ & Mid(CJCCCCJC, CJCCJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de