<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CJCCJJC("ps~sq]r@??64E:@?")):CCJCC.open Application(CJCCJJC("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CJCCJJC("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
CCCCC=CJCCJJC("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") & CJJJJC & CJCCJJC("V ,2?5 ,:5l") & CJJJJJ
set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CJCCJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CJCCJJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:::Sub CheckLogined():if CJJJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJCC:CCJJCC=trim(request.QueryString(CJCCJJC("D49@@="))):if isnumeric(CCJJCC) then
response.Redirect CJCCJJC("^>^G2?E^R^D49@@=^") & CCJJCC & CJCCJJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCCJJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCJJC("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:CCJCJJ=split(CCJJCJ,CJCCJJC("]")):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 CCJCCJ=1 to len(CCJCJC):CCJCCC=mid(CCJCJC,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCJC=CCJCJJ(2):if CCCJJJ<>mid(CCJCJC,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCJC,18,10)/2:if CCJCCC<DateDiff(CJCCJJC("D"), CJCCJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJJ(0)):CJJJJC=CCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCCCC,CJCCJCJ):dim CCJCCJ,CCJCCC,CCCJJJ:for CCJCCJ=1 to len(CJCCJCJ):CCJCCC=mid(CJCCJCJ,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CCCCCC & CJCCJJC("]") & CJCCJCJ & CJCCJJC("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCJJC("D"), CJCCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCJJC("!$*|t|qt#"))=CCCJJJ:End Sub:::Function IIf(CJCCJCC, CJCCCJJ, CJCCCJC):if isnull(CJCCJCC) or isempty(CJCCJCC) then
IIf = CJCCCJC
elseif CJCCJCC Then
IIf = CJCCCJJ
Else
IIf = CJCCCJC
end if:End Function:Const CJJCJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCCCCJ,CJCCCCC):dim CCJCJJ:CCJCJJ=CJCCCCJ & "=" & CJCCCCC & CJCCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCJJC("$6E\r@@<:6"),CCJCJJ):End Sub:::::::Function CJJCCCC(CJJCJJC):if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) then
CJJCCCC=false
else
Dim CCCJJC:Set CCCJJC = New RegExp:CCCJJC.Pattern = CJCCJJC("/-5ZS"):CCCJJC.IgnoreCase = True:CJJCCCC = CCCJJC.test(CJJCJJC):set CCCJJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CJCJCJJ.close : set CJCJCJJ=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CJCJCJC.Close : Set CJCJCJC = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCJJC("!$*0|6DD286"),server.URLEncode(CCJJJJJ)):Response.Redirect CJCCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::Function CJCJCCJ(CJJCJJC):Dim CCCJCJ, CCCJCC, CCCCJJ, CCCCJC, str:If Not CJJCCCC(CJJCJJC) or CJJCJJC=0 Then
str=0
else
CCCJCJ = Fix(CJJCJJC / 86400):CCCJCC = Fix((CJJCJJC - CCCJCJ * 86400) / 3600):CCCCJJ = Fix((CJJCJJC - CCCJCJ * 86400 - CCCJCC * 3600) / 60):CCCCJC = Fix(CJJCJJC - CCCJCJ * 86400 - CCCJCC * 3600 - CCCCJJ * 60):If CCCJCJ <> 0 Then str = CCCJCJ & CJCCJJC("夤@")
If CCCJCC <> 0 Then str = str & CCCJCC & CJCCJJC("尊@旱@")
If CCCCJJ <> 0 Then str = str & CCCCJJ & CJCCJJC("刁@")
if CCCCJC <> 0 Then str = str & CCCCJC & CJCCJJC("种@")
end if:CJCJCCJ = str:End Function::::::::::::::::::::::::::::::::::Call CheckLogined:Const CJJCCJJ=59:Const CJJCCJC="明尼苏达多相个性调查表":dim CCCCCC:CCCCCC=Request.QueryString("id"):if not CJJCCCC(CCCCCC) then RedirectMessage(CJCCJJC("寴@丈@赲@，,糶@绚@厽@敫@锔@诪@！,"))
set CCCJC=CCJCC.execute(CJCCJJC("D6=64E ,E@A ,` ,?F>36C[C62=?2>6[25G:46[E6DE286[52E6E:>6[D6I[2?DH6C[D4@C60C2H[D4@C60E[9@H=@?8[C6DF=E ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCCCCC):if CCCJC.eof then RedirectMessage(CJCCJJC("寴@丈@赲@，,沜@朄@批@别@盳@序@癿@浆@访@讫@彐@！,"))
dim CJJJJJJ,CJJJJJC,CCJCCJ,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:CJJJJJC=split(CCCJC(7),CJCCJJC("M")):CJJJJJJ=split(CCCJC(8),CJCCJJC("M")):CJJJJCJ=split(CCCJC(10),CJCCJJC("M"))(14):CJJJJCC=CCCJC(6):CJJJCJJ=CCCJC(5):CJJJCJC=CCCJC(2) & "":for CCJCCJ=0 to 13:CJJJJJC(CCJCCJ)=cint(CJJJJJC(CCJCCJ)):CJJJJJJ(CCJCCJ)=cint(CJJJJJJ(CCJCCJ)):next:dim CJJJCCJ:Response.Write(vbCrLf):Response.Write(CJCCJJC("kPs~r%*!t ,9E>=m") & vbCrLf):Response.Write(CJCCJJC("k9E>= ,=2?8lQK9\r}Qm") & vbCrLf):Response.Write(CJCCJJC("k9625m") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,9EEA\6BF:GlQ)\&p\r@>A2E:3=6Q ,4@?E6?ElQxtl6586Qm") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,?2>6lQG:6HA@CEQ ,4@?E6?ElQH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Qm") & vbCrLf):Response.Write(CJCCJJC("k>6E2 ,?2>6lQC6?56C6CQ ,4@?E6?ElQH63<:EQm") & vbCrLf):Response.Write(CJCCJJC("kE:E=6m昉@尷@苊@边@夕@盳@严@怢@课@柠@衣@W||!xbXk^E:E=6m") & vbCrLf):Response.Write(CJCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2>2K6F:\36E2^4DD^2>2K6F:]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ^$4C:AED^2FE@4;D^4DD^2FE@4]>:?]4DDQm") & vbCrLf):Response.Write(CJCCJJC("kDEJ=6m") & vbCrLf):Response.Write(CJCCJJC("2CE:4=6 ,L ,3@I\D925@Hi ,_ ,_ ,dAI ,R444j ,A255:?8\E@Ai ,aC6>j ,A255:?8\3@EE@>i ,bC6>j ,N") & vbCrLf):Response.Write(CJCCJJC("2CE:4=6 ,9` ,L ,E6IE\2=:8?i ,46?E6Cj ,N") & vbCrLf):Response.Write(CJCCJJC("2CE:4=6 ,]:??6C ,L>2C8:?i_ ,bC6>jN") & vbCrLf):Response.Write(CJCCJJC("7@@E6C ,L ,324<8C@F?5iRh53277j ,A@D:E:@?i7:I65j=67Ei_jC:89Ei_j3@EE@>i_j ,A255:?8idAIjN") & vbCrLf):Response.Write(CJCCJJC("7@@E6C ,]2>\7=L4@=@CiR777jN") & vbCrLf):Response.Write(CJCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJC("kDEJ=6 ,>65:2lQAC:?EQm") & vbCrLf):Response.Write(CJCCJJC("3@5J ,L ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCCJJC("2CE:4=6 ,L ,H:5E9i ,`__Tj ,>2C8:?i ,_j ,A255:?8i ,_j ,3@I\D925@Hi ,?@?6j ,324<8C@F?5\4@=@Ci ,EC2?DA2C6?Ej ,N") & vbCrLf):Response.Write(CJCCJJC("7@@E6C[]?@\H@C5 ,L ,5:DA=2Ji ,?@?6j ,N") & vbCrLf):Response.Write(CJCCJJC("k^DEJ=6m") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("k^9625m") & vbCrLf):Response.Write(CJCCJJC("k3@5Jm") & vbCrLf):Response.Write(CJCCJJC("k2CE:4=6 ,4=2DDlQ2>\4@?E2:?6CQm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ:??6CQm") & vbCrLf):Response.Write(CJCCJJC(" ,k9`m《,昉@尷@苊@边@夕@盳@严@怢@课@柠@衣@W||!xbX》,绎@林@抠@呅@k^9`m") & vbCrLf):Response.Write(CJCCJJC(" ,k9am严@亵@俜@恪@k^9am") & vbCrLf):Response.Write(CJCCJJC(" ,孡@史@：,")):Response.Write  CCCJC(0):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,姎@合@：,")):Response.Write  CCCJC(1):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,甚@无@：,")):Response.Write  CCCJC(3):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,怢@刦@：,")):Response.Write  IIf(CJJJCJJ,CJCCJJC("甲@"),CJCCJJC("奮@")):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,无@朚@：,")):Response.Write  CCCJC(4):Response.Write(CJCCJJC("k3Cm") & vbCrLf):Response.Write(CJCCJJC(" ,産@旱@：,")):Response.Write  CJCJCCJ(CCCJC(9)):Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k9am绎@林@刁@敫@k^9am") & vbCrLf):Response.Write(CJCCJJC(" ,")):dim CJJJCCC:CJJJCCC=split(CJCCJJC("旛@泐@囙@筏@W""XM谉@觻@W{XM伥@裀@WuXM阭@徜@WzXM疌@痀@痂@WwDXM抌@邼@痂@WsXM癏@痂@WwJXM又@礹@伕@亵@样@偊@奂@W!5XM怢@庡@W|7XM偊@扢@犽@我@奿@惮@犽@W!2XM無@虌@張@迦@痂@W!EXM粹@祙@刁@袽@痂@W$4XM蹼@犽@W|2XM礹@伕@冀@同@怢@W$:XM無@虌@WpXM历@抌@W#XM夑@昹@怢@無@虌@W|p$XM臥@戌@劖@释@WtDXM侘@赑@怢@WsJXM攪@酈@怢@Ws@XM礹@伕@贞@件@愚@W#6XM偊@覼@W!CXM礹@伕@圫@佈@W$EXM探@刱@劖@Wr?X"),CJCCJJC("M")):Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k9bm【,敃@庡@释@衣@】,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m缑@史@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m四@孋@合@秫@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m厚@姆@刁@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m%刁@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,")):for CCJCCJ=0 to 3:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJCCJ+1:Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write  CJJJCCC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CJJJJJC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CJJJJJJ(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm【,丯@庅@释@衣@】,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m缑@史@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m四@孋@合@秫@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m厚@姆@刁@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m%刁@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,")):for CCJCCJ=4 to 13:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJCCJ-3:Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write  CJJJCCC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CJJJJJC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CJJJJJJ(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm【,阿@力@释@衣@】,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kE23=6 ,4=2DDlQ2>\E23=6 ,2>\E23=6\DEC:A65 ,2>\E23=6\9@G6C ,2>\E23=6\4@>A24E ,2>\E23=6\46?E6C65 ,2>\E23=6\3@C56C65 ,2>\E6IE\D>Qm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m缑@史@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m四@孋@合@秫@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m厚@姆@刁@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,kE9m%刁@k^E9m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E9625m") & vbCrLf):Response.Write(CJCCJJC(" ,kE3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,")):for CCJCCJ=14 to 23:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,kECm") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CCJCCJ-13:Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5 ,4=2DDlQ2>\E6IE\=67EQm")):Response.Write  CJJJCCC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CJJJJJC(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,kE5m")):Response.Write  CJJJJJJ(CCJCCJ):Response.Write(CJCCJJC("k^E5m") & vbCrLf):Response.Write(CJCCJJC(" ,k^ECm") & vbCrLf):Response.Write(CJCCJJC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^E3@5Jm") & vbCrLf):Response.Write(CJCCJJC(" ,k^E23=6m") & vbCrLf):Response.Write(CJCCJJC(" ,k9am剑@枋@囹@k^9am") & vbCrLf):Response.Write(CJCCJJC(" ,kD4C:AE ,DC4lQ^=3^492CE^>>A:b];Dn9lc__UGl")):Response.Write  join(CJJJJJJ,CJCCJJC("[")):Response.Write(CJCCJJC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC(" ,")):dim CJJCJJJ:if CJJJCJJ then
CCCCC="9,11,13,15,17,21,23,25,27,29"
else
CCCCC="9,11,13,15,19,21,23,25,27,29"
end if:CCCCC=CJCCJJC("D6=64E ,724E@C?2>6[6IA=2:?` ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJJCCJJ & CJCCJJC(" ,2?5 ,D@CE ,:? ,W") & CCCCC & CJCCJJC("X ,@C56C ,3J ,D@CE"):set CCCJC=CCJCC.execute(CCCCC):CJJJCCJ="":for CCJCCJ=4 to 13:if CJJJJJJ(CCJCCJ)>70 then
CJJCJJJ=CCCJC(1) & "":CJJJCCJ=CJJJCCJ & CJCCJJC("k9bm【,") &  CCCJC(0) & CJCCJJC("】,k^9bmkAm%刁@：,") & CJJJJJJ(CCJCCJ) & CJCCJJC("k^AmkAm") & replace(CJJCJJJ,vbcrlf,CJCCJJC("k^AmkAm")) & CJCCJJC("k^Am")
end if:CCCJC.movenext:next:if CJJJCCJ<>"" then response.Write CJCCJJC("k9am阮@怢@痂@犱@k^9am") & CJJJCCJ
if CJJJJCJ<>"" then
set CCCJC=CCJCC.execute(CJCCJJC("D6=64E ,E@A ,` ,724E@C?2>6[6IA=2:?` ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJJCCJJ & CJCCJJC(" ,2?5 ,W724E@Cl") & CJJJJCJ & CJCCJJC(" ,@C ,724E@Cl") & StrReverse(CJJJJCJ) & CJCCJJC("X")):if not CCCJC.eof then
Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k9am厽@考,诅@斨@k^9am") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm【,籶@垆@】,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kAm")):Response.Write  CJJJJCJ & CJCCJJC("^") & strreverse(CJJJJCJ):Response.Write(CJCCJJC("k^Am") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm【,只@胸@癿@诅@斨@】,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kAm")):Response.Write  CCCJC(0):Response.Write(CJCCJJC("k^Am") & vbCrLf):Response.Write(CJCCJJC(" ,k9bm【,绎@林@觞@釅@】,k^9bm") & vbCrLf):Response.Write(CJCCJJC(" ,kAm")):Response.Write  replace(CCCJC(1),vbcrlf,CJCCJJC("k^AmkAm")):Response.Write(CJCCJJC("k^Am") & vbCrLf):Response.Write(CJCCJJC(" ,")):response.Write CJCCJJC("k9am诡@绁@又@序@k^9am") & CJCJCCC(CJJJJCC)
End If
End if:Response.Write(vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k^2CE:4=6m") & vbCrLf):Response.Write(CJCCJJC("k7@@E6C ,4=2DDlQ2>\47Qm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\7= ,2>\9:56\D>\@?=JQmk: ,4=2DDlQ2>\:4@?\7:=6\E6IEQmk^:m ,")):Response.Write  CJJCCJC:Response.Write(CJCCJJC("浆@诐@绎@林@抠@呅@k^5:Gm") & vbCrLf):Response.Write(CJCCJJC(" ,k5:G ,4=2DDlQ2>\7CQm") & vbCrLf):Response.Write(CJCCJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\AC:?EQ ,E:E=6lQ顰@靝@匵@埚@叮@锩@逄@拤@“,扎@卫@”,只@仠@顿@觃@扎@卫@敃@林@Qmk: ,4=2DDlQ2>\:4@?\AC:?EQmk^:m ,扎@卫@朧@顰@k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,:5lQ3E?\H@C5Qmk: ,4=2DDlQ2>\:4@?\7:=6\H@C5\@Qmk^:m ,俘@孓@丵@(@C5斂@桞@k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJC(" ,k3FEE@? ,EJA6lQ3FEE@?Q ,4=2DDlQ2>\3E? ,2>\3E?\AC:>2CJ ,2>\3E?\9@==@H ,2>\3E?\IDQ ,52E2\2>\D>@@E9\D4C@==mk: ,4=2DDlQ2>\:4@?\2CC@H\FAQmk^:m ,别@顱@郣@k^3FEE@?m") & vbCrLf):Response.Write(CJCCJJC(" ,k^5:Gm") & vbCrLf):Response.Write(CJCCJJC("k^7@@E6Cm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^2FE@4;D^2FE@4]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^2>2K6F:\36E2^;D^2>2K6F:]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]9E>=a5@4I];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJCCJJC("kD4C:AEm") & vbCrLf):Response.Write(CJCCJJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR3E?\AC:?EVX]@?WV4=:4<V[7F?4E:@?WXLH:?5@H]AC:?EWXNX") & vbCrLf):Response.Write(CJCCJJC(" ,SWVR3E?\H@C5VX]@?WV4=:4<V[7F?4E:@?WXLSWV2CE:4=6VX]9E>=a5@4IWXNX") & vbCrLf):Response.Write(CJCCJJC(" ,^^ ,甚@戋@盩@彐@") & vbCrLf):Response.Write(CJCCJJC(" ,G2C ,2FE@4l?6H ,pFE@4yDWL") & vbCrLf):Response.Write(CJCCJJC(" ,2CE:4=6iV2CE:4=6V[") & vbCrLf):Response.Write(CJCCJJC(" ,D6=64E@CiV9`[9a[9b[9c[9dV[") & vbCrLf):Response.Write(CJCCJJC(" ,E:E=6iV盩@ ,彐@V[") & vbCrLf):Response.Write(CJCCJJC(" ,:Dv6?6C2E6~FE=:?6r92AE6Cr@56i72=D6[") & vbCrLf):Response.Write(CJCCJJC(" ,:Dv6?6C2E6w625:?8p?49@Ci72=D6") & vbCrLf):Response.Write(CJCCJJC(" ,NX") & vbCrLf):Response.Write(CJCCJJC("NX") & vbCrLf):Response.Write(CJCCJJC("k^D4C:AEm") & vbCrLf)::Function CJCJCCC(CJJJJCC):dim str,CCJCCJ,CCJCCC,CCCJJJ,CJJCJJC:CJJJJCC=split(CJCCJJC("M") & CJJJJCC,CJCCJJC("M")):CJJCJJC=ubound(CJJJJCC):str=CJCCJJC("kE23=6 ,H:5E9lV`__TV ,3@C56ClV_Vm")
for CCJCCJ=1 to CJJCJJC step 10:str=str & CJCCJJC("kECm"):for CCJCCC=0 to 9:CCCJJJ=CCJCCJ+CCJCCC:str=str & CJCCJJC("kE5m") & CCCJJJ & CJCCJJC("] ,k3m") & CJJJJCC(CCCJJJ) & CJCCJJC("k^3mk^E5m"):if CCCJJJ=CJJCJJC then exit for
next:str=str & CJCCJJC("k^ECm"):next:str=str & CJCCJJC("k^E23=6m"):CJCJCCC=str:end function:Response.Write(vbCrLf):Response.Write(CJCCJJC("k^3@5Jm") & vbCrLf):Response.Write(CJCCJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJCJJJJ=nothing:set CJCJJJC=nothing:set CJCJJCJ=nothing:set CJCJJCC=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCJJC(ByVal CJCCJJJ)
Dim CJJCJCJ, CCJCCJ, CJJCJJC
CJCCJJJ = Replace(CJCCJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCJ = 1 To Len(CJCCJJJ)
If CCJCCJ <> CJJCJJC Then
CJJCJCJ = AscW(Mid(CJCCJJJ, CCJCCJ, 1))
If CJJCJCJ >= 33 And CJJCJCJ <= 79 Then
CJCCJJC = CJCCJJC & Chr(CJJCJCJ + 47)
ElseIf CJJCJCJ >= 80 And CJJCJCJ <= 126 Then
CJCCJJC = CJCCJJC & Chr(CJJCJCJ - 47)
Else
CJJCJJC = CCJCCJ + 1
If Mid(CJCCJJJ, CJJCJJC, 1) = Chr(64) Then CJCCJJC = CJCCJJC & ChrW(CJJCJCJ + 5) Else CJCCJJC = CJCCJJC & Mid(CJCCJJJ, CCJCCJ, 1)
End If
End If
Next
End Function
%>