<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCJ, CJCCCC,CCJJJJ, CCJJJC, CCJJCJ:Set CJCCCJ = server.CreateObject(CJJJJCCJ("ps~sq]r@??64E:@?")):CJCCCJ.open Application(CJJJJCCJ("r@??64E:@?$EC:?8")):Set CJCCCC=CJCCCJ::Dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC:Dim CJJJJCJ,CJJJJCC,CJJJCJJ:Dim CJJJCJC:CJJJCJC=Trim(Request.Cookies(CJJJJCCJ("!$*|t|qt#"))):if CJJJCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCC>0 then
CCJJCJ=CJJJJCCJ("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") & CCJCJJ & CJJJJCCJ("V ,2?5 ,:5l") & CCJJCC
set CCJJJJ=CJCCCJ.execute(CCJJCJ):If CCJJJJ.EOF Then
Call ClearMemberCookie
Else
CCJCJC=CCJJJJ(2) & "":CCJCCJ=CCJJJJ(3):CCJCCC=CCJJJJ(5):CCCJJJ=CCJJJJ(6):CCCJJC=CCJJJJ(9):CCCJCJ=CCJJJJ(15):CCCCJJ=CCJJJJ(0):CJJJJCC=CCJJJJ(1):CJJJJCJ=CCJJJJ(11) & "":CCCCJC=CCJJJJ(10) & "":CCCJCC=CCJJJJ(12):CCCCCJ=CCJJJJ(14):CCCCCC=CCJJJJ(13):CJJJJJJ=CCJJJJ(7) & "":CJJJJJC=CCJJJJ(4):CJJJCJJ=CCJJJJ(8):if isnull(CCCJCJ) then CCCJCJ=0
if isnull(CCCJJC) or CCCJJC=0 then CCCJJC=CCJCCJ
if isnull(CJJJJJC) then CJJJJJC=0
if isnull(CCJCCC) then CCJCCC=0
if instr(CJJJJCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJJ)>0 then Call RedirectMessage(CJJJJCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJJCC,CCJCJJ)
End IF
end if:Sub CheckRight(CJCCCCJ):dim CJJJCCJ,CJJJCCC:if CCJJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCCJJCC(CJCCCCJ) then
Call RedirectMessage(CJJJJCCJ("朾@陋@W") & CJCCCCJ & CJJJJCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCCJJCC(CJCCCCJ):dim CJJJCCJ,CJJJCCC:CJJJCCC=split(CJCCCCJ,CJJJJCCJ("[")):CCCJJCC=False:for CJJJCCJ=0 to ubound(CJJJCCC):If Mid(CCJCJC,CJJJCCC(CJJJCCJ),1)="1" then
CCCJJCC=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJJCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCJJJ:CJJCJJJ=trim(request.QueryString(CJJJJCCJ("D49@@="))):if isnumeric(CJJCJJJ) then
response.Redirect CJJJJCCJ("^>^G2?E^R^D49@@=^") & CJJCJJJ & CJJJJCCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJCCJ("!$*|t|qt#"))="":CCJJCC=0:CCCJJJ=0:CCJCJJ=Empty:CCJCCC=0:CCCJCJ=0:CCCJJC=0:CCJCCJ=0:CCCCJJ=False:CJJJJCC=False:CJJJCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJC,CJJCJCJ,CJJJCCJ,CJJCJCC,CJJCCJJ:CJJCJJC=split(CJJJCJC,CJJJJCCJ("]")):if ubound(CJJCJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJC(0)) or len(CJJCJJC(1))<>32 or len(CJJCJJC(2))<>32 then
Call ClearMemberCookie
else
CJJCJCJ=CJJCJJC(1):for CJJJCCJ=1 to len(CJJCJCJ):CJJCJCC=mid(CJJCJCJ,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCJCJ=CJJCJJC(2):if CJJCCJJ<>mid(CJJCJCJ,6,7) then
Call ClearMemberCookie
else
CJJCJCC=mid(CJJCJCJ,18,10)/2:if CJJCJCC<DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCC=Clng(CJJCJJC(0)):CCJCJJ=CJJCJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJCJJ,CJJJJCCC):dim CJJJCCJ,CJJCJCC,CJJCCJJ:for CJJJCCJ=1 to len(CJJJJCCC):CJJCJCC=mid(CJJJJCCC,CJJJCCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCCJJ=CJJJJCJJ & CJJJJCCJ("]") & CJJJJCCC & CJJJJCCJ("]") & Fix(10000*(Rnd+1)) & CJJCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCJ("D"), CJJJJCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCJ("!$*|t|qt#"))=CJJCCJJ:End Sub:::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 CCCJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset=CJJJJCCJ("FE7\g"):dim CJJJCCJ,CJJCJCC,CJJCCJC:if isarray(str) then
on error resume next:CJJJCCJ=ubound(str,2):CJJCCJC=err.number:err.clear:on error goto 0:if CJJCCJC<>0 then
for CJJJCCJ=0 to ubound(str):if CJJJCCJ>0 then response.Write CJJJJCCJ("k3C ,^m")
response.Write CJJJCCJ & CJJJJCCJ("i ,") & str(CJJJCCJ):next
else
response.Write CJJJJCCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCCJ=0 to ubound(str,2):response.Write CJJJJCCJ("kE9 ,2=:8?lV=67EVm") & CJJJCCJ & CJJJJCCJ("k^E9m")
next:response.Write CJJJJCCJ("k^ECm"):for CJJJCCJ=0 to ubound(str):response.Write CJJJJCCJ("kECmkE9m") & CJJJCCJ & CJJJJCCJ("k^E9m"):for CJJCJCC=0 to ubound(str,2):response.Write CJJJJCCJ("kE5m") & str(CJJJCCJ,CJJCJCC) & CJJJJCCJ("k^E5m"):next:response.Write CJJJJCCJ("k^ECm"):next:response.Write CJJJJCCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJCCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJCCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJCJCC,CJJJCCJJ):dim CJJCJJC:CJJCJJC=CJJJCJCC & CJJJJCCJ("l") & CJJJCCJJ & CJJJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCJ("$6E\r@@<:6"),CJJCJJC):End Sub:::::::Function CCCJCJC(CJJCCJC):if isnull(CJJCCJC) or trim(CJJCCJC)="" or not isnumeric(CJJCCJC) then
CCCJCJC=false
else
Dim CJJCCCJ:Set CJJCCCJ = New RegExp:CJJCCCJ.Pattern = CJJJJCCJ("/-5ZS"):CJJCCCJ.IgnoreCase = True:CCCJCJC = CJJCCCJ.test(CJJCCJC):set CJJCCCJ=nothing
end if:End Function:Function CCCJCCJ(CJJJCCJC):dim CJJCCCC,CJCJJJJ:CJJCCCC=CJJJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCCJC & CJJJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJJJ=CJCCCJ.execute(CJJCCCC):CCCJCCJ = CJCJJJJ(0):if isnull(CCCJCCJ) then CCCJCCJ=1
CJCJJJJ.close : set CJCJJJJ=nothing:End Function:::Sub WriteJS(CJJJCCCJ):Call ConnClose:response.Charset="utf-8":response.write CJJJJCCJ("k") & CJJJJCCJ("D4C:AEm") & CJJJCCCJ & CJJJJCCJ("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CJCJJJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CJCJJJJ.close : set CJCJJJJ=nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CCCCJCJ.Close : Set CCCCJCJ = Nothing:CJCCCJ.Close : Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCJ("!$*0|6DD286"),server.URLEncode(CJJJCCCC)):Response.Redirect CJJJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJCJJJJ):Application.Contents.Remove CJJCJJJJ
End Sub::Class jTree:Private CCJJCJ, CJCJJJC, CJCJJCJ, CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Private Sub Class_Initialize():CJCJJCJ = 0:CJCJJCC = 0:CJCJCCC=10:End Sub:Public Property Let Table(CJJCJJJC):if CJJCJJJC="" then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCJCJJ=CJJCJJJC:CJCJCJC=CJJJJCCJ("!$*0") & UCase(CJCJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJCJCJJ:End Property:::Private Sub GetTreeArray():Dim CJJJCCJ, CJJCJCC, CJCCJJJ,RecordCount:CJCJJJC = Application(CJCJCJC):If Not IsArray(CJCJJJC) Then
CCJJCJ = CJJJJCCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCJCJJ:if CJCJCCJ<>"" then CCJJCJ=CCJJCJ & CJJJJCCJ(" ,H96C6 ,") & CJCJCCJ
set CJCCJJJ=CJCCCJ.execute(CCJJCJ):RecordCount=CJCCJJJ(0):if RecordCount=0 then Call RedirectMessage(CJJJJCCJ("柠@话@W") & CJCJCJJ & CJJJJCCJ("^") & CJCJCCJ & CJJJJCCJ("X沜@朄@绎@林@敫@捩@"))
CJCJJCC=RecordCount+CJCJCCC:ReDim CJCJJJC(CJCJJCC, 4):CCJJCJ = CJJJJCCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJJJCCJ(" ,H:E9 ,W?@=@4<X"):if CJCJCCJ<>"" then CCJJCJ=CCJJCJ & CJJJJCCJ(" ,H96C6 ,") & CJCJCCJ
CCJJCJ=CCJJCJ & CJJJJCCJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCJJJ=CJCCCJ.execute(CCJJCJ):For CJJJCCJ = 1 To RecordCount:For CJJCJCC = 0 To 4:CJCJJJC(CJJJCCJ, CJJCJCC) = CJCCJJJ(CJJCJCC):if IsNull(CJCJJJC(CJJJCCJ,4)) then CJCJJJC(CJJJCCJ,4)=0
If CJCJJJC(CJJJCCJ,2)="" then CJCJJJC(CJJJCCJ,2)=CJJJJCCJ(",穵@.")
Next:CJCCJJJ.MoveNext:Next:CJCCJJJ.Close: Set CJCCJJJ = Nothing:for CJJJCCJ=CJCJJCC-(CJCJCCC-1) to CJCJJCC:CJCJJJC(CJJJCCJ,0)=CJJJCCJ:next:Application.Lock():Application(CJCJCJC) = CJCJJJC:Application.UnLock()
else
CJCJJCC=Ubound(CJCJJJC)
End If:End Sub:::::Private Function CCCCCJJ(CJJJJCJJ):dim CJJJCCJ,CJCCJCJ:CCCCCJJ=0:CJCCJCJ=CStr(CJJJJCJJ):if CJCCJCJ<>"0" then
for CJJJCCJ=1 to CJCJJCC:If CStr(CJCJJJC(CJJJCCJ, 0))=CJCCJCJ Then
CCCCCJJ = CJJJCCJ:Exit For
End If:Next
end if:End Function:Public Function CCCCCJC(CJJJJCJJ):if Cstr(CJJJJCJJ)="0" then
CCCCCJC=CJJJJCCJ("栴@")
else
Dim CJJJCCJ,CJCCJJJ:CJJJCCJ=CCCCCJJ(CJJJJCJJ):if CJJJCCJ>0 then
CCCCCJC=CJCJJJC(CJJJCCJ,2):if CCCCCJC="" then
set CJCCJJJ=CJCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJJJCCJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCJJJ.eof then Call RedirectMessage(CJJJJCCJ("xs（,") & CJJJJCJJ & CJJJJCCJ("）,朥@批@别@"))
CCCCCJC=CJCCJJJ(1):Call UpdateCache(CJJJJCJJ,CJCCJJJ(0),CCCCCJC,CJCCJJJ(2),CJCCJJJ(3)):CJCCJJJ.Close: Set CJCCJJJ = Nothing
end if
else
set CJCCJJJ=CJCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJJJCCJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCJJJ.eof then Call RedirectMessage(CJJJJCCJ("xs（,") & CJJJJCJJ & CJJJJCCJ("）,朥@批@别@"))
CCCCCJC=CJCCJJJ(1):Call UpdateCache(CJJJJCJJ,CJCCJJJ(0),CCCCCJC,CJCCJJJ(2),CJCCJJJ(3)):CJCCJJJ.Close: Set CJCCJJJ = Nothing
end if
end if:End Function:::Public Function CCCCCCJ(CJJJJCJJ):Dim CJJJCCJ,CJCCJCC:CJJJCCJ=CCCCCJJ(CJJJJCJJ):if CJJJCCJ=0 then
CJCCJCC=CCCCCCC(CJJJJCJJ)
else
CJCCJCC=CJCJJJC(CJJJCCJ,3):if isnull(CJCCJCC) or CJCCJCC="" then
CJCCJCC=CCCCCCC(CJJJJCJJ)
elseif Mid(CJCCJCC,instrrev(CJCCJCC,CJJJJCCJ("["))+1)<>CStr(CJJJJCJJ) then
CJCCJCC=CCCCCCC(CJJJJCJJ)
elseif Left(CJCCJCC,1)=CJJJJCCJ("[") then
CJCCJCC=CCCCCCC(CJJJJCJJ)
end if
end if:CCCCCCJ=CJCCJCC:End Function:Private Function CCCCCCC(CJJJJCJJ):dim CJCCJCJ:CJCCJCJ=CStr(CJJJJCJJ):if CJCCJCJ="0" then
CCCCCCC=""
else
dim CJCCJJJ:set CJCCJJJ=CJCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCJCJJ & CJJJJCCJ(" ,H96C6 ,:5l") & CJJJJCJJ):if CJCCJJJ.eof then
Call UpdateCache(CJJJJCJJ,"","","",""):Call RedirectMessage(CJJJJCCJ("顴@盩@（,xs：,") & CJJJJCJJ & CJJJJCCJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCCJJJ(0)=0 then
CCCCCCC="0," & CJJJJCJJ
else
CCCCCCC=CCCCCCJ(CJCCJJJ(0)) & CJJJJCCJ("[") & CJJJJCJJ
end if:if CJCCJJJ(2)<>CCCCCCC then
CJCCCJ.execute CJJJJCCJ("FA52E6 ,") & CJCJCJJ & CJJJJCCJ(" ,D6E ,A2E9lV") & CCCCCCC & CJJJJCCJ("V ,H96C6 ,:5l") & CJJJJCJJ
else
CCCCCCC=CJCCJJJ(2)
end if
end if:Call UpdateCache(CJJJJCJJ,CJCCJJJ(0),CJCCJJJ(1),CCCCCCC,CJCCJJJ(3)):CJCCJJJ.Close: Set CJCCJJJ = Nothing
end if:End Function::Public Function CJJJJJJJ(CJJJJCJJ):CJJJJJJJ = Mid(CCCCCCJ(CJJJJCJJ), 3):End Function:Public Function CJJJJJJC(CJJJJCJJ):Dim CJJJCCJ, CJJCJCC, CJCCCJJ,Str, CJCCJCC, CJCCCCJ, CJJJCCC():CJCCJCC = CJJJJJJJ(CJJJJCJJ):CJCCJCC = Split(CJCCJCC, CJJJJCCJ("[")):for CJJJCCJ=0 to Ubound(CJCCJCC):CJCCCJJ=CJCCJCC(CJJJCCJ):str=str & CJJJJCCJ("M") & CJCCCJJ & CJJJJCCJ("M") & CCCCCJC(CJCCCJJ):next:if str<>"" then str=Mid(str,2)
CJJJJJJC=str:End Function::::::::::::Public Function GetPositionStr_From(CJJJJCJJ, CJJJJJCC):if isnull(CJJJJCJJ) or isnull(CJJJJJCC) then
GetPositionStr_From=CJJJJCCJ(",厽@敫@锔@诪@."):exit function
end if:Dim Str, CJJJCCJ, CJJJCCC, CJCCCCJ, CJCCCCC:CJJJJJCC = CStr(CJJJJJCC):If CJJJJJCC = "0" or CJJJJJCC = CStr(CJJJJCJJ) Then
Str = CCCCCJC(CJJJJCJJ)
Else
CJJJCCC = Split(CJJJJJJC(CJJJJCJJ), CJJJJCCJ("M")):CJCCCCJ = UBound(CJJJCCC):CJCCCCC = False:For CJJJCCJ = 0 To CJCCCCJ Step 2:If CJJJCCC(CJJJCCJ) = CJJJJJCC And Not CJCCCCC Then CJCCCCC = True
If CJCCCCC Then
If Str <> "" Then Str = Str & CJJJJCCJ("→,")
Str = Str & CJJJCCC(CJJJCCJ + 1)
End If:Next
End If:str=Mid(str,instr(str,CJJJJCCJ("→,"))+1):GetPositionStr_From = Str:End Function:::::::Public Sub ClearCache():Application.Contents.Remove CJCJCJC
End Sub:Public Sub UpdateCache(CJJJJCJJ,CJCCCJJ,CJJCJJCJ,CJCCJCC,CJJCJJCC):dim CJJJCCJ,CJJCJCC:CJJJJCJJ=CLng(CJJJJCJJ):CJJJCCJ=CCCCCJJ(CJJJJCJJ):if CJCCCJJ="" and CJJCJJCJ="" and CJCCJCC="" and CJJCJJCC="" then
if CJJJCCJ>0 then
for CJJCJCC=1 to 4:CJCJJJC(CJJJCCJ,CJJCJCC)=Null:next
end if
else
if CJJJCCJ=0 then
for CJJCJCC=1 to CJCJJCC:if CJCJJJC(CJJCJCC,1) & ""="" then
CJJJCCJ=CJJCJCC:exit for
end if:next
end if:if CJJJCCJ=0 then
Call ClearCache
else
CJCJJJC(CJJJCCJ,0)=CLng(CJJJJCJJ):if CJCCCJJ<>"" then CJCJJJC(CJJJCCJ,1)=CLng(CJCCCJJ)
if CJJCJJCJ<>"" then CJCJJJC(CJJJCCJ,2)=CJJCJJCJ
if CJCCJCC<>"" then CJCJJJC(CJJJCCJ,3)=CJCCJCC
if CJJCJJCC<>"" then CJCJJJC(CJJJCCJ,4)=CLng(CJJCJJCC)
end if
end if:if CJJJCCJ>0 then
Application.Lock():Application(CJCJCJC) = CJCJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCCCC):Call ConnClose:Response.Write CJJJCCCC:Response.End:End Sub:Private Function CCCJCCJ():CCCJCCJ=CJJJJCJC+1:End Function:Private Function CJJJJCJC():dim CJCJJJJ:set CJCJJJJ=CJCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCJCJJ & CJJJJCCJ(" ,@C56C ,3J ,:5 ,56D4")):CJJJJCJC=CJCJJJJ(0):CJCJJJJ.Close: Set CJCJJJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCJJJ:CCJJCJ=Request.ServerVariables(CJJJJCCJ("!p%w0x}u~")):if instr(CCJJCJ,CJJJJCCJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCJJ and not CJJJJCC then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJCJJJ=CCCJJC
elseif instr(CCJJCJ,CJJJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCJ,CJJJJCCJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJCJJJ=CCCJJC
elseif instr(CCJJCJ,CJJJJCCJ("^D49@@="))>0 then
CJJCJJJ=Request.QueryString(CJJJJCCJ("D49@@=")):if not CCCJCJC(CJJCJJJ) then CJJCJJJ=Request.QueryString(CJJJJCCJ("F"))
if not CCCJCJC(CJJCJJJ) then CJJCJJJ=Request.QueryString(CJJJJCCJ("D4"))
if not CCCJCJC(CJJCJJJ) then Call RedirectMessage(CJJJJCCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJCJJJ=csng(CJJCJJJ)
end if:if CJJCJJJ=0 then Call RedirectMessage(CJJJJCCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJJJJJ:Call SetConfig:Sub SetConfig():dim CJJJCCC,CJCJJJJ:CCJJCJ=CJJJJCCJ("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") & CJJCJJJ:set CJCJJJJ=CJCCCJ.execute(CCJJCJ):if CJCJJJJ.eof then Call RedirectMessage(CJJJJCCJ("患@W") & CCJJCC & CJJJJCCJ("X戻@圣@癿@卐@佈@W") & CJJCJJJ & CJJJJCCJ("X朥@批@别@。,"))
ReDim CJJJCCC(61):CJJJCCC(0)=CJCJJJJ(CJJJJCCJ(";:2@H6:")) & "":CJJJCCC(1)=CJCJJJJ(CJJJJCCJ("EJA6")):CJJJCCC(2)=CJCJJJJ(CJJJJCCJ("D>D")):CJJJCCC(3)=CJCJJJJ(CJJJJCCJ("4FDE@>8C@FA")) & "":CJJJCCC(4)=CJCJJJJ(CJJJJCCJ("D:5632C0@E96C")) & "":CJJJCCC(5)=IIf(isnull(CJCJJJJ(CJJJJCCJ("E6DEC6DF=EG:6H"))),0,CJCJJJJ(CJJJJCCJ("E6DEC6DF=EG:6H"))):CJJJCCC(6)=CJCJJJJ(CJJJJCCJ("K:IF?E:>6")):CJJJCCC(7)=CJCJJJJ(CJJJJCCJ("766")):CJJJCCC(8)=CJCJJJJ(CJJJJCCJ("C6E6DE52J")):CJJJCCC(9)=CJCJJJJ(CJJJJCCJ("6IA:C652E6")):CJJJCCC(10)=CJCJJJJ(CJJJJCCJ("E:E=6")):CJJJCCC(11)=CJCJJJJ(CJJJJCCJ(":?EC@")) & "":CJJJCCC(12)=CJCJJJJ(CJJJJCCJ("A:4EFC6")) & "":CJJJCCC(13)=CJCJJJJ(CJJJJCCJ("72>:=J")):CJJJCCC(14)=CJCJJJJ(CJJJJCCJ("4@AJC:89E")) & "":CJJJCCC(15)=IIf(isnull(CJCJJJJ(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))),CJJJJCCJ("`h__\`\`"),CJCJJJJ(CJJJJCCJ("D6>6DE6C0DE2CE052E6"))):CJJJCCC(16)=IIf(isnull(CJCJJJJ(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJJJJ(CJJJJCCJ("K:IF?0E:>6D09:89=:89E"))):CJJJCCC(17)=CJCJJJJ(CJJJJCCJ("4@?E24E")) & "":CJJJCCC(18)=CJCJJJJ(CJJJJCCJ("D2?5E23=6")):CJJJCCC(19)=CJCJJJJ(CJJJJCCJ("4C:D:D")):CJJJCCC(20)=CJCJJJJ(CJJJJCCJ("JJ52E6")):CJJJCCC(21)=CJCJJJJ(CJJJJCCJ("BB")):CJJJCCC(22)=CJCJJJJ(CJJJJCCJ("JFJF60D>D0EA=")) & "":CJJJCCC(23)=CJCJJJJ(CJJJJCCJ("JFJF60E6DE0=3")) & "":CJJJCCC(25)=CJCJJJJ(CJJJJCCJ("6IA6CE")):CJJJCCC(26)=CJCJJJJ(CJJJJCCJ(">@5:?7@")):CJJJCCC(27)=CJCJJJJ(CJJJJCCJ("9@>6A286E@AA:4EFC6")) & "":CJJJCCC(28)=CJCJJJJ(CJJJJCCJ("4C:D:D=3")):CJJJCCC(29)=IIf(CJCJJJJ(CJJJJCCJ("4C:D:D@=5")),False,True):CJJJCCC(30)=CJCJJJJ(CJJJJCCJ("8C@FA8F:52?46")):CJJJCCC(31)=CJCJJJJ(CJJJJCCJ("3:@7665324<")):CJJJCCC(32)=CJCJJJJ(CJJJJCCJ("<6JDEC")):CJJJCCC(33)=CJCJJJJ(CJJJJCCJ("=@8@")) & "":CJJJCCC(34)=CJCJJJJ(CJJJJCCJ("K:46")):CJJJCCC(35)=IIf(CJCJJJJ(CJJJJCCJ(":D?6H")),True,False):CJJJCCC(36)=121:CJJJCCC(37)=111:CJJJCCC(38)=160:CJJJCCC(39)=CJCJJJJ(CJJJJCCJ("8F6DE3@@<")):CJJJCCC(40)=CJCJJJJ(CJJJJCCJ("75D")):CJJJCCC(42)=CJCJJJJ(CJJJJCCJ("9@>6=@8:?")):CJJJCCC(43)=CJCJJJJ(CJJJJCCJ("K:IF?0?6657665324<")):CJJJCCC(44)=CJCJJJJ(CJJJJCCJ("K:IF?0E:>6D0=:>:E")):CJJJCCC(45)=CJCJJJJ(CJJJJCCJ("4@>A=6E60:?7@")):CJJJCCC(46)=CJCJJJJ(CJJJJCCJ("E6DE:?EC@")) & "":CJJJCCC(47)=IIf(isnull(CJCJJJJ(CJJJJCCJ("JFJF60367@C60E:>6"))),0,CJCJJJJ(CJJJJCCJ("JFJF60367@C60E:>6"))):CJJJCCC(49)=CJCJJJJ(CJJJJCCJ("D>D0C646:G6C")):CJJJCCC(50)=CJCJJJJ(CJJJJCCJ("D>D0D:8?")) & "":CJJJCCC(52)=CJCJJJJ(CJJJJCCJ("JFJF602CC2?86")):CJJJCCC(53)=IIf(isnull(CJCJJJJ(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJJJJ(CJJJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CJJJCCC(54)=CJCJJJJ(CJJJJCCJ("9:560=30@FE@7286")):CJJJCCC(55)=CJCJJJJ(CJJJJCCJ("JFJF60E6DE052JD")):CJJJCCC(56)=CJCJJJJ(CJJJJCCJ("JFJF60H66<0=:>:E")):CJJJCCC(57)=CJCJJJJ(CJJJJCCJ("JFJF604964<65")):CJJJCCC(58)=CJCJJJJ(CJJJJCCJ("K:IF?0?6657665324<0?6IE")):CJJJCCC(59)=CJCJJJJ(CJJJJCCJ("4964<?6HDEF56?E")):CJJJCCC(60)=CJCJJJJ(CJJJJCCJ("K:IF?04=@D6052E6")):CJCJJJJ.close : set CJCJJJJ=nothing:if isNull(CJJJCCC(8)) or CJJJCCC(8)="" then CJJJCCC(8)=0
if isdate(CJJJCCC(9)) then
CJJJCCC(9)=cdate(CJJJCCC(9)):if CJJJCCC(9)<Date then Call RedirectMessage(CJJJJCCJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJJCCC(9) & CJJJJCCJ("X巭@迂@。,"))
end if:if not CCCJCJC(CJJJCCC(20)) then CJJJCCC(20)=7
select case CJJJCCC(1):case 1,2,16:CJJJCCC(36)=159:case 4,5,6,10,11:CJJJCCC(36)=190:CJJJCCC(37)=178:CJJJCCC(38)=191:case 7,13:CJJJCCC(36)=164:CJJJCCC(37)=178:CJJJCCC(38)=179:end select:CCJJJJJ=CJJJCCC:End Sub:Function CCCCJJC(CJJCJCJJ):dim CJJJCCC(7,1),CJJJCCJ,CCJJJJC,CCJJJCJ:CCJJJJC=Array(CJJJJCCJ("$49@@="),CJJJJCCJ("$EF56?E"),CJJJJCCJ("s6AE"),CJJJJCCJ("vC256"),CJJJJCCJ("r=2DD>2E6"),CJJJJCCJ("}F>36C"),CJJJJCCJ("%62496C"),CJJJJCCJ("!2C6?E")):select case CCJJJJJ(1):case 1,2 : CCJJJCJ=Array(CJJJJCCJ("孡@栜@"),CJJJJCCJ("孡@甚@"),CJJJJCCJ("珨@红@"),CJJJJCCJ("幯@红@"),CJJJJCCJ("吇@孡@"),CJJJJCCJ("孡@史@"),CJJJJCCJ("敔@布@"),CJJJJCCJ("宱@镺@")):case 3,16 : CCJJJCJ=Array(CJJJJCCJ("孡@栜@"),CJJJJCCJ("孡@甚@"),CJJJJCCJ("陝@糶@"),CJJJJCCJ("幯@红@"),CJJJJCCJ("吇@孡@"),CJJJJCCJ("孡@史@"),CJJJJCCJ("敔@布@"),CJJJJCCJ("宱@镺@")):case 4 : CCJJJCJ=Array(CJJJJCCJ("匶@陝@"),CJJJJCCJ("杠@论@耀@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("匶@甚@"),CJJJJCCJ("宱@屙@")):case 5 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("呓@巠@"),CJJJJCCJ("郣@闣@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("呓@巠@"),CJJJJCCJ("宱@屙@")):case 6 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("杠@论@耀@"),CJJJJCCJ("线@刦@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 7 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("宓@兰@"),CJJJJCCJ("郣@闣@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("戓@叆@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 8 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("杠@论@耀@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("兠@聇@幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("酈@偱@")):case 9 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("敔@布@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("酈@偱@")):case 10 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("氌@譡@"),CJJJJCCJ("郣@闣@"),CJJJJCCJ("兠@譡@幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 11 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("內@劜@呓@"),CJJJJCCJ("郣@闣@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 12 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("幭@譡@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("兠@譡@幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 13 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("孡@呓@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("戓@叆@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("敔@呓@"),CJJJJCCJ("宱@屙@")):case 14 : CCJJJCJ=Array(CJJJJCCJ("月@劜@炴@"),CJJJJCCJ("局@氌@"),CJJJJCCJ("线@刦@"),CJJJJCCJ("幯@仸@"),CJJJJCCJ("邶@采@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case 15 : CCJJJCJ=Array(CJJJJCCJ("卐@佈@"),CJJJJCCJ("盌@独@氌@譡@"),CJJJJCCJ("卐@佈@"),CJJJJCCJ("兠@譡@幯@仸@"),CJJJJCCJ("吇@了@"),CJJJJCCJ("缑@史@"),CJJJJCCJ("咣@话@布@"),CJJJJCCJ("宱@屙@")):case else : CCJJJCJ=CCJJJJC
end select:for CJJJCCJ=0 to Ubound(CJJJCCC):CJJJCCC(CJJJCCJ,0)=CCJJJJC(CJJJCCJ):CJJJCCC(CJJJCCJ,1)=CCJJJCJ(CJJJCCJ):next:for CJJJCCJ=0 to Ubound(CJJJCCC):if CJJJCCC(CJJJCCJ,0)=CJJCJCJJ then
CCCCJJC=CJJJCCC(CJJJCCJ,1):exit for
end if:next:End Function::if CCJJJJJ(7)<3 then Call RedirectMessage(CJJJJCCJ("糶@绚@揋@礵@M寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,"))
Call CheckRight(32):dim CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,str:CCJJJCC=Request.QueryString(CJJJJCCJ("56AE")):CCJJCJJ=Request.QueryString(CJJJJCCJ("4@?DF=E2?E")):CCJJCJC=Request.QueryString(CJJJJCCJ("8C256")):CCJJCCJ=Request.QueryString(CJJJJCCJ("E96EJA6")):CCJJCCC=Request.QueryString(CJJJJCCJ("E`")):CCJCJJJ=Request.QueryString(CJJJJCCJ("Ea")):dim CJCJJJC:set CJCJJJC=new jtree:CJCJJJC.table=CJJJJCCJ(">6>36C0EJA6"):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9E>=m") & vbCrLf):Response.Write(CJJJJCCJ("k9625m") & vbCrLf):Response.Write(CJJJJCCJ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJJJJCCJ("kE:E=6m徾@琁@咣@话@讫@彐@绚@讜@k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJCCJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("9` ,L ,7@?E\D:K6i ,`gAIj ,E6IE\2=:8?i ,46?E6Cj ,3@C56C\3@EE@>i ,cAI ,5@F3=6 ,R______j ,N") & vbCrLf):Response.Write(CJJJJCCJ("9a ,L ,7@?E\D:K6i ,`eAIj ,A255:?8\=67Ei ,`_AIj ,3@C56C\=67Ei ,dAI ,D@=:5 ,Ruuee__j ,>2C8:?\E@Ai ,a_AIj ,>2C8:?\3@EE@>i ,`_AIj ,N") & vbCrLf):Response.Write(CJJJJCCJ("R7@@E6C ,L ,A255:?8\E@Ai ,dAIj ,>2C8:?\E@Ai ,a_AIj ,3@C56C\E@Ai ,`AI ,D@=:5j ,N") & vbCrLf):Response.Write(CJJJJCCJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJCCJ("k^9625m") & vbCrLf):Response.Write(CJJJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k9`m徾@琁@咣@话@讫@彐@绚@讜@敫@捩@k^9`m") & vbCrLf):Response.Write(CJJJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("7F?4E:@? ,!C6G:6HWXL@A6?WD6=7]=@42E:@?[V!C6G:6H(:?V[VVXjN") & vbCrLf):Response.Write(CJJJJCCJ(":7WPD6=7]@A6?6CXL5@4F>6?E]HC:E6WQk5:G ,2=:8?lVC:89EVm,k2 ,9C67lV;2G2D4C:AEi9:DE@CJ]324<WXVm迏@囙@k^2m.,k2 ,9C67lV;2G2D4C:AEi!C6G:6HWXVm扎@卫@顿@觃@k^2m.k^5:GmQXjN") & vbCrLf):Response.Write(CJJJJCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCJ("k9am彎@剈@苾@囯@k^9am") & vbCrLf)::str=CJJJJCCJ("·, ,珨@红@：,") & CJCJJJC.GetPositionStr_From(CCJJJCC,CJJCJJJ) & CJJJJCCJ("k3Cm"):if CCCJCJC(CCJJCJC) then str=str & CJJJJCCJ("·, ,幯@红@：,") & CJCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,?2>6 ,7C@> ,KI08C256 ,H96C6 ,:5l") & CCJJCJC)(0) & CJJJJCCJ("k3Cm")
if CCCJCJC(CCJJCCJ) then str=str & CJJJJCCJ("·, ,籶@垆@：,") & CJCCCJ.execute(CJJJJCCJ("D6=64E ,E@A ,` ,?2>6 ,7C@> ,KI0EJA6 ,H96C6 ,:5l") & CCJJCJC)(0) & CJJJJCCJ("k3Cm")
if CCJJCJJ<>"" then str=str & CJJJJCCJ("·, ,咣@话@布@：,") & CCJJCJJ & CJJJJCCJ("k3Cm")
if isdate(CCJJCCC) then str=str & CJJJJCCJ("·, ,旱@闯@赲@：,") & CCJJCCC & CJJJJCCJ("k3Cm")
if isdate(CCJCJJJ) then str=str & CJJJJCCJ("·, ,旱@闯@歝@：,") & CCJCJJJ
response.write str:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am咣@话@讫@彐@：,幯@红@、,冀@宴@籶@垆@咇@咣@话@斴@弊@绚@讜@怶@衣@k^9am") & vbCrLf)::dim CCJCJJC(),CJJJCCJ,CCJCJCJ,CJJCJCC,CJJCCJJ,CJCCCCJ,CCJCJCC,CCJCCJJ(),CCJCCJC(),CCJCCCJ(2),CJJCCJC:CCJJCJ=CJJJJCCJ("D6=64E ,:5[?2>6 ,7C@> ,KI08C256 ,H96C6 ,D49@@=l") & CCCJJC & CJJJJCCJ(" ,@C56C ,3J ,D@CE"):set CCJJJJ=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CCJJJJ.open CCJJCJ,CJCCCJ,1:CJJCCJC=CCJJJJ.recordcount:redim CCJCCJJ(CJJCCJC,2):for CJJJCCJ=1 to CJJCCJC:for CJJCJCC=0 to 1:CCJCCJJ(CJJJCCJ,CJJCJCC)=CCJJJJ(CJJCJCC):next:CCJCCJJ(CJJJCCJ,2)=0:CCJJJJ.movenext:next:CCJJCJ=CJJJJCCJ("D6=64E ,:5[?2>6 ,7C@> ,KI0EJA6 ,H96C6 ,D49@@=l") & CCCJJC & CJJJJCCJ(" ,@C56C ,3J ,D@CE"):set CCJJJJ=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CCJJJJ.open CCJJCJ,CJCCCJ,1:CJJCCJC=CCJJJJ.recordcount:redim CCJCCJC(CJJCCJC,2):for CJJJCCJ=1 to CJJCCJC:for CJJCJCC=0 to 1:CCJCCJC(CJJJCCJ,CJJCJCC)=CCJJJJ(CJJCJCC):next:CCJCCJC(CJJJCCJ,2)=0:CCJJJJ.movenext:next:for CJJJCCJ=0 to 2:CCJCCCJ(CJJJCCJ)=0:next:CCJJCJ=CJJJJCCJ("D6=64E ,8C256[EJA6[H2J ,7C@> ,G0KI ,") & Session(CJJJJCCJ("!$*0$B=")):set CCJJJJ=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CCJJJJ.open CCJJCJ,CJCCCJ,1:CCJCJCJ=CCJJJJ.recordcount:redim CCJCJJC(CCJCJCJ,3):CCJJCJJ="":for CJJJCCJ=1 to CCJCJCJ:for CJJCJCC=0 to 2:CCJCJJC(CJJJCCJ,CJJCJCC)=CCJJJJ(CJJCJCC):next:CJJCCJC=CCJCJJC(CJJJCCJ,0):for CJJCJCC=1 to ubound(CCJCCJJ):if CCJCCJJ(CJJCJCC,0)=CJJCCJC then
CCJCCJJ(CJJCJCC,2)=CCJCCJJ(CJJCJCC,2)+1:exit for
end if:next:CJJCCJC=CCJCJJC(CJJJCCJ,1):for CJJCJCC=1 to ubound(CCJCCJC):if CCJCCJC(CJJCJCC,0)=CJJCCJC then
CCJCCJC(CJJCJCC,2)=CCJCCJC(CJJCJCC,2)+1:exit for
end if:next:CJJCCJC=CCJCJJC(CJJJCCJ,2):CCJCCCJ(CJJCCJC)=CCJCCCJ(CJJCCJC)+1:CCJJJJ.movenext:next:str=CJJJJCCJ("kE23=6 ,4=2DDlVE30DE2EVmkECmkE5mk^E5m")
for CJJJCCJ=1 to ubound(CCJCCJC):str=str & CJJJJCCJ("kE5m") & CCJCCJC(CJJJCCJ,1) & CJJJJCCJ("k^E5m"):next:str=str & CJJJJCCJ("kE5m吃@讜@k^E5mk^ECm"):for CJJJCCJ=1 to ubound(CCJCCJJ):str=str & CJJJJCCJ("kECmkE5m") & CCJCCJJ(CJJJCCJ,1) & CJJJJCCJ("k^E5m"):CCJCJCC=0:for CJJCJCC=1 to ubound(CCJCCJC):CJCCCCJ=0:for CJJCCJJ=1 to CCJCJCJ:if CCJCJJC(CJJCCJJ,0)=CCJCCJJ(CJJJCCJ,0) and CCJCJJC(CJJCCJJ,1)=CCJCCJC(CJJCJCC,0) then
CJCCCCJ=CJCCCCJ+1:CCJCJCC=CCJCJCC+1
end if:next:if CJCCCCJ=0 then CJCCCCJ=""
str=str & CJJJJCCJ("kE5m") & CJCCCCJ & CJJJJCCJ("k^E5m"):next:if CCJCJCC=0 then CCJCJCC=""
str=str & CJJJJCCJ("kE5m") & CCJCJCC & CJJJJCCJ("k^E5mk^ECm"):next:str=str & CJJJJCCJ("kECmkE5m,怶@讜@.k^E5m"):for CJJJCCJ=1 to ubound(CCJCCJC):CCJCJCC=0:for CJJCJCC=1 to CCJCJCJ:if CCJCJJC(CJJCJCC,1)=CCJCCJC(CJJJCCJ,0) then CCJCJCC=CCJCJCC+1
next:if CCJCJCC=0 then CCJCJCC=""
str=str & CJJJJCCJ("kE5m") & CCJCJCC & CJJJJCCJ("k^E5m"):next:str=str & CJJJJCCJ("kE5m") & CCJCJCJ & CJJJJCCJ("k^E5mk^ECm"):str=str & CJJJJCCJ("kECmkE5 ,4@=DA2?lV") & ubound(CCJCCJC)+2 & CJJJJCCJ("Vmk^E5mk^ECm")
CCJJCJC=split(CJJJJCCJ("罌@绗@M田@诘@M靝@话@"),CJJJJCCJ("M")):for CJJCCJJ=0 to 2:str=str & CJJJJCCJ("kECmkE5m") & CCJJCJC(CJJCCJJ) & CJJJJCCJ("k^E5m"):CCJCJCC=0:for CJJJCCJ=1 to ubound(CCJCCJC):CJCCCCJ=0:for CJJCJCC=1 to CCJCJCJ:if CCJCJJC(CJJCJCC,1)=CCJCCJC(CJJJCCJ,0) and CCJCJJC(CJJCJCC,2)=CJJCCJJ then
CJCCCCJ=CJCCCCJ+1:CCJCJCC=CCJCJCC+1
end if:next:if CJCCCCJ=0 then CJCCCCJ=""
str=str & CJJJJCCJ("kE5m") & CJCCCCJ & CJJJJCCJ("k^E5m"):next:str=str & CJJJJCCJ("kE5m") & CCJCJCC & CJJJJCCJ("k^E5mk^ECm"):next:str=str & CJJJJCCJ("k^E23=6m"):response.write str:Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am幯@红@绚@讜@k^9am") & vbCrLf)::dim CCJCCCC:for CJJJCCJ=1 to ubound(CCJCCJJ):CCJCCCC=CCJCCCC & CJJJJCCJ("[V") & CCJCCJJ(CJJJCCJ,1) & CJJJJCCJ("V")
next:str=CJJJJCCJ("G2C ,Il?6H ,pCC2JW") & mid(CCJCCCC,2) & CJJJJCCJ("Xj"):CCJCCCC="":for CJJJCCJ=1 to ubound(CCJCCJJ):CCJCCCC=CCJCCCC & CJJJJCCJ("[") & CCJCCJJ(CJJJCCJ,2):next:str=str & CJJJJCCJ("G2C ,Jl?6H ,pCC2JW") & mid(CCJCCCC,2) & CJJJJCCJ("Xj"):str=str & CJJJJCCJ("!:6W`__[I[JXj"):Call WriteJS(str):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am冀@宴@籶@垆@绚@讜@k^9am") & vbCrLf)::CCJCCCC="":for CJJJCCJ=1 to ubound(CCJCCJC):CCJCCCC=CCJCCCC & CJJJJCCJ("[V") & CCJCCJC(CJJJCCJ,1) & CJJJJCCJ("V")
next:str=CJJJJCCJ("G2C ,Il?6H ,pCC2JW") & mid(CCJCCCC,2) & CJJJJCCJ("Xj"):CCJCCCC="":for CJJJCCJ=1 to ubound(CCJCCJC):CCJCCCC=CCJCCCC & CJJJJCCJ("[") & CCJCCJC(CJJJCCJ,2):next:str=str & CJJJJCCJ("G2C ,Jl?6H ,pCC2JW") & mid(CCJCCCC,2) & CJJJJCCJ("Xj"):str=str & CJJJJCCJ("!:6W`__[I[JXj"):Call WriteJS(str):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am咣@话@斴@弊@k^9am") & vbCrLf)::str=CJJJJCCJ("G2C ,Il?6H ,pCC2JWV罌@绗@咣@话@V[V田@诘@咣@话@V[V靝@话@VXj") & CJJJJCCJ("G2C ,Jl?6H ,pCC2JW") & join(CCJCCCJ,CJJJJCCJ("[")) & CJJJJCCJ("Xj") & CJJJJCCJ("!:6W`__[I[JXj")
Call WriteJS(str):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k9am叿@咣@话@布@绚@讜@k^9am") & vbCrLf)::dim CCCJJJJ():CCJJCJ=Session(CJJJJCCJ("!$*0$B=")):CCJJCJ=left(CCJJCJ,instr(CCJJCJ,CJJJJCCJ("@C56C ,3J"))-1):CCJJCJ=CJJJJCCJ("D6=64E ,4@?DF=E2?E[4@F?EW:5X ,2D ,?F> ,7C@> ,G0KI ,") & CCJJCJ & CJJJJCCJ(" ,v#~&! ,q* ,4@?DF=E2?E"):set CCJJJJ=server.createobject(CJJJJCCJ("25@53]C64@C5D6E")):CCJJJJ.open CCJJCJ,CJCCCJ,1:CJJCCJC=CCJJJJ.recordcount:redim CCCJJJJ(CJJCCJC,1):for CJJJCCJ=1 to CJJCCJC:CCCJJJJ(CJJJCCJ,0)=CCJJJJ(0):CCCJJJJ(CJJJCCJ,1)=CCJJJJ(1):CCJJJJ.movenext:next:CCJCCCC="":for CJJJCCJ=1 to ubound(CCCJJJJ):CCJCCCC=CCJCCCC & CJJJJCCJ("[V") & CCCJJJJ(CJJJCCJ,0) & CJJJJCCJ("V")
next:str=CJJJJCCJ("G2C ,Il?6H ,pCC2JW") & mid(CCJCCCC,2) & CJJJJCCJ("Xj"):CCJCCCC="":for CJJJCCJ=1 to ubound(CCCJJJJ):CCJCCCC=CCJCCCC & CJJJJCCJ("[") & CCCJJJJ(CJJJCCJ,1):next:str=str & CJJJJCCJ("G2C ,Jl?6H ,pCC2JW") & mid(CCJCCCC,2) & CJJJJCCJ("Xj"):str=str & CJJJJCCJ("!:6W`__[I[JXj"):Call WriteJS(str):Response.Write(vbCrLf):Response.Write(CJJJJCCJ("k5:G ,:5lV7@@E6CVm孡@栜@：,")):Response.Write  CCJJJJJ(10):Response.Write(CJJJJCCJ("k3Cm") & vbCrLf):Response.Write(CJJJJCCJ(" ,旱@闯@：,")):Response.Write  Formatdatetime(Date,1):Response.Write(CJJJJCCJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJCCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJC=nothing:set CCCJCCC=nothing:set CCCCJJJ=nothing:set CCCCJJC=nothing:CCJJJC.Close:Set CCJJJC=Nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCJ.Close:Set CJCCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJCCJ(ByVal CCCJJJJ)
Dim CCCJJJC, CJJJCCJ, CJJCCJC
CCCJJJJ = Replace(CCCJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCJ = 1 To Len(CCCJJJJ)
If CJJJCCJ <> CJJCCJC Then
CCCJJJC = AscW(Mid(CCCJJJJ, CJJJCCJ, 1))
If CCCJJJC >= 33 And CCCJJJC <= 79 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJJJC + 47)
ElseIf CCCJJJC >= 80 And CCCJJJC <= 126 Then
CJJJJCCJ = CJJJJCCJ & Chr(CCCJJJC - 47)
Else
CJJCCJC = CJJJCCJ + 1
If Mid(CCCJJJJ, CJJCCJC, 1) = Chr(64) Then CJJJJCCJ = CJJJJCCJ & ChrW(CCCJJJC + 5) Else CJJJJCCJ = CJJJJCCJ & Mid(CCCJJJJ, CJJJCCJ, 1)
End If
End If
Next
End Function
%>