<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJJJ, CJCJJC,CJCJCJ, CJCJCC, CJCCJJ:Set CJCJJJ = server.CreateObject(CJCCCJJ("ps~sq]r@??64E:@?")):CJCJJJ.open Application(CJCCCJJ("r@??64E:@?$EC:?8")):Set CJCJJC=CJCJJJ::Dim CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC:CCCCCC=Trim(Request.Cookies(CJCCCJJ("!$*|t|qt#"))):if CCCCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJC>0 then
CJCCJJ=CJCCCJJ("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") & CJCCCJ & CJCCCJJ("V ,2?5 ,:5l") & CJCCJC
set CJCJCJ=CJCJJJ.execute(CJCCJJ):If CJCJCJ.EOF Then
Call ClearMemberCookie
Else
CJCCCC=CJCJCJ(2) & "":CCJJJJ=CJCJCJ(3):CCJJJC=CJCJCJ(5):CCJJCJ=CJCJCJ(6):CCJJCC=CJCJCJ(9):CCJCJJ=CJCJCJ(15):CCJCCJ=CJCJCJ(0):CCCCJC=CJCJCJ(1):CCCCJJ=CJCJCJ(11) & "":CCJCCC=CJCJCJ(10) & "":CCJCJC=CJCJCJ(12):CCCJJJ=CJCJCJ(14):CCCJJC=CJCJCJ(13):CCCJCJ=CJCJCJ(7) & "":CCCJCC=CJCJCJ(4):CCCCCJ=CJCJCJ(8):if isnull(CCJCJJ) then CCJCJJ=0
if isnull(CCJJCC) or CCJJCC=0 then CCJJCC=CCJJJJ
if isnull(CCCJCC) then CCCJCC=0
if isnull(CCJJJC) then CCJJJC=0
if instr(CJCCCJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCCJ)>0 then Call RedirectMessage(CJCCCJJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJCCJC,CJCCCJ)
End IF
end if:::Sub CheckLogined():if CJCCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJJJJ:CJJJJJJ=trim(request.QueryString(CJCCCJJ("D49@@="))):if isnumeric(CJJJJJJ) then
response.Redirect CJCCCJJ("^>^G2?E^R^D49@@=^") & CJJJJJJ & CJCCCJJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCCCJJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJJ("!$*|t|qt#"))="":CJCCJC=0:CCJJCJ=0:CJCCCJ=Empty:CCJJJC=0:CCJCJJ=0:CCJJCC=0:CCJJJJ=0:CCJCCJ=False:CCCCJC=False:CCCCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:CJJJJJC=split(CCCCCC,CJCCCJJ("]")):if ubound(CJJJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJC(0)) or len(CJJJJJC(1))<>32 or len(CJJJJJC(2))<>32 then
Call ClearMemberCookie
else
CJJJJCJ=CJJJJJC(1):for CJJJJCC=1 to len(CJJJJCJ):CJJJCJJ=mid(CJJJJCJ,CJJJJCC,1):if isnumeric(CJJJCJJ) then CJJJCJC=CJJJCJC & CJJJCJJ
if len(CJJJCJC)=7 then exit for
next:CJJJJCJ=CJJJJJC(2):if CJJJCJC<>mid(CJJJJCJ,6,7) then
Call ClearMemberCookie
else
CJJJCJJ=mid(CJJJJCJ,18,10)/2:if CJJJCJJ<DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJC=Clng(CJJJJJC(0)):CJCCCJ=CJJJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJCCCJ,CJCCCJC):dim CJJJJCC,CJJJCJJ,CJJJCJC:for CJJJJCC=1 to len(CJCCCJC):CJJJCJJ=mid(CJCCCJC,CJJJJCC,1):if isnumeric(CJJJCJJ) then CJJJCJC=CJJJCJC & CJJJCJJ
if len(CJJJCJC)=7 then exit for
next:CJJJCJC=CJJCCCJ & CJCCCJJ("]") & CJCCCJC & CJCCCJJ("]") & Fix(10000*(Rnd+1)) & CJJJCJC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJJ("D"), CJCCCJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJJ("!$*|t|qt#"))=CJJJCJC:End Sub::Function CJCJJCC(CJCCCCJ):Dim str,CJJJCCC:str = Trim(CJCCCCJ):If IsNull(str) Or str = "" Then
CJCJJCC = ""
else
str=Replace(str, CJCCCJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCJJ("k:7C2>6"), CJCCCJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCJJ("kD4C:AE"), CJCCCJJ("U=EjD4C:AE"),1,-1,1):str=Replace(str,CJCCCJJ(";2G2D4C:AEi"), CJCCCJJ(",IDD."),1,-1,1):str=Replace(str,CJCCCJJ("2=6CEW"), CJCCCJJ(",IDD."),1,-1,1):str=Replace(str,CJCCCJJ("4@?7:C>W"), CJCCCJJ(",IDD."),1,-1,1):str=Replace(str,CJCCCJJ("AC@>AEW"), CJCCCJJ(",IDD."),1,-1,1):str=Replace(str,CJCCCJJ("6G2=W"), CJCCCJJ(",IDD."),1,-1,1):str=Replace(str,CJCCCJJ("5@4F>6?E]"), CJCCCJJ(",IDD."),1,-1,1):On Error Goto 0:set CJJJCCC=new RegExp:CJJJCCC.Pattern=CJCCCJJ("@?W,2\K.ZXl"):CJJJCCC.IgnoreCase = True:CJJJCCC.Global=True:str=CJJJCCC.Replace(str,CJCCCJJ("@?S`U6BF2=Dj")):set CJJJCCC=nothing:CJCJJCC=str
End If:End Function:Function IIf(CJCCCCC, CCJJJJJ, CCJJJJC):if isnull(CJCCCCC) or isempty(CJCCCCC) then
IIf = CCJJJJC
elseif CJCCCCC Then
IIf = CCJJJJJ
Else
IIf = CCJJJJC
end if:End Function:Const CJCJJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJJJCJ,CCJJJCC):dim CJJJJJC:CJJJJJC=CCJJJCJ & "=" & CCJJJCC & CJCCCJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJJ("$6E\r@@<:6"),CJJJJJC):End Sub:::::::Function CJCJCJC(CJCJJJC):if isnull(CJCJJJC) or trim(CJCJJJC)="" or not isnumeric(CJCJJJC) then
CJCJCJC=false
else
Dim CJJJCCC:Set CJJJCCC = New RegExp:CJJJCCC.Pattern = CJCCCJJ("/-5ZS"):CJJJCCC.IgnoreCase = True:CJCJCJC = CJJJCCC.test(CJCJJJC):set CJJJCCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJJCJCJ.close : set CJJCJCJ=nothing:CJCJCC.Close : Set CJCJCC=Nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJCCJCJ.Close : Set CJCCJCJ = Nothing:CJCJJJ.Close : Set CJCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJCJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJJ("!$*0|6DD286"),server.URLEncode(CCJJCJJ)):Response.Redirect CJCCCJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub::::::::::::::::::::::::::::::::::::::::::::dim CJJJJJJ:CJCCJJ=Request.ServerVariables(CJCCCJJ("!p%w0x}u~")):if instr(CJCCJJ,CJCCCJJ("^D49@@=^25>:?^"))>0 then
Call CheckLogined:if not CCJCCJ and not CCCCJC then Call RedirectMessage(CJCCCJJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,"))
CJJJJJJ=CCJJCC
elseif instr(CJCCJJ,CJCCCJJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJCCJJ,CJCCCJJ("^DEF56?E^"))>0 then
Call CheckLogined:CJJJJJJ=CCJJCC
elseif instr(CJCCJJ,CJCCCJJ("^D49@@="))>0 then
CJJJJJJ=Request.QueryString(CJCCCJJ("D49@@=")):if not CJCJCJC(CJJJJJJ) then CJJJJJJ=Request.QueryString(CJCCCJJ("F"))
if not CJCJCJC(CJJJJJJ) then CJJJJJJ=Request.QueryString(CJCCCJJ("D4"))
if not CJCJCJC(CJJJJJJ) then Call RedirectMessage(CJCCCJJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,"))
CJJJJJJ=csng(CJJJJJJ)
end if:if CJJJJJJ=0 then Call RedirectMessage(CJCCCJJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,"))
Dim CJJCJJJ:Call SetConfig:Sub SetConfig():dim CJJCJJC,CJJCJCJ:CJCCJJ=CJCCCJJ("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") & CJJJJJJ:set CJJCJCJ=CJCJJJ.execute(CJCCJJ):if CJJCJCJ.eof then Call RedirectMessage(CJCCCJJ("患@W") & CJCCJC & CJCCCJJ("X戻@圣@癿@卐@佈@W") & CJJJJJJ & CJCCCJJ("X朥@批@别@。,"))
ReDim CJJCJJC(61):CJJCJJC(0)=CJJCJCJ(CJCCCJJ(";:2@H6:")) & "":CJJCJJC(1)=CJJCJCJ(CJCCCJJ("EJA6")):CJJCJJC(2)=CJJCJCJ(CJCCCJJ("D>D")):CJJCJJC(3)=CJJCJCJ(CJCCCJJ("4FDE@>8C@FA")) & "":CJJCJJC(4)=CJJCJCJ(CJCCCJJ("D:5632C0@E96C")) & "":CJJCJJC(5)=IIf(isnull(CJJCJCJ(CJCCCJJ("E6DEC6DF=EG:6H"))),0,CJJCJCJ(CJCCCJJ("E6DEC6DF=EG:6H"))):CJJCJJC(6)=CJJCJCJ(CJCCCJJ("K:IF?E:>6")):CJJCJJC(7)=CJJCJCJ(CJCCCJJ("766")):CJJCJJC(8)=CJJCJCJ(CJCCCJJ("C6E6DE52J")):CJJCJJC(9)=CJJCJCJ(CJCCCJJ("6IA:C652E6")):CJJCJJC(10)=CJJCJCJ(CJCCCJJ("E:E=6")):CJJCJJC(11)=CJJCJCJ(CJCCCJJ(":?EC@")) & "":CJJCJJC(12)=CJJCJCJ(CJCCCJJ("A:4EFC6")) & "":CJJCJJC(13)=CJJCJCJ(CJCCCJJ("72>:=J")):CJJCJJC(14)=CJJCJCJ(CJCCCJJ("4@AJC:89E")) & "":CJJCJJC(15)=IIf(isnull(CJJCJCJ(CJCCCJJ("D6>6DE6C0DE2CE052E6"))),CJCCCJJ("`h__\`\`"),CJJCJCJ(CJCCCJJ("D6>6DE6C0DE2CE052E6"))):CJJCJJC(16)=IIf(isnull(CJJCJCJ(CJCCCJJ("K:IF?0E:>6D09:89=:89E"))),0,CJJCJCJ(CJCCCJJ("K:IF?0E:>6D09:89=:89E"))):CJJCJJC(17)=CJJCJCJ(CJCCCJJ("4@?E24E")) & "":CJJCJJC(18)=CJJCJCJ(CJCCCJJ("D2?5E23=6")):CJJCJJC(19)=CJJCJCJ(CJCCCJJ("4C:D:D")):CJJCJJC(20)=CJJCJCJ(CJCCCJJ("JJ52E6")):CJJCJJC(21)=CJJCJCJ(CJCCCJJ("BB")):CJJCJJC(22)=CJJCJCJ(CJCCCJJ("JFJF60D>D0EA=")) & "":CJJCJJC(23)=CJJCJCJ(CJCCCJJ("JFJF60E6DE0=3")) & "":CJJCJJC(25)=CJJCJCJ(CJCCCJJ("6IA6CE")):CJJCJJC(26)=CJJCJCJ(CJCCCJJ(">@5:?7@")):CJJCJJC(27)=CJJCJCJ(CJCCCJJ("9@>6A286E@AA:4EFC6")) & "":CJJCJJC(28)=CJJCJCJ(CJCCCJJ("4C:D:D=3")):CJJCJJC(29)=IIf(CJJCJCJ(CJCCCJJ("4C:D:D@=5")),False,True):CJJCJJC(30)=CJJCJCJ(CJCCCJJ("8C@FA8F:52?46")):CJJCJJC(31)=CJJCJCJ(CJCCCJJ("3:@7665324<")):CJJCJJC(32)=CJJCJCJ(CJCCCJJ("<6JDEC")):CJJCJJC(33)=CJJCJCJ(CJCCCJJ("=@8@")) & "":CJJCJJC(34)=CJJCJCJ(CJCCCJJ("K:46")):CJJCJJC(35)=IIf(CJJCJCJ(CJCCCJJ(":D?6H")),True,False):CJJCJJC(36)=121:CJJCJJC(37)=111:CJJCJJC(38)=160:CJJCJJC(39)=CJJCJCJ(CJCCCJJ("8F6DE3@@<")):CJJCJJC(40)=CJJCJCJ(CJCCCJJ("75D")):CJJCJJC(42)=CJJCJCJ(CJCCCJJ("9@>6=@8:?")):CJJCJJC(43)=CJJCJCJ(CJCCCJJ("K:IF?0?6657665324<")):CJJCJJC(44)=CJJCJCJ(CJCCCJJ("K:IF?0E:>6D0=:>:E")):CJJCJJC(45)=CJJCJCJ(CJCCCJJ("4@>A=6E60:?7@")):CJJCJJC(46)=CJJCJCJ(CJCCCJJ("E6DE:?EC@")) & "":CJJCJJC(47)=IIf(isnull(CJJCJCJ(CJCCCJJ("JFJF60367@C60E:>6"))),0,CJJCJCJ(CJCCCJJ("JFJF60367@C60E:>6"))):CJJCJJC(49)=CJJCJCJ(CJCCCJJ("D>D0C646:G6C")):CJJCJJC(50)=CJJCJCJ(CJCCCJJ("D>D0D:8?")) & "":CJJCJJC(52)=CJJCJCJ(CJCCCJJ("JFJF602CC2?86")):CJJCJJC(53)=IIf(isnull(CJJCJCJ(CJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJCJCJ(CJCCCJJ("DEF56?E0BF6DE:@?04@F?E"))):CJJCJJC(54)=CJJCJCJ(CJCCCJJ("9:560=30@FE@7286")):CJJCJJC(55)=CJJCJCJ(CJCCCJJ("JFJF60E6DE052JD")):CJJCJJC(56)=CJJCJCJ(CJCCCJJ("JFJF60H66<0=:>:E")):CJJCJJC(57)=CJJCJCJ(CJCCCJJ("JFJF604964<65")):CJJCJJC(58)=CJJCJCJ(CJCCCJJ("K:IF?0?6657665324<0?6IE")):CJJCJJC(59)=CJJCJCJ(CJCCCJJ("4964<?6HDEF56?E")):CJJCJJC(60)=CJJCJCJ(CJCCCJJ("K:IF?04=@D6052E6")):CJJCJCJ.close : set CJJCJCJ=nothing:if isNull(CJJCJJC(8)) or CJJCJJC(8)="" then CJJCJJC(8)=0
if isdate(CJJCJJC(9)) then
CJJCJJC(9)=cdate(CJJCJJC(9)):if CJJCJJC(9)<Date then Call RedirectMessage(CJCCCJJ("寴@丈@赲@，,患@癿@糶@绚@诐@産@朚@陋@W") & CJJCJJC(9) & CJCCCJJ("X巭@迂@。,"))
end if:if not CJCJCJC(CJJCJJC(20)) then CJJCJJC(20)=7
select case CJJCJJC(1):case 1,2,16:CJJCJJC(36)=159:case 4,5,6,10,11:CJJCJJC(36)=190:CJJCJJC(37)=178:CJJCJJC(38)=191:case 7,13:CJJCJJC(36)=164:CJJCJJC(37)=178:CJJCJJC(38)=179:end select:CJJCJJJ=CJJCJJC:End Sub:Function CJCCJJC(CCJJCJC):dim CJJCJJC(7,1),CJJJJCC,CJJCJCC,CJJCCJJ:CJJCJCC=Array(CJCCCJJ("$49@@="),CJCCCJJ("$EF56?E"),CJCCCJJ("s6AE"),CJCCCJJ("vC256"),CJCCCJJ("r=2DD>2E6"),CJCCCJJ("}F>36C"),CJCCCJJ("%62496C"),CJCCCJJ("!2C6?E")):select case CJJCJJJ(1):case 1,2 : CJJCCJJ=Array(CJCCCJJ("孡@栜@"),CJCCCJJ("孡@甚@"),CJCCCJJ("珨@红@"),CJCCCJJ("幯@红@"),CJCCCJJ("吇@孡@"),CJCCCJJ("孡@史@"),CJCCCJJ("敔@布@"),CJCCCJJ("宱@镺@")):case 3,16 : CJJCCJJ=Array(CJCCCJJ("孡@栜@"),CJCCCJJ("孡@甚@"),CJCCCJJ("陝@糶@"),CJCCCJJ("幯@红@"),CJCCCJJ("吇@孡@"),CJCCCJJ("孡@史@"),CJCCCJJ("敔@布@"),CJCCCJJ("宱@镺@")):case 4 : CJJCCJJ=Array(CJCCCJJ("匶@陝@"),CJCCCJJ("杠@论@耀@"),CJCCCJJ("卐@佈@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("匶@甚@"),CJCCCJJ("宱@屙@")):case 5 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("呓@巠@"),CJCCCJJ("郣@闣@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("呓@巠@"),CJCCCJJ("宱@屙@")):case 6 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("杠@论@耀@"),CJCCCJJ("线@刦@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 7 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("宓@兰@"),CJCCCJJ("郣@闣@"),CJCCCJJ("幯@仸@"),CJCCCJJ("戓@叆@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 8 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("杠@论@耀@"),CJCCCJJ("卐@佈@"),CJCCCJJ("兠@聇@幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("酈@偱@")):case 9 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("敔@布@"),CJCCCJJ("卐@佈@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("酈@偱@")):case 10 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("氌@譡@"),CJCCCJJ("郣@闣@"),CJCCCJJ("兠@譡@幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 11 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("內@劜@呓@"),CJCCCJJ("郣@闣@"),CJCCCJJ("幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 12 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("幭@譡@"),CJCCCJJ("卐@佈@"),CJCCCJJ("兠@譡@幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 13 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("孡@呓@"),CJCCCJJ("卐@佈@"),CJCCCJJ("幯@仸@"),CJCCCJJ("戓@叆@"),CJCCCJJ("缑@史@"),CJCCCJJ("敔@呓@"),CJCCCJJ("宱@屙@")):case 14 : CJJCCJJ=Array(CJCCCJJ("月@劜@炴@"),CJCCCJJ("局@氌@"),CJCCCJJ("线@刦@"),CJCCCJJ("幯@仸@"),CJCCCJJ("邶@采@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case 15 : CJJCCJJ=Array(CJCCCJJ("卐@佈@"),CJCCCJJ("盌@独@氌@譡@"),CJCCCJJ("卐@佈@"),CJCCCJJ("兠@譡@幯@仸@"),CJCCCJJ("吇@了@"),CJCCCJJ("缑@史@"),CJCCCJJ("咣@话@布@"),CJCCCJJ("宱@屙@")):case else : CJJCCJJ=CJJCJCC
end select:for CJJJJCC=0 to Ubound(CJJCJJC):CJJCJJC(CJJJJCC,0)=CJJCJCC(CJJJJCC):CJJCJJC(CJJJJCC,1)=CJJCCJJ(CJJJJCC):next:for CJJJJCC=0 to Ubound(CJJCJJC):if CJJCJJC(CJJJJCC,0)=CCJJCJC then
CJCCJJC=CJJCJJC(CJJJJCC,1):exit for
end if:next:End Function::dim CJJCCJC,CJJJJCC:If Request.ServerVariables(CJCCCJJ("#t""&t$%0|t%w~s"))=CJCCCJJ("!~$%") then
dim CJJCCCJ,CJJCCCC:CJJCCCJ=Request.form(CJCCCJJ(":5")):CJJCCCC=request.form(CJCCCJJ("BF6DE4@F?E")):for CJJJJCC=0 to CJJCCCC:CJJCCJC=CJJCCJC & CJCCCJJ("M") & CJCJJCC(Request.Form(CJCCCJJ("2") & CJJJJCC)):next:CJCJJJ.execute CJCCCJJ("FA52E6 ,KI ,D6E ,DE2EFDle[7665324<lV") & Mid(CJJCCJC,2) & CJCCCJJ("V ,H96C6 ,:5l") & CJJCCCJ
Call ConnClose:response.end
end if:Response.Write(vbCrLf):Response.Write(CJCCCJJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCCJJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCCJJ("k9625m") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCCJJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCCJJ("kE:E=6m")):Response.Write  CJJCJJJ(10):Response.Write(CJCCCJJ("\咣@话@讫@彐@k^E:E=6m") & vbCrLf):Response.Write(CJCCCJJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCCJJ("kDEJ=6m") & vbCrLf):Response.Write(CJCCCJJ("]2>\96256C\5672F=EL324<8C@F?5\4@=@CiR_`e265jN") & vbCrLf):Response.Write(CJCCCJJ("k^DEJ=6m") & vbCrLf):Response.Write(CJCCCJJ("k^9625m") & vbCrLf):Response.Write(CJCCCJJ("k3@5Jm") & vbCrLf):Response.Write(CJCCCJJ("kP\\ ,顰@夯@ ,\\m") & vbCrLf):Response.Write(CJCCCJJ("k96256C ,52E2\2>\H:586ElQ96256CQ ,4=2DDlQ2>\96256C ,2>\96256C\5672F=EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\96256C\=67E ,2>\96256C\?2GQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k2 ,9C67lQ;2G2D4C:AEi9:DE@CJ]324<WXjQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\2?8=6\=67EQmk^:mk^2m") & vbCrLf):Response.Write(CJCCCJJ(" ,k2 ,9C67lQ^>^G2?E^R^D49@@=^DEF56?EQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\9@>6Qmk^:mk^2m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9` ,4=2DDlQ2>\96256C\E:E=6 ,2>\E6IE\ECF?42E6Qm咣@话@讫@彐@k^9`m") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\96256C\C:89E ,2>\96256C\?2GQmk2 ,9C67lQ>J]2DAQmk: ,4=2DDlQ2>\96256C\:4@? ,2>\:4@?\FD6CQmk^:mk^2mk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("k^96256Cm") & vbCrLf):Response.Write(CJCCCJJ("kP\\ ,讫@彐@ ,\\m") & vbCrLf):Response.Write(CJCCCJJ("k5:G ,4=2DDlQ2>\4@?E2:?6C ,2>\D4C@==23=6\9@C:K@?E2=Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\4@>A24E ,2>\E6IE\?@HC2AQm") & vbCrLf):Response.Write(CJCCCJJ(" ,kE9625m") & vbCrLf):Response.Write(CJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCJJ(" ,kE9m咣@话@布@k^E9m") & vbCrLf):Response.Write(CJCCCJJ(" ,kE9m咣@话@旱@闯@k^E9m") & vbCrLf):Response.Write(CJCCCJJ(" ,kE9mk^E9m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^E9625m") & vbCrLf):Response.Write(CJCCCJJ(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):set CJCJCJ=CJCJJJ.execute(CJCCCJJ("D6=64E ,:5[4@?DF=E2?E?2>6[KIE:>6[7665324<[4@?DF=E2?E ,7C@> ,G0KI ,H96C6 ,DE2EFDmld ,2?5 ,>6>36Cl") & CJCCJC & CJCCCJJ(" ,@C56C ,3J ,:5 ,56D4")):while not CJCJCJ.eof:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,kECm") & vbCrLf):Response.Write(CJCCCJJ(" ,kE5m")):Response.Write  CJCJCJ(1):Response.Write(CJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJCCCJJ(" ,kE5m")):Response.Write  CJCJCJ(2):Response.Write(CJCCCJJ("k^E5m") & vbCrLf):Response.Write(CJCCCJJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):if CJJCJJJ(43) then
if CJCJCJ(3) & ""="" then
Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\H2C?:?8 ,2>\C25:FD ,2>\3E?\IDQ ,52E2\2>\>@52=lQLE2C86EiVR>J\A@AFAVNQ ,52E2\:5lQ")):Response.Write  CJCJCJ(0):Response.Write(CJCCCJJ("Qm又@ ,馃@k^3FEE@?m") & vbCrLf):Response.Write(CJCCCJJ(" ,"))
else
Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,kDA2? ,4=2DDlV2>\32586Vm巭@又@馃@k^DA2?m") & vbCrLf):Response.Write(CJCCCJJ(" ,"))
End If
End If:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^E5m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^ECm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):CJCJCJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("kP\\ ,又@馃@弴@凵@桁@ ,\\m") & vbCrLf):Response.Write(CJCCCJJ("k5:G ,4=2DDlQ2>\A@AFAQ ,:5lQ>J\A@AFAQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\A@AFA\:??6CQm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\A@AFA\95Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k9c ,4=2DDlQ2>\A@AFA\E:E=6Qm杠@论@耀@徾@琁@咣@话@滜@愊@庡@课@柠@衣@k^9cm") & vbCrLf):Response.Write(CJCCCJJ(" ,kDA2? ,52E2\2>\>@52=\4=@D6 ,4=2DDlQ2>\4=@D6QmUE:>6Djk^DA2?mk^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\A@AFA\35Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\2=6CE ,2>\2=6CE\DF446DDQm") & vbCrLf):Response.Write(CJCCCJJ(" ,kAm诲@栴@捩@佛@歟@欜@掠@叒@咣@话@癿@惀@冰@，,偕@凵@访@仲@，,佛@癿@访@仲@封@朄@劤@争@朧@丨@徾@曯@奸@圫@廻@屐@巠@佗@，,揋@侖@曯@奸@癿@徾@琁@偠@庲@月@劜@。,k^Am") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k7@C> ,4=2DDlQ2>\7@C>Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):dim CJJJCJJ:CJJJJCC=0:set CJCJCJ=CJCJJJ.execute(CJCCCJJ("D6=64E ,BF6DE:@?[2?DH6C ,7C@> ,KI07665324<")):while not CJCJCJ.eof:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\7@C>\8C@FA ,2>\7@C>\8C@FA\D>Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k=236= ,4=2DDlQ2>\E6IE\D>QmkDA2? ,4=2DDlQ2>\32586 ,2>\32586\D64@?52CJ ,2>\C25:FDQm")):Response.Write  CJJJJCC+1:Response.Write(CJCCCJJ("k^DA2?m ,")):Response.Write  CJCJCJ(0):Response.Write(CJCCCJJ("k^=236=m") & vbCrLf):Response.Write(CJCCCJJ(" ,")):CJJCCJC=CJCJCJ(1) & "":if CJJCCJC="" then
Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,kE6IE2C62 ,?2>6lQ2")):Response.Write  CJJJJCC:Response.Write(CJCCCJJ("Q ,4=2DDlQ2>\7@C>\7:6=5Qmk^E6IE2C62m") & vbCrLf):Response.Write(CJCCCJJ(" ,"))
Else
CJJCCJC=split(CJJCCJC,CJCCCJJ("M")):for CJJJCJJ=0 to ubound(CJJCCJC):Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k5:G ,4=2DDlQ2>\C25:@Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k=236=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k:?AFE ,EJA6lQC25:@Q ,?2>6lQ2")):Response.Write  CJJJJCC:Response.Write(CJCCCJJ("Q ,G2=F6lQ")):Response.Write  CJJJCJJ+1:Response.Write(CJCCCJJ("Q ,C6BF:C65m") & vbCrLf):Response.Write(CJCCCJJ(" ,")):Response.Write  CJJCCJC(CJJJCJJ):Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^=236=m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):next
end if:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,")):CJCJCJ.movenext:CJJJJCC=CJJJJCC+1:wend:Response.Write(vbCrLf):Response.Write(CJCCCJJ(" ,k3FEE@? ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\D>Qm揋@亟@又@馃@k^3FEE@?m") & vbCrLf):Response.Write(CJCCCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ:5Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQBF6DE4@F?EQ ,G2=F6lQ")):Response.Write  CJJJJCC-1:Response.Write(CJCCCJJ("Qm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^7@C>m") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("k^5:Gm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AE ,DC4lQ^$4C:AED^2FE@D:K6]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("kD4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJJ(" ,2FE@D:K6WSWVE6IE2C62VXX") & vbCrLf):Response.Write(CJCCCJJ(" ,G2C ,S3E?l?F==") & vbCrLf):Response.Write(CJCCCJJ(" ,G2C ,DE@C6lS]p|&x]DE@C6") & vbCrLf):Response.Write(CJCCCJJ(" ,^^ ,又@馃@弴@凵@") & vbCrLf):Response.Write(CJCCCJJ(" ,SWV3FEE@?,52E2\2>\>@52=.VX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJJ(" ,S3E?lSWE9:DX") & vbCrLf):Response.Write(CJCCCJJ(" ,SWV:?AFE,?2>6lQ:5Q.VX]G2=WS3E?]52E2WV:5VXX") & vbCrLf):Response.Write(CJCCCJJ(" ,NX") & vbCrLf):Response.Write(CJCCCJJ(" ,^^ ,又@馃@揋@亟@") & vbCrLf):Response.Write(CJCCCJJ(" ,SWV7@C>VX]@?WVDF3>:EV[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJJ(" ,S]A@DEWVV[SWE9:DX]D6C:2=:K6WX[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCCJJ(" ,SWVR>J\A@AFAVX]>@52=WV4=@D6VX") & vbCrLf):Response.Write(CJCCCJJ(" ,S3E?]A2C6?EWX]9E>=WVkDA2? ,4=2DDlQ2>\32586Qm巭@又@馃@k^DA2?mVX") & vbCrLf):Response.Write(CJCCCJJ(" ,NX") & vbCrLf):Response.Write(CJCCCJJ(" ,C6EFC? ,72=D6") & vbCrLf):Response.Write(CJCCCJJ(" ,NX") & vbCrLf):Response.Write(CJCCCJJ("NX") & vbCrLf):Response.Write(CJCCCJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJCCCJJ("k^3@5Jm") & vbCrLf):Response.Write(CJCCCJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJCCJ=nothing:set CJCJCCC=nothing:set CJCCJJJ=nothing:set CJCCJJC=nothing:CJCJCC.Close:Set CJCJCC=Nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJJ.Close:Set CJCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCJJ(ByVal CJCCJCC)
Dim CJCJJJJ, CJJJJCC, CJCJJJC
CJCCJCC = Replace(CJCCJCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJCC = 1 To Len(CJCCJCC)
If CJJJJCC <> CJCJJJC Then
CJCJJJJ = AscW(Mid(CJCCJCC, CJJJJCC, 1))
If CJCJJJJ >= 33 And CJCJJJJ <= 79 Then
CJCCCJJ = CJCCCJJ & Chr(CJCJJJJ + 47)
ElseIf CJCJJJJ >= 80 And CJCJJJJ <= 126 Then
CJCCCJJ = CJCCCJJ & Chr(CJCJJJJ - 47)
Else
CJCJJJC = CJJJJCC + 1
If Mid(CJCCJCC, CJCJJJC, 1) = Chr(64) Then CJCCCJJ = CJCCCJJ & ChrW(CJCJJJJ + 5) Else CJCCCJJ = CJCCCJJ & Mid(CJCCJCC, CJJJJCC, 1)
End If
End If
Next
End Function
%>