<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCJ, CCJCC,CCCJJ, CCCJC, CCCCJ:Set CCJCJ = server.CreateObject(CJCJJJC("ps~sq]r@??64E:@?")):CCJCJ.open Application(CJCJJJC("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(CJCJJJC("!$*|t|qt#"))):if CCJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCCCC>0 then
CCCCJ=CJCJJJC("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") & CJJJJJ & CJCJJJC("V ,2?5 ,:5l") & CCCCC
set CCCJJ=CCJCJ.execute(CCCCJ):If CCCJJ.EOF Then
Call ClearMemberCookie
Else
CJJJJC=CCCJJ(2) & "":CJJJCJ=CCCJJ(3):CJJJCC=CCCJJ(5):CJJCJJ=CCCJJ(6):CJJCJC=CCCJJ(9):CJJCCJ=CCCJJ(15):CJCJJJ=CCCJJ(0):CJCCCC=CCCJJ(1):CJCCCJ=CCCJJ(11) & "":CJCJJC=CCCJJ(10) & "":CJJCCC=CCCJJ(12):CJCJCJ=CCCJJ(14):CJCJCC=CCCJJ(13):CJCCJJ=CCCJJ(7) & "":CJCCJC=CCCJJ(4):CCJJJJ=CCCJJ(8):if isnull(CJJCCJ) then CJJCCJ=0
if isnull(CJJCJC) or CJJCJC=0 then CJJCJC=CJJJCJ
if isnull(CJCCJC) then CJCCJC=0
if isnull(CJJJCC) then CJJJCC=0
if instr(CJCJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJ)>0 then Call RedirectMessage(CJCJJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCCCC,CJJJJJ)
End IF
end if:Sub CheckRight(CJCJJCJ):dim CCJJCJ,CCJJCC:if CCCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCJJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJJCCC(CJCJJCJ) then
Call RedirectMessage(CJCJJJC("朾@陋@W") & CJCJJCJ & CJCJJJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJJCCC(CJCJJCJ):dim CCJJCJ,CCJJCC:CCJJCC=split(CJCJJCJ,CJCJJJC("[")):CJJJCCC=False:for CCJJCJ=0 to ubound(CCJJCC):If Mid(CJJJJC,CCJJCC(CCJJCJ),1)="1" then
CJJJCCC=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJCJJJC("!$*|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 CCJCJJ,CCJCJC,CCJJCJ,CCJCCJ,CCJCCC:CCJCJJ=split(CCJJJC,CJCJJJC("]")):if ubound(CCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJJ(0)) or len(CCJCJJ(1))<>32 or len(CCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CCJCJC=CCJCJJ(1):for CCJJCJ=1 to len(CCJCJC):CCJCCJ=mid(CCJCJC,CCJJCJ,1):if isnumeric(CCJCCJ) then CCJCCC=CCJCCC & CCJCCJ
if len(CCJCCC)=7 then exit for
next:CCJCJC=CCJCJJ(2):if CCJCCC<>mid(CCJCJC,6,7) then
Call ClearMemberCookie
else
CCJCCJ=mid(CCJCJC,18,10)/2:if CCJCCJ<DateDiff(CJCJJJC("D"), CJCJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCCCC=Clng(CCJCJJ(0)):CJJJJJ=CCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCJ,CJCJJCC):dim CCJJCJ,CCJCCJ,CCJCCC:for CCJJCJ=1 to len(CJCJJCC):CCJCCJ=mid(CJCJJCC,CCJJCJ,1):if isnumeric(CCJCCJ) then CCJCCC=CCJCCC & CCJCCJ
if len(CCJCCC)=7 then exit for
next:CCJCCC=CCCCCJ & CJCJJJC("]") & CJCJJCC & CJCJJJC("]") & Fix(10000*(Rnd+1)) & CCJCCC & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJC("D"), CJCJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJC("!$*|t|qt#"))=CCJCCC:End Sub::::Const CJJJCCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJCJJ,CJCJCJC):dim CCJCJJ:CCJCJJ=CJCJCJJ & "=" & CJCJCJC & CJCJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJC("$6E\r@@<:6"),CCJCJJ):End Sub:::::::Function CJJCJJJ(CCCCJJ):if isnull(CCCCJJ) or trim(CCCCJJ)="" or not isnumeric(CCCCJJ) then
CJJCJJJ=false
else
Dim CCCJJJ:Set CCCJJJ = New RegExp:CCCJJJ.Pattern = CJCJJJC("/-5ZS"):CCCJJJ.IgnoreCase = True:CJJCJJJ = CCCJJJ.test(CCCCJJ):set CCCJJJ=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:set CJJCCJJ=nothing:CJJCCJC.close : set CJJCCJC=nothing:CCCJC.Close : Set CCCJC=Nothing:CCCJJ.Close : Set CCCJJ=Nothing:CJJCCCJ.Close : Set CJJCCCJ = Nothing:CCJCJ.Close : Set CCJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJC("!$*0|6DD286"),server.URLEncode(CJCJCCJ)):Response.Redirect CJCJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::Function CJJCCCC(CJCJCCC,str):dim CCJJCJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCJCCC:CCJCCC=ucase(CJCJCCC):CCCCJC=str:if CCCCJC="" then
CCCCJC=request.cookies(CCJCCC):if CCCCJC="" then
CJJCCCC=""
else
CCCCJC=strreverse(CCCCJC):CCCJJC=len(CCCCJC):for CCJJCJ=1 to CCCJJC-1 step 2:CCCJCC=mid(CCCCJC,CCJJCJ,1):CCCCJJ=mid(CCCCJC,CCJJCJ+1,1):CCCJCJ=CCCJCJ & CCCCJJ & CCCJCC:next:CCCJCJ=replace(CCCJCJ,CJCJJJC("L0N"),CJCJJJC(" ,")):CCCJCJ=replace(CCCJCJ,CJCJJJC("LIN"),CJCJJJC("Y")):CCCJCJ=replace(CCCJCJ,CJCJJJC("L:N"),CJCJJJC("^")):CJJCCCC=trim(CCCJCJ)
end if
else
if Len(CCCCJC) Mod 2=1 then CCCCJC=CCCCJC & CJCJJJC(" ,")
CCCCJC=replace(CCCCJC,CJCJJJC(" ,"),CJCJJJC("L0N")):CCCCJC=replace(CCCCJC,CJCJJJC("Y"),CJCJJJC("LIN")):CCCCJC=replace(CCCCJC,CJCJJJC("^"),CJCJJJC("L:N")):CCCJJC=len(CCCCJC):for CCJJCJ=1 to CCCJJC-1 step 2:CCCJCC=mid(CCCCJC,CCJJCJ,1):CCCCJJ=mid(CCCCJC,CCJJCJ+1,1):CCCJCJ=CCCJCJ & CCCCJJ & CCCJCC:next:CCCJCJ=Trim(strreverse(CCCJCJ)):CJJCCCC=CCCJCJ:response.cookies(CCJCCC)=CCCJCJ
end if:End Function::::Call CheckRight(10):dim CCCCCJ:CCCCCJ=Trim(Request.QueryString(CJCJJJC(":5"))):if not CJJCJJJ(CCCCCJ) then Call RedirectMessage(CJCJJJC("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
dim CCCCCC(3),CJJJJJJ,CCJJCJ,CJJJJJC:set CCCJJ=CCJCC.execute(CJCJJJC("D6=64E ,E@A ,` ,FD6C?2>6[?:4<?2>6[EJA6?2>6[32=2?46[,C:89E. ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CCCCCJ):for CCJJCJ=0 to 3:CCCCCC(CCJJCJ)=CCCJJ(CCJJCJ):next:CJJJJJJ=CCCJJ(4):if Request.ServerVariables(CJCJJJC("#t""&t$%0|t%w~s"))=CJCJJJC("!~$%") then
dim CJJJJCJ:CJJJJCJ="":set CCCJJ=CCJCJ.execute(CJCJJJC("D6=64E ,:5 ,7C@> ,>6>36C0C:89E ,@C56C ,3J ,:5")):while not CCCJJ.eof:CJJJJJC=CCCJJ(0):if Request.Form(CJCJJJC("C:89E0") & CJJJJJC)=CJCJJJC("~}") then
CJJJJCJ=CJJJJCJ & "1"
else
CJJJJCJ=CJJJJCJ & "0"
end if:CCCJJ.movenext:wend:if instr(CJJJJCJ,1)=0 then CJJJJCJ=CJCJJJC("}F==") else CJJJJCJ=CJCJJJC("V") & CJJJJCJ & CJCJJJC("V")
CCJCJ.execute CJCJJJC("FA52E6 ,>6>36C ,D6E ,,C:89E.l") & CJJJJCJ & CJCJJJC(" ,H96C6 ,:5l") & CCCCCJ:Call RedirectMessage(CJCJJJC("讹@罩@戋@劚@，,患@只@仠@,k2 ,9C67lV]]^25>:?^>6>36C^D6EC:89E]2DAn:5l") & CCCCCJ & CJCJJJC("Vm绢@绨@讹@罩@k^2m.我@耀@,k2 ,9C67lV") & CJJCCCC(CJCJJJC("&#{"),"") & CJCJJJC("Vm迏@囙@划@衣@k^2m.。,"))
end if:Response.Write(vbCrLf):Response.Write(CJCJJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCJJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCJJJC("k9625m") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCJJJC("kE:E=6m旛@栂@颓@斂@桞@k^E:E=6m") & vbCrLf):Response.Write(CJCJJJC("k=:?< ,9C67lQ]]^DEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJCJJJC("k^9625m") & vbCrLf):Response.Write(CJCJJJC("k3@5Jm") & vbCrLf):Response.Write(CJCJJJC("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQm") & vbCrLf):Response.Write(CJCJJJC(" ,kE23=6 ,4=2DDlQE30E:E=6Qm") & vbCrLf):Response.Write(CJCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCJJJC(" ,kE9m·, ,讹@宕@朾@陋@ ,·,k^E9m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5 ,4=2DDlQ=236=Qm癶@彐@合@秫@：,k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5m")):Response.Write  CCCCCC(0):Response.Write(CJCJJJC("k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5 ,4=2DDlQ=236=Qm昰@秫@：,k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5m")):Response.Write  CCCCCC(1):Response.Write(CJCJJJC("k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5 ,4=2DDlQ=236=Qm籶@垆@：,k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5m")):Response.Write  CCCCCC(2):Response.Write(CJCJJJC("k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5 ,4=2DDlQ=236=Qm佔@题@：,k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5m")):Response.Write  CCCCCC(3):Response.Write(CJCJJJC("k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,kE5 ,4=2DDlQ24EQmk:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ迏@ ,囙@Q ,@?r=:4<lQ;2G2D4C:AEi9:DE@CJ]324<WXQmk^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJC(" ,kE23=6 ,H:5E9lQhdTQ ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJCJJJC(" ,kECm") & vbCrLf):Response.Write(CJCJJJC(" ,kE5m")):dim CJJJJCC,CJJJCJJ:CJJJCJJ=0:CJJJJCC=split(CJCJJJC("`M罌@竔@箜@琁@吉@叫@MaM共@仑@罌@竔@朾@陋@MbM孡@栜@箜@琁@呓@吉@叫@McM敔@姏@箜@琁@呓@吉@叫@"),CJCJJJC("M")):for CCJJCJ=0 to ubound(CJJJJCC)-1 step 2:response.Write CJCJJJC("k5:G ,DEJ=6lV7@?E\H6:89Ei3@=5j3@C56C\3@EE@>i`AI ,D@=:5 ,Rbeuj4=62Ci3@E9jA255:?8\E@Ai`_AIjVm") & CJJJJCC(CCJJCJ+1) & CJCJJJC("k^5:Gm")
set CCCJJ=CCJCJ.execute(CJCJJJC("D6=64E ,:5[?2>6[:?EC@ ,7C@> ,>6>36C0C:89E ,H96C6 ,EJA6`l") & CJJJJCC(CCJJCJ) & CJCJJJC(" ,@C56C ,3J ,D@CE")):while not CCCJJ.eof:CJJJJJC=CCCJJ(0):if CJJJJJC>CJJJCJJ then CJJJCJJ=CJJJJJC
response.write CJCJJJC("k5:G ,DEJ=6lVH:5E9i`e_AIj7=@2Ei=67EjVmk:?AFE ,?2>6lVC:89E0") & CJJJJJC & CJCJJJC("V ,EJA6lV4964<3@IV ,:5lVC:89E0") & CJJJJJC & CJCJJJC("V ,G2=F6lV~}V")
if mid(CJJJJJJ,CJJJJJC,1)="1" then response.Write CJCJJJC(" ,4964<65")
response.Write CJCJJJC("mk=236= ,7@ClVC:89E0") & CJJJJJC & CJCJJJC("V ,E:E=6lV,") & CJJJJJC & CJCJJJC(". ,") & CCCJJ(2) & CJCJJJC("Vm") & CCCJJ(1) & CJCJJJC("k^=236=mk^5:Gm")
CCCJJ.movenext:wend:next:Response.Write(CJCJJJC("k^E5m") & vbCrLf):Response.Write(CJCJJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCJJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCJJJC(" ,k5:G ,2=:8?lQ46?E6CQ ,DEJ=6lQ3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,A255:?8iaAIQm") & vbCrLf):Response.Write(CJCJJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,@?r=:4<lQ;2G2D4C:AEi4964<2==WE9:DXQ ,G2=F6lQ兣@ ,逄@Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ揋@ ,亟@Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k:?AFE ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ釈@ ,罩@Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ昹@礵@朾@陋@敫@孒@Q ,:5lQ3E?\D9@HQm") & vbCrLf):Response.Write(CJCJJJC(" ,k:?AFE ,EJA6lQ9:556?Q ,:5lQ>2I:5Q ,G2=F6lQ")):Response.Write  CJJJCJJ:Response.Write(CJCJJJC("Qm") & vbCrLf):Response.Write(CJCJJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCJJJC(" ,k3Cm") & vbCrLf):Response.Write(CJCJJJC(" ,误@昉@：,诠@顰@寴@伕@呓@戻@朄@朾@陋@迖@衇@讹@罩@，,孡@栜@咇@敔@姏@箜@琁@呓@朾@陋@圣@共@盳@序@吉@叫@乚@只@讹@罩@。,") & vbCrLf):Response.Write(CJCJJJC("k^7@C>m") & vbCrLf):Response.Write(CJCJJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJC("kD4C:AE ,DC4lQ^$4C:AED^=2J6C^=2J6C]96=A6C];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCJJJC("kD4C:AEm") & vbCrLf):Response.Write(CJCJJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJC(" ,SWVR3E?\D9@HVX]@?WV4=:4<V[7F?4E:@?WXL") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,>2I:5lSWVR>2I:5VX]G2=WX") & vbCrLf):Response.Write(CJCJJJC(" ,G2C ,BIlVV") & vbCrLf):Response.Write(CJCJJJC(" ,7@CWG2C ,:l`j:kl>2I:5j:ZZXL") & vbCrLf):Response.Write(CJCJJJC(" ,:7WSWVRC:89E0VZ:X]:DWVi4964<65VXXLBIZlV`VN") & vbCrLf):Response.Write(CJCJJJC(" ,6=D6LBIZlV_VN") & vbCrLf):Response.Write(CJCJJJC(" ,N") & vbCrLf):Response.Write(CJCJJJC(" ,BIlBI]DF3DEC:?8W_[BI]=2DEx?56I~7WV`VXZ`X") & vbCrLf):Response.Write(CJCJJJC(" ,=2J6C]2=6CEWBI[L") & vbCrLf):Response.Write(CJCJJJC(" ,E:E=6iV丆@斴@丵@厚@姆@朾@陋@划@衣@（,巭@臥@劣@厶@掄@尹@郣@夕@佔@癿@_）,V[") & vbCrLf):Response.Write(CJCJJJC(" ,2C62iVd__AIV") & vbCrLf):Response.Write(CJCJJJC(" ,NX") & vbCrLf):Response.Write(CJCJJJC(" ,NX") & vbCrLf):Response.Write(CJCJJJC("NX") & vbCrLf):Response.Write(CJCJJJC("^^兣@逄@") & vbCrLf):Response.Write(CJCJJJC("7F?4E:@? ,4964<2==W@XL") & vbCrLf):Response.Write(CJCJJJC(" ,H:E9W5@4F>6?E]7@C>`XL") & vbCrLf):Response.Write(CJCJJJC(" ,7@CWG2C ,:l_j:k=6?8E9j:ZZX") & vbCrLf):Response.Write(CJCJJJC(" ,:7W6=6>6?ED,:.]EJA6llQ4964<3@IQX") & vbCrLf):Response.Write(CJCJJJC(" ,6=6>6?ED,:.]4964<65l@]G2=F6llQ兣@ ,逄@QnECF6i72=D6") & vbCrLf):Response.Write(CJCJJJC(" ,N") & vbCrLf):Response.Write(CJCJJJC(" ,@]G2=F6l@]G2=F6llQ兣@ ,逄@QnQ丈@ ,逄@QiQ兣@ ,逄@Qj") & vbCrLf):Response.Write(CJCJJJC("N") & vbCrLf):Response.Write(CJCJJJC("k^D4C:AEm") & vbCrLf):Response.Write(CJCJJJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJJC=nothing:set CJJCJCJ=nothing:set CJJCJCC=nothing:set CJJCCJJ=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 CJCJJJC(ByVal CJCJJJJ)
Dim CJJJCJC, CCJJCJ, CCCCJJ
CJCJJJJ = Replace(CJCJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJJCJ = 1 To Len(CJCJJJJ)
If CCJJCJ <> CCCCJJ Then
CJJJCJC = AscW(Mid(CJCJJJJ, CCJJCJ, 1))
If CJJJCJC >= 33 And CJJJCJC <= 79 Then
CJCJJJC = CJCJJJC & Chr(CJJJCJC + 47)
ElseIf CJJJCJC >= 80 And CJJJCJC <= 126 Then
CJCJJJC = CJCJJJC & Chr(CJJJCJC - 47)
Else
CCCCJJ = CCJJCJ + 1
If Mid(CJCJJJJ, CCCCJJ, 1) = Chr(64) Then CJCJJJC = CJCJJJC & ChrW(CJJJCJC + 5) Else CJCJJJC = CJCJJJC & Mid(CJCJJJJ, CCJJCJ, 1)
End If
End If
Next
End Function
%>