<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Function CJCCJJJ(CCJJCCJ):Dim str,CJCCJC:str = Trim(CCJJCCJ):If IsNull(str) Or str = "" Then
CJCCJJJ = ""
else
str=Replace(str, CCJJCJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCJJCJC("k:7C2>6"), CCJJCJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCJJCJC("kD4C:AE"), CCJJCJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCJC=new RegExp:CJCCJC.Pattern=CCJJCJC("@?W,2\K.ZXl"):CJCCJC.IgnoreCase = True:CJCCJC.Global=True:str=CJCCJC.Replace(str,CCJJCJC("@?S`U6BF2=Dj")):set CJCCJC=nothing:CJCCJJJ=str
End If:End Function:Function IIf(CCJJCCC, CCJCJJJ, CCJCJJC):if isnull(CCJJCCC) or isempty(CCJJCCC) then
IIf = CCJCJJC
elseif CCJJCCC Then
IIf = CCJCJJJ
Else
IIf = CCJCJJC
end if:End Function:Const CJCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCJCJCJ,CCJCJCC):dim CJCCCJ:CJCCCJ=CCJCJCJ & "=" & CCJCJCC & CCJJCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJJCJC("$6E\r@@<:6"),CJCCCJ):End Sub:::::::Function CJCCJCJ(CCJJCC):if isnull(CCJJCC) or trim(CCJJCC)="" or not isnumeric(CCJJCC) then
CJCCJCJ=false
else
Dim CJCCJC:Set CJCCJC = New RegExp:CJCCJC.Pattern = CCJJCJC("/-5ZS"):CJCCJC.IgnoreCase = True:CJCCJCJ = CJCCJC.test(CCJJCC):set CJCCJC=nothing
end if:End Function:::sub Alert(ByVal CJCCJCC):Call ConnClose:CJCCJCC=replace(CJCCJCC,vbcrlf,CCJJCJC("-?")):CJCCJCC=replace(CJCCJCC,CCJJCJC("V"),CCJJCJC("-V"))
response.Charset=CCJJCJC("FE7\g"):response.write CCJJCJC("kD4C:AEm2=6CEWV") & CJCCJCC & CCJJCJC("VXj9:DE@CJ]324<WXk^D4C:AEm")
response.end:end sub::Sub ConnClose():On Error Resume Next:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CCJJJJJ.close : set CCJJJJJ=nothing:CCCJJC.Close : Set CCCJJC=Nothing:CCCJJJ.Close : Set CCCJJJ=Nothing:CCJJJJC.Close : Set CCJJJJC = Nothing:CCJCCJ.Close : Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJJCJC("!$*0|6DD286"),server.URLEncode(CJCCJCC)):Response.Redirect CCJJCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::Function CCJJJCJ(CCJCCJJ,str):dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:CCJCJC=ucase(CCJCCJJ):CCJCJJ=str:if CCJCJJ="" then
CCJCJJ=request.cookies(CCJCJC):if CCJCJJ="" then
CCJJJCJ=""
else
CCJCJJ=strreverse(CCJCJJ):CCJJJJ=len(CCJCJJ):for CJCCCC=1 to CCJJJJ-1 step 2:CCJJCJ=mid(CCJCJJ,CJCCCC,1):CCJJCC=mid(CCJCJJ,CJCCCC+1,1):CCJJJC=CCJJJC & CCJJCC & CCJJCJ:next:CCJJJC=replace(CCJJJC,CCJJCJC("L0N"),CCJJCJC(" ,")):CCJJJC=replace(CCJJJC,CCJJCJC("LIN"),CCJJCJC("Y")):CCJJJC=replace(CCJJJC,CCJJCJC("L:N"),CCJJCJC("^")):CCJJJCJ=trim(CCJJJC)
end if
else
if Len(CCJCJJ) Mod 2=1 then CCJCJJ=CCJCJJ & CCJJCJC(" ,")
CCJCJJ=replace(CCJCJJ,CCJJCJC(" ,"),CCJJCJC("L0N")):CCJCJJ=replace(CCJCJJ,CCJJCJC("Y"),CCJJCJC("LIN")):CCJCJJ=replace(CCJCJJ,CCJJCJC("^"),CCJJCJC("L:N")):CCJJJJ=len(CCJCJJ):for CJCCCC=1 to CCJJJJ-1 step 2:CCJJCJ=mid(CCJCJJ,CJCCCC,1):CCJJCC=mid(CCJCJJ,CJCCCC+1,1):CCJJJC=CCJJJC & CCJJCC & CCJJCJ:next:CCJJJC=Trim(strreverse(CCJJJC)):CCJJJCJ=CCJJJC:response.cookies(CCJCJC)=CCJJJC
end if:End Function::::Dim CCJCCJ, CCJCCC,CCCJJJ, CCCJJC, CCCJCJ:Set CCJCCJ = server.CreateObject(CCJJCJC("ps~sq]r@??64E:@?")):CCJCCJ.open Application(CCJJCJC("r@??64E:@?$EC:?8")):Set CCJCCC=CCJCCJ::Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ:Dim CJJCCJC:CJJCCJC=Trim(Request.Cookies(CCJJCJC("!$*|t|qt#"))):if CJJCCJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCJCC>0 then
CCCJCJ=CCJJCJC("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") & CCCCJJ & CCJJCJC("V ,2?5 ,:5l") & CCCJCC
set CCCJJJ=CCJCCJ.execute(CCCJCJ):If CCCJJJ.EOF Then
Call ClearMemberCookie
Else
CCCCJC=CCCJJJ(2) & "":CCCCCJ=CCCJJJ(3):CCCCCC=CCCJJJ(5):CJJJJJJ=CCCJJJ(6):CJJJJJC=CCCJJJ(9):CJJJJCJ=CCCJJJ(15):CJJJCJJ=CCCJJJ(0):CJJCJCC=CCCJJJ(1):CJJCJCJ=CCCJJJ(11) & "":CJJJCJC=CCCJJJ(10) & "":CJJJJCC=CCCJJJ(12):CJJJCCJ=CCCJJJ(14):CJJJCCC=CCCJJJ(13):CJJCJJJ=CCCJJJ(7) & "":CJJCJJC=CCCJJJ(4):CJJCCJJ=CCCJJJ(8):if isnull(CJJJJCJ) then CJJJJCJ=0
if isnull(CJJJJJC) or CJJJJJC=0 then CJJJJJC=CCCCCJ
if isnull(CJJCJJC) then CJJCJJC=0
if isnull(CCCCCC) then CCCCCC=0
if instr(CCJJCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCCJJ)>0 then Call RedirectMessage(CCJJCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCJCC,CCCCJJ)
End IF
end if:Sub CheckRight(CCJCCJC):dim CJCCCC,CJJCCCJ:if CCCJCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCJJCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CCJJJCC(CCJCCJC) then
Call RedirectMessage(CCJJCJC("朾@陋@W") & CCJCCJC & CCJJCJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CCJJJCC(CCJCCJC):dim CJCCCC,CJJCCCJ:CJJCCCJ=split(CCJCCJC,CCJJCJC("[")):CCJJJCC=False:for CJCCCC=0 to ubound(CJJCCCJ):If Mid(CCCCJC,CJJCCCJ(CJCCCC),1)="1" then
CCJJJCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CCJJCJC("!$*|t|qt#"))="":CCCJCC=0:CJJJJJJ=0:CCCCJJ=Empty:CCCCCC=0:CJJJJCJ=0:CJJJJJC=0:CCCCCJ=0:CJJJCJJ=False:CJJCJCC=False:CJJCCJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJ,CJJCCCC,CJCCCC,CJCJJJJ,CCJCJC:CJCCCJ=split(CJJCCJC,CCJJCJC("]")):if ubound(CJCCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCJ(0)) or len(CJCCCJ(1))<>32 or len(CJCCCJ(2))<>32 then
Call ClearMemberCookie
else
CJJCCCC=CJCCCJ(1):for CJCCCC=1 to len(CJJCCCC):CJCJJJJ=mid(CJJCCCC,CJCCCC,1):if isnumeric(CJCJJJJ) then CCJCJC=CCJCJC & CJCJJJJ
if len(CCJCJC)=7 then exit for
next:CJJCCCC=CJCCCJ(2):if CCJCJC<>mid(CJJCCCC,6,7) then
Call ClearMemberCookie
else
CJCJJJJ=mid(CJJCCCC,18,10)/2:if CJCJJJJ<DateDiff(CCJJCJC("D"), CCJJCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCJCC=Clng(CJCCCJ(0)):CCCCJJ=CJCCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJJJC,CCJCCCJ):dim CJCCCC,CJCJJJJ,CCJCJC:for CJCCCC=1 to len(CCJCCCJ):CJCJJJJ=mid(CCJCCCJ,CJCCCC,1):if isnumeric(CJCJJJJ) then CCJCJC=CCJCJC & CJCJJJJ
if len(CCJCJC)=7 then exit for
next:CCJCJC=CJCJJJC & CCJJCJC("]") & CCJCCCJ & CCJJCJC("]") & Fix(10000*(Rnd+1)) & CCJCJC & Fix(10000*(Rnd+1)) & DateDiff(CCJJCJC("D"), CCJJCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJJCJC("!$*|t|qt#"))=CCJCJC:End Sub::Call CheckRight(2):dim CJCJJJC:CJCJJJC=Request.QueryString(CCJJCJC(":5")):If Request.ServerVariables(CCJJCJC("#t""&t$%0|t%w~s"))=CCJJCJC("!~$%") Then
dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC:CJCJJCJ=Request.Form(CCJJCJC("EJA6")):CJCJJCC=CJCCJJJ(Request.Form(CCJJCJC("=:?<"))):CJCJCJJ=CJCCJJJ(Request.Form(CCJJCJC("4@?E6?E"))):CJCJCJC=CJCCJJJ(Request.Form(CCJJCJC("A:4EFC6"))):if not CJCCJCJ(CJCJJCJ) then Call Alert(CCJJCJC("诲@患@塦@冔@斂@竛@籶@刦@！,"))
if CJCJJCC<>"" then CJCJCJJ=""
CCCJCJ=CCJJCJC("FA52E6 ,2CE:4=6 ,D6E") & CCJJCJC(" ,E:E=6lV") & CJCCJJJ(Request.Form(CCJJCJC("E:E=6"))) & CCJJCJC("V") & CCJJCJC("[<6JH@C5DlV") & CJCCJJJ(Request.Form(CCJJCJC("<6JH@C5D"))) & CCJJCJC("V") & CCJJCJC("[23DEC24ElV") & CJCCJJJ(Request.Form(CCJJCJC("23DEC24E"))) & CCJJCJC("V") & CCJJCJC("[=:?<lV") & CJCJJCC & CCJJCJC("V") & CCJJCJC("[4@?E6?ElV") & CJCJCJJ & CCJJCJC("V") & CCJJCJC("[:DE@Al") & Cint(Request.Form(CCJJCJC(":DE@A")))  & CCJJCJC("[:DEF:;:2?l") & Cint(Request.Form(CCJJCJC(":DEF:;:2?")))  & CCJJCJC("[A:4EFC6lV") & CJCJCJC & CCJJCJC("V") & CCJJCJC("[EJA6l") & CJCJJCJ  & CCJJCJC("[52E6E:>6lV") & CJCCJJJ(Request.Form(CCJJCJC("52E6E:>6"))) & CCJJCJC("V") & CCJJCJC(" ,H96C6 ,:5l") & CJCJJJC
CCJCCJ.execute(CCCJCJ):Call RedirectMessage(CCJJCJC("斂@竛@巭@绊@俩@攴@戋@劚@，,患@只@仠@,k2 ,9C67lV^2CE:4=6^G:6H]2DAn:5l") & CJCJJJC & CCJJCJC("V ,E2C86ElV03=2?<Vm浊@觃@k^2m.、,,k2 ,9C67lV]]^25>:?^2CE:4=6^>@5:7J]2DAn:5l") & CJCJJJC & CCJJCJC("Vm绢@绨@俩@攴@k^2m.我@迏@囙@,k2 ,9C67lV") & CCJJJCJ(CCJJCJC("&#{"),"") & CCJJCJC("Vm斂@竛@划@衣@k^2m.。,"))
end if:dim CJCJJJJ,CJCCCC:set CCCJJJ=CCJCCJ.execute(CCJJCJC("D6=64E ,E@A ,` ,EJA6[E:E=6[<6JH@C5D[23DEC24E[=:?<[4@?E6?E[A:4EFC6[52E6E:>6[:DEF:;:2?[:DE@A ,7C@> ,2CE:4=6 ,H96C6 ,:5l") & CJCJJJC):if CCCJJJ.eof then Call RedirectMessage(CCJJCJC("斂@竛@ ,W") & CJCJJJC & CCJJCJC("X ,朥@批@别@"))
Response.Write(vbCrLf):Response.Write(CCJJCJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CCJJCJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CCJJCJC("k9625m") & vbCrLf):Response.Write(CCJJCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJJCJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CCJJCJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CCJJCJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CCJJCJC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CCJJCJC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CCJJCJC("k^9625m") & vbCrLf):Response.Write(CCJJCJC("k3@5Jm") & vbCrLf):Response.Write(CCJJCJC("k5:G ,4=2DDlQE:E=6Qm俩@攴@斂@竛@k^5:Gm") & vbCrLf):Response.Write(CCJJCJC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CCJJCJC(" ,kE23=6 ,H:5E9lQ`__TQ , ,3@C56ClQ_Q ,46==DA24:?8lQdQm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,H:5E9lQg_Q ,2=:8?lQC:89EQm籶@刦@：,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mk:?AFE ,?2>6lQEJA6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCCJJJ(0):Response.Write(CCJJCJC("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,2=:8?lQC:89EQm栂@颓@：,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQe_Q ,G2=F6lQ")):Response.Write  CCCJJJ(1):Response.Write(CCJJCJC("Q ,>2I=6?8E9lQd_Qmk^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,2=:8?lQC:89EQm兮@锩@诈@：,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mk:?AFE ,?2>6lQ<6JH@C5DQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQe_Q ,G2=F6lQ")):Response.Write  CCCJJJ(2):Response.Write(CCJJCJC("Qm") & vbCrLf):Response.Write(CCJJCJC(" ,（,産@穵@样@随@廻@）,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,2=:8?lQC:89EQm摓@襼@：,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mkE6IE2C62 ,?2>6lQ23DEC24EQ ,4@=DlQg_Q ,C@HDlQbQ ,4=2DDlQE6IEQ ,>2I=6?8E9lQ`__Qm")):Response.Write  CCCJJJ(3):Response.Write(CCJJCJC("k^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,2=:8?lQC:89EQm夑@铹@：,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mk:?AFE ,?2>6lQ=:?<Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQe_Q ,G2=F6lQ")):Response.Write  CCCJJJ(4):Response.Write(CCJJCJC("Qm") & vbCrLf):Response.Write(CCJJCJC(" ,（,夑@铹@斂@竛@，,冀@宴@郣@刁@诲@畔@穵@）,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,2=:8?lQC:89EQm冀@宴@：,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mkE6IE2C62 ,?2>6lQ4@?E6?EQ ,4=2DDlQ65:E@CQm")):Response.Write  CCCJJJ(5):Response.Write(CCJJCJC("k^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,2=:8?lQC:89EQm栂@颓@囹@牂@：,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mk:?AFE ,?2>6lQA:4EFC6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQe_Q ,G2=F6lQ")):Response.Write  CCCJJJ(6):Response.Write(CCJJCJC("Qmk^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,2=:8?lQC:89EQm逄@顴@：,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,DEJ=6lQ3@C56Ci`AI ,D@=:5 ,Rrrrj ,=:?6\96:89Eia__Tj ,324<8C@F?5iRu`u`u`jQm") & vbCrLf):Response.Write(CCJJCJC(" ,无@朚@：,") & vbCrLf):Response.Write(CCJJCJC(" ,k:?AFE ,?2>6lQ52E6E:>6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  replace(CCCJJJ(7),CCJJCJC("^"),CCJJCJC("\")):Response.Write(CCJJCJC("Qm（,样@弊@：,JJJJ\||\55 ,wwi>>iDD）,") & vbCrLf):Response.Write(CCJJCJC(" ,k3Cm") & vbCrLf):Response.Write(CCJJCJC(" ,逄@顴@：,") & vbCrLf):Response.Write(CCJJCJC(" ,k:?AFE ,?2>6lQ:DE@AQ ,EJA6lQ4964<3@IQ ,:5lQ:DE@AQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCJJJ(9),CCJJCJC("4964<65"),""):Response.Write(CCJJCJC("m") & vbCrLf):Response.Write(CCJJCJC(" ,k=236= ,7@ClQ:DE@AQm罩@顱@k^=236=m") & vbCrLf):Response.Write(CCJJCJC(" ,k:?AFE ,?2>6lQ:DEF:;:2?Q ,EJA6lQ4964<3@IQ ,:5lQ:DEF:;:2?Q ,G2=F6lQ`Q ,")):Response.Write  IIf(CCCJJJ(8),CCJJCJC("4964<65"),""):Response.Write(CCJJCJC("m") & vbCrLf):Response.Write(CCJJCJC(" ,k=236= ,7@ClQ:DEF:;:2?Qm掣@荋@k^=236=m") & vbCrLf):Response.Write(CCJJCJC(" ,k^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,kECm") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,kE5mk:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ揋@ ,亟@Qm") & vbCrLf):Response.Write(CCJJCJC(" ,k:?AFE ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Qm") & vbCrLf):Response.Write(CCJJCJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ迏@ ,囙@Q ,@?r=:4<lQ;2G2D4C:AEi9:DE@CJ]324<W\`XQmk^E5m") & vbCrLf):Response.Write(CCJJCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJJCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJJCJC("k^7@C>m") & vbCrLf):Response.Write(CCJJCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJC("kD4C:AE ,DC4lQ^$4C:AED^3@@EDEC2A\>2I=6?8E9]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJC("kD4C:AE ,DC4lQ^$4C:AED^H2?865:E@C^H2?8t5:E@C]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJC("kD4C:AE ,DC4lQ^$4C:AED^8=@32=];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJC("kD4C:AE ,DC4lQ^$4C:AED^H2?865:E@C^H2?865:E@C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJJCJC("kD4C:AEm") & vbCrLf):Response.Write(CCJJCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJJCJC(" ,SWVR23DEC24EVX]>2I=6?8E9WX") & vbCrLf):Response.Write(CCJJCJC(" ,SWVRE:E=6VX]>2I=6?8E9WX") & vbCrLf):Response.Write(CCJJCJC("NX") & vbCrLf):Response.Write(CCJJCJC("k^D4C:AEm") & vbCrLf):Response.Write(CCJJCJC("k^3@5Jm") & vbCrLf):Response.Write(CCJJCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCCCJJ=nothing:set CJCCCJC=nothing:set CJCCCCJ=nothing:set CJCCCCC=nothing:CCCJJC.Close:Set CCCJJC=Nothing:CCCJJJ.Close:Set CCCJJJ=Nothing:CCJCCJ.Close:Set CCJCCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CCJJCJC(ByVal CCJJCJJ)
Dim CJCJCCJ, CJCCCC, CCJJCC
CCJJCJJ = Replace(CCJJCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCCC = 1 To Len(CCJJCJJ)
If CJCCCC <> CCJJCC Then
CJCJCCJ = AscW(Mid(CCJJCJJ, CJCCCC, 1))
If CJCJCCJ >= 33 And CJCJCCJ <= 79 Then
CCJJCJC = CCJJCJC & Chr(CJCJCCJ + 47)
ElseIf CJCJCCJ >= 80 And CJCJCCJ <= 126 Then
CCJJCJC = CCJJCJC & Chr(CJCJCCJ - 47)
Else
CCJJCC = CJCCCC + 1
If Mid(CCJJCJJ, CCJJCC, 1) = Chr(64) Then CCJJCJC = CCJJCJC & ChrW(CJCJCCJ + 5) Else CCJJCJC = CCJJCJC & Mid(CCJJCJJ, CJCCCC, 1)
End If
End If
Next
End Function
%>