<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCCC, CCJJJJ,CCJJJC, CCJJCJ, CCJJCC:Set CJCCCC = server.CreateObject(CJJJJJJJ("ps~sq]r@??64E:@?")):CJCCCC.open Application(CJJJJJJJ("r@??64E:@?$EC:?8")):Set CCJJJJ=CJCCCC::Dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ:Dim CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ:Dim CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ:CJJJCCJ=Trim(Request.Cookies(CJJJJJJJ("!$*|t|qt#"))):if CJJJCCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJJ>0 then
CCJJCC=CJJJJJJJ("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") & CCJCJC & CJJJJJJJ("V ,2?5 ,:5l") & CCJCJJ
set CCJJJC=CJCCCC.execute(CCJJCC):If CCJJJC.EOF Then
Call ClearMemberCookie
Else
CCJCCJ=CCJJJC(2) & "":CCJCCC=CCJJJC(3):CCCJJJ=CCJJJC(5):CCCJJC=CCJJJC(6):CCCJCJ=CCJJJC(9):CCCJCC=CCJJJC(15):CCCCJC=CCJJJC(0):CJJJCJJ=CCJJJC(1):CJJJJCC=CCJJJC(11) & "":CCCCCJ=CCJJJC(10) & "":CCCCJJ=CCJJJC(12):CCCCCC=CCJJJC(14):CJJJJJJ=CCJJJC(13):CJJJJJC=CCJJJC(7) & "":CJJJJCJ=CCJJJC(4):CJJJCJC=CCJJJC(8):if isnull(CCCJCC) then CCCJCC=0
if isnull(CCCJCJ) or CCCJCJ=0 then CCCJCJ=CCJCCC
if isnull(CJJJJCJ) then CJJJJCJ=0
if isnull(CCCJJJ) then CCCJJJ=0
if instr(CJJJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCJC)>0 then Call RedirectMessage(CJJJJJJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCJJ,CCJCJC)
End IF
end if:::Sub CheckLogined():if CCJCJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJCCC:CJJJCCC=trim(request.QueryString(CJJJJJJJ("D49@@="))):if isnumeric(CJJJCCC) then
response.Redirect CJJJJJJJ("^>^G2?E^R^D49@@=^") & CJJJCCC & CJJJJJJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJJJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJJJJ("!$*|t|qt#"))="":CCJCJJ=0:CCCJJC=0:CCJCJC=Empty:CCCJJJ=0:CCCJCC=0:CCCJCJ=0:CCJCCC=0:CCCCJC=False:CJJJCJJ=False:CJJJCJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ:CJJCJJJ=split(CJJJCCJ,CJJJJJJJ("]")):if ubound(CJJCJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJJ(0)) or len(CJJCJJJ(1))<>32 or len(CJJCJJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCJJC=CJJCJJJ(1):for CJJCJCJ=1 to len(CJJCJJC):CJJCJCC=mid(CJJCJJC,CJJCJCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCJJC=CJJCJJJ(2):if CJJCCJJ<>mid(CJJCJJC,6,7) then
Call ClearMemberCookie
else
CJJCJCC=mid(CJJCJJC,18,10)/2:if CJJCJCC<DateDiff(CJJJJJJJ("D"), CJJJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJJ=Clng(CJJCJJJ(0)):CCJCJC=CJJCJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJCJ,CJJJJJJC):dim CJJCJCJ,CJJCJCC,CJJCCJJ:for CJJCJCJ=1 to len(CJJJJJJC):CJJCJCC=mid(CJJJJJJC,CJJCJCJ,1):if isnumeric(CJJCJCC) then CJJCCJJ=CJJCCJJ & CJJCJCC
if len(CJJCCJJ)=7 then exit for
next:CJJCCJJ=CCJCJCJ & CJJJJJJJ("]") & CJJJJJJC & CJJJJJJJ("]") & Fix(10000*(Rnd+1)) & CJJCCJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJJ("D"), CJJJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJJ("!$*|t|qt#"))=CJJCCJJ:End Sub::Function CCJCCCJ(CJJJJJCJ):Dim str,CJJCCCJ:str = Trim(CJJJJJCJ):If IsNull(str) Or str = "" Then
CCJCCCJ = ""
else
str=Replace(str, CJJJJJJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJJJJ("k:7C2>6"), CJJJJJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJJJJ("kD4C:AE"), CJJJJJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCCCJ=new RegExp:CJJCCCJ.Pattern=CJJJJJJJ("@?W,2\K.ZXl"):CJJCCCJ.IgnoreCase = True:CJJCCCJ.Global=True:str=CJJCCCJ.Replace(str,CJJJJJJJ("@?S`U6BF2=Dj")):set CJJCCCJ=nothing:CCJCCCJ=str
End If:End Function:Function IIf(CJJJJJCC, CJJJJCJJ, CJJJJCJC):if isnull(CJJJJJCC) or isempty(CJJJJJCC) then
IIf = CJJJJCJC
elseif CJJJJJCC Then
IIf = CJJJJCJJ
Else
IIf = CJJJJCJC
end if:End Function:Const CCJCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CCCJJJJ(str):if isnull(str) or str="" then
CCCJJJJ=False:exit function
end if:Dim CJJCCCJ:Set CJJCCCJ = New RegExp:CJJCCCJ.Pattern = CJJJJJJJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJJCCCJ.IgnoreCase = True:CCCJJJJ = CJJCCCJ.test(str):set CJJCCCJ=nothing:End Function::Sub Debug(str):response.Charset=CJJJJJJJ("FE7\g"):dim CJJCJCJ,CJJCJCC,CJJCCCC:if isarray(str) then
on error resume next:CJJCJCJ=ubound(str,2):CJJCCCC=err.number:err.clear:on error goto 0:if CJJCCCC<>0 then
for CJJCJCJ=0 to ubound(str):if CJJCJCJ>0 then response.Write CJJJJJJJ("k3C ,^m")
response.Write CJJCJCJ & CJJJJJJJ("i ,") & str(CJJCJCJ):next
else
response.Write CJJJJJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJCJ=0 to ubound(str,2):response.Write CJJJJJJJ("kE9 ,2=:8?lV=67EVm") & CJJCJCJ & CJJJJJJJ("k^E9m")
next:response.Write CJJJJJJJ("k^ECm"):for CJJCJCJ=0 to ubound(str):response.Write CJJJJJJJ("kECmkE9m") & CJJCJCJ & CJJJJJJJ("k^E9m"):for CJJCJCC=0 to ubound(str,2):response.Write CJJJJJJJ("kE5m") & str(CJJCJCJ,CJJCJCC) & CJJJJJJJ("k^E5m"):next:response.Write CJJJJJJJ("k^ECm"):next:response.Write CJJJJJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJJJJJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJJJJJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJJJJCCJ,CJJJJCCC):dim CJJCJJJ:CJJCJJJ=CJJJJCCJ & CJJJJJJJ("l") & CJJJJCCC & CJJJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJJ("$6E\r@@<:6"),CJJCJJJ):End Sub:::Function CCCJJJC(ByVal Str, ByVal StrLen):Dim CJCJJJJ, CJCJJJC, CJCJJCJ, CJJCJCJ:if isnull(str) then
CCCJJJC=""
else
CJCJJJJ = Len(Str):CJCJJJC = 0:For CJJCJCJ = 1 To CJCJJJJ:CJCJJCJ = AscW(Mid(Str, CJJCJCJ, 1)):If CJCJJCJ < 0 Or CJCJJCJ > 255 Then CJCJJJC = CJCJJJC + 2 Else CJCJJJC = CJCJJJC + 1
If CJCJJJC >= StrLen Then
CCCJJJC = Left(Str, CJJCJCJ) & CJJJJJJJ("]]]"):Exit For
Else
CCCJJJC = Str
End If:Next
end if:End Function::::Function CCCJJCJ(CJJCCCC):if isnull(CJJCCCC) or trim(CJJCCCC)="" or not isnumeric(CJJCCCC) then
CCCJJCJ=false
else
Dim CJJCCCJ:Set CJJCCCJ = New RegExp:CJJCCCJ.Pattern = CJJJJJJJ("/-5ZS"):CJJCCCJ.IgnoreCase = True:CCCJJCJ = CJJCCCJ.test(CJJCCCC):set CJJCCCJ=nothing
end if:End Function:Function CCCJJCC(CJJJCJJJ):dim CJCJJCC,CJCJCJJ:CJCJJCC=CJJJJJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJJJCJJJ & CJJJJJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCJJ=CJCCCC.execute(CJCJJCC):CCCJJCC = CJCJCJJ(0):if isnull(CCCJJCC) then CCCJJCC=1
CJCJCJJ.close : set CJCJCJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJCCJJJ=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:CJCJCJJ.close : set CJCJCJJ=nothing:CCJJCJ.Close : Set CCJJCJ=Nothing:CCJJJC.Close : Set CCJJJC=Nothing:CCCJCCC.Close : Set CCCJCCC = Nothing:CJCCCC.Close : Set CJCCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJJ("!$*0|6DD286"),server.URLEncode(CJJJCJJC)):Response.Redirect CJJJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CCCCJJJ():Dim CJCJCJJ, CJCJCJC(), CJJCJCJ, CJJCJCC, CJCJCCJ,CJCJCCC:If Not IsArray(Application(CJJJJJJJ("!$*0%6DED"))) Then
CCJJCC=CJJJJJJJ("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJCJCJJ=server.createobject(CJJJJJJJ("25@53]C64@C5D6E")):CJCJCJJ.open CCJJCC,CJCCCC,1:CJCJCCJ = CJCJCJJ.RecordCount:CJCJCCC=CJCJCJJ.fields.count-1:ReDim CJCJCJC(CJCJCCJ, CJCJCCC):If CJCJCCJ > 0 Then
For CJJCJCJ = 1 To CJCJCCJ:For CJJCJCC = 0 To CJCJCCC:if CJJCJCC=4 or CJJCJCC=6 or CJJCJCC=19 then
CJCJCJC(CJJCJCJ, CJJCJCC) = CCCCJJC(CJCJCJJ(CJJCJCC))
else
CJCJCJC(CJJCJCJ, CJJCJCC) = CJCJCJJ(CJJCJCC):if CJCJCJJ(CJJCJCC).type<>11 and isnull(CJCJCJC(CJJCJCJ, CJJCJCC)) then CJCJCJC(CJJCJCJ, CJJCJCC)=""
end if:Next:CJCJCJJ.MoveNext:Next
End If:CJCJCJJ.Close: Set CJCJCJJ = Nothing:Application(CJJJJJJJ("!$*0%6DED")) = CJCJCJC
End If:CCCCJJJ = Application(CJJJJJJJ("!$*0%6DED")):End Function::::::::::::::::::::::::::::::Function CCCCJJC(CJJJCJCJ):if isnull(CJJJCJCJ) then
CCCCJJC=""
else
On Error Resume Next:CCCCJJC=CJJJCJCJ:if err.number=-2147352567 then
CCCCJJC="":err.Clear
end if
end if:End Function::::Sub ClearCache(CJJJCJCC):Application.Contents.Remove CJJJCJCC
End Sub::Class jTree:Private CCJJCC, CJCCJJJ, CJCCJJC, CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJCCCCJ:Private Sub Class_Initialize():CJCCJJC = 0:CJCCJCJ = 0:CJCCCCJ=10:End Sub:Public Property Let CCCCJCJ(CJJJCCJJ):if CJJJCCJJ="" then Call RedirectMessage(CJJJJJJJ("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJCCJCC=CJJJCCJJ:CJCCCJJ=CJJJJJJJ("!$*0") & UCase(CJCCJCC):Call GetTreeArray:End Property:Public Property Get CCCCJCJ():CCCCJCJ=CJCCJCC:End Property::Public Property Get Count():Count=CJCCJCJ-CJCCCCJ:End Property:Private Sub GetTreeArray():Dim CJJCJCJ, CJJCJCC, CJCCCCC,RecordCount:CJCCJJJ = Application(CJCCCJJ):If Not IsArray(CJCCJJJ) Then
CCJJCC = CJJJJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJCCJCC:if CJCCCJC<>"" then CCJJCC=CCJJCC & CJJJJJJJ(" ,H96C6 ,") & CJCCCJC
set CJCCCCC=CJCCCC.execute(CCJJCC):RecordCount=CJCCCCC(0):if RecordCount=0 then Call RedirectMessage(CJJJJJJJ("柠@话@W") & CJCCJCC & CJJJJJJJ("^") & CJCCCJC & CJJJJJJJ("X沜@朄@绎@林@敫@捩@"))
CJCCJCJ=RecordCount+CJCCCCJ:ReDim CJCCJJJ(CJCCJCJ, 4):CCJJCC = CJJJJJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJJJJJJJ(" ,H:E9 ,W?@=@4<X"):if CJCCCJC<>"" then CCJJCC=CCJJCC & CJJJJJJJ(" ,H96C6 ,") & CJCCCJC
CCJJCC=CCJJCC & CJJJJJJJ(" ,@C56C ,3J ,D@CE[:5"):set CJCCCCC=CJCCCC.execute(CCJJCC):For CJJCJCJ = 1 To RecordCount:For CJJCJCC = 0 To 4:CJCCJJJ(CJJCJCJ, CJJCJCC) = CJCCCCC(CJJCJCC):if IsNull(CJCCJJJ(CJJCJCJ,4)) then CJCCJJJ(CJJCJCJ,4)=0
If CJCCJJJ(CJJCJCJ,2)="" then CJCCJJJ(CJJCJCJ,2)=CJJJJJJJ(",穵@.")
Next:CJCCCCC.MoveNext:Next:CJCCCCC.Close: Set CJCCCCC = Nothing:for CJJCJCJ=CJCCJCJ-(CJCCCCJ-1) to CJCCJCJ:CJCCJJJ(CJJCJCJ,0)=CJJCJCJ:next:Application.Lock():Application(CJCCCJJ) = CJCCJJJ:Application.UnLock()
else
CJCCJCJ=Ubound(CJCCJJJ)
End If:End Sub:::::Private Function CCCCCJJ(CCJCJCJ):dim CJJCJCJ,CCJJJJC:CCCCCJJ=0:CCJJJJC=CStr(CCJCJCJ):if CCJJJJC<>"0" then
for CJJCJCJ=1 to CJCCJCJ:If CStr(CJCCJJJ(CJJCJCJ, 0))=CCJJJJC Then
CCCCCJJ = CJJCJCJ:Exit For
End If:Next
end if:End Function::::Public Function CCCCCJC(CCJCJCJ):Dim CJJCJCJ,CCJJJCJ:CJJCJCJ=CCCCCJJ(CCJCJCJ):if CJJCJCJ=0 then
CCJJJCJ=CCCCCCJ(CCJCJCJ)
else
CCJJJCJ=CJCCJJJ(CJJCJCJ,3):if isnull(CCJJJCJ) or CCJJJCJ="" then
CCJJJCJ=CCCCCCJ(CCJCJCJ)
elseif Mid(CCJJJCJ,instrrev(CCJJJCJ,CJJJJJJJ("["))+1)<>CStr(CCJCJCJ) then
CCJJJCJ=CCCCCCJ(CCJCJCJ)
elseif Left(CCJJJCJ,1)=CJJJJJJJ("[") then
CCJJJCJ=CCCCCCJ(CCJCJCJ)
end if
end if:CCCCCJC=CCJJJCJ:End Function:Private Function CCCCCCJ(CCJCJCJ):dim CCJJJJC:CCJJJJC=CStr(CCJCJCJ):if CCJJJJC="0" then
CCCCCCJ=""
else
dim CJCCCCC:set CJCCCCC=CJCCCC.execute(CJJJJJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJCCJCC & CJJJJJJJ(" ,H96C6 ,:5l") & CCJCJCJ):if CJCCCCC.eof then
Call UpdateCache(CCJCJCJ,"","","",""):Call RedirectMessage(CJJJJJJJ("顴@盩@（,xs：,") & CCJCJCJ & CJJJJJJJ("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJCCCCC(0)=0 then
CCCCCCJ="0," & CCJCJCJ
else
CCCCCCJ=CCCCCJC(CJCCCCC(0)) & CJJJJJJJ("[") & CCJCJCJ
end if:if CJCCCCC(2)<>CCCCCCJ then
CJCCCC.execute CJJJJJJJ("FA52E6 ,") & CJCCJCC & CJJJJJJJ(" ,D6E ,A2E9lV") & CCCCCCJ & CJJJJJJJ("V ,H96C6 ,:5l") & CCJCJCJ
else
CCCCCCJ=CJCCCCC(2)
end if
end if:Call UpdateCache(CCJCJCJ,CJCCCCC(0),CJCCCCC(1),CCCCCCJ,CJCCCCC(3)):CJCCCCC.Close: Set CJCCCCC = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CJCCCJJ
End Sub:Public Sub UpdateCache(CCJCJCJ,CJJJCCJC,CJJJCCCJ,CCJJJCJ,CJJJCCCC):dim CJJCJCJ,CJJCJCC:CCJCJCJ=CLng(CCJCJCJ):CJJCJCJ=CCCCCJJ(CCJCJCJ):if CJJJCCJC="" and CJJJCCCJ="" and CCJJJCJ="" and CJJJCCCC="" then
if CJJCJCJ>0 then
for CJJCJCC=1 to 4:CJCCJJJ(CJJCJCJ,CJJCJCC)=Null:next
end if
else
if CJJCJCJ=0 then
for CJJCJCC=1 to CJCCJCJ:if CJCCJJJ(CJJCJCC,1) & ""="" then
CJJCJCJ=CJJCJCC:exit for
end if:next
end if:if CJJCJCJ=0 then
Call ClearCache
else
CJCCJJJ(CJJCJCJ,0)=CLng(CCJCJCJ):if CJJJCCJC<>"" then CJCCJJJ(CJJCJCJ,1)=CLng(CJJJCCJC)
if CJJJCCCJ<>"" then CJCCJJJ(CJJCJCJ,2)=CJJJCCCJ
if CCJJJCJ<>"" then CJCCJJJ(CJJCJCJ,3)=CCJJJCJ
if CJJJCCCC<>"" then CJCCJJJ(CJJCJCJ,4)=CLng(CJJJCCCC)
end if
end if:if CJJCJCJ>0 then
Application.Lock():Application(CJCCCJJ) = CJCCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CJJJCJJC):Call ConnClose:Response.Write CJJJCJJC:Response.End:End Sub:Private Function CCCJJCC():CCCJJCC=CCCCCCC+1:End Function:Private Function CCCCCCC():dim CJCJCJJ:set CJCJCJJ=CJCCCC.execute(CJJJJJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJCCJCC & CJJJJJJJ(" ,@C56C ,3J ,:5 ,56D4")):CCCCCCC=CJCJCJJ(0):CJCJCJJ.Close: Set CJCJCJJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJJCCC:CCJJCC=Request.ServerVariables(CJJJJJJJ("!p%w0x}u~")):if instr(CCJJCC,CJJJJJJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCCCJC and not CJJJCJJ then Call RedirectMessage(CJJJJJJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJJCCC=CCCJCJ
elseif instr(CCJJCC,CJJJJJJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CCJJCC,CJJJJJJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJJCCC=CCCJCJ
elseif instr(CCJJCC,CJJJJJJJ("^D49@@="))>0 then
CJJJCCC=Request.QueryString(CJJJJJJJ("D49@@=")):if not CCCJJCJ(CJJJCCC) then CJJJCCC=Request.QueryString(CJJJJJJJ("F"))
if not CCCJJCJ(CJJJCCC) then CJJJCCC=Request.QueryString(CJJJJJJJ("D4"))
if not CCCJJCJ(CJJJCCC) then Call RedirectMessage(CJJJJJJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJJCCC=csng(CJJJCCC)
end if:if CJJJCCC=0 then Call RedirectMessage(CJJJJJJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CCJJJCC:Call SetConfig:Sub SetConfig():dim CCJJCJJ,CJCJCJJ:CCJJCC=CJJJJJJJ("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") & CJJJCCC:set CJCJCJJ=CJCCCC.execute(CCJJCC):if CJCJCJJ.eof then Call RedirectMessage(CJJJJJJJ("患@W") & CCJCJJ & CJJJJJJJ("X戻@圣@癿@卐@佈@W") & CJJJCCC & CJJJJJJJ("X朥@批@别@。,"))
ReDim CCJJCJJ(61):CCJJCJJ(0)=CJCJCJJ(CJJJJJJJ(";:2@H6:")) & "":CCJJCJJ(1)=CJCJCJJ(CJJJJJJJ("EJA6")):CCJJCJJ(2)=CJCJCJJ(CJJJJJJJ("D>D")):CCJJCJJ(3)=CJCJCJJ(CJJJJJJJ("4FDE@>8C@FA")) & "":CCJJCJJ(4)=CJCJCJJ(CJJJJJJJ("D:5632C0@E96C")) & "":CCJJCJJ(5)=IIf(isnull(CJCJCJJ(CJJJJJJJ("E6DEC6DF=EG:6H"))),0,CJCJCJJ(CJJJJJJJ("E6DEC6DF=EG:6H"))):CCJJCJJ(6)=CJCJCJJ(CJJJJJJJ("K:IF?E:>6")):CCJJCJJ(7)=CJCJCJJ(CJJJJJJJ("766")):CCJJCJJ(8)=CJCJCJJ(CJJJJJJJ("C6E6DE52J")):CCJJCJJ(9)=CJCJCJJ(CJJJJJJJ("6IA:C652E6")):CCJJCJJ(10)=CJCJCJJ(CJJJJJJJ("E:E=6")):CCJJCJJ(11)=CJCJCJJ(CJJJJJJJ(":?EC@")) & "":CCJJCJJ(12)=CJCJCJJ(CJJJJJJJ("A:4EFC6")) & "":CCJJCJJ(13)=CJCJCJJ(CJJJJJJJ("72>:=J")):CCJJCJJ(14)=CJCJCJJ(CJJJJJJJ("4@AJC:89E")) & "":CCJJCJJ(15)=IIf(isnull(CJCJCJJ(CJJJJJJJ("D6>6DE6C0DE2CE052E6"))),CJJJJJJJ("`h__\`\`"),CJCJCJJ(CJJJJJJJ("D6>6DE6C0DE2CE052E6"))):CCJJCJJ(16)=IIf(isnull(CJCJCJJ(CJJJJJJJ("K:IF?0E:>6D09:89=:89E"))),0,CJCJCJJ(CJJJJJJJ("K:IF?0E:>6D09:89=:89E"))):CCJJCJJ(17)=CJCJCJJ(CJJJJJJJ("4@?E24E")) & "":CCJJCJJ(18)=CJCJCJJ(CJJJJJJJ("D2?5E23=6")):CCJJCJJ(19)=CJCJCJJ(CJJJJJJJ("4C:D:D")):CCJJCJJ(20)=CJCJCJJ(CJJJJJJJ("JJ52E6")):CCJJCJJ(21)=CJCJCJJ(CJJJJJJJ("BB")):CCJJCJJ(22)=CJCJCJJ(CJJJJJJJ("JFJF60D>D0EA=")) & "":CCJJCJJ(23)=CJCJCJJ(CJJJJJJJ("JFJF60E6DE0=3")) & "":CCJJCJJ(25)=CJCJCJJ(CJJJJJJJ("6IA6CE")):CCJJCJJ(26)=CJCJCJJ(CJJJJJJJ(">@5:?7@")):CCJJCJJ(27)=CJCJCJJ(CJJJJJJJ("9@>6A286E@AA:4EFC6")) & "":CCJJCJJ(28)=CJCJCJJ(CJJJJJJJ("4C:D:D=3")):CCJJCJJ(29)=IIf(CJCJCJJ(CJJJJJJJ("4C:D:D@=5")),False,True):CCJJCJJ(30)=CJCJCJJ(CJJJJJJJ("8C@FA8F:52?46")):CCJJCJJ(31)=CJCJCJJ(CJJJJJJJ("3:@7665324<")):CCJJCJJ(32)=CJCJCJJ(CJJJJJJJ("<6JDEC")):CCJJCJJ(33)=CJCJCJJ(CJJJJJJJ("=@8@")) & "":CCJJCJJ(34)=CJCJCJJ(CJJJJJJJ("K:46")):CCJJCJJ(35)=IIf(CJCJCJJ(CJJJJJJJ(":D?6H")),True,False):CCJJCJJ(36)=121:CCJJCJJ(37)=111:CCJJCJJ(38)=160:CCJJCJJ(39)=CJCJCJJ(CJJJJJJJ("8F6DE3@@<")):CCJJCJJ(40)=CJCJCJJ(CJJJJJJJ("75D")):CCJJCJJ(42)=CJCJCJJ(CJJJJJJJ("9@>6=@8:?")):CCJJCJJ(43)=CJCJCJJ(CJJJJJJJ("K:IF?0?6657665324<")):CCJJCJJ(44)=CJCJCJJ(CJJJJJJJ("K:IF?0E:>6D0=:>:E")):CCJJCJJ(45)=CJCJCJJ(CJJJJJJJ("4@>A=6E60:?7@")):CCJJCJJ(46)=CJCJCJJ(CJJJJJJJ("E6DE:?EC@")) & "":CCJJCJJ(47)=IIf(isnull(CJCJCJJ(CJJJJJJJ("JFJF60367@C60E:>6"))),0,CJCJCJJ(CJJJJJJJ("JFJF60367@C60E:>6"))):CCJJCJJ(49)=CJCJCJJ(CJJJJJJJ("D>D0C646:G6C")):CCJJCJJ(50)=CJCJCJJ(CJJJJJJJ("D>D0D:8?")) & "":CCJJCJJ(52)=CJCJCJJ(CJJJJJJJ("JFJF602CC2?86")):CCJJCJJ(53)=IIf(isnull(CJCJCJJ(CJJJJJJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJCJCJJ(CJJJJJJJ("DEF56?E0BF6DE:@?04@F?E"))):CCJJCJJ(54)=CJCJCJJ(CJJJJJJJ("9:560=30@FE@7286")):CCJJCJJ(55)=CJCJCJJ(CJJJJJJJ("JFJF60E6DE052JD")):CCJJCJJ(56)=CJCJCJJ(CJJJJJJJ("JFJF60H66<0=:>:E")):CCJJCJJ(57)=CJCJCJJ(CJJJJJJJ("JFJF604964<65")):CCJJCJJ(58)=CJCJCJJ(CJJJJJJJ("K:IF?0?6657665324<0?6IE")):CCJJCJJ(59)=CJCJCJJ(CJJJJJJJ("4964<?6HDEF56?E")):CCJJCJJ(60)=CJCJCJJ(CJJJJJJJ("K:IF?04=@D6052E6")):CJCJCJJ.close : set CJCJCJJ=nothing:if isNull(CCJJCJJ(8)) or CCJJCJJ(8)="" then CCJJCJJ(8)=0
if isdate(CCJJCJJ(9)) then
CCJJCJJ(9)=cdate(CCJJCJJ(9)):if CCJJCJJ(9)<Date then Call RedirectMessage(CJJJJJJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CCJJCJJ(9) & CJJJJJJJ("X巭@迂@。,"))
end if:if not CCCJJCJ(CCJJCJJ(20)) then CCJJCJJ(20)=7
select case CCJJCJJ(1):case 1,2,16:CCJJCJJ(36)=159:case 4,5,6,10,11:CCJJCJJ(36)=190:CCJJCJJ(37)=178:CCJJCJJ(38)=191:case 7,13:CCJJCJJ(36)=164:CCJJCJJ(37)=178:CCJJCJJ(38)=179:end select:CCJJJCC=CCJJCJJ:End Sub:Function CCCJCCJ(CJJCJJJJ):dim CCJJCJJ(7,1),CJJCJCJ,CCJJCJC,CCJJCCJ:CCJJCJC=Array(CJJJJJJJ("$49@@="),CJJJJJJJ("$EF56?E"),CJJJJJJJ("s6AE"),CJJJJJJJ("vC256"),CJJJJJJJ("r=2DD>2E6"),CJJJJJJJ("}F>36C"),CJJJJJJJ("%62496C"),CJJJJJJJ("!2C6?E")):select case CCJJJCC(1):case 1,2 : CCJJCCJ=Array(CJJJJJJJ("孡@栜@"),CJJJJJJJ("孡@甚@"),CJJJJJJJ("珨@红@"),CJJJJJJJ("幯@红@"),CJJJJJJJ("吇@孡@"),CJJJJJJJ("孡@史@"),CJJJJJJJ("敔@布@"),CJJJJJJJ("宱@镺@")):case 3,16 : CCJJCCJ=Array(CJJJJJJJ("孡@栜@"),CJJJJJJJ("孡@甚@"),CJJJJJJJ("陝@糶@"),CJJJJJJJ("幯@红@"),CJJJJJJJ("吇@孡@"),CJJJJJJJ("孡@史@"),CJJJJJJJ("敔@布@"),CJJJJJJJ("宱@镺@")):case 4 : CCJJCCJ=Array(CJJJJJJJ("匶@陝@"),CJJJJJJJ("杠@论@耀@"),CJJJJJJJ("卐@佈@"),CJJJJJJJ("幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("匶@甚@"),CJJJJJJJ("宱@屙@")):case 5 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("呓@巠@"),CJJJJJJJ("郣@闣@"),CJJJJJJJ("幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("呓@巠@"),CJJJJJJJ("宱@屙@")):case 6 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("杠@论@耀@"),CJJJJJJJ("线@刦@"),CJJJJJJJ("幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("宱@屙@")):case 7 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("宓@兰@"),CJJJJJJJ("郣@闣@"),CJJJJJJJ("幯@仸@"),CJJJJJJJ("戓@叆@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("宱@屙@")):case 8 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("杠@论@耀@"),CJJJJJJJ("卐@佈@"),CJJJJJJJ("兠@聇@幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("酈@偱@")):case 9 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("敔@布@"),CJJJJJJJ("卐@佈@"),CJJJJJJJ("幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("酈@偱@")):case 10 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("氌@譡@"),CJJJJJJJ("郣@闣@"),CJJJJJJJ("兠@譡@幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("宱@屙@")):case 11 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("內@劜@呓@"),CJJJJJJJ("郣@闣@"),CJJJJJJJ("幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("宱@屙@")):case 12 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("幭@譡@"),CJJJJJJJ("卐@佈@"),CJJJJJJJ("兠@譡@幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("宱@屙@")):case 13 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("孡@呓@"),CJJJJJJJ("卐@佈@"),CJJJJJJJ("幯@仸@"),CJJJJJJJ("戓@叆@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("敔@呓@"),CJJJJJJJ("宱@屙@")):case 14 : CCJJCCJ=Array(CJJJJJJJ("月@劜@炴@"),CJJJJJJJ("局@氌@"),CJJJJJJJ("线@刦@"),CJJJJJJJ("幯@仸@"),CJJJJJJJ("邶@采@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("宱@屙@")):case 15 : CCJJCCJ=Array(CJJJJJJJ("卐@佈@"),CJJJJJJJ("盌@独@氌@譡@"),CJJJJJJJ("卐@佈@"),CJJJJJJJ("兠@譡@幯@仸@"),CJJJJJJJ("吇@了@"),CJJJJJJJ("缑@史@"),CJJJJJJJ("咣@话@布@"),CJJJJJJJ("宱@屙@")):case else : CCJJCCJ=CCJJCJC
end select:for CJJCJCJ=0 to Ubound(CCJJCJJ):CCJJCJJ(CJJCJCJ,0)=CCJJCJC(CJJCJCJ):CCJJCJJ(CJJCJCJ,1)=CCJJCCJ(CJJCJCJ):next:for CJJCJCJ=0 to Ubound(CCJJCJJ):if CCJJCJJ(CJJCJCJ,0)=CJJCJJJJ then
CCCJCCJ=CCJJCJJ(CJJCJCJ,1):exit for
end if:next:End Function::if CCJJJCC(45) and (CJJJJJJ="" or CCCCJJ<6 or not CCCJJJJ(CJJJJJC)) then
Call RedirectMessage(CJJJJJJJ("诲@患@k2 ,9C67lV]]^DEF56?E^>J:?7@]2DAVm,塦@冔@.k^2m宇@敯@严@亵@贿@斔@吉@冈@迖@衇@徾@琁@浆@诐@。,"))
end if:dim CCJJCCC:CCJJCCC=CCJCCCJ(Request.QueryString(CJJJJJJJ("H@C5"))):Response.Write(vbCrLf):Response.Write(CJJJJJJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJJJJJJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJJJJJJJ("k9625m") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJJJJJJJ("kE:E=6m")):Response.Write  CCJJJCC(10):Response.Write(CJJJJJJJ("\臥@浆@k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJJ("k=:?< ,9C67lQ]]^4DD^C6D6E]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJJJJJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJJJJJJ("kDEJ=6m") & vbCrLf):Response.Write(CJJJJJJJ("5= ,L ,>2C8:?\E@Ai ,`_AIj ,3@C56Ci ,`AI ,D@=:5 ,R444j ,A255:?8i ,`_AIj ,324<8C@F?5i ,Ru`u`u` ,N") & vbCrLf):Response.Write(CJJJJJJJ("5E ,L ,7@?E\H6:89Ei ,3@=5j ,7@?E\D:K6i ,`cAIj ,3@C56C\3@EE@>i`AI ,5@EE65 ,Rhhhj ,A255:?8\3@EE@>idAIj ,>2C8:?\3@EE@>idAIj ,N") & vbCrLf):Response.Write(CJJJJJJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("k^9625m") & vbCrLf):Response.Write(CJJJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJJ("k5:G ,:5lQ4@?E2:?6CQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQ96256CQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k9`m")):Response.Write  CCJJJCC(10):Response.Write(CJJJJJJJ("k^9`m") & vbCrLf):Response.Write(CJJJJJJJ("kF= ,:5lQ?2GQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=: ,E:E=6lQxsi ,")):Response.Write  CCJCJJ:Response.Write(CJJJJJJJ("Qm欝@迉@患@，,")):Response.Write  CJJJJJJ:Response.Write(CJJJJJJJ("（,")):Response.Write  CCCJJC:Response.Write(CJJJJJJJ("）,k^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ:?56I]2DAQm馑@顰@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):set CCJJJC=CJCCCC.execute(CJJJJJJJ("D6=64E ,4@F?EW:5X ,7C@> ,>6DD286 ,H96C6 ,:D?6Hl` ,2?5 ,C646:G6Cl") & CCJCJJ):if CCJJJC(0)=0 then
Response.Write CJJJJJJJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm涃@恪@k^2mk^=:m")
else
Response.Write CJJJJJJJ("k=:mk2 ,9C67lV]]^>6DD286^:?]2DAnC625@?=Jl`V ,E2C86ElV03=2?<Vm涃@恪@ ,kDA2? ,DEJ=6lV4@=@CiR777j7@?E\D:K6i`_AIj5:DA=2Ji:?=:?6\3=@4<j324<8C@F?5\4@=@CiR7b_j96:89Ei`dAIjA255:?8i_ ,aAIj=:?6\96:89Ei`dAIj3@C56C\C25:FDibAIjVm") & CCJJJC(0) & CJJJJJJJ("k^DA2?mk^2mk^=:m")
end if:Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ>J:?7@]2DAQm俩@攴@严@亵@俜@恪@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ492?86ADH]2DAQm俩@攴@癶@彐@寁@矼@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):If CCCCJC or CJJJCJJ Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ]]^D49@@=^25>:?^>2:?]2DAQm糶@绚@箜@琁@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ]]^>6>36C^=@8@FE]2DAnC65:C64El^D49@@=^:?56I]2DAnD49@@=l")):Response.Write  CJJJCCC:Response.Write(CJJJJJJJ("Qm迻@凵@糶@绚@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ("k^F=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQ>2:?Qm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQ>2:?4@?E6?EQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,4=2DDlQ4@?E6?EQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k9am仠@丆@释@衣@只@仠@栴@捩@臥@巬@兯@趞@臥@丶@浆@访@k^9am") & vbCrLf):Response.Write(CJJJJJJJ(" ,k3Cm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k7@C> ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k:?AFE ,EJA6lQE6IEQ ,?2>6lQH@C5Q ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCJJCCC:Response.Write(CJJJJJJJ("Q ,D:K6lQd_Q ,A=2469@=56ClQ辎@兠@释@衣@合@秫@Qm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ搗@紝@Qm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ发@涃@Q ,@?4=:4<lQ;2G2D4C:AEiH:?5@H]=@42E:@?lVE6DE0K:46]2DAVQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^7@C>m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):dim CCJCJJJ,CCJCJJC,CJJCJCJ,CCJCJCJ,CCJCJCC:CCJCJJC=CCCCJJJ:set CCJJJC=CJCCCC.execute(CJJJJJJJ("D6=64E ,E@A ,` ,=3 ,7C@> ,>6>36C0EJA6 ,H96C6 ,:5l") & CJJJCCC):CCJCJJJ=CCJJJC(0):for CJJCJCJ=1 to ubound(CCJCJJC):CCJCJCJ=CCJCJJC(CJJCJCJ,0):CCJCJCC=true:if instr(CJJJJJJJ("[") & CCJCJJJ & CJJJJJJJ("["),CJJJJJJJ("[") & CCJCJCJ & CJJJJJJJ("["))=0 then
CCJCJCC=false
elseif CCJJCCC<>"" and instr(CCJCJJC(CJJCJCJ,14),CCJJCCC)=0 then
CCJCJCC=false
end if:if CCJCJCC then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k5=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5Emk2 ,9C67lV^=3^:?4^DE2CE]9E>n=3:5l")):Response.Write  CCJCJCJ:Response.Write(CJJJJJJJ("UE6DEEJA6l`V ,E:E=6lV炴@凶@迖@兠@浆@访@Vm")):Response.Write  IIf(CCJCJJC(CJJCJCJ,14)="",CCJCJJC(CJJCJCJ,1),CCJCJJC(CJJCJCJ,14)):Response.Write(CJJJJJJJ("k^2mk^5Em") & vbCrLf):Response.Write(CJJJJJJJ(" ,k55m")):Response.Write  CCCJJJC(IIf(CCJCJJC(CJJCJCJ,19)="",CCJCJJC(CJJCJCJ,6),CCJCJJC(CJJCJCJ,19)),300):Response.Write(CJJJJJJJ("k^55m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
end if:next:Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQD:56Qm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k9bm徾@琁@浆@访@丨@徾@k^9bm") & vbCrLf):Response.Write(CJJJJJJJ("kF=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQE6DE0AF46]2DAQm徾@琁@晩@柠@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):If CCJJJCC(34) Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQE6DE0K:46]2DAQm徾@琁@臥@浆@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ>JE6DE]2DAQm戌@癿@浆@访@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ("k^F=m") & vbCrLf)::If CCJJJCC(7)=3 Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ("k9bm徾@琁@咣@话@丨@徾@k^9bm") & vbCrLf):Response.Write(CJJJJJJJ("kF=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ:?EC@]2DAQm咣@话@丨@徾@楽@冰@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,:5lQ2D:56\JFJF6\=:?<Q ,9C67lQ^>^G2?E^R^=@8:?nC65:C64El^D49@@=^DEF56?EU<6JlQ ,52E2\:5lQ")):Response.Write  CCJCJJ:Response.Write(CJJJJJJJ("Qm顿@纡@咣@话@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQJFJF6]2DAn24El=:DEQm顿@纡@咣@话@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQK:IF?]2DAQm徾@琁@咣@话@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ:?E6CG:6H]2DAQm论@调@遻@诲@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,")):If CCJJJCC(39) Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAn24El255Qm闩@颓@畔@觻@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ=:FJ2?]2DAQm闩@颓@畔@觻@讫@彐@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
End If::If CCJJJCC(30) Then
Response.Write(vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?E^EF2?7FQm囝@低@辀@寷@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJJJJJJ("k^F=m") & vbCrLf):Response.Write(CJJJJJJJ("k9bm共@仑@徾@琁@月@劜@k^9bm") & vbCrLf):Response.Write(CJJJJJJJ("kF=m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQ8C@HC6A@CE]2DAQm臥@戌@戋@镺@抠@呅@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAn24El>JQm臥@访@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=:mk2 ,9C67lQC6>2C<]2DAQm戌@癿@访@仲@k^2mk^=:m") & vbCrLf):Response.Write(CJJJJJJJ("k^F=m") & vbCrLf)
End If:Response.Write(vbCrLf):Response.Write(CJJJJJJJ("kD4C:AE ,DC4lQ^$4C:AED^6?4CJAE\?F>36C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,^Y ,8=@32= ,t?4CJAE ,Y^") & vbCrLf):Response.Write(CJJJJJJJ(" ,SWVR2D:56\JFJF6\=:?<VX]2EECWV9C67V[7F?4E:@?W:[G2=F6XLC6EFC? ,G2=F6Zt?4CJAEWSWE9:DX]52E2WV:5VXXNX") & vbCrLf):Response.Write(CJJJJJJJ("NX") & vbCrLf):Response.Write(CJJJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,:5lQ7@@EQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,4=2DDlQ56A2CE>6?EQm")):Response.Write  CJJJJJJJ("朧@糶@绚@佺@産@朾@掃@亃@：,") & CCJJJCC(10):Response.Write(CJJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k5:G ,4=2DDlQ4@AJC:89EQm")):Response.Write  replace(CCJJJCC(14),vbcrlf,CJJJJJJJ("k3Cm")):Response.Write(CJJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ("k^5:Gm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,SWVRD:56VX]96:89EWSWVR>2:?VX]96:89EWXX") & vbCrLf):Response.Write(CJJJJJJJ("NX") & vbCrLf):Response.Write(CJJJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCJJJ=nothing:set CCCJCJJ=nothing:set CCCJCJC=nothing:set CCCJCCJ=nothing:CCJJCJ.Close:Set CCJJCJ=Nothing:CCJJJC.Close:Set CCJJJC=Nothing:CJCCCC.Close:Set CJCCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJJJ(ByVal CJCJJCJ)
Dim CCJCCJJ, CJJCJCJ, CJJCCCC
CJCJJCJ = Replace(CJCJJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCJ = 1 To Len(CJCJJCJ)
If CJJCJCJ <> CJJCCCC Then
CCJCCJJ = AscW(Mid(CJCJJCJ, CJJCJCJ, 1))
If CCJCCJJ >= 33 And CCJCCJJ <= 79 Then
CJJJJJJJ = CJJJJJJJ & Chr(CCJCCJJ + 47)
ElseIf CCJCCJJ >= 80 And CCJCCJJ <= 126 Then
CJJJJJJJ = CJJJJJJJ & Chr(CCJCCJJ - 47)
Else
CJJCCCC = CJJCJCJ + 1
If Mid(CJCJJCJ, CJJCCCC, 1) = Chr(64) Then CJJJJJJJ = CJJJJJJJ & ChrW(CCJCCJJ + 5) Else CJJJJJJJ = CJJJJJJJ & Mid(CJCJJCJ, CJJCJCJ, 1)
End If
End If
Next
End Function
%>