<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJJC, CJJJCJ,CJJJCC, CJJCJJ, CJJCJC:Set CJJJJC = server.CreateObject(CCJJCCJ("ps~sq]r@??64E:@?")):CJJJJC.open Application(CCJJCCJ("r@??64E:@?$EC:?8")):Set CJJJCJ=CJJJJC::Dim CJJCCJ,CJJCCC,CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ:Dim CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ:CCCJJJ=Trim(Request.Cookies(CCJJCCJ("!$*|t|qt#"))):if CCCJJJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCCJ>0 then CJJCJC=CCJJCCJ("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?@=@40 then Call RedirectMessage(CCJJCCJ("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CJJCCJ,CJJCCC) End IF end if:Sub CheckRight(CCJJCCC):dim CCCJJC,CCCJCJ:if CJJCCJ=0 then Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) elseIf not CJCCCJJ(CCJJCCC) then Call RedirectMessage(CCJJCCJ("朾@陋@W") & CCJJCCC & CCJJCCJ("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,")) end if:End Sub:Function CJCCCJJ(CCJJCCC):dim CCCJJC,CCCJCJ:CCCJCJ=split(CCJJCCC,CCJJCCJ("[")):CJCCCJJ=False:for CCCJJC=0 to ubound(CCCJCJ):If Mid(CJCJJJ,CCCJCJ(CCCJJC),1)="1" then CJCCCJJ=True:exit function end if:next:End Function:Sub CheckLogined():if CJJCCJ=0 then Call ClearMemberCookie:Call ConnClose:dim CCCJCC:CCCJCC=trim(request.QueryString(CCJJCCJ("D49@@="))):if isnumeric(CCCJCC) then response.Redirect CCJJCCJ("^>^G2?E^R^D49@@=^") & CCCJCC & CCJJCCJ("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CCJJCCJ("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJJCCJ("!$*|t|qt#"))="":CJJCCJ=0:CJCJCC=0:CJJCCC=Empty:CJCJCJ=0:CJCCJC=0:CJCCJJ=0:CJCJJC=0:CJCCCC=False:CCJCCJ=False:CCJCCC=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJJ,CCCCJC,CCCJJC,CCCCCJ,CCCCCC:CCCCJJ=split(CCCJJJ,CCJJCCJ("]")):if ubound(CCCCJJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CCCCJJ(0)) or len(CCCCJJ(1))<>32 or len(CCCCJJ(2))<>32 then Call ClearMemberCookie else CCCCJC=CCCCJJ(1):for CCCJJC=1 to len(CCCCJC):CCCCCJ=mid(CCCCJC,CCCJJC,1):if isnumeric(CCCCCJ) then CCCCCC=CCCCCC & CCCCCJ if len(CCCCCC)=7 then exit for next:CCCCJC=CCCCJJ(2):if CCCCCC<>mid(CCCCJC,6,7) then Call ClearMemberCookie else CCCCCJ=mid(CCCCJC,18,10)/2:if CCCCCJ6"), CCJJCCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJCCJ("kD4C:AE"), CCJJCCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJJJC=new RegExp:CJJJJJC.Pattern=CCJJCCJ("@?W,2\K.ZXl"):CJJJJJC.IgnoreCase = True:CJJJJJC.Global=True:str=CJJJJJC.Replace(str,CCJJCCJ("@?S`U6BF2=Dj")):set CJJJJJC=nothing:CJCCCJC=str End If:End Function:Function IIf(CCJCJCJ, CCJCJCC, CCJCCJJ):if isnull(CCJCJCJ) or isempty(CCJCJCJ) then IIf = CCJCCJJ elseif CCJCJCJ Then IIf = CCJCJCC Else IIf = CCJCCJJ end if:End Function:Const CJCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCCJC,CCJCCCJ):dim CCCCJJ:CCCCJJ=CCJCCJC & "=" & CCJCCCJ & CCJJCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCCJ("$6E\r@@<:6"),CCCCJJ):End Sub:::::::Function CJCCCCC(CJJJCJC):if isnull(CJJJCJC) or trim(CJJJCJC)="" or not isnumeric(CJJJCJC) then CJCCCCC=false else Dim CJJJJJC:Set CJJJJJC = New RegExp:CJJJJJC.Pattern = CCJJCCJ("/-5ZS"):CJJJJJC.IgnoreCase = True:CJCCCCC = CJJJJJC.test(CJJJCJC):set CJJJJJC=nothing end if:End Function:Function CCJJJJJ(CCJCCCC):dim CJJJJCJ,CJJJJCC:CJJJJCJ=CCJJCCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJCCCC & CCJJCCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJCC=CJJJJC.execute(CJJJJCJ):CCJJJJJ = CJJJJCC(0):if isnull(CCJJJJJ) then CCJJJJJ=1 CJJJJCC.close : set CJJJJCC=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CCJJJJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:CJJJJCC.close : set CJJJJCC=nothing:CJJCJJ.Close : Set CJJCJJ=Nothing:CJJJCC.Close : Set CJJJCC=Nothing:CJCJJJC.Close : Set CJCJJJC = Nothing:CJJJJC.Close : Set CJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCCJ("!$*0|6DD286"),server.URLEncode(CCCJJJJ)):Response.Redirect CCJJCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::function CCJJCJC(str):dim CCCJJC,CJJJCJJ,CJJJCJC,CJJJCCJ:if isnull(str) then exit function str=trim(str):for CCCJJC=1 to len(str):CJJJCJJ=mid(str,CCCJJC,1):CJJJCJC=AscW(CJJJCJJ):if CJJJCJC=12288 then CJJJCJJ=chrw(32) elseif CJJJCJC=-29 then CJJJCJJ=chrw(CJJJCJC+155) elseif CJJJCJC<0 then CJJJCJJ=chrw(CJJJCJC+288) end if:CJJJCCJ=CJJJCCJ & CJJJCJJ:next:CCJJCJC=CJJJCCJ:end function:::::::::::::::::Sub ShowRecord(CJJJCC):dim CCCJJC,CCCCCJ,CJJJCCJ,CJJJCCC:CJJJCCJ=CCJJCCJ("kDEJ=6mE23=6]D9@HC64@C5L3@C56C\4@==2AD6i4@==2AD6jH:5E9i`__TNE23=6]D9@HC64@C5 ,E9[E23=6]D9@HC64@C5 ,E5L3@C56Ci`AI ,D@=:5 ,RbbbjE6IE\2=:8?i46?E6CjA255:?8idAI ,_AIjNE23=6]D9@HC64@C5 ,E9L324<8C@F?5\4@=@CiRrrrjNk^DEJ=6m") & CCJJCCJ("kE23=6 ,4=2DDlVD9@HC64@C5VmkECmkE9mk^E9m") CJJJCCC=CJJJCC.fields.count-1:for CCCJJC=0 to CJJJCCC:CJJJCCJ=CJJJCCJ & CCJJCCJ("kE9m") & CJJJCC.fields(CCCJJC).name & CCJJCCJ("k^E9m"):next:CJJJCCJ=CJJJCCJ & CCJJCCJ("k^ECm"):CCCJJC=1:while not CJJJCC.eof:CJJJCCJ=CJJJCCJ & CCJJCCJ("kECmkE5m") & CCCJJC & CCJJCCJ("k^E5m"):for CCCCCJ=0 to CJJJCCC:CJJJCCJ=CJJJCCJ & CCJJCCJ("kE5m") & CJJJCC(CCCCCJ) & CCJJCCJ("k^E5m"):next:CJJJCCJ=CJJJCCJ & CCJJCCJ("k^ECm"):CJJJCC.movenext:CCCJJC=CCCJJC+1:wend:CJJJCCJ=CJJJCCJ & CCJJCCJ("k^E23=6m"):response.Charset=CCJJCCJ("&%u\g"):response.Write CJJJCCJ:End Sub:::::::Sub ClearCache(CCCJJJC):Application.Contents.Remove CCCJJJC End Sub::dim CCCJCC:CJJCJC=Request.ServerVariables(CCJJCCJ("!p%w0x}u~")):if instr(CJJCJC,CCJJCCJ("^D49@@=^25>:?^"))>0 then Call CheckLogined:if not CJCCCC and not CCJCCJ then Call RedirectMessage(CCJJCCJ("寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@。,")) CCCJCC=CJCCJJ elseif instr(CJJCJC,CCJJCCJ("^>^D49@@=^DEF56?E^"))>0 or instr(CJJCJC,CCJJCCJ("^DEF56?E^"))>0 then Call CheckLogined:CCCJCC=CJCCJJ elseif instr(CJJCJC,CCJJCCJ("^D49@@="))>0 then CCCJCC=Request.QueryString(CCJJCCJ("D49@@=")):if not CJCCCCC(CCCJCC) then CCCJCC=Request.QueryString(CCJJCCJ("F")) if not CJCCCCC(CCCJCC) then CCCJCC=Request.QueryString(CCJJCCJ("D4")) if not CJCCCCC(CCCJCC) then Call RedirectMessage(CCJJCCJ("糶@绚@厽@敫@W$49@@=X忀@顶@丵@敫@孒@。,")) CCCJCC=csng(CCCJCC) end if:if CCCJCC=0 then Call RedirectMessage(CCJJCCJ("糶@绚@厽@敫@W$49@@=X锔@诪@W_X。,")) Dim CJJCJJJ:Call SetConfig:Sub SetConfig():dim CCCJCJ,CJJJJCC:CJJCJC=CCJJCCJ("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 ,D49@@= ,H:E9 ,W?@=@4D")):CCCJCJ(3)=CJJJJCC(CCJJCCJ("4FDE@>8C@FA")) & "":CCCJCJ(4)=CJJJJCC(CCJJCCJ("D:5632C0@E96C")) & "":CCCJCJ(5)=IIf(isnull(CJJJJCC(CCJJCCJ("E6DEC6DF=EG:6H"))),0,CJJJJCC(CCJJCCJ("E6DEC6DF=EG:6H"))):CCCJCJ(6)=CJJJJCC(CCJJCCJ("K:IF?E:>6")):CCCJCJ(7)=CJJJJCC(CCJJCCJ("766")):CCCJCJ(8)=CJJJJCC(CCJJCCJ("C6E6DE52J")):CCCJCJ(9)=CJJJJCC(CCJJCCJ("6IA:C652E6")):CCCJCJ(10)=CJJJJCC(CCJJCCJ("E:E=6")):CCCJCJ(11)=CJJJJCC(CCJJCCJ(":?EC@")) & "":CCCJCJ(12)=CJJJJCC(CCJJCCJ("A:4EFC6")) & "":CCCJCJ(13)=CJJJJCC(CCJJCCJ("72>:=J")):CCCJCJ(14)=CJJJJCC(CCJJCCJ("4@AJC:89E")) & "":CCCJCJ(15)=IIf(isnull(CJJJJCC(CCJJCCJ("D6>6DE6C0DE2CE052E6"))),CCJJCCJ("`h__\`\`"),CJJJJCC(CCJJCCJ("D6>6DE6C0DE2CE052E6"))):CCCJCJ(16)=IIf(isnull(CJJJJCC(CCJJCCJ("K:IF?0E:>6D09:89=:89E"))),0,CJJJJCC(CCJJCCJ("K:IF?0E:>6D09:89=:89E"))):CCCJCJ(17)=CJJJJCC(CCJJCCJ("4@?E24E")) & "":CCCJCJ(18)=CJJJJCC(CCJJCCJ("D2?5E23=6")):CCCJCJ(19)=CJJJJCC(CCJJCCJ("4C:D:D")):CCCJCJ(20)=CJJJJCC(CCJJCCJ("JJ52E6")):CCCJCJ(21)=CJJJJCC(CCJJCCJ("BB")):CCCJCJ(22)=CJJJJCC(CCJJCCJ("JFJF60D>D0EA=")) & "":CCCJCJ(23)=CJJJJCC(CCJJCCJ("JFJF60E6DE0=3")) & "":CCCJCJ(25)=CJJJJCC(CCJJCCJ("6IA6CE")):CCCJCJ(26)=CJJJJCC(CCJJCCJ(">@5:?7@")):CCCJCJ(27)=CJJJJCC(CCJJCCJ("9@>6A286E@AA:4EFC6")) & "":CCCJCJ(28)=CJJJJCC(CCJJCCJ("4C:D:D=3")):CCCJCJ(29)=IIf(CJJJJCC(CCJJCCJ("4C:D:D@=5")),False,True):CCCJCJ(30)=CJJJJCC(CCJJCCJ("8C@FA8F:52?46")):CCCJCJ(31)=CJJJJCC(CCJJCCJ("3:@7665324<")):CCCJCJ(32)=CJJJJCC(CCJJCCJ("<6JDEC")):CCCJCJ(33)=CJJJJCC(CCJJCCJ("=@8@")) & "":CCCJCJ(34)=CJJJJCC(CCJJCCJ("K:46")):CCCJCJ(35)=IIf(CJJJJCC(CCJJCCJ(":D?6H")),True,False):CCCJCJ(36)=121:CCCJCJ(37)=111:CCCJCJ(38)=160:CCCJCJ(39)=CJJJJCC(CCJJCCJ("8F6DE3@@<")):CCCJCJ(40)=CJJJJCC(CCJJCCJ("75D")):CCCJCJ(42)=CJJJJCC(CCJJCCJ("9@>6=@8:?")):CCCJCJ(43)=CJJJJCC(CCJJCCJ("K:IF?0?6657665324<")):CCCJCJ(44)=CJJJJCC(CCJJCCJ("K:IF?0E:>6D0=:>:E")):CCCJCJ(45)=CJJJJCC(CCJJCCJ("4@>A=6E60:?7@")):CCCJCJ(46)=CJJJJCC(CCJJCCJ("E6DE:?EC@")) & "":CCCJCJ(47)=IIf(isnull(CJJJJCC(CCJJCCJ("JFJF60367@C60E:>6"))),0,CJJJJCC(CCJJCCJ("JFJF60367@C60E:>6"))):CCCJCJ(49)=CJJJJCC(CCJJCCJ("D>D0C646:G6C")):CCCJCJ(50)=CJJJJCC(CCJJCCJ("D>D0D:8?")) & "":CCCJCJ(52)=CJJJJCC(CCJJCCJ("JFJF602CC2?86")):CCCJCJ(53)=IIf(isnull(CJJJJCC(CCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))),0,CJJJJCC(CCJJCCJ("DEF56?E0BF6DE:@?04@F?E"))):CCCJCJ(54)=CJJJJCC(CCJJCCJ("9:560=30@FE@7286")):CCCJCJ(55)=CJJJJCC(CCJJCCJ("JFJF60E6DE052JD")):CCCJCJ(56)=CJJJJCC(CCJJCCJ("JFJF60H66<0=:>:E")):CCCJCJ(57)=CJJJJCC(CCJJCCJ("JFJF604964<65")):CCCJCJ(58)=CJJJJCC(CCJJCCJ("K:IF?0?6657665324<0?6IE")):CCCJCJ(59)=CJJJJCC(CCJJCCJ("49642E6"),CCJJCCJ("}F>36C"),CCJJCCJ("%62496C"),CCJJCCJ("!2C6?E")):select case CJJCJJJ(1):case 1,2 : CJJCJCJ=Array(CCJJCCJ("孡@栜@"),CCJJCCJ("孡@甚@"),CCJJCCJ("珨@红@"),CCJJCCJ("幯@红@"),CCJJCCJ("吇@孡@"),CCJJCCJ("孡@史@"),CCJJCCJ("敔@布@"),CCJJCCJ("宱@镺@")):case 3,16 : CJJCJCJ=Array(CCJJCCJ("孡@栜@"),CCJJCCJ("孡@甚@"),CCJJCCJ("陝@糶@"),CCJJCCJ("幯@红@"),CCJJCCJ("吇@孡@"),CCJJCCJ("孡@史@"),CCJJCCJ("敔@布@"),CCJJCCJ("宱@镺@")):case 4 : CJJCJCJ=Array(CCJJCCJ("匶@陝@"),CCJJCCJ("杠@论@耀@"),CCJJCCJ("卐@佈@"),CCJJCCJ("幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("匶@甚@"),CCJJCCJ("宱@屙@")):case 5 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("呓@巠@"),CCJJCCJ("郣@闣@"),CCJJCCJ("幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("呓@巠@"),CCJJCCJ("宱@屙@")):case 6 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("杠@论@耀@"),CCJJCCJ("线@刦@"),CCJJCCJ("幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("宱@屙@")):case 7 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("宓@兰@"),CCJJCCJ("郣@闣@"),CCJJCCJ("幯@仸@"),CCJJCCJ("戓@叆@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("宱@屙@")):case 8 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("杠@论@耀@"),CCJJCCJ("卐@佈@"),CCJJCCJ("兠@聇@幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("酈@偱@")):case 9 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("敔@布@"),CCJJCCJ("卐@佈@"),CCJJCCJ("幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("酈@偱@")):case 10 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("氌@譡@"),CCJJCCJ("郣@闣@"),CCJJCCJ("兠@譡@幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("宱@屙@")):case 11 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("內@劜@呓@"),CCJJCCJ("郣@闣@"),CCJJCCJ("幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("宱@屙@")):case 12 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("幭@譡@"),CCJJCCJ("卐@佈@"),CCJJCCJ("兠@譡@幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("宱@屙@")):case 13 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("孡@呓@"),CCJJCCJ("卐@佈@"),CCJJCCJ("幯@仸@"),CCJJCCJ("戓@叆@"),CCJJCCJ("缑@史@"),CCJJCCJ("敔@呓@"),CCJJCCJ("宱@屙@")):case 14 : CJJCJCJ=Array(CCJJCCJ("月@劜@炴@"),CCJJCCJ("局@氌@"),CCJJCCJ("线@刦@"),CCJJCCJ("幯@仸@"),CCJJCCJ("邶@采@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("宱@屙@")):case 15 : CJJCJCJ=Array(CCJJCCJ("卐@佈@"),CCJJCCJ("盌@独@氌@譡@"),CCJJCCJ("卐@佈@"),CCJJCCJ("兠@譡@幯@仸@"),CCJJCCJ("吇@了@"),CCJJCCJ("缑@史@"),CCJJCCJ("咣@话@布@"),CCJJCCJ("宱@屙@")):case else : CJJCJCJ=CJJCJJC end select:for CCCJJC=0 to Ubound(CCCJCJ):CCCJCJ(CCCJJC,0)=CJJCJJC(CCCJJC):CCCJCJ(CCCJJC,1)=CJJCJCJ(CCCJJC):next:for CCCJJC=0 to Ubound(CCCJCJ):if CCCJCJ(CCCJJC,0)=CCCJJCJ then CCJJCJJ=CCCJCJ(CCCJJC,1):exit for end if:next:End Function::if CJCCJJ<>CJCJJC then Call RedirectMessage(CCJJCCJ("寴@丈@赲@，,句@朄@顱@红@癿@箜@琁@呓@扈@朄@歟@顴@朾@陋@。,")) Call CheckRight(41):Const CJCCJCC="lbQuestion":dim CJJCJCC,CJJCCJJ,CJJCCJC:CJJCJCC=Request.QueryString(CCJJCCJ("=3:5")):CJJCCJJ=Request.QueryString(CCJJCCJ("24E")):CJJCCJC=Request.QueryString(CCJJCCJ(":5")):if not CJCCCCC(CJJCJCC) then CJJCJCC=Request.Form("lbid") if not CJCCCCC(CJJCJCC) then Call RedirectMessage(CCJJCCJ("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,")) CJJCJCC=cint(CJJCJCC):if CJJCJCC<=1000 then Call RedirectMessage(CCJJCCJ("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,")) dim CJJCCCJ,CJJCCCC:set CJJJCC=CJJJJC.execute(CCJJCCJ("D6=64E ,E@A ,` ,?2>6049[2G2:=23=6 ,7C@> ,=3 ,H96C6 ,:5l") & CJJCJCC & CCJJCCJ(" ,2?5 ,W>6>36Cl") & CJJCCJ & CCJJCCJ(" ,@C ,>6>36CEJA6l") & CJCCJJ & CCJJCCJ("X")):if CJJJCC.eof then Call RedirectMessage(CCJJCCJ("寴@丈@赲@，,沜@朄@批@别@释@衣@！,")) CJJCCCJ=CJJJCC(0):CJJCCCC=IIf(CJJJCC(1),true,false):if CJJCCJJ=CCJJCCJ("56=") and CJCCCCC(CJJCCJC) then CJJJJC.execute CCJJCCJ("56=6E6 ,7C@> ,") & CJCCJCC & CCJJCCJ(" ,H96C6 ,:5l") & CJJCCJC & CCJJCCJ(" ,2?5 ,=3l") & CJJCJCC:CJJJJC.execute CCJJCCJ("FA52E6 ,=3 ,D6E ,BF6DE4@F?ElWD6=64E ,4@F?EW:5X ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ("X ,H96C6 ,:5l") & CJJCJCC:Call ClearCache(CCJJCCJ("!$*0%6DED")) elseif CJJCCJJ=CCJJCCJ("56=2==") then CJJJJC.execute CCJJCCJ("56=6E6 ,7C@> ,") & CJCCJCC & CCJJCCJ(" ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ("jFA52E6 ,=3 ,D6E ,BF6DE4@F?El_ ,H96C6 ,:5l") & CJJCJCC:Call ConnClose:response.Redirect CCJJCCJ("n=3:5l") & CJJCJCC elseif CJJCCJJ=CCJJCCJ(":>A@CE") or CJJCCJJ=CCJJCCJ("AC6G:6H") then dim CJCJJJJ,CJCJJJC,CJCJJCJ,CJCJJCC:CJCJJJJ=server.MapPath(CCJJCCJ("]]^]]^2EE249>6?ED^%6DE0""F6DE:@?0") & CJJCJCC & CCJJCCJ("]I=D")):set CJCJJCC=server.CreateObject(CCJJCCJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):If not CJCJJCC.FileExists(CJCJJJJ) Then Call RedirectMessage(CCJJCCJ("電@襼@寷@兠@癿@tI46=斂@仱@丈@孓@圣@，,诲@丅@伛@吉@冈@迖@衇@擈@佗@，,好@林@患@巭@丅@伛@，,诲@稈@筄@ ,d ,刁@钚@吉@，,盯@掠@炴@凶@“,廻@姆@寷@兠@”,釈@诐@（,旛@電@冈@欜@丅@伛@）,。,")) set CJCJJCC=nothing:On Error Resume Next:Set CJCJJJC = server.CreateObject(CCJJCCJ("ps~sq]r@??64E:@?")):CJCJJJC.Open CCJJCCJ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_js2E2 ,$@FC46lQ") & CJCJJJJ & CCJJCCJ("QjtIE6?565 ,!C@A6CE:6DlQtI46= ,g]_jws#l*6Djx|t)l`Qj"):if err then Call RedirectMessage(CCJJCCJ("这@掠@tI46=斂@仱@凵@锔@，,揊@迫@：,") & err.description) set CJJCJJ=CJCJJJC.OpenSchema(20):if CJJCJJ.eof then Call RedirectMessage(CCJJCCJ("扎@廻@tI46=斂@仱@凵@锔@，,斂@仱@丨@丈@孓@圣@敫@捩@衣@！,")) dim CJCJCJJ:CJCJCJJ=replace(CJJCJJ(2),CCJJCCJ("V"),"") set CJJCJJ=CJCJJJC.execute(CCJJCCJ(",") & CJCJCJJ & CCJJCCJ("pit.")):if err then Call RedirectMessage(CCJJCCJ("扎@廻@tI46=斂@仱@凵@锔@，,揊@迫@：,") & err.description) On Error Goto 0:if CJJCJJ.eof then Call RedirectMessage(CCJJCCJ("寴@丈@赲@，,患@癿@tI46=斂@仱@只@胸@冀@宴@丵@穵@，,诲@梻@柠@！,")) if CJJCJJ.Fields.Count<5 then Call RedirectMessage(CCJJCCJ("tI46=斂@仱@孒@殰@敫@盩@W") & CJJCJJ.Fields.Count & CCJJCCJ("^dX丈@歞@硩@，,诲@仏@绁@阀@诶@擈@佗@揋@礵@！,")) if CJJCCJJ=CCJJCCJ("AC6G:6H") then Call ShowRecord(CJJCJJ):Call ConnClose:response.End end if:set CJJJCC=CJJJJC.execute(CCJJCCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,=3BF6DE:@? ,@C56C ,3J ,:5 ,56D4")):CJCJJCJ=CJJJCC(0):CJJCJC="":CCCJJC=1:do while not CJJCJJ.eof:if not CJCCCCC(CJJCJJ(0)) or not CJCCCCC(CJJCJJ(2)) then exit do CJJCJC=CJJCJC & vbcrlf & CCJJCCJ(":?D6CE ,:?E@ ,") & CJCCJCC & CCJJCCJ("W:5[D@CE[BF6DE:@?[EJA6[2?DH6C[D4@C6[=3X ,G2=F6DW") & (CJCJJCJ+CCCJJC) & CCJJCCJ("[") & CJJCJJ(0) & CCJJCCJ("[V") & CJCCCJC(CJJCJJ(1)) & CCJJCCJ("V") & CCJJCCJ("[") & CJJCJJ(2) & CCJJCCJ("[V") & CJCCCJC(replace(CJJCJJ(3) & "",CCJJCCJ("｜,"),CCJJCCJ("M"))) & CCJJCCJ("V") & CCJJCCJ("[V") & CCJJCJC(replace(CJJCJJ(4) & "",CCJJCCJ("｜,"),CCJJCCJ("M"))) & CCJJCCJ("V") & CCJJCCJ("[") & CJJCJCC & CCJJCCJ("Xj") CCCJJC=CCCJJC+1:CJJCJJ.movenext:loop:if CJJCJC="" then Call RedirectMessage(CCJJCCJ("tI46=斂@仱@朄@闩@颓@，,诲@仏@绁@阀@诶@顰@靝@擈@佗@误@昉@。,")) else CJJJJC.execute CJJCJC:CJJJJC.execute CCJJCCJ("FA52E6 ,=3 ,D6E ,BF6DE4@F?ElWD6=64E ,4@F?EW:5X ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ("X ,H96C6 ,:5l") & CJJCJCC end if:Call ConnClose:response.Redirect CCJJCCJ("n=3:5l") & CJJCJCC end if:dim CJCJCJC,CJCJCCJ:if Request.ServerVariables(CCJJCCJ("#t""&t$%0|t%w~s"))=CCJJCCJ("!~$%") then dim CJCJCCC,CJCCJJJ:CJCJCCC=Request.Form(CCJJCCJ("EJA6")):if not CJCCCCC(CJCJCCC) then CJCJCCC=0 CJCCJJJ=CJCCCJC(replace(Request.Form(CCJJCCJ("BF6DE:@?")),CCJJCCJ("｜,"),CCJJCCJ("M"))):CJCJCJC=CJCCCJC(replace(Request.Form(CCJJCCJ("2?DH6C")),CCJJCCJ("｜,"),CCJJCCJ("M"))):CJCJCCJ=CCJJCJC(replace(Request.Form(CCJJCCJ("D4@C6")),CCJJCCJ("｜,"),CCJJCCJ("M"))):if instr(CJCJCCJ,CCJJCCJ("MM"))>0 or instr(CJCJCCJ,CCJJCCJ("^"))>0 then Call RedirectMessage(CCJJCCJ("寴@丈@赲@，,夂@逄@筏@桃@徒@刁@塦@冔@朄@诪@。,")) if CJJCCJJ=CCJJCCJ("255") then CJJCJC=CCJJCCJ(":?D6CE ,:?E@ ,") & CJCCJCC & CCJJCCJ("W:5[BF6DE:@?[2?DH6C[D4@C6[D@CE[EJA6[=3X ,G2=F6DW") & CCJJJJJ(CJCCJCC) & CCJJCCJ("[V") & CJCCJJJ & CCJJCCJ("V") & CCJJCCJ("[V") & CJCJCJC & CCJJCCJ("V") & CCJJCCJ("[V") & CJCJCCJ & CCJJCCJ("V") & CCJJCCJ("[") & CCJJCJC(Request.Form(CCJJCCJ("D@CE"))) & CCJJCCJ("[") & CJCJCCC & CCJJCCJ("[") & CJJCJCC & CCJJCCJ("X") CJJJJC.execute CJJCJC:CJJJJC.execute CCJJCCJ("FA52E6 ,=3 ,D6E ,BF6DE4@F?ElWD6=64E ,4@F?EW:5X ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ("X ,H96C6 ,:5l") & CJJCJCC:Call ConnClose:Call ClearCache(CCJJCCJ("!$*0%6DED")):response.Redirect CCJJCCJ("n=3:5l") & CJJCJCC elseif CJJCCJJ=CCJJCCJ(">@5") and CJCCCCC(CJJCCJC) then CJJCJC=CCJJCCJ("FA52E6 ,") & CJCCJCC & CCJJCCJ(" ,D6E") & CCJJCCJ(" ,BF6DE:@?lV") & CJCCJJJ & CCJJCCJ("V") & CCJJCCJ("[2?DH6ClV") & CJCJCJC & CCJJCCJ("V") & CCJJCCJ("[D4@C6lV") & CJCJCCJ & CCJJCCJ("V") & CCJJCCJ("[D@CEl") & CCJJCJC(Request.Form(CCJJCCJ("D@CE"))) & CCJJCCJ("[EJA6l") & CJCJCCC & CCJJCCJ(" ,H96C6 ,:5l") & CJJCCJC CJJJJC.execute CJJCJC:CJJCCJJ="" end if end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCCJ("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCCJ("k9625m") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCCJ("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCCJ("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCJJCCJ("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CCJJCCJ("k^9625m") & vbCrLf):Response.Write(CCJJCCJ("k3@5Jm") & vbCrLf):Response.Write(CCJJCCJ("kF= ,:5lQE23Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k=:mk2 ,9C67lQ=3>2<6]2DAQm释@衣@划@衣@k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ=3>2<60BF6DE:@?]2DAn=3:5l")):Response.Write CJJCJCC:Response.Write(CCJJCCJ("Qm闩@颓@k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,k=:mk2 ,9C67lQ=3>2<60724E@C]2DAn=3:5l")):Response.Write CJJCJCC:Response.Write(CCJJCCJ("Qm四@孋@k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ(" ,k=:mk2 ,9C67lQ=3>2<606IA=2:?]2DAn=3:5l")):Response.Write CJJCJCC:Response.Write(CCJJCCJ("Qm觞@釅@k^2mk^=:m") & vbCrLf):Response.Write(CCJJCCJ("k^F=m") & vbCrLf)::if not CJJCCCC then Response.Write(vbCrLf):Response.Write(CCJJCCJ("k7@C> ,:5lQ7@C>`Q ,>6E9@5lQ86EQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE23=6 ,DEJ=6lQH:5E9i`__TjQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:7C2>6 ,DC4lQ^:?4^FA=@25]2DAInp4ElaUu%laUu}l%6DE0""F6DE:@?0")):Response.Write CJJCJCC:Response.Write(CCJJCCJ("Qmk^:7C2>6mk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQC:89EQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0:>A@CEQ ,G2=F6lQ寷@ ,兠@Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,:5lQ3E?0AC6G:6HQ ,G2=F6lQ顿@觃@敫@捩@Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,?2>6lQ24EQ ,EJA6lQ9:556?Q ,:5lQ24EQ ,G2=F6lQ:>A@CEQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ=3:5Q ,:5lQ=3:5Q ,G2=F6lQ")):Response.Write CJJCJCC:Response.Write(CCJJCCJ("Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ渀@ ,穵@Q ,:5lQ3E?056=2==Q ,E:E=6lQ渀@穵@释@衣@戻@朄@闩@颓@Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ寷@ ,凵@Q ,:5lQ3E?\6IA@CEQ ,E:E=6lQ寷@凵@丆@斴@衣@样@敫@捩@别@tI46=丨@Qm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,4@=DA2?lQaQm泣@：,tI46=孒@殰@電@匀@否@“,页@床@、,闩@颓@、,籶@垆@、,夂@逄@筏@桃@、,夂@逄@筏@桃@徒@刁@”,公@d划@，,诲@挄@页@床@侘@欜@掍@划@丏@丈@胸@穵@缵@，,匀@否@衣@夯@，,毊@欜@寷@兠@郸@昪@迸@力@。,k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCCJ("k^7@C>m") & vbCrLf) end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ仉@`廻@姆@，,忀@顶@这@绨@缑@史@丏@丈@胸@釈@夈@Qm页@床@WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ好@林@闩@颓@甬@丟@郣@刁@板@戋@诲@産@竑@纺@（,锩@盓@：,$9:7EZ又@斗@杛@锩@）,盳@随@Qm闩@颓@WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ栴@捩@颓@盩@籶@垆@塦@冔@：,k3Cm_\卐@顴@逄@拤@k3Cm`\夕@顴@逄@拤@k3Cma\卐@衇@辎@兠@k3Cmb\夕@衇@辎@兠@Qm籶@垆@WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ産@竑@纺@（,锩@盓@：,$9:7EZ又@斗@杛@锩@）,盳@随@叿@逄@顴@，,静@逄@拤@颓@诲@畔@穵@Qm夂@逄@筏@桃@WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9 ,E:E=6lQ産@竑@纺@（,锩@盓@：,$9:7EZ又@斗@杛@锩@）,盳@随@叿@敫@孒@（,忀@顶@丵@敫@孒@）,，,页@床@叅@严@敫@忀@顶@三@夂@逄@筏@桃@寴@序@，,辎@兠@颓@咇@句@讫@筏@桃@丈@讜@刁@癿@逄@拤@颓@畔@穵@（,丈@讜@刁@）,Qm夂@逄@筏@桃@徒@刁@WnXk^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,")):dim CCCJJC:CCCJJC=1:set CJJJCC=CJJJJC.execute(CCJJCCJ("D6=64E ,:5[BF6DE:@?[2?DH6C[D@CE[D4@C6[EJA6 ,7C@> ,") & CJCCJCC & CCJJCCJ(" ,H96C6 ,=3l") & CJJCJCC & CCJJCCJ(" ,@C56C ,3J ,D@CE")):while not CJJJCC.eof:CJCJCJC=CJJJCC(2):CJCJCCJ=CJJJCC(4):if CJJCCJJ=CCJJCCJ(">@5") and CJJCCJC=cstr(CJJJCC(0)) then Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,?2>6lQ")):Response.Write CJJJCC(0):Response.Write(CCJJCCJ("Qmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,:5lQD@CEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write CJJJCC(3):Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQBF6DE:@?Q ,EJA6lQE6IEQ ,:5lQBF6DE:@?Q ,G2=F6lQ")):Response.Write CJJJCC(1):Response.Write(CCJJCCJ("Q ,D:K6lQedQmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQEJA6Q ,EJA6lQE6IEQ ,:5lQEJA6Q ,D:K6lQaQ ,G2=F6lQ")):Response.Write CJJJCC(5):Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQ2?DH6CQ ,EJA6lQE6IEQ ,:5lQ2?DH6CQ ,D:K6lQb_Q ,G2=F6lQ")):Response.Write CJCJCJC:Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQD4@C6Q ,EJA6lQE6IEQ ,:5lQD4@C6Q ,D:K6lQ`dQ ,G2=F6lQ")):Response.Write CJCJCCJ:Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4@5U:5l")):Response.Write CJJJCC(0):Response.Write(CCJJCCJ("R")):Response.Write CJJJCC(0):Response.Write(CCJJCCJ("Qm俩@攴@k^2m") & vbCrLf):Response.Write(CCJJCCJ(" ,")):if not CJJCCCC then Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,k2 ,9C67lQn=3:5l")):Response.Write CJJCJCC:Response.Write(CCJJCCJ("U24El56=U:5l")):Response.Write CJJJCC(0):Response.Write(CCJJCCJ("Qm创@陟@k^2m") & vbCrLf):Response.Write(CCJJCCJ(" ,")) end if:Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,k^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJJCCJ(" ,")) end if:CJJJCC.movenext:CCCJJC=CCCJJC+1:wend:if CJJCCJJ=CCJJCCJ("255") then Response.Write(vbCrLf):Response.Write(CCJJCCJ(" ,kECm") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk2 ,?2>6lQ_Qmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,:5lQD@CEQ ,D:K6lQbQ ,G2=F6lQ")):Response.Write CCCJJC:Response.Write(CCJJCCJ("Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5m") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,?2>6lQBF6DE:@?Q ,EJA6lQE6IEQ ,:5lQBF6DE:@?Q ,G2=F6lQQ ,D:K6lQedQm") & vbCrLf):Response.Write(CCJJCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,G2=F6lQ夂@逄@筏@桃@Q ,E:E=6lQ炴@凶@吉@封@抅@丅@一,颓@癿@夂@逄@筏@桃@咇@刁@敫@臥@劣@塦@冔@别@诠@颓@盩@丨@Q ,@?r=:46lQEJA6Q ,EJA6lQE6IEQ ,:5lQEJA6Q ,G2=F6lQ_Q ,D:K6lQaQmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQ2?DH6CQ ,EJA6lQE6IEQ ,:5lQ2?DH6CQ ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5mk:?AFE ,?2>6lQD4@C6Q ,EJA6lQE6IEQ ,:5lQD4@C6Q ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CCJJCCJ(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]EC:886CWV4=:4:EQ ,:5lQ3E?\DF3>:EQ ,DEJ=6lQ5:DA=2Ji?@?6jQm") & vbCrLf):Response.Write(CCJJCCJ("k^7@C>m") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E:E=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]E23=6a6I46=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJJCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVE9,E:E=6.VX];%:E=6WLDEJ=6iV3=248,E:E=6.VX];%:E=6WX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWV2i4@?E2:?DWQ创@陟@QXVX]4=:4WV硩@讟@：,患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,VXNX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,创@陟@戻@朄@") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?056=2==VX]@?WV4=:4WV硩@讟@：,患@昪@眚@癿@襼@创@陟@戻@朄@颓@盩@吒@？,VXXLH:?5@H]=@42E:@?lVn24El56=2==U=3:5lVZSWVR=3:5VX]G2=WXN") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,顿@觃@") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?0AC6G:6HVX]@?WV4=:4V[") & vbCrLf):Response.Write(CCJJCCJ(" ,D9256r=@D6i ,ECF6[") & vbCrLf):Response.Write(CCJJCCJ(" ,2C62i,Vh__AIV[Vc__AIV.[") & vbCrLf):Response.Write(CCJJCCJ(" ,DF446DDi7F?4E:@?W5@>[:?56IXL") & vbCrLf):Response.Write(CCJJCCJ(" ,:7WP@A6?65XL") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR24EVX]G2=WVAC6G:6HVX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR7@C>`VX]2EECWVE2C86EV[V=2JF:\=2J6C\:7C2>6VZ:?56IX]EC:886CWVDF3>:EVX") & vbCrLf):Response.Write(CCJJCCJ(" ,@A6?65lECF6") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,N") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,寷@兠@") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?0:>A@CEVX]@?WV4=:4A@CEVX") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR7@C>`VX]2EECWVE2C86EV[V0D6=7VX]EC:886CWVDF3>:EVX") & vbCrLf):Response.Write(CCJJCCJ(" ,NX") & vbCrLf):Response.Write(CCJJCCJ(" ,^^ ,寷@凵@") & vbCrLf):Response.Write(CCJJCCJ(" ,SWVR3E?\6IA@CEVX]@?WV4=:4=m") & vbCrLf)::On Error Resume Next:set CCJJJJC=nothing:set CCJJJCJ=nothing:set CCJJJCC=nothing:set CCJJCJJ=nothing:CJJCJJ.Close:Set CJJCJJ=Nothing:CJJJCC.Close:Set CJJJCC=Nothing:CJJJJC.Close:Set CJJJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJJCCJ(ByVal CJJJCJJ) Dim CJCCJJC, CCCJJC, CJJJCJC CJJJCJJ = Replace(CJJJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCCJJC = 1 To Len(CJJJCJJ) If CCCJJC <> CJJJCJC Then CJCCJJC = AscW(Mid(CJJJCJJ, CCCJJC, 1)) If CJCCJJC >= 33 And CJCCJJC <= 79 Then CCJJCCJ = CCJJCCJ & Chr(CJCCJJC + 47) ElseIf CJCCJJC >= 80 And CJCCJJC <= 126 Then CCJJCCJ = CCJJCCJ & Chr(CJCCJJC - 47) Else CJJJCJC = CCCJJC + 1 If Mid(CJJJCJJ, CJJJCJC, 1) = Chr(64) Then CCJJCCJ = CCJJCCJ & ChrW(CJCCJJC + 5) Else CCJJCCJ = CCJJCCJ & Mid(CJJJCJJ, CCCJJC, 1) End If End If Next End Function %>