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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJJ, CCJJC,rs, CCJCC, sql:Set CCJJJ = server.CreateObject(CJCJJCCC("ps~sq]r@??64E:@?")):CCJJJ.open Application(CJCJJCCC("r@??64E:@?$EC:?8")):Set CCJJC=CCJJJ::Function CCCCCJJ(CJCJCJJJ):Dim str,CCCCJ:str = Trim(CJCJCJJJ):If IsNull(str) Or str = "" Then
CCCCCJJ = ""
else
str=Replace(str, CJCJJCCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJJCCC("k:7C2>6"), CJCJJCCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJJCCC("kD4C:AE"), CJCJJCCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCCJ=new RegExp:CCCCJ.Pattern=CJCJJCCC("@?W,2\K.ZXl"):CCCCJ.IgnoreCase = True:CCCCJ.Global=True:str=CCCCJ.Replace(str,CJCJJCCC("@?S`U6BF2=Dj")):set CCCCJ=nothing:CCCCCJJ=str
End If:End Function:Function IIf(CJCJCJJC, CJCJCJCJ, CJCJCJCC):if isnull(CJCJCJJC) or isempty(CJCJCJJC) then
IIf = CJCJCJCC
elseif CJCJCJJC Then
IIf = CJCJCJCJ
Else
IIf = CJCJCJCC
end if:End Function:Const CCCJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJCJJCCC("FE7\g"):dim CCCCC,CJJJJJ,CJJJJC:if isarray(str) then
on error resume next:CCCCC=ubound(str,2):CJJJJC=err.number:err.clear:on error goto 0:if CJJJJC<>0 then
for CCCCC=0 to ubound(str):if CCCCC>0 then response.Write CJCJJCCC("k3C ,^m")
response.Write CCCCC & CJCJJCCC("i ,") & str(CCCCC):next
else
response.Write CJCJJCCC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCCCC=0 to ubound(str,2):response.Write CJCJJCCC("kE9 ,2=:8?lV=67EVm") & CCCCC & CJCJJCCC("k^E9m")
next:response.Write CJCJJCCC("k^ECm"):for CCCCC=0 to ubound(str):response.Write CJCJJCCC("kECmkE9m") & CCCCC & CJCJJCCC("k^E9m"):for CJJJJJ=0 to ubound(str,2):response.Write CJCJJCCC("kE5m") & str(CCCCC,CJJJJJ) & CJCJJCCC("k^E5m"):next:response.Write CJCJJCCC("k^ECm"):next:response.Write CJCJJCCC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJJCCC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJJCCC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCCCCCJ():Dim CJJJCJ, CJJJCC:CJJJCC = Request.ServerVariables(CJCJJCCC("!p%w0x}u~")):CJJJCJ = Request.ServerVariables(CJCJJCCC("""&t#*0$%#x}v")):If CJJJCJ <> Empty Then
if instr(lcase(CJJJCJ),CJCJJCCC("Tb4:7C2>6"))>0 or instr(lcase(CJJJCJ),CJCJJCCC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJCJJCCC("????????,????????????????????????,??,??,"))
CJJJCC = CJJJCC & CJCJJCCC("n") & CJJJCJ
end if:CCCCCCJ = CJJJCC:End Function:Sub SetHttpOnlyCookie(CJCJCCJJ,CJCJCCJC):dim CJJCJJ:CJJCJJ=CJCJCCJJ & CJCJJCCC("l") & CJCJCCJC & CJCJJCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJCCC("$6E\r@@<:6"),CJJCJJ):End Sub::::::sub ShowMessage(CJCJCCCJ):response.Charset="utf-8":Response.Write CJCJJCCC("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") & CJCJCCCJ & CJCJJCCC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCCCCCC(CJJJJC):if isnull(CJJJJC) or trim(CJJJJC)="" or not isnumeric(CJJJJC) then
CCCCCCC=false
else
Dim CCCCJ:Set CCCCJ = New RegExp:CCCCJ.Pattern = CJCJJCCC("/-5ZS"):CCCCJ.IgnoreCase = True:CCCCCCC = CCCCJ.test(CJJJJC):set CCCCJ=nothing
end if:End Function:Function CJJJJJJJ(CJCJCCCC):dim CJJCJC,CJJCCJ:CJJCJC=CJCJJCCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJCCCC & CJCJJCCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCCJ=CCJJJ.execute(CJJCJC):CJJJJJJJ = CJJCCJ(0):if isnull(CJJJJJJJ) then CJJJJJJJ=1
CJJCCJ.close : set CJJCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJJJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:CJJCCJ.close : set CJJCCJ=nothing:CCJCC.Close : Set CCJCC=Nothing:rs.Close : Set rs=Nothing:CJJJJCJJ.Close : Set CJJJJCJJ = Nothing:CCJJJ.Close : Set CCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJCCC("!$*0|6DD286"),server.URLEncode(CJCJCCCJ)):Response.Redirect CJCJJCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::function CJJJJCJC(CJJJCCJ):dim CJJCCC(),CCCCC,CJJCCJ,CJJCJC:redim CJJCCC(1,0):CJJCCC(0,0)=0:CJJCCC(1,0)=CJCJJCCC(",??."):CJJCJC=CJCJJCCC("D6=64E ,:5[C62=?2>6 ,7C@> ,G0>6>36C ,H:E9 ,W?@=@4<X ,H96C6 ,>6>36C0EJA60E@Al") & CJJJCCJ & CJCJJCCC(" ,2?5 ,DE2E6ld ,2?5 ,:D4@?DF=E2?El`"):if cstr(CJJJCCJ)<>"1" then CJJCJC=CJJCJC & CJCJJCCC(" ,2?5 ,,8C@FA.kd")
CJJCJC=CJJCJC & CJCJJCCC(" ,@C56C ,3J ,:5"):set CJJCCJ=CCJJJ.execute(CJJCJC):CCCCC=0:while not CJJCCJ.eof:redim preserve CJJCCC(1,CCCCC):CJJCCC(0,CCCCC)=CJJCCJ(0):CJJCCC(1,CCCCC)=CJJCCJ(1):CCCCC=CCCCC+1:CJJCCJ.movenext:wend:CJJCCJ.close : set CJJCCJ=nothing:CJJJJCJC=CJJCCC:end function::Function CJJJJCCJ(ByVal CJJJJCCC,style):if not isdate(CJJJJCCC) then
CJJJJCCJ=CJJJJCCC:exit function
end if:dim CJCJJJ,CJJCCC,CJCJJC,CJCJCJ:CJJJJCCC=cdate(CJJJJCCC):CJCJJJ=Year(CJJJJCCC):CJJCCC=Month(CJJJJCCC):CJCJJC=Day(CJJJJCCC):select case style:case 0:CJJJJCCJ=CJCJJJ & CJCJJCCC("\") & right(0 & CJJCCC,2) & CJCJJCCC("\") & right(0 & CJCJJC,2):case 1:CJJJJCCJ=CJCJJJ & right(0 & CJJCCC,2) & right(0 & CJCJJC,2):case 2:CJJJJCCJ=right(CJCJJJ,2) & CJCJJCCC("\") & right(0 & CJJCCC,2) & CJCJJCCC("\") & right(0 & CJCJJC,2):case 3:CJJJJCCJ=CJCJJJ & CJCJJCCC("\") & right(0 & CJJCCC,2):case 4:CJJJJCCJ=right(0 & CJJCCC,2) & CJCJJCCC("\") & right(0 & CJCJJC,2):case 5:CJJJJCCJ=right(0 & CJCJJC,2):case 6:CJJJJCCJ=CJCJJJ & CJCJJCCC("??") & right(0 & CJJCCC,2) & CJCJJCCC("??") & right(0 & CJCJJC,2) & CJCJJCCC("??"):case else
CJJJJCCJ=CJJJJCCC:end select:End Function:Function CJJJCJJJ(Table):Dim CJJCCJ, CJCJCC, str(), CCCCC,CJJJJJ,CJCCJJ:CJCCJJ=UCase(Table):If Not IsArray(Application(CJCJJCCC("!$*0") & CJCCJJ)) Then
Sql=CJCJJCCC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJCJJCCC(". ,@C56C ,3J ,D@CE[:5"):set CJJCCJ=server.createobject(CJCJJCCC("25@53]C64@C5D6E")):CJJCCJ.open sql,CCJJJ,1:CJCJCC = CJJCCJ.RecordCount:ReDim str(CJCJCC, 2):If CJCJCC > 0 Then
For CCCCC = 1 To CJCJCC:for CJJJJJ=0 to 2:str(CCCCC, CJJJJJ) = CJJCCJ(CJJJJJ):next:CJJCCJ.MoveNext:Next
End If:CJJCCJ.Close: Set CJJCCJ = Nothing:Application(CJCJJCCC("!$*0") & CJCCJJ) = str
End If:CJJJCJJJ = Application(CJCJJCCC("!$*0") & CJCCJJ):End Function:Sub ShowListSelect(CJCJCCCC,CJCCJJJJ,CJCCJJJC):Dim str, CCCCC, CJCCJC:CJCCJC = CJJJCJJJ(CJCJCCCC):For CCCCC = 1 To UBound(CJCCJC):if Cstr(CJCCJC(CCCCC,2))=Cstr(CJCCJJJJ) then
str = str & CJCJJCCC("k@AE:@? ,G2=F6lV") & CJCCJC(CCCCC, 0) & CJCJJCCC("V")
If CStr(CJCCJC(CCCCC, 0)) = CJCCJJJC & "" Then str = str & CJCJJCCC(" ,D6=64E65lVD6=64E65V")
str = str & CJCJJCCC("m") & CJCCJC(CCCCC, 1) & CJCJJCCC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CJJJCJJC(CJCJCCCC,CJCCJJJJ,CJJCJCCJ):Dim str, CCCCC, CJCCJC:CJCCJC = CJJJCJJJ(CJCJCCCC):For CCCCC = 1 To UBound(CJCCJC):if Cstr(CJCCJC(CCCCC,2))=Cstr(CJCCJJJJ) and CStr(CJCCJC(CCCCC, 0)) = CJJCJCCJ & "" then
str=CJCCJC(CCCCC,1):exit for
end if:Next:if str="" then str=CJCJJCCC(",????.")
CJJJCJJC=str:End Function:::::::::::::::Function CJJJCJCJ(CJCCJJCJ,str):dim CCCCC,CJCCCJ,CJCCCC,CJJCCC,CJJJJC,CCJJJJ,CCJJJC:CCJJJC=ucase(CJCCJJCJ):CCJJJJ=str:if CCJJJJ="" then
CCJJJJ=request.cookies(CCJJJC):if CCJJJJ="" then
CJJJCJCJ=""
else
CCJJJJ=strreverse(CCJJJJ):CJCCCJ=len(CCJJJJ):for CCCCC=1 to CJCCCJ-1 step 2:CJJCCC=mid(CCJJJJ,CCCCC,1):CJJJJC=mid(CCJJJJ,CCCCC+1,1):CJCCCC=CJCCCC & CJJJJC & CJJCCC:next:CJCCCC=replace(CJCCCC,CJCJJCCC("L0N"),CJCJJCCC(" ,")):CJCCCC=replace(CJCCCC,CJCJJCCC("LIN"),CJCJJCCC("Y")):CJCCCC=replace(CJCCCC,CJCJJCCC("L:N"),CJCJJCCC("^")):CJJJCJCJ=trim(CJCCCC)
end if
else
if Len(CCJJJJ) Mod 2=1 then CCJJJJ=CCJJJJ & CJCJJCCC(" ,")
CCJJJJ=replace(CCJJJJ,CJCJJCCC(" ,"),CJCJJCCC("L0N")):CCJJJJ=replace(CCJJJJ,CJCJJCCC("Y"),CJCJJCCC("LIN")):CCJJJJ=replace(CCJJJJ,CJCJJCCC("^"),CJCJJCCC("L:N")):CJCCCJ=len(CCJJJJ):for CCCCC=1 to CJCCCJ-1 step 2:CJJCCC=mid(CCJJJJ,CCCCC,1):CJJJJC=mid(CCJJJJ,CCCCC+1,1):CJCCCC=CJCCCC & CJJJJC & CJJCCC:next:CJCCCC=Trim(strreverse(CJCCCC)):CJJJCJCJ=CJCCCC:response.cookies(CCJJJC)=CJCCCC
end if:End Function::Sub ClearCache(CJCCJJCC):Application.Contents.Remove CJCCJJCC
End Sub::Dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ:CJJJCJJ=Trim(Request.Cookies(CJCJJCCC("!$*|t|qt#"))):if CJJJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCJ>0 then
sql=CJCJJCCC("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CCJJCC & CJCJJCCC("V ,2?5 ,:5l") & CCJJCJ
set rs=CCJJJ.execute(sql):If rs.EOF Then
Call ClearMemberCookie
Else
CCJCJJ=rs(2) & "":CCJCJC=rs(3):CCJCCJ=rs(5):CCJCCC=rs(6):CCCJJJ=rs(9):CCCJJC=rs(15):CCCJCC=rs(0):CJJJJCJ=rs(1):CJJJJJC=rs(11) & "":CCCCJJ=rs(10) & "":CCCJCJ=rs(12):CCCCJC=rs(14):CCCCCJ=rs(13):CCCCCC=rs(7) & "":CJJJJJJ=rs(4):CJJJJCC=rs(8):if isnull(CCCJJC) then CCCJJC=0
if isnull(CCCJJJ) or CCCJJJ=0 then CCCJJJ=CCJCJC
if isnull(CJJJJJJ) then CJJJJJJ=0
if isnull(CCJCCJ) then CCJCCJ=0
if instr(CJCJJCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJCC)>0 then Call RedirectMessage(CJCJJCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJJCJ,CCJJCC)
End IF
end if:Sub CheckRight(CJCJCC):dim CCCCC,CJJJCJC:if CCJJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJCCC("??????????????,????????????,"))
elseIf not CJJJCJCC(CJCJCC) then
Call RedirectMessage(CJCJJCCC("????W") & CJCJCC & CJCJJCCC("X????????,????????????????????,"))
end if:End Sub:Function CJJJCJCC(CJCJCC):dim CCCCC,CJJJCJC:CJJJCJC=split(CJCJCC,CJCJJCCC("[")):CJJJCJCC=False:for CCCCC=0 to ubound(CJJJCJC):If Mid(CCJCJJ,CJJJCJC(CCCCC),1)="1" then
CJJJCJCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJCCJ:CJJJCCJ=trim(request.QueryString(CJCJJCCC("D49@@="))):if isnumeric(CJJJCCJ) then
response.Redirect CJCJJCCC("^>^G2?E^R^D49@@=^") & CJJJCCJ & CJCJJCCC("^DEF56?E^=@8:?nC65:C64El") & CJJJCC
else
Call RedirectMessage(CJCJJCCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJCCC("!$*|t|qt#"))="":CCJJCJ=0:CCJCCC=0:CCJJCC=Empty:CCJCCJ=0:CCCJJC=0:CCCJJJ=0:CCJCJC=0:CCCJCC=False:CJJJJCJ=False:CJJJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJ,CJJJCCC,CCCCC,CJJJJJ,CCJJJC:CJJCJJ=split(CJJJCJJ,CJCJJCCC("]")):if ubound(CJJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJ(0)) or len(CJJCJJ(1))<>32 or len(CJJCJJ(2))<>32 then
Call ClearMemberCookie
else
CJJJCCC=CJJCJJ(1):for CCCCC=1 to len(CJJJCCC):CJJJJJ=mid(CJJJCCC,CCCCC,1):if isnumeric(CJJJJJ) then CCJJJC=CCJJJC & CJJJJJ
if len(CCJJJC)=7 then exit for
next:CJJJCCC=CJJCJJ(2):if CCJJJC<>mid(CJJJCCC,6,7) then
Call ClearMemberCookie
else
CJJJJJ=mid(CJJJCCC,18,10)/2:if CJJJJJ<DateDiff(CJCJJCCC("D"), CJCJJCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCJ=Clng(CJJCJJ(0)):CCJJCC=CJJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCJCCJ,CJCCJCJJ):dim CCCCC,CJJJJJ,CCJJJC:for CCCCC=1 to len(CJCCJCJJ):CJJJJJ=mid(CJCCJCJJ,CCCCC,1):if isnumeric(CJJJJJ) then CCJJJC=CCJJJC & CJJJJJ
if len(CCJJJC)=7 then exit for
next:CCJJJC=CJJCJCCJ & CJCJJCCC("]") & CJCCJCJJ & CJCJJCCC("]") & Fix(10000*(Rnd+1)) & CCJJJC & Fix(10000*(Rnd+1)) & DateDiff(CJCJJCCC("D"), CJCJJCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJCCC("!$*|t|qt#"))=CCJJJC: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(CJCCJCJC):if CJCCJCJC="" then Call RedirectMessage(CJCJJCCC("????????,;%C66????????????????????@??????????,"))
CJJCJCC=CJCCJCJC:CJJCCJJ=CJCJJCCC("!$*0") & UCase(CJJCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCJCC:End Property:::Private Sub GetTreeArray():Dim CCCCC, CJJJJJ, CJJCCCC,RecordCount:CJJCJJJ = Application(CJJCCJJ):If Not IsArray(CJJCJJJ) Then
Sql = CJCJJCCC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCJCC:if CJJCCJC<>"" then Sql=Sql & CJCJJCCC(" ,H96C6 ,") & CJJCCJC
set CJJCCCC=CCJJJ.execute(sql):RecordCount=CJJCCCC(0):if RecordCount=0 then Call RedirectMessage(CJCJJCCC("????W") & CJJCJCC & CJCJJCCC("^") & CJJCCJC & CJCJJCCC("X????????????"))
CJJCJCJ=RecordCount+CJJCCCJ:ReDim CJJCJJJ(CJJCJCJ, 4):Sql = CJCJJCCC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CJCJJCCC(" ,H:E9 ,W?@=@4<X"):if CJJCCJC<>"" then Sql=Sql & CJCJJCCC(" ,H96C6 ,") & CJJCCJC
Sql=Sql & CJCJJCCC(" ,@C56C ,3J ,D@CE[:5"):set CJJCCCC=CCJJJ.execute(sql):For CCCCC = 1 To RecordCount:For CJJJJJ = 0 To 4:CJJCJJJ(CCCCC, CJJJJJ) = CJJCCCC(CJJJJJ):if IsNull(CJJCJJJ(CCCCC,4)) then CJJCJJJ(CCCCC,4)=0
If CJJCJJJ(CCCCC,2)="" then CJJCJJJ(CCCCC,2)=CJCJJCCC(",??.")
Next:CJJCCCC.MoveNext:Next:CJJCCCC.Close: Set CJJCCCC = Nothing:for CCCCC=CJJCJCJ-(CJJCCCJ-1) to CJJCJCJ:CJJCJJJ(CCCCC,0)=CCCCC:next:Application.Lock():Application(CJJCCJJ) = CJJCJJJ:Application.UnLock()
else
CJJCJCJ=Ubound(CJJCJJJ)
End If:End Sub:::::Private Function CJJJCCJC(CJJCJCCJ):dim CCCCC,CJCJJJC:CJJJCCJC=0:CJCJJJC=CStr(CJJCJCCJ):if CJCJJJC<>"0" then
for CCCCC=1 to CJJCJCJ:If CStr(CJJCJJJ(CCCCC, 0))=CJCJJJC Then
CJJJCCJC = CCCCC:Exit For
End If:Next
end if:End Function:Public Function CJJJCCCJ(CJJCJCCJ):if Cstr(CJJCJCCJ)="0" then
CJJJCCCJ=CJCJJCCC("??")
else
Dim CCCCC,CJJCCCC:CCCCC=CJJJCCJC(CJJCJCCJ):if CCCCC>0 then
CJJJCCCJ=CJJCJJJ(CCCCC,2):if CJJJCCCJ="" then
set CJJCCCC=CCJJJ.execute(CJCJJCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CJCJJCCC(" ,H96C6 ,:5l") & CJJCJCCJ):if CJJCCCC.eof then Call RedirectMessage(CJCJJCCC("xs??,") & CJJCJCCJ & CJCJJCCC("??,??????"))
CJJJCCCJ=CJJCCCC(1):Call UpdateCache(CJJCJCCJ,CJJCCCC(0),CJJJCCCJ,CJJCCCC(2),CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if
else
set CJJCCCC=CCJJJ.execute(CJCJJCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CJCJJCCC(" ,H96C6 ,:5l") & CJJCJCCJ):if CJJCCCC.eof then Call RedirectMessage(CJCJJCCC("xs??,") & CJJCJCCJ & CJCJJCCC("??,??????"))
CJJJCCCJ=CJJCCCC(1):Call UpdateCache(CJJCJCCJ,CJJCCCC(0),CJJJCCCJ,CJJCCCC(2),CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if
end if:End Function:::Public Function CJJJCCCC(CJJCJCCJ):Dim CCCCC,CJCJJCJ:CCCCC=CJJJCCJC(CJJCJCCJ):if CCCCC=0 then
CJCJJCJ=CJJCJJJJ(CJJCJCCJ)
else
CJCJJCJ=CJJCJJJ(CCCCC,3):if isnull(CJCJJCJ) or CJCJJCJ="" then
CJCJJCJ=CJJCJJJJ(CJJCJCCJ)
elseif Mid(CJCJJCJ,instrrev(CJCJJCJ,CJCJJCCC("["))+1)<>CStr(CJJCJCCJ) then
CJCJJCJ=CJJCJJJJ(CJJCJCCJ)
elseif Left(CJCJJCJ,1)=CJCJJCCC("[") then
CJCJJCJ=CJJCJJJJ(CJJCJCCJ)
end if
end if:CJJJCCCC=CJCJJCJ:End Function:Private Function CJJCJJJJ(CJJCJCCJ):dim CJCJJJC:CJCJJJC=CStr(CJJCJCCJ):if CJCJJJC="0" then
CJJCJJJJ=""
else
dim CJJCCCC:set CJJCCCC=CCJJJ.execute(CJCJJCCC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCJCC & CJCJJCCC(" ,H96C6 ,:5l") & CJJCJCCJ):if CJJCCCC.eof then
Call UpdateCache(CJJCJCCJ,"","","",""):Call RedirectMessage(CJCJJCCC("??????,xs??,") & CJJCJCCJ & CJCJJCCC("??,????????,????????????????????,"))
else
if CJJCCCC(0)=0 then
CJJCJJJJ="0," & CJJCJCCJ
else
CJJCJJJJ=CJJJCCCC(CJJCCCC(0)) & CJCJJCCC("[") & CJJCJCCJ
end if:if CJJCCCC(2)<>CJJCJJJJ then
CCJJJ.execute CJCJJCCC("FA52E6 ,") & CJJCJCC & CJCJJCCC(" ,D6E ,A2E9lV") & CJJCJJJJ & CJCJJCCC("V ,H96C6 ,:5l") & CJJCJCCJ
else
CJJCJJJJ=CJJCCCC(2)
end if
end if:Call UpdateCache(CJJCJCCJ,CJJCCCC(0),CJJCCCC(1),CJJCJJJJ,CJJCCCC(3)):CJJCCCC.Close: Set CJJCCCC = Nothing
end if:End Function::Public Function CJJCJJJC(CJJCJCCJ):CJJCJJJC = Mid(CJJJCCCC(CJJCJCCJ), 3):End Function:Public Function CJJCJJCJ(CJJCJCCJ):Dim CCCCC, CJJJJJ, CJCJJCC,Str, CJCJJCJ, CJCJCC, CJJJCJC():CJCJJCJ = CJJCJJJC(CJJCJCCJ):CJCJJCJ = Split(CJCJJCJ, CJCJJCCC("[")):for CCCCC=0 to Ubound(CJCJJCJ):CJCJJCC=CJCJJCJ(CCCCC):str=str & CJCJJCCC("M") & CJCJJCC & CJCJJCCC("M") & CJJJCCCJ(CJCJJCC):next:if str<>"" then str=Mid(str,2)
CJJCJJCJ=str:End Function:::::::::Public Function Sql_GetChildren(CJJCJCCJ):dim CJCJJCJ:CJCJJCJ=CJJJCCCC(CJJCJCCJ):Sql_GetChildren = CJJCJCC & CJCJJCCC("0A2E9ZV[V ,=:<6 ,V") & CJCJJCJ & CJCJJCCC("[TV")
End Function:::Public Function GetPositionStr_From(CJJCJCCJ, CJJCJCJC):if isnull(CJJCJCCJ) or isnull(CJJCJCJC) then
GetPositionStr_From=CJCJJCCC(",????????."):exit function
end if:Dim Str, CCCCC, CJJJCJC, CJCJCC, CJCJCJJ:CJJCJCJC = CStr(CJJCJCJC):If CJJCJCJC = "0" or CJJCJCJC = CStr(CJJCJCCJ) Then
Str = CJJJCCCJ(CJJCJCCJ)
Else
CJJJCJC = Split(CJJCJJCJ(CJJCJCCJ), CJCJJCCC("M")):CJCJCC = UBound(CJJJCJC):CJCJCJJ = False:For CCCCC = 0 To CJCJCC Step 2:If CJJJCJC(CCCCC) = CJJCJCJC And Not CJCJCJJ Then CJCJCJJ = True
If CJCJCJJ Then
If Str <> "" Then Str = Str & CJCJJCCC("??,")
Str = Str & CJJJCJC(CCCCC + 1)
End If:Next
End If:str=Mid(str,instr(str,CJCJJCCC("??,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJJCCJJ
End Sub:Public Sub UpdateCache(CJJCJCCJ,CJCJJCC,CJCCJCCJ,CJCJJCJ,CJCCJCCC):dim CCCCC,CJJJJJ:CJJCJCCJ=CLng(CJJCJCCJ):CCCCC=CJJJCCJC(CJJCJCCJ):if CJCJJCC="" and CJCCJCCJ="" and CJCJJCJ="" and CJCCJCCC="" then
if CCCCC>0 then
for CJJJJJ=1 to 4:CJJCJJJ(CCCCC,CJJJJJ)=Null:next
end if
else
if CCCCC=0 then
for CJJJJJ=1 to CJJCJCJ:if CJJCJJJ(CJJJJJ,1) & ""="" then
CCCCC=CJJJJJ:exit for
end if:next
end if:if CCCCC=0 then
Call ClearCache
else
CJJCJJJ(CCCCC,0)=CLng(CJJCJCCJ):if CJCJJCC<>"" then CJJCJJJ(CCCCC,1)=CLng(CJCJJCC)
if CJCCJCCJ<>"" then CJJCJJJ(CCCCC,2)=CJCCJCCJ
if CJCJJCJ<>"" then CJJCJJJ(CCCCC,3)=CJCJJCJ
if CJCCJCCC<>"" then CJJCJJJ(CCCCC,4)=CLng(CJCCJCCC)
end if
end if:if CCCCC>0 then
Application.Lock():Application(CJJCCJJ) = CJJCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCJCCCJ):Call ConnClose:Response.Write CJCJCCCJ:Response.End:End Sub:Private Function CJJJJJJJ():CJJJJJJJ=CJJCJCCC+1:End Function:Private Function CJJCJCCC():dim CJJCCJ:set CJJCCJ=CCJJJ.execute(CJCJJCCC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCJCC & CJCJJCCC(" ,@C56C ,3J ,:5 ,56D4")):CJJCJCCC=CJJCCJ(0):CJJCCJ.Close: Set CJJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CCCJCJC ="9"
Const CCCJCCJ ="7"
Const CCCJCCC ="3"
Const CCCCJJJ ="4"
Const CCCCJJC ="8"
Const CCCCJCJ =":"
Const CCCCJCC ="font-family: Verdana; font-size: 10px; height: 15px; border: 1px solid #666666":Class SplitPage:Private PageCount, CJCJCCJ, CJCJCCC, CJCCJJJ, CJCCJJC, CJCCJCJ, CJJJCC, CJCCJCC, CJCCCJJ, CJCCCJC, CJCCCCJ:Private Function CJJCCJJJ():Dim CJCCCCC:CJCCCCC = "??" & CJCCJCJ & CJCJJCCC("k^3mk^DA2?m?????? ,????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCCJC & CJCJJCCC("k^3mk^DA2?m?? ,??????kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & CJCCJJC & CJCJJCCC("k^3mk^DA2?m^kDA2? ,DEJ=6lV4@=@CiR7__jVmk3m") & PageCount & CJCJJCCC("k^3mk^DA2?m??")
CJJCCJJJ = CJCCCCC:End Function:Private Function CJJCCJJC():CJJCCJJC = CJCJJCCC(" ,k:?AFE ,:5lVA286V ,EJA6lVE6IEV ,G2=F6lV") & CJCCJJC & CJCJJCCC("V ,DEJ=6lV") & CCCCJCC & CJCJJCCC("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") & CJJJCC & CJCJJCCC("VZE9:D]G2=F6Qm")
End Function:Private Function CJJCCJCJ():CJJCCJCJ = CJCJJCCC(" ,k:?AFE ,EJA6lV3FEE@?V ,DEJ=6lV") & CCCCJCC & CJCJJCCC("V ,G2=F6lVv@V ,@?4=:4<lQ;2G2D4C:AEi:7W5@4F>6?E]86Et=6>6?EqJx5WVA286VXX ,=@42E:@?lV") & CJJJCC & CJCJJCCC("VZ5@4F>6?E]86Et=6>6?EqJx5WVA286VX]G2=F6Qm")
End Function:Private Function CJJCCJCC():Dim CJCCCCC, CCCCC:CJCCCCC = CJCJJCCC(" ,??????kD6=64E ,:5lVA286V ,@?492?86lQ;2G2D4C:AEi=@42E:@?lV") & CJJJCC & CJCJJCCC("VZE9:D]@AE:@?D,E9:D]D6=64E65x?56I.]G2=F6Q ,DEJ=6lV7@?E\D:K6i`_AIj ,7@?E\72>:=Ji'6C52?2Vm")
For CCCCC = 1 To PageCount:CJCCCCC = CJCCCCC & CJCJJCCC("k@AE:@? ,G2=F6lV") & CCCCC & CJCJJCCC("V")
If CCCCC = CJCCJJC Then CJCCCCC = CJCCCCC & CJCJJCCC(" ,D6=64E65")
CJCCCCC = CJCCCCC & CJCJJCCC("m") & CCCCC & CJCJJCCC("k^@AE:@?m"):Next:CJCCCCC = CJCCCCC & CJCJJCCC("k^D6=64Em??"):CJJCCJCC = CJCCCCC:End Function:Public Sub ShowPage():Dim CCCCC, CCJJJJJ,CCJJJJC,CCJJJCJ:if CJCCJCJ>0 then
CCJJJJJ = CJCJJCCC("k5:G ,4=2DDlVDA=:EA286V ,DEJ=6lV@G6C7=@Hi9:556?Vmk5:G ,4=2DDlVDA=:EA2860=V ,DEJ=6lV7=@2Ei=67EVm") & CJJCCJJJ & CJCJJCCC("k^5:Gmk5:G ,4=2DDlVDA=:EA2860CV ,DEJ=6lV7=@2EiC:89EVm")
If PageCount > 1 Then
Select Case CJCCCCJ:Case 1: CCJJJCJ = CJJCCCCJ:Case 2: CCJJJCJ = CJJCCCCC:Case 3: CCJJJCJ = CJCJJJJJ:Case 4: CCJJJCJ = CJCJJJJC:Case 5: CCJJJCJ = CJCJJJCJ:Case 6: CCJJJCJ = CJCJJJCC:Case 7: CCJJJCJ = CJCJJCJJ:Case 8: CCJJJCJ = CJCJJCJC:End Select
End If:CCJJJJC = CJCJJCCC("k^5:Gmk^5:Gm")
end if:if CJCCCCJ>=6 then
Response.Write CCJJJCJ
else
Response.Write CCJJJJJ & CCJJJCJ & CCJJJJC
end if:End Sub:Public Function Rs():On Error Resume Next:Set CJCJCCC = Server.CreateObject(CJCJJCCC("ps~sq]#64@C5$6E")):CJCJCCC.PageSize = CJCCCJC:CJCJCCC.Open CJCCJJJ, CJCJCCJ, 1:If err then
Response.Write	CJCJJCCC("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 & CJCJJCCC("k^5:Gmk^5:Gmk3Cm")
Err.Clear:response.end
end if:If Not CJCJCCC.EOF Then
CJCCJCJ = CJCJCCC.RecordCount:PageCount = CJCJCCC.PageCount:If CJCCJJC > PageCount Then CJCCJJC = PageCount
CJCJCCC.AbsolutePage = CJCCJJC
End If:Set Rs = CJCJCCC:End Function:Public Property Let CCJJC(CJCCCJJJ):Set CJCJCCJ = CJCCCJJJ:End Property:Public Property Let SQL(str):CJCCJJJ = str:End Property:Public Property Let Style(CJCJCC):If IsNumeric(CJCJCC) Then
CJCCCCJ = CInt(CJCJCC):If CJCCCCJ < 1 Or CJCCCCJ > 8 Then CJCCCCJ = 1
Else
CJCCCCJ = 1
End If:End Property:Public Property Let PageSize(CJCJCC):If IsNumeric(CJCJCC) Then
CJCCCJC = CInt(CJCJCC):If CJCCCJC < 1 Then CJCCCJC = 10
Else
CJCCCJC = 10
End If:End Property:Public Property Get PageSize():If CJCCJJC = PageCount Then
PageSize = CJCCJCJ - CJCCCJC * (PageCount - 1)
Elseif CJCCJCJ=0 then
pagesize=0
else
PageSize = CJCCCJC
end if:End Property:Private Sub Class_Initialize():dim CCJJJCC:CJCCCJC = 10:CJCCCCJ = 1:Set CJCJCCJ = CCJJJ:CJCCJJC = Trim(Request.QueryString(CJCJJCCC("!286"))):If IsNumeric(CJCCJJC) Then
CJCCJJC = CLng(CJCCJJC):If CJCCJJC < 1 Then CJCCJJC = 1
Else
CJCCJJC = 1
End If:CJCCCJJ = Trim(Request.ServerVariables(CJCJJCCC("&#{"))):CJCCCJJ = Mid(CJCCCJJ, InStrRev(CJCCCJJ, CJCJJCCC("^")) + 1):CJCCJCC = Split(Trim(Request.ServerVariables(CJCJJCCC("""&t#*0$%#x}v"))), CJCJJCCC("U")):CJJJCC = Server.HtmlEncode(CJCCCJJC):CCJJJCC=lcase(CJJJCC):if instr(CCJJJCC,CJCJJCCC("Tb4:7C2>6"))>0 or instr(CCJJJCC,CJCJJCCC("Tb4D4C:AE"))>0 or instr(CCJJJCC,CJCJJCCC("V"))>0 or instr(CCJJJCC,CJCJJCCC(";2G2D4C:AE"))>0 or instr(CCJJJCC,CJCJJCCC("6IAC6DD:@?"))>0 then Call RedirectMessage(CJCJJCCC("????????,????????????????????????,??,??,"))
End Sub:Public Function ListNum(CJCJCC):ListNum = CJCCCJC * (CJCCJJC - 1) + CJCJCC:End Function:Private Function CJCCCJJC():Dim CCCCC, str:For CCCCC = 0 To UBound(CJCCJCC):If InStr(LCase(CJCCJCC(CCCCC)), CJCJJCCC("A286l")) = 0 Then str = str & CJCJJCCC("U") & CJCCJCC(CCCCC)
Next:str = Mid(str, 2):If str = "" Then CJCCCJJC = CJCCCJJ & CJCJJCCC("n") & CJCJJCCC("A286l") Else CJCCCJJC = CJCCCJJ & CJCJJCCC("n") & str & CJCJJCCC("UA286l")
End Function:Private Function CJJCCCCJ():Dim str:str = CJCJJCCC("???? ,??"):For CCCCC = 1 To PageCount:If CCCCC = CJCCJJC Then str = str & CJCJJCCC("k3m") & CCCCC & CJCJJCCC("k^3m ,") Else str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CCCCC & CJCJJCCC("Vm") & CCCCC & CJCJJCCC("k^2m ,")
Next:str = str & CJCJJCCC("??"):CJJCCCCJ = str:End Function:Private Function CJJCCCCC():Dim str:If CJCCJJC > 1 Then
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCJJCCC("`V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCJC & CJCJJCCC("k^2m ,")
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC - 1 & CJCJJCCC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCJCCC & CJCJJCCC("k^2m ,")
Else
str = str & CCCJCJC & CJCJJCCC(" ,") & CCCJCCC
End If:If CJCCJJC < PageCount Then
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC + 1 & CJCJJCCC("V ,E:E=6lV????,??V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJJJ & CJCJJCCC("k^2m ,")
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & PageCount & CJCJJCCC("V ,E:E=6lV????V ,DEJ=6lVE6IE\564@C2E:@?i ,?@?6Vm") & CCCCJCJ & CJCJJCCC("k^2m ,")
Else
str = str & CCCCJJJ & CJCJJCCC(" ,") & CCCCJCJ
End If:str = str & CJJCCJJC:str = str & CJJCCJCJ:CJJCCCCC = str:End Function:Private Function CJCJJJJJ():Dim str, CJJJCCC:CJJJCCC = (CJCCJJC - 1) \ 10:If CJCCJJC = 1 Then str = str & CCCJCJC & CJCJJCCC(" ,") Else str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCJJCCC("`V ,E:E=6lV????Vm") & CCCJCJC & CJCJJCCC("k^2m ,")
If CJJJCCC * 10 > 0 Then str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC - 10 & CJCJJCCC("V ,E:E=6lV??????Vm") & CCCJCCJ & CJCJJCCC("k^2m ,")
For CCCCC = (CJJJCCC * 10 + 1) To (CJJJCCC * 10 + 10):If CCCCC = CJCCJJC Then str = str & CJCJJCCC("k3m") & CCCCC & CJCJJCCC("k^3m ,") Else str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CCCCC & CJCJJCCC("V ,E:E=6lV??????") & CCCCC & CJCJJCCC("??Vm") & CCCCC & CJCJJCCC("k^2m ,")
If CCCCC = PageCount Then Exit For
Next:If CCCCC < PageCount Then str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CCCCC & CJCJJCCC("V ,E:E=6lV??????Vm") & CCCCJJC & CJCJJCCC("k^2m ,")
If CJCCJJC = PageCount Then str = str & CCCCJCJ Else str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & PageCount & CJCJJCCC("V ,E:E=6lV????Vm") & CCCCJCJ & CJCJJCCC("k^2m")
CJCJJJJJ = str:End Function:Private Function CJCJJJJC():Dim str, CJJJJC, CCJJCJJ, CCCCC:If CJCCJJC > 4 Then str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCJJCCC("`Vm,`.k^2m ,]]]")
If CJCCJJC < PageCount - 3 Then CCJJCJJ = CJCCJJC + 3 Else CCJJCJJ = PageCount
For CCCCC = CJCCJJC - 3 To CCJJCJJ:If CCCCC >= 1 Then
If CCCCC = CJCCJJC Then str = str & CJCJJCCC(" ,k3m,") & CCCCC & CJCJJCCC(".k^3m") Else str = str & CJCJJCCC(" ,k2 ,9C67lV") & CJJJCC & CCCCC & CJCJJCCC("Vm,") & CCCCC & CJCJJCCC(".k^2m")
End If:Next:If CJCCJJC < PageCount - 3 Then str = str & CJCJJCCC(" ,]]] ,k2 ,9C67lV") & CJJJCC & PageCount & CJCJJCCC("Vm,") & PageCount & CJCJJCCC(".k^2m")
CJCJJJJC = str:End Function:Private Function CJCJJJCJ():Dim str:If CJCCJJC > 1 Then
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCJJCCC("`V ,E:E=6lV????Vm????k^2m ,")
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC - 1 & CJCJJCCC("V ,E:E=6lV????,??Vm????,??k^2m ,")
Else
str = str & CJCJJCCC("kDA2? ,DEJ=6lV4@=@CiRhhhjVm???? ,????,??k^DA2?m")
End If:If CJCCJJC < PageCount Then
str = str & CJCJJCCC(" ,k2 ,9C67lV") & CJJJCC & CJCCJJC + 1 & CJCJJCCC("V ,E:E=6lV????,??Vm????,??k^2m ,")
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & PageCount & CJCJJCCC("V ,E:E=6lV????Vm????k^2m ,")
Else
str = str & CJCJJCCC(" ,kDA2? ,DEJ=6lV4@=@CiRhhhjVm????,?? ,????k^DA2?m")
End If:str = str & CJJCCJCC:CJCJJJCJ = str:End Function:Private Function CJCJJJCC():Dim str:if CJCCJJC>=2 then
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC - 1 & CJCJJCCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\=Vm!C6Gk^2m")
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC - 1 & CJCJJCCC("V ,52E2\C@=6lV3FEE@?Vm") & CJCCJJC-1 & CJCJJCCC("k^2m")
end if:str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC & CJCJJCCC("V ,52E2\C@=6lV3FEE@?V ,4=2DDlVF:\3E?\24E:G6Vm") & CJCCJJC & CJCJJCCC("k^2m")
if pagecount>CJCCJJC then
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC + 1 & CJCJJCCC("V ,52E2\C@=6lV3FEE@?Vm") & CJCCJJC+1 & CJCJJCCC("k^2m")
str = str & CJCJJCCC("k2 ,9C67lV") & CJJJCC & CJCCJJC + 1 & CJCJJCCC("V ,52E2\C@=6lV3FEE@?V ,52E2\:4@?lV2CC@H\CV ,52E2\:4@?A@DlVC:89EVm}6IEk^2m")
end if:CJCJJJCC=str:End Function:Private Function CJCJJCJJ():Dim str:str=CJCJJCCC("kF= ,4=2DDlVA28:?2E:@? ,A28:?2E:@?\C:89EVm")
if CJCCJJC>=2 then
str = str & CJCJJCCC("k=:mk2 ,9C67lV") & CJJJCC & CJCCJJC - 1 & CJCJJCCC("VmU=2BF@jk^2mk^=:m")
str = str & CJCJJCCC("k=:mk2 ,9C67lV") & CJJJCC & CJCCJJC - 1 & CJCJJCCC("Vm") & CJCCJJC-1 & CJCJJCCC("k^2mk^=:m")
end if:str = str & CJCJJCCC("k=: ,4=2DDlV24E:G6Vmk2 ,9C67lV") & CJJJCC & CJCCJJC & CJCJJCCC("Vm") & CJCCJJC & CJCJJCCC("k^2mk^=:m")
if pagecount>CJCCJJC then
str = str & CJCJJCCC("k=:mk2 ,9C67lV") & CJJJCC & CJCCJJC + 1 & CJCJJCCC("Vm") & CJCCJJC+1 & CJCJJCCC("k^2mk^=:m")
str = str & CJCJJCCC("k=:mk2 ,9C67lV") & CJJJCC & CJCCJJC + 1 & CJCJJCCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJJCCC("k^F=m"):CJCJJCJJ=str:End Function:Private Function CJCJJCJC():Dim str:str=CJCJJCCC("kF= ,52E2\2>\H:586ElVA28:?2E:@?V ,4=2DDlV2>\A28:?2E:@? ,2>\A28:?2E:@?\5672F=EVm")
if CJCCJJC>=2 then
str = str & CJCJJCCC("k=:mk2 ,9C67lV") & CJJJCC & CJCCJJC - 1 & CJCJJCCC("VmU=2BF@jk^2mk^=:m")
str = str & CJCJJCCC("k=:mk2 ,9C67lV") & CJJJCC & CJCCJJC - 1 & CJCJJCCC("Vm") & CJCCJJC-1 & CJCJJCCC("k^2mk^=:m")
end if:str = str & CJCJJCCC("k=: ,4=2DDlV2>\24E:G6Vmk2 ,9C67lV") & CJJJCC & CJCCJJC & CJCJJCCC("Vm") & CJCCJJC & CJCJJCCC("k^2mk^=:m")
if pagecount>CJCCJJC then
str = str & CJCJJCCC("k=:mk2 ,9C67lV") & CJJJCC & CJCCJJC + 1 & CJCJJCCC("Vm") & CJCCJJC+1 & CJCJJCCC("k^2mk^=:m")
str = str & CJCJJCCC("k=:mk2 ,9C67lV") & CJJJCC & CJCCJJC + 1 & CJCJJCCC("VmUC2BF@jk^2mk^=:m")
end if:str=str & CJCJJCCC("k^F=m"):CJCJJCJC=str:End Function:End Class::dim CJJJCCJ:sql=Request.ServerVariables(CJCJJCCC("!p%w0x}u~")):if instr(sql,CJCJJCCC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCJCC and not CJJJJCJ then Call RedirectMessage(CJCJJCCC("????????,????????????????????????,"))
CJJJCCJ=CCCJJJ
elseif instr(sql,CJCJJCCC("^>^D49@@=^DEF56?E^"))>0 or instr(sql,CJCJJCCC("^DEF56?E^"))>0 then
Call CheckLogined:CJJJCCJ=CCCJJJ
elseif instr(sql,CJCJJCCC("^D49@@="))>0 then
CJJJCCJ=Request.QueryString(CJCJJCCC("D49@@=")):if not CCCCCCC(CJJJCCJ) then CJJJCCJ=Request.QueryString(CJCJJCCC("F"))
if not CCCCCCC(CJJJCCJ) then CJJJCCJ=Request.QueryString(CJCJJCCC("D4"))
if not CCCCCCC(CJJJCCJ) then Call RedirectMessage(CJCJJCCC("????????W$49@@=X??@??????????,"))
CJJJCCJ=csng(CJJJCCJ)
end if:if CJJJCCJ=0 then Call RedirectMessage(CJCJJCCC("????????W$49@@=X????W_X??,"))
Dim CCJJCJC:Call SetConfig:Sub SetConfig():dim CJJJCJC,CJJCCJ:sql=CJCJJCCC("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") & CJJJCCJ:set CJJCCJ=CCJJJ.execute(sql):if CJJCCJ.eof then Call RedirectMessage(CJCJJCCC("??W") & CCJJCJ & CJCJJCCC("X??????????W") & CJJJCCJ & CJCJJCCC("X????????,"))
ReDim CJJJCJC(61):CJJJCJC(0)=CJJCCJ(CJCJJCCC(";:2@H6:")) & "":CJJJCJC(1)=CJJCCJ(CJCJJCCC("EJA6")):CJJJCJC(2)=CJJCCJ(CJCJJCCC("D>D")):CJJJCJC(3)=CJJCCJ(CJCJJCCC("4FDE@>8C@FA")) & "":CJJJCJC(4)=CJJCCJ(CJCJJCCC("D:5632C0@E96C")) & "":CJJJCJC(5)=IIf(isnull(CJJCCJ(CJCJJCCC("E6DEC6DF=EG:6H"))),0,CJJCCJ(CJCJJCCC("E6DEC6DF=EG:6H"))):CJJJCJC(6)=CJJCCJ(CJCJJCCC("K:IF?E:>6")):CJJJCJC(7)=CJJCCJ(CJCJJCCC("766")):CJJJCJC(8)=CJJCCJ(CJCJJCCC("C6E6DE52J")):CJJJCJC(9)=CJJCCJ(CJCJJCCC("6IA:C652E6")):CJJJCJC(10)=CJJCCJ(CJCJJCCC("E:E=6")):CJJJCJC(11)=CJJCCJ(CJCJJCCC(":?EC@")) & "":CJJJCJC(12)=CJJCCJ(CJCJJCCC("A:4EFC6")) & "":CJJJCJC(13)=CJJCCJ(CJCJJCCC("72>:=J")):CJJJCJC(14)=CJJCCJ(CJCJJCCC("4@AJC:89E")) & "":CJJJCJC(15)=IIf(isnull(CJJCCJ(CJCJJCCC("D6>6DE6C0DE2CE052E6"))),CJCJJCCC("`h__\`\`"),CJJCCJ(CJCJJCCC("D6>6DE6C0DE2CE052E6"))):CJJJCJC(16)=IIf(isnull(CJJCCJ(CJCJJCCC("K:IF?0E:>6D09:89=:89E"))),0,CJJCCJ(CJCJJCCC("K:IF?0E:>6D09:89=:89E"))):CJJJCJC(17)=CJJCCJ(CJCJJCCC("4@?E24E")) & "":CJJJCJC(18)=CJJCCJ(CJCJJCCC("D2?5E23=6")):CJJJCJC(19)=CJJCCJ(CJCJJCCC("4C:D:D")):CJJJCJC(20)=CJJCCJ(CJCJJCCC("JJ52E6")):CJJJCJC(21)=CJJCCJ(CJCJJCCC("BB")):CJJJCJC(22)=CJJCCJ(CJCJJCCC("JFJF60D>D0EA=")) & "":CJJJCJC(23)=CJJCCJ(CJCJJCCC("JFJF60E6DE0=3")) & "":CJJJCJC(25)=CJJCCJ(CJCJJCCC("6IA6CE")):CJJJCJC(26)=CJJCCJ(CJCJJCCC(">@5:?7@")):CJJJCJC(27)=CJJCCJ(CJCJJCCC("9@>6A286E@AA:4EFC6")) & "":CJJJCJC(28)=CJJCCJ(CJCJJCCC("4C:D:D=3")):CJJJCJC(29)=IIf(CJJCCJ(CJCJJCCC("4C:D:D@=5")),False,True):CJJJCJC(30)=CJJCCJ(CJCJJCCC("8C@FA8F:52?46")):CJJJCJC(31)=CJJCCJ(CJCJJCCC("3:@7665324<")):CJJJCJC(32)=CJJCCJ(CJCJJCCC("<6JDEC")):CJJJCJC(33)=CJJCCJ(CJCJJCCC("=@8@")) & "":CJJJCJC(34)=CJJCCJ(CJCJJCCC("K:46")):CJJJCJC(35)=IIf(CJJCCJ(CJCJJCCC(":D?6H")),True,False):CJJJCJC(36)=121:CJJJCJC(37)=111:CJJJCJC(38)=160:CJJJCJC(39)=CJJCCJ(CJCJJCCC("8F6DE3@@<")):CJJJCJC(40)=CJJCCJ(CJCJJCCC("75D")):CJJJCJC(42)=CJJCCJ(CJCJJCCC("9@>6=@8:?")):CJJJCJC(43)=CJJCCJ(CJCJJCCC("K:IF?0?6657665324<")):CJJJCJC(44)=CJJCCJ(CJCJJCCC("K:IF?0E:>6D0=:>:E")):CJJJCJC(45)=CJJCCJ(CJCJJCCC("4@>A=6E60:?7@")):CJJJCJC(46)=CJJCCJ(CJCJJCCC("E6DE:?EC@")) & "":CJJJCJC(47)=IIf(isnull(CJJCCJ(CJCJJCCC("JFJF60367@C60E:>6"))),0,CJJCCJ(CJCJJCCC("JFJF60367@C60E:>6"))):CJJJCJC(49)=CJJCCJ(CJCJJCCC("D>D0C646:G6C")):CJJJCJC(50)=CJJCCJ(CJCJJCCC("D>D0D:8?")) & "":CJJJCJC(52)=CJJCCJ(CJCJJCCC("JFJF602CC2?86")):CJJJCJC(53)=IIf(isnull(CJJCCJ(CJCJJCCC("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCCJ(CJCJJCCC("DEF56?E0BF6DE:@?04@F?E"))):CJJJCJC(54)=CJJCCJ(CJCJJCCC("9:560=30@FE@7286")):CJJJCJC(55)=CJJCCJ(CJCJJCCC("JFJF60E6DE052JD")):CJJJCJC(56)=CJJCCJ(CJCJJCCC("JFJF60H66<0=:>:E")):CJJJCJC(57)=CJJCCJ(CJCJJCCC("JFJF604964<65")):CJJJCJC(58)=CJJCCJ(CJCJJCCC("K:IF?0?6657665324<0?6IE")):CJJJCJC(59)=CJJCCJ(CJCJJCCC("4964<?6HDEF56?E")):CJJJCJC(60)=CJJCCJ(CJCJJCCC("K:IF?04=@D6052E6")):CJJCCJ.close : set CJJCCJ=nothing:if isNull(CJJJCJC(8)) or CJJJCJC(8)="" then CJJJCJC(8)=0
if isdate(CJJJCJC(9)) then
CJJJCJC(9)=cdate(CJJJCJC(9)):if CJJJCJC(9)<Date then Call RedirectMessage(CJCJJCCC("????????,????????????????W") & CJJJCJC(9) & CJCJJCCC("X??????,"))
end if:if not CCCCCCC(CJJJCJC(20)) then CJJJCJC(20)=7
select case CJJJCJC(1):case 1,2,16:CJJJCJC(36)=159:case 4,5,6,10,11:CJJJCJC(36)=190:CJJJCJC(37)=178:CJJJCJC(38)=191:case 7,13:CJJJCJC(36)=164:CJJJCJC(37)=178:CJJJCJC(38)=179:end select:CCJJCJC=CJJJCJC:End Sub:Function CJJJJJCC(CJCCJJCJ):dim CJJJCJC(7,1),CCCCC,CCJJCCJ,CCJJCCC:CCJJCCJ=Array(CJCJJCCC("$49@@="),CJCJJCCC("$EF56?E"),CJCJJCCC("s6AE"),CJCJJCCC("vC256"),CJCJJCCC("r=2DD>2E6"),CJCJJCCC("}F>36C"),CJCJJCCC("%62496C"),CJCJJCCC("!2C6?E")):select case CCJJCJC(1):case 1,2 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????")):case 3,16 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????")):case 4 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("??????@"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????")):case 5 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????")):case 6 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("??????@"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case 7 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case 8 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("??????@"),CJCJJCCC("????"),CJCJJCCC("????????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case 9 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case 10 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case 11 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case 12 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case 13 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????")):case 14 : CCJJCCC=Array(CJCJJCCC("??????"),CJCJJCCC("??@??"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case 15 : CCJJCCC=Array(CJCJJCCC("????"),CJCJJCCC("????????"),CJCJJCCC("????"),CJCJJCCC("????????"),CJCJJCCC("????"),CJCJJCCC("????"),CJCJJCCC("??????"),CJCJJCCC("????")):case else : CCJJCCC=CCJJCCJ
end select:for CCCCC=0 to Ubound(CJJJCJC):CJJJCJC(CCCCC,0)=CCJJCCJ(CCCCC):CJJJCJC(CCCCC,1)=CCJJCCC(CCCCC):next:for CCCCC=0 to Ubound(CJJJCJC):if CJJJCJC(CCCCC,0)=CJCCJJCJ then
CJJJJJCC=CJJJCJC(CCCCC,1):exit for
end if:next:End Function::Call CheckRight(96):if CCJJCJC(7)<3 then Call RedirectMessage(CJCJJCCC("????????,??????????????????????,"))
Call CJJJCJCJ(CJCJJCCC("&#{"),CCCCCCJ):dim CCJCJJJ,CCJCJJC,CJCJCC,CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC:CCJCCCC=Request.QueryString(CJCJJCCC("DEF56?E:5")):CCJCJJJ=Request.QueryString(CJCJJCCC("56AE")):CCCJJJJ=Request.QueryString(CJCJJCCC("vC256")):CCCJJJC=Request.QueryString(CJCJJCCC("vC@FA")):CCJCJJC=Request.QueryString(CJCJJCCC("!@DE")):CCJCJCC=Request.QueryString(CJCJJCCC("E96EJA6")):CCJCCJJ=Request.QueryString(CJCJJCCC("r@?DF=E2?E")):CJCJCC=CCCCCJJ(Request.QueryString(CJCJJCCC("}F>"))):CCJCJCJ=CCCCCJJ(Request.QueryString(CJCJJCCC("}:4<"))):CCJCCJC=Request.QueryString(CJCJJCCC("%`")):CCJCCCJ=Request.QueryString(CJCJJCCC("%a")):if not CCCCCCC(CCJCJJJ) then CCJCJJJ=CCJCJC
dim CJJCJJJ:set CJJCJJJ=new jtree:CJJCJJJ.table=CJCJJCCC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJCJJCCC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJCCC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJCCC("k9625m") & vbCrLf):Response.Write(CJCJJCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJCCC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJCCC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJCCC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJJCCC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCJJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?]4DDQm") & vbCrLf):Response.Write(CJCJJCCC("kDEJ=6m") & vbCrLf):Response.Write(CJCJJCCC("^Y????????????Y^") & vbCrLf):Response.Write(CJCJJCCC("]2FE@4@>A=6E6\DF886DE:@?D ,L ,3@C56Ci ,`AI ,D@=:5 ,Rrqsbssj ,324<8C@F?5i ,Ruuuj ,@G6C7=@Hi ,2FE@j ,N") & vbCrLf):Response.Write(CJCJJCCC("]2FE@4@>A=6E6\DF886DE:@? ,L ,A255:?8i ,aAI ,dAIj ,H9:E6\DA246i ,?@HC2Aj ,@G6C7=@Hi ,9:556?j ,N") & vbCrLf):Response.Write(CJCJJCCC("]2FE@4@>A=6E6\D6=64E65 ,L ,324<8C@F?5i ,Ru_u_u_j ,N") & vbCrLf):Response.Write(CJCJJCCC("]2FE@4@>A=6E6\DF886DE:@?D ,DEC@?8 ,L ,7@?E\H6:89Ei ,?@C>2=j ,4@=@Ci ,Rbhuj ,N") & vbCrLf):Response.Write(CJCJJCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJJCCC("k^9625m") & vbCrLf):Response.Write(CJCJJCCC("k3@5Jm") & vbCrLf)::if CCCCCCC(CCJCCCC) then
set CCJCC=CCJJJ.execute(CJCJJCCC("D6=64E ,E@A ,` ,Y ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CCJCCCC):Response.Write(vbCrLf):Response.Write(CJCJJCCC("kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJJCCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write CCJCC(CJCJJCCC("C62=?2>6")):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJJJJCC(CJCJJCCC("}F>36C")):Response.Write(CJCJJCCC("??,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write CCJCC(CJCJJCCC("?F>36C")):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write CCJCC(CJCJJCCC("D6I?2>6")):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write CCJCC(CJCJJCCC("286")):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJJJJCC(CJCJJCCC("s6AE")):Response.Write(CJCJJCCC("??,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write CJJCJJJ.GetPositionStr_From(CCJCC(CJCJJCCC("EJA6")),CJJJCCJ):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJJJJCC(CJCJJCCC("vC256")):Response.Write(CJCJJCCC("??,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write CJJJCJJC(CJCJJCCC(">6>36C08C256"),CJJJCCJ,CCJCC(CJCJJCCC("8C256"))):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write CCJCC(CJCJJCCC(">@3:=6")):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CCJJCJC(3):Response.Write(CJCJJCCC("??,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write CJJJCJJC(CJCJJCCC(">6>36C04FDE@>8C@FA"),CJJJCCJ,CCJCC(CJCJJCCC("4FDE@>8C@FA"))):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCC("k^E23=6m") & vbCrLf)
else
Response.Write(vbCrLf):Response.Write(CJCJJCCC("k7@C> ,24E:@?lQQ ,>6E9@5lQ86EQ ,?2>6lQ7@C>`Q ,:5lQ7@C>`Qm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJJCCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9 ,C@HDA2?lQaQm????????k^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write CJJJJJCC(CJCJJCCC("}F>36C")):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJCJCC:Response.Write(CJCJJCCC("Q ,2FE@7@4FDmk^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m") & vbCrLf):Response.Write(CJCJJCCC(" ,")):Response.Write CJCJJCCC("kD6=64E ,?2>6lV56AEV ,52E2\G2=F6lV") & CCJCJJJ & CJCJJCCC("Vmk^D6=64Em")
If CCJJCJC(1)>=3 Then
Response.Write CJCJJCCC(" ,kD6=64E ,?2>6lV8C256Vm")
if CCCJJC=0 then
Response.Write CJCJJCCC("k@AE:@? ,G2=F6lVVm,") & CJJJJJCC(CJCJJCCC("vC256")) & CJCJJCCC(".k^@AE:@?m")
Call ShowListSelect(CJCJJCCC(">6>36C08C256"),CJJJCCJ,CCCJJJJ)
else
Response.Write CJCJJCCC("k@AE:@? ,G2=F6lV") & CCCJJC & CJCJJCCC("Vm") & CJJJCJJC(CJCJJCCC(">6>36C08C256"),CJJJCCJ,CCCJJC) & CJCJJCCC("k^@AE:@?m")
end if:Response.Write CJCJJCCC("k^D6=64Em")
End If:If CCJJCJC(3)<>"" Then
Response.Write CJCJJCCC(" ,kD6=64E ,?2>6lV8C@FAVm")
if CJJJJJJ=0 then
Response.Write CJCJJCCC("k@AE:@? ,G2=F6lVVm,") & CCJJCJC(3) & CJCJJCCC(".k^@AE:@?m")
Call ShowListSelect(CJCJJCCC(">6>36C04FDE@>8C@FA"),CJJJCCJ,CCCJJJC)
else
Response.Write CJCJJCCC("k@AE:@? ,G2=F6lV") & CJJJJJJ & CJCJJCCC("Vm") & CJJJCJJC(CJCJJCCC(">6>36C04FDE@>8C@FA"),CJJJCCJ,CJJJJJJ) & CJCJJCCC("k^@AE:@?m")
end if:Response.Write CJCJJCCC("k^D6=64Em")
End If:Response.Write(vbCrLf):Response.Write(CJCJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5mk:?AFE ,?2>6lQE96EJA6Q ,EJA6lQE6IEQ ,D:K6lQ`_Q ,G2=F6lQ")):Response.Write CCJCJCC:Response.Write(CJCJJCCC("Q ,52E2\2FE@4@>A=6E6lQ????????M????????M????@????M????????M??@??????M????????@M????????M????Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CCJCJCJ:Response.Write(CJCJJCCC("Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm????k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m") & vbCrLf):Response.Write(CJCJJCCC(" ,k:?AFE ,?2>6lQ%`Q ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write CCJCCJC:Response.Write(CJCJJCCC("Q ,4=2DDlQ52E6Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJCJJCCC(" ,O") & vbCrLf):Response.Write(CJCJJCCC(" ,k:?AFE ,?2>6lQ%aQ ,EJA6lQE6IEQ ,G2=F6lQ")):Response.Write CCJCCCJ:Response.Write(CJCJJCCC("Q ,4=2DDlQ52E6Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJCJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4=2DDlQ=236=Qm??????k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m") & vbCrLf):Response.Write(CJCJJCCC(" ,")):If CJJJCJCC(89) Then
Response.Write(vbCrLf):Response.Write(CJCJJCCC(" ,kD6=64E ,?2>6lQr@?DF=E2?EQ ,:5lQr@?DF=E2?EQm") & vbCrLf):Response.Write(CJCJJCCC(" ,k@AE:@? ,G2=F6lQQm,????.k^@AE:@?m") & vbCrLf):Response.Write(CJCJJCCC(" ,")):dim CJJCCC:CJJCCC=CJJJJCJC(CJJJCCJ):for CCCCC=0 to ubound(CJJCCC,2):Response.Write CJCJJCCC("k@AE:@? ,G2=F6lV") & CJJCCC(0,CCCCC) & CJCJJCCC("V") & IIf(Cstr(CJJCCC(0,CCCCC))=CCJCCJJ,CJCJJCCC(" ,D6=64E65"),"") & CJCJJCCC("m") & CJJCCC(1,CCCCC) & CJCJJCCC("k^@AE:@?m")
next:Response.Write(vbCrLf):Response.Write(CJCJJCCC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJCJJCCC(" ,"))
Else
Response.Write CCCCCJ
End If:Response.Write(vbCrLf):Response.Write(CJCJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCCC(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJCJJCCC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ?? ,??Qm") & vbCrLf):Response.Write(CJCJJCCC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ????????????Qm?? ,??k^2m") & vbCrLf):Response.Write(CJCJJCCC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0G:6HQ ,G2=F6lQ?? ,??Q ,E:E=6lQ??????????????????????Qm") & vbCrLf):Response.Write(CJCJJCCC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQ:?E6CG:6H06IA@CE]2DAQm?? ,??k^2m") & vbCrLf):Response.Write(CJCJJCCC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQBF6CJ?F>36C]2DAn>D8l????????U8@E@FC=l")):Response.Write server.URLEncode(CJCJJCCC(":?E6CG:6H024E]2DA")):Response.Write(CJCJJCCC("Qm?? ,??k^2m") & vbCrLf):Response.Write(CJCJJCCC(" ,k:?AFE ,?2>6lQA@DEQ ,EJA6lQ9:556?Q ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJCJJCCC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJCCC("k^7@C>m") & vbCrLf):Response.Write(CJCJJCCC("k3Cm") & vbCrLf)
end if::if CCJCJJC="1" then
sql=CJCJJCCC("H96C6 ,") & CJJCJJJ.sql_GetChildren(CCJCJJJ):if CCCCCCC(CCJCCCC) then sql=sql & CJCJJCCC(" ,2?5 ,>6>36Cl") & CCJCCCC
if CJCJCC<>"" then sql=sql & CJCJJCCC(" ,2?5 ,?F>36ClV") & CJCJCC & CJCJJCCC("V")
if CCJCJCJ<>"" then sql=sql & CJCJJCCC(" ,2?5 ,C62=?2>6lV") & CCJCJCJ & CJCJJCCC("V")
if CCCCCCC(CCJCCJJ) then sql=sql & CJCJJCCC(" ,2?5 ,r@?DF=E2?El") & CCJCCJJ
if CCJCJCC<>"" then sql=sql & CJCJJCCC(" ,2?5 ,EJA6lV") & CCJCJCC & CJCJJCCC("V")
if CCCCCCC(CCCJJJJ) then sql=sql & CJCJJCCC(" ,2?5 ,8C256l") & CCCJJJJ
if CCCCCCC(CCCJJJC) then sql=sql & CJCJJCCC(" ,2?5 ,4FDE@>8C@FAl") & CCCJJJC
if isdate(CCJCCJC) then sql=sql & CJCJJCCC(" ,2?5 ,52E6E:>6mlV") & CCJCCJC & CJCJJCCC("V")
if isdate(CCJCCCJ) then sql=sql & CJCJJCCC(" ,2?5 ,52E6E:>6kV") & cdate(CCJCCCJ)+1 & CJCJJCCC("V")
Call CJJJCJCJ(CJCJJCCC("$""{"),sql):sql=sql & CJCJJCCC(" ,@C56C ,3J ,:5 ,56D4"):sql=CJCJJCCC("D6=64E ,:5[>6>36C[?F>36C[C62=?2>6[4@?DF=E2?E?2>6[52E6E:>6[EJA6[25G:46 ,7C@> ,G0:?E6CG:6H ,") & sql:dim CCCJJCJ:set CCCJJCJ=new splitpage:with CCCJJCJ:.sql=sql:.pagesize=20:.style=2:end with:set rs=CCCJJCJ.rs:if rs.eof then
Call ShowMessage(CJCJJCCC("????????"))
else
Response.Write(vbCrLf):Response.Write(CJCJJCCC("k7@C> ,24E:@?lQQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>aQ ,:5lQ7@C>aQm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJJCCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9 ,E:E=6lQ??????????????QmRk^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9m")):Response.Write CJJJJJCC(CJCJJCCC("}F>36C")):Response.Write(CJCJJCCC("k^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9m??????k^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CJCJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCC(" ,")):dim CCCCC:for CCCCC=1 to CCCJJCJ.pagesize:Response.Write(vbCrLf):Response.Write(CJCJJCCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJJCJ.listnum(CCCCC):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,G2=F6lQ")):Response.Write rs(0):Response.Write(CJCJJCCC("Qmk^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write rs(2):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5mk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write rs(1):Response.Write(CJCJJCCC("Qm")):Response.Write rs(3):Response.Write(CJCJJCCC("k^2mk^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5m")):Response.Write rs(4):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJJJJCCJ(rs(5),0):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(6):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write rs(7):Response.Write(CJCJJCCC("k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJJCCC(" ,k2 ,9C67lQ:?E6CG:6H0G:6H]2DAn:5=:DEl")):Response.Write rs(0):Response.Write(CJCJJCCC("Q ,E2C86ElQ03=2?<Qm????k^2m") & vbCrLf):Response.Write(CJCJJCCC(" ,k2 ,9C67lQ:?E6CG:6H024E]2DAn24El>@5U:5l")):Response.Write rs(0):Response.Write(CJCJJCCC("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CJCJJCCC("Qm????k^2m") & vbCrLf):Response.Write(CJCJJCCC(" ,k2 ,9C67lQ:?E6CG:6H024E]2DAn24El255UDEF56?E:5l")):Response.Write rs(1):Response.Write(CJCJJCCC("Qm????k^2m") & vbCrLf):Response.Write(CJCJJCCC(" ,k2 ,9C67lQ:?E6CG:6H024E]2DAn24El56=U:5l")):Response.Write rs(0):Response.Write(CJCJJCCC("UDEF56?E:5l")):Response.Write rs(1):Response.Write(CJCJJCCC("Qm????k^2m") & vbCrLf):Response.Write(CJCJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCC(" ,")):rs.movenext:next:Response.Write(vbCrLf):Response.Write(CJCJJCCC(" ,kECm") & vbCrLf):Response.Write(CJCJJCCC(" ,kE5 ,4@=DA2?lQhQm") & vbCrLf):Response.Write(CJCJJCCC(" ,")):call CCCJJCJ.showpage:set CCCJJCJ=nothing:Response.Write(vbCrLf):Response.Write(CJCJJCCC(" ,k^E5m") & vbCrLf):Response.Write(CJCJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJCCC("k^7@C>m") & vbCrLf)
end if
else
response.write CJCJJCCC("k9C ,D:K6lV`Vmk5:G ,2=:8?lV46?E6CVmk3m??????????????????,??????,??????,k^3mk^5:Gm")
end if:Response.Write(vbCrLf):Response.Write(CJCJJCCC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write CCJCJC:Response.Write(CJCJJCCC("Qm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^52E6A:4<6C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^52E6A:4<6C^:`g?^52E6A:4<6C]K9\r}]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]2FE@4@>A=6E6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("kD4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJCCC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJCJJCCC(" ,SWV:?AFE]52E6VX]52E6A:4<6CWL=2?8F286iVK9\r}V[2FE@w:56iECF6[7@C>2EiVJJJJ\>>\55VNX") & vbCrLf):Response.Write(CJCJJCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJCJJCCC(" ,SWVD6=64E,?2>6lQ56AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJCJJCCC(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJCJJCCC(" ,EC66iECF6") & vbCrLf):Response.Write(CJCJJCCC(" ,NX") & vbCrLf):Response.Write(CJCJJCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJCJJCCC(" ,SWV:?AFE,52E2\2FE@4@>A=6E6.VX]6249W7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJCJJCCC(" ,G2C ,SE9:D ,l ,SWE9:DX") & vbCrLf):Response.Write(CJCJJCCC(" ,G2C ,52E2 ,l ,SE9:D]52E2WV2FE@4@>A=6E6VX]C6A=246W^-M^8[ ,V[VX]DA=:EWV[VX") & vbCrLf):Response.Write(CJCJJCCC(" ,G2C ,=:DE ,l ,,.") & vbCrLf):Response.Write(CJCJJCCC(" ,7@C ,WG2C ,: ,l ,_j ,: ,k ,52E2]=6?8E9j ,:ZZX ,L ,=:DE]AFD9WL ,G2=F6i ,52E2,:.[ ,52E2i ,52E2,:. ,NX ,N") & vbCrLf):Response.Write(CJCJJCCC(" ,SE9:D]2FE@4@>A=6E6WL ,=@@<FAi ,=:DE[ ,>:?r92CDi ,_ ,NX") & vbCrLf):Response.Write(CJCJJCCC(" ,NX") & vbCrLf):Response.Write(CJCJJCCC(" ,^^ ,????????") & vbCrLf):Response.Write(CJCJJCCC(" ,SWVR3E?0G:6HVX]4=:4<W7F?4E:@?WX ,L") & vbCrLf):Response.Write(CJCJJCCC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CJCJJCCC(" ,:7W:5=:DElllVVXL2=6CEWV????????????????????,VXN") & vbCrLf):Response.Write(CJCJJCCC(" ,6=D6LH:?5@H]@A6?WV:?E6CG:6H0G:6H]2DAn:5=:DElVZ:5=:DEXN") & vbCrLf):Response.Write(CJCJJCCC(" ,NX") & vbCrLf):Response.Write(CJCJJCCC(" ,^^ ,??????@????") & vbCrLf):Response.Write(CJCJJCCC(" ,SWVE23=6]E30=:DEVX]7:?5WVE5m2i4@?E2:?DWQ????QXVX]@?WV4=:4<V[ ,7F?4E:@? ,W6X ,L") & vbCrLf):Response.Write(CJCJJCCC(" ,6]AC6G6?Es672F=EWX") & vbCrLf):Response.Write(CJCJJCCC(" ,G2C ,S2 ,l ,SWE9:DX") & vbCrLf):Response.Write(CJCJJCCC(" ,:7 ,WH:?5@H]4@?7:C>WV??????,??????????????????,????????????????????????,-?-?????,??????,????-?????,??????,??????VXX ,L") & vbCrLf):Response.Write(CJCJJCCC(" ,S]86EWS2]2EECWV9C67VX[ ,7F?4E:@? ,WC6DF=EX ,L") & vbCrLf):Response.Write(CJCJJCCC(" ,:7 ,WC6DF=E ,lll ,VVX ,L ,S2]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NX ,N") & vbCrLf):Response.Write(CJCJJCCC(" ,6=D6 ,L ,H:?5@H]2=6CEWC6DF=EX ,N") & vbCrLf):Response.Write(CJCJJCCC(" ,NX") & vbCrLf):Response.Write(CJCJJCCC(" ,N") & vbCrLf):Response.Write(CJCJJCCC(" ,NX") & vbCrLf):Response.Write(CJCJJCCC("NX") & vbCrLf):Response.Write(CJCJJCCC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJCCC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJJ=nothing:set CJJJJJJC=nothing:set CJJJJJCJ=nothing:set CJJJJJCC=nothing:CCJCC.Close:Set CCJCC=Nothing:rs.Close:Set rs=Nothing:CCJJJ.Close:Set CCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJCCC(ByVal CJCJJCCJ)
Dim CCCJJCC, CCCCC, CJJJJC
CJCJJCCJ = Replace(CJCJJCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCCCC = 1 To Len(CJCJJCCJ)
If CCCCC <> CJJJJC Then
CCCJJCC = AscW(Mid(CJCJJCCJ, CCCCC, 1))
If CCCJJCC >= 33 And CCCJJCC <= 79 Then
CJCJJCCC = CJCJJCCC & Chr(CCCJJCC + 47)
ElseIf CCCJJCC >= 80 And CCCJJCC <= 126 Then
CJCJJCCC = CJCJJCCC & Chr(CCCJJCC - 47)
Else
CJJJJC = CCCCC + 1
If Mid(CJCJJCCJ, CJJJJC, 1) = Chr(64) Then CJCJJCCC = CJCJJCCC & ChrW(CCCJJCC + 5) Else CJCJJCCC = CJCJJCCC & Mid(CJCJJCCJ, CCCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de