<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCC, CCJJJ,CCJJC, CCJCJ, CCJCC:Set CJCCC = server.CreateObject(CJJCJCC("ps~sq]r@??64E:@?")):CJCCC.open Application(CJJCJCC("r@??64E:@?$EC:?8")):Set CCJJJ=CJCCC::Function CJJJJJJ(CJJCCJJ):Dim str,CCCJC:str = Trim(CJJCCJJ):If IsNull(str) Or str = "" Then
CJJJJJJ = ""
else
str=Replace(str, CJJCJCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJCJCC("k:7C2>6"), CJJCJCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJCJCC("kD4C:AE"), CJJCJCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCCJC=new RegExp:CCCJC.Pattern=CJJCJCC("@?W,2\K.ZXl"):CCCJC.IgnoreCase = True:CCCJC.Global=True:str=CCCJC.Replace(str,CJJCJCC("@?S`U6BF2=Dj")):set CCCJC=nothing:CJJJJJJ=str
End If:End Function:Function IIf(CJJCCJC, CJJCCCJ, CJJCCCC):if isnull(CJJCCJC) or isempty(CJJCCJC) then
IIf = CJJCCCC
elseif CJJCCJC Then
IIf = CJJCCCJ
Else
IIf = CJJCCCC
end if:End Function:Const CCCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJJJJ,CJCJJJC):dim CCCCJ:CCCCJ=CJCJJJJ & "=" & CJCJJJC & CJJCJCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJCC("$6E\r@@<:6"),CCCCJ):End Sub:::::::Function CJJJJCJ(CCCCJJ):if isnull(CCCCJJ) or trim(CCCCJJ)="" or not isnumeric(CCCCJJ) then
CJJJJCJ=false
else
Dim CCCJC:Set CCCJC = New RegExp:CCCJC.Pattern = CJJCJCC("/-5ZS"):CCCJC.IgnoreCase = True:CJJJJCJ = CCCJC.test(CCCCJJ):set CCCJC=nothing
end if:End Function:Function CJJJJCC(CJCJJCJ):dim CCCCC,CJJJJJ:CCCCC=CJJCJCC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCJJCJ & CJJCJCC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJJJJ=CJCCC.execute(CCCCC):CJJJJCC = CJJJJJ(0):if isnull(CJJJJCC) then CJJJJCC=1
CJJJJJ.close : set CJJJJJ=nothing:End Function::::Sub ConnClose():On Error Resume Next:set CJJJCJJ=nothing:set CJJJCJC=nothing:set CJJJCCJ=nothing:set CJJJCCC=nothing:CJJJJJ.close : set CJJJJJ=nothing:CCJCJ.Close : Set CCJCJ=Nothing:CCJJC.Close : Set CCJJC=Nothing:CJJCJJJ.Close : Set CJJCJJJ = Nothing:CJCCC.Close : Set CJCCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJCC("!$*0|6DD286"),server.URLEncode(CJCJJCC)):Response.Redirect CJJCJCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Dim CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ,CJCJJC:Dim CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ,CJCCCC:Dim CCJJJJ,CCJJJC,CCJJCJ:Dim CCJJCC:CCJJCC=Trim(Request.Cookies(CJJCJCC("!$*|t|qt#"))):if CCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJC>0 then
CCJCC=CJJCJCC("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") & CJJJCJ & CJJCJCC("V ,2?5 ,:5l") & CJJJJC
set CCJJC=CJCCC.execute(CCJCC):If CCJJC.EOF Then
Call ClearMemberCookie
Else
CJJJCC=CCJJC(2) & "":CJJCJJ=CCJJC(3):CJJCJC=CCJJC(5):CJJCCJ=CCJJC(6):CJJCCC=CCJJC(9):CJCJJJ=CCJJC(15):CJCJCJ=CCJJC(0):CCJJJC=CCJJC(1):CCJJJJ=CCJJC(11) & "":CJCJCC=CCJJC(10) & "":CJCJJC=CCJJC(12):CJCCJJ=CCJJC(14):CJCCJC=CCJJC(13):CJCCCJ=CCJJC(7) & "":CJCCCC=CCJJC(4):CCJJCJ=CCJJC(8):if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CJJCCC) or CJJCCC=0 then CJJCCC=CJJCJJ
if isnull(CJCCCC) then CJCCCC=0
if isnull(CJJCJC) then CJJCJC=0
if instr(CJJCJCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJCJ)>0 then Call RedirectMessage(CJJCJCC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJC,CJJJCJ)
End IF
end if:Sub CheckRight(CJCJCJJ):dim CCJCJJ,CCJCJC:if CJJJJC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJCJCC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJCJJC(CJCJCJJ) then
Call RedirectMessage(CJJCJCC("朾@陋@W") & CJCJCJJ & CJJCJCC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJCJJC(CJCJCJJ):dim CCJCJJ,CCJCJC:CCJCJC=split(CJCJCJJ,CJJCJCC("[")):CJJCJJC=False:for CCJCJJ=0 to ubound(CCJCJC):If Mid(CJJJCC,CCJCJC(CCJCJJ),1)="1" then
CJJCJJC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJCJCC("!$*|t|qt#"))="":CJJJJC=0:CJJCCJ=0:CJJJCJ=Empty:CJJCJC=0:CJCJJJ=0:CJJCCC=0:CJJCJJ=0:CJCJCJ=False:CCJJJC=False:CCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CCCCJ,CCJCCJ,CCJCJJ,CCJCCC,CCCJJJ:CCCCJ=split(CCJJCC,CJJCJCC("]")):if ubound(CCCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCCCJ(0)) or len(CCCCJ(1))<>32 or len(CCCCJ(2))<>32 then
Call ClearMemberCookie
else
CCJCCJ=CCCCJ(1):for CCJCJJ=1 to len(CCJCCJ):CCJCCC=mid(CCJCCJ,CCJCJJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCCJ=CCCCJ(2):if CCCJJJ<>mid(CCJCCJ,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCCJ,18,10)/2:if CCJCCC<DateDiff(CJJCJCC("D"), CJJCJCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJC=Clng(CCCCJ(0)):CJJJCJ=CCCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJCJ,CJCJCJC):dim CCJCJJ,CCJCCC,CCCJJJ:for CCJCJJ=1 to len(CJCJCJC):CCJCCC=mid(CJCJCJC,CCJCJJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CCCJCJ & CJJCJCC("]") & CJCJCJC & CJJCJCC("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJCC("D"), CJJCJCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJCC("!$*|t|qt#"))=CCCJJJ:End Sub::Call CheckRight(54):Const CCCCCJ="link":Const CCCCCC="<span style='color:#070;'>√</span>"
dim CCCJJC,CCCJCJ:CCCJJC=Request.QueryString(CJJCJCC("24E")):CCCJCJ=Request.QueryString(CJJCJCC(":5")):if CCCJJC=CJJCJCC("56=") and CJJJJCJ(CCCJCJ) then
CJCCC.execute CJJCJCC("56=6E6 ,7C@> ,") & CCCCCJ & CJJCJCC(" ,H96C6 ,:5l") & CCCJCJ & CJJCJCC(" ,2?5 ,>6>36CEJA6l") & CJJCJJ
end if:if Request.ServerVariables(CJJCJCC("#t""&t$%0|t%w~s"))=CJJCJCC("!~$%") then
if CCCJJC=CJJCJCC("255") then
CCJCC=CJJCJCC(":?D6CE ,:?E@ ,") & CCCCCJ & CJJCJCC("W:5[?2>6[E:E=6[FC=[D@CE[>6>36CEJA6[:DE@AX ,G2=F6DW") & CJJJJCC(CCCCCJ) & CJJCJCC("[V") & CJJJJJJ(Request.Form(CJJCJCC("?2>6"))) & CJJCJCC("V") & CJJCJCC("[V") & CJJJJJJ(Request.Form(CJJCJCC("E:E=6"))) & CJJCJCC("V") & CJJCJCC("[V") & CJJJJJJ(Request.Form(CJJCJCC("FC="))) & CJJCJCC("V") & CJJCJCC("[") & CJJJJJJ(Request.Form(CJJCJCC("D@CE")))  & CJJCJCC("[") & CJJCJJ  & CJJCJCC("[") & Cint(Request.Form(CJJCJCC(":DE@A"))) & CJJCJCC("X")
CJCCC.execute CCJCC
elseif CCCJJC=CJJCJCC(">@5") and CJJJJCJ(CCCJCJ) then
CCJCC=CJJCJCC("FA52E6 ,") & CCCCCJ & CJJCJCC(" ,D6E") & CJJCJCC(" ,?2>6lV") & CJJJJJJ(Request.Form(CJJCJCC("?2>6"))) & CJJCJCC("V")  & CJJCJCC("[E:E=6lV") &  CJJJJJJ(Request.Form(CJJCJCC("E:E=6"))) & CJJCJCC("V")  & CJJCJCC("[FC=lV") &  CJJJJJJ(Request.Form(CJJCJCC("FC="))) & CJJCJCC("V")  & CJJCJCC("[D@CElV") & CJJJJJJ(Request.Form(CJJCJCC("D@CE"))) & CJJCJCC("V")  & CJJCJCC("[:DE@Al") & Cint(Request.Form(CJJCJCC(":DE@A"))) & CJJCJCC(" ,H96C6 ,:5l") & CCCJCJ
CJCCC.execute CCJCC
end if:CCCJJC=""
end if:Response.Write(vbCrLf):Response.Write(CJJCJCC("k9E>=m") & vbCrLf):Response.Write(CJJCJCC("k9625m") & vbCrLf):Response.Write(CJJCJCC("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJJCJCC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJJCJCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQDEJ=6]4DDQm") & vbCrLf):Response.Write(CJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCC("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJCJCC("NXj") & vbCrLf):Response.Write(CJJCJCC("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJCC("k^9625m") & vbCrLf):Response.Write(CJJCJCC("k3@5Jm") & vbCrLf):Response.Write(CJJCJCC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJJCJCC(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJCJCC(" ,k=686?5m夑@郣@铹@掠@箜@琁@k^=686?5m") & vbCrLf):Response.Write(CJJCJCC(" ,罩@顱@：,衣@礵@诠@铹@掠@伕@掠@别@罌@竔@栊@盩@癿@吉@靝@，,丈@罩@顱@衣@礵@佗@丵@叆@惀@铹@掠@伕@改@别@顰@靝@庐@郣@吃@追@佈@罩@。,") & vbCrLf):Response.Write(CJJCJCC(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m罩@顱@k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m合@秫@k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m筻@卐@揊@迫@k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m圫@圻@k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m掍@床@k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,kE9m擈@佗@k^E9m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,")):dim CCJCJJ:CCJCJJ=1:set CCJJC=CJCCC.execute(CJJCJCC("D6=64E ,:5[?2>6[E:E=6[FC=[D@CE[:DE@A ,7C@> ,") & CCCCCJ & CJJCJCC(" ,H96C6 ,>6>36CEJA6l") & CJJCJJ & CJJCJCC(" ,@C56C ,3J ,D@CE")):if CCJJC.eof then
Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,4@=DA2?lQeQm玫@圣@迓@沜@朄@冀@宴@！,k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,"))
else
while not CCJJC.eof:if CCCJJC=CJJCJCC(">@5") and CCCJCJ=cstr(CCJJC(0)) then
Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:DE@AQ ,:5lQ4964<3@IQ ,G2=F6lQ`Q ,")):Response.Write  IIf(CCJJC(5),CJJCJCC("4964<65"),""):Response.Write(CJJCJCC("mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCJJC(1):Response.Write(CJJCJCC("Q ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCJJC(2):Response.Write(CJJCJCC("Q ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQFC=Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5Q ,G2=F6lQ")):Response.Write  CCJJC(3):Response.Write(CJJCJCC("Q ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCJJC(4):Response.Write(CJJCJCC("Q ,D:K6lQbQmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm硩@宕@k^2m\k2 ,9C67lQnQm发@涃@k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  IIf(CCJJC(5),CCCCCC,CJJCJCC("U?3DAj")):Response.Write(CJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk2 ,9C67lQ")):Response.Write  CCJJC(3):Response.Write(CJJCJCC("Q ,E2C86ElQ03=2?<Q ,E:E=6lQ圣@斫@窒@叞@扎@廻@诠@铹@掠@Qm")):Response.Write  CCJJC(1):Response.Write(CJJCJCC("k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5m")):Response.Write  CCJJC(2):Response.Write(CJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5m")):Response.Write  CCJJC(3):Response.Write(CJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write  CCJJC(4):Response.Write(CJJCJCC("k^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQn24El>@5U:5l")):Response.Write  CCJJC(0):Response.Write(CJJCJCC("Qm俩@攴@k^2m\k2 ,9C67lQn24El56=U:5l")):Response.Write  CCJJC(0):Response.Write(CJJCJCC("Q ,@?r=:4<lQ;2G2D4C:AEiC6EFC? ,4@?7:C>WV患@昪@眚@癿@襼@创@陟@诠@顴@盩@吒@？,VXQm创@陟@k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,"))
end if:CCJJC.movenext:CCJCJJ=CCJCJJ+1:wend
end if:if CCCJJC=CJJCJCC("255") then
Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:DE@AQ ,:5lQ4964<3@IaQ ,G2=F6lQ`Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQ?2>6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQ`dQmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,D:K6lQb_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5mk:?AFE ,?2>6lQFC=Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE6IE7:6=5aQ ,D:K6lQc_Qmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,?2>6lQD@CEQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,G2=F6lQ")):Response.Write  CCJCJJ:Response.Write(CJJCJCC("Q ,D:K6lQbQmk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,2=:8?lQC:89EQmk2 ,9C67lQ;2G2D4C:AEi5@4F>6?E]7@C>`]DF3>:EWXjQm硩@宕@k^2m\k2 ,9C67lQnQm发@涃@k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,"))
Else
Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,kECm") & vbCrLf):Response.Write(CJJCJCC(" ,kE5 ,4@=DA2?lQeQ ,2=:8?lQC:89EQmk2 ,9C67lQn24El255Qm淶@力@k^2mk^E5m") & vbCrLf):Response.Write(CJJCJCC(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCC(" ,"))
End If:Response.Write(vbCrLf):Response.Write(CJJCJCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCC(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJCJCC("k^7@C>m") & vbCrLf):Response.Write(CJJCJCC("k^3@5Jm") & vbCrLf):Response.Write(CJJCJCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJCJJ=nothing:set CJJJCJC=nothing:set CJJJCCJ=nothing:set CJJJCCC=nothing:CCJCJ.Close:Set CCJCJ=Nothing:CCJJC.Close:Set CCJJC=Nothing:CJCCC.Close:Set CJCCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJCC(ByVal CJJCJCJ)
Dim CCCJCC, CCJCJJ, CCCCJJ
CJJCJCJ = Replace(CJJCJCJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCJJ = 1 To Len(CJJCJCJ)
If CCJCJJ <> CCCCJJ Then
CCCJCC = AscW(Mid(CJJCJCJ, CCJCJJ, 1))
If CCCJCC >= 33 And CCCJCC <= 79 Then
CJJCJCC = CJJCJCC & Chr(CCCJCC + 47)
ElseIf CCCJCC >= 80 And CCCJCC <= 126 Then
CJJCJCC = CJJCJCC & Chr(CCCJCC - 47)
Else
CCCCJJ = CCJCJJ + 1
If Mid(CJJCJCJ, CCCCJJ, 1) = Chr(64) Then CJJCJCC = CJJCJCC & ChrW(CCCJCC + 5) Else CJJCJCC = CJJCJCC & Mid(CJJCJCJ, CCJCJJ, 1)
End If
End If
Next
End Function
%>