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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJJ, CCCJC,rs, CCCCC, sql:Set CCCJJ = server.CreateObject(CJJCCCJJ("ps~sq]r@??64E:@?")):CCCJJ.open Application(CJJCCCJJ("r@??64E:@?$EC:?8")):Set CCCJC=CCCJJ::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CJJCCCJJ("!$*|t|qt#"))):if CCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJC>0 then
sql=CJJCCCJJ("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CJJJCJ & CJJCCCJJ("V ,2?5 ,:5l") & CJJJJC
set rs=CCCJJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CJJJCC=rs(2) & "":CJJCJJ=rs(3):CJJCJC=rs(5):CJJCCJ=rs(6):CJJCCC=rs(9):CJCJJJ=rs(15):CJCJCJ=rs(0):CCJJJC=rs(1):CCJJJJ=rs(11) & "":CJCJCC=rs(10) & "":CJCJJC=rs(12):CJCCJJ=rs(14):CJCCJC=rs(13):CJCCCJ=rs(7) & "":CJCCCC=rs(4):CCJJCJ=rs(8):if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CJJCCC) or CJJCCC=0 then CJJCCC=CJJCJJ
if isnull(CJCCCC) then CJCCCC=0
if isnull(CJJCJC) then CJJCJC=0
if instr(CJJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJ)>0 then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJC,CJJJCJ)
End IF
end if:::Sub CheckLogined():if CJJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJCJJ:CCJCJJ=trim(request.QueryString(CJJCCCJJ("D49@@="))):if isnumeric(CCJCJJ) then
response.Redirect CJJCCCJJ("^>^G2?E^R^D49@@=^") & CCJCJJ & CJJCCCJJ("^DEF56?E^=@8:?nC65:C64El") & CCCCCJ
else
Call RedirectMessage(CJJCCCJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCCCJJ("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC:CCJCJC=split(CCJJCC,CJJCCCJJ("]")):if ubound(CCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJC(0)) or len(CCJCJC(1))<>32 or len(CCJCJC(2))<>32 then
Call ClearMemberCookie
else
CCJCCJ=CCJCJC(1):for CCJCCC=1 to len(CCJCCJ):CCCJJJ=mid(CCJCCJ,CCJCCC,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ
if len(CCCJJC)=7 then exit for
next:CCJCCJ=CCJCJC(2):if CCCJJC<>mid(CCJCCJ,6,7) then
Call ClearMemberCookie
else
CCCJJJ=mid(CCJCCJ,18,10)/2:if CCCJJJ<DateDiff(CJJCCCJJ("D"), CJJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJC=Clng(CCJCJC(0)):CJJJCJ=CCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCCCC,CJJCCCJC):dim CCJCCC,CCCJJJ,CCCJJC:for CCJCCC=1 to len(CJJCCCJC):CCCJJJ=mid(CJJCCCJC,CCJCCC,1):if isnumeric(CCCJJJ) then CCCJJC=CCCJJC & CCCJJJ
if len(CCCJJC)=7 then exit for
next:CCCJJC=CCJCCCC & CJJCCCJJ("]") & CJJCCCJC & CJJCCCJJ("]") & Fix(10000*(Rnd+1)) & CCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJJCCCJJ("D"), CJJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCCCJJ("!$*|t|qt#"))=CCCJJC:End Sub::Function CCCCJJC(CJJCCCCJ):Dim str,CCCJCC:str = Trim(CJJCCCCJ):If IsNull(str) Or str = "" Then
CCCCJJC = ""
else
str=Replace(str, CJJCCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCCCJJ("k:7C2>6"), CJJCCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCCCJJ("kD4C:AE"), CJJCCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJCC=new RegExp:CCCJCC.Pattern=CJJCCCJJ("@?W,2\K.ZXl"):CCCJCC.IgnoreCase = True:CCCJCC.Global=True:str=CCCJCC.Replace(str,CJJCCCJJ("@?S`U6BF2=Dj")):set CCCJCC=nothing:CCCCJJC=str
End If:End Function:Function IIf(CJJCCCCC, CJCJJJJJ, CJCJJJJC):if isnull(CJJCCCCC) or isempty(CJJCCCCC) then
IIf = CJCJJJJC
elseif CJJCCCCC Then
IIf = CJCJJJJJ
Else
IIf = CJCJJJJC
end if:End Function:Const CCCJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJCCCJJ("FE7\g"):dim CCJCCC,CCCJJJ,CCCCJJ:if isarray(str) then
on error resume next:CCJCCC=ubound(str,2):CCCCJJ=err.number:err.clear:on error goto 0:if CCCCJJ<>0 then
for CCJCCC=0 to ubound(str):if CCJCCC>0 then response.Write CJJCCCJJ("k3C ,^m")
response.Write CCJCCC & CJJCCCJJ("i ,") & str(CCJCCC):next
else
response.Write CJJCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCCC=0 to ubound(str,2):response.Write CJJCCCJJ("kE9 ,2=:8?lV=67EVm") & CCJCCC & CJJCCCJJ("k^E9m")
next:response.Write CJJCCCJJ("k^ECm"):for CCJCCC=0 to ubound(str):response.Write CJJCCCJJ("kECmkE9m") & CCJCCC & CJJCCCJJ("k^E9m"):for CCCJJJ=0 to ubound(str,2):response.Write CJJCCCJJ("kE5m") & str(CCJCCC,CCCJJJ) & CJJCCCJJ("k^E5m"):next:response.Write CJJCCCJJ("k^ECm"):next:response.Write CJJCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCCJCC():Dim CCCCJC, CCCCCJ:CCCCCJ = Request.ServerVariables(CJJCCCJJ("!p%w0x}u~")):CCCCJC = Request.ServerVariables(CJJCCCJJ("""&t#*0$%#x}v")):If CCCCJC <> Empty Then
if instr(lcase(CCCCJC),CJJCCCJJ("Tb4:7C2>6"))>0 or instr(lcase(CCCCJC),CJJCCCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????,??,??,"))
CCCCCJ = CCCCCJ & CJJCCCJJ("n") & CCCCJC
end if:CCCCJCC = CCCCCJ:End Function:Sub SetHttpOnlyCookie(CJCJJJCJ,CJCJJJCC):dim CCJCJC:CCJCJC=CJCJJJCJ & CJJCCCJJ("l") & CJCJJJCC & CJJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCCCJJ("$6E\r@@<:6"),CCJCJC):End Sub:Sub WriteCurrentURL():Response.Cookies(CJJCCCJJ("!$*"))(CJJCCCJJ("&#{")) = CCCCJCC:End Sub:::::sub ShowMessage(CJCJJCJJ):response.Charset="utf-8":Response.Write CJJCCCJJ("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CJCJJCJJ & CJJCCCJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCCJJ(CCCCJJ):if isnull(CCCCJJ) or trim(CCCCJJ)="" or not isnumeric(CCCCJJ) then
CCCCCJJ=false
else
Dim CCCJCC:Set CCCJCC = New RegExp:CCCJCC.Pattern = CJJCCCJJ("/-5ZS"):CCCJCC.IgnoreCase = True:CCCCCJJ = CCCJCC.test(CCCCJJ):set CCCJCC=nothing
end if:End Function:Function CCCCCJC(CJCJJCJC):dim CCCCCC,CJJJJJJ:CCCCCC=CJJCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJCJC & CJJCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJJJ=CCCJJ.execute(CCCCCC):CCCCCJC = CJJJJJJ(0):if isnull(CCCCCJC) then CCCCCJC=1
CJJJJJJ.close : set CJJJJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJJJ=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CJJJJJJ.close : set CJJJJJJ=nothing:CCCCC.Close : Set CCCCC=Nothing:rs.Close : Set rs=Nothing:CJJJJJJC.Close : Set CJJJJJJC = Nothing:CCCJJ.Close : Set CCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCCCJJ("!$*0|6DD286"),server.URLEncode(CJCJJCJJ)):Response.Redirect CJJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::Function CJJJJJCJ(CJCJJCCJ):CJJJJJCJ=CJCJJCCJ:End Function:::::Function CJJJJJCC(ByVal CJJJJCJJ,style):if not isdate(CJJJJCJJ) then
CJJJJJCC=CJJJJCJJ:exit function
end if:dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:CJJJJCJJ=cdate(CJJJJCJJ):CJJJJJC=Year(CJJJJCJJ):CJJJJCJ=Month(CJJJJCJJ):CJJJJCC=Day(CJJJJCJJ):select case style:case 0:CJJJJJCC=CJJJJJC & CJJCCCJJ("\") & right(0 & CJJJJCJ,2) & CJJCCCJJ("\") & right(0 & CJJJJCC,2):case 1:CJJJJJCC=CJJJJJC & right(0 & CJJJJCJ,2) & right(0 & CJJJJCC,2):case 2:CJJJJJCC=right(CJJJJJC,2) & CJJCCCJJ("\") & right(0 & CJJJJCJ,2) & CJJCCCJJ("\") & right(0 & CJJJJCC,2):case 3:CJJJJJCC=CJJJJJC & CJJCCCJJ("\") & right(0 & CJJJJCJ,2):case 4:CJJJJJCC=right(0 & CJJJJCJ,2) & CJJCCCJJ("\") & right(0 & CJJJJCC,2):case 5:CJJJJJCC=right(0 & CJJJJCC,2):case 6:CJJJJJCC=CJJJJJC & CJJCCCJJ("??") & right(0 & CJJJJCJ,2) & CJJCCCJJ("??") & right(0 & CJJJJCC,2) & CJJCCCJJ("??"):case else
CJJJJJCC=CJJJJCJJ:end select:End Function:Function CJJJJCJC(Table):Dim CJJJJJJ, CJJJCJC, str(), CCJCCC,CCCJJJ,CJJJCCJ:CJJJCCJ=UCase(Table):If Not IsArray(Application(CJJCCCJJ("!$*0") & CJJJCCJ)) Then
Sql=CJJCCCJJ("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJCCCJJ(". ,@C56C ,3J ,D@CE[:5"):set CJJJJJJ=server.createobject(CJJCCCJJ("25@53]C64@C5D6E")):CJJJJJJ.open sql,CCCJJ,1:CJJJCJC = CJJJJJJ.RecordCount:ReDim str(CJJJCJC, 2):If CJJJCJC > 0 Then
For CCJCCC = 1 To CJJJCJC:for CCCJJJ=0 to 2:str(CCJCCC, CCCJJJ) = CJJJJJJ(CCCJJJ):next:CJJJJJJ.MoveNext:Next
End If:CJJJJJJ.Close: Set CJJJJJJ = Nothing:Application(CJJCCCJJ("!$*0") & CJJJCCJ) = str
End If:CJJJJCJC = Application(CJJCCCJJ("!$*0") & CJJJCCJ):End Function:Sub ShowListSelect(CJCJJCJC,CJCJJCCC,CJCJCJJJ):Dim str, CCJCCC, CJJJCCC:CJJJCCC = CJJJJCJC(CJCJJCJC):For CCJCCC = 1 To UBound(CJJJCCC):if Cstr(CJJJCCC(CCJCCC,2))=Cstr(CJCJJCCC) then
str = str & CJJCCCJJ("k@AE:@? ,G2=F6lV") & CJJJCCC(CCJCCC, 0) & CJJCCCJJ("V")
If CStr(CJJJCCC(CCJCCC, 0)) = CJCJCJJJ & "" Then str = str & CJJCCCJJ(" ,D6=64E65lVD6=64E65V")
str = str & CJJCCCJJ("m") & CJJJCCC(CCJCCC, 1) & CJJCCCJJ("k^@AE:@?m")
end if:Next:Response.Write str:End Sub::::::::::::::::::Sub ClearCache(CJCJCJJC):Application.Contents.Remove CJCJCJJC
End Sub::Class jTree:Private Sql, CJJCJJJ, CJJCJJC, CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ:Private Sub Class_Initialize():CJJCJJC = 0:CJJCJCJ = 0:CJJCCCJ=10:End Sub:Public Property Let Table(CJCJCJCJ):if CJCJCJCJ="" then Call RedirectMessage(CJJCCCJJ("????????,;%C66????????????????????@??????????,"))
CJJCJCC=CJCJCJCJ:CJJCCJJ=CJJCCCJJ("!$*0") & UCase(CJJCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJCC:End Property:::Private Sub GetTreeArray():Dim CCJCCC, CCCJJJ, CJJCCCC,RecordCount:CJJCJJJ = Application(CJJCCJJ):If Not IsArray(CJJCJJJ) Then
Sql = CJJCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJCC:if CJJCCJC<>"" then Sql=Sql & CJJCCCJJ(" ,H96C6 ,") & CJJCCJC
set CJJCCCC=CCCJJ.execute(sql):RecordCount=CJJCCCC(0):if RecordCount=0 then Call RedirectMessage(CJJCCCJJ("????W") & CJJCJCC & CJJCCCJJ("^") & CJJCCJC & CJJCCCJJ("X????????????"))
CJJCJCJ=RecordCount+CJJCCCJ:ReDim CJJCJJJ(CJJCJCJ, 4):Sql = CJJCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CJJCCCJJ(" ,H:E9 ,W?@=@4<X"):if CJJCCJC<>"" then Sql=Sql & CJJCCCJJ(" ,H96C6 ,") & CJJCCJC
Sql=Sql & CJJCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCCCC=CCCJJ.execute(sql):For CCJCCC = 1 To RecordCount:For CCCJJJ = 0 To 4:CJJCJJJ(CCJCCC, CCCJJJ) = CJJCCCC(CCCJJJ):if IsNull(CJJCJJJ(CCJCCC,4)) then CJJCJJJ(CCJCCC,4)=0
If CJJCJJJ(CCJCCC,2)="" then CJJCJJJ(CCJCCC,2)=CJJCCCJJ(",??.")
Next:CJJCCCC.MoveNext:Next:CJJCCCC.Close: Set CJJCCCC = Nothing:for CCJCCC=CJJCJCJ-(CJJCCCJ-1) to CJJCJCJ:CJJCJJJ(CCJCCC,0)=CCJCCC:next:Application.Lock():Application(CJJCCJJ) = CJJCJJJ:Application.UnLock()
else
CJJCJCJ=Ubound(CJJCJJJ)
End If:End Sub:::::Private Function CJJJJCCC(CCJCCCC):dim CCJCCC,CJCJJJC:CJJJJCCC=0:CJCJJJC=CStr(CCJCCCC):if CJCJJJC<>"0" then
for CCJCCC=1 to CJJCJCJ:If CStr(CJJCJJJ(CCJCCC, 0))=CJCJJJC Then
CJJJJCCC = CCJCCC:Exit For
End If:Next
end if:End Function:Public Function CJJJCJJJ(CCJCCCC):if Cstr(CCJCCCC)="0" then
CJJJCJJJ=CJJCCCJJ("??")
else
Dim CCJCCC,CJJCCCC:CCJCCC=CJJJJCCC(CCJCCCC):if CCJCCC>0 then
CJJJCJJJ=CJJCJJJ(CCJCCC,2):if CJJJCJJJ="" then
set CJJCCCC=CCCJJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CJJCCCJJ(" ,H96C6 ,:5l") & CCJCCCC):if CJJCCCC.eof then Call RedirectMessage(CJJCCCJJ("xs??,") & CCJCCCC & CJJCCCJJ("??,??????"))
CJJJCJJJ=CJJCCCC(1):Call UpdateCache(CCJCCCC,CJJCCCC(0),CJJJCJJJ,CJJCCCC(2),CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if
else
set CJJCCCC=CCCJJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CJJCCCJJ(" ,H96C6 ,:5l") & CCJCCCC):if CJJCCCC.eof then Call RedirectMessage(CJJCCCJJ("xs??,") & CCJCCCC & CJJCCCJJ("??,??????"))
CJJJCJJJ=CJJCCCC(1):Call UpdateCache(CCJCCCC,CJJCCCC(0),CJJJCJJJ,CJJCCCC(2),CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if
end if:End Function:::Public Function CJJJCJJC(CCJCCCC):Dim CCJCCC,CJCJJCJ:CCJCCC=CJJJJCCC(CCJCCCC):if CCJCCC=0 then
CJCJJCJ=CJJJCJCJ(CCJCCCC)
else
CJCJJCJ=CJJCJJJ(CCJCCC,3):if isnull(CJCJJCJ) or CJCJJCJ="" then
CJCJJCJ=CJJJCJCJ(CCJCCCC)
elseif Mid(CJCJJCJ,instrrev(CJCJJCJ,CJJCCCJJ("["))+1)<>CStr(CCJCCCC) then
CJCJJCJ=CJJJCJCJ(CCJCCCC)
elseif Left(CJCJJCJ,1)=CJJCCCJJ("[") then
CJCJJCJ=CJJJCJCJ(CCJCCCC)
end if
end if:CJJJCJJC=CJCJJCJ:End Function:Private Function CJJJCJCJ(CCJCCCC):dim CJCJJJC:CJCJJJC=CStr(CCJCCCC):if CJCJJJC="0" then
CJJJCJCJ=""
else
dim CJJCCCC:set CJJCCCC=CCCJJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CJJCCCJJ(" ,H96C6 ,:5l") & CCJCCCC):if CJJCCCC.eof then
Call UpdateCache(CCJCCCC,"","","",""):Call RedirectMessage(CJJCCCJJ("??????,xs??,") & CCJCCCC & CJJCCCJJ("??,????????,????????????????????,"))
else
if CJJCCCC(0)=0 then
CJJJCJCJ="0," & CCJCCCC
else
CJJJCJCJ=CJJJCJJC(CJJCCCC(0)) & CJJCCCJJ("[") & CCJCCCC
end if:if CJJCCCC(2)<>CJJJCJCJ then
CCCJJ.execute CJJCCCJJ("FA52E6 ,") & CJJCJCC & CJJCCCJJ(" ,D6E ,A2E9lV") & CJJJCJCJ & CJJCCCJJ("V ,H96C6 ,:5l") & CCJCCCC
else
CJJJCJCJ=CJJCCCC(2)
end if
end if:Call UpdateCache(CCJCCCC,CJJCCCC(0),CJJCCCC(1),CJJJCJCJ,CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if:End Function:::::::::::Public Sub ShowTree_Select(CCJCCCC,ByVal CJCJCJJJ):Dim Str, CCJCCC:CCJCCCC=CLng(CCJCCCC):if isnumeric(CJCJCJJJ) then CJCJCJJJ=CLng(CJCJCJJJ) else CJCJCJJJ=0
if CCJCCCC>0 then str=CJJCCCJJ("k@AE:@? ,G2=F6lV") & CCJCCCC & CJJCCCJJ("V ,52E2\A:5lV_Vm") & CJJJCJJJ(CCJCCCC) & CJJCCCJJ("k^@AE:@?m")
For CCJCCC = 1 To CJJCJCJ:If CCJCCCC=0 or (CCJCCCC>0 and InStr(CJJCJJJ(CCJCCC, 3), CJJCCCJJ("[") & CCJCCCC & CJJCCCJJ("[")) > 0) Then
str=str & CJJCCCJJ("k@AE:@?"):if CJJCJJJ(CCJCCC,0)=CJCJCJJJ then str=str & CJJCCCJJ(" ,D6=64E65")
str=str & CJJCCCJJ(" ,G2=F6lV") & CJJCJJJ(CCJCCC,0) & CJJCCCJJ("V ,52E2\A:5lV") & CJJCJJJ(CCJCCC,1) & CJJCCCJJ("Vm") & CJJCJJJ(CCJCCC,2) & CJJCCCJJ("k^@AE:@?m") & vbcrlf
End If:Next:response.Write str:End Sub:Public Function Sql_GetChildren(CCJCCCC):dim CJCJJCJ:CJCJJCJ=CJJJCJJC(CCJCCCC):Sql_GetChildren = CJJCJCC & CJJCCCJJ("0A2E9ZV[V ,=:<6 ,V") & CJCJJCJ & CJJCCCJJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJCCJJ
End Sub:Public Sub UpdateCache(CCJCCCC,CJCJCJCC,CJCJCCJJ,CJCJJCJ,CJCJCCJC):dim CCJCCC,CCCJJJ:CCJCCCC=CLng(CCJCCCC):CCJCCC=CJJJJCCC(CCJCCCC):if CJCJCJCC="" and CJCJCCJJ="" and CJCJJCJ="" and CJCJCCJC="" then
if CCJCCC>0 then
for CCCJJJ=1 to 4:CJJCJJJ(CCJCCC,CCCJJJ)=Null:next
end if
else
if CCJCCC=0 then
for CCCJJJ=1 to CJJCJCJ:if CJJCJJJ(CCCJJJ,1) & ""="" then
CCJCCC=CCCJJJ:exit for
end if:next
end if:if CCJCCC=0 then
Call ClearCache
else
CJJCJJJ(CCJCCC,0)=CLng(CCJCCCC):if CJCJCJCC<>"" then CJJCJJJ(CCJCCC,1)=CLng(CJCJCJCC)
if CJCJCCJJ<>"" then CJJCJJJ(CCJCCC,2)=CJCJCCJJ
if CJCJJCJ<>"" then CJJCJJJ(CCJCCC,3)=CJCJJCJ
if CJCJCCJC<>"" then CJJCJJJ(CCJCCC,4)=CLng(CJCJCCJC)
end if
end if:if CCJCCC>0 then
Application.Lock():Application(CJJCCJJ) = CJJCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJJCJJ):Call ConnClose:Response.Write CJCJJCJJ:Response.End:End Sub:Private Function CCCCCJC():CCCCCJC=CJJJCCJJ+1:End Function:Private Function CJJJCCJJ():dim CJJJJJJ:set CJJJJJJ=CCCJJ.execute(CJJCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJCC & CJJCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJCCJJ=CJJJJJJ(0):CJJJJJJ.Close: Set CJJJJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJJCJ ="9"
Const CCCJJCC ="7"
Const CCCJCJJ ="3"
Const CCCJCJC ="4"
Const CCCJCCJ ="8"
Const CCCJCCC =":"
Const CCCCJJJ ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCJCJJ, CJCJCJC, CJCJCCJ, CJCJCCC, CJCCJJJ, CCCCCJ, CJCCJJC, CJCCJCJ, CJCCJCC, CJCCCJJ:Private Function CJJJCCJC():Dim CJCCCJC:CJCCCJC = "??" & CJCCJJJ & CJJCCCJJ("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCJCC & CJJCCCJJ("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCJCCC & CJJCCCJJ("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJJCCCJJ("k^3mk^DA2?m??")
CJJJCCJC = CJCCCJC:End Function:Private Function CJJJCCCJ():CJJJCCCJ = CJJCCCJJ(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCJCCC & CJJCCCJJ("V ,DEJ=6lV") & CCCCJJJ & CJJCCCJJ("V ,D:K6lVaV ,E:E=6lV????V ,@?>@FD6@G6ClV;2G2D4C:AEiE9:D]7@4FDWXjE9:D]D6=64EWXV ,@?z6Js@H?lQ;2G2D4C:AEi ,:7WH:?5@H]6G6?E]<6Jr@56 ,ll ,`bX ,=@42E:@?lV") & CCCCCJ & CJJCCCJJ("VZE9:D]G2=F6Qm")
End Function:Private Function CJJJCCCC():CJJJCCCC = CJJCCCJJ(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCJJJ & CJJCCCJJ("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CCCCCJ & CJJCCCJJ("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJCJJJJ():Dim CJCCCJC, CCJCCC:CJCCCJC = CJJCCCJJ(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CCCCCJ & CJJCCCJJ("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCJCCC = 1 To PageCount:CJCCCJC = CJCCCJC & CJJCCCJJ("k@AE:@? ,G2=F6lV") & CCJCCC & CJJCCCJJ("V")
If CCJCCC = CJCJCCC Then CJCCCJC = CJCCCJC & CJJCCCJJ(" ,D6=64E65")
CJCCCJC = CJCCCJC & CJJCCCJJ("m") & CCJCCC & CJJCCCJJ("k^@AE:@?m"):Next:CJCCCJC = CJCCCJC & CJJCCCJJ("k^D6=64Em??"):CJJCJJJJ = CJCCCJC:End Function:Public Sub ShowPage():Dim CCJCCC, CJCCCCJ,CJCCCCC,CCJJJJJ:if CJCCJJJ>0 then
CJCCCCJ = CJJCCCJJ("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJJCCJC & CJJCCCJJ("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJCCCJJ:Case 1: CCJJJJJ = CJJCJJCC:Case 2: CCJJJJJ = CJJCJCJJ:Case 3: CCJJJJJ = CJJCJCJC:Case 4: CCJJJJJ = CJJCJCCJ:Case 5: CCJJJJJ = CJJCJCCC:Case 6: CCJJJJJ = CJJCCJJJ:Case 7: CCJJJJJ = CJJCCJJC:Case 8: CCJJJJJ = CJJCCJCJ:End Select
End If:CJCCCCC = CJJCCCJJ("k^5:Gmk^5:Gm")
end if:if CJCCCJJ>=6 then
Response.Write CCJJJJJ
else
Response.Write CJCCCCJ & CCJJJJJ & CJCCCCC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJCJC = Server.CreateObject(CJJCCCJJ("ps~sq]#64@C5$6E")):CJCJCJC.PageSize = CJCCJCC:CJCJCJC.Open CJCJCCJ, CJCJCJJ, 1:If err then
Response.Write	CJJCCCJJ("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ib__AIj ,7@?E\D:K6i`aAIVm????????????????,") & err.description & CJJCCCJJ("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCJCJC.EOF Then
CJCCJJJ = CJCJCJC.RecordCount:PageCount = CJCJCJC.PageCount:If CJCJCCC > PageCount Then CJCJCCC = PageCount
CJCJCJC.AbsolutePage = CJCJCCC
End If:Set Rs = CJCJCJC:End Function:Public Property Let CCCJC(CJCJCCCJ):Set CJCJCJJ = CJCJCCCJ:End Property:Public Property Let SQL(str):CJCJCCJ = str:End Property:Public Property Let Style(CJJJCJC):If IsNumeric(CJJJCJC) Then
CJCCCJJ = CInt(CJJJCJC):If CJCCCJJ < 1 Or CJCCCJJ > 8 Then CJCCCJJ = 1
Else
CJCCCJJ = 1
End If:End Property:Public Property Let PageSize(CJJJCJC):If IsNumeric(CJJJCJC) Then
CJCCJCC = CInt(CJJJCJC):If CJCCJCC < 1 Then CJCCJCC = 10
Else
CJCCJCC = 10
End If:End Property:Public Property Get PageSize():If CJCJCCC = PageCount Then
PageSize = CJCCJJJ - CJCCJCC * (PageCount - 1)
Elseif CJCCJJJ=0 then
pagesize=0
else
PageSize = CJCCJCC
end if:End Property:Private Sub Class_Initialize():dim CCJJJJC:CJCCJCC = 10:CJCCCJJ = 1:Set CJCJCJJ = CCCJJ:CJCJCCC = Trim(Request.QueryString(CJJCCCJJ("!286"))):If IsNumeric(CJCJCCC) Then
CJCJCCC = CLng(CJCJCCC):If CJCJCCC < 1 Then CJCJCCC = 1
Else
CJCJCCC = 1
End If:CJCCJCJ = Trim(Request.ServerVariables(CJJCCCJJ("&#{"))):CJCCJCJ = Mid(CJCCJCJ, InStrRev(CJCCJCJ, CJJCCCJJ("^")) + 1):CJCCJJC = Split(Trim(Request.ServerVariables(CJJCCCJJ("""&t#*0$%#x}v"))), CJJCCCJJ("U")):CCCCCJ = Server.HtmlEncode(CJCJCCCC):CCJJJJC=lcase(CCCCCJ):if instr(CCJJJJC,CJJCCCJJ("Tb4:7C2>6"))>0 or instr(CCJJJJC,CJJCCCJJ("Tb4D4C:AE"))>0 or instr(CCJJJJC,CJJCCCJJ("V"))>0 or instr(CCJJJJC,CJJCCCJJ(";2G2D4C:AE"))>0 or instr(CCJJJJC,CJJCCCJJ("6IAC6DD:@?"))>0 then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CJJJCJC):ListNum = CJCCJCC * (CJCJCCC - 1) + CJJJCJC:End Function:Private Function CJCJCCCC():Dim CCJCCC, str:For CCJCCC = 0 To UBound(CJCCJJC):If InStr(LCase(CJCCJJC(CCJCCC)), CJJCCCJJ("A286l")) = 0 Then str = str & CJJCCCJJ("U") & CJCCJJC(CCJCCC)
Next:str = Mid(str, 2):If str = "" Then CJCJCCCC = CJCCJCJ & CJJCCCJJ("n") & CJJCCCJJ("A286l") Else CJCJCCCC = CJCCJCJ & CJJCCCJJ("n") & str & CJJCCCJJ("UA286l")
End Function:Private Function CJJCJJCC():Dim str:str = CJJCCCJJ("???? ,??"):For CCJCCC = 1 To PageCount:If CCJCCC = CJCJCCC Then str = str & CJJCCCJJ("k3m") & CCJCCC & CJJCCCJJ("k^3m ,") Else str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CCJCCC & CJJCCCJJ("Vm") & CCJCCC & CJJCCCJJ("k^2m ,")
Next:str = str & CJJCCCJJ("??"):CJJCJJCC = str:End Function:Private Function CJJCJCJJ():Dim str:If CJCJCCC > 1 Then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJJCCCJJ("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJJCJ & CJJCCCJJ("k^2m ,")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC - 1 & CJJCCCJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCJJ & CJJCCCJJ("k^2m ,")
Else
str = str & CCCJJCJ & CJJCCCJJ(" ,") & CCCJCJJ
End If:If CJCJCCC < PageCount Then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC + 1 & CJJCCCJJ("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCJC & CJJCCCJJ("k^2m ,")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & PageCount & CJJCCCJJ("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCC & CJJCCCJJ("k^2m ,")
Else
str = str & CCCJCJC & CJJCCCJJ(" ,") & CCCJCCC
End If:str = str & CJJJCCCJ:str = str & CJJJCCCC:CJJCJCJJ = str:End Function:Private Function CJJCJCJC():Dim str, CCJCCJ:CCJCCJ = (CJCJCCC - 1) \ 10:If CJCJCCC = 1 Then str = str & CCCJJCJ & CJJCCCJJ(" ,") Else str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJJCCCJJ("`V ,E:E=6lV????Vm") & CCCJJCJ & CJJCCCJJ("k^2m ,")
If CCJCCJ * 10 > 0 Then str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC - 10 & CJJCCCJJ("V ,E:E=6lV??????Vm") & CCCJJCC & CJJCCCJJ("k^2m ,")
For CCJCCC = (CCJCCJ * 10 + 1) To (CCJCCJ * 10 + 10):If CCJCCC = CJCJCCC Then str = str & CJJCCCJJ("k3m") & CCJCCC & CJJCCCJJ("k^3m ,") Else str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CCJCCC & CJJCCCJJ("V ,E:E=6lV??????") & CCJCCC & CJJCCCJJ("??Vm") & CCJCCC & CJJCCCJJ("k^2m ,")
If CCJCCC = PageCount Then Exit For
Next:If CCJCCC < PageCount Then str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CCJCCC & CJJCCCJJ("V ,E:E=6lV??????Vm") & CCCJCCJ & CJJCCCJJ("k^2m ,")
If CJCJCCC = PageCount Then str = str & CCCJCCC Else str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & PageCount & CJJCCCJJ("V ,E:E=6lV????Vm") & CCCJCCC & CJJCCCJJ("k^2m")
CJJCJCJC = str:End Function:Private Function CJJCJCCJ():Dim str, CCCCJJ, CCJJJCJ, CCJCCC:If CJCJCCC > 4 Then str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJJCCCJJ("`Vm,`.k^2m ,]]]")
If CJCJCCC < PageCount - 3 Then CCJJJCJ = CJCJCCC + 3 Else CCJJJCJ = PageCount
For CCJCCC = CJCJCCC - 3 To CCJJJCJ:If CCJCCC >= 1 Then
If CCJCCC = CJCJCCC Then str = str & CJJCCCJJ(" ,k3m,") & CCJCCC & CJJCCCJJ(".k^3m") Else str = str & CJJCCCJJ(" ,k2 ,9C67lV") & CCCCCJ & CCJCCC & CJJCCCJJ("Vm,") & CCJCCC & CJJCCCJJ(".k^2m")
End If:Next:If CJCJCCC < PageCount - 3 Then str = str & CJJCCCJJ(" ,]]] ,k2 ,9C67lV") & CCCCCJ & PageCount & CJJCCCJJ("Vm,") & PageCount & CJJCCCJJ(".k^2m")
CJJCJCCJ = str:End Function:Private Function CJJCJCCC():Dim str:If CJCJCCC > 1 Then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJJCCCJJ("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC - 1 & CJJCCCJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJJCCCJJ("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJCJCCC < PageCount Then
str = str & CJJCCCJJ(" ,k2 ,9C67lV") & CCCCCJ & CJCJCCC + 1 & CJJCCCJJ("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & PageCount & CJJCCCJJ("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJJCCCJJ(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJJCJJJJ:CJJCJCCC = str:End Function:Private Function CJJCCJJJ():Dim str:if CJCJCCC>=2 then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC - 1 & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC - 1 & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJCCC-1 & CJJCCCJJ("k^2m")
end if:str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCJCCC & CJJCCCJJ("k^2m")
if pagecount>CJCJCCC then
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC + 1 & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?Vm") & CJCJCCC+1 & CJJCCCJJ("k^2m")
str = str & CJJCCCJJ("k2 ,9C67lV") & CCCCCJ & CJCJCCC + 1 & CJJCCCJJ("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJJCCJJJ=str:End Function:Private Function CJJCCJJC():Dim str:str=CJJCCCJJ("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCJCCC>=2 then
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCCJ & CJCJCCC - 1 & CJJCCCJJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCCJ & CJCJCCC - 1 & CJJCCCJJ("Vm") & CJCJCCC-1 & CJJCCCJJ("k^2mk^=:m")
end if:str = str & CJJCCCJJ("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CCCCCJ & CJCJCCC & CJJCCCJJ("Vm") & CJCJCCC & CJJCCCJJ("k^2mk^=:m")
if pagecount>CJCJCCC then
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCCJ & CJCJCCC + 1 & CJJCCCJJ("Vm") & CJCJCCC+1 & CJJCCCJJ("k^2mk^=:m")
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCCJ & CJCJCCC + 1 & CJJCCCJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCCJJ("k^F=m"):CJJCCJJC=str:End Function:Private Function CJJCCJCJ():Dim str:str=CJJCCCJJ("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCJCCC>=2 then
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCCJ & CJCJCCC - 1 & CJJCCCJJ("VmU=2BF@jk^2mk^=:m")
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCCJ & CJCJCCC - 1 & CJJCCCJJ("Vm") & CJCJCCC-1 & CJJCCCJJ("k^2mk^=:m")
end if:str = str & CJJCCCJJ("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CCCCCJ & CJCJCCC & CJJCCCJJ("Vm") & CJCJCCC & CJJCCCJJ("k^2mk^=:m")
if pagecount>CJCJCCC then
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCCJ & CJCJCCC + 1 & CJJCCCJJ("Vm") & CJCJCCC+1 & CJJCCCJJ("k^2mk^=:m")
str = str & CJJCCCJJ("k=:mk2 ,9C67lV") & CCCCCJ & CJCJCCC + 1 & CJJCCCJJ("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJJCCCJJ("k^F=m"):CJJCCJCJ=str:End Function:End Class::dim CCJCJJ:sql=Request.ServerVariables(CJJCCCJJ("!p%w0x}u~")):if instr(sql,CJJCCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJCJCJ and not CCJJJC then Call RedirectMessage(CJJCCCJJ("????????,????????????????????????,"))
CCJCJJ=CJJCCC
elseif instr(sql,CJJCCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJJCCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CCJCJJ=CJJCCC
elseif instr(sql,CJJCCCJJ("^D49@@="))>0 then
CCJCJJ=Request.QueryString(CJJCCCJJ("D49@@=")):if not CCCCCJJ(CCJCJJ) then CCJCJJ=Request.QueryString(CJJCCCJJ("F"))
if not CCCCCJJ(CCJCJJ) then CCJCJJ=Request.QueryString(CJJCCCJJ("D4"))
if not CCCCCJJ(CCJCJJ) then Call RedirectMessage(CJJCCCJJ("????????W$49@@=X??@??????????,"))
CCJCJJ=csng(CCJCJJ)
end if:if CCJCJJ=0 then Call RedirectMessage(CJJCCCJJ("????????W$49@@=X????W_X??,"))
Dim CCJJJCC:Call SetConfig:Sub SetConfig():dim CCJJCJJ,CJJJJJJ:sql=CJJCCCJJ("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") & CCJCJJ:set CJJJJJJ=CCCJJ.execute(sql):if CJJJJJJ.eof then Call RedirectMessage(CJJCCCJJ("??W") & CJJJJC & CJJCCCJJ("X??????????W") & CCJCJJ & CJJCCCJJ("X????????,"))
ReDim CCJJCJJ(61):CCJJCJJ(0)=CJJJJJJ(CJJCCCJJ(";:2@H6:")) & "":CCJJCJJ(1)=CJJJJJJ(CJJCCCJJ("EJA6")):CCJJCJJ(2)=CJJJJJJ(CJJCCCJJ("D>D")):CCJJCJJ(3)=CJJJJJJ(CJJCCCJJ("4FDE@>8C@FA")) & "":CCJJCJJ(4)=CJJJJJJ(CJJCCCJJ("D:5632C0@E96C")) & "":CCJJCJJ(5)=IIf(isnull(CJJJJJJ(CJJCCCJJ("E6DEC6DF=EG:6H"))),0,CJJJJJJ(CJJCCCJJ("E6DEC6DF=EG:6H"))):CCJJCJJ(6)=CJJJJJJ(CJJCCCJJ("K:IF?E:>6")):CCJJCJJ(7)=CJJJJJJ(CJJCCCJJ("766")):CCJJCJJ(8)=CJJJJJJ(CJJCCCJJ("C6E6DE52J")):CCJJCJJ(9)=CJJJJJJ(CJJCCCJJ("6IA:C652E6")):CCJJCJJ(10)=CJJJJJJ(CJJCCCJJ("E:E=6")):CCJJCJJ(11)=CJJJJJJ(CJJCCCJJ(":?EC@")) & "":CCJJCJJ(12)=CJJJJJJ(CJJCCCJJ("A:4EFC6")) & "":CCJJCJJ(13)=CJJJJJJ(CJJCCCJJ("72>:=J")):CCJJCJJ(14)=CJJJJJJ(CJJCCCJJ("4@AJC:89E")) & "":CCJJCJJ(15)=IIf(isnull(CJJJJJJ(CJJCCCJJ("D6>6DE6C0DE2CE052E6"))),CJJCCCJJ("`h__\`\`"),CJJJJJJ(CJJCCCJJ("D6>6DE6C0DE2CE052E6"))):CCJJCJJ(16)=IIf(isnull(CJJJJJJ(CJJCCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJJJ(CJJCCCJJ("K:IF?0E:>6D09:89=:89E"))):CCJJCJJ(17)=CJJJJJJ(CJJCCCJJ("4@?E24E")) & "":CCJJCJJ(18)=CJJJJJJ(CJJCCCJJ("D2?5E23=6")):CCJJCJJ(19)=CJJJJJJ(CJJCCCJJ("4C:D:D")):CCJJCJJ(20)=CJJJJJJ(CJJCCCJJ("JJ52E6")):CCJJCJJ(21)=CJJJJJJ(CJJCCCJJ("BB")):CCJJCJJ(22)=CJJJJJJ(CJJCCCJJ("JFJF60D>D0EA=")) & "":CCJJCJJ(23)=CJJJJJJ(CJJCCCJJ("JFJF60E6DE0=3")) & "":CCJJCJJ(25)=CJJJJJJ(CJJCCCJJ("6IA6CE")):CCJJCJJ(26)=CJJJJJJ(CJJCCCJJ(">@5:?7@")):CCJJCJJ(27)=CJJJJJJ(CJJCCCJJ("9@>6A286E@AA:4EFC6")) & "":CCJJCJJ(28)=CJJJJJJ(CJJCCCJJ("4C:D:D=3")):CCJJCJJ(29)=IIf(CJJJJJJ(CJJCCCJJ("4C:D:D@=5")),False,True):CCJJCJJ(30)=CJJJJJJ(CJJCCCJJ("8C@FA8F:52?46")):CCJJCJJ(31)=CJJJJJJ(CJJCCCJJ("3:@7665324<")):CCJJCJJ(32)=CJJJJJJ(CJJCCCJJ("<6JDEC")):CCJJCJJ(33)=CJJJJJJ(CJJCCCJJ("=@8@")) & "":CCJJCJJ(34)=CJJJJJJ(CJJCCCJJ("K:46")):CCJJCJJ(35)=IIf(CJJJJJJ(CJJCCCJJ(":D?6H")),True,False):CCJJCJJ(36)=121:CCJJCJJ(37)=111:CCJJCJJ(38)=160:CCJJCJJ(39)=CJJJJJJ(CJJCCCJJ("8F6DE3@@<")):CCJJCJJ(40)=CJJJJJJ(CJJCCCJJ("75D")):CCJJCJJ(42)=CJJJJJJ(CJJCCCJJ("9@>6=@8:?")):CCJJCJJ(43)=CJJJJJJ(CJJCCCJJ("K:IF?0?6657665324<")):CCJJCJJ(44)=CJJJJJJ(CJJCCCJJ("K:IF?0E:>6D0=:>:E")):CCJJCJJ(45)=CJJJJJJ(CJJCCCJJ("4@>A=6E60:?7@")):CCJJCJJ(46)=CJJJJJJ(CJJCCCJJ("E6DE:?EC@")) & "":CCJJCJJ(47)=IIf(isnull(CJJJJJJ(CJJCCCJJ("JFJF60367@C60E:>6"))),0,CJJJJJJ(CJJCCCJJ("JFJF60367@C60E:>6"))):CCJJCJJ(49)=CJJJJJJ(CJJCCCJJ("D>D0C646:G6C")):CCJJCJJ(50)=CJJJJJJ(CJJCCCJJ("D>D0D:8?")) & "":CCJJCJJ(52)=CJJJJJJ(CJJCCCJJ("JFJF602CC2?86")):CCJJCJJ(53)=IIf(isnull(CJJJJJJ(CJJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJJJ(CJJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJCJJ(54)=CJJJJJJ(CJJCCCJJ("9:560=30@FE@7286")):CCJJCJJ(55)=CJJJJJJ(CJJCCCJJ("JFJF60E6DE052JD")):CCJJCJJ(56)=CJJJJJJ(CJJCCCJJ("JFJF60H66<0=:>:E")):CCJJCJJ(57)=CJJJJJJ(CJJCCCJJ("JFJF604964<65")):CCJJCJJ(58)=CJJJJJJ(CJJCCCJJ("K:IF?0?6657665324<0?6IE")):CCJJCJJ(59)=CJJJJJJ(CJJCCCJJ("4964<?6HDEF56?E")):CCJJCJJ(60)=CJJJJJJ(CJJCCCJJ("K:IF?04=@D6052E6")):CJJJJJJ.close : set CJJJJJJ=nothing:if isNull(CCJJCJJ(8)) or CCJJCJJ(8)="" then CCJJCJJ(8)=0
if isdate(CCJJCJJ(9)) then
CCJJCJJ(9)=cdate(CCJJCJJ(9)):if CCJJCJJ(9)<Date then Call RedirectMessage(CJJCCCJJ("????????,????????????????W") & CCJJCJJ(9) & CJJCCCJJ("X??????,"))
end if:if not CCCCCJJ(CCJJCJJ(20)) then CCJJCJJ(20)=7
select case CCJJCJJ(1):case 1,2,16:CCJJCJJ(36)=159:case 4,5,6,10,11:CCJJCJJ(36)=190:CCJJCJJ(37)=178:CCJJCJJ(38)=191:case 7,13:CCJJCJJ(36)=164:CCJJCJJ(37)=178:CCJJCJJ(38)=179:end select:CCJJJCC=CCJJCJJ:End Sub:Function CJJJJJJJ(CJCCJJJJ):dim CCJJCJJ(7,1),CCJCCC,CCJJCJC,CCJJCCJ:CCJJCJC=Array(CJJCCCJJ("$49@@="),CJJCCCJJ("$EF56?E"),CJJCCCJJ("s6AE"),CJJCCCJJ("vC256"),CJJCCCJJ("r=2DD>2E6"),CJJCCCJJ("}F>36C"),CJJCCCJJ("%62496C"),CJJCCCJJ("!2C6?E")):select case CCJJJCC(1):case 1,2 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 3,16 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 4 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 5 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 6 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 7 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 8 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("??????@"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 9 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 10 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 11 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 12 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 13 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????")):case 14 : CCJJCCJ=Array(CJJCCCJJ("??????"),CJJCCCJJ("??@??"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case 15 : CCJJCCJ=Array(CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????????"),CJJCCCJJ("????"),CJJCCCJJ("????"),CJJCCCJJ("??????"),CJJCCCJJ("????")):case else : CCJJCCJ=CCJJCJC
end select:for CCJCCC=0 to Ubound(CCJJCJJ):CCJJCJJ(CCJCCC,0)=CCJJCJC(CCJCCC):CCJJCJJ(CCJCCC,1)=CCJJCCJ(CCJCCC):next:for CCJCCC=0 to Ubound(CCJJCJJ):if CCJJCJJ(CCJCCC,0)=CJCCJJJJ then
CJJJJJJJ=CCJJCJJ(CCJCCC,1):exit for
end if:next:End Function::if not CCJJJCC(27) then Call RedirectMessage(CJJCCCJJ("????????M????????,??????????????????????,"))
Call WriteCurrentURL:dim CCJCCC,CJJJCJC,CCJJCCC,CCJCJJJ,CCJCJJC,CCJCCJ,CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC:CJJJCJC=CCCCJJC(Request.QueryString(CJJCCCJJ("}F>"))):CCJJCCC=CCCCJJC(Request.QueryString(CJJCCCJJ("}:4<"))):CCJCJJJ=Request.QueryString(CJJCCCJJ("s6AE")):CCJCCJJ=Request.QueryString(CJJCCCJJ("vC256")):CCJCJJC=Request.QueryString(CJJCCCJJ("!@DE")):CCJCCJ=Request.QueryString(CJJCCCJJ("!")):CCJCJCJ=Request.QueryString(CJJCCCJJ("$")):CCJCJCC=Request.QueryString(CJJCCCJJ("$6I")):CCJCCJC=CCCCJJC(Request.QueryString(CJJCCCJJ(">@3:=6"))):dim CJJCJJJ:set CJJCJJJ=new jtree:CJJCJJJ.table=CJJCCCJJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJCCCJJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCCCJJ("k9E>=m") & vbCrLf):Response.Write(CJJCCCJJ("k9625m") & vbCrLf):Response.Write(CJJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCCCJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJCCCJJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];EC66];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWQRs6AEQX];%C66$6=64EWXj") & vbCrLf):Response.Write(CJJCCCJJ(" ,^^????????@????") & vbCrLf):Response.Write(CJJCCCJJ(" ,SWVR3E?0D6?5>D8VX]4=:4<W7F?4E:@?W6X ,L@A6?WQ]]^]]^>6DD286^HC:E6]2DAn:DDJDl`UC646:G6ClQZSWQE23=6]E30=:DEQX]52E2WQ4964<65QX[Q|D8(:?Q[QH:5E9le__[96:89Elb__QXjNXj") & vbCrLf):Response.Write(CJJCCCJJ("NXj") & vbCrLf):Response.Write(CJJCCCJJ("^^????????????") & vbCrLf):Response.Write(CJJCCCJJ("7F?4E:@? ,@A6?$EF56?Ex?7@(:?W:5XL") & vbCrLf):Response.Write(CJJCCCJJ(" ,@A6?WQDEF56?E:?7@]2DAn:5lQZ:5[Q$EF56?Ex?7@Q[QH:5E9ldd_[96:89Elb__[D4C@==32CDlJ6DQXj") & vbCrLf):Response.Write(CJJCCCJJ("N") & vbCrLf):Response.Write(CJJCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("k^9625m") & vbCrLf):Response.Write(CJJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE23=6 ,H:5E9lQ`__TQ ,46==DA24:?8lQ`Q ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9 ,C@HDA2?lQaQm?,")):Response.Write CJJJJJJJ(CJJCCCJJ("!2C6?E")):Response.Write(CJJCCCJJ("?,k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qmxs??,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJJJCJC:Response.Write(CJJCCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQ$6IQ ,:5lQ$6IQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write IIf(CCJCJCC="1",CJJCCCJJ("D6=64E65"),""):Response.Write(CJJCCCJJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write IIf(CCJCJCC="0",CJJCCCJJ("D6=64E65"),""):Response.Write(CJJCCCJJ("m??k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJJJJJJ(CJJCCCJJ("s6AE")):Response.Write(CJJCCCJJ("??,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQs6AEQ ,:5lQs6AEQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):Call CJJCJJJ.ShowTree_Select(CJJCJJ, CCJCJJJ):Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQ$Q ,:5lQ$Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQEJA60D@CEQ ,")):Response.Write IIf(CCJCJCJ=CJJCCCJJ("EJA60D@CE"),CJJCCCJJ("D6=64E65"),""):Response.Write(CJJCCCJJ("m")):Response.Write CJJJJJJJ(CJJCCCJJ("s6AE")):Response.Write(CJJCCCJJ("k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ3:CE952J ,56D4Q ,")):Response.Write IIf(CCJCJCJ=CJJCCCJJ("3:CE952J ,56D4"),CJJCCCJJ("D6=64E65"),""):Response.Write(CJJCCCJJ("m????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ=2DEE:>6 ,56D4Q ,")):Response.Write IIf(CCJCJCJ=CJJCCCJJ("=2DEE:>6 ,56D4"),CJJCCCJJ("D6=64E65"),""):Response.Write(CJJCCCJJ("m????????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQ=@8E:>6D ,56D4Q ,")):Response.Write IIf(CCJCJCJ=CJJCCCJJ("=@8E:>6D ,56D4"),CJJCCCJJ("D6=64E65"),""):Response.Write(CJJCCCJJ("m????????k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJJCCC:Response.Write(CJJCCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,:5lQ>@3:=6Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCCJC:Response.Write(CJJCCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQ8C256Q ,:5lQ8C256Qm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):Call ShowListSelect(CJJCCCJJ(">6>36C08C256"),IIf(CCJJJCC(1)<=2,0,CJJCCC),CCJCCJJ):Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mkD6=64E ,?2>6lQ!Q ,:5lQ!Q ,@?492?86lQ;2G2D4C:AEi7@C>`]DF3>:EWXQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k@AE:@? ,G2=F6lQQm??,??,??,??,k^@AE:@?m") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):for CCJCCC=10 to 100 step 10:response.write CJJCCCJJ("k@AE:@? ,G2=F6lV") & CCJCCC & CJJCCCJJ("V") & IIf(CCJCCJ=cstr(CCJCCC),CJJCCCJJ(" ,D6=64E65"),"") & CJJCCCJJ("m") & CCJCCC & CJJCCCJJ("??k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ????????????Q ,@?4=:4<lQ;2G2D4C:AEi=@42E:@?lVnVQ ,^m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,E:E=6lQ????????????")):Response.Write CJJJJJJJ(CJJCCCJJ("$EF56?E")):Response.Write(CJJCCCJJ("??????????tI46=??????Q ,5:D23=65lQ5:D23=65Q ,@?4=:4<lQ;2G2D4C:AEi7@C>a]24E:@?lVDEF56?E6IA@CE]2DAn24El4964<65Vj7@C>a]DF3>:EWXjQ ,^m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ????????Q ,E:E=6lQ??????????????????????????tI46=????????,????????????????????????????????Q ,5:D23=65lQ5:D23=65Q ,@?4=:4<lQ;2G2D4C:AEi7@C>a]24E:@?lVDEF56?E6IA@CE]2DAn24El2==Vj7@C>a]DF3>:EWXjQ ,^m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0D6?5>D8Q ,G2=F6lQ????????Q ,E:E=6lQ??????????")):Response.Write CJJJJJJJ(CJJCCCJJ("!2C6?E")):Response.Write(CJJCCCJJ("????????@????Q ,^m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,E:E=6lQ??????????????")):Response.Write CJJJJJJJ(CJJCCCJJ("!2C6?E")):Response.Write(CJJCCCJJ("????Q ,@?4=:4<lQ;2G2D4C:AEi:7W4@?7:C>WV??????????????????")):Response.Write CJJJJJJJ(CJJCCCJJ("!2C6?E")):Response.Write(CJJCCCJJ("????????,????????????????????,-?-?????,??????,????-?????,??????,??????VXXL7@C>a]24E:@?lVDEF56?E56=]2DAVj7@C>a]DF3>:EWXjNQ ,^m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Q ,^m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCCCJJ("k^7@C>m") & vbCrLf):Response.Write(CJJCCCJJ("k3C ,^m") & vbCrLf)::if CCJCJJC="1" then
sql=CJJCCCJJ("H96C6 ,DE2E6ld ,2?5 ,:D!2C6?El` ,2?5 ,") & CJJCJJJ.Sql_GetChildren(CJJCJJ):if CCCCCJJ(CCJCCJJ) then sql=sql & CJJCCCJJ(" ,2?5 ,8C256l") & CCJCCJJ
if CCCCCJJ(CJJJCJC) then sql=sql & CJJCCCJJ(" ,2?5 ,xsl") & CJJJCJC
if CCJJCCC<>"" then sql=sql & CJJCCCJJ(" ,2?5 ,C62=?2>6lV") & CCJJCCC & CJJCCCJJ("V")
if CCCCCJJ(CCJCJCC) then sql=sql & CJJCCCJJ(" ,2?5 ,D6Il") & CCJCJCC
if CCJCCJC<>"" then sql=sql & CJJCCCJJ(" ,2?5 ,>@3:=6lV") & CCJCCJC & CJJCCCJJ("V")
if CCJCJCJ="" then sql=sql & CJJCCCJJ(" ,@C56C ,3J ,:5") else sql=sql & CJJCCCJJ(" ,@C56C ,3J ,") & CCJCJCJ
Session(CJJCCCJJ("!$*0$B="))=sql:sql=CJJCCCJJ("D6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[3:CE952J[EJA6?2>6[=2DEE:>6[=2DE:A[=@8E:>6D[>@3:=6 ,7C@> ,G0>6>36C ,") & sql:dim CCJCCCJ:set CCJCCCJ=new splitpage:with CCJCCCJ:.sql=sql:.pagesize=IIf(CCCCCJJ(CCJCCJ),CCJCCJ,20):.style=5:end with:set rs=CCJCCCJ.rs:If rs.Eof then
Call ShowMessage(CJJCCCJJ("????????,????????????????????@????,"))
Else
dim CCJCCCC:Response.Write(vbCrLf):Response.Write(CJJCCCJJ("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Q ,46==DA24:?8lQ`Q ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m??k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ4964<2==Q ,:5lQ4964<2==Q ,^mk^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9mxsk^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m")):Response.Write CJJJJJJJ(CJJCCCJJ("s6AE")):Response.Write(CJJCCCJJ("k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9mx!k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):for CCJCCC=1 to CCJCCCJ.pagesize:CCJCCCC=rs(0):Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCJCCCJ.listnum(CCJCCC):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,G2=F6lQ")):Response.Write CCJCCCC:Response.Write(CJJCCCJJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write CCJCCCC:Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5mk2 ,9C67lQ;2G2D4C:AEi@A6?$EF56?Ex?7@(:?W")):Response.Write CCJCCCC:Response.Write(CJJCCCJJ("XQm")):Response.Write rs(2):Response.Write(CJJCCCJJ("k^2mk^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(3):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write rs(5):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(9):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm")):Response.Write rs(8):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5m")):Response.Write CJJJJJCJ(rs(7)):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJJJJCC(rs(6),0):Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,kE5 ,4@=DA2?lQ``Q ,4=2DDlQE5`Qm")):Call CCJCCCJ.showpage:Response.Write(CJJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCCCJJ(" ,k:?AFE ,?2>6lQ24EQ ,EJA6lQ9:556?Q ,:5lQ24EQ ,^m") & vbCrLf):Response.Write(CJJCCCJJ("k^7@C>m") & vbCrLf):Response.Write(CJJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCCCJJ("SWVR3E?0D6?5D>D[R3E?0D6?5>2:=[R3E?0D6?5>D8VX]AC@AWV5:D23=65V[72=D6Xj") & vbCrLf):Response.Write(CJJCCCJJ("k^D4C:AEm") & vbCrLf)
End If:set CCJCCCJ=nothing
else
response.write CJJCCCJJ("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJJ=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CCCCC.Close:Set CCCCC=Nothing:rs.Close:Set rs=Nothing:CCCJJ.Close:Set CCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCCCJJ(ByVal CJJCCJCC)
Dim CCCJJJJ, CCJCCC, CCCCJJ
CJJCCJCC = Replace(CJJCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCC = 1 To Len(CJJCCJCC)
If CCJCCC <> CCCCJJ Then
CCCJJJJ = AscW(Mid(CJJCCJCC, CCJCCC, 1))
If CCCJJJJ >= 33 And CCCJJJJ <= 79 Then
CJJCCCJJ = CJJCCCJJ & Chr(CCCJJJJ + 47)
ElseIf CCCJJJJ >= 80 And CCCJJJJ <= 126 Then
CJJCCCJJ = CJJCCCJJ & Chr(CCCJJJJ - 47)
Else
CCCCJJ = CCJCCC + 1
If Mid(CJJCCJCC, CCCCJJ, 1) = Chr(64) Then CJJCCCJJ = CJJCCCJJ & ChrW(CCCJJJJ + 5) Else CJJCCCJJ = CJJCCCJJ & Mid(CJJCCJCC, CCJCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de