<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCCC, CCCJJJ,CCCJJC, CCCJCJ, CCCJCC:Set CCJCCC = server.CreateObject(CCCCCJJ("ps~sq]r@??64E:@?")):CCJCCC.open Application(CCCCCJJ("r@??64E:@?$EC:?8")):Set CCCJJJ=CCJCCC::Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC,CJJCJCJ:Dim CJJCJCC,CJJCCJJ,CJJCCJC:Dim CJJCCCJ:CJJCCCJ=Trim(Request.Cookies(CCCCCJJ("!$*|t|qt#"))):if CJJCCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCJJ>0 then
CCCJCC=CCCCCJJ("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") & CCCCJC & CCCCCJJ("V ,2?5 ,:5l") & CCCCJJ
set CCCJJC=CCJCCC.execute(CCCJCC):If CCCJJC.EOF Then
Call ClearMemberCookie
Else
CCCCCJ=CCCJJC(2) & "":CCCCCC=CCCJJC(3):CJJJJJJ=CCCJJC(5):CJJJJJC=CCCJJC(6):CJJJJCJ=CCCJJC(9):CJJJJCC=CCCJJC(15):CJJJCJC=CCCJJC(0):CJJCCJJ=CCCJJC(1):CJJCJCC=CCCJJC(11) & "":CJJJCCJ=CCCJJC(10) & "":CJJJCJJ=CCCJJC(12):CJJJCCC=CCCJJC(14):CJJCJJJ=CCCJJC(13):CJJCJJC=CCCJJC(7) & "":CJJCJCJ=CCCJJC(4):CJJCCJC=CCCJJC(8):if isnull(CJJJJCC) then CJJJJCC=0
if isnull(CJJJJCJ) or CJJJJCJ=0 then CJJJJCJ=CCCCCC
if isnull(CJJCJCJ) then CJJCJCJ=0
if isnull(CJJJJJJ) then CJJJJJJ=0
if instr(CCCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJC)>0 then Call RedirectMessage(CCCCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCJJ,CCCCJC)
End IF
end if:Sub CheckRight(CCCCCJC):dim CJJCCCC,CJCJJJJ:if CCCCJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJCJCC(CCCCCJC) then
Call RedirectMessage(CCCCCJJ("朾@陋@W") & CCCCCJC & CCCCCJJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJCJCC(CCCCCJC):dim CJJCCCC,CJCJJJJ:CJCJJJJ=split(CCCCCJC,CCCCCJJ("[")):CCJCJCC=False:for CJJCCCC=0 to ubound(CJCJJJJ):If Mid(CCCCCJ,CJCJJJJ(CJJCCCC),1)="1" then
CCJCJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCCCCJJ("!$*|t|qt#"))="":CCCCJJ=0:CJJJJJC=0:CCCCJC=Empty:CJJJJJJ=0:CJJJJCC=0:CJJJJCJ=0:CCCCCC=0:CJJJCJC=False:CJJCCJJ=False:CJJCCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJCJJJC,CJCJJCJ,CJJCCCC,CJCJJCC,CJCJCJJ:CJCJJJC=split(CJJCCCJ,CCCCCJJ("]")):if ubound(CJCJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJJJC(0)) or len(CJCJJJC(1))<>32 or len(CJCJJJC(2))<>32 then
Call ClearMemberCookie
else
CJCJJCJ=CJCJJJC(1):for CJJCCCC=1 to len(CJCJJCJ):CJCJJCC=mid(CJCJJCJ,CJJCCCC,1):if isnumeric(CJCJJCC) then CJCJCJJ=CJCJCJJ & CJCJJCC
if len(CJCJCJJ)=7 then exit for
next:CJCJJCJ=CJCJJJC(2):if CJCJCJJ<>mid(CJCJJCJ,6,7) then
Call ClearMemberCookie
else
CJCJJCC=mid(CJCJJCJ,18,10)/2:if CJCJJCC<DateDiff(CCCCCJJ("D"), CCCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCJJ=Clng(CJCJJJC(0)):CCCCJC=CJCJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCJJC,CCCCCCJ):dim CJJCCCC,CJCJJCC,CJCJCJJ:for CJJCCCC=1 to len(CCCCCCJ):CJCJJCC=mid(CCCCCCJ,CJJCCCC,1):if isnumeric(CJCJJCC) then CJCJCJJ=CJCJCJJ & CJCJJCC
if len(CJCJCJJ)=7 then exit for
next:CJCJCJJ=CCCCJJC & CCCCCJJ("]") & CCCCCCJ & CCCCCJJ("]") & Fix(10000*(Rnd+1)) & CJCJCJJ & Fix(10000*(Rnd+1)) & DateDiff(CCCCCJJ("D"), CCCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCCJJ("!$*|t|qt#"))=CJCJCJJ:End Sub::Function CCJCCJJ(CCCCCCC):Dim str,CJCJCCJ:str = Trim(CCCCCCC):If IsNull(str) Or str = "" Then
CCJCCJJ = ""
else
str=Replace(str, CCCCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCCCJJ("k:7C2>6"), CCCCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCCCJJ("kD4C:AE"), CCCCCJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJCCJ=new RegExp:CJCJCCJ.Pattern=CCCCCJJ("@?W,2\K.ZXl"):CJCJCCJ.IgnoreCase = True:CJCJCCJ.Global=True:str=CJCJCCJ.Replace(str,CCCCCJJ("@?S`U6BF2=Dj")):set CJCJCCJ=nothing:CCJCCJJ=str
End If:End Function::Const CCJCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCJCCJC():dim CJCJCCC:CJCJCCC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CJCJCCC = "" Then CJCJCCC = Cstr(Request.ServerVariables(CCCCCJJ("#t|~%t0pss#")))
if instr(CJCJCCC,CCCCCJJ("i"))>0 then
CJCJCCC=left(CJCJCCC,instr(CJCJCCC,CCCCCJJ("i"))-1)
elseif instr(CJCJCCC,CCCCCJJ("["))>0 then
CJCJCCC=left(CJCJCCC,instr(CJCJCCC,CCCCCJJ("["))-1)
end if:CCJCCJC=left(CJCJCCC,15):End Function:Sub Debug(str):response.Charset=CCCCCJJ("FE7\g"):dim CJJCCCC,CJCJJCC,CJCCJJJ:if isarray(str) then
on error resume next:CJJCCCC=ubound(str,2):CJCCJJJ=err.number:err.clear:on error goto 0:if CJCCJJJ<>0 then
for CJJCCCC=0 to ubound(str):if CJJCCCC>0 then response.Write CCCCCJJ("k3C ,^m")
response.Write CJJCCCC & CCCCCJJ("i ,") & str(CJJCCCC):next
else
response.Write CCCCCJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCCCC=0 to ubound(str,2):response.Write CCCCCJJ("kE9 ,2=:8?lV=67EVm") & CJJCCCC & CCCCCJJ("k^E9m")
next:response.Write CCCCCJJ("k^ECm"):for CJJCCCC=0 to ubound(str):response.Write CCCCCJJ("kECmkE9m") & CJJCCCC & CCCCCJJ("k^E9m"):for CJCJJCC=0 to ubound(str,2):response.Write CCCCCJJ("kE5m") & str(CJJCCCC,CJCJJCC) & CCCCCJJ("k^E5m"):next:response.Write CCCCCJJ("k^ECm"):next:response.Write CCCCCJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCCCJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCCCJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CCJCCCJ():Dim CJCCJJC, CJCCJCJ:CJCCJCJ = Request.ServerVariables(CCCCCJJ("!p%w0x}u~")):CJCCJJC = Request.ServerVariables(CCCCCJJ("""&t#*0$%#x}v")):If CJCCJJC <> Empty Then
if instr(lcase(CJCCJJC),CCCCCJJ("Tb4:7C2>6"))>0 or instr(lcase(CJCCJJC),CCCCCJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CCCCCJJ("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CJCCJCJ = CJCCJCJ & CCCCCJJ("n") & CJCCJJC
end if:CCJCCCJ = CJCCJCJ:End Function:Sub SetHttpOnlyCookie(CJJJJJJJ,CJJJJJJC):dim CJCJJJC:CJCJJJC=CJJJJJJJ & CCCCCJJ("l") & CJJJJJJC & CCCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCCJJ("$6E\r@@<:6"),CJCJJJC):End Sub::Function CCJCCCC():CCJCCCC = Request.Cookies(CCCCCJJ("!$*"))(CCCCCJJ("&#{")):End Function::::::Function CCCJJJJ(CJJJJJCJ):dim CJCCJCC,CJCCCJJ:CJCCJCC=CCCCCJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJJJCJ & CCCCCJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCJJ=CCJCCC.execute(CJCCJCC):CCCJJJJ = CJCCCJJ(0):if isnull(CCCJJJJ) then CCCJJJJ=1
CJCCCJJ.close : set CJCCCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCCJC=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CCCJCJ.Close : Set CCCJCJ=Nothing:CCCJJC.Close : Set CCCJJC=Nothing:CCCJCJJ.Close : Set CCCJCJJ = Nothing:CCJCCC.Close : Set CCJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCCJJ("!$*0|6DD286"),server.URLEncode(CJJJJJCC)):Response.Redirect CCCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::Sub InsertLog(CJJJJCJJ,CCCCJCC):dim CJCCJCC:CJCCJCC=CCCCCJJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCCCJJ  & CCCCCJJ("[V") & CCJCCJC & CCCCCJJ("V") & CCCCCJJ("[V") & CCJCCJJ(CCCCJCC) & CCCCCJJ("V") & CCCCCJJ("[") & CJJJJCJJ  & CCCCCJJ("[V") & CCJCCCJ & CCCCCJJ("V") & CCCCCJJ("X")
CCJCCC.execute CJCCJCC:End Sub::::::::::::::::Sub ClearCache(CJJJJCJC):Application.Contents.Remove CJJJJCJC
End Sub::Class jTree:Private CCCJCC, CJCCCJC, CJCCCCJ, CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC:Private Sub Class_Initialize():CJCCCCJ = 0:CJCCCCC = 0:CCJJJCC=10:End Sub:Public Property Let CCCJCJC(CJJJJCCJ):if CJJJJCCJ="" then Call RedirectMessage(CCCCCJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJJJJJ=CJJJJCCJ:CCJJJJC=CCCCCJJ("!$*0") & UCase(CCJJJJJ):Call GetTreeArray:End Property:Public Property Get CCCJCJC():CCCJCJC=CCJJJJJ:End Property:::Private Sub GetTreeArray():Dim CJJCCCC, CJCJJCC, CCJJCJJ,CCJJCJC:CJCCCJC = Application(CCJJJJC):If Not IsArray(CJCCCJC) Then
CCCJCC = CCCCCJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJJJJJ:if CCJJJCJ<>"" then CCCJCC=CCCJCC & CCCCCJJ(" ,H96C6 ,") & CCJJJCJ
set CCJJCJJ=CCJCCC.execute(CCCJCC):CCJJCJC=CCJJCJJ(0):if CCJJCJC=0 then Call RedirectMessage(CCCCCJJ("柠@话@W") & CCJJJJJ & CCCCCJJ("^") & CCJJJCJ & CCCCCJJ("X沜@朄@绎@林@敫@捩@"))
CJCCCCC=CCJJCJC+CCJJJCC:ReDim CJCCCJC(CJCCCCC, 4):CCCJCC = CCCCCJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJJ & CCCCCJJ(" ,H:E9 ,W?@=@4<X"):if CCJJJCJ<>"" then CCCJCC=CCCJCC & CCCCCJJ(" ,H96C6 ,") & CCJJJCJ
CCCJCC=CCCJCC & CCCCCJJ(" ,@C56C ,3J ,D@CE[:5"):set CCJJCJJ=CCJCCC.execute(CCCJCC):For CJJCCCC = 1 To CCJJCJC:For CJCJJCC = 0 To 4:CJCCCJC(CJJCCCC, CJCJJCC) = CCJJCJJ(CJCJJCC):if IsNull(CJCCCJC(CJJCCCC,4)) then CJCCCJC(CJJCCCC,4)=0
If CJCCCJC(CJJCCCC,2)="" then CJCCCJC(CJJCCCC,2)=CCCCCJJ(",穵@.")
Next:CCJJCJJ.MoveNext:Next:CCJJCJJ.Close: Set CCJJCJJ = Nothing:for CJJCCCC=CJCCCCC-(CCJJJCC-1) to CJCCCCC:CJCCCJC(CJJCCCC,0)=CJJCCCC:next:Application.Lock():Application(CCJJJJC) = CJCCCJC:Application.UnLock()
else
CJCCCCC=Ubound(CJCCCJC)
End If:End Sub:::::Private Function CCCJCCJ(CCCCJJC):dim CJJCCCC,CCJJCCJ:CCCJCCJ=0:CCJJCCJ=CStr(CCCCJJC):if CCJJCCJ<>"0" then
for CJJCCCC=1 to CJCCCCC:If CStr(CJCCCJC(CJJCCCC, 0))=CCJJCCJ Then
CCCJCCJ = CJJCCCC:Exit For
End If:Next
end if:End Function::::Public Function CCCJCCC(CCCCJJC):Dim CJJCCCC,CCJJCCC:CJJCCCC=CCCJCCJ(CCCCJJC):if CJJCCCC=0 then
CCJJCCC=CCCCJJJ(CCCCJJC)
else
CCJJCCC=CJCCCJC(CJJCCCC,3):if isnull(CCJJCCC) or CCJJCCC="" then
CCJJCCC=CCCCJJJ(CCCCJJC)
elseif Mid(CCJJCCC,instrrev(CCJJCCC,CCCCCJJ("["))+1)<>CStr(CCCCJJC) then
CCJJCCC=CCCCJJJ(CCCCJJC)
elseif Left(CCJJCCC,1)=CCCCCJJ("[") then
CCJJCCC=CCCCJJJ(CCCCJJC)
end if
end if:CCCJCCC=CCJJCCC:End Function:Private Function CCCCJJJ(CCCCJJC):dim CCJJCCJ:CCJJCCJ=CStr(CCCCJJC):if CCJJCCJ="0" then
CCCCJJJ=""
else
dim CCJJCJJ:set CCJJCJJ=CCJCCC.execute(CCCCCJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJJJJJ & CCCCCJJ(" ,H96C6 ,:5l") & CCCCJJC):if CCJJCJJ.eof then
Call UpdateCache(CCCCJJC,"","","",""):Call RedirectMessage(CCCCCJJ("顴@盩@（,xs：,") & CCCCJJC & CCCCCJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJJCJJ(0)=0 then
CCCCJJJ="0," & CCCCJJC
else
CCCCJJJ=CCCJCCC(CCJJCJJ(0)) & CCCCCJJ("[") & CCCCJJC
end if:if CCJJCJJ(2)<>CCCCJJJ then
CCJCCC.execute CCCCCJJ("FA52E6 ,") & CCJJJJJ & CCCCCJJ(" ,D6E ,A2E9lV") & CCCCJJJ & CCCCCJJ("V ,H96C6 ,:5l") & CCCCJJC
else
CCCCJJJ=CCJJCJJ(2)
end if
end if:Call UpdateCache(CCCCJJC,CCJJCJJ(0),CCJJCJJ(1),CCCCJJJ,CCJJCJJ(3)):CCJJCJJ.Close: Set CCJJCJJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJJJJC
End Sub:Public Sub UpdateCache(CCCCJJC,CJJJJCCC,CJJJCJJJ,CCJJCCC,CJJJCJJC):dim CJJCCCC,CJCJJCC:CCCCJJC=CLng(CCCCJJC):CJJCCCC=CCCJCCJ(CCCCJJC):if CJJJJCCC="" and CJJJCJJJ="" and CCJJCCC="" and CJJJCJJC="" then
if CJJCCCC>0 then
for CJCJJCC=1 to 4:CJCCCJC(CJJCCCC,CJCJJCC)=Null:next
end if
else
if CJJCCCC=0 then
for CJCJJCC=1 to CJCCCCC:if CJCCCJC(CJCJJCC,1) & ""="" then
CJJCCCC=CJCJJCC:exit for
end if:next
end if:if CJJCCCC=0 then
Call ClearCache
else
CJCCCJC(CJJCCCC,0)=CLng(CCCCJJC):if CJJJJCCC<>"" then CJCCCJC(CJJCCCC,1)=CLng(CJJJJCCC)
if CJJJCJJJ<>"" then CJCCCJC(CJJCCCC,2)=CJJJCJJJ
if CCJJCCC<>"" then CJCCCJC(CJJCCCC,3)=CCJJCCC
if CJJJCJJC<>"" then CJCCCJC(CJJCCCC,4)=CLng(CJJJCJJC)
end if
end if:if CJJCCCC>0 then
Application.Lock():Application(CCJJJJC) = CJCCCJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJJJCC):Call ConnClose:Response.Write CJJJJJCC:Response.End:End Sub:Private Function CCCJJJJ():CCCJJJJ=CCCCJCJ+1:End Function:Private Function CCCCJCJ():dim CJCCCJJ:set CJCCCJJ=CCJCCC.execute(CCCCCJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJJJJJ & CCCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCJCJ=CJCCCJJ(0):CJCCCJJ.Close: Set CJCCCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Call CheckRight(2):dim CCJCJJJ:CCJCJJJ=Request.QueryString(CCCCCJJ("24E")):CCCJCC=Session(CCCCCJJ("!$*0$B=")):if CCJCJJJ=CCCCCJJ("56=") and CCCJCC<>"" then
CCJCCC.execute CCCCCJJ("56=6E6 ,7C@> ,=@8 ,H96C6 ,:5 ,:? ,WD6=64E ,:5 ,7C@> ,G0=@8 ,") & CCCJCC & CCCCCJJ("X"):Call InsertLog(3,CCCCCJJ("创@陟@无@忒@"))
end if:response.Redirect CCJCCCC::On Error Resume Next:set CJCCCJC=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:set CCCJJCC=nothing:CCCJCJ.Close:Set CCCJCJ=Nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCJCCC.Close:Set CCJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCCCCJJ(ByVal CCCCJCC)
Dim CCJCJJC, CJJCCCC, CJCCJJJ
CCCCJCC = Replace(CCCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCCCC = 1 To Len(CCCCJCC)
If CJJCCCC <> CJCCJJJ Then
CCJCJJC = AscW(Mid(CCCCJCC, CJJCCCC, 1))
If CCJCJJC >= 33 And CCJCJJC <= 79 Then
CCCCCJJ = CCCCCJJ & Chr(CCJCJJC + 47)
ElseIf CCJCJJC >= 80 And CCJCJJC <= 126 Then
CCCCCJJ = CCCCCJJ & Chr(CCJCJJC - 47)
Else
CJCCJJJ = CJJCCCC + 1
If Mid(CCCCJCC, CJCCJJJ, 1) = Chr(64) Then CCCCCJJ = CCCCCJJ & ChrW(CCJCJJC + 5) Else CCCCCJJ = CCCCCJJ & Mid(CCCCJCC, CJJCCCC, 1)
End If
End If
Next
End Function
%>