Edit D:\xinhaisoft\crisis_new\lb\zgrxljk.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJJJ, CJCJJC,CJCJCJ, CJCJCC, CJCCJJ:Set CJCJJJ = server.CreateObject(CJCJCJJJ("ps~sq]r@??64E:@?")):CJCJJJ.open Application(CJCJCJJJ("r@??64E:@?$EC:?8")):Set CJCJJC=CJCJJJ::Dim CJCCJC,CJCCCJ,CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC:Dim CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ,CCCJCC:Dim CCCCJJ,CCCCJC,CCCCCJ:Dim CCCCCC:CCCCCC=Trim(Request.Cookies(CJCJCJJJ("!$*|t|qt#"))):if CCCCCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCJC>0 then
CJCCJJ=CJCJCJJJ("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") & CJCCCJ & CJCJCJJJ("V ,2?5 ,:5l") & CJCCJC
set CJCJCJ=CJCJJJ.execute(CJCCJJ):If CJCJCJ.EOF Then
Call ClearMemberCookie
Else
CJCCCC=CJCJCJ(2) & "":CCJJJJ=CJCJCJ(3):CCJJJC=CJCJCJ(5):CCJJCJ=CJCJCJ(6):CCJJCC=CJCJCJ(9):CCJCJJ=CJCJCJ(15):CCJCCJ=CJCJCJ(0):CCCCJC=CJCJCJ(1):CCCCJJ=CJCJCJ(11) & "":CCJCCC=CJCJCJ(10) & "":CCJCJC=CJCJCJ(12):CCCJJJ=CJCJCJ(14):CCCJJC=CJCJCJ(13):CCCJCJ=CJCJCJ(7) & "":CCCJCC=CJCJCJ(4):CCCCCJ=CJCJCJ(8):if isnull(CCJCJJ) then CCJCJJ=0
if isnull(CCJJCC) or CCJJCC=0 then CCJJCC=CCJJJJ
if isnull(CCCJCC) then CCCJCC=0
if isnull(CCJJJC) then CCJJJC=0
if instr(CJCJCJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJCCCJ)>0 then Call RedirectMessage(CJCJCJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCJC,CJCCCJ)
End IF
end if:::Sub CheckLogined():if CJCCJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJJJJ:CJJJJJJ=trim(request.QueryString(CJCJCJJJ("D49@@="))):if isnumeric(CJJJJJJ) then
response.Redirect CJCJCJJJ("^>^G2?E^R^D49@@=^") & CJJJJJJ & CJCJCJJJ("^DEF56?E^=@8:?nC65:C64El") & CJCJJCC
else
Call RedirectMessage(CJCJCJJJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJCJJJ("!$*|t|qt#"))="":CJCCJC=0:CCJJCJ=0:CJCCCJ=Empty:CCJJJC=0:CCJCJJ=0:CCJJCC=0:CCJJJJ=0:CCJCCJ=False:CCCCJC=False:CCCCCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC:CJJJJJC=split(CCCCCC,CJCJCJJJ("]")):if ubound(CJJJJJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJJJJC(0)) or len(CJJJJJC(1))<>32 or len(CJJJJJC(2))<>32 then
Call ClearMemberCookie
else
CJJJJCJ=CJJJJJC(1):for CJJJJCC=1 to len(CJJJJCJ):CJJJCJJ=mid(CJJJJCJ,CJJJJCC,1):if isnumeric(CJJJCJJ) then CJJJCJC=CJJJCJC & CJJJCJJ
if len(CJJJCJC)=7 then exit for
next:CJJJJCJ=CJJJJJC(2):if CJJJCJC<>mid(CJJJJCJ,6,7) then
Call ClearMemberCookie
else
CJJJCJJ=mid(CJJJJCJ,18,10)/2:if CJJJCJJ<DateDiff(CJCJCJJJ("D"), CJCJCJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCJC=Clng(CJJJJJC(0)):CJCCCJ=CJJJJJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCCCJC,CJCJCJJC):dim CJJJJCC,CJJJCJJ,CJJJCJC:for CJJJJCC=1 to len(CJCJCJJC):CJJJCJJ=mid(CJCJCJJC,CJJJJCC,1):if isnumeric(CJJJCJJ) then CJJJCJC=CJJJCJC & CJJJCJJ
if len(CJJJCJC)=7 then exit for
next:CJJJCJC=CJCCCJC & CJCJCJJJ("]") & CJCJCJJC & CJCJCJJJ("]") & Fix(10000*(Rnd+1)) & CJJJCJC & Fix(10000*(Rnd+1)) & DateDiff(CJCJCJJJ("D"), CJCJCJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJCJJJ("!$*|t|qt#"))=CJJJCJC:End Sub::Function CJJJCCCJ(CJCJCJCJ):Dim str,CJJJCCC:str = Trim(CJCJCJCJ):If IsNull(str) Or str = "" Then
CJJJCCCJ = ""
else
str=Replace(str, CJCJCJJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCJCJJJ("k:7C2>6"), CJCJCJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCJCJJJ("kD4C:AE"), CJCJCJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJCCC=new RegExp:CJJJCCC.Pattern=CJCJCJJJ("@?W,2\K.ZXl"):CJJJCCC.IgnoreCase = True:CJJJCCC.Global=True:str=CJJJCCC.Replace(str,CJCJCJJJ("@?S`U6BF2=Dj")):set CJJJCCC=nothing:CJJJCCCJ=str
End If:End Function:Function IIf(CJCJCJCC, CJCJCCJJ, CJCJCCJC):if isnull(CJCJCJCC) or isempty(CJCJCJCC) then
IIf = CJCJCCJC
elseif CJCJCJCC Then
IIf = CJCJCCJJ
Else
IIf = CJCJCCJC
end if:End Function:Const CJJJCCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJJCJJJJ(str):if isnull(str) or str="" then
CJJCJJJJ=False:exit function
end if:Dim CJJJCCC:Set CJJJCCC = New RegExp:CJJJCCC.Pattern = CJCJCJJJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJJJCCC.IgnoreCase = True:CJJCJJJJ = CJJJCCC.test(str):set CJJJCCC=nothing:End Function:Function CJJCJJJC():dim CJJCJJJ:CJJCJJJ = Cstr(Request.ServerVariables(CJCJCJJJ("w%%!0)0u~#(p#sts0u~#"))):If CJJCJJJ = "" Then CJJCJJJ = Cstr(Request.ServerVariables(CJCJCJJJ("#t|~%t0pss#")))
if instr(CJJCJJJ,CJCJCJJJ("i"))>0 then
CJJCJJJ=left(CJJCJJJ,instr(CJJCJJJ,CJCJCJJJ("i"))-1)
elseif instr(CJJCJJJ,CJCJCJJJ("["))>0 then
CJJCJJJ=left(CJJCJJJ,instr(CJJCJJJ,CJCJCJJJ("["))-1)
end if:CJJCJJJC=left(CJJCJJJ,15):End Function:Sub Debug(str):response.Charset=CJCJCJJJ("FE7\g"):dim CJJJJCC,CJJJCJJ,CJJCJJC:if isarray(str) then
on error resume next:CJJJJCC=ubound(str,2):CJJCJJC=err.number:err.clear:on error goto 0:if CJJCJJC<>0 then
for CJJJJCC=0 to ubound(str):if CJJJJCC>0 then response.Write CJCJCJJJ("k3C ,^m")
response.Write CJJJJCC & CJCJCJJJ("i ,") & str(CJJJJCC):next
else
response.Write CJCJCJJJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJJCC=0 to ubound(str,2):response.Write CJCJCJJJ("kE9 ,2=:8?lV=67EVm") & CJJJJCC & CJCJCJJJ("k^E9m")
next:response.Write CJCJCJJJ("k^ECm"):for CJJJJCC=0 to ubound(str):response.Write CJCJCJJJ("kECmkE9m") & CJJJJCC & CJCJCJJJ("k^E9m"):for CJJJCJJ=0 to ubound(str,2):response.Write CJCJCJJJ("kE5m") & str(CJJJJCC,CJJJCJJ) & CJCJCJJJ("k^E5m"):next:response.Write CJCJCJJJ("k^ECm"):next:response.Write CJCJCJJJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCJCJJJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCJCJJJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CJCJCCCJ,CJCJCCCC):dim CJJJJJC:CJJJJJC=CJCJCCCJ & CJCJCJJJ("l") & CJCJCCCC & CJCJCJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJCJJJ("$6E\r@@<:6"),CJJJJJC):End Sub::::::sub ShowMessage(CJCCJJJJ):response.Charset=CJCJCJJJ("FE7\g"):Response.Write CJCJCJJJ("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") & CJCCJJJJ & CJCJCJJJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJJCJJCJ(CJJCJJC):if isnull(CJJCJJC) or trim(CJJCJJC)="" or not isnumeric(CJJCJJC) then
CJJCJJCJ=false
else
Dim CJJJCCC:Set CJJJCCC = New RegExp:CJJJCCC.Pattern = CJCJCJJJ("/-5ZS"):CJJJCCC.IgnoreCase = True:CJJCJJCJ = CJJJCCC.test(CJJCJJC):set CJJJCCC=nothing
end if:End Function:Function CJJCJJCC(CJCCJJJC):dim CJJCJCJ,CJJCJCC:CJJCJCJ=CJCJCJJJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CJCCJJJC & CJCJCJJJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJJCJCC=CJCJJJ.execute(CJJCJCJ):CJJCJJCC = CJJCJCC(0):if isnull(CJJCJJCC) then CJJCJJCC=1
CJJCJCC.close : set CJJCJCC=nothing:End Function:::Sub WriteJS(CJCCJJCJ):Call ConnClose:response.Charset=CJCJCJJJ("FE7\g"):response.write CJCJCJJJ("k") & CJCJCJJJ("D4C:AEm") & CJCCJJCJ & CJCJCJJJ("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CCCJJJC=nothing:set CJJCJCJJ=nothing:set CJJCJCJC=nothing:set CJJCJCCJ=nothing:CJJCJCC.close : set CJJCJCC=nothing:CJCJCC.Close : Set CJCJCC=Nothing:CJCJCJ.Close : Set CJCJCJ=Nothing:CJJCJCCC.Close : Set CJJCJCCC = Nothing:CJCJJJ.Close : Set CJCJJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCCJJJJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJCJJJ("!$*0|6DD286"),server.URLEncode(CJCCJJJJ)):Response.Redirect CJCJCJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJCCJJJ():Dim CJJCJCC, CJJCCJJ(), CJJJJCC, CJJJCJJ, CJJCCJC,CJJCCCJ:If Not IsArray(Application(CJCJCJJJ("!$*0%6DED"))) Then
CJCCJJ=CJCJCJJJ("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 CJJCJCC=server.createobject(CJCJCJJJ("25@53]C64@C5D6E")):CJJCJCC.open CJCCJJ,CJCJJJ,1:CJJCCJC = CJJCJCC.RecordCount:CJJCCCJ=CJJCJCC.fields.count-1:ReDim CJJCCJJ(CJJCCJC, CJJCCCJ):If CJJCCJC > 0 Then
For CJJJJCC = 1 To CJJCCJC:For CJJJCJJ = 0 To CJJCCCJ:if CJJJCJJ=4 or CJJJCJJ=6 or CJJJCJJ=19 then
CJJCCJJ(CJJJJCC, CJJJCJJ) = CJJCCJCC(CJJCJCC(CJJJCJJ))
else
CJJCCJJ(CJJJJCC, CJJJCJJ) = CJJCJCC(CJJJCJJ):if CJJCJCC(CJJJCJJ).type<>11 and isnull(CJJCCJJ(CJJJJCC, CJJJCJJ)) then CJJCCJJ(CJJJJCC, CJJJCJJ)=""
end if:Next:CJJCJCC.MoveNext:Next
End If:CJJCJCC.Close: Set CJJCJCC = Nothing:Application(CJCJCJJJ("!$*0%6DED")) = CJJCCJJ
End If:CJJCCJJJ = Application(CJCJCJJJ("!$*0%6DED")):End Function::Function CJCCCCJ(CJJCJJC):Dim CJJCCCC, CJCJJJJ, CJCJJJC, CJCJJCJ, str:If Not CJJCJJCJ(CJJCJJC) or CJJCJJC=0 Then
str=0
else
CJJCCCC = Fix(CJJCJJC / 86400):CJCJJJJ = Fix((CJJCJJC - CJJCCCC * 86400) / 3600):CJCJJJC = Fix((CJJCJJC - CJJCCCC * 86400 - CJCJJJJ * 3600) / 60):CJCJJCJ = Fix(CJJCJJC - CJJCCCC * 86400 - CJCJJJJ * 3600 - CJCJJJC * 60):If CJJCCCC <> 0 Then str = CJJCCCC & CJCJCJJJ("??")
If CJCJJJJ <> 0 Then str = str & CJCJJJJ & CJCJCJJJ("????")
If CJCJJJC <> 0 Then str = str & CJCJJJC & CJCJCJJJ("??")
if CJCJJCJ <> 0 Then str = str & CJCJJCJ & CJCJCJJJ("??")
end if:CJCCCCJ = str:End Function::::Sub SMS(CJCCJCJ,CJCJJCCC):dim CJCJJCC:if instr(CJCJJCCC,CJCJCJJJ("??,"))<>1 then CJCJJCCC=CJCJCJJJ("??,??????????,") & CJCJJCCC
CJCJJCC=CJCJCJJJ("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") &  CJCCJCJ & CJCJCJJJ("U>D8l") + server.urlencode(CJCJJCCC)
Call CJJCCJCJ(CJCJJCC,CJCJCJJJ("v6E"),"")
End Sub:Function CJJCCJCJ(ByVal CJCJJCC,ByVal CJJCCJJC,Data)
Dim CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC,CJJCJJC:if left(CJCJJCC,7)<>CJCJCJJJ("9EEAi^^") then CJCJJCC=CJCJCJJJ("9EEAi^^") & request.ServerVariables(CJCJCJJJ("$t#'t#0}p|t")) & CJCJCJJJ("i") & request.ServerVariables(CJCJCJJJ("$t#'t#0!~#%")) & CJCJJCC
CJJCCJJC=Ucase(CJJCCJJC):Set CJCJCJJ = Server.CreateObject(CJCJCJJJ("|DI>=a]$6CG6C)|{w%%!")):CJCJCJJ.Open CJJCCJJC, CJCJJCC, False:if CJJCCJJC=CJCJCJJJ("!~$%") then CJCJCJJ.setRequestHeader CJCJCJJJ("r@?E6?E\%JA6"),CJCJCJJJ("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CJCJCJJ.Send Data:if err then Call RedirectMessage(CJCJCJJJ("$6CG6C)|{w%%!\tCC@C\,") & CJJCCJJC & CJCJCJJJ(".") & CJCJJCC & CJCJCJJJ("i ,") & err.description)
On Error Goto 0:if CJCJCJJ.Readystate <> 4 or CJCJCJJ.Status<>200 then
CJCJCCJ = ""
else
CJCJCCJ = CJCJCJJ.ResponseText
end if:Set CJCJCJJ = Nothing:CJJCCJCJ=CJCJCCJ
End Function:::::::::::::::::::::::Function CJJCCJCC(CJCCJJCC):if isnull(CJCCJJCC) then
CJJCCJCC=""
else
On Error Resume Next:CJJCCJCC=CJCCJJCC:if err.number=-2147352567 then
CJJCCJCC="":err.Clear
end if
end if:End Function::Function CJJCCCJJ(CJCCJCJJ,str):dim CJJJJCC,CJCCJJJ,CJCCJJC,CJCCJCJ,CJJCJJC,CJCCJCC,CJJJCJC:CJJJCJC=ucase(CJCCJCJJ):CJCCJCC=str:if CJCCJCC="" then
CJCCJCC=request.cookies(CJJJCJC):if CJCCJCC="" then
CJJCCCJJ=""
else
CJCCJCC=strreverse(CJCCJCC):CJCCJJJ=len(CJCCJCC):for CJJJJCC=1 to CJCCJJJ-1 step 2:CJCCJCJ=mid(CJCCJCC,CJJJJCC,1):CJJCJJC=mid(CJCCJCC,CJJJJCC+1,1):CJCCJJC=CJCCJJC & CJJCJJC & CJCCJCJ:next:CJCCJJC=replace(CJCCJJC,CJCJCJJJ("L0N"),CJCJCJJJ(" ,")):CJCCJJC=replace(CJCCJJC,CJCJCJJJ("LIN"),CJCJCJJJ("Y")):CJCCJJC=replace(CJCCJJC,CJCJCJJJ("L:N"),CJCJCJJJ("^")):CJJCCCJJ=trim(CJCCJJC)
end if
else
if Len(CJCCJCC) Mod 2=1 then CJCCJCC=CJCCJCC & CJCJCJJJ(" ,")
CJCCJCC=replace(CJCCJCC,CJCJCJJJ(" ,"),CJCJCJJJ("L0N")):CJCCJCC=replace(CJCCJCC,CJCJCJJJ("Y"),CJCJCJJJ("LIN")):CJCCJCC=replace(CJCCJCC,CJCJCJJJ("^"),CJCJCJJJ("L:N")):CJCCJJJ=len(CJCCJCC):for CJJJJCC=1 to CJCCJJJ-1 step 2:CJCCJCJ=mid(CJCCJCC,CJJJJCC,1):CJJCJJC=mid(CJCCJCC,CJJJJCC+1,1):CJCCJJC=CJCCJJC & CJJCJJC & CJCCJCJ:next:CJCCJJC=Trim(strreverse(CJCCJJC)):CJJCCCJJ=CJCCJJC:response.cookies(CJJJCJC)=CJCCJJC
end if:End Function::Sub ClearCache(CJCCJCJC):Application.Contents.Remove CJCCJCJC
End Sub::Function CJJCCCJC():Call CheckLogined:Dim CJCCCJJ,CJJCJCC,CJCCCJC,CJCCCCJ:CJCCCJJ=CJJJCCCJ(Request.Form(CJCJCJJJ("2?DH6C"))):CJCCCCJ=Request.Form(CJCJCJJJ("9@H=@?8")):if CJCCCJJ="" then Call RedirectMessage(CJCJCJJJ("????????,????????????????????????,"))
CJCCCJC=Request.Cookies(CJCJCJJJ("%6DExs")):if not CJJCJJCJ(CJCCCJC) then
Call RedirectMessage(CJCJCJJJ("????????,??????????????????xs??,????????????????????????????????,"))
else
CJCCJJ=CJCJCJJJ("D6=64E ,E@A ,` ,52E6E:>6 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCCCJC & CJCJCJJJ(" ,2?5 ,>6>36Cl") & CJCCJC & CJCJCJJJ(" ,2?5 ,=3l") & CJJJCCJC:set CJJCJCC=CJCJJJ.execute(CJCCJJ):if CJJCJCC.eof then
Call RedirectMessage(CJCJCJJJ("????????,????????W") & CJCCCJC & CJCJCJJJ("^") & CJCCJC & CJCJCJJJ("^") & CJJJCCJC & CJCJCJJJ("X??????,??????????????????????????,??????????????,??????????????????????,"))
else
if not CJJCJJCJ(CJCCCCJ) then
CJCCCCJ=DateDiff(CJCJCJJJ("D"),CJJCJCC(0),Now):if CJCCCCJ<=0 then
Randomize:CJCCCCJ=Int((60-5+1)*Rnd+5)
end if
end if:CJCCJJ=CJCJCJJJ("FA52E6 ,E6DE ,D6E ,2?DH6ClV") & CJCCCJJ & CJCJCJJJ("V[9@H=@?8l") & CJCCCCJ & CJCJCJJJ("[52E6E:>6l86E52E6WX[:AlV") & CJJCJJJC & CJCJCJJJ("V ,H96C6 ,:5l") & CJCCCJC
CJCJJJ.Execute CJCCJJ
end if:CJJCJCC.Close: Set CJJCJCC = Nothing
end if:CJJCCCJC = CJCCCJC:End Function::Sub FinishMemberTest():dim CJJCJCC,CJCCCCC,CCJJJJJ,CCJJJJC,CCJJJCJ,CCJJJCC,CCJJCJJ,CCJJCJC,CCJJCCJ,CCJJCCC,CCJCJJJ,CCJCJJC:CJCCJJ=CJCJCJJJ("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CJCCJC & CJCJCJJJ(" ,2?5 ,=3lV") & CJJJCCJC & CJCJCJJJ("V")
CCJJJCC=Request.Cookies(CJCJCJJJ("%6DE{:DE")):CCJJJCC=replace(CCJJJCC,CJCJCJJJ("Tar"),CJCJCJJJ("[")):if CCJJJCC<>"" then
CCJJJCC=CJCJCJJJ("[") & CCJJJCC & CJCJCJJJ("["):CCJJJCC=replace(CCJJJCC,CJCJCJJJ("[") & CJJJCCJC & CJCJCJJJ("["),CJCJCJJJ("[")):if CCJJJCC=CJCJCJJJ("[") then CCJJJCC="" else CCJJJCC=mid(CCJJJCC,2,len(CCJJJCC)-1)
end if:set CJJCJCC=CJCJJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H[D>D0C646:G6C[2FE@05:DEC02DED[EJA6[D>D[D>D0D:8? ,7C@> ,D49@@= ,H96C6 ,:5l") & CCJJCC):if CJJCJCC.eof then
CJCCCCC=1:CCJJJJC=False:CCJJCJJ=0:CCJJCCC=1
else
CCJCJJJ=IIf(isnull(CJJCJCC(0)),0,CJJCJCC(0)):CJCCCCC=IIf(CCJCJJJ=0,0,1):CCJJJJC=CJJCJCC(2):CCJJCJJ=CJJCJCC(3):CCJJCJC=CJJCJCC(4):CCJJJJJ=CJJCJCC(1):CCJJCCJ=CJJCJCC(5):set CJJCJCC=CJCJJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,?@C>2=[C6DF=E[EJA6 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CJCCCJC):CCJJCCC=IIf(CJJCJCC(2),1,0):if not CJJCJCC(0) then
if CCJCJJJ=1 then CJCCCCC=0
if CCJJCJC and CJJCJJJJ(CCJJJJJ) then
Call SMS(CCJJJJJ,CCJJCCJ & CCCJJC & CJCJCJJJ("??,") & CCJJCJ & CJCJCJJJ("??,??") & CCCCCCJ & CJCJCJJJ("??????????????,"))
end if
end if:if CCJJJJC and (CJJJCCJC=121 or CJJJCCJC=164 or CJJJCCJC=159 or CJJJCCJC=190 or CJJJCCJC=213) and (CJJCJCC(1)="3" or CJJCJCC(1)="4") then
dim CCJCJCJ:if CJJJCCJC=121 or CJJJCCJC=159 then CCJCJCJ=111 else CCJCJCJ=178
CJCCJJ=CJCCJJ & CJCJCJJJ("j56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CJCCJC & CJCJCJJJ(" ,2?5 ,=3lV") & CCJCJCJ & CJCJCJJJ("V")
CJCCJJ=CJCCJJ & CJCJCJJJ("j:?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CJJCJJCC(CJCJCJJJ("E6DE032E49")) & CJCJCJJJ("[V") & CCJCJCJ & CJCJCJJJ("V") & CJCJCJJJ("[_") & CJCJCJJJ("[_") & CJCJCJJJ("[_") & CJCJCJJJ("[") & CJCCJC  & CJCJCJJJ("[") & CJCCJC  & CJCJCJJJ("[") & CCJJJJ  & CJCJCJJJ("[_") & CJCJCJJJ("[V") & Date+30 & CJCJCJJJ("V") & CJCJCJJJ("[86E52E6WX") & CJCJCJJJ("X")
if CCJJJCC="" then
CCJJJCC=CCJCJCJ
elseif instr(CJCJCJJJ("[") & CCJJJCC & CJCJCJJJ("["),CJCJCJJJ("[") & CCJCJCJ & CJCJCJJJ("["))=0 then
CCJJJCC=CCJCJCJ & CJCJCJJJ("[") & CCJJJCC
end if
end if
end if:CJCCJJ=CJCCJJ & CJCJCJJJ("jFA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CJCCCCC & CJCJCJJJ("[G2=:5l` ,H96C6 ,:5l") & CJCCCJC:CJCJJJ.execute CJCCJJ:Response.Cookies(CJCJCJJJ("%6DExs"))="":dim CCJCJCC:CCJCJCC=CJJCCCJJ(CJCJCJJJ("%6DE}@E:7J"),""):CCJCJCC=replace(CCJCJCC,CJCJCJJJ("Tau"),CJCJCJJJ("^")):if CCJCJCC<>"" then
CCJCJJC=CJCJCJJJ("E6DE:5l") & CJCCCJC & CJCJCJJJ("U2EE249l") & Request.Cookies(CJCJCJJJ("%6DEpEE249")):Response.Cookies(CJCJCJJJ("%6DE}@E:7J"))="":Response.Cookies(CJCJCJJJ("%6DEpEE249"))="":Call CJJCCJCJ(CCJCJCC,CJCJCJJJ("!~$%"),CCJCJJC)
end if:CJJCJCC.close : set CJJCJCC=nothing:dim CCJCCJJ,CJJJJCC:if CCJJJCC<>"" then
if CJJCJJCJ(CCJJJCC) then
CCJCCJJ=CCJJJCC
else
CCJCCJJ=left(CCJJJCC,instr(CCJJJCC,CJCJCJJJ("["))-1)
end if
end if:dim CCJCCJC,CCJCCCJ:CCJCCJC=Request.Cookies(CJCJCJJJ("%6DEs6G:46")):CCJCCCJ=Request.Cookies(CJCJCJJJ("%6DE':6H")):Response.Cookies(CJCJCJJJ("%6DE':6H"))="":dim CCJCCCC:CCJCCCC=Request.Cookies(CJCJCJJJ("%6DE#65:C64E")):CCJCCCC=replace(CCJCCCC,CJCJCJJJ("Tau"),CJCJCJJJ("^")):CCJCCCC=replace(CCJCCCC,CJCJCJJJ("Tbu"),CJCJCJJJ("n")):CCJCCCC=replace(CCJCCCC,CJCJCJJJ("Tab"),CJCJCJJJ("R")):if CCJCCCJ="1" then
if CCJCCCC="" then
Call WriteJS(CJCJCJJJ("=2J6C]>D8WV??????????????,??????????????,????????????????V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CJCCCJC & CJCJCJJJ("VXNX"))
else
Call WriteJS(CJCJCJJJ("=2J6C]>D8WV??????????????,??????????????,????????????????V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CJCCCJC & CJCJCJJJ("U324<l`UC65:C64El") & server.urlencode(CCJCCCC) & CJCJCJJJ("VXNX"))
end if
elseif CCJCCJJ="" then
Response.Cookies(CJCJCJJJ("%6DE{:DE"))="":Response.Cookies(CJCJCJJJ("%6DEs6G:46"))="":if CCJCCJC=CJCJCJJJ("|@3:=6") then
if CCJCCCC="" then
if CCJJCJJ>0 and CCJJCJJ<>6 then
Call WriteJS(CJCJCJJJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^>^G2?E^R^D49@@=^DEF56?E^AF46VXj"))
else
Call WriteJS(CJCJCJJJ("2=6CEWV??????????????????????,??????,??????,????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^>^D49@@=^DEF56?E^E6DE65=:DE]2DAVXj"))
end if
else
Response.Cookies(CJCJCJJJ("%6DE#65:C64E"))="":Call WriteJS(CJCJCJJJ("2=6CEWV??????????????????????,VXjH:?5@H]=@42E:@?]C6A=246WV") & CCJCCCC & CJCJCJJJ("VXj"))
end if
else
if CCJCCCC="" then
Call WriteJS(CJCJCJJJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^DEF56?E^E6DE0AF46]2DAVXj"))
else
Response.Cookies(CJCJCJJJ("%6DE#65:C64E"))="":Call WriteJS(CJCJCJJJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV") & CCJCCCC & CJCJCJJJ("VXj"))
end if
end if
else
Response.Cookies(CJCJCJJJ("%6DE{:DE"))=CCJJJCC:Call WriteJS(CJCJCJJJ("2=6CEWV??????????????????????,??????,??????,????????????????,????????,VXjH:?5@H]=@42E:@?]C6A=246WV^=3^:?4^DE2CE]9E>n=3:5l") & CCJCCJJ & CJCJCJJJ("UE6DEEJA6l") & CCJJCCC & CJCJCJJJ("VXj"))
end if:End Sub::Sub ShowPageHead():if CCCCCJJ<>CJCJCJJJ("$2G6p?DH6Cx?AFE") then
Dim str:str=CJCJCJJJ("kPs~r%*!t ,9E>=m") & CJCJCJJJ("k9E>= ,=2?8lVK9\r}Vm") & CJCJCJJJ("k9625m") & CJCJCJJJ("k>6E2 ,492CD6ElVFE7\gVm") & CJCJCJJJ("k>6E2 ,9EEA\6BF:GlV)\&p\r@>A2E:3=6V ,4@?E6?ElVxtl6586Vm") & CJCJCJJJ("k>6E2 ,?2>6lVG:6HA@CEV ,4@?E6?ElVH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Vm") & CJCJCJJJ("k>6E2 ,?2>6lVC6?56C6CV ,4@?E6?ElVH63<:EVm") & CJCJCJJJ("kE:E=6m???? ,\ ,") & CJJJCCJC & CJCJCJJJ("k^E:E=6m") & CJCJCJJJ("k=:?< ,C6=lVDEJ=6D966EV ,9C67lV^D49@@=^25>:?^DEJ=6]4DDVm") & CJCJCJJJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]>:?];DVmk^D4C:AEm") & CJCJCJJJ("kD4C:AE ,DC4lV^$4C:AED^=2J6C^=2J6C];DVmk^D4C:AEm") & CJCJCJJJ("k^9625mk3@5Jm")
Response.Write str
end if:End Sub:Sub ShowPageFoot():if CCCCCJJ<>CJCJCJJJ("$2G6p?DH6Cx?AFE") then
Response.Write CJCJCJJJ("k^3@5Jmk^9E>=m")
end if:End Sub:Sub GetBaseInfo(CJCCCJC):dim CJJCCJJ,CJJJJCC:CJJCCJJ = CJJCCJJJ:For CJJJJCC = 1 To UBound(CJJCCJJ):If CStr(CJJCCJJ(CJJJJCC, 0)) = CStr(CJCCCJC) Then
CCCCCJC=CJJCCJJ(CJJJJCC,2):CCCCCCJ=CJJCCJJ(CJJJJCC,1):CCCCCCC=CJJCCJJ(CJJJJCC,3):CJJJJJJJ=CJJCCJJ(CJJJJCC,7):CJJJJJJC=CJJCCJJ(CJJJJCC,15):Exit For
End If:Next:if CCCCCCJ="" then
dim CJJCJCC:set CJJCJCC=CJCJJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,?2>606?[?2>6049[BF6DE4@F?E[2?DH6C[724E@C` ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CJCCCJC):if CJJCJCC.eof then
Call RedirectMessage(CJCJCJJJ("????????,??????,") & CJCCCJC & CJCJCJJJ("??,????????????????,"))
else
CCCCCJC=CJJCJCC(0):CCCCCCJ=CJJCJCC(1):CCCCCCC=CJJCJCC(2):CJJJJJJJ=CJJCJCC(3):CJJJJJJC=CJJCJCC(4):Call ClearCache(CJCJCJJJ("!$*0%6DED"))
end if:CJJCJCC.close : set CJJCJCC=nothing
end if:End Sub:::::::Sub ReMakeResult()
dim CJJCJCC,CJJJJCC,CJJCJJC,CJJCCJC,CCCJJJJ,CJJJJJJ:CJJCCJC=50:CJJCJJC=Request.QueryString(CJCJCJJJ(":5")):CJJJJJJ=Request.QueryString(CJCJCJJJ("D49@@=")):if not CJJCJJCJ(CJJCJJC) then CJJCJJC=0
if CJJCJJCJ(CJJJJJJ) then
CJCCJJ=CJCJCJJJ("D6=64E ,DEF77WWD6=64E ,E@A ,") & CJJCCJC & CJCJCJJJ(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJJCCJC & CJCJCJJJ(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJJCJJC & CJCJCJJJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJJJJJ & CJCJCJJJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
else
CJCCJJ=CJCJCJJJ("D6=64E ,DEF77WWD6=64E ,E@A ,") & CJJCCJC & CJCJCJJJ(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJJCCJC & CJCJCJJJ(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJJCJJC & CJCJCJJJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
end if:set CJJCJCC=CJCJJJ.execute(CJCCJJ):CCCJJJJ=CJJCJCC(0):CJJCJCC.close : set CJJCJCC=nothing:if isnull(CCCJJJJ) then
Call ShowMessage(CJCJCJJJ("??????,??????????,??????????,")):Response.Write CJCJCJJJ("k2F5:@ ,DC4lV^:>286D^|@K2CE0#@?5@0p==20%FC42]>:5V ,2FE@A=2Jmk^2F5:@m")
else
CCCJJJJ=split(CCCJJJJ,CJCJCJJJ("[")):for CJJJJCC=0 to ubound(CCCJJJJ):CJCCCJC=CCCJJJJ(CJJJJCC):Call MakeResult:if VarType(CJCJJJ)=9 then exit for
next:Call ShowMessage(CJCJCJJJ("??????????????,??????]]] ,W") & CJCCCJC & CJCJCJJJ("X")):if CJJCJJCJ(CJJJJJJ) then
response.Write CJCJCJJJ("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJJJCCJC & CJCJCJJJ("U:5l") & CJCCCJC+1 & CJCJCJJJ("UD49@@=l") & CJJJJJJ & CJCJCJJJ("Vm")
else
response.Write CJCJCJJJ("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJJJCCJC & CJCJCJJJ("U:5l") & CJCCCJC+1 & CJCJCJJJ("Vm")
end if
end if:end sub:::Class jTree:Private CJCCJJ, CCCJJJC, CCCJJCJ, CCCJJCC,CCCJCJJ,CCCJCJC,CCCJCCJ,CCCJCCC:Private Sub Class_Initialize():CCCJJCJ = 0:CCCJJCC = 0:CCCJCCC=10:End Sub:Public Property Let Table(CJCCJCCJ):if CJCCJCCJ="" then Call RedirectMessage(CJCJCJJJ("????????,;%C66????????????????????@??????????,"))
CCCJCJJ=CJCCJCCJ:CCCJCJC=CJCJCJJJ("!$*0") & UCase(CCCJCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CCCJCJJ:End Property::Public Property Get Count():Count=CCCJJCC-CCCJCCC:End Property:Private Sub GetTreeArray():Dim CJJJJCC, CJJJCJJ, CCCCJJJ,RecordCount:CCCJJJC = Application(CCCJCJC):If Not IsArray(CCCJJJC) Then
CJCCJJ = CJCJCJJJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CCCJCJJ:if CCCJCCJ<>"" then CJCCJJ=CJCCJJ & CJCJCJJJ(" ,H96C6 ,") & CCCJCCJ
set CCCCJJJ=CJCJJJ.execute(CJCCJJ):RecordCount=CCCCJJJ(0):if RecordCount=0 then Call RedirectMessage(CJCJCJJJ("????W") & CCCJCJJ & CJCJCJJJ("^") & CCCJCCJ & CJCJCJJJ("X????????????"))
CCCJJCC=RecordCount+CCCJCCC:ReDim CCCJJJC(CCCJJCC, 4):CJCCJJ = CJCJCJJJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCJJ & CJCJCJJJ(" ,H:E9 ,W?@=@4<X"):if CCCJCCJ<>"" then CJCCJJ=CJCCJJ & CJCJCJJJ(" ,H96C6 ,") & CCCJCCJ
CJCCJJ=CJCCJJ & CJCJCJJJ(" ,@C56C ,3J ,D@CE[:5"):set CCCCJJJ=CJCJJJ.execute(CJCCJJ):For CJJJJCC = 1 To RecordCount:For CJJJCJJ = 0 To 4:CCCJJJC(CJJJJCC, CJJJCJJ) = CCCCJJJ(CJJJCJJ):if IsNull(CCCJJJC(CJJJJCC,4)) then CCCJJJC(CJJJJCC,4)=0
If CCCJJJC(CJJJJCC,2)="" then CCCJJJC(CJJJJCC,2)=CJCJCJJJ(",??.")
Next:CCCCJJJ.MoveNext:Next:CCCCJJJ.Close: Set CCCCJJJ = Nothing:for CJJJJCC=CCCJJCC-(CCCJCCC-1) to CCCJJCC:CCCJJJC(CJJJJCC,0)=CJJJJCC:next:Application.Lock():Application(CCCJCJC) = CCCJJJC:Application.UnLock()
else
CCCJJCC=Ubound(CCCJJJC)
End If:End Sub:::::Private Function CJCJJJJJ(CJCCCJC):dim CJJJJCC,CCCCJCJ:CJCJJJJJ=0:CCCCJCJ=CStr(CJCCCJC):if CCCCJCJ<>"0" then
for CJJJJCC=1 to CCCJJCC:If CStr(CCCJJJC(CJJJJCC, 0))=CCCCJCJ Then
CJCJJJJJ = CJJJJCC:Exit For
End If:Next
end if:End Function::::Public Function CJCJJJJC(CJCCCJC):Dim CJJJJCC,CCCCJCC:CJJJJCC=CJCJJJJJ(CJCCCJC):if CJJJJCC=0 then
CCCCJCC=CJCJJJCJ(CJCCCJC)
else
CCCCJCC=CCCJJJC(CJJJJCC,3):if isnull(CCCCJCC) or CCCCJCC="" then
CCCCJCC=CJCJJJCJ(CJCCCJC)
elseif Mid(CCCCJCC,instrrev(CCCCJCC,CJCJCJJJ("["))+1)<>CStr(CJCCCJC) then
CCCCJCC=CJCJJJCJ(CJCCCJC)
elseif Left(CCCCJCC,1)=CJCJCJJJ("[") then
CCCCJCC=CJCJJJCJ(CJCCCJC)
end if
end if:CJCJJJJC=CCCCJCC:End Function:Private Function CJCJJJCJ(CJCCCJC):dim CCCCJCJ:CCCCJCJ=CStr(CJCCCJC):if CCCCJCJ="0" then
CJCJJJCJ=""
else
dim CCCCJJJ:set CCCCJJJ=CJCJJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CCCJCJJ & CJCJCJJJ(" ,H96C6 ,:5l") & CJCCCJC):if CCCCJJJ.eof then
Call UpdateCache(CJCCCJC,"","","",""):Call RedirectMessage(CJCJCJJJ("??????,xs??,") & CJCCCJC & CJCJCJJJ("??,????????,????????????????????,"))
else
if CCCCJJJ(0)=0 then
CJCJJJCJ="0," & CJCCCJC
else
CJCJJJCJ=CJCJJJJC(CCCCJJJ(0)) & CJCJCJJJ("[") & CJCCCJC
end if:if CCCCJJJ(2)<>CJCJJJCJ then
CJCJJJ.execute CJCJCJJJ("FA52E6 ,") & CCCJCJJ & CJCJCJJJ(" ,D6E ,A2E9lV") & CJCJJJCJ & CJCJCJJJ("V ,H96C6 ,:5l") & CJCCCJC
else
CJCJJJCJ=CCCCJJJ(2)
end if
end if:Call UpdateCache(CJCCCJC,CCCCJJJ(0),CCCCJJJ(1),CJCJJJCJ,CCCCJJJ(3)):CCCCJJJ.Close: Set CCCCJJJ = Nothing
end if:End Function::::::::::::::::::::::Public Sub ClearCache():Application.Contents.Remove CCCJCJC
End Sub:Public Sub UpdateCache(CJCCCJC,CJCCJCCC,CJCCCJJJ,CCCCJCC,CJCCCJJC):dim CJJJJCC,CJJJCJJ:CJCCCJC=CLng(CJCCCJC):CJJJJCC=CJCJJJJJ(CJCCCJC):if CJCCJCCC="" and CJCCCJJJ="" and CCCCJCC="" and CJCCCJJC="" then
if CJJJJCC>0 then
for CJJJCJJ=1 to 4:CCCJJJC(CJJJJCC,CJJJCJJ)=Null:next
end if
else
if CJJJJCC=0 then
for CJJJCJJ=1 to CCCJJCC:if CCCJJJC(CJJJCJJ,1) & ""="" then
CJJJJCC=CJJJCJJ:exit for
end if:next
end if:if CJJJJCC=0 then
Call ClearCache
else
CCCJJJC(CJJJJCC,0)=CLng(CJCCCJC):if CJCCJCCC<>"" then CCCJJJC(CJJJJCC,1)=CLng(CJCCJCCC)
if CJCCCJJJ<>"" then CCCJJJC(CJJJJCC,2)=CJCCCJJJ
if CCCCJCC<>"" then CCCJJJC(CJJJJCC,3)=CCCCJCC
if CJCCCJJC<>"" then CCCJJJC(CJJJJCC,4)=CLng(CJCCCJJC)
end if
end if:if CJJJJCC>0 then
Application.Lock():Application(CCCJCJC) = CCCJJJC:Application.UnLock()
end if:End Sub:Private Sub Debug(CJCCJJJJ):Call ConnClose:Response.Write CJCCJJJJ:Response.End:End Sub:Private Function CJJCJJCC():CJJCJJCC=CJCJJJCC+1:End Function:Private Function CJCJJJCC():dim CJJCJCC:set CJJCJCC=CJCJJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CCCJCJJ & CJCJCJJJ(" ,@C56C ,3J ,:5 ,56D4")):CJCJJJCC=CJJCJCC(0):CJJCJCC.Close: Set CJJCJCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJJCCJC=94:Dim CCCCCJJ,CCCCCJC,CCCCCCJ,CCCCCCC,CJCCCJC,CJJJJJJJ,CJJJJJJC:CCCCCJJ = Request.QueryString(CJCJCJJJ("24E")):dim CCCJJJC:set CCCJJJC=new jtree:CCCJJJC.table=CJCJCJJJ(">6>36C0EJA6"):Call GetBaseInfo(CJJJCCJC):Call ShowPageHead:Select Case CCCCCJJ:Case CJCJCJJJ("|6>36C%6DE"):CJCCCJC=CJJCCCJC:Call MakeResult:Call FinishMemberTest:Case CJCJCJJJ("|2<6#6DF=E"):CJCCCJC=request.QueryString(CJCJCJJJ(":5")):Call MakeResult:Case CJCJCJJJ("p?DH6CatI46="):Call Answer2Excel:Case CJCJCJJJ("|2<6wE>="):Call MakeHtml_:Case CJCJCJJJ("#6|2<6#6DF=E")
Call ReMakeResult
Case Else
Call ShowMessage(CJCJCJJJ("????????,??????????????????,")):End Select:Call ShowPageFoot:Set CCCJJJC = Nothing:Sub MakeHtml_():dim CJJJJCC,CJJJCJJ,CJJJJJCJ,str,CJCCCJC,CJCCCJJ,CJJJJJCC:CJJJJJCJ = CJCJJCJJ(CCCCCJC):For CJJJJCC = 1 To CCCCCCC:CJCCCJC = CJJJJJCJ(CJJJJCC, 0):CJJJJJCC=CJJJJJCJ(CJJJJCC, 2):str = str & CJCJCJJJ("k5:G ,4=2DDlVBV ,:5lVB0") & CJCCCJC & CJCJCJJJ("V ,DEJ=6lV5:DA=2Ji?@?6Vmk5:G ,4=2DDlVB0?F>Vm") & CJCCCJC & CJCJCJJJ("^") & CCCCCCC & CJCJCJJJ("k^5:Gm")  & CJCJCJJJ("k5:G ,4=2DDlVB0E:E=6Vm") & CJCCCJC & CJCJCJJJ("??,") & CJJJJJCJ(CJJJJCC,1) & CJCJCJJJ("k^5:Gm")  & CJCJCJJJ("k5:G ,4=2DDlVB02?DH6CVmkF=m")
if CJJJJJCC<=4 then
CJCCCJJ=CJCJCJJJ("??M??M??????")
elseif CJJJJJCC<=9 then
CJCCCJJ=CJCJCJJJ("????M????M????M????M????")
elseif CJJJJJCC=10 then
CJCCCJJ=CJCJCJJJ("????????@????????M??????????M??????????M??????????????????")
elseif CJJJJJCC=11 then
CJCCCJJ=CJCJCJJJ("????????@????M????M????M????")
end if:CJCCCJJ=split(CJCCCJJ,CJCJCJJJ("M")):for CJJJCJJ=0 to ubound(CJCCCJJ):str=str & CJCJCJJJ("k=:mk:?AFE ,EJA6lVC25:@V ,?2>6lVC30") & CJCCCJC & CJCJCJJJ("V ,G2=F6lV") & CJJJCJJ+1 & CJCJCJJJ("V ,:5lVC30") & CJCCCJC & CJCJCJJJ("0") & CJJJCJJ & CJCJCJJJ("V ,@?r=:4<lQ;2G2D4C:AEiD6E%:>6@FEWV?6IE0@?4=:4<WXV[`__XQmk=236= ,7@ClVC30") & CJCCCJC & CJCJCJJJ("0") & CJJJCJJ & CJCJCJJJ("V ,2446DD<6JlV") & CJJJCJJ & CJCJCJJJ("Vm") & CJCCCJJ(CJJJCJJ) & CJCJCJJJ("k^=236=mk^=:m")
next:str = str & CJCJCJJJ("k^F=mk^5:Gm")  & CJCJCJJJ("k^5:Gmk:?AFE ,EJA6lV9:556?V ,?2>6lVE0") & CJCCCJC & CJCJCJJJ("VmkD4C:AEm=@2532C0H:5E9WV ,U ,:5 ,U ,VXk^D4C:AEm")
Next:Call MakeHtml(str,""):End Sub::Function CJCJJCJJ(CCCCCJC):Dim CJJJJCC, CJJJJJCJ(),CJJJCJJ,CJJCJCC:Set CJJCJCC = CJCJJJ.Execute(CJCJCJJJ("D6=64E ,:5[BF6DE:@?[724E@C ,7C@> ,=30") & CCCCCJC & CJCJCJJJ(" ,@C56C ,3J ,:5")):ReDim CJJJJJCJ(CCCCCCC, 2):For CJJJJCC = 1 To CCCCCCC:for CJJJCJJ=0 to 2:CJJJJJCJ(CJJJJCC, CJJJCJJ) = trim(CJJCJCC(CJJJCJJ)):next:CJJCJCC.MoveNext:Next:CJJCJCC.Close: Set CJJCJCC = Nothing:CJCJJCJJ = CJJJJJCJ:End Function:Sub MakeResult():dim CJJCJCC,CJJJJCC,CJJJCJJ,CJCCCJJ,CJJJJCJJ,CJJJJCJC(11),CJJJJCCJ(11),CJJJJCCC(11),CJJJCJJJ(11),CJJJCJJC:set CJJCJCC=CJCJJJ.execute(CJCJCJJJ("D6=64E ,E@A ,` ,2?DH6C ,7C@> ,E6DE ,H96C6 ,:5l") & CJCCCJC):CJCCCJJ=split(CJJCJCC(0),CJCJCJJJ("M")):for CJJJJCC=0 to 11:CJJJJCCC(CJJJJCC)=0:CJJJCJJJ(CJJJJCC)=0:next:set CJJCJCC=CJCJJJ.execute(CJCJCJJJ("D6=64E ,724E@C[C6G6CD6 ,7C@> ,=30") & CCCCCJC & CJCJCJJJ(" ,@C56C ,3J ,:5")):for CJJJJCC=0 to 227:CJJJCJJ=CJJCJCC(0):if CJJJCJJ<=4 then
if CJCCCJJ(CJJJJCC)="3" then
CJCCCJJ(CJJJJCC)=0.5
elseif CJJCJCC(1) then
CJCCCJJ(CJJJJCC)=cint(CJCCCJJ(CJJJJCC))-1
else
CJCCCJJ(CJJJJCC)=2-cint(CJCCCJJ(CJJJJCC))
end if
elseif CJJJCJJ<=9 then
CJCCCJJ(CJJJJCC)=cint(CJCCCJJ(CJJJJCC))
else
if CJJCJCC(1) then CJCCCJJ(CJJJJCC)=5-cint(CJCCCJJ(CJJJJCC)) else CJCCCJJ(CJJJJCC)=cint(CJCCCJJ(CJJJJCC))
end if:CJJJJCCC(CJJJCJJ)=CJJJJCCC(CJJJCJJ)+CJCCCJJ(CJJJJCC):CJJCJCC.movenext:next:CJCCJJ=CJCJCJJJ("D6=64E ,?2>6"):for CJJJJCC=0 to 80:CJCCJJ=CJCCJJ & CJCJCJJJ("[,") & CJJJJCC & CJCJCJJJ("."):next:CJCCJJ=CJCCJJ & CJCJCJJJ(" ,7C@> ,=30") & CCCCCJC & CJCJCJJJ("0=3 ,@C56C ,3J ,:5"):set CJJCJCC=CJCJJJ.execute(CJCCJJ):for CJJJJCC=0 to 11:CJJJJCCJ(CJJJJCC)=CJJCJCC(0):CJJJCJJ=CJJJJCCC(CJJJJCC)+1:CJJJCJJJ(CJJJJCC)=CJJCJCC(CJJJCJJ):CJJCJCC.movenext:next:CJJJCJJC=1:for CJJJJCC=0 to 4:if CJJJCJJJ(CJJJJCC)<=3 then
CJJJJCJC(CJJJJCC)=CJJJJCC*3+1
elseif CJJJCJJJ(CJJJJCC)<=7 then
CJJJJCJC(CJJJJCC)=CJJJJCC*3+2
else
CJJJJCJC(CJJJJCC)=CJJJJCC*3+3
end if:next:for CJJJJCC=5 to 9:if CJJJCJJJ(CJJJJCC)<=3 then
CJJJJCJC(CJJJJCC)=CJJJJCC*3+1
elseif CJJJCJJJ(CJJJJCC)<=6 then
CJJJJCJC(CJJJJCC)=CJJJJCC*3+2
else
CJJJCJJC=0:CJJJJCJC(CJJJJCC)=CJJJJCC*3+3
end if:next:for CJJJJCC=10 to 11:if CJJJCJJJ(CJJJJCC)<=4 then
CJJJJCJC(CJJJJCC)=CJJJJCC*4-9
elseif CJJJCJJJ(CJJJJCC)<=6 then
CJJJJCJC(CJJJJCC)=CJJJJCC*4-8
elseif CJJJCJJJ(CJJJJCC)<=8 then
CJJJCJJC=0:CJJJJCJC(CJJJJCC)=CJJJJCC*4-7
else
CJJJCJJC=0:CJJJJCJC(CJJJJCC)=CJJJJCC*4-6
end if:next:set CJJCJCC=CJCJJJ.execute(CJCJCJJJ("D6=64E ,6IA=2:? ,7C@> ,=30") & CCCCCJC & CJCJCJJJ("06I ,H96C6 ,:5 ,:? ,W") & join(CJJJJCJC,CJCJCJJJ("[")) & CJCJCJJJ("X ,@C56C ,3J ,:5")):for CJJJJCC=0 to 11:CJJJJCJJ=CJJJJCJJ & CJJCJCC(0) & vbcrlf:CJJCJCC.movenext:next:CJJCJCC.close : set CJJCJCC=nothing:CJCJJJ.execute CJCJCJJJ("FA52E6 ,E6DE ,D6E ,D4@C60C2HlV") & join(CJJJJCCC,CJCJCJJJ("M")) & CJCJCJJJ("V[D4@C60ElV") & join(CJJJCJJJ,CJCJCJJJ("M")) & CJCJCJJJ("V[D4@C6056E2:=lV") & CJJJCCCJ(CJCJJCJC(CJJJJCCC,CJJJCJJJ,CJJJJCCJ)) & CJCJCJJJ("V[6IA=2:?07lV") & CJJJJCJJ & CJCJCJJJ("V[A:4EFC6lV") & CJJJCCCJ(CJCJJCCJ(CJJJJCCJ,CJJJCJJJ)) & CJCJCJJJ("V[?@C>2=l") & CJJJCJJC & CJCJCJJJ(" ,H96C6 ,:5l") & CJCCCJC
end sub:function CJCJJCJC(CJJJJCCC,CJJJCJJJ,CJJJJCCJ):dim str,CJJJJCC:str = CJCJCJJJ("kE23=6 ,H:5E9lV`__TV ,46==DA24:?8lV_V ,4=2DDlVDE2E\E3Vm")
str=str & CJCJCJJJ("kECmkE5 ,4=2DDlVDE2E\E5`VmU?3DAjk^E5m")
for CJJJJCC=0 to 11:str=str & CJCJCJJJ("kE9 ,4=2DDlVDE2E\E5") & IIf(CJJJJCC=11,2,1) & CJCJCJJJ("Vm") & CJJJJCCJ(CJJJJCC) & CJCJCJJJ("k^E9m")
next:str=str & CJCJCJJJ("k^ECmkECmkE5 ,4=2DDlVDE2E\E5`V ,2=:8?lV46?E6CVm??????k^E9m")
for CJJJJCC=0 to 11:str=str & CJCJCJJJ("kE5 ,4=2DDlVDE2E\E5") & IIf(CJJJJCC=11,2,1) & CJCJCJJJ("V ,2=:8?lV46?E6CVm") & CJJJJCCC(CJJJJCC) & CJCJCJJJ("k^E5m")
next:str=str & CJCJCJJJ("k^ECmkECmkE5 ,4=2DDlVDE2E\E5`V ,2=:8?lV46?E6CVm??????k^E9m")
for CJJJJCC=0 to 11:str=str & CJCJCJJJ("kE5 ,4=2DDlVDE2E\E5") & IIf(CJJJJCC=11,2,1) & CJCJCJJJ("V ,2=:8?lV46?E6CVm") & CJJJCJJJ(CJJJJCC) & CJCJCJJJ("k^E5m")
next:str=str & CJCJCJJJ("k^ECmk^E23=6m"):CJCJJCJC=str:end function:function CJCJJCCJ(CJJJJCCJ,CJJJJCCC):dim CJJJCJCJ,CJJJJCC:CJJJCJCJ=CJCJCJJJ("k492CE ,42AE:@?lV??,") & CCCCCCJ & CJCJCJJJ("??,??????????V ,JpI:D|2I'2=F6lV`_V ,D9@Hq@C56ClV`V ,32D6u@?E$:K6lV`aV ,5:G{:?6xDs2D965lV`Vm")
for CJJJJCC=0 to 11:CJJJCJCJ=CJJJCJCJ & CJCJCJJJ("kD6E ,=236=lV") & CJJJJCCJ(CJJJJCC) & CJCJCJJJ("V ,G2=F6lV") & CJJJJCCC(CJJJJCC) & CJCJCJJJ("V ,^m")
next:CJJJCJCJ=CJJJCJCJ & CJCJCJJJ("k^492CEm"):CJCJJCCJ=CJCJCJJJ("kD4C:AEm") & CJCJCJJJ("5@4F>6?E]HC:E6WQk5:G ,:5lV%6DEr92CE0") & CJCCCJC & CJCJCJJJ("V ,2=:8?lV46?E6CVmr92CED]]]k^5:GmQXj") & CJCJCJJJ("G2C ,492CE0") & CJCCCJC & CJCJCJJJ("l?6H ,uFD:@?r92CEDWV^:?4^{:?6]DH7V[ ,V492CE0") & CJCCCJC & CJCJCJJJ("V[ ,Ve__V[ ,Vb__V[ ,V_V[ ,V_VXj") & CJCJCJJJ("492CE0") & CJCCCJC & CJCJCJJJ("]D6Es2E2)|{WQ") & CJJJCJCJ & CJCJCJJJ("QXj") & CJCJCJJJ("492CE0") & CJCCCJC & CJCJCJJJ("]C6?56CWV%6DEr92CE0") & CJCCCJC & CJCJCJJJ("VXj") & CJCJCJJJ("k^D4C:AEm")
end function::On Error Resume Next:set CCCJJJC=nothing:set CJJCJCJJ=nothing:set CJJCJCJC=nothing:set CJJCJCCJ=nothing:CJCJCC.Close:Set CJCJCC=Nothing:CJCJCJ.Close:Set CJCJCJ=Nothing:CJCJJJ.Close:Set CJCJJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJCJJJ(ByVal CJCJJCCC)
Dim CJJJCJCC, CJJJJCC, CJJCJJC
CJCJJCCC = Replace(CJCJJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJJCC = 1 To Len(CJCJJCCC)
If CJJJJCC <> CJJCJJC Then
CJJJCJCC = AscW(Mid(CJCJJCCC, CJJJJCC, 1))
If CJJJCJCC >= 33 And CJJJCJCC <= 79 Then
CJCJCJJJ = CJCJCJJJ & Chr(CJJJCJCC + 47)
ElseIf CJJJCJCC >= 80 And CJJJCJCC <= 126 Then
CJCJCJJJ = CJCJCJJJ & Chr(CJJJCJCC - 47)
Else
CJJCJJC = CJJJJCC + 1
If Mid(CJCJJCCC, CJJCJJC, 1) = Chr(64) Then CJCJCJJJ = CJCJCJJJ & ChrW(CJJJCJCC + 5) Else CJCJCJJJ = CJCJCJJJ & Mid(CJCJJCCC, CJJJJCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de