<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJC, CCJCJ,CCJCC, CCCJJ, CCCJC:Set CCJJC = server.CreateObject(CJJJJCJC("ps~sq]r@??64E:@?")):CCJJC.open Application(CJJJJCJC("r@??64E:@?$EC:?8")):Set CCJCJ=CCJJC::Dim CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ:Dim CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ:Dim CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ:CCJJJJ=Trim(Request.Cookies(CJJJJCJC("!$*|t|qt#"))):if CCJJJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCJ>0 then
CCCJC=CJJJJCJC("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") & CCCCC & CJJJJCJC("V ,2?5 ,:5l") & CCCCJ
set CCJCC=CCJJC.execute(CCCJC):If CCJCC.EOF Then
Call ClearMemberCookie
Else
CJJJJJ=CCJCC(2) & "":CJJJJC=CCJCC(3):CJJJCJ=CCJCC(5):CJJJCC=CCJCC(6):CJJCJJ=CCJCC(9):CJJCJC=CCJCC(15):CJJCCC=CCJCC(0):CJCCCJ=CCJCC(1):CJCCJC=CCJCC(11) & "":CJCJJJ=CCJCC(10) & "":CJJCCJ=CCJCC(12):CJCJJC=CCJCC(14):CJCJCJ=CCJCC(13):CJCJCC=CCJCC(7) & "":CJCCJJ=CCJCC(4):CJCCCC=CCJCC(8):if isnull(CJJCJC) then CJJCJC=0
if isnull(CJJCJJ) or CJJCJJ=0 then CJJCJJ=CJJJJC
if isnull(CJCCJJ) then CJCCJJ=0
if isnull(CJJJCJ) then CJJJCJ=0
if instr(CJJJJCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCC)>0 then Call RedirectMessage(CJJJJCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCJ,CCCCC)
End IF
end if:::Sub CheckLogined():if CCCCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJJC:CCJJJC=trim(request.QueryString(CJJJJCJC("D49@@="))):if isnumeric(CCJJJC) then
response.Redirect CJJJJCJC("^>^G2?E^R^D49@@=^") & CCJJJC & CJJJJCJC("^DEF56?E^=@8:?nC65:C64El") & CCCCJJ
else
Call RedirectMessage(CJJJJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJCJC("!$*|t|qt#"))="":CCCCJ=0:CJJJCC=0:CCCCC=Empty:CJJJCJ=0:CJJCJC=0:CJJCJJ=0:CJJJJC=0:CJJCCC=False:CJCCCJ=False:CJCCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ:CCJJCJ=split(CCJJJJ,CJJJJCJC("]")):if ubound(CCJJCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJJCJ(0)) or len(CCJJCJ(1))<>32 or len(CCJJCJ(2))<>32 then
Call ClearMemberCookie
else
CCJJCC=CCJJCJ(1):for CCJCJJ=1 to len(CCJJCC):CCJCJC=mid(CCJJCC,CCJCJJ,1):if isnumeric(CCJCJC) then CCJCCJ=CCJCCJ & CCJCJC
if len(CCJCCJ)=7 then exit for
next:CCJJCC=CCJJCJ(2):if CCJCCJ<>mid(CCJJCC,6,7) then
Call ClearMemberCookie
else
CCJCJC=mid(CCJJCC,18,10)/2:if CCJCJC<DateDiff(CJJJJCJC("D"), CJJJJCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCJ=Clng(CCJJCJ(0)):CCCCC=CCJJCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJCJ,CJJJJCCJ):dim CCJCJJ,CCJCJC,CCJCCJ:for CCJCJJ=1 to len(CJJJJCCJ):CCJCJC=mid(CJJJJCCJ,CCJCJJ,1):if isnumeric(CCJCJC) then CCJCCJ=CCJCCJ & CCJCJC
if len(CCJCCJ)=7 then exit for
next:CCJCCJ=CJJJJJCJ & CJJJJCJC("]") & CJJJJCCJ & CJJJJCJC("]") & Fix(10000*(Rnd+1)) & CCJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCJC("D"), CJJJJCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCJC("!$*|t|qt#"))=CCJCCJ:End Sub::Function CCJCJJC(CJJJJCCC):Dim str,CCCJJJ:str = Trim(CJJJJCCC):If IsNull(str) Or str = "" Then
CCJCJJC = ""
else
str=Replace(str, CJJJJCJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJCJC("k:7C2>6"), CJJJJCJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJCJC("kD4C:AE"), CJJJJCJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJJJ=new RegExp:CCCJJJ.Pattern=CJJJJCJC("@?W,2\K.ZXl"):CCCJJJ.IgnoreCase = True:CCCJJJ.Global=True:str=CCCJJJ.Replace(str,CJJJJCJC("@?S`U6BF2=Dj")):set CCCJJJ=nothing:CCJCJJC=str
End If:End Function:Function IIf(CJJJCJJJ, CJJJCJJC, CJJJCJCJ):if isnull(CJJJCJJJ) or isempty(CJJJCJJJ) then
IIf = CJJJCJCJ
elseif CJJJCJJJ Then
IIf = CJJJCJJC
Else
IIf = CJJJCJCJ
end if:End Function:Const CCJCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCJCJCC():dim CCCJJC:CCCJJC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CCCJJC = "" Then CCCJJC = Cstr(Request.ServerVariables(CJJJJCJC("#t|~%t0pss#")))
if instr(CCCJJC,CJJJJCJC("i"))>0 then
CCCJJC=left(CCCJJC,instr(CCCJJC,CJJJJCJC("i"))-1)
elseif instr(CCCJJC,CJJJJCJC("["))>0 then
CCCJJC=left(CCCJJC,instr(CCCJJC,CJJJJCJC("["))-1)
end if:CCJCJCC=left(CCCJJC,15):End Function:Sub Debug(str):response.Charset=CJJJJCJC("FE7\g"):dim CCJCJJ,CCJCJC,CCCJCJ:if isarray(str) then
on error resume next:CCJCJJ=ubound(str,2):CCCJCJ=err.number:err.clear:on error goto 0:if CCCJCJ<>0 then
for CCJCJJ=0 to ubound(str):if CCJCJJ>0 then response.Write CJJJJCJC("k3C ,^m")
response.Write CCJCJJ & CJJJJCJC("i ,") & str(CCJCJJ):next
else
response.Write CJJJJCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CCJCJJ=0 to ubound(str,2):response.Write CJJJJCJC("kE9 ,2=:8?lV=67EVm") & CCJCJJ & CJJJJCJC("k^E9m")
next:response.Write CJJJJCJC("k^ECm"):for CCJCJJ=0 to ubound(str):response.Write CJJJJCJC("kECmkE9m") & CCJCJJ & CJJJJCJC("k^E9m"):for CCJCJC=0 to ubound(str,2):response.Write CJJJJCJC("kE5m") & str(CCJCJJ,CCJCJC) & CJJJJCJC("k^E5m"):next:response.Write CJJJJCJC("k^ECm"):next:response.Write CJJJJCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCJCCJJ():Dim CCCJCC, CCCCJJ:CCCCJJ = Request.ServerVariables(CJJJJCJC("!p%w0x}u~")):CCCJCC = Request.ServerVariables(CJJJJCJC("""&t#*0$%#x}v")):If CCCJCC <> Empty Then
if instr(lcase(CCCJCC),CJJJJCJC("Tb4:7C2>6"))>0 or instr(lcase(CCCJCC),CJJJJCJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJJCJC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CCCCJJ = CCCCJJ & CJJJJCJC("n") & CCCJCC
end if:CCJCCJJ = CCCCJJ:End Function:Sub SetHttpOnlyCookie(CJJJCJCC,CJJJCCJJ):dim CCJJCJ:CCJJCJ=CJJJCJCC & CJJJJCJC("l") & CJJJCCJJ & CJJJJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCJC("$6E\r@@<:6"),CCJJCJ):End Sub:::::::Function CCJCCJC(CCCJCJ):if isnull(CCCJCJ) or trim(CCCJCJ)="" or not isnumeric(CCCJCJ) then
CCJCCJC=false
else
Dim CCCJJJ:Set CCCJJJ = New RegExp:CCCJJJ.Pattern = CJJJJCJC("/-5ZS"):CCCJJJ.IgnoreCase = True:CCJCCJC = CCCJJJ.test(CCCJCJ):set CCCJJJ=nothing
end if:End Function:Function CCJCCCJ(CJJJCCJC):dim CCCCJC,CCCCCJ:CCCCJC=CJJJJCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCJC & CJJJJCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CCCCCJ=CCJJC.execute(CCCCJC):CCJCCCJ = CCCCCJ(0):if isnull(CCJCCCJ) then CCJCCCJ=1
CCCCCJ.close : set CCCCCJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJCJJC=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CCCCCJ.close : set CCCCCJ=nothing:CCCJJ.Close : Set CCCJJ=Nothing:CCJCC.Close : Set CCJCC=Nothing:CCCJJCJ.Close : Set CCCJJCJ = Nothing:CCJJC.Close : Set CCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCJC("!$*0|6DD286"),server.URLEncode(CJJJCCCJ)):Response.Redirect CJJJJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CCCJJCC(ByVal CCCJCJJ,style):if not isdate(CCCJCJJ) then
CCCJJCC=CCCJCJJ:exit function
end if:dim CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:CCCJCJJ=cdate(CCCJCJJ):CCCCCC=Year(CCCJCJJ):CJJJJJJ=Month(CCCJCJJ):CJJJJJC=Day(CCCJCJJ):select case style:case 0:CCCJJCC=CCCCCC & CJJJJCJC("\") & right(0 & CJJJJJJ,2) & CJJJJCJC("\") & right(0 & CJJJJJC,2):case 1:CCCJJCC=CCCCCC & right(0 & CJJJJJJ,2) & right(0 & CJJJJJC,2):case 2:CCCJJCC=right(CCCCCC,2) & CJJJJCJC("\") & right(0 & CJJJJJJ,2) & CJJJJCJC("\") & right(0 & CJJJJJC,2):case 3:CCCJJCC=CCCCCC & CJJJJCJC("\") & right(0 & CJJJJJJ,2):case 4:CCCJJCC=right(0 & CJJJJJJ,2) & CJJJJCJC("\") & right(0 & CJJJJJC,2):case 5:CCCJJCC=right(0 & CJJJJJC,2):case 6:CCCJJCC=CCCCCC & CJJJJCJC("幯@") & right(0 & CJJJJJJ,2) & CJJJJCJC("會@") & right(0 & CJJJJJC,2) & CJJJJCJC("无@"):case else
CCCJJCC=CCCJCJJ:end select:End Function:Function CCCJCJC(Table):Dim CCCCCJ, CJJJJCC, str(), CCJCJJ,CCJCJC,CJJJCJJ:CJJJCJJ=UCase(Table):If Not IsArray(Application(CJJJJCJC("!$*0") & CJJJCJJ)) Then
CCCJC=CJJJJCJC("D6=64E ,:5[?2>6[>6>36CEJA6 ,7C@> ,,") & Table & CJJJJCJC(". ,@C56C ,3J ,D@CE[:5"):set CCCCCJ=server.createobject(CJJJJCJC("25@53]C64@C5D6E")):CCCCCJ.open CCCJC,CCJJC,1:CJJJJCC = CCCCCJ.RecordCount:ReDim str(CJJJJCC, 2):If CJJJJCC > 0 Then
For CCJCJJ = 1 To CJJJJCC:for CCJCJC=0 to 2:str(CCJCJJ, CCJCJC) = CCCCCJ(CCJCJC):next:CCCCCJ.MoveNext:Next
End If:CCCCCJ.Close: Set CCCCCJ = Nothing:Application(CJJJJCJC("!$*0") & CJJJCJJ) = str
End If:CCCJCJC = Application(CJJJJCJC("!$*0") & CJJJCJJ):End Function:Sub ShowListSelect(CJJJCCJC,CJJJCCCC,CJJCJJJJ):Dim str, CCJCJJ, CJJJCJC:CJJJCJC = CCCJCJC(CJJJCCJC):For CCJCJJ = 1 To UBound(CJJJCJC):if Cstr(CJJJCJC(CCJCJJ,2))=Cstr(CJJJCCCC) then
str = str & CJJJJCJC("k@AE:@? ,G2=F6lV") & CJJJCJC(CCJCJJ, 0) & CJJJJCJC("V")
If CStr(CJJJCJC(CCJCJJ, 0)) = CJJCJJJJ & "" Then str = str & CJJJJCJC(" ,D6=64E65lVD6=64E65V")
str = str & CJJJJCJC("m") & CJJJCJC(CCJCJJ, 1) & CJJJJCJC("k^@AE:@?m")
end if:Next:Response.Write str:End Sub:Function CCCJCCJ(CJJJCCJC,CJJJCCCC,CJJJJJCJ):Dim str, CCJCJJ, CJJJCJC:CJJJCJC = CCCJCJC(CJJJCCJC):For CCJCJJ = 1 To UBound(CJJJCJC):if Cstr(CJJJCJC(CCJCJJ,2))=Cstr(CJJJCCCC) and CStr(CJJJCJC(CCJCJJ, 0)) = CJJJJJCJ & "" then
str=CJJJCJC(CCJCJJ,1):exit for
end if:Next:if str="" then str=CJJJJCJC(",朥@矠@.")
CCCJCCJ=str:End Function:Sub InsertLog(CJJCJJJC,CJJJJCJJ):dim CCCCJC:CCCCJC=CJJJJCJC("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCCCJ  & CJJJJCJC("[V") & CCJCJCC & CJJJJCJC("V") & CJJJJCJC("[V") & CCJCJJC(CJJJJCJJ) & CJJJJCJC("V") & CJJJJCJC("[") & CJJCJJJC  & CJJJJCJC("[V") & CCJCCJJ & CJJJJCJC("V") & CJJJJCJC("X")
CCJJC.execute CCCCJC:End Sub::::::::::::::Function CCCJCCC(CJJCJJCJ,str):dim CCJCJJ,CJJJCCJ,CJJJCCC,CJJJJJJ,CCCJCJ,CJJCJJJ,CCJCCJ:CCJCCJ=ucase(CJJCJJCJ):CJJCJJJ=str:if CJJCJJJ="" then
CJJCJJJ=request.cookies(CCJCCJ):if CJJCJJJ="" then
CCCJCCC=""
else
CJJCJJJ=strreverse(CJJCJJJ):CJJJCCJ=len(CJJCJJJ):for CCJCJJ=1 to CJJJCCJ-1 step 2:CJJJJJJ=mid(CJJCJJJ,CCJCJJ,1):CCCJCJ=mid(CJJCJJJ,CCJCJJ+1,1):CJJJCCC=CJJJCCC & CCCJCJ & CJJJJJJ:next:CJJJCCC=replace(CJJJCCC,CJJJJCJC("L0N"),CJJJJCJC(" ,")):CJJJCCC=replace(CJJJCCC,CJJJJCJC("LIN"),CJJJJCJC("Y")):CJJJCCC=replace(CJJJCCC,CJJJJCJC("L:N"),CJJJJCJC("^")):CCCJCCC=trim(CJJJCCC)
end if
else
if Len(CJJCJJJ) Mod 2=1 then CJJCJJJ=CJJCJJJ & CJJJJCJC(" ,")
CJJCJJJ=replace(CJJCJJJ,CJJJJCJC(" ,"),CJJJJCJC("L0N")):CJJCJJJ=replace(CJJCJJJ,CJJJJCJC("Y"),CJJJJCJC("LIN")):CJJCJJJ=replace(CJJCJJJ,CJJJJCJC("^"),CJJJJCJC("L:N")):CJJJCCJ=len(CJJCJJJ):for CCJCJJ=1 to CJJJCCJ-1 step 2:CJJJJJJ=mid(CJJCJJJ,CCJCJJ,1):CCCJCJ=mid(CJJCJJJ,CCJCJJ+1,1):CJJJCCC=CJJJCCC & CCCJCJ & CJJJJJJ:next:CJJJCCC=Trim(strreverse(CJJJCCC)):CCCJCCC=CJJJCCC:response.cookies(CCJCCJ)=CJJJCCC
end if:End Function::Sub ClearCache(CJJCJJCC):Application.Contents.Remove CJJCJJCC
End Sub::Class jTree:Private CCCJC, CJJCJJC, CJJCJCJ, CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Private Sub Class_Initialize():CJJCJCJ = 0:CJJCJCC = 0:CJJCCCC=10:End Sub:Public Property Let Table(CJJCJCJJ):if CJJCJCJJ="" then Call RedirectMessage(CJJJJCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJCCJJ=CJJCJCJJ:CJJCCJC=CJJJJCJC("!$*0") & UCase(CJJCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJCCJJ:End Property:::Private Sub GetTreeArray():Dim CCJCJJ, CCJCJC, CJCJJJJ,RecordCount:CJJCJJC = Application(CJJCCJC):If Not IsArray(CJJCJJC) Then
CCCJC = CJJJJCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJCCJJ:if CJJCCCJ<>"" then CCCJC=CCCJC & CJJJJCJC(" ,H96C6 ,") & CJJCCCJ
set CJCJJJJ=CCJJC.execute(CCCJC):RecordCount=CJCJJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJJJCJC("柠@话@W") & CJJCCJJ & CJJJJCJC("^") & CJJCCCJ & CJJJJCJC("X沜@朄@绎@林@敫@捩@"))
CJJCJCC=RecordCount+CJJCCCC:ReDim CJJCJJC(CJJCJCC, 4):CCCJC = CJJJJCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJJJCJC(" ,H:E9 ,W?@=@4<X"):if CJJCCCJ<>"" then CCCJC=CCCJC & CJJJJCJC(" ,H96C6 ,") & CJJCCCJ
CCCJC=CCCJC & CJJJJCJC(" ,@C56C ,3J ,D@CE[:5"):set CJCJJJJ=CCJJC.execute(CCCJC):For CCJCJJ = 1 To RecordCount:For CCJCJC = 0 To 4:CJJCJJC(CCJCJJ, CCJCJC) = CJCJJJJ(CCJCJC):if IsNull(CJJCJJC(CCJCJJ,4)) then CJJCJJC(CCJCJJ,4)=0
If CJJCJJC(CCJCJJ,2)="" then CJJCJJC(CCJCJJ,2)=CJJJJCJC(",穵@.")
Next:CJCJJJJ.MoveNext:Next:CJCJJJJ.Close: Set CJCJJJJ = Nothing:for CCJCJJ=CJJCJCC-(CJJCCCC-1) to CJJCJCC:CJJCJJC(CCJCJJ,0)=CCJCJJ:next:Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock()
else
CJJCJCC=Ubound(CJJCJJC)
End If:End Sub:::::Private Function CCCCJJC(CJJJJJCJ):dim CCJCJJ,CJCJJCJ:CCCCJJC=0:CJCJJCJ=CStr(CJJJJJCJ):if CJCJJCJ<>"0" then
for CCJCJJ=1 to CJJCJCC:If CStr(CJJCJJC(CCJCJJ, 0))=CJCJJCJ Then
CCCCJJC = CCJCJJ:Exit For
End If:Next
end if:End Function:Public Function CCCCJCJ(CJJJJJCJ):if Cstr(CJJJJJCJ)="0" then
CCCCJCJ=CJJJJCJC("栴@")
else
Dim CCJCJJ,CJCJJJJ:CCJCJJ=CCCCJJC(CJJJJJCJ):if CCJCJJ>0 then
CCCCJCJ=CJJCJJC(CCJCJJ,2):if CCCCJCJ="" then
set CJCJJJJ=CCJJC.execute(CJJJJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJJJCJC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCJJJJ.eof then Call RedirectMessage(CJJJJCJC("xs（,") & CJJJJJCJ & CJJJJCJC("）,朥@批@别@"))
CCCCJCJ=CJCJJJJ(1):Call UpdateCache(CJJJJJCJ,CJCJJJJ(0),CCCCJCJ,CJCJJJJ(2),CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing
end if
else
set CJCJJJJ=CCJJC.execute(CJJJJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJJJCJC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCJJJJ.eof then Call RedirectMessage(CJJJJCJC("xs（,") & CJJJJJCJ & CJJJJCJC("）,朥@批@别@"))
CCCCJCJ=CJCJJJJ(1):Call UpdateCache(CJJJJJCJ,CJCJJJJ(0),CCCCJCJ,CJCJJJJ(2),CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing
end if
end if:End Function:::Public Function CCCCJCC(CJJJJJCJ):Dim CCJCJJ,CJCJJCC:CCJCJJ=CCCCJJC(CJJJJJCJ):if CCJCJJ=0 then
CJCJJCC=CCCCCJJ(CJJJJJCJ)
else
CJCJJCC=CJJCJJC(CCJCJJ,3):if isnull(CJCJJCC) or CJCJJCC="" then
CJCJJCC=CCCCCJJ(CJJJJJCJ)
elseif Mid(CJCJJCC,instrrev(CJCJJCC,CJJJJCJC("["))+1)<>CStr(CJJJJJCJ) then
CJCJJCC=CCCCCJJ(CJJJJJCJ)
elseif Left(CJCJJCC,1)=CJJJJCJC("[") then
CJCJJCC=CCCCCJJ(CJJJJJCJ)
end if
end if:CCCCJCC=CJCJJCC:End Function:Private Function CCCCCJJ(CJJJJJCJ):dim CJCJJCJ:CJCJJCJ=CStr(CJJJJJCJ):if CJCJJCJ="0" then
CCCCCJJ=""
else
dim CJCJJJJ:set CJCJJJJ=CCJJC.execute(CJJJJCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJCCJJ & CJJJJCJC(" ,H96C6 ,:5l") & CJJJJJCJ):if CJCJJJJ.eof then
Call UpdateCache(CJJJJJCJ,"","","",""):Call RedirectMessage(CJJJJCJC("顴@盩@（,xs：,") & CJJJJJCJ & CJJJJCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCJJJJ(0)=0 then
CCCCCJJ="0," & CJJJJJCJ
else
CCCCCJJ=CCCCJCC(CJCJJJJ(0)) & CJJJJCJC("[") & CJJJJJCJ
end if:if CJCJJJJ(2)<>CCCCCJJ then
CCJJC.execute CJJJJCJC("FA52E6 ,") & CJJCCJJ & CJJJJCJC(" ,D6E ,A2E9lV") & CCCCCJJ & CJJJJCJC("V ,H96C6 ,:5l") & CJJJJJCJ
else
CCCCCJJ=CJCJJJJ(2)
end if
end if:Call UpdateCache(CJJJJJCJ,CJCJJJJ(0),CJCJJJJ(1),CCCCCJJ,CJCJJJJ(3)):CJCJJJJ.Close: Set CJCJJJJ = Nothing
end if:End Function::Public Function CCCCCJC(CJJJJJCJ):CCCCCJC = Mid(CCCCJCC(CJJJJJCJ), 3):End Function:Public Function CCCCCCJ(CJJJJJCJ):Dim CCJCJJ, CCJCJC, CJCJCJJ,Str, CJCJJCC, CJJJJCC, CJCJCJC():CJCJJCC = CCCCCJC(CJJJJJCJ):CJCJJCC = Split(CJCJJCC, CJJJJCJC("[")):for CCJCJJ=0 to Ubound(CJCJJCC):CJCJCJJ=CJCJJCC(CCJCJJ):str=str & CJJJJCJC("M") & CJCJCJJ & CJJJJCJC("M") & CCCCJCJ(CJCJCJJ):next:if str<>"" then str=Mid(str,2)
CCCCCCJ=str:End Function:::::::::Public Function Sql_GetChildren(CJJJJJCJ):dim CJCJJCC:CJCJJCC=CCCCJCC(CJJJJJCJ):Sql_GetChildren = CJJCCJJ & CJJJJCJC("0A2E9ZV[V ,=:<6 ,V") & CJCJJCC & CJJJJCJC("[TV")
End Function:::Public Function GetPositionStr_From(CJJJJJCJ, CJJJJJJC):if isnull(CJJJJJCJ) or isnull(CJJJJJJC) then
GetPositionStr_From=CJJJJCJC(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CCJCJJ, CJCJCJC, CJJJJCC, CJCJCCJ:CJJJJJJC = CStr(CJJJJJJC):If CJJJJJJC = "0" or CJJJJJJC = CStr(CJJJJJCJ) Then
Str = CCCCJCJ(CJJJJJCJ)
Else
CJCJCJC = Split(CCCCCCJ(CJJJJJCJ), CJJJJCJC("M")):CJJJJCC = UBound(CJCJCJC):CJCJCCJ = False:For CCJCJJ = 0 To CJJJJCC Step 2:If CJCJCJC(CCJCJJ) = CJJJJJJC And Not CJCJCCJ Then CJCJCCJ = True
If CJCJCCJ Then
If Str <> "" Then Str = Str & CJJJJCJC("→,")
Str = Str & CJCJCJC(CCJCJJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJJJCJC("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJJCCJC
End Sub:Public Sub UpdateCache(CJJJJJCJ,CJCJCJJ,CJJCJCJC,CJCJJCC,CJJCJCCJ):dim CCJCJJ,CCJCJC:CJJJJJCJ=CLng(CJJJJJCJ):CCJCJJ=CCCCJJC(CJJJJJCJ):if CJCJCJJ="" and CJJCJCJC="" and CJCJJCC="" and CJJCJCCJ="" then
if CCJCJJ>0 then
for CCJCJC=1 to 4:CJJCJJC(CCJCJJ,CCJCJC)=Null:next
end if
else
if CCJCJJ=0 then
for CCJCJC=1 to CJJCJCC:if CJJCJJC(CCJCJC,1) & ""="" then
CCJCJJ=CCJCJC:exit for
end if:next
end if:if CCJCJJ=0 then
Call ClearCache
else
CJJCJJC(CCJCJJ,0)=CLng(CJJJJJCJ):if CJCJCJJ<>"" then CJJCJJC(CCJCJJ,1)=CLng(CJCJCJJ)
if CJJCJCJC<>"" then CJJCJJC(CCJCJJ,2)=CJJCJCJC
if CJCJJCC<>"" then CJJCJJC(CCJCJJ,3)=CJCJJCC
if CJJCJCCJ<>"" then CJJCJJC(CCJCJJ,4)=CLng(CJJCJCCJ)
end if
end if:if CCJCJJ>0 then
Application.Lock():Application(CJJCCJC) = CJJCJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCCJ):Call ConnClose:Response.Write CJJJCCCJ:Response.End:End Sub:Private Function CCJCCCJ():CCJCCCJ=CJJJJJCC+1:End Function:Private Function CJJJJJCC():dim CCCCCJ:set CCCCCJ=CCJJC.execute(CJJJJCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJCCJJ & CJJJJCJC(" ,@C56C ,3J ,:5 ,56D4")):CJJJJJCC=CCCCCJ(0):CCCCCJ.Close: Set CCCCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCJJJC:CCCJC=Request.ServerVariables(CJJJJCJC("!p%w0x}u~")):if instr(CCCJC,CJJJJCJC("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CJJCCC and not CJCCCJ then Call RedirectMessage(CJJJJCJC("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CCJJJC=CJJCJJ
elseif instr(CCCJC,CJJJJCJC("^>^D49@@=^DEF56?E^"))>0 or instr(CCCJC,CJJJJCJC("^DEF56?E^"))>0 then
Call CheckLogined:CCJJJC=CJJCJJ
elseif instr(CCCJC,CJJJJCJC("^D49@@="))>0 then
CCJJJC=Request.QueryString(CJJJJCJC("D49@@=")):if not CCJCCJC(CCJJJC) then CCJJJC=Request.QueryString(CJJJJCJC("F"))
if not CCJCCJC(CCJJJC) then CCJJJC=Request.QueryString(CJJJJCJC("D4"))
if not CCJCCJC(CCJJJC) then Call RedirectMessage(CJJJJCJC("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CCJJJC=csng(CCJJJC)
end if:if CCJJJC=0 then Call RedirectMessage(CJJJJCJC("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJCJCCC:Call SetConfig:Sub SetConfig():dim CJCJCJC,CCCCCJ:CCCJC=CJJJJCJC("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") & CCJJJC:set CCCCCJ=CCJJC.execute(CCCJC):if CCCCCJ.eof then Call RedirectMessage(CJJJJCJC("患@W") & CCCCJ & CJJJJCJC("X戻@圣@癿@卐@佈@W") & CCJJJC & CJJJJCJC("X朥@批@别@。,"))
ReDim CJCJCJC(61):CJCJCJC(0)=CCCCCJ(CJJJJCJC(";:2@H6:")) & "":CJCJCJC(1)=CCCCCJ(CJJJJCJC("EJA6")):CJCJCJC(2)=CCCCCJ(CJJJJCJC("D>D")):CJCJCJC(3)=CCCCCJ(CJJJJCJC("4FDE@>8C@FA")) & "":CJCJCJC(4)=CCCCCJ(CJJJJCJC("D:5632C0@E96C")) & "":CJCJCJC(5)=IIf(isnull(CCCCCJ(CJJJJCJC("E6DEC6DF=EG:6H"))),0,CCCCCJ(CJJJJCJC("E6DEC6DF=EG:6H"))):CJCJCJC(6)=CCCCCJ(CJJJJCJC("K:IF?E:>6")):CJCJCJC(7)=CCCCCJ(CJJJJCJC("766")):CJCJCJC(8)=CCCCCJ(CJJJJCJC("C6E6DE52J")):CJCJCJC(9)=CCCCCJ(CJJJJCJC("6IA:C652E6")):CJCJCJC(10)=CCCCCJ(CJJJJCJC("E:E=6")):CJCJCJC(11)=CCCCCJ(CJJJJCJC(":?EC@")) & "":CJCJCJC(12)=CCCCCJ(CJJJJCJC("A:4EFC6")) & "":CJCJCJC(13)=CCCCCJ(CJJJJCJC("72>:=J")):CJCJCJC(14)=CCCCCJ(CJJJJCJC("4@AJC:89E")) & "":CJCJCJC(15)=IIf(isnull(CCCCCJ(CJJJJCJC("D6>6DE6C0DE2CE052E6"))),CJJJJCJC("`h__\`\`"),CCCCCJ(CJJJJCJC("D6>6DE6C0DE2CE052E6"))):CJCJCJC(16)=IIf(isnull(CCCCCJ(CJJJJCJC("K:IF?0E:>6D09:89=:89E"))),0,CCCCCJ(CJJJJCJC("K:IF?0E:>6D09:89=:89E"))):CJCJCJC(17)=CCCCCJ(CJJJJCJC("4@?E24E")) & "":CJCJCJC(18)=CCCCCJ(CJJJJCJC("D2?5E23=6")):CJCJCJC(19)=CCCCCJ(CJJJJCJC("4C:D:D")):CJCJCJC(20)=CCCCCJ(CJJJJCJC("JJ52E6")):CJCJCJC(21)=CCCCCJ(CJJJJCJC("BB")):CJCJCJC(22)=CCCCCJ(CJJJJCJC("JFJF60D>D0EA=")) & "":CJCJCJC(23)=CCCCCJ(CJJJJCJC("JFJF60E6DE0=3")) & "":CJCJCJC(25)=CCCCCJ(CJJJJCJC("6IA6CE")):CJCJCJC(26)=CCCCCJ(CJJJJCJC(">@5:?7@")):CJCJCJC(27)=CCCCCJ(CJJJJCJC("9@>6A286E@AA:4EFC6")) & "":CJCJCJC(28)=CCCCCJ(CJJJJCJC("4C:D:D=3")):CJCJCJC(29)=IIf(CCCCCJ(CJJJJCJC("4C:D:D@=5")),False,True):CJCJCJC(30)=CCCCCJ(CJJJJCJC("8C@FA8F:52?46")):CJCJCJC(31)=CCCCCJ(CJJJJCJC("3:@7665324<")):CJCJCJC(32)=CCCCCJ(CJJJJCJC("<6JDEC")):CJCJCJC(33)=CCCCCJ(CJJJJCJC("=@8@")) & "":CJCJCJC(34)=CCCCCJ(CJJJJCJC("K:46")):CJCJCJC(35)=IIf(CCCCCJ(CJJJJCJC(":D?6H")),True,False):CJCJCJC(36)=121:CJCJCJC(37)=111:CJCJCJC(38)=160:CJCJCJC(39)=CCCCCJ(CJJJJCJC("8F6DE3@@<")):CJCJCJC(40)=CCCCCJ(CJJJJCJC("75D")):CJCJCJC(42)=CCCCCJ(CJJJJCJC("9@>6=@8:?")):CJCJCJC(43)=CCCCCJ(CJJJJCJC("K:IF?0?6657665324<")):CJCJCJC(44)=CCCCCJ(CJJJJCJC("K:IF?0E:>6D0=:>:E")):CJCJCJC(45)=CCCCCJ(CJJJJCJC("4@>A=6E60:?7@")):CJCJCJC(46)=CCCCCJ(CJJJJCJC("E6DE:?EC@")) & "":CJCJCJC(47)=IIf(isnull(CCCCCJ(CJJJJCJC("JFJF60367@C60E:>6"))),0,CCCCCJ(CJJJJCJC("JFJF60367@C60E:>6"))):CJCJCJC(49)=CCCCCJ(CJJJJCJC("D>D0C646:G6C")):CJCJCJC(50)=CCCCCJ(CJJJJCJC("D>D0D:8?")) & "":CJCJCJC(52)=CCCCCJ(CJJJJCJC("JFJF602CC2?86")):CJCJCJC(53)=IIf(isnull(CCCCCJ(CJJJJCJC("DEF56?E0BF6DE:@?04@F?E"))),0,CCCCCJ(CJJJJCJC("DEF56?E0BF6DE:@?04@F?E"))):CJCJCJC(54)=CCCCCJ(CJJJJCJC("9:560=30@FE@7286")):CJCJCJC(55)=CCCCCJ(CJJJJCJC("JFJF60E6DE052JD")):CJCJCJC(56)=CCCCCJ(CJJJJCJC("JFJF60H66<0=:>:E")):CJCJCJC(57)=CCCCCJ(CJJJJCJC("JFJF604964<65")):CJCJCJC(58)=CCCCCJ(CJJJJCJC("K:IF?0?6657665324<0?6IE")):CJCJCJC(59)=CCCCCJ(CJJJJCJC("4964<?6HDEF56?E")):CJCJCJC(60)=CCCCCJ(CJJJJCJC("K:IF?04=@D6052E6")):CCCCCJ.close : set CCCCCJ=nothing:if isNull(CJCJCJC(8)) or CJCJCJC(8)="" then CJCJCJC(8)=0
if isdate(CJCJCJC(9)) then
CJCJCJC(9)=cdate(CJCJCJC(9)):if CJCJCJC(9)<Date then Call RedirectMessage(CJJJJCJC("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJCJCJC(9) & CJJJJCJC("X巭@迂@。,"))
end if:if not CCJCCJC(CJCJCJC(20)) then CJCJCJC(20)=7
select case CJCJCJC(1):case 1,2,16:CJCJCJC(36)=159:case 4,5,6,10,11:CJCJCJC(36)=190:CJCJCJC(37)=178:CJCJCJC(38)=191:case 7,13:CJCJCJC(36)=164:CJCJCJC(37)=178:CJCJCJC(38)=179:end select:CJCJCCC=CJCJCJC:End Sub:Function CCCJJJC(CJJCJJCJ):dim CJCJCJC(7,1),CCJCJJ,CJCCJJJ,CJCCJJC:CJCCJJJ=Array(CJJJJCJC("$49@@="),CJJJJCJC("$EF56?E"),CJJJJCJC("s6AE"),CJJJJCJC("vC256"),CJJJJCJC("r=2DD>2E6"),CJJJJCJC("}F>36C"),CJJJJCJC("%62496C"),CJJJJCJC("!2C6?E")):select case CJCJCCC(1):case 1,2 : CJCCJJC=Array(CJJJJCJC("孡@栜@"),CJJJJCJC("孡@甚@"),CJJJJCJC("珨@红@"),CJJJJCJC("幯@红@"),CJJJJCJC("吇@孡@"),CJJJJCJC("孡@史@"),CJJJJCJC("敔@布@"),CJJJJCJC("宱@镺@")):case 3,16 : CJCCJJC=Array(CJJJJCJC("孡@栜@"),CJJJJCJC("孡@甚@"),CJJJJCJC("陝@糶@"),CJJJJCJC("幯@红@"),CJJJJCJC("吇@孡@"),CJJJJCJC("孡@史@"),CJJJJCJC("敔@布@"),CJJJJCJC("宱@镺@")):case 4 : CJCCJJC=Array(CJJJJCJC("匶@陝@"),CJJJJCJC("杠@论@耀@"),CJJJJCJC("卐@佈@"),CJJJJCJC("幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("匶@甚@"),CJJJJCJC("宱@屙@")):case 5 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("呓@巠@"),CJJJJCJC("郣@闣@"),CJJJJCJC("幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("呓@巠@"),CJJJJCJC("宱@屙@")):case 6 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("杠@论@耀@"),CJJJJCJC("线@刦@"),CJJJJCJC("幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("宱@屙@")):case 7 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("宓@兰@"),CJJJJCJC("郣@闣@"),CJJJJCJC("幯@仸@"),CJJJJCJC("戓@叆@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("宱@屙@")):case 8 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("杠@论@耀@"),CJJJJCJC("卐@佈@"),CJJJJCJC("兠@聇@幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("酈@偱@")):case 9 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("敔@布@"),CJJJJCJC("卐@佈@"),CJJJJCJC("幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("酈@偱@")):case 10 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("氌@譡@"),CJJJJCJC("郣@闣@"),CJJJJCJC("兠@譡@幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("宱@屙@")):case 11 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("內@劜@呓@"),CJJJJCJC("郣@闣@"),CJJJJCJC("幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("宱@屙@")):case 12 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("幭@譡@"),CJJJJCJC("卐@佈@"),CJJJJCJC("兠@譡@幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("宱@屙@")):case 13 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("孡@呓@"),CJJJJCJC("卐@佈@"),CJJJJCJC("幯@仸@"),CJJJJCJC("戓@叆@"),CJJJJCJC("缑@史@"),CJJJJCJC("敔@呓@"),CJJJJCJC("宱@屙@")):case 14 : CJCCJJC=Array(CJJJJCJC("月@劜@炴@"),CJJJJCJC("局@氌@"),CJJJJCJC("线@刦@"),CJJJJCJC("幯@仸@"),CJJJJCJC("邶@采@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("宱@屙@")):case 15 : CJCCJJC=Array(CJJJJCJC("卐@佈@"),CJJJJCJC("盌@独@氌@譡@"),CJJJJCJC("卐@佈@"),CJJJJCJC("兠@譡@幯@仸@"),CJJJJCJC("吇@了@"),CJJJJCJC("缑@史@"),CJJJJCJC("咣@话@布@"),CJJJJCJC("宱@屙@")):case else : CJCCJJC=CJCCJJJ
end select:for CCJCJJ=0 to Ubound(CJCJCJC):CJCJCJC(CCJCJJ,0)=CJCCJJJ(CCJCJJ):CJCJCJC(CCJCJJ,1)=CJCCJJC(CCJCJJ):next:for CCJCJJ=0 to Ubound(CJCJCJC):if CJCJCJC(CCJCJJ,0)=CJJCJJCJ then
CCCJJJC=CJCJCJC(CCJCJJ,1):exit for
end if:next:End Function::if not CJCJCCC(19) then Call RedirectMessage(CJJJJCJC("寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
dim CJCCJCJ,CJCCJCC,CJCCCJJ:CJCCJCJ=request.QueryString(CJJJJCJC("24E")):CJCCJCC=request.QueryString(CJJJJCJC(":5=:DE")):CJCCCJJ=request.QueryString(CJJJJCJC("E@52E6")):if CJCCJCJ=CJJJJCJC("56=") and CJCCJCC<>"" then
CCJJC.execute CJJJJCJC("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,:5 ,:? ,W") & CJCCJCC & CJJJJCJC("X"):Call InsertLog(3,CJJJJCJC("创@陟@刁@双@讫@彐@W") & CJCCJCC & CJJJJCJC("X")):Call ConnClose:response.end
elseif CJCCJCJ=CJJJJCJC("E@52E6") and CJCCJCC<>"" and isdate(CJCCCJJ) then
CCJJC.execute CJJJJCJC("FA52E6 ,E6DE032E49 ,D6E ,E@52E6lV") & CJCCCJJ & CJJJJCJC("V ,H96C6 ,:5 ,:? ,W") & CJCCJCC & CJJJJCJC("X")
Call ConnClose:response.end
else
Call CCCJCCC(CJJJJCJC("&#{"),CCJCCJJ)
end if:dim CCJCJJ,CJJJJCC,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ:CJJJJCC=CCJCJJC(Request.QueryString(CJJJJCJC("}F>"))):CJCCCJC=CCJCJJC(Request.QueryString(CJJJJCJC("}:4<"))):CJCCCCJ=CCJCJJC(Request.QueryString(CJJJJCJC("s6AE"))):CCJJJCJ=CCJCJJC(Request.QueryString(CJJJJCJC("vC256"))):CCJJJCC=CCJCJJC(Request.QueryString(CJJJJCJC("vC@FA"))):CJCCCCC=Request.QueryString(CJJJJCJC("!@DE")):CCJJJJJ=CCJCJJC(Request.QueryString(CJJJJCJC("p86"))):CCJJJJC=CCJCJJC(Request.QueryString(CJJJJCJC("$6I"))):CCJJCJJ=CCJCJJC(Request.QueryString(CJJJJCJC("|@3:=6"))):dim CJJCJJC:set CJJCJJC=new jtree:CJJCJJC.table=CJJJJCJC(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJJCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJCJC("k9625m") & vbCrLf):Response.Write(CJJJJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJCJC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJJJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJCJC("k^9625m") & vbCrLf):Response.Write(CJJJJCJC("k3@5Jm") & vbCrLf):Response.Write(CJJJJCJC("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,k=:mk2 ,9C67lQ4C:D:D0a?5]2DAQm巭@浆@访@划@衣@k^=:m") & vbCrLf):Response.Write(CJJJJCJC(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ4C:D:D0a?50?@E6DE]2DAQm朥@浆@访@划@衣@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJCJC("k^F=m") & vbCrLf):Response.Write(CJJJJCJC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQ86EQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJJCJC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,kECm") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CCCJJJC(CJJJJCJC("}F>36C")):Response.Write(CJJJJCJC("：,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5mk:?AFE ,?2>6lQ}F>Q ,EJA6lQE6IEQ ,:5lQ}F>Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CJJJJCC:Response.Write(CJJJJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,4=2DDlQ=236=Qm怢@刦@：,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kD6=64E ,?2>6lQ$6IQ ,:5lQ$6IQm") & vbCrLf):Response.Write(CJJJJCJC(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCJC(" ,k@AE:@? ,G2=F6lQ`Q ,")):Response.Write  IIf(CCJJJJC="1",CJJJJCJC("D6=64E65"),""):Response.Write(CJJJJCJC("m甲@k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCJC(" ,k@AE:@? ,G2=F6lQ_Q ,")):Response.Write  IIf(CCJJJJC="0",CJJJJCJC("D6=64E65"),""):Response.Write(CJJJJCJC("m奮@k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  CCCJJJC(CJJJJCJC("s6AE")):Response.Write(CJJJJCJC("：,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5mkD6=64E ,?2>6lQs6AEQ ,52E2\G2=F6lQ")):Response.Write  CJCCCCJ:Response.Write(CJJJJCJC("Qmk^D6=64Emk^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,4=2DDlQ=236=Qm")):Response.Write  IIf(CJCJCCC(3)<>"",CJCJCCC(3) & CJJJJCJC("：,"),""):Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJJJCJC(" ,")):If CJCJCCC(3)<>"" Then
Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,kD6=64E ,?2>6lQvC@FAQ ,:5lQvC@FAQm") & vbCrLf):Response.Write(CJJJJCJC(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCJC(" ,")):Call ShowListSelect(CJJJJCJC(">6>36C04FDE@>8C@FA"),CJJCJJ,CCJJJCC):Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCJC(" ,kECm") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,4=2DDlQ=236=Qm姎@合@：,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5mk:?AFE ,?2>6lQ}:4<Q ,EJA6lQE6IEQ ,:5lQ}:4<Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write  CJCCCJC:Response.Write(CJJJJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,4=2DDlQ=236=Qm幯@齿@：,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5mk:?AFE ,?2>6lQp86Q ,EJA6lQE6IEQ ,:5lQp86Q ,D:K6lQfQ ,G2=F6lQ")):Response.Write  CCJJJJJ:Response.Write(CJJJJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,4=2DDlQ=236=Qm幯@红@：,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kD6=64E ,?2>6lQ8C256Q ,:5lQ8C256Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,k@AE:@? ,G2=F6lQQm,丈@陋@.k^@AE:@?m") & vbCrLf):Response.Write(CJJJJCJC(" ,")):Call ShowListSelect(CJJJJCJC(">6>36C08C256"),IIf(CJCJCCC(1)<=2,0,CJJCJJ),CCJJJCJ):Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k^D6=64Em") & vbCrLf):Response.Write(CJJJJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,4=2DDlQ=236=Qm扆@朵@：,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5mk:?AFE ,?2>6lQ>@3:=6Q ,EJA6lQE6IEQ ,:5lQ>@3:=6Q ,D:K6lQ`aQ ,G2=F6lQ")):Response.Write  CCJJCJJ:Response.Write(CJJJJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCJC(" ,k5:G ,DEJ=6lQE6IE\2=:8?iC:89Ej ,>2C8:?\E@AidAIQm") & vbCrLf):Response.Write(CJJJJCJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,G2=F6lQ柠@ ,话@Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,k2 ,4=2DDlQ3FEE@?Q ,9C67lQnQ ,E:E=6lQ釈@罩@戻@朄@杜@仱@Qm釈@ ,罩@k^2m") & vbCrLf):Response.Write(CJJJJCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQA@DEQ ,G2=F6lQ`Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,")):If CJCCCCC="1" Then
Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k:>8 ,DC4lQ:>286D^3F==6E]8:7Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\56=Q ,G2=F6lQ创@ ,陟@Q ,E:E=6lQ创@陟@戻@逄@Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\6IA@CEQ ,G2=F6lQ寷@ ,凵@Q ,E:E=6lQ寷@凵@戻@朄@Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,")):If CJCJCCC(2) Then
Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0D>DQ ,G2=F6lQ扆@朵@矨@俜@Q ,E:E=6lQ同@彎@剈@逄@丨@")):Response.Write  CCCJJJC(CJJJJCJC("$EF56?E")):Response.Write(CJJJJCJC("双@迼@扆@朵@矨@俜@Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?\E@52E6Q ,G2=F6lQ戥@歝@无@朚@Q ,E:E=6lQ曯@攴@彎@剈@逄@丨@讫@彐@癿@浆@访@戥@臮@无@朚@Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQE@52E6Q ,G2=F6lQ")):Response.Write  CCCJJCC(date+30,0):Response.Write(CJJJJCJC("Qm") & vbCrLf):Response.Write(CJJJJCJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJCJC("k^7@C>m") & vbCrLf):Response.Write(CJJJJCJC("k3Cm") & vbCrLf)::if CJCCCCC="1" then
dim CCJJCJC,CCJJCCJ:CCCJC=CJJJJCJC("H96C6 ,=3lV") & CJCJCCC(37) & CJJJJCJC("V ,2?5 ,") & CJJCJJC.Sql_GetChildren(CJCCCCJ)
if CCJCCJC(CCJJJCJ) then CCCJC=CCCJC & CJJJJCJC(" ,2?5 ,>6>36C08C256l") & CCJJJCJ
if CCJCCJC(CCJJJCC) then CCCJC=CCCJC & CJJJJCJC(" ,2?5 ,>6>36C04FDE@>8C@FAl") & CCJJJCC
if CJJJJCC<>"" then CCCJC=CCCJC & CJJJJCJC(" ,2?5 ,?F>36ClV") & CJJJJCC & CJJJJCJC("V")
if CJCCCJC<>"" then CCCJC=CCCJC & CJJJJCJC(" ,2?5 ,C62=?2>6lV") & CJCCCJC & CJJJJCJC("V")
if CCJJCJJ<>"" then CCCJC=CCCJC & CJJJJCJC(" ,2?5 ,>@3:=6lV") & CCJJCJJ & CJJJJCJC("V")
if CCJCCJC(CCJJJJC) then CCCJC=CCCJC & CJJJJCJC(" ,2?5 ,D6Il") & CCJJJJC
if CCJCCJC(CCJJJJJ) then CCCJC=CCCJC & CJJJJCJC(" ,2?5 ,286l") & CCJJJJJ
CCCJC=CCCJC & CJJJJCJC(" ,@C56C ,3J ,>6>36C0EJA6[>6>36C08C256[>6>36C"):Call CCCJCCC(CJJJJCJC("$""{"),CCCJC):CCCJC=CJJJJCJC("D6=64E ,:5[?F>36C[C62=?2>6[D6I?2>6[286[>6>36C0EJA6[>6>36C08C256[>@3:=6[52E6E:>6[E@52E6[>6>36C[=3 ,7C@> ,G0E6DE032E490>6>36C ,H:E9 ,W?@=@4<X ,") & CCCJC:set CCJCC=CCJJC.execute(CCCJC):Response.Write(vbCrLf):Response.Write(CJJJJCJC("k7@C> ,?2>6lQ7@C>aQ ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJJJCJC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJJJCJC(" ,kECm") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9 ,E:E=6lQ挄@伕@呓@籶@垆@、,伕@呓@幯@红@、,伕@呓@xs掍@划@QmRk^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9 ,4=2DDlQ?@\I=DQmk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Qmk^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m")):Response.Write  CCCJJJC(CJJJJCJC("}F>36C")):Response.Write(CJJJJCJC("k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m姎@合@k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m怢@刦@k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m幯@齿@k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m")):Response.Write  CCCJJJC(CJJJJCJC("s6AE")):Response.Write(CJJJJCJC("k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m幯@红@k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m扆@朵@k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m刁@双@无@朚@k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE9m戥@歝@无@朚@k^E9m") & vbCrLf):Response.Write(CJJJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCJC(" ,")):CCJCJJ=1:while not CCJCC.eof:Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,kECm") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCJJ:Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQ ,4=2DDlQ?@\I=DQmk:?AFE ,?2>6lQ:5=:DEQ ,EJA6lQ4964<3@IQ ,G2=F6lQ")):Response.Write  CCJCC(0):Response.Write(CJJJJCJC("Qmk^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCC(1):Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,4=2DDlQH:?Q ,9C67lQDEF56?E:?7@]2DAn:5l")):Response.Write  CCJCC(10):Response.Write(CJJJJCJC("Qm")):Response.Write  CCJCC(2):Response.Write(CJJJJCJC("k^2mk^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCC(3):Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCC(4):Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5m") & vbCrLf):Response.Write(CJJJJCJC(" ,")):if CCJCC(5)<>CCJJCJC then
CCJJCJC=CCJCC(5):CCJJCCJ=CJJCJJC.GetPositionStr_From(CCJJCJC,CCJJJC)
end if:Response.Write CCJJCCJ:Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJCCJ(CJJJJCJC(">6>36C08C256"),CCJJJC,CCJCC(6)):Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJCC(7):Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJJCC(CCJCC(8),0):Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCCJJCC(CCJCC(9),0):Response.Write(CJJJJCJC("k^E5m") & vbCrLf):Response.Write(CJJJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCJC(" ,")):CCJCJJ=CCJCJJ+1:CCJCC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJJJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCJC("k^7@C>m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJJCJC("k:?AFE ,EJA6lQ9:556?Q ,:5lQ>6>\EJA6Q ,G2=F6lQ")):Response.Write  CJJJJC:Response.Write(CJJJJCJC("Qm") & vbCrLf):Response.Write(CJJJJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCJC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]D6=64E42496];DVmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCJC("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCJC("^Y ,8=@32= ,H:?0@A6? ,Y^") & vbCrLf):Response.Write(CJJJJCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCJC(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CJJJJCJC(" ,^^ ,陝@糶@划@衣@") & vbCrLf):Response.Write(CJJJJCJC(" ,SWVD6=64E,?2>6lQs6AEQ.VX]D6=64E42496WL") & vbCrLf):Response.Write(CJJJJCJC(" ,FC=iV^56A2CE>6?E^2==49:=5C6?n:5lVZSWVR>6>\EJA6VX]G2=WX[") & vbCrLf):Response.Write(CJJJJCJC(" ,EC66iECF6") & vbCrLf):Response.Write(CJJJJCJC(" ,NX") & vbCrLf):Response.Write(CJJJJCJC(" ,^^ ,双@扆@朵@矨@俜@") & vbCrLf):Response.Write(CJJJJCJC(" ,SWVR3E?0D>DVX]4=:4<W7F?4E:@?WX ,L") & vbCrLf):Response.Write(CJJJJCJC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CJJJJCJC(" ,:7W:5=:DElllVVXL=2J6C]>D8WV患@沜@朄@逄@丨@件@佐@敫@捩@！,VXN") & vbCrLf):Response.Write(CJJJJCJC(" ,6=D6LH:?0@A6?WVD6?5D>D]2DAnE23=6lG0E6DE032E490>6>36CU:5=:DElVZ:5=:DE[V双@迼@扆@朵@矨@俜@V[Ved_[ca_VXN") & vbCrLf):Response.Write(CJJJJCJC(" ,NX") & vbCrLf):Response.Write(CJJJJCJC(" ,^^ ,扴@释@创@陟@") & vbCrLf):Response.Write(CJJJJCJC(" ,SWVR3E?\56=VX]@?WV4=:4<V[ ,7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJJJJCJC(" ,G2C ,:5=:DE ,l ,SWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CJJJJCJC(" ,:7 ,W:5=:DEX ,L") & vbCrLf):Response.Write(CJJJJCJC(" ,:7 ,WH:?5@H]4@?7:C>WV创@陟@刁@双@讫@彐@吉@孡@甚@封@丈@冈@凵@玫@诠@往@浆@释@衣@，,患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,-?-?挄@“,硩@宕@”,创@陟@-?挄@“,发@涃@”,丈@伕@创@陟@。,VXX ,L") & vbCrLf):Response.Write(CJJJJCJC(" ,S]86EWVn24El56=V[ ,L ,:5=:DEi ,:5=:DE ,N[ ,7F?4E:@? ,WX ,L") & vbCrLf):Response.Write(CJJJJCJC(" ,:5=:DE ,l ,:5=:DE]DA=:EWV[VX") & vbCrLf):Response.Write(CJJJJCJC(" ,S]6249W:5=:DE[ ,7F?4E:@? ,W:[ ,:E6>X ,L ,SWV:?AFEi4964<3@I,?2>6lQ:5=:DEQ.,G2=F6lQV ,Z ,:E6> ,Z ,VQ.VX]4=@D6DEWVECVX]7256~FEW7F?4E:@? ,WX ,L ,SWE9:DX]C6>@G6WX ,NX ,NX") & vbCrLf):Response.Write(CJJJJCJC(" ,NX") & vbCrLf):Response.Write(CJJJJCJC(" ,N") & vbCrLf):Response.Write(CJJJJCJC(" ,N") & vbCrLf):Response.Write(CJJJJCJC(" ,6=D6 ,L ,=2J6C]>D8WV患@迓@沜@朄@逄@丨@讫@彐@VX ,N") & vbCrLf):Response.Write(CJJJJCJC(" ,NX") & vbCrLf):Response.Write(CJJJJCJC(" ,^^ ,曯@攴@戥@歝@无@朚@") & vbCrLf):Response.Write(CJJJJCJC(" ,SWVR3E?\E@52E6VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCJC(" ,G2C ,:5=:DElSWVE23=6]E30=:DEVX]52E2WV4964<65VX") & vbCrLf):Response.Write(CJJJJCJC(" ,:7W:5=:DEXL") & vbCrLf):Response.Write(CJJJJCJC(" ,=2J6C]AC@>AEWLE:E=6iV诲@辎@兠@戥@歝@无@朚@（,样@弊@：,幯@\會@\无@）,V[G2=F6iSWVRE@52E6VX]G2=WX[>2I=6?8E9i`_N[7F?4E:@?WG2=F6XL") & vbCrLf):Response.Write(CJJJJCJC(" ,G2C ,E@52E6lG2=F6") & vbCrLf):Response.Write(CJJJJCJC(" ,S]86EWVn24ElE@52E6V[L:5=:DEi:5=:DE[E@52E6iE@52E6N[7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJCJC(" ,=2J6C]4=@D6p==WX") & vbCrLf):Response.Write(CJJJJCJC(" ,H:?5@H]=@42E:@?]C6=@25WX") & vbCrLf):Response.Write(CJJJJCJC(" ,NX") & vbCrLf):Response.Write(CJJJJCJC(" ,NX") & vbCrLf):Response.Write(CJJJJCJC(" ,N") & vbCrLf):Response.Write(CJJJJCJC(" ,6=D6L=2J6C]>D8WV患@迓@沜@朄@逄@丨@讫@彐@VXN") & vbCrLf):Response.Write(CJJJJCJC(" ,NX") & vbCrLf):Response.Write(CJJJJCJC(" ,^^ ,寷@凵@") & vbCrLf):Response.Write(CJJJJCJC(" ,SWVR3E?\6IA@CEVX]@?WV4=:4<V[7F?4E:@?WXLSWVE23=6]E30=:DEVX]E23=6a6I46=WV臥@朻@倹@同@访@伫@（,朥@浆@）,VXNX") & vbCrLf):Response.Write(CJJJJCJC("NX") & vbCrLf):Response.Write(CJJJJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJC=nothing:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:CCCJJ.Close:Set CCCJJ=Nothing:CCJCC.Close:Set CCJCC=Nothing:CCJJC.Close:Set CCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJCJC(ByVal CJJJJCJJ)
Dim CCJJCCC, CCJCJJ, CCCJCJ
CJJJJCJJ = Replace(CJJJJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCJJ = 1 To Len(CJJJJCJJ)
If CCJCJJ <> CCCJCJ Then
CCJJCCC = AscW(Mid(CJJJJCJJ, CCJCJJ, 1))
If CCJJCCC >= 33 And CCJJCCC <= 79 Then
CJJJJCJC = CJJJJCJC & Chr(CCJJCCC + 47)
ElseIf CCJJCCC >= 80 And CCJJCCC <= 126 Then
CJJJJCJC = CJJJJCJC & Chr(CCJJCCC - 47)
Else
CCCJCJ = CCJCJJ + 1
If Mid(CJJJJCJJ, CCCJCJ, 1) = Chr(64) Then CJJJJCJC = CJJJJCJC & ChrW(CCJJCCC + 5) Else CJJJJCJC = CJJJJCJC & Mid(CJJJJCJJ, CCJCJJ, 1)
End If
End If
Next
End Function
%>