<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJJCJ, CCJJCC,CCJCJJ, CCJCJC, CCJCCJ:Set CCJJCJ = server.CreateObject(CJCCCCJC("ps~sq]r@??64E:@?")):CCJJCJ.open Application(CJCCCCJC("r@??64E:@?$EC:?8")):Set CCJJCC=CCJJCJ::Dim CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC:Dim CJJJJJJ,CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:Dim CJJJCCJ,CJJJCCC,CJJCJJJ:Dim CJJCJJC:CJJCJJC=Trim(Request.Cookies(CJCCCCJC("!$*|t|qt#"))):if CJJCJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCCC>0 then
CCJCCJ=CJCCCCJC("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") & CCCJJJ & CJCCCCJC("V ,2?5 ,:5l") & CCJCCC
set CCJCJJ=CCJJCJ.execute(CCJCCJ):If CCJCJJ.EOF Then
Call ClearMemberCookie
Else
CCCJJC=CCJCJJ(2) & "":CCCJCJ=CCJCJJ(3):CCCJCC=CCJCJJ(5):CCCCJJ=CCJCJJ(6):CCCCJC=CCJCJJ(9):CCCCCJ=CCJCJJ(15):CJJJJJJ=CCJCJJ(0):CJJJCCC=CCJCJJ(1):CJJJCCJ=CCJCJJ(11) & "":CJJJJJC=CCJCJJ(10) & "":CCCCCC=CCJCJJ(12):CJJJJCJ=CCJCJJ(14):CJJJJCC=CCJCJJ(13):CJJJCJJ=CCJCJJ(7) & "":CJJJCJC=CCJCJJ(4):CJJCJJJ=CCJCJJ(8):if isnull(CCCCCJ) then CCCCCJ=0
if isnull(CCCCJC) or CCCCJC=0 then CCCCJC=CCCJCJ
if isnull(CJJJCJC) then CJJJCJC=0
if isnull(CCCJCC) then CCCJCC=0
if instr(CJCCCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCCJJJ)>0 then Call RedirectMessage(CJCCCCJC("弬@寁@矼@，,诲@聏@糶@箜@琁@呓@俩@攴@寁@矼@吉@冈@欜@癶@彐@。,"))
Call SetMemberCookie(CCJCCC,CCCJJJ)
End IF
end if:Sub CheckRight(CJCCJJJ):dim CJJCJCJ,CJJCJCC:if CCJCCC=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
elseIf not CJJCCCCJ(CJCCJJJ) then
Call RedirectMessage(CJCCCCJC("朾@陋@W") & CJCCJJJ & CJCCCCJC("X袦@祼@歝@，,诲@三@糶@绚@箜@琁@呓@聏@糶@。,"))
end if:End Sub:Function CJJCCCCJ(CJCCJJJ):dim CJJCJCJ,CJJCJCC:CJJCJCC=split(CJCCJJJ,CJCCCCJC("[")):CJJCCCCJ=False:for CJJCJCJ=0 to ubound(CJJCJCC):If Mid(CCCJJC,CJJCJCC(CJJCJCJ),1)="1" then
CJJCCCCJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJCCJJ:CJJCCJJ=trim(request.QueryString(CJCCCCJC("D49@@="))):if isnumeric(CJJCCJJ) then
response.Redirect CJCCCCJC("^>^G2?E^R^D49@@=^") & CJJCCJJ & CJCCCCJC("^DEF56?E^=@8:?nC65:C64El") & CJCCCCJ
else
Call RedirectMessage(CJCCCCJC("癶@彐@俜@恪@夬@敃@，,诲@釈@斫@癶@彐@。,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCCJC("!$*|t|qt#"))="":CCJCCC=0:CCCCJJ=0:CCCJJJ=Empty:CCCJCC=0:CCCCCJ=0:CCCCJC=0:CCCJCJ=0:CJJJJJJ=False:CJJJCCC=False:CJJCJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJCCJC,CJJCCCJ,CJJCJCJ,CJJCCCC,CJCJJJJ:CJJCCJC=split(CJJCJJC,CJCCCCJC("]")):if ubound(CJJCCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCCJC(0)) or len(CJJCCJC(1))<>32 or len(CJJCCJC(2))<>32 then
Call ClearMemberCookie
else
CJJCCCJ=CJJCCJC(1):for CJJCJCJ=1 to len(CJJCCCJ):CJJCCCC=mid(CJJCCCJ,CJJCJCJ,1):if isnumeric(CJJCCCC) then CJCJJJJ=CJCJJJJ & CJJCCCC
if len(CJCJJJJ)=7 then exit for
next:CJJCCCJ=CJJCCJC(2):if CJCJJJJ<>mid(CJJCCCJ,6,7) then
Call ClearMemberCookie
else
CJJCCCC=mid(CJJCCCJ,18,10)/2:if CJJCCCC<DateDiff(CJCCCCJC("D"), CJCCCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCCC=Clng(CJJCCJC(0)):CCCJJJ=CJJCCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJC,CJCCCCCJ):dim CJJCJCJ,CJJCCCC,CJCJJJJ:for CJJCJCJ=1 to len(CJCCCCCJ):CJJCCCC=mid(CJCCCCCJ,CJJCJCJ,1):if isnumeric(CJJCCCC) then CJCJJJJ=CJCJJJJ & CJJCCCC
if len(CJCJJJJ)=7 then exit for
next:CJCJJJJ=CCJCJJC & CJCCCCJC("]") & CJCCCCCJ & CJCCCCJC("]") & Fix(10000*(Rnd+1)) & CJCJJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJCCCCJC("D"), CJCCCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCCJC("!$*|t|qt#"))=CJCJJJJ:End Sub::Function CJJCCCCC(CJCCCCCC):Dim str,CJCJJCJ:str = Trim(CJCCCCCC):If IsNull(str) Or str = "" Then
CJJCCCCC = ""
else
str=Replace(str, CJCCCCJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCCJC("k:7C2>6"), CJCCCCJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCCJC("kD4C:AE"), CJCCCCJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCJJCJ=new RegExp:CJCJJCJ.Pattern=CJCCCCJC("@?W,2\K.ZXl"):CJCJJCJ.IgnoreCase = True:CJCJJCJ.Global=True:str=CJCJJCJ.Replace(str,CJCCCCJC("@?S`U6BF2=Dj")):set CJCJJCJ=nothing:CJJCCCCC=str
End If:End Function:Function IIf(CCJJJJJJ, CCJJJJJC, CCJJJJCJ):if isnull(CCJJJJJJ) or isempty(CCJJJJJJ) then
IIf = CCJJJJCJ
elseif CCJJJJJJ Then
IIf = CCJJJJJC
Else
IIf = CCJJJJCJ
end if:End Function:Const CJJCCCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJCJJJJC(str):if isnull(str) or str="" then
CJCJJJJC=False:exit function
end if:Dim CJCJJCJ:Set CJCJJCJ = New RegExp:CJCJJCJ.Pattern = CJCCCCJC("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCJJCJ.IgnoreCase = True:CJCJJJJC = CJCJJCJ.test(str):set CJCJJCJ=nothing:End Function:Function CJCJJJCJ():dim CJCJJCC:CJCJJCC = Cstr(Request.ServerVariables(CJCCCCJC("w%%!0)0u~#(p#sts0u~#"))):If CJCJJCC = "" Then CJCJJCC = Cstr(Request.ServerVariables(CJCCCCJC("#t|~%t0pss#")))
if instr(CJCJJCC,CJCCCCJC("i"))>0 then
CJCJJCC=left(CJCJJCC,instr(CJCJJCC,CJCCCCJC("i"))-1)
elseif instr(CJCJJCC,CJCCCCJC("["))>0 then
CJCJJCC=left(CJCJJCC,instr(CJCJJCC,CJCCCCJC("["))-1)
end if:CJCJJJCJ=left(CJCJJCC,15):End Function:Sub Debug(str):response.Charset=CJCCCCJC("FE7\g"):dim CJJCJCJ,CJJCCCC,CJCJCJJ:if isarray(str) then
on error resume next:CJJCJCJ=ubound(str,2):CJCJCJJ=err.number:err.clear:on error goto 0:if CJCJCJJ<>0 then
for CJJCJCJ=0 to ubound(str):if CJJCJCJ>0 then response.Write CJCCCCJC("k3C ,^m")
response.Write CJJCJCJ & CJCCCCJC("i ,") & str(CJJCJCJ):next
else
response.Write CJCCCCJC("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJCJCJ=0 to ubound(str,2):response.Write CJCCCCJC("kE9 ,2=:8?lV=67EVm") & CJJCJCJ & CJCCCCJC("k^E9m")
next:response.Write CJCCCCJC("k^ECm"):for CJJCJCJ=0 to ubound(str):response.Write CJCCCCJC("kECmkE9m") & CJJCJCJ & CJCCCCJC("k^E9m"):for CJJCCCC=0 to ubound(str,2):response.Write CJCCCCJC("kE5m") & str(CJJCJCJ,CJJCCCC) & CJCCCCJC("k^E5m"):next:response.Write CJCCCCJC("k^ECm"):next:response.Write CJCCCCJC("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCCJC(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCCJC("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJJJCC,CCJJJCJJ):dim CJJCCJC:CJJCCJC=CCJJJJCC & CJCCCCJC("l") & CCJJJCJJ & CJCCCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCCJC("$6E\r@@<:6"),CJJCCJC):End Sub::::::sub ShowMessage(CCJJJCJC):response.Charset=CJCCCCJC("FE7\g"):Response.Write CJCCCCJC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCJJJCJC & CJCCCCJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCJJJCC(CJCJCJJ):if isnull(CJCJCJJ) or trim(CJCJCJJ)="" or not isnumeric(CJCJCJJ) then
CJCJJJCC=false
else
Dim CJCJJCJ:Set CJCJJCJ = New RegExp:CJCJJCJ.Pattern = CJCCCCJC("/-5ZS"):CJCJJCJ.IgnoreCase = True:CJCJJJCC = CJCJJCJ.test(CJCJCJJ):set CJCJJCJ=nothing
end if:End Function:Function CJCJJCJJ(CCJJJCCJ):dim CJCJCJC,CJCJCCJ:CJCJCJC=CJCCCCJC("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJCCJ & CJCCCCJC("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJCCJ=CCJJCJ.execute(CJCJCJC):CJCJJCJJ = CJCJCCJ(0):if isnull(CJCJJCJJ) then CJCJJCJJ=1
CJCJCCJ.close : set CJCJCCJ=nothing:End Function:::Sub WriteJS(CCJJJCCC):Call ConnClose:response.Charset=CJCCCCJC("FE7\g"):response.write CJCCCCJC("k") & CJCCCCJC("D4C:AEm") & CCJJJCCC & CJCCCCJC("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CCJCCCJ=nothing:set CJCJJCJC=nothing:set CJCJJCCJ=nothing:set CJCJJCCC=nothing:CJCJCCJ.close : set CJCJCCJ=nothing:CCJCJC.Close : Set CCJCJC=Nothing:CCJCJJ.Close : Set CCJCJJ=Nothing:CJCJCJJJ.Close : Set CJCJCJJJ = Nothing:CCJJCJ.Close : Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCCJC("!$*0|6DD286"),server.URLEncode(CCJJJCJC)):Response.Redirect CJCCCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:Sub SendSystemMessage(ByVal CJCJCJJC,title,content):Dim CJJCJCJ,CJCJCJC:if isnull(CJCJCJJC) or CJCJCJJC="" then exit Sub
CJCJCJJC=split(CJCJCJJC,CJCCCCJC("[")):for CJJCJCJ=0 to ubound(CJCJCJJC):if CJCJJJCC(CJCJCJJC(CJJCJCJ)) then CJCJCJC=CJCJCJC & CJCCCCJC(":?D6CE ,:?E@ ,>6DD286WD6?56C[C646:G6C[E:E=6[4@?E6?E[:DDJD[:D?6HX ,G2=F6DW") & CCJCCC & CJCCCCJC("[") & CJCJCJJC(CJJCJCJ) & CJCCCCJC("[V") & title & CJCCCCJC("V[V") & content & CJCCCCJC("V[`[`Xj")
next:if CJCJCJC<>"" then CCJJCJ.execute CJCJCJC
End Sub::Function CJCJCJCJ():Dim CJCJCCJ, CJCJCCC(), CJJCJCJ, CJJCCCC, CJCCJJJ,CJCCJJC:If Not IsArray(Application(CJCCCCJC("!$*0%6DED"))) Then
CCJCCJ=CJCCCCJC("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJCJCCJ=server.createobject(CJCCCCJC("25@53]C64@C5D6E")):CJCJCCJ.open CCJCCJ,CCJJCJ,1:CJCCJJJ = CJCJCCJ.RecordCount:CJCCJJC=CJCJCCJ.fields.count-1:ReDim CJCJCCC(CJCCJJJ, CJCCJJC):If CJCCJJJ > 0 Then
For CJJCJCJ = 1 To CJCCJJJ:For CJJCCCC = 0 To CJCCJJC:if CJJCCCC=4 or CJJCCCC=6 or CJJCCCC=19 then
CJCJCCC(CJJCJCJ, CJJCCCC) = CJCJCCCC(CJCJCCJ(CJJCCCC))
else
CJCJCCC(CJJCJCJ, CJJCCCC) = CJCJCCJ(CJJCCCC):if CJCJCCJ(CJJCCCC).type<>11 and isnull(CJCJCCC(CJJCJCJ, CJJCCCC)) then CJCJCCC(CJJCJCJ, CJJCCCC)=""
end if:Next:CJCJCCJ.MoveNext:Next
End If:CJCJCCJ.Close: Set CJCJCCJ = Nothing:Application(CJCCCCJC("!$*0%6DED")) = CJCJCCC
End If:CJCJCJCJ = Application(CJCCCCJC("!$*0%6DED")):End Function::Function CCJCJCJ(CJCJCJJ):Dim CJCCJCJ, CJCCJCC, CJCCCJJ, CJCCCJC, str:If Not CJCJJJCC(CJCJCJJ) or CJCJCJJ=0 Then
str=0
else
CJCCJCJ = Fix(CJCJCJJ / 86400):CJCCJCC = Fix((CJCJCJJ - CJCCJCJ * 86400) / 3600):CJCCCJJ = Fix((CJCJCJJ - CJCCJCJ * 86400 - CJCCJCC * 3600) / 60):CJCCCJC = Fix(CJCJCJJ - CJCCJCJ * 86400 - CJCCJCC * 3600 - CJCCCJJ * 60):If CJCCJCJ <> 0 Then str = CJCCJCJ & CJCCCCJC("夤@")
If CJCCJCC <> 0 Then str = str & CJCCJCC & CJCCCCJC("尊@旱@")
If CJCCCJJ <> 0 Then str = str & CJCCCJJ & CJCCCCJC("刁@")
if CJCCCJC <> 0 Then str = str & CJCCCJC & CJCCCCJC("种@")
end if:CCJCJCJ = str:End Function:Function CJCJCJCC(CCJJCJJJ,CJCCJJJ):if isnull(CCJJCJJJ) then
CJCJCJCC=False
else
If Mid(CCJJCJJJ,CJCCJJJ,1)="1" then CJCJCJCC=True else CJCJCJCC=False
end if:End Function:::Sub SMS(CCJJCCJ,CJCCCCJJ):dim CJCCCCJ:if instr(CJCCCCJJ,CJCCCCJC("【,"))<>1 then CJCCCCJJ=CJCCCCJC("【,徾@浲@寷@舥@】,") & CJCCCCJJ
CJCCCCJ=CJCCCCJC("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") &  CCJJCCJ & CJCCCCJC("U>D8l") + server.urlencode(CJCCCCJJ)
Call CJCJCCJC(CJCCCCJ,CJCCCCJC("v6E"),"")
End Sub:Function CJCJCCJC(ByVal CJCCCCJ,ByVal CJCJCCJJ,Data)
Dim CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CJCJCJJ:if left(CJCCCCJ,7)<>CJCCCCJC("9EEAi^^") then CJCCCCJ=CJCCCCJC("9EEAi^^") & request.ServerVariables(CJCCCCJC("$t#'t#0}p|t")) & CJCCCCJC("i") & request.ServerVariables(CJCCCCJC("$t#'t#0!~#%")) & CJCCCCJ
CJCJCCJJ=Ucase(CJCJCCJJ):Set CJCCCCC = Server.CreateObject(CJCCCCJC("|DI>=a]$6CG6C)|{w%%!")):CJCCCCC.Open CJCJCCJJ, CJCCCCJ, False:if CJCJCCJJ=CJCCCCJC("!~$%") then CJCCCCC.setRequestHeader CJCCCCJC("r@?E6?E\%JA6"),CJCCCCJC("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CJCCCCC.Send Data:if err then Call RedirectMessage(CJCCCCJC("$6CG6C)|{w%%!\tCC@C\,") & CJCJCCJJ & CJCCCCJC(".") & CJCCCCJ & CJCCCCJC("i ,") & err.description)
On Error Goto 0:if CJCCCCC.Readystate <> 4 or CJCCCCC.Status<>200 then
CCJJJJC = ""
else
CCJJJJC = CJCCCCC.ResponseText
end if:Set CJCCCCC = Nothing:CJCJCCJC=CCJJJJC
End Function::::::::::::::::::::::Function CJCJCCCJ(CJJCCJJ,CJCJCJJ):dim CJCJCCJ,CCJJJCC:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,:5[,C:89E. ,7C@> ,G0>6>36C ,H96C6 ,:DD49@@=25>:?l` ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ):while not CJCJCCJ.eof:if CJCJCJCC(CJCJCCJ(1),CJCJCJJ) then CCJJJCC=CCJJJCC & CJCCCCJC("[") & CJCJCCJ(0)
CJCJCCJ.movenext:wend:if CCJJJCC<>"" then CCJJJCC=Mid(CCJJJCC,2)
CJCJCCCJ=CCJJJCC:End Function:Function CJCJCCCC(CCJJCJJC):if isnull(CCJJCJJC) then
CJCJCCCC=""
else
On Error Resume Next:CJCJCCCC=CCJJCJJC:if err.number=-2147352567 then
CJCJCCCC="":err.Clear
end if
end if:End Function::Function CJCCJJJJ(CCJJCJCJ,str):dim CJJCJCJ,CCJJCJJ,CCJJCJC,CCJJCCJ,CJCJCJJ,CCJJCCC,CJCJJJJ:CJCJJJJ=ucase(CCJJCJCJ):CCJJCCC=str:if CCJJCCC="" then
CCJJCCC=request.cookies(CJCJJJJ):if CCJJCCC="" then
CJCCJJJJ=""
else
CCJJCCC=strreverse(CCJJCCC):CCJJCJJ=len(CCJJCCC):for CJJCJCJ=1 to CCJJCJJ-1 step 2:CCJJCCJ=mid(CCJJCCC,CJJCJCJ,1):CJCJCJJ=mid(CCJJCCC,CJJCJCJ+1,1):CCJJCJC=CCJJCJC & CJCJCJJ & CCJJCCJ:next:CCJJCJC=replace(CCJJCJC,CJCCCCJC("L0N"),CJCCCCJC(" ,")):CCJJCJC=replace(CCJJCJC,CJCCCCJC("LIN"),CJCCCCJC("Y")):CCJJCJC=replace(CCJJCJC,CJCCCCJC("L:N"),CJCCCCJC("^")):CJCCJJJJ=trim(CCJJCJC)
end if
else
if Len(CCJJCCC) Mod 2=1 then CCJJCCC=CCJJCCC & CJCCCCJC(" ,")
CCJJCCC=replace(CCJJCCC,CJCCCCJC(" ,"),CJCCCCJC("L0N")):CCJJCCC=replace(CCJJCCC,CJCCCCJC("Y"),CJCCCCJC("LIN")):CCJJCCC=replace(CCJJCCC,CJCCCCJC("^"),CJCCCCJC("L:N")):CCJJCJJ=len(CCJJCCC):for CJJCJCJ=1 to CCJJCJJ-1 step 2:CCJJCCJ=mid(CCJJCCC,CJJCJCJ,1):CJCJCJJ=mid(CCJJCCC,CJJCJCJ+1,1):CCJJCJC=CCJJCJC & CJCJCJJ & CCJJCCJ:next:CCJJCJC=Trim(strreverse(CCJJCJC)):CJCCJJJJ=CCJJCJC:response.cookies(CJCJJJJ)=CCJJCJC
end if:End Function::Sub ClearCache(CCJJCJCC):Application.Contents.Remove CCJJCJCC
End Sub::Function CJCCJJJC():Call CheckLogined:Dim CCJCJJJ,CJCJCCJ,CCJCJJC,CCJCJCJ:CCJCJJJ=CJJCCCCC(Request.Form(CJCCCCJC("2?DH6C"))):CCJCJCJ=Request.Form(CJCCCCJC("9@H=@?8")):if CCJCJJJ="" then Call RedirectMessage(CJCCCCJC("寴@丈@赲@，,糶@绚@沜@朄@莲@发@别@筏@颓@讫@彐@。,"))
CCJCJJC=Request.Cookies(CJCCCCJC("%6DExs")):if not CJCJJJCC(CCJCJJC) then
Call RedirectMessage(CJCCCCJC("寴@丈@赲@，,糶@绚@沜@朄@莲@发@别@讫@彐@xs，,诲@挄@歞@帳@稆@床@迖@衇@朧@竔@癿@徾@琁@浆@访@！,"))
else
CCJCCJ=CJCCCCJC("D6=64E ,E@A ,` ,52E6E:>6 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJCJJC & CJCCCCJC(" ,2?5 ,>6>36Cl") & CCJCCC & CJCCCCJC(" ,2?5 ,=3l") & CJJCCCJC:set CJCJCCJ=CCJJCJ.execute(CCJCCJ):if CJCJCCJ.eof then
Call RedirectMessage(CJCCCCJC("寴@丈@赲@，,糶@绚@厽@敫@W") & CCJCJJC & CJCCCCJC("^") & CCJCCC & CJCCCCJC("^") & CJJCCCJC & CJCCCCJC("X锔@诪@！,好@林@患@扎@廻@亁@夕@严@浆@访@窒@叞@，,诲@兮@门@浊@觃@噣@，,釈@斫@癶@彐@糶@绚@迖@衇@浆@访@。,"))
else
if not CJCJJJCC(CCJCJCJ) then
CCJCJCJ=DateDiff(CJCCCCJC("D"),CJCJCCJ(0),Now):if CCJCJCJ<=0 then
Randomize:CCJCJCJ=Int((60-5+1)*Rnd+5)
end if
end if:CCJCCJ=CJCCCCJC("FA52E6 ,E6DE ,D6E ,2?DH6ClV") & CCJCJJJ & CJCCCCJC("V[9@H=@?8l") & CCJCJCJ & CJCCCCJC("[52E6E:>6l86E52E6WX[:AlV") & CJCJJJCJ & CJCCCCJC("V ,H96C6 ,:5l") & CCJCJJC
CCJJCJ.Execute CCJCCJ
end if:CJCJCCJ.Close: Set CJCJCCJ = Nothing
end if:CJCCJJJC = CCJCJJC:End Function:Function CJCCJJCJ():Dim CCJCJJJ, CCJCJCC, CJCJCCJ, CCJCJJC, CCJCCJJ,CCJCCJC:CCJCCJJ = Request.Form(CJCCCCJC("52E6E:>6")):CCJCJJJ = Trim(Request.Form(CJCCCCJC("2?DH6C"))):CCJCJCC = CJJCCCCC(Request.Form(CJCCCCJC("DEF56?E?F>"))):if CCJCJCC="" then Call debug(1)
if not isdate(CCJCCJJ) or CCJCCJJ="" then CCJCCJJ=Date
dim CCJCCCJ:set CCJCCCJ=new jtree:CCJCCCJ.table=CJCCCCJC(">6>36C0EJA6"):Set CJCJCCJ = CCJJCC.Execute(CJCCCCJC("D6=64E ,E@A ,` ,:5[286 ,7C@> ,G0>6>36C ,H96C6 ,DE2E6ld ,2?5 ,") & CCJCCCJ.sql_getchildren(CCCJCJ) & CJCCCCJC(" ,2?5 ,?F>36ClV") & CCJCJCC & CJCCCCJC("V"))
If CJCJCCJ.EOF Then Call Debug(2)
CCJCJCC = CJCJCCJ(0):CCJCCJC=CJCJCCJ(1):if CJJCCCJC=106 then
if CCJCCJC<6 or CCJCCJC>10 then Call debug(3)
end if:CCJCCJ=CJCCCCJC(":?D6CE ,:?E@ ,E6DEW>6>36C[2?DH6C[=3[,52E6E:>6.[:A[?@C>2=[EJA6X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CCJCJCC & CJCCCCJC("[V") & CCJCJJJ & CJCCCCJC("V[") & CJJCCCJC & CJCCCCJC("[V") & CCJCCJJ & CJCCCCJC("V[V") & CJCJJJCJ & CJCCCCJC("V[`[`X")
set CJCJCCJ=CCJJCJ.Execute(CCJCCJ):CCJCJJC = CJCJCCJ(0):CJCJCCJ.Close: Set CJCJCCJ = Nothing:CJCCJJCJ = CCJCJJC:End Function:Sub FinishMemberTest():dim CJCJCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC,CCCCJJJ,CCCCJJC:CCJCCJ=CJCCCCJC("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CCJCCC & CJCCCCJC(" ,2?5 ,=3lV") & CJJCCCJC & CJCCCCJC("V")
CCCJJCC=Request.Cookies(CJCCCCJC("%6DE{:DE")):CCCJJCC=replace(CCCJJCC,CJCCCCJC("Tar"),CJCCCCJC("[")):if CCCJJCC<>"" then
CCCJJCC=CJCCCCJC("[") & CCCJJCC & CJCCCCJC("["):CCCJJCC=replace(CCCJJCC,CJCCCCJC("[") & CJJCCCJC & CJCCCCJC("["),CJCCCCJC("[")):if CCCJJCC=CJCCCCJC("[") then CCCJJCC="" else CCCJJCC=mid(CCCJJCC,2,len(CCCJJCC)-1)
end if:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H[D>D0C646:G6C[2FE@05:DEC02DED[EJA6[D>D[D>D0D:8? ,7C@> ,D49@@= ,H96C6 ,:5l") & CCCCJC):if CJCJCCJ.eof then
CCJCCCC=1:CCCJJJC=False:CCCJCJJ=0:CCCJCCC=1
else
CCCCJJJ=IIf(isnull(CJCJCCJ(0)),0,CJCJCCJ(0)):CCJCCCC=IIf(CCCCJJJ=0,0,1):CCCJJJC=CJCJCCJ(2):CCCJCJJ=CJCJCCJ(3):CCCJCJC=CJCJCCJ(4):CCCJJJJ=CJCJCCJ(1):CCCJCCJ=CJCJCCJ(5):set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,?@C>2=[C6DF=E[EJA6 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJCJJC):CCCJCCC=IIf(CJCJCCJ(2),1,0):if not CJCJCCJ(0) then
if CCCCJJJ=1 then CCJCCCC=0
if CCCJCJC and CJCJJJJC(CCCJJJJ) then
Call SMS(CCCJJJJ,CCCJCCJ & CJJJJCC & CJCCCCJC("（,") & CCCCJJ & CJCCCCJC("）,癿@") & CJJJCCJC & CJCCCCJC("浆@诐@绎@林@廽@帳@。,"))
end if
end if:if CCCJJJC and (CJJCCCJC=121 or CJJCCCJC=164 or CJJCCCJC=159 or CJJCCCJC=190 or CJJCCCJC=213) and (CJCJCCJ(1)="3" or CJCJCCJ(1)="4") then
dim CCCCJCJ:if CJJCCCJC=121 or CJJCCCJC=159 then CCCCJCJ=111 else CCCCJCJ=178
CCJCCJ=CCJCCJ & CJCCCCJC("j56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CCJCCC & CJCCCCJC(" ,2?5 ,=3lV") & CCCCJCJ & CJCCCCJC("V")
CCJCCJ=CCJCCJ & CJCCCCJC("j:?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CJCJJCJJ(CJCCCCJC("E6DE032E49")) & CJCCCCJC("[V") & CCCCJCJ & CJCCCCJC("V") & CJCCCCJC("[_") & CJCCCCJC("[_") & CJCCCCJC("[_") & CJCCCCJC("[") & CCJCCC  & CJCCCCJC("[") & CCJCCC  & CJCCCCJC("[") & CCCJCJ  & CJCCCCJC("[_") & CJCCCCJC("[V") & Date+30 & CJCCCCJC("V") & CJCCCCJC("[86E52E6WX") & CJCCCCJC("X")
if CCCJJCC="" then
CCCJJCC=CCCCJCJ
elseif instr(CJCCCCJC("[") & CCCJJCC & CJCCCCJC("["),CJCCCCJC("[") & CCCCJCJ & CJCCCCJC("["))=0 then
CCCJJCC=CCCCJCJ & CJCCCCJC("[") & CCCJJCC
end if
end if
end if:CCJCCJ=CCJCCJ & CJCCCCJC("jFA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CCJCCCC & CJCCCCJC("[G2=:5l` ,H96C6 ,:5l") & CCJCJJC:CCJJCJ.execute CCJCCJ:Response.Cookies(CJCCCCJC("%6DExs"))="":dim CCCCJCC:CCCCJCC=CJCCJJJJ(CJCCCCJC("%6DE}@E:7J"),""):CCCCJCC=replace(CCCCJCC,CJCCCCJC("Tau"),CJCCCCJC("^")):if CCCCJCC<>"" then
CCCCJJC=CJCCCCJC("E6DE:5l") & CCJCJJC & CJCCCCJC("U2EE249l") & Request.Cookies(CJCCCCJC("%6DEpEE249")):Response.Cookies(CJCCCCJC("%6DE}@E:7J"))="":Response.Cookies(CJCCCCJC("%6DEpEE249"))="":Call CJCJCCJC(CCCCJCC,CJCCCCJC("!~$%"),CCCCJJC)
end if:CJCJCCJ.close : set CJCJCCJ=nothing:dim CCCCCJJ,CJJCJCJ:if CCCJJCC<>"" then
if CJCJJJCC(CCCJJCC) then
CCCCCJJ=CCCJJCC
else
CCCCCJJ=left(CCCJJCC,instr(CCCJJCC,CJCCCCJC("["))-1)
end if
end if:dim CCCCCJC,CCCCCCJ:CCCCCJC=Request.Cookies(CJCCCCJC("%6DEs6G:46")):CCCCCCJ=Request.Cookies(CJCCCCJC("%6DE':6H")):Response.Cookies(CJCCCCJC("%6DE':6H"))="":dim CCCCCCC:CCCCCCC=Request.Cookies(CJCCCCJC("%6DE#65:C64E")):CCCCCCC=replace(CCCCCCC,CJCCCCJC("Tau"),CJCCCCJC("^")):CCCCCCC=replace(CCCCCCC,CJCCCCJC("Tbu"),CJCCCCJC("n")):CCCCCCC=replace(CCCCCCC,CJCCCCJC("Tab"),CJCCCCJC("R")):if CCCCCCJ="1" then
if CCCCCCC="" then
Call WriteJS(CJCCCCJC("=2J6C]>D8WV浆@访@巭@绊@宇@戋@，,歞@圣@甚@戋@绎@林@，,稈@吉@臥@劣@跮@轧@柠@眆@V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CCJCJJC & CJCCCCJC("VXNX"))
else
Call WriteJS(CJCCCCJC("=2J6C]>D8WV浆@访@巭@绊@宇@戋@，,歞@圣@甚@戋@绎@林@，,稈@吉@臥@劣@跮@轧@柠@眆@V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CCJCJJC & CJCCCCJC("U324<l`UC65:C64El") & server.urlencode(CCCCCCC) & CJCCCCJC("VXNX"))
end if
elseif CCCCCJJ="" then
Response.Cookies(CJCCCCJC("%6DE{:DE"))="":Response.Cookies(CJCCCCJC("%6DEs6G:46"))="":if CCCCCJC=CJCCCCJC("|@3:=6") then
if CCCCCCC="" then
if CCCJCJJ>0 and CCCJCJJ<>6 then
Call WriteJS(CJCCCCJC("2=6CEWV患@癿@浆@访@绎@林@巭@绊@讫@彐@，,谝@谝@患@癿@吃@佗@。,VXjH:?5@H]=@42E:@?]C6A=246WV^>^G2?E^R^D49@@=^DEF56?E^AF46VXj"))
else
Call WriteJS(CJCCCCJC("2=6CEWV患@癿@浆@访@绎@林@巭@绊@讫@彐@，,炴@凶@“,硩@宕@”,吉@轧@同@巭@浆@。,VXjH:?5@H]=@42E:@?]C6A=246WV^>^D49@@=^DEF56?E^E6DE65=:DE]2DAVXj"))
end if
else
Response.Cookies(CJCCCCJC("%6DE#65:C64E"))="":Call WriteJS(CJCCCCJC("2=6CEWV患@癿@朧@顴@浆@访@巭@绊@讫@彐@。,VXjH:?5@H]=@42E:@?]C6A=246WV") & CCCCCCC & CJCCCCJC("VXj"))
end if
else
if CCCCCCC="" then
Call WriteJS(CJCCCCJC("2=6CEWV患@癿@浆@访@绎@林@巭@绊@讫@彐@，,谝@谝@患@癿@吃@佗@。,VXjH:?5@H]=@42E:@?]C6A=246WV^DEF56?E^E6DE0AF46]2DAVXj"))
else
Response.Cookies(CJCCCCJC("%6DE#65:C64E"))="":Call WriteJS(CJCCCCJC("2=6CEWV患@癿@浆@访@绎@林@巭@绊@讫@彐@，,谝@谝@患@癿@吃@佗@。,VXjH:?5@H]=@42E:@?]C6A=246WV") & CCCCCCC & CJCCCCJC("VXj"))
end if
end if
else
Response.Cookies(CJCCCCJC("%6DE{:DE"))=CCCJJCC:Call WriteJS(CJCCCCJC("2=6CEWV患@癿@朧@顴@浆@访@巭@绊@宇@戋@，,炴@凶@“,硩@宕@”,吉@臥@劣@跮@轧@别@丆@一,顴@浆@访@。,VXjH:?5@H]=@42E:@?]C6A=246WV^=3^:?4^DE2CE]9E>n=3:5l") & CCCCCJJ & CJCCCCJC("UE6DEEJA6l") & CCCJCCC & CJCCCCJC("VXj"))
end if:End Sub:Sub FinishAnswerInput():dim CJCJCCJ,CCJCCCC,CCCCJJJ:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H ,7C@> ,D49@@= ,H96C6 ,:5l") & CCCCJC):if CJCJCCJ.eof then
CCJCCCC=1
else
CCCCJJJ=IIf(isnull(CJCJCCJ(0)),0,CJCJCCJ(0)):CCJCCCC=IIf(CCCCJJJ=0,0,1):set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,?@C>2= ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJCJJC):if not CJCJCCJ(0) and CCCCJJJ=1 then CCJCCCC=0
end if:CJCJCCJ.close : set CJCJCCJ=nothing:CCJJCJ.execute CJCCCCJC("FA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CCJCCCC & CJCCCCJC(" ,H96C6 ,:5l") & CCJCJJC:End Sub:Sub ShowPageHead():if CJJJCJCC<>CJCCCCJC("$2G6p?DH6Cx?AFE") then
Dim str:str=CJCCCCJC("kPs~r%*!t ,9E>=m") & CJCCCCJC("k9E>= ,=2?8lVK9\r}Vm") & CJCCCCJC("k9625m") & CJCCCCJC("k>6E2 ,492CD6ElVFE7\gVm") & CJCCCCJC("k>6E2 ,9EEA\6BF:GlV)\&p\r@>A2E:3=6V ,4@?E6?ElVxtl6586Vm") & CJCCCCJC("k>6E2 ,?2>6lVG:6HA@CEV ,4@?E6?ElVH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Vm") & CJCCCCJC("k>6E2 ,?2>6lVC6?56C6CV ,4@?E6?ElVH63<:EVm") & CJCCCCJC("kE:E=6m闩@卲@ ,\ ,") & CJJCCCJC & CJCCCCJC("k^E:E=6m") & CJCCCCJC("k=:?< ,C6=lVDEJ=6D966EV ,9C67lV^D49@@=^25>:?^DEJ=6]4DDVm") & CJCCCCJC("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]>:?];DVmk^D4C:AEm") & CJCCCCJC("kD4C:AE ,DC4lV^$4C:AED^=2J6C^=2J6C];DVmk^D4C:AEm") & CJCCCCJC("k^9625mk3@5Jm")
Response.Write str
end if:End Sub:Sub ShowPageFoot():if CJJJCJCC<>CJCCCCJC("$2G6p?DH6Cx?AFE") then
Response.Write CJCCCCJC("k^3@5Jmk^9E>=m")
end if:End Sub:Sub GetBaseInfo(CCJCJJC):dim CJCJCCC,CJJCJCJ:CJCJCCC = CJCJCJCJ:For CJJCJCJ = 1 To UBound(CJCJCCC):If CStr(CJCJCCC(CJJCJCJ, 0)) = CStr(CCJCJJC) Then
CJJJCCJJ=CJCJCCC(CJJCJCJ,2):CJJJCCJC=CJCJCCC(CJJCJCJ,1):CJJJCCCJ=CJCJCCC(CJJCJCJ,3):CJJJCCCC=CJCJCCC(CJJCJCJ,7):CJJCJJJJ=CJCJCCC(CJJCJCJ,15):Exit For
End If:Next:if CJJJCCJC="" then
dim CJCJCCJ:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,?2>606?[?2>6049[BF6DE4@F?E[2?DH6C[724E@C` ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CCJCJJC):if CJCJCCJ.eof then
Call RedirectMessage(CJCCCCJC("寴@丈@赲@，,释@衣@（,") & CCJCJJC & CJCCCCJC("）,朥@批@别@我@丈@只@産@。,"))
else
CJJJCCJJ=CJCJCCJ(0):CJJJCCJC=CJCJCCJ(1):CJJJCCCJ=CJCJCCJ(2):CJJJCCCC=CJCJCCJ(3):CJJCJJJJ=CJCJCCJ(4):Call ClearCache(CJCCCCJC("!$*0%6DED"))
end if:CJCJCCJ.close : set CJCJCCJ=nothing
end if:End Sub:::::::Sub ReMakeResult()
dim CJCJCCJ,CJJCJCJ,CJCJCJJ,CJCCJJJ,CJJJJJJJ,CJJCCJJ:CJCCJJJ=50:CJCJCJJ=Request.QueryString(CJCCCCJC(":5")):CJJCCJJ=Request.QueryString(CJCCCCJC("D49@@=")):if not CJCJJJCC(CJCJCJJ) then CJCJCJJ=0
if CJCJJJCC(CJJCCJJ) then
CCJCCJ=CJCCCCJC("D6=64E ,DEF77WWD6=64E ,E@A ,") & CJCCJJJ & CJCCCCJC(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJCCCJC & CJCCCCJC(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJCJCJJ & CJCCCCJC(" ,2?5 ,>6>36C0EJA60E@Al") & CJJCCJJ & CJCCCCJC(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
else
CCJCCJ=CJCCCCJC("D6=64E ,DEF77WWD6=64E ,E@A ,") & CJCCJJJ & CJCCCCJC(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJCCCJC & CJCCCCJC(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJCJCJJ & CJCCCCJC(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
end if:set CJCJCCJ=CCJJCJ.execute(CCJCCJ):CJJJJJJJ=CJCJCCJ(0):CJCJCCJ.close : set CJCJCCJ=nothing:if isnull(CJJJJJJJ) then
Call ShowMessage(CJCCCCJC("恨@喗@，,韮@之@哈@赲@，,讜@箒@宇@毐@！,")):Response.Write CJCCCCJC("k2F5:@ ,DC4lV^:>286D^|@K2CE0#@?5@0p==20%FC42]>:5V ,2FE@A=2Jmk^2F5:@m")
else
CJJJJJJJ=split(CJJJJJJJ,CJCCCCJC("[")):for CJJCJCJ=0 to ubound(CJJJJJJJ):CCJCJJC=CJJJJJJJ(CJJCJCJ):Call MakeResult:if VarType(CCJJCJ)=9 then exit for
next:Call ShowMessage(CJCCCCJC("歞@圣@讜@箒@绎@林@，,诲@稈@倔@]]] ,W") & CCJCJJC & CJCCCCJC("X")):if CJCJJJCC(CJJCCJJ) then
response.Write CJCCCCJC("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJJCCCJC & CJCCCCJC("U:5l") & CCJCJJC+1 & CJCCCCJC("UD49@@=l") & CJJCCJJ & CJCCCCJC("Vm")
else
response.Write CJCCCCJC("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJJCCCJC & CJCCCCJC("U:5l") & CCJCJJC+1 & CJCCCCJC("Vm")
end if
end if:end sub:function CJCCJJCC():if CCCCJC=0 then
CJCCJJCC=True
else
dim CJCJCCJ:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,r964<%6DE'2=:5 ,7C@> ,D49@@= ,H96C6 ,:5l") & CCCCJC):if CJCJCCJ.eof then CJCCJJCC=True else CJCCJJCC=CJCJCCJ(0)
CJCJCCJ.close : set CJCJCCJ=nothing
end if:end function::Class jTree:Private CCJCCJ, CCJCCCJ, CJJJJJJC, CJJJJJCJ,CJJJJJCC,CJJJJCJJ,CJJJJCJC,CJJJJCCJ:Private Sub Class_Initialize():CJJJJJJC = 0:CJJJJJCJ = 0:CJJJJCCJ=10:End Sub:Public Property Let Table(CCJJCCJJ):if CCJJCCJJ="" then Call RedirectMessage(CJCCCCJC("寴@丈@赲@，,;%C66籶@宙@來@匑@旱@沜@朄@讹@罩@忀@襼@癿@屙@怢@！,"))
CJJJJJCC=CCJJCCJJ:CJJJJCJJ=CJCCCCJC("!$*0") & UCase(CJJJJJCC):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJJJCC:End Property::Public Property Get Count():Count=CJJJJJCJ-CJJJJCCJ:End Property:Private Sub GetTreeArray():Dim CJJCJCJ, CJJCCCC, CJJJJCCC,RecordCount:CCJCCCJ = Application(CJJJJCJJ):If Not IsArray(CCJCCCJ) Then
CCJCCJ = CJCCCCJC("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJJJCC:if CJJJJCJC<>"" then CCJCCJ=CCJCCJ & CJCCCCJC(" ,H96C6 ,") & CJJJJCJC
set CJJJJCCC=CCJJCJ.execute(CCJCCJ):RecordCount=CJJJJCCC(0):if RecordCount=0 then Call RedirectMessage(CJCCCCJC("柠@话@W") & CJJJJJCC & CJCCCCJC("^") & CJJJJCJC & CJCCCCJC("X沜@朄@绎@林@敫@捩@"))
CJJJJJCJ=RecordCount+CJJJJCCJ:ReDim CCJCCCJ(CJJJJJCJ, 4):CCJCCJ = CJCCCCJC("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJCC & CJCCCCJC(" ,H:E9 ,W?@=@4<X"):if CJJJJCJC<>"" then CCJCCJ=CCJCCJ & CJCCCCJC(" ,H96C6 ,") & CJJJJCJC
CCJCCJ=CCJCCJ & CJCCCCJC(" ,@C56C ,3J ,D@CE[:5"):set CJJJJCCC=CCJJCJ.execute(CCJCCJ):For CJJCJCJ = 1 To RecordCount:For CJJCCCC = 0 To 4:CCJCCCJ(CJJCJCJ, CJJCCCC) = CJJJJCCC(CJJCCCC):if IsNull(CCJCCCJ(CJJCJCJ,4)) then CCJCCCJ(CJJCJCJ,4)=0
If CCJCCCJ(CJJCJCJ,2)="" then CCJCCCJ(CJJCJCJ,2)=CJCCCCJC(",穵@.")
Next:CJJJJCCC.MoveNext:Next:CJJJJCCC.Close: Set CJJJJCCC = Nothing:for CJJCJCJ=CJJJJJCJ-(CJJJJCCJ-1) to CJJJJJCJ:CCJCCCJ(CJJCJCJ,0)=CJJCJCJ:next:Application.Lock():Application(CJJJJCJJ) = CCJCCCJ:Application.UnLock()
else
CJJJJJCJ=Ubound(CCJCCCJ)
End If:End Sub:::::Private Function CJCCJCCJ(CCJCJJC):dim CJJCJCJ,CJJJCJJC:CJCCJCCJ=0:CJJJCJJC=CStr(CCJCJJC):if CJJJCJJC<>"0" then
for CJJCJCJ=1 to CJJJJJCJ:If CStr(CCJCCCJ(CJJCJCJ, 0))=CJJJCJJC Then
CJCCJCCJ = CJJCJCJ:Exit For
End If:Next
end if:End Function::::Public Function CJCCJCCC(CCJCJJC):Dim CJJCJCJ,CJJJCJCJ:CJJCJCJ=CJCCJCCJ(CCJCJJC):if CJJCJCJ=0 then
CJJJCJCJ=CJCCCJJJ(CCJCJJC)
else
CJJJCJCJ=CCJCCCJ(CJJCJCJ,3):if isnull(CJJJCJCJ) or CJJJCJCJ="" then
CJJJCJCJ=CJCCCJJJ(CCJCJJC)
elseif Mid(CJJJCJCJ,instrrev(CJJJCJCJ,CJCCCCJC("["))+1)<>CStr(CCJCJJC) then
CJJJCJCJ=CJCCCJJJ(CCJCJJC)
elseif Left(CJJJCJCJ,1)=CJCCCCJC("[") then
CJJJCJCJ=CJCCCJJJ(CCJCJJC)
end if
end if:CJCCJCCC=CJJJCJCJ:End Function:Private Function CJCCCJJJ(CCJCJJC):dim CJJJCJJC:CJJJCJJC=CStr(CCJCJJC):if CJJJCJJC="0" then
CJCCCJJJ=""
else
dim CJJJJCCC:set CJJJJCCC=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJCC & CJCCCCJC(" ,H96C6 ,:5l") & CCJCJJC):if CJJJJCCC.eof then
Call UpdateCache(CCJCJJC,"","","",""):Call RedirectMessage(CJCCCCJC("顴@盩@（,xs：,") & CCJCJJC & CJCCCCJC("）,丈@孓@圣@，,诲@患@迏@囙@吉@釈@斫@擈@佗@。,"))
else
if CJJJJCCC(0)=0 then
CJCCCJJJ="0," & CCJCJJC
else
CJCCCJJJ=CJCCJCCC(CJJJJCCC(0)) & CJCCCCJC("[") & CCJCJJC
end if:if CJJJJCCC(2)<>CJCCCJJJ then
CCJJCJ.execute CJCCCCJC("FA52E6 ,") & CJJJJJCC & CJCCCCJC(" ,D6E ,A2E9lV") & CJCCCJJJ & CJCCCCJC("V ,H96C6 ,:5l") & CCJCJJC
else
CJCCCJJJ=CJJJJCCC(2)
end if
end if:Call UpdateCache(CCJCJJC,CJJJJCCC(0),CJJJJCCC(1),CJCCCJJJ,CJJJJCCC(3)):CJJJJCCC.Close: Set CJJJJCCC = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCJCJJC):dim CJJJCJCJ:CJJJCJCJ=CJCCJCCC(CCJCJJC):Sql_GetChildren = CJJJJJCC & CJCCCCJC("0A2E9ZV[V ,=:<6 ,V") & CJJJCJCJ & CJCCCCJC("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJJCJJ
End Sub:Public Sub UpdateCache(CCJCJJC,CCJJCCJC,CCJJCCCJ,CJJJCJCJ,CCJJCCCC):dim CJJCJCJ,CJJCCCC:CCJCJJC=CLng(CCJCJJC):CJJCJCJ=CJCCJCCJ(CCJCJJC):if CCJJCCJC="" and CCJJCCCJ="" and CJJJCJCJ="" and CCJJCCCC="" then
if CJJCJCJ>0 then
for CJJCCCC=1 to 4:CCJCCCJ(CJJCJCJ,CJJCCCC)=Null:next
end if
else
if CJJCJCJ=0 then
for CJJCCCC=1 to CJJJJJCJ:if CCJCCCJ(CJJCCCC,1) & ""="" then
CJJCJCJ=CJJCCCC:exit for
end if:next
end if:if CJJCJCJ=0 then
Call ClearCache
else
CCJCCCJ(CJJCJCJ,0)=CLng(CCJCJJC):if CCJJCCJC<>"" then CCJCCCJ(CJJCJCJ,1)=CLng(CCJJCCJC)
if CCJJCCCJ<>"" then CCJCCCJ(CJJCJCJ,2)=CCJJCCCJ
if CJJJCJCJ<>"" then CCJCCCJ(CJJCJCJ,3)=CJJJCJCJ
if CCJJCCCC<>"" then CCJCCCJ(CJJCJCJ,4)=CLng(CCJJCCCC)
end if
end if:if CJJCJCJ>0 then
Application.Lock():Application(CJJJJCJJ) = CCJCCCJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJJJCJC):Call ConnClose:Response.Write CCJJJCJC:Response.End:End Sub:Private Function CJCJJCJJ():CJCJJCJJ=CJCCCJCJ+1:End Function:Private Function CJCCCJCJ():dim CJCJCCJ:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJJJCC & CJCCCCJC(" ,@C56C ,3J ,:5 ,56D4")):CJCCCJCJ=CJCJCCJ(0):CJCJCCJ.Close: Set CJCJCCJ = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCCCJC=159:Dim CJJJCJCC,CJJJCCJJ,CJJJCCJC,CJJJCCCJ,CCJCJJC,CJJJCCCC,CJJCJJJJ,Redirect:CJJJCJCC=Request.QueryString(CJCCCCJC("24E")):if CJJJCJCC="" then CJJJCJCC=Request.Form(CJCCCCJC("24E"))
if CJJJCJCC="" then CJJJCJCC=Request.Cookies(CJCCCCJC("!$*"))(CJCCCCJC("%6DEp4E"))
if CJJJCJCC="" then Call RedirectMessage(CJCCCCJC("寴@丈@赲@，,糶@绚@厽@敫@Wp4EX丵@穵@！,"))
dim CCJCCCJ:set CCJCCCJ=new jtree:CCJCCCJ.table=CJCCCCJC(">6>36C0EJA6"):Call GetBaseInfo(CJJCCCJC):Call ShowPageHead:Select Case CJJJCJCC:Case CJCCCCJC("|6>36C%6DE"):CCJCJJC=CJCCJJJC:Call MakeResult:Call FinishMemberTest:Case CJCCCCJC("$2G6p?DH6Cx?AFE"):CCJCJJC = CJCCJJCJ:Call MakeResult:Call FinishAnswerInput:Case CJCCCCJC("|2<6#6DF=E"):CCJCJJC=request.QueryString(CJCCCCJC(":5")):Redirect=request.QueryString(CJCCCCJC("#65:C64E")):Call MakeResult:if Redirect<>"" then response.Redirect Redirect
Case CJCCCCJC("p?DH6CatI46="):Call CheckRight(42):Call Answer2Excel:Case CJCCCCJC("$4@C6atI46="):Call CheckRight(42):Call Score2Excel:Case CJCCCCJC("#6DF=EatI46="):Call CheckRight(42):Call Result2Excel:Case CJCCCCJC("#6|2<6#6DF=E")
Call ReMakeResult
Case Else
Call ShowMessage(CJCCCCJC("寴@丈@赲@，,释@衣@丈@攪@拼@诠@劚@胸@W") & CJJJCJCC & CJCCCCJC("X！,")):End Select:Call ShowPageFoot:sub MakeResult():dim CJCJCCJ,CJJCJCJ,CCJCJJJ,CJCJJJJ,CCJCJCC:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,2?DH6C[>6>36C ,7C@> ,E6DE ,H96C6 ,:5l") & CCJCJJC):CCJCJJJ=split(CJCCCCJC("M") & CJCJCCJ(0),CJCCCCJC("M")):CCJCJCC=CJCJCCJ(1):dim CJJCJJCJ:CJJCJJCJ=Array(0,0,0,0,0,0,0):set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,D4@C6[724E@C` ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJJCCCJC & CJCCCCJC(" ,@C56C ,3J ,D@CE")):for CJJCJCJ=1 to CJJJCCCJ:CCJCJJJ(CJJCJCJ)=cint(split(CJCJCCJ(0),CJCCCCJC("M"))(cint(CCJCJJJ(CJJCJCJ))-1)):CJCJJJJ=CJCJCCJ(1):CJJCJJCJ(CJCJJJJ)=CJJCJJCJ(CJCJJJJ)+CCJCJJJ(CJJCJCJ):CJCJCCJ.movenext:next:dim CJJCJJCC:CJJCJJCC=Array(0,0,0,0,0):dim CJJCJCJJ(6),CJJCJCJC(6):if CJJCJJCJ(0)<6 then
CJJCJCJJ(0)=1:CJJCJCJC(0)=CJCCCCJC("歞@帳@")
else
CJJCJCJJ(0)=2:CJJCJCJC(0)=CJCCCCJC("廽@帳@"):CJJCJJCC(0)=1
end if:if CJJCJJCJ(1)<=2 then
CJJCJCJJ(1)=3:CJJCJCJC(1)=CJCCCCJC("佉@")
elseif CJJCJJCJ(1)<8 then
CJJCJCJJ(1)=4:CJJCJCJC(1)=CJCCCCJC("丨@")
else
CJJCJCJJ(1)=5:CJJCJCJC(1)=CJCCCCJC("髓@"):CJJCJJCC(1)=1
end if:if CJJCJJCJ(2)<=13.16 then
CJJCJCJJ(2)=6:CJJCJCJC(2)=CJCCCCJC("佉@")
elseif CJJCJJCJ(2)<=34.34 then
CJJCJCJJ(2)=7:CJJCJCJC(2)=CJCCCCJC("丨@")
else
CJJCJCJJ(2)=8:CJJCJCJC(2)=CJCCCCJC("髓@"):CJJCJJCC(2)=1
end if:CJJCJJCJ(3)=formatnumber(CJJCJJCJ(3)/17,1):if CJJCJJCJ(3)<=2 then
CJJCJCJJ(3)=9:CJJCJCJC(3)=CJCCCCJC("佉@"):CJJCJJCC(3)=1
elseif CJJCJJCJ(3)<=4 then
CJJCJCJJ(3)=10:CJJCJCJC(3)=CJCCCCJC("丨@")
else
CJJCJCJJ(3)=11:CJJCJCJC(3)=CJCCCCJC("髓@")
end if:if CJJCJJCJ(4)<19 then
CJJCJCJJ(4)=12:CJJCJCJC(4)=CJCCCCJC("歞@帳@")
else
CJJCJCJJ(4)=13:CJJCJCJC(4)=CJCCCCJC("廽@帳@"):CJJCJJCC(4)=1
end if:if CJJCJJCJ(5)<=1 then
CJJCJCJJ(5)=14:CJJCJCJC(5)=CJCCCCJC("轾@佉@")
elseif CJJCJJCJ(5)<=3 then
CJJCJCJJ(5)=15:CJJCJCJC(5)=CJCCCCJC("丨@筄@")
else
CJJCJCJJ(5)=16:CJJCJCJC(5)=CJCCCCJC("轾@髓@")
end if:if CJCCJJCC and CJJCJJCJ(5)>3 then
CCJJCJ.execute(CJCCCCJC("FA52E6 ,E6DE ,D6E ,25G:46lV掤@饫@怢@：,") & CJJCJJCJ(5) & CJCCCCJC("刁@WmbX，,轾@髓@，,绎@林@丈@只@俜@。,V[G2=:5l_ ,H96C6 ,:5l") & CCJCJJC)
if CJJJCJCC=CJCCCCJC("|6>36C%6DE") then Call RedirectMessage(CJCCCCJC("患@癿@浆@访@巭@绊@戋@劚@揋@亟@，,佛@圣@囙@筏@闩@颓@迂@稆@丨@朄@掤@监@臥@巬@朧@躦@眚@宙@惮@泐@癿@衇@丵@，,四@歟@浆@释@癿@绎@林@朄@只@胸@丈@笡@吃@佛@癿@宙@陀@惀@冰@，,诲@佛@圣@追@彎@癿@旱@闯@釈@斫@迖@衇@浆@释@！,"))
exit sub
end if:CJJCJJCJ(6)=CJJCJJCC(0)*2+CJJCJJCC(1)*2+CJJCJJCC(2)+CJJCJJCC(3)+CJJCJJCC(4)*3:dim CJJCJCCJ,CJJCJCCC:CJJCJCCJ=1:if CJJCJJCJ(6)<1 then
CJJCJCCC=0:CJJCJCJJ(6)=17:CJJCJCJC(6)=CJCCCCJC("歞@帳@")
elseif CJJCJJCJ(6)<3 then
CJJCJCCC=1:CJJCJCJJ(6)=18:CJJCJCJC(6)=CJCCCCJC("轾@佉@")
elseif CJJCJJCJ(6)<5 then
CJJCJCCC=2:CJJCJCJJ(6)=19:CJJCJCJC(6)=CJCCCCJC("丨@筄@")
elseif CJJCJJCJ(6)<7 then
CJJCJCCC=3:CJJCJCJJ(6)=20:CJJCJCJC(6)=CJCCCCJC("轾@髓@"):CJJCJCCJ=0
else
CJJCJCCC=4:CJJCJCJJ(6)=21:CJJCJCJC(6)=CJCCCCJC("杼@髓@"):CJJCJCCJ=0
end if:dim CJJCCJJJ,CJJCCJJC,CJJCCJCJ:CJJCCJJJ=split(CJJCJJJJ,CJCCCCJC("M")):set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,6IA=2:?`[6IA=2:?a ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJJCCCJC & CJCCCCJC(" ,2?5 ,D@CE ,:? ,W") & join(CJJCJCJJ,CJCCCCJC("[")) & CJCCCCJC("X ,@C56C ,3J ,D@CE")):for CJJCJCJ=0 to 6:CJJCCJJC=CJJCCJJC & CJCCCCJC("【,") & CJJCCJJJ(CJJCJCJ) & CJCCCCJC("】,") & CJCJCCJ(0) & vbcrlf:if CJJCJCJ>=5 then CJJCCJCJ=CJJCCJCJ & CJCJCCJ(1) & vbcrlf
CJCJCCJ.movenext:next:CJCJCCJ.close : set CJCJCCJ=nothing:CCJCCJ=CJCCCCJC("FA52E6 ,E6DE ,D6E ,D4@C6lV") & Mid(join(CCJCJJJ,CJCCCCJC("M")),2) & CJCCCCJC("V[D4@C60C2HlV") & join(CJJCJJCJ,CJCCCCJC("M")) & CJCCCCJC("V[D4@C60ElV") & CJJCJJCJ(6) & CJCCCCJC("V[D4@C6056E2:=lV") & CJJCCCCC(CJCCCJCC(CJJCCJJJ,CJJCJJCJ,CJJCJCJC)) & CJCCCCJC("V[C6DF=ElV") & CJJCJCCC & CJCCCCJC("V[C6DF=E056E2:=lV") & join(CJJCJCJC,CJCCCCJC("M")) & CJCCCCJC("V[6IA=2:?lV") & CJJCCJJC & CJCCCCJC("V[6IA=2:?alV") & CJJCCJCJ & CJCCCCJC("V[25G:46l}F==[?@C>2=l") & CJJCJCCJ & CJCCCCJC("[G2=:5l` ,H96C6 ,:5l") & CCJCJJC
CCJJCJ.execute CCJCCJ:Call CrisisCase(CCJCJCC,CJJCJCCC):end sub:Sub CrisisCase(CCJCJJJJ,CCJCJJJC):dim CJCJCCJ:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,:5 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCJCJJJJ):if CJCJCCJ.eof then
if CCJCJJJC=3 or CCJCJJJC=4 then
CCJCCJ=CJCCCCJC(":?D6CE ,:?E@ ,4C:D:D042D6W:5[52E6E:>6[=6G6=0KDBK7I[:?D6CE7C@>X ,G2=F6DW") & CCJCJJJJ  & CJCCCCJC("[86E52E6WX") & CJCCCCJC("[") & CCJCJJJC  & CJCCCCJC("[V>DC:V") & CJCCCCJC("X")
CCJJCJ.execute CCJCCJ:set CJCJCCJ=CCJJCJ.execute(CJCCCCJC("D6=64E ,E@A ,` ,?F>36C[C62=?2>6[>6>36C0EJA60E@A ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CCJCJJJJ):Call SendSystemMessage(CJCJCCCJ(CJCJCCJ(2),119),CJCCCCJC("斫@墙@严@桃@迸@踥@讫@彐@揋@醍@"),CJCCCCJC("斫@墙@严@桃@迸@踥@，,姎@合@：,") & CJCJCCJ(1) & CJCCCCJC("，,孡@史@：,") & CJCJCCJ(0) & CJCCCCJC("，,诲@牴@刦@畔@愊@。,"))
end if
else
CCJCCJ=CJCCCCJC("FA52E6 ,4C:D:D042D6 ,D6E") & CJCCCCJC(" ,=6G6=0KDBK7Il") & CCJCJJJC  & CJCCCCJC(" ,H96C6 ,:5l") & CCJCJJJJ:CCJJCJ.execute CCJCCJ
end if:CJCJCCJ.close : set CJCJCCJ=nothing:End Sub:function CJCCCJCC(CJJCCJJJ,CJJCJJCJ,CJJCJCJC):dim str,CJJCJCJ:str = CJCCCCJC("kE23=6 ,4=2DDlVE30DE2EVmkE9625mkECmkE9mk^E9m")
for CJJCJCJ=0 to 6:str=str & CJCCCCJC("kE9m") & CJJCCJJJ(CJJCJCJ) & CJCCCCJC("k^E9m"):next:str=str & CJCCCCJC("k^ECmk^E9625mkE3@5JmkECmkE5m徒@刁@k^E5m"):for CJJCJCJ=0 to 6:str=str & CJCCCCJC("kE5m") & CJJCJJCJ(CJJCJCJ) & CJCCCCJC("k^E5m"):next:str=str & CJCCCCJC("k^ECmkECmkE5m刟@斨@k^E9m"):for CJJCJCJ=0 to 6:str=str & CJCCCCJC("kE5m") & CJJCJCJC(CJJCJCJ) & CJCCCCJC("k^E5m"):next:str=str & CJCCCCJC("k^ECmk^E3@5Jmk^E23=6m"):CJCCCJCC=str:end function::On Error Resume Next:set CCJCCCJ=nothing:set CJCJJCJC=nothing:set CJCJJCCJ=nothing:set CJCJJCCC=nothing:CCJCJC.Close:Set CCJCJC=Nothing:CCJCJJ.Close:Set CCJCJJ=Nothing:CCJJCJ.Close:Set CCJJCJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCCJC(ByVal CJCCCCJJ)
Dim CJJCCJCC, CJJCJCJ, CJCJCJJ
CJCCCCJJ = Replace(CJCCCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCJ = 1 To Len(CJCCCCJJ)
If CJJCJCJ <> CJCJCJJ Then
CJJCCJCC = AscW(Mid(CJCCCCJJ, CJJCJCJ, 1))
If CJJCCJCC >= 33 And CJJCCJCC <= 79 Then
CJCCCCJC = CJCCCCJC & Chr(CJJCCJCC + 47)
ElseIf CJJCCJCC >= 80 And CJJCCJCC <= 126 Then
CJCCCCJC = CJCCCCJC & Chr(CJJCCJCC - 47)
Else
CJCJCJJ = CJJCJCJ + 1
If Mid(CJCCCCJJ, CJCJCJJ, 1) = Chr(64) Then CJCCCCJC = CJCCCCJC & ChrW(CJJCCJCC + 5) Else CJCCCCJC = CJCCCCJC & Mid(CJCCCCJJ, CJJCJCJ, 1)
End If
End If
Next
End Function
%>