<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CCJCJ, CCJCC,CCCJJ, CCCJC, CCCCJ:Set CCJCJ = server.CreateObject(CJCJCJC("ps~sq]r@??64E:@?")):CCJCJ.open Application(CJCJCJC("r@??64E:@?$EC:?8")):Set CCJCC=CCJCJ::Dim CCCCC,CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC:Dim CJCJJJ,CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC:Dim CJCCCJ,CJCCCC,CCJJJJ:Dim CCJJJC:CCJJJC=Trim(Request.Cookies(CJCJCJC("!$*|t|qt#"))):if CCJJJC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CCCCC>0 then CCCCJ=CJCJCJC("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(CJCJCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,")) Call SetMemberCookie(CCCCC,CJJJJJ) End IF end if:::Sub CheckLogined():if CCCCC=0 then Call ClearMemberCookie:Call ConnClose:dim CCJJCJ:CCJJCJ=trim(request.QueryString(CJCJCJC("D49@@="))):if isnumeric(CCJJCJ) then response.Redirect CJCJCJC("^>^G2?E^R^D49@@=^") & CCJJCJ & CJCJCJC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CJCJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJCJC("!$*|t|qt#"))="":CCCCC=0:CJJCJJ=0:CJJJJJ=Empty:CJJJCC=0:CJJCCJ=0:CJJCJC=0:CJJJCJ=0:CJCJJJ=False:CJCCCC=False:CCJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:CCJJCC=split(CCJJJC,CJCJCJC("]")):if ubound(CCJJCC)<>2 then Call ClearMemberCookie elseif not isnumeric(CCJJCC(0)) or len(CCJJCC(1))<>32 or len(CCJJCC(2))<>32 then Call ClearMemberCookie else CCJCJJ=CCJJCC(1):for CCJCJC=1 to len(CCJCJJ):CCJCCJ=mid(CCJCJJ,CCJCJC,1):if isnumeric(CCJCCJ) then CCJCCC=CCJCCC & CCJCCJ if len(CCJCCC)=7 then exit for next:CCJCJJ=CCJJCC(2):if CCJCCC<>mid(CCJCJJ,6,7) then Call ClearMemberCookie else CCJCCJ=mid(CCJCJJ,18,10)/2:if CCJCCJ6"), CJCJCJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJCJC("kD4C:AE"), CJCJCJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJJC=new RegExp:CCCJJC.Pattern=CJCJCJC("@?W,2\K.ZXl"):CCCJJC.IgnoreCase = True:CCCJJC.Global=True:str=CCCJJC.Replace(str,CJCJCJC("@?S`U6BF2=Dj")):set CCCJJC=nothing:CJJCJJC=str End If:End Function:Function IIf(CJCCJJJ, CJCCJJC, CJCCJCJ):if isnull(CJCCJJJ) or isempty(CJCCJJJ) then IIf = CJCCJCJ elseif CJCCJJJ Then IIf = CJCCJJC Else IIf = CJCCJCJ end if:End Function:Const CJJJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCJCC,CJCCCJJ):dim CCJJCC:CCJJCC=CJCCJCC & "=" & CJCCCJJ & CJCJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCJC("$6E\r@@<:6"),CCJJCC):End Sub:::::::Function CJJCJCC(CJJJCCJ):if isnull(CJJJCCJ) or trim(CJJJCCJ)="" or not isnumeric(CJJJCCJ) then CJJCJCC=false else Dim CCCJJC:Set CCCJJC = New RegExp:CCCJJC.Pattern = CJCJCJC("/-5ZS"):CCCJJC.IgnoreCase = True:CJJCJCC = CCCJJC.test(CJJJCCJ):set CCCJJC=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CJCJJJJ.close : set CJCJJJJ=nothing:CCCJC.Close : Set CCCJC=Nothing:CCCJJ.Close : Set CCCJJ=Nothing:CJCJJJC.Close : Set CJCJJJC = Nothing:CCJCJ.Close : Set CCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCJC("!$*0|6DD286"),server.URLEncode(CJCCCJC)):Response.Redirect CJCJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::Function CJCJJCJ(ByVal CJCJJCC,style):if not isdate(CJCJJCC) then CJCJJCJ=CJCJJCC:exit function end if:dim CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:CJCJJCC=cdate(CJCJJCC):CCCJCJ=Year(CJCJJCC):CCCJCC=Month(CJCJJCC):CCCCJJ=Day(CJCJJCC):select case style:case 0:CJCJJCJ=CCCJCJ & CJCJCJC("\") & right(0 & CCCJCC,2) & CJCJCJC("\") & right(0 & CCCCJJ,2):case 1:CJCJJCJ=CCCJCJ & right(0 & CCCJCC,2) & right(0 & CCCCJJ,2):case 2:CJCJJCJ=right(CCCJCJ,2) & CJCJCJC("\") & right(0 & CCCJCC,2) & CJCJCJC("\") & right(0 & CCCCJJ,2):case 3:CJCJJCJ=CCCJCJ & CJCJCJC("\") & right(0 & CCCJCC,2):case 4:CJCJJCJ=right(0 & CCCJCC,2) & CJCJCJC("\") & right(0 & CCCCJJ,2):case 5:CJCJJCJ=right(0 & CCCCJJ,2):case 6:CJCJJCJ=CCCJCJ & CJCJCJC("幯@") & right(0 & CCCJCC,2) & CJCJCJC("會@") & right(0 & CCCCJJ,2) & CJCJCJC("无@"):case else CJCJJCJ=CJCJJCC:end select:End Function::::::::::::::::::::::Call CheckLogined:if not CJCJJJ then Call RedirectMessage(CJCJCJC("徾@琁@箜@琁@糶@绚@M寴@丈@赲@，,患@沜@朄@迖@兠@诠@顰@靝@癿@朾@陋@！,")) dim CCJJCJ,CCCCCJ(38):CCJJCJ=CJJCJC:if not CJJCJCC(CCJJCJ) or CCJJCJ=0 then server.Transfer CJCJCJC("=@8:?]2DA") end if:CCCCJ=CJCJCJC("D6=64E ,E@A ,` ,;:2@H6:[EJA6[4FDE@>8C@FA[D:5632C0@E96C[E6DEC6DF=EG:6H[>2I>6>36C[766[C6E6DE52J[6IA:C652E6[E:E=6[>6>36C0EJA60?2>6[4@AJC:89E[A:4EFC6[DEF56?E2AA62=[6>2:=0D>EA[6>2:=0=@8:??2>6[6>2:=0=@8:?A2DD[6>2:=07C@>[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 ,7C@> ,G0D49@@= ,H96C6 ,:5l") & CCJJCJ:set CCCJJ=CCJCJ.execute(CCCCJ):if CCCJJ.eof then Call RedirectMessage(CJCJCJC("丨@囸@徾@琁@罌@M寴@丈@赲@，,沜@朄@批@别@诠@卐@佈@W") & CCJJCJ & CJCJCJC("X我@患@丈@屙@争@诠@卐@佈@，,诲@三@宝@月@聏@糶@！,")) CCCCCJ(0)=CCCJJ(0) & "":CCCCCJ(1)=CCCJJ(1):CCCCCJ(3)=CCCJJ(2) & "":CCCCCJ(4)=CCCJJ(3) & "":CCCCCJ(5)=CCCJJ(4):CCCCCJ(6)=CCCJJ(5):CCCCCJ(7)=CCCJJ(6):CCCCCJ(8)=CCCJJ(7):CCCCCJ(9)=CCCJJ(8):CCCCCJ(10)=CCCJJ(9) & "":CCCCCJ(11)=CCCJJ(11) & "":CCCCCJ(12)=CCCJJ(12) & "":CCCCCJ(14)=CCCJJ(14) & "":CCCCCJ(15)=CCCJJ(15) & "":CCCCCJ(16)=CCCJJ(16) & "":CCCCCJ(17)=CCCJJ(17) & "":CCCCCJ(18)=CCCJJ(18):CCCCCJ(19)=IIf(CCCJJ(19),True,False):CCCCCJ(20)=CCCJJ(20):CCCCCJ(25)=CCCJJ(21):CCCCCJ(27)=CCCJJ(22):CCCCCJ(28)=CCCJJ(23):CCCCCJ(29)=IIf(CCCJJ(24),False,True):CCCCCJ(30)=CCCJJ(25):CCCCCJ(31)=CCCJJ(26):CCCCCJ(32)=CCCJJ(27):CCCCCJ(33)=CCCJJ(28):CCCCCJ(34)=CCCJJ(29):CCCCCJ(35)=IIf(CCCJJ(30),True,False):CCCCCJ(36)=121:CCCCCJ(37)=111:CCCCCJ(38)=160:if isNull(CCCCCJ(7)) then CCCCCJ(7)=0 if not isdate(CCCCCJ(9)) then CCCCCJ(9)=Date+2 else CCCCCJ(9)=cdate(CCCCCJ(9)) if CCCCCJ(9)V ,E2C86ElV03=2?k^2m") if not CJJCJCC(CCCCCJ(20)) then CCCCCJ(20)=7 select case CCCCCJ(1):case 1,2,16:CCCCCJ(36)=159:case 4,5,6,10,11:CCCCCJ(36)=190:CCCCCJ(37)=178:CCCCCJ(38)=191:case 7,13:CCCCCJ(36)=164:CCCCCJ(37)=178:CCCCCJ(38)=179:end select:Function CJJCCCC(CJCCCCC):dim CCCCCC(7,1),CCJCJC,CJJJJJJ,CJJJJJC:CJJJJJJ=Array(CJCJCJC("$49@@="),CJCJCJC("$EF56?E"),CJCJCJC("s6AE"),CJCJCJC("vC256"),CJCJCJC("r=2DD>2E6"),CJCJCJC("}F>36C"),CJCJCJC("%62496C"),CJCJCJC("!2C6?E")):select case CCCCCJ(1):case 1,2 : CJJJJJC=Array(CJCJCJC("孡@栜@"),CJCJCJC("孡@甚@"),CJCJCJC("珨@红@"),CJCJCJC("幯@红@"),CJCJCJC("吇@孡@"),CJCJCJC("孡@史@"),CJCJCJC("敔@布@"),CJCJCJC("宱@镺@")):case 3,16 : CJJJJJC=Array(CJCJCJC("孡@栜@"),CJCJCJC("孡@甚@"),CJCJCJC("陝@糶@"),CJCJCJC("幯@红@"),CJCJCJC("吇@孡@"),CJCJCJC("孡@史@"),CJCJCJC("敔@布@"),CJCJCJC("宱@镺@")):case 4 : CJJJJJC=Array(CJCJCJC("匶@陝@"),CJCJCJC("杠@论@耀@"),CJCJCJC("卐@佈@"),CJCJCJC("幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("匶@甚@"),CJCJCJC("宱@屙@")):case 5 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("呓@巠@"),CJCJCJC("郣@闣@"),CJCJCJC("幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("呓@巠@"),CJCJCJC("宱@屙@")):case 6 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("杠@论@耀@"),CJCJCJC("线@刦@"),CJCJCJC("幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("宱@屙@")):case 7 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("宓@兰@"),CJCJCJC("郣@闣@"),CJCJCJC("幯@仸@"),CJCJCJC("戓@叆@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("宱@屙@")):case 8 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("杠@论@耀@"),CJCJCJC("卐@佈@"),CJCJCJC("兠@聇@幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("酈@偱@")):case 9 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("敔@布@"),CJCJCJC("卐@佈@"),CJCJCJC("幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("酈@偱@")):case 10 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("氌@譡@"),CJCJCJC("卐@佈@"),CJCJCJC("兠@譡@幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("宱@屙@")):case 11 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("內@劜@呓@"),CJCJCJC("郣@闣@"),CJCJCJC("幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("宱@屙@")):case 12 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("幭@譡@"),CJCJCJC("卐@佈@"),CJCJCJC("兠@譡@幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("宱@屙@")):case 13 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("孡@呓@"),CJCJCJC("卐@佈@"),CJCJCJC("幯@仸@"),CJCJCJC("戓@叆@"),CJCJCJC("缑@史@"),CJCJCJC("敔@呓@"),CJCJCJC("宱@屙@")):case 14 : CJJJJJC=Array(CJCJCJC("月@劜@炴@"),CJCJCJC("局@氌@"),CJCJCJC("线@刦@"),CJCJCJC("幯@仸@"),CJCJCJC("邶@采@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("宱@屙@")):case 15 : CJJJJJC=Array(CJCJCJC("卐@佈@"),CJCJCJC("盌@独@氌@譡@"),CJCJCJC("卐@佈@"),CJCJCJC("兠@譡@幯@仸@"),CJCJCJC("吇@了@"),CJCJCJC("缑@史@"),CJCJCJC("咣@话@布@"),CJCJCJC("宱@屙@")):case else : CJJJJJC=CJJJJJJ end select:for CCJCJC=0 to Ubound(CCCCCC):CCCCCC(CCJCJC,0)=CJJJJJJ(CCJCJC):CCCCCC(CCJCJC,1)=CJJJJJC(CCJCJC):next:for CCJCJC=0 to Ubound(CCCCCC):if CCCCCC(CCJCJC,0)=CJCCCCC then CJJCCCC=CCCCCC(CCJCJC,1):exit for end if:next:End Function:::if not CCCCCJ(30) then Call RedirectMessage(CJCJCJC("糶@绚@揋@礵@M寴@丈@赲@，,患@癿@糶@绚@丈@攪@拼@诠@劚@胸@！,")) Const CJJCJJJ="GroupGuidance_Member":dim CJJJJCJ,CJJJJCC,CJJJCJJ:CJJJJCJ=request.querystring("act"):CJJJJCC=request(CJCJCJC(":5")):CJJJCJJ=request.querystring(CJCJCJC("4@FCD6:5")):if CJJJJCJ=CJCJCJC("42?46=") then CCCCJ=CJCJCJC("FA52E6 ,") & CJJCJJJ & CJCJCJC(" ,D6E") & CJCJCJC(" ,7@4FDl_") & CJCJCJC("[7@4FD0C62D@?l?F==") & CJCJCJC("[7@4FD0@3D6CG6l?F==") & CJCJCJC(" ,H96C6 ,4@FCD6:5l") & CJJJCJJ & CJCJCJC(" ,2?5 ,:5l") & CJJJJCC:CCJCJ.execute CCCCJ:CJJJJCJ="" end if:if Request.ServerVariables(CJCJCJC("#t""&t$%0|t%w~s"))=CJCJCJC("!~$%") then if CJJJJCJ=CJCJCJC("255") then CCCCJ=CJCJCJC("FA52E6 ,") & CJJCJJJ & CJCJCJC(" ,D6E") & CJCJCJC(" ,7@4FDl`") & CJCJCJC("[7@4FD052E6E:>6l86E52E6WX") & CJCJCJC("[7@4FD0C62D@?lV") & CJJCJJC(request.form(CJCJCJC("7@4FD0C62D@?"))) & CJCJCJC("V") & CJCJCJC("[7@4FD0@3D6CG6lV") & CJJCJJC(request.form(CJCJCJC("7@4FD0@3D6CG6"))) & CJCJCJC("V") & CJCJCJC(" ,H96C6 ,4@FCD6:5l") & CJJJCJJ & CJCJCJC(" ,2?5 ,:5l") & CJJJJCC CCJCJ.execute CCCCJ:CJJJJCJ="" elseif CJJJJCJ=CJCJCJC(">@5") then CCCCJ=CJCJCJC("FA52E6 ,") & CJJCJJJ & CJCJCJC(" ,D6E") & CJCJCJC(" ,7@4FD0C62D@?lV") & CJJCJJC(request.form(CJCJCJC("7@4FD0C62D@?"))) & CJCJCJC("V") & CJCJCJC("[7@4FD0@3D6CG6lV") & CJJCJJC(request.form(CJCJCJC("7@4FD0@3D6CG6"))) & CJCJCJC("V") & CJCJCJC(" ,H96C6 ,4@FCD6:5l") & CJJJCJJ & CJCJCJC(" ,2?5 ,:5l") & CJJJJCC CCJCJ.execute CCCCJ:CJJJJCJ="" end if end if:Response.Write(vbCrLf):Response.Write(CJCJCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJCJC("k9625m") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJCJC("kE:E=6m缑@辌@衣@样@k^E:E=6m") & vbCrLf):Response.Write(CJCJCJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^DEJ=6]4DDQm") & vbCrLf):Response.Write(CJCJCJC("kDEJ=6m") & vbCrLf):Response.Write(CJCJCJC("3@5J ,L ,>2C8:?i ,_j ,N") & vbCrLf):Response.Write(CJCJCJC("R3E?\DF3>:E ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCJCJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCJCJC("k^9625m") & vbCrLf):Response.Write(CJCJCJC("k3@5Jm") & vbCrLf):Response.Write(CJCJCJC("k7@C> ,>6E9@5lQA@DEQm") & vbCrLf):Response.Write(CJCJCJC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCJC(" ,kE9m床@史@k^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,kE9m兮@泣@寴@豜@k^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,kE9m无@朚@k^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,kE9m兮@泣@厚@四@k^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,kE9m覽@寚@讫@彐@k^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJC(" ,")):If CJJJJCJ=CJCJCJC("255") Then Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5mkD6=64E ,?2>6lQ:5Q ,C6BF:C65m") & vbCrLf):Response.Write(CJCJCJC(" ,")):set CCCJJ=CCJCJ.execute(CJCJCJC("D6=64E ,:5[C62=?2>6[?F>36C ,7C@> ,G0") & CJJCJJJ & CJCJCJC(" ,H96C6 ,4@FCD6:5l") & CJJJCJJ & CJCJCJC(" ,2?5 ,7@4FDl_")):while not CCCJJ.eof:response.write CJCJCJC("k@AE:@? ,G2=F6lV") & CCCJJ(0) & CJCJCJC("Vm") & CCCJJ(1) & CJCJCJC(" ,,") & CCCJJ(2) & CJCJCJC(".k^@AE:@?m") CCCJJ.movenext:wend:Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,k^D6=64Emk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5m")):Response.Write Date:Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ7@4FD0C62D@?Q ,D:K6lQc_Q ,C6BF:C65mk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ7@4FD0@3D6CG6Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]4=:4@5") Then set CCCJJ=CCJCJ.execute(CJCJCJC("D6=64E ,E@A ,` ,:5[C62=?2>6[52E6E:>6[7@4FD0C62D@?[7@4FD0@3D6CG6 ,7C@> ,G0") & CJJCJJJ & CJCJCJC(" ,H96C6 ,4@FCD6:5l") & CJJJCJJ & CJCJCJC(" ,2?5 ,7@4FDl`")):Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCJC(" ,kE5mk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJJ(1):Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJJCJ(CCCJJ(2),0):Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ7@4FD0C62D@?Q ,G2=F6lQ")):Response.Write CCCJJ(3):Response.Write(CJCJCJC("Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5mk:?AFE ,EJA6lQE6IEQ ,?2>6lQ7@4FD0@3D6CG6Q ,G2=F6lQ")):Response.Write CCCJJ(4):Response.Write(CJCJCJC("Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEiSWVR3E?\DF3>:EVX]4=:46[52E6E:>6[7@4FD0C62D@?[7@4FD0@3D6CG6 ,7C@> ,G0") & CJJCJJJ & CJCJCJC(" ,H96C6 ,4@FCD6:5l") & CJJJCJJ & CJCJCJC(" ,2?5 ,7@4FDl` ,@C56C ,3J ,52E6E:>6 ,56D4")):while not CCCJJ.eof:Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCJCJC:Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CCCJJ(1):Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCJJCJ(CCCJJ(2),0):Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5m")):Response.Write CCCJJ(3):Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5m")):Response.Write CCCJJ(4):Response.Write(CJCJCJC("k^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQn24El>@5U:5l")):Response.Write CCCJJ(0):Response.Write(CJCJCJC("U4@FCD6:5l")):Response.Write CJJJCJJ:Response.Write(CJCJCJC("Qm俩@攴@k^2m ,纡@调@ ,刁@双@浆@诐@ ,k2 ,9C67lQn24El42?46=U:5l")):Response.Write CCCJJ(0):Response.Write(CJCJCJC("U4@FCD6:5l")):Response.Write CJJJCJJ:Response.Write(CJCJCJC("Qm发@涃@兮@泣@k^2mk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJC(" ,")):CCCJJ.movenext:CCJCJC=CCJCJC+1:wend:Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,kECm") & vbCrLf):Response.Write(CJCJCJC(" ,kE5 ,4@=DA2?lQeQ ,2=:8?lQC:89EQmk2 ,9C67lQn24El255U4@FCD6:5l")):Response.Write CJJJCJJ:Response.Write(CJCJCJC("Qm斫@墙@兮@泣@k^2mk^E5m") & vbCrLf):Response.Write(CJCJCJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJCJC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CJCJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJCJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,:5lQ3E?\DF3>:EQm") & vbCrLf):Response.Write(CJCJCJC("k^7@C>m") & vbCrLf):Response.Write(CJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJC("kD4C:AE ,DC4lQ^$4C:AED^:7C2>6\C6D:K6C^:7C2>6#6D:K6C]4@?E6?E(:?5@H]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJCJC("kD4C:AEm") & vbCrLf):Response.Write(CJCJCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJCJC("NXj") & vbCrLf):Response.Write(CJCJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJCJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCCJJ=nothing:set CJJCCJC=nothing:set CJJCCCJ=nothing:set CJJCCCC=nothing:CCCJC.Close:Set CCCJC=Nothing:CCCJJ.Close:Set CCCJJ=Nothing:CCJCJ.Close:Set CCJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CJCJCJC(ByVal CJCJCJJ) Dim CJJJCJC, CCJCJC, CJJJCCJ CJCJCJJ = Replace(CJCJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CCJCJC = 1 To Len(CJCJCJJ) If CCJCJC <> CJJJCCJ Then CJJJCJC = AscW(Mid(CJCJCJJ, CCJCJC, 1)) If CJJJCJC >= 33 And CJJJCJC <= 79 Then CJCJCJC = CJCJCJC & Chr(CJJJCJC + 47) ElseIf CJJJCJC >= 80 And CJJJCJC <= 126 Then CJCJCJC = CJCJCJC & Chr(CJJJCJC - 47) Else CJJJCCJ = CCJCJC + 1 If Mid(CJCJCJJ, CJJJCCJ, 1) = Chr(64) Then CJCJCJC = CJCJCJC & ChrW(CJJJCJC + 5) Else CJCJCJC = CJCJCJC & Mid(CJCJCJJ, CCJCJC, 1) End If End If Next End Function %>