<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CJJCJJJC("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CJJCJJJC("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC::::Const CJJJJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::Sub Debug(str):response.Charset="utf-8":dim CJJJCCJ,CJJJCCC,CJJCJJJ:if isarray(str) then
on error resume next:CJJJCCJ=ubound(str,2):CJJCJJJ=err.number:err.clear:on error goto 0:if CJJCJJJ<>0 then
for CJJJCCJ=0 to ubound(str):if CJJJCCJ>0 then response.Write CJJCJJJC("k3C ,^m")
response.Write CJJJCCJ & CJJCJJJC("i ,") & str(CJJJCCJ):next
else
response.Write CJJCJJJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCCJ=0 to ubound(str,2):response.Write CJJCJJJC("kE9 ,2=:8?lV=67EVm") & CJJJCCJ & CJJCJJJC("k^E9m")
next:response.Write CJJCJJJC("k^ECm"):for CJJJCCJ=0 to ubound(str):response.Write CJJCJJJC("kECmkE9m") & CJJJCCJ & CJJCJJJC("k^E9m"):for CJJJCCC=0 to ubound(str,2):response.Write CJJCJJJC("kE5m") & str(CJJJCCJ,CJJJCCC) & CJJCJJJC("k^E5m"):next:response.Write CJJCJJJC("k^ECm"):next:response.Write CJJCJJJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJCJJJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJCJJJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub:Public Function CJJJJJCJ():Dim CJJCJJC, CJJCJCJ:CJJCJCJ = Request.ServerVariables(CJJCJJJC("!p%w0x}u~")):CJJCJJC = Request.ServerVariables(CJJCJJJC("""&t#*0$%#x}v")):If CJJCJJC <> Empty Then
if instr(lcase(CJJCJJC),CJJCJJJC("Tb4:7C2>6"))>0 or instr(lcase(CJJCJJC),CJJCJJJC("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJCJJJC("寴@丈@赲@，,患@癿@圫@圻@栊@否@朄@静@泐@孒@笡@！,！,！,"))
CJJCJCJ = CJJCJCJ & CJJCJJJC("n") & CJJCJJC
end if:CJJJJJCJ = CJJCJCJ:End Function:Sub SetHttpOnlyCookie(CJJCJJCC,CJJCJCJJ):dim CJJCJCC:CJJCJCC=CJJCJJCC & CJJCJJJC("l") & CJJCJCJJ & CJJCJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJJJC("$6E\r@@<:6"),CJJCJCC):End Sub:::Function CJJJJJCC(ByVal Str, ByVal StrLen):Dim CJJCCJJ, CJJCCJC, CJJCCCJ, CJJJCCJ:if isnull(str) then
CJJJJJCC=""
else
CJJCCJJ = Len(Str):CJJCCJC = 0:For CJJJCCJ = 1 To CJJCCJJ:CJJCCCJ = AscW(Mid(Str, CJJJCCJ, 1)):If CJJCCCJ < 0 Or CJJCCCJ > 255 Then CJJCCJC = CJJCCJC + 2 Else CJJCCJC = CJJCCJC + 1
If CJJCCJC >= StrLen Then
CJJJJJCC = Left(Str, CJJJCCJ) & CJJCJJJC("]]]"):Exit For
Else
CJJJJJCC = Str
End If:Next
end if:End Function::::Function CJJJJCJJ(CJJCJJJ):if isnull(CJJCJJJ) or trim(CJJCJJJ)="" or not isnumeric(CJJCJJJ) then
CJJJJCJJ=false
else
Dim CJJCCCC:Set CJJCCCC = New RegExp:CJJCCCC.Pattern = CJJCJJJC("/-5ZS"):CJJCCCC.IgnoreCase = True:CJJJJCJJ = CJJCCCC.test(CJJCJJJ):set CJJCCCC=nothing
end if:End Function:Function CJJJJCJC(CJJCJCJC):dim CJCJJJJ,CJCJJJC:CJCJJJJ=CJJCJJJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJCJCJC & CJJCJJJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJJC=CJJJJJC.execute(CJCJJJJ):CJJJJCJC = CJCJJJC(0):if isnull(CJJJJCJC) then CJJJJCJC=1
CJCJJJC.close : set CJCJJJC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJCJJJ=nothing:set CJJJJCCJ=nothing:set CJJJJCCC=nothing:set CJJJCJJJ=nothing:CJCJJJC.close : set CJCJJJC=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CJJJCJJC.Close : Set CJJJCJJC = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJCJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJJJC("!$*0|6DD286"),server.URLEncode(CJJCJCCJ)):Response.Redirect CJJCJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::Sub ClearCache(CJJCJCCC):Application.Contents.Remove CJJCJCCC
End Sub::Dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC,CJCCJCJ:Dim CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ:Dim CCJJJJC,CCJJJCJ,CCJJJCC:Dim CCJJCJJ:CCJJCJJ=Trim(Request.Cookies(CJJCJJJC("!$*|t|qt#"))):if CCJJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCJJCJ>0 then
CJJJCJC=CJJCJJJC("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") & CJCJJCC & CJJCJJJC("V ,2?5 ,:5l") & CJCJJCJ
set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then
Call ClearMemberCookie
Else
CJCJCJJ=CJJJJCC(2) & "":CJCJCJC=CJJJJCC(3):CJCJCCJ=CJJJJCC(5):CJCJCCC=CJJJJCC(6):CJCCJJJ=CJJJJCC(9):CJCCJJC=CJJJJCC(15):CJCCJCC=CJJJJCC(0):CCJJJCJ=CJJJJCC(1):CCJJJJC=CJJJJCC(11) & "":CJCCCJJ=CJJJJCC(10) & "":CJCCJCJ=CJJJJCC(12):CJCCCJC=CJJJJCC(14):CJCCCCJ=CJJJJCC(13):CJCCCCC=CJJJJCC(7) & "":CCJJJJJ=CJJJJCC(4):CCJJJCC=CJJJJCC(8):if isnull(CJCCJJC) then CJCCJJC=0
if isnull(CJCCJJJ) or CJCCJJJ=0 then CJCCJJJ=CJCJCJC
if isnull(CCJJJJJ) then CCJJJJJ=0
if isnull(CJCJCCJ) then CJCJCCJ=0
if instr(CJJCJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCJJCC)>0 then Call RedirectMessage(CJJCJJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCJJCJ,CJCJJCC)
End IF
end if::Function CJJJCJCJ(CJJCCJJJ):dim CJJJCCJ,CCJJCJC:CCJJCJC=split(CJJCCJJJ,CJJCJJJC("[")):CJJJCJCJ=False:for CJJJCCJ=0 to ubound(CCJJCJC):If Mid(CJCJCJJ,CCJJCJC(CJJJCCJ),1)="1" then
CJJJCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJJJC("!$*|t|qt#"))="":CJCJJCJ=0:CJCJCCC=0:CJCJJCC=Empty:CJCJCCJ=0:CJCCJJC=0:CJCCJJJ=0:CJCJCJC=0:CJCCJCC=False:CCJJJCJ=False:CCJJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJCC,CCJJCCJ,CJJJCCJ,CJJJCCC,CCJJCCC:CJJCJCC=split(CCJJCJJ,CJJCJJJC("]")):if ubound(CJJCJCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJCC(0)) or len(CJJCJCC(1))<>32 or len(CJJCJCC(2))<>32 then
Call ClearMemberCookie
else
CCJJCCJ=CJJCJCC(1):for CJJJCCJ=1 to len(CCJJCCJ):CJJJCCC=mid(CCJJCCJ,CJJJCCJ,1):if isnumeric(CJJJCCC) then CCJJCCC=CCJJCCC & CJJJCCC
if len(CCJJCCC)=7 then exit for
next:CCJJCCJ=CJJCJCC(2):if CCJJCCC<>mid(CCJJCCJ,6,7) then
Call ClearMemberCookie
else
CJJJCCC=mid(CCJJCCJ,18,10)/2:if CJJJCCC<DateDiff(CJJCJJJC("D"), CJJCJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCJJCJ=Clng(CJJCJCC(0)):CJCJJCC=CJJCJCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCCJ,CJJCCJJC):dim CJJJCCJ,CJJJCCC,CCJJCCC:for CJJJCCJ=1 to len(CJJCCJJC):CJJJCCC=mid(CJJCCJJC,CJJJCCJ,1):if isnumeric(CJJJCCC) then CCJJCCC=CCJJCCC & CJJJCCC
if len(CCJJCCC)=7 then exit for
next:CCJJCCC=CCCJCCJ & CJJCJJJC("]") & CJJCCJJC & CJJCJJJC("]") & Fix(10000*(Rnd+1)) & CCJJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJJCJJJC("D"), CJJCJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJJJC("!$*|t|qt#"))=CCJJCCC:End Sub::Class jTree:Private CJJJCJC, CCJCJJJ, CCJCJJC, CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ:Private Sub Class_Initialize():CCJCJJC = 0:CCJCJCJ = 0:CCJCCCJ=10:End Sub:Public Property Let Table(CJJCCJCJ):if CJJCCJCJ="" then Call RedirectMessage(CJJCJJJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CCJCJCC=CJJCCJCJ:CCJCCJJ=CJJCJJJC("!$*0") & UCase(CCJCJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CCJCJCC:End Property:::Private Sub GetTreeArray():Dim CJJJCCJ, CJJJCCC, CCJCCCC,CCCJJJJ:CCJCJJJ = Application(CCJCCJJ):If Not IsArray(CCJCJJJ) Then
CJJJCJC = CJJCJJJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CCJCJCC:if CCJCCJC<>"" then CJJJCJC=CJJJCJC & CJJCJJJC(" ,H96C6 ,") & CCJCCJC
set CCJCCCC=CJJJJJC.execute(CJJJCJC):CCCJJJJ=CCJCCCC(0):if CCCJJJJ=0 then Call RedirectMessage(CJJCJJJC("柠@话@W") & CCJCJCC & CJJCJJJC("^") & CCJCCJC & CJJCJJJC("X沜@朄@绎@林@敫@捩@"))
CCJCJCJ=CCCJJJJ+CCJCCCJ:ReDim CCJCJJJ(CCJCJCJ, 4):CJJJCJC = CJJCJJJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJJCJJJC(" ,H:E9 ,W?@=@4<X"):if CCJCCJC<>"" then CJJJCJC=CJJJCJC & CJJCJJJC(" ,H96C6 ,") & CCJCCJC
CJJJCJC=CJJJCJC & CJJCJJJC(" ,@C56C ,3J ,D@CE[:5"):set CCJCCCC=CJJJJJC.execute(CJJJCJC):For CJJJCCJ = 1 To CCCJJJJ:For CJJJCCC = 0 To 4:CCJCJJJ(CJJJCCJ, CJJJCCC) = CCJCCCC(CJJJCCC):if IsNull(CCJCJJJ(CJJJCCJ,4)) then CCJCJJJ(CJJJCCJ,4)=0
If CCJCJJJ(CJJJCCJ,2)="" then CCJCJJJ(CJJJCCJ,2)=CJJCJJJC(",穵@.")
Next:CCJCCCC.MoveNext:Next:CCJCCCC.Close: Set CCJCCCC = Nothing:for CJJJCCJ=CCJCJCJ-(CCJCCCJ-1) to CCJCJCJ:CCJCJJJ(CJJJCCJ,0)=CJJJCCJ:next:Application.Lock():Application(CCJCCJJ) = CCJCJJJ:Application.UnLock()
else
CCJCJCJ=Ubound(CCJCJJJ)
End If:End Sub:::::Private Function CJJJCCJJ(CCCJCCJ):dim CJJJCCJ,CCCJJJC:CJJJCCJJ=0:CCCJJJC=CStr(CCCJCCJ):if CCCJJJC<>"0" then
for CJJJCCJ=1 to CCJCJCJ:If CStr(CCJCJJJ(CJJJCCJ, 0))=CCCJJJC Then
CJJJCCJJ = CJJJCCJ:Exit For
End If:Next
end if:End Function:Public Function GetCurName(CCCJCCJ):if Cstr(CCCJCCJ)="0" then
GetCurName=CJJCJJJC("栴@")
else
Dim CJJJCCJ,CCJCCCC:CJJJCCJ=CJJJCCJJ(CCCJCCJ):if CJJJCCJ>0 then
GetCurName=CCJCJJJ(CJJJCCJ,2):if GetCurName="" then
set CCJCCCC=CJJJJJC.execute(CJJCJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJJCJJJC(" ,H96C6 ,:5l") & CCCJCCJ):if CCJCCCC.eof then Call RedirectMessage(CJJCJJJC("xs（,") & CCCJCCJ & CJJCJJJC("）,朥@批@别@"))
GetCurName=CCJCCCC(1):Call UpdateCache(CCCJCCJ,CCJCCCC(0),GetCurName,CCJCCCC(2),CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if
else
set CCJCCCC=CJJJJJC.execute(CJJCJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJJCJJJC(" ,H96C6 ,:5l") & CCCJCCJ):if CCJCCCC.eof then Call RedirectMessage(CJJCJJJC("xs（,") & CCCJCCJ & CJJCJJJC("）,朥@批@别@"))
GetCurName=CCJCCCC(1):Call UpdateCache(CCCJCCJ,CCJCCCC(0),GetCurName,CCJCCCC(2),CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if
end if:End Function:::Public Function CJJJCCCJ(CCCJCCJ):Dim CJJJCCJ,CCCJJCJ:CJJJCCJ=CJJJCCJJ(CCCJCCJ):if CJJJCCJ=0 then
CCCJJCJ=CJJJCCCC(CCCJCCJ)
else
CCCJJCJ=CCJCJJJ(CJJJCCJ,3):if isnull(CCCJJCJ) or CCCJJCJ="" then
CCCJJCJ=CJJJCCCC(CCCJCCJ)
elseif Mid(CCCJJCJ,instrrev(CCCJJCJ,CJJCJJJC("["))+1)<>CStr(CCCJCCJ) then
CCCJJCJ=CJJJCCCC(CCCJCCJ)
elseif Left(CCCJJCJ,1)=CJJCJJJC("[") then
CCCJJCJ=CJJJCCCC(CCCJCCJ)
end if
end if:CJJJCCCJ=CCCJJCJ:End Function:Private Function CJJJCCCC(CCCJCCJ):dim CCCJJJC:CCCJJJC=CStr(CCCJCCJ):if CCCJJJC="0" then
CJJJCCCC=""
else
dim CCJCCCC:set CCJCCCC=CJJJJJC.execute(CJJCJJJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCJCJCC & CJJCJJJC(" ,H96C6 ,:5l") & CCCJCCJ):if CCJCCCC.eof then
Call UpdateCache(CCCJCCJ,"","","",""):Call RedirectMessage(CJJCJJJC("顴@盩@（,xs：,") & CCCJCCJ & CJJCJJJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CCJCCCC(0)=0 then
CJJJCCCC="0," & CCCJCCJ
else
CJJJCCCC=CJJJCCCJ(CCJCCCC(0)) & CJJCJJJC("[") & CCCJCCJ
end if:if CCJCCCC(2)<>CJJJCCCC then
CJJJJJC.execute CJJCJJJC("FA52E6 ,") & CCJCJCC & CJJCJJJC(" ,D6E ,A2E9lV") & CJJJCCCC & CJJCJJJC("V ,H96C6 ,:5l") & CCCJCCJ
else
CJJJCCCC=CCJCCCC(2)
end if
end if:Call UpdateCache(CCCJCCJ,CCJCCCC(0),CCJCCCC(1),CJJJCCCC,CCJCCCC(3)):CCJCCCC.Close: Set CCJCCCC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCJCCJJ
End Sub:Public Sub UpdateCache(CCCJCCJ,CJJCCJCC,CJJCCCJJ,CCCJJCJ,CJJCCCJC):dim CJJJCCJ,CJJJCCC:CCCJCCJ=CLng(CCCJCCJ):CJJJCCJ=CJJJCCJJ(CCCJCCJ):if CJJCCJCC="" and CJJCCCJJ="" and CCCJJCJ="" and CJJCCCJC="" then
if CJJJCCJ>0 then
for CJJJCCC=1 to 4:CCJCJJJ(CJJJCCJ,CJJJCCC)=Null:next
end if
else
if CJJJCCJ=0 then
for CJJJCCC=1 to CCJCJCJ:if CCJCJJJ(CJJJCCC,1) & ""="" then
CJJJCCJ=CJJJCCC:exit for
end if:next
end if:if CJJJCCJ=0 then
Call ClearCache
else
CCJCJJJ(CJJJCCJ,0)=CLng(CCCJCCJ):if CJJCCJCC<>"" then CCJCJJJ(CJJJCCJ,1)=CLng(CJJCCJCC)
if CJJCCCJJ<>"" then CCJCJJJ(CJJJCCJ,2)=CJJCCCJJ
if CCCJJCJ<>"" then CCJCJJJ(CJJJCCJ,3)=CCCJJCJ
if CJJCCCJC<>"" then CCJCJJJ(CJJJCCJ,4)=CLng(CJJCCCJC)
end if
end if:if CJJJCCJ>0 then
Application.Lock():Application(CCJCCJJ) = CCJCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJCJCCJ):Call ConnClose:Response.Write CJJCJCCJ:Response.End:End Sub:Private Function CJJJJCJC():CJJJJCJC=CJJCJJJJ+1:End Function:Private Function CJJCJJJJ():dim CJCJJJC:set CJCJJJC=CJJJJJC.execute(CJJCJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCJCJCC & CJJCJJJC(" ,@C56C ,3J ,:5 ,56D4")):CJJCJJJJ=CJCJJJC(0):CJCJJJC.Close: Set CJCJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CCCJJCC,CCCJCJJ(0):CCCJJCC=Request.QueryString(CJJCJJJC("F")):if not CJJJJCJJ(CCCJJCC) then CCCJJCC=CJCJCJC
if not CJJJJCJJ(CCCJJCC) then CCCJJCC=2
dim CCJCJJJ:set CCJCJJJ=new jtree:CCJCJJJ.table=CJJCJJJC(">6>36C0EJA6"):CCCJCJJ(0)=CCJCJJJ.GetCurName(CCCJJCC):dim CCCJCJC:set CJJJJCC=CJJJJJC.execute(CJJCJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,2CE:4=60EJA6 ,H96C6 ,>6>36CEJA6l") & CCCJJCC):if CJJJJCC.eof then Call RedirectMessage(CJJCJJJC("寴@丈@赲@，,彎@剈@罌@竔@尕@朥@讹@罩@栊@盩@！,"))
CCCJCJC=CJJJJCC(0)::dim CCCJCCJ,CCCJCCC:CCCJCCJ=Request.QueryString(CJJCJJJC(":5")):CCCJCCC=Request.QueryString(CJJCJJJC("24E")):if not CJJJJCJJ(CCCJCCJ) then response.Redirect CJJCJJJC("]")
dim CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC,CCCCCJJ,CCCCCJC,typename:if CCCJCCC=CJJCJJJC("3F==6E:?") then
set CJJJJCC=CJJJJJC.execute(CJJCJJJC("D6=64E ,E@A ,` ,E:E=6[C62=?2>6[52E6E:>6[9:E[4@?E6?E ,7C@> ,G03F==6E:? ,H96C6 ,:5l") & CCCJCCJ):if CJJJJCC.eof then Call RedirectMessage(CJJCJJJC("丨@囸@徾@琁@罌@M寴@丈@赲@，,患@戻@襼@柠@眆@癿@俜@恪@幱@丈@孓@圣@！,"))
CCCCJJJ=CJJJJCC(0):CCCCCJC=CJJJJCC(1):CCCCCJJ=FormatDatetime(CJJJJCC(2),2):CCCCJCJ=CJJJJCC(3)+1:CCCCJJC=replace(CJJJJCC(4) & "",CJJCJJJC("　,"),""):if isnull(CCCCJCJ) then CCCCJCJ=1
CJJJJJC.execute(CJJCJJJC("FA52E6 ,3F==6E:? ,D6E ,9:El") & CCCCJCJ & CJJCJJJC(" ,H96C6 ,:5l") & CCCJCCJ)
else
set CJJJJCC=CJJJJJC.execute(CJJCJJJC("D6=64E ,E@A ,` ,Y ,7C@> ,G02CE:4=6 ,H96C6 ,:5l") & CCCJCCJ):if CJJJJCC.eof then Call RedirectMessage(CJJCJJJC("丨@囸@徾@琁@罌@M寴@丈@赲@，,患@戻@襼@柠@眆@癿@俜@恪@幱@丈@孓@圣@！,"))
CCCCJJJ=CJJJJCC(CJJCJJJC("E:E=6")):CCCCCJC=CJJJJCC(CJJCJJJC("?:4<?2>6")):CCCCJJC=CJJJJCC(CJJCJJJC("4@?E6?E")):CCCCJCJ=CJJJJCC(CJJCJJJC("9:E")):CCCCJCC=CJJJJCC(CJJCJJJC("EJA6")):CCCCCJJ=CJJJJCC(CJJCJJJC("52E6E:>6")):typename=CJJJJCC(CJJCJJJC("EJA6?2>6")):CJJJJJC.execute CJJCJJJC("FA52E6 ,2CE:4=6 ,D6E ,9:El9:EZ` ,H96C6 ,:5l") & CCCJCCJ
end if:Response.Write(vbCrLf):Response.Write(CJJCJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJCJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJCJJJC("k9625m") & vbCrLf):Response.Write(CJJCJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJCJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJCJJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJCJJJC("kE:E=6m")):Response.Write  CCCJCJJ(0):Response.Write(CJJCJJJC("\")):Response.Write  CCCCJJJ:Response.Write(CJJCJJJC("k^E:E=6m") & vbCrLf):Response.Write(CJJCJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^4DD^C6D6E]4DDQm") & vbCrLf):Response.Write(CJJCJJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCJJJC("kDEJ=6m") & vbCrLf):Response.Write(CJJCJJJC("R>2:? ,L ,>2C8:?\3@EE@>i ,`_AIj ,@G6C7=@Hi ,9:556?j ,>2C8:?\E@Ai ,`_AIj ,N") & vbCrLf):Response.Write(CJJCJJJC("R>2:? ,]D:56 ,L ,H:5E9i ,af_AIj ,7=@2Ei ,=67Ej ,N") & vbCrLf):Response.Write(CJJCJJJC("R>2:? ,]D:56 ,5:G ,L ,3@C56C\C25:FDi ,`_AIj ,324<8C@F?5i ,R777j ,>2C8:?\3@EE@>i ,`_AIj ,N") & vbCrLf):Response.Write(CJJCJJJC("R>2:? ,]D:56 ,9b ,L ,324<8C@F?5i ,R`cggf`j ,4@=@Ci ,R777j ,7@?E\D:K6i ,`eAIj ,A255:?8\=67Ei ,a_AIj ,7@?E\H6:89Ei ,?@C>2=j ,96:89Ei ,c_AIj ,=:?6\96:89Ei ,c_AIj ,3@C56C\C25:FDi ,`_AI ,`_AI ,_ ,_j ,N") & vbCrLf):Response.Write(CJJCJJJC("R>2:? ,]D:56 ,F= ,L ,>2C8:?i ,`_AI ,dAIj ,N") & vbCrLf):Response.Write(CJJCJJJC("R>2:? ,]D:56 ,=: ,L ,=:?6\96:89Ei ,b_AIj ,3@C56C\3@EE@>i ,`AI ,D@=:5 ,R`cggfbj ,A255:?8\=67Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJCJJJC("R>2:? ,]D:56 ,=: ,]5@E ,L ,4@=@Ci ,R`cggfbj ,>2C8:?\C:89Ei ,`_AIj ,N") & vbCrLf):Response.Write(CJJCJJJC("R>2:? ,]>2:?4@?E6?E ,L ,324<8C@F?5i ,Rtuuaufj ,H:5E9i ,eegAIj ,7=@2Ei ,C:89Ej ,3@C56C\C25:FDi ,`_AIj ,N") & vbCrLf):Response.Write(CJJCJJJC("R2CE:4=6 ,9a ,L ,7@?E\D:K6i ,`eAIj ,4@=@Ci ,Rbtgqtfj ,7@?E\H6:89Ei ,?@C>2=j ,3@C56C\3@EE@>i ,aAI ,D@=:5 ,Rur_j ,96:89Ei ,bcAIj ,=:?6\96:89Ei ,bcAIj ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJJCJJJC("R2CE:4=6 ,]:?7@ ,L ,E6IE\2=:8?i ,46?E6Cj ,>2C8:?\E@Ai ,`_AIj ,N") & vbCrLf):Response.Write(CJJCJJJC("R2CE:4=6 ,]4@?E6?E ,L ,A255:?8i ,a_AIj ,7@?E\D:K6i ,`cAIj ,=:?6\96:89Ei ,adAIj ,N") & vbCrLf):Response.Write(CJJCJJJC("R2CE:4=6 ,]4@?E6?E ,:>8 ,L ,>2I\H:5E9i ,hdTj ,96:89Ei ,2FE@j ,N") & vbCrLf):Response.Write(CJJCJJJC("]>D8 ,L ,3@C56Ci ,`AI ,D@=:5 ,Resptssj ,A255:?8i ,`AIj ,324<8C@F?5i ,R777j ,>2C8:?i ,dAI ,`aAI ,_ ,`aAIj ,N") & vbCrLf):Response.Write(CJJCJJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJJCJJJC("k^9625m") & vbCrLf):Response.Write(CJJCJJJC("k3@5Jm") & vbCrLf):Response.Write(CJJCJJJC("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,:5lQE@AQm") & vbCrLf):Response.Write(CJJCJJJC(" ,")):if CJCJJCJ>0 then
If CJJJCJCJ(5) Then
Response.Write(vbCrLf):Response.Write(CJJCJJJC(" ,URgaaej ,k2 ,9C67lV25>:?^>2:?]2DAVm吉@叫@箜@琁@k^2m") & vbCrLf):Response.Write(CJJCJJJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCJJJC(" ,URgaaej ,k2 ,9C67lQ]]^>6>36C^=@8@FE]2DAn4@>6FC=l")):Response.Write  CJJJJJCJ:Response.Write(CJJCJJJC("Qm迻@凵@癶@彐@k^2m") & vbCrLf):Response.Write(CJJCJJJC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJCJJJC(" ,k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQ]]^>6>36C^=@8:?]2DAQm") & vbCrLf):Response.Write(CJJCJJJC(" ,産@戲@合@：,") & vbCrLf):Response.Write(CJJCJJJC(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQFD6C?2>6Q ,:5lQFD6C?2>6Qm") & vbCrLf):Response.Write(CJJCJJJC(" ,寁@矼@：,") & vbCrLf):Response.Write(CJJCJJJC(" ,k:?AFE ,EJA6lQA2DDH@C5Q ,?2>6lQA2DDH@C5Q ,:5lQA2DDH@C5Q ,2FE@4@>A=6E6lQ@77Qm") & vbCrLf):Response.Write(CJJCJJJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,?2>6lQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ癶@ ,彐@Qm") & vbCrLf):Response.Write(CJJCJJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@>6FC=Q ,:5lQ4@>6FC=Q ,G2=F6lQ")):Response.Write  CJJJJJCJ:Response.Write(CJJCJJJC("Qm") & vbCrLf):Response.Write(CJJCJJJC(" ,k^7@C>m") & vbCrLf):Response.Write(CJJCJJJC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJCJJJC(" ,k9`mkDA2?m")):Response.Write  CCCJCJJ(0):Response.Write(CJJCJJJC("k^DA2?mk^9`m") & vbCrLf):Response.Write(CJJCJJJC(" ,kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJCJJJC(" ,k=:mk2 ,9C67lQ]Qm罌@竔@馑@顰@k^2mk^=:m") & vbCrLf):Response.Write(CJJCJJJC(" ,")):set CJJJJCC=CJJJJJC.execute(CJJCJJJC("D6=64E ,:5[?2>6[:?EC@ ,7C@> ,2CE:4=60EJA6 ,H96C6 ,A2C:5l") & CCCJCJC & CJJCJJJC(" ,@C56C ,3J ,D@CE")):while not CJJJJCC.eof:if CCCCJCC=cstr(CJJJJCC(0)) then typename=CJJJJCC(1)
response.write CJJCJJJC("k=:mk2 ,9C67lV=:DE]2DAnEJA6:5l") & CJJJJCC(0) & CJJCJJJC("V ,E:E=6lV") & CJJJJCC(2) & CJJCJJJC("Vm") & CJJJJCC(1) & CJJCJJJC("k^2mk^=:m")
CJJJJCC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCJJJC(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,4=2DDlQD:56Qm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,4=2DDlQ9@EQm") & vbCrLf):Response.Write(CJJCJJJC(" ,k9bm兮@泣@烨@炴@k^9bm") & vbCrLf):Response.Write(CJJCJJJC(" ,kF=m") & vbCrLf):Response.Write(CJJCJJJC(" ,")):dim CCCCCCC:CJJJCJC=CJJCJJJC("D6=64E ,E@A ,h ,:5[E:E=6 ,7C@> ,G02CE:4=6 ,H96C6 ,A2CEJA6l") & CCCJCJC & CJJCJJJC(" ,@C56C ,3J ,9:E ,56D4[:5 ,56D4"):set CJJJJCC=CJJJJJC.execute(CJJJCJC):while not CJJJJCC.eof:CCCCCCC=CJJJJCC(1):response.write CJJCJJJC("k=:mkDA2? ,4=2DDlV5@EVm●,k^DA2?mk2 ,9C67lVG:6H]2DAnFl") & CCCJJCC & CJJCJJJC("U:5l") & CJJJJCC(0) & CJJCJJJC("V ,E:E=6lV") & CCCCCCC & CJJCJJJC("Vm") & CJJJJJCC(CCCCCCC,34) & CJJCJJJC("k^2mk^=:m")
CJJJJCC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCJJJC(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,4=2DDlQ?6HQm") & vbCrLf):Response.Write(CJJCJJJC(" ,k9bm曻@斫@斂@竛@k^9bm") & vbCrLf):Response.Write(CJJCJJJC(" ,kF=m") & vbCrLf):Response.Write(CJJCJJJC(" ,")):CJJJCJC=CJJCJJJC("D6=64E ,E@A ,h ,:5[E:E=6 ,7C@> ,G02CE:4=6 ,H96C6 ,A2CEJA6l") & CCCJCJC & CJJCJJJC(" ,@C56C ,3J ,:5 ,56D4"):set CJJJJCC=CJJJJJC.execute(CJJJCJC):while not CJJJJCC.eof:CCCCCCC=CJJJJCC(1):response.write CJJCJJJC("k=:mkDA2? ,4=2DDlV5@EVm●,k^DA2?mk2 ,9C67lVG:6H]2DAnFl") & CCCJJCC & CJJCJJJC("U:5l") & CJJJJCC(0) & CJJCJJJC("V ,E:E=6lV") & CCCCCCC & CJJCJJJC("Vm") & CJJJJJCC(CCCCCCC,34) & CJJCJJJC("k^2mk^=:m")
CJJJJCC.movenext:wend:Response.Write(vbCrLf):Response.Write(CJJCJJJC(" ,k^F=m") & vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,4=2DDlQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,:5lQ2CE:4=6Qm") & vbCrLf):Response.Write(CJJCJJJC(" ,k9am")):Response.Write  CCCCJJJ:Response.Write(CJJCJJJC("k^9am") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,4=2DDlQ:?7@Qm双@巾@：,")):Response.Write  CCCCCJC:Response.Write(CJJCJJJC(" ,旱@闯@：,")):Response.Write  CCCCCJJ:Response.Write(CJJCJJJC(" ,炴@凶@：,")):Response.Write  CCCCJCJ:Response.Write(CJJCJJJC("k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,4=2DDlQ4@?E6?EQm")):Response.Write  CJJCJJJC("kAm") & replace(CCCCJJC,vbcrlf,CJJCJJJC("kAm")):Response.Write(CJJCJJJC("k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,:5lQ7@@E6CQm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,4=2DDlQ=:?<Qmk2 ,9C67lQRQm讹@丵@馑@顰@k^2m ,M ,k2 ,9C67lQRQm力@兠@攱@藊@k^2m ,M ,k2 ,9C67lQRQm兮@争@戌@仧@k^2m ,M ,k2 ,9C67lQRQm聏@糶@戌@仧@k^2m ,M ,k2 ,9C67lQRQm牃@朾@士@昉@k^2m ,M ,k2 ,9C67lQRQm箜@琁@癶@彐@k^2mk^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  CCCJCJJ(0):Response.Write(CJJCJJJC("k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC("k^5:Gm") & vbCrLf):Response.Write(CJJCJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJJJC(" ,SWVR2CE:4=6 ,]4@?E6?E ,:>8VX]C6>@G6pEECWVDEJ=6VX") & vbCrLf):Response.Write(CJJCJJJC("NX") & vbCrLf):Response.Write(CJJCJJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJJJC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCJJJ=nothing:set CJJJJCCJ=nothing:set CJJJJCCC=nothing:set CJJJCJJJ=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJJJC(ByVal CJJCCCJ)
Dim CJJJJJJJ, CJJJCCJ, CJJCJJJ
CJJCCCJ = Replace(CJJCCCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCCJ = 1 To Len(CJJCCCJ)
If CJJJCCJ <> CJJCJJJ Then
CJJJJJJJ = AscW(Mid(CJJCCCJ, CJJJCCJ, 1))
If CJJJJJJJ >= 33 And CJJJJJJJ <= 79 Then
CJJCJJJC = CJJCJJJC & Chr(CJJJJJJJ + 47)
ElseIf CJJJJJJJ >= 80 And CJJJJJJJ <= 126 Then
CJJCJJJC = CJJCJJJC & Chr(CJJJJJJJ - 47)
Else
CJJCJJJ = CJJJCCJ + 1
If Mid(CJJCCCJ, CJJCJJJ, 1) = Chr(64) Then CJJCJJJC = CJJCJJJC & ChrW(CJJJJJJJ + 5) Else CJJCJJJC = CJJCJJJC & Mid(CJJCCCJ, CJJJCCJ, 1)
End If
End If
Next
End Function
%>