Edit D:\xinhaisoft\crisis

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCCJC, CJCCCJ,CJCCCC, CCJJJJ, CCJJJC:Set CJCCJC = server.CreateObject(CJCCCJCJ("ps~sq]r@??64E:@?")):CJCCJC.open Application(CJCCCJCJ("r@??64E:@?$EC:?8")):Set CJCCCJ=CJCCJC::Dim CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ,CCCJJC,CCCJCJ:Dim CCCJCC,CCCCJJ,CCCCJC,CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC,CJJJJCJ,CJJJJCC:Dim CJJJCJJ:CJJJCJJ=Trim(Request.Cookies(CJCCCJCJ("!$*|t|qt#"))):if CJJJCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJJCJ>0 then
CCJJJC=CJCCCJCJ("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") & CCJJCC & CJCCCJCJ("V ,2?5 ,:5l") & CCJJCJ
set CJCCCC=CJCCJC.execute(CCJJJC):If CJCCCC.EOF Then
Call ClearMemberCookie
Else
CCJCJJ=CJCCCC(2) & "":CCJCJC=CJCCCC(3):CCJCCJ=CJCCCC(5):CCJCCC=CJCCCC(6):CCCJJJ=CJCCCC(9):CCCJJC=CJCCCC(15):CCCJCC=CJCCCC(0):CJJJJCJ=CJCCCC(1):CJJJJJC=CJCCCC(11) & "":CCCCJJ=CJCCCC(10) & "":CCCJCJ=CJCCCC(12):CCCCJC=CJCCCC(14):CCCCCJ=CJCCCC(13):CCCCCC=CJCCCC(7) & "":CJJJJJJ=CJCCCC(4):CJJJJCC=CJCCCC(8):if isnull(CCCJJC) then CCCJJC=0
if isnull(CCCJJJ) or CCCJJJ=0 then CCCJJJ=CCJCJC
if isnull(CJJJJJJ) then CJJJJJJ=0
if isnull(CCJCCJ) then CCJCCJ=0
if instr(CJCCCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJCC)>0 then Call RedirectMessage(CJCCCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJJCJ,CCJJCC)
End IF
end if:Sub CheckRight(CJCJJCC):dim CJJJCJC,CJJJCCJ:if CCJJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJCCCJCJ("??????????????,????????????,"))
elseIf not CJJCCCJJ(CJCJJCC) then
Call RedirectMessage(CJCCCJCJ("????W") & CJCJJCC & CJCCCJCJ("X????????,????????????????????,"))
end if:End Sub:Function CJJCCCJJ(CJCJJCC):dim CJJJCJC,CJJJCCJ:CJJJCCJ=split(CJCJJCC,CJCCCJCJ("[")):CJJCCCJJ=False:for CJJJCJC=0 to ubound(CJJJCCJ):If Mid(CCJCJJ,CJJJCCJ(CJJJCJC),1)="1" then
CJJCCCJJ=True:exit function
end if:next:End Function:Sub CheckLogined():if CCJJCJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJCCC:CJJJCCC=trim(request.QueryString(CJCCCJCJ("D49@@="))):if isnumeric(CJJJCCC) then
response.Redirect CJCCCJCJ("^>^G2?E^R^D49@@=^") & CJJJCCC & CJCCCJCJ("^DEF56?E^=@8:?nC65:C64El") & CJCCJJC
else
Call RedirectMessage(CJCCCJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCCCJCJ("!$*|t|qt#"))="":CCJJCJ=0:CCJCCC=0:CCJJCC=Empty:CCJCCJ=0:CCCJJC=0:CCCJJJ=0:CCJCJC=0:CCCJCC=False:CJJJJCJ=False:CJJJJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJJCJJJ,CJJCJJC,CJJJCJC,CJJCJCJ,CJJCJCC:CJJCJJJ=split(CJJJCJJ,CJCCCJCJ("]")):if ubound(CJJCJJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJJCJJJ(0)) or len(CJJCJJJ(1))<>32 or len(CJJCJJJ(2))<>32 then
Call ClearMemberCookie
else
CJJCJJC=CJJCJJJ(1):for CJJJCJC=1 to len(CJJCJJC):CJJCJCJ=mid(CJJCJJC,CJJJCJC,1):if isnumeric(CJJCJCJ) then CJJCJCC=CJJCJCC & CJJCJCJ
if len(CJJCJCC)=7 then exit for
next:CJJCJJC=CJJCJJJ(2):if CJJCJCC<>mid(CJJCJJC,6,7) then
Call ClearMemberCookie
else
CJJCJCJ=mid(CJJCJJC,18,10)/2:if CJJCJCJ<DateDiff(CJCCCJCJ("D"), CJCCCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJJCJ=Clng(CJJCJJJ(0)):CCJJCC=CJJCJJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJJJCC,CJCCCJCC):dim CJJJCJC,CJJCJCJ,CJJCJCC:for CJJJCJC=1 to len(CJCCCJCC):CJJCJCJ=mid(CJCCCJCC,CJJJCJC,1):if isnumeric(CJJCJCJ) then CJJCJCC=CJJCJCC & CJJCJCJ
if len(CJJCJCC)=7 then exit for
next:CJJCJCC=CCJJJCC & CJCCCJCJ("]") & CJCCCJCC & CJCCCJCJ("]") & Fix(10000*(Rnd+1)) & CJJCJCC & Fix(10000*(Rnd+1)) & DateDiff(CJCCCJCJ("D"), CJCCCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCCCJCJ("!$*|t|qt#"))=CJJCJCC:End Sub::Function CJJCCCJC(CJCCCCJJ):Dim str,CJJCCJC:str = Trim(CJCCCCJJ):If IsNull(str) Or str = "" Then
CJJCCCJC = ""
else
str=Replace(str, CJCCCJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJCCCJCJ("k:7C2>6"), CJCCCJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJCCCJCJ("kD4C:AE"), CJCCCJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJCCJC=new RegExp:CJJCCJC.Pattern=CJCCCJCJ("@?W,2\K.ZXl"):CJJCCJC.IgnoreCase = True:CJJCCJC.Global=True:str=CJJCCJC.Replace(str,CJCCCJCJ("@?S`U6BF2=Dj")):set CJJCCJC=nothing:CJJCCCJC=str
End If:End Function:Function IIf(CJCCCCJC, CJCCCCCJ, CJCCCCCC):if isnull(CJCCCCJC) or isempty(CJCCCCJC) then
IIf = CJCCCCCC
elseif CJCCCCJC Then
IIf = CJCCCCCJ
Else
IIf = CJCCCCCC
end if:End Function:Const CJJCCJCJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJJCCCCC(str):if isnull(str) or str="" then
CJJCCCCC=False:exit function
end if:Dim CJJCCJC:Set CJJCCJC = New RegExp:CJJCCJC.Pattern = CJCCCJCJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJJCCJC.IgnoreCase = True:CJJCCCCC = CJJCCJC.test(str):set CJJCCJC=nothing:End Function:Function CJCJJJJJ():dim CJJCCCJ:CJJCCCJ = Cstr(Request.ServerVariables(CJCCCJCJ("w%%!0)0u~#(p#sts0u~#"))):If CJJCCCJ = "" Then CJJCCCJ = Cstr(Request.ServerVariables(CJCCCJCJ("#t|~%t0pss#")))
if instr(CJJCCCJ,CJCCCJCJ("i"))>0 then
CJJCCCJ=left(CJJCCCJ,instr(CJJCCCJ,CJCCCJCJ("i"))-1)
elseif instr(CJJCCCJ,CJCCCJCJ("["))>0 then
CJJCCCJ=left(CJJCCCJ,instr(CJJCCCJ,CJCCCJCJ("["))-1)
end if:CJCJJJJJ=left(CJJCCCJ,15):End Function:Sub Debug(str):response.Charset=CJCCCJCJ("FE7\g"):dim CJJJCJC,CJJCJCJ,CJJCCCC:if isarray(str) then
on error resume next:CJJJCJC=ubound(str,2):CJJCCCC=err.number:err.clear:on error goto 0:if CJJCCCC<>0 then
for CJJJCJC=0 to ubound(str):if CJJJCJC>0 then response.Write CJCCCJCJ("k3C ,^m")
response.Write CJJJCJC & CJCCCJCJ("i ,") & str(CJJJCJC):next
else
response.Write CJCCCJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJJJCJC=0 to ubound(str,2):response.Write CJCCCJCJ("kE9 ,2=:8?lV=67EVm") & CJJJCJC & CJCCCJCJ("k^E9m")
next:response.Write CJCCCJCJ("k^ECm"):for CJJJCJC=0 to ubound(str):response.Write CJCCCJCJ("kECmkE9m") & CJJJCJC & CJCCCJCJ("k^E9m"):for CJJCJCJ=0 to ubound(str,2):response.Write CJCCCJCJ("kE5m") & str(CJJJCJC,CJJCJCJ) & CJCCCJCJ("k^E5m"):next:response.Write CJCCCJCJ("k^ECm"):next:response.Write CJCCCJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CJCCCJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CJCCCJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCJJJJJJ,CCJJJJJC):dim CJJCJJJ:CJJCJJJ=CCJJJJJJ & CJCCCJCJ("l") & CCJJJJJC & CJCCCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCCCJCJ("$6E\r@@<:6"),CJJCJJJ):End Sub::::::sub ShowMessage(CCJJJJCJ):response.Charset=CJCCCJCJ("FE7\g"):Response.Write CJCCCJCJ("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") & CCJJJJCJ & CJCCCJCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCJJJJC(CJJCCCC):if isnull(CJJCCCC) or trim(CJJCCCC)="" or not isnumeric(CJJCCCC) then
CJCJJJJC=false
else
Dim CJJCCJC:Set CJJCCJC = New RegExp:CJJCCJC.Pattern = CJCCCJCJ("/-5ZS"):CJJCCJC.IgnoreCase = True:CJCJJJJC = CJJCCJC.test(CJJCCCC):set CJJCCJC=nothing
end if:End Function:Function CJCJJJCJ(CCJJJJCC):dim CJCJJJJ,CJCJJJC:CJCJJJJ=CJCCCJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCJJJJCC & CJCCCJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCJJJC=CJCCJC.execute(CJCJJJJ):CJCJJJCJ = CJCJJJC(0):if isnull(CJCJJJCJ) then CJCJJJCJ=1
CJCJJJC.close : set CJCJJJC=nothing:End Function:::Sub WriteJS(CCJJJCJJ):Call ConnClose:response.Charset=CJCCCJCJ("FE7\g"):response.write CJCCCJCJ("k") & CJCCCJCJ("D4C:AEm") & CCJJJCJJ & CJCCCJCJ("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CCJCJJJ=nothing:set CJCJJJCC=nothing:set CJCJJCJJ=nothing:set CJCJJCJC=nothing:CJCJJJC.close : set CJCJJJC=nothing:CCJJJJ.Close : Set CCJJJJ=Nothing:CJCCCC.Close : Set CJCCCC=Nothing:CJCJJCCJ.Close : Set CJCJJCCJ = Nothing:CJCCJC.Close : Set CJCCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJJJJCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCCCJCJ("!$*0|6DD286"),server.URLEncode(CCJJJJCJ)):Response.Redirect CJCCCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJCJJCCC():Dim CJCJJJC, CJCJJCJ(), CJJJCJC, CJJCJCJ, CJCJJCC,CJCJCJJ:If Not IsArray(Application(CJCCCJCJ("!$*0%6DED"))) Then
CCJJJC=CJCCCJCJ("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 CJCJJJC=server.createobject(CJCCCJCJ("25@53]C64@C5D6E")):CJCJJJC.open CCJJJC,CJCCJC,1:CJCJJCC = CJCJJJC.RecordCount:CJCJCJJ=CJCJJJC.fields.count-1:ReDim CJCJJCJ(CJCJJCC, CJCJCJJ):If CJCJJCC > 0 Then
For CJJJCJC = 1 To CJCJJCC:For CJJCJCJ = 0 To CJCJCJJ:if CJJCJCJ=4 or CJJCJCJ=6 or CJJCJCJ=19 then
CJCJJCJ(CJJJCJC, CJJCJCJ) = CJCJCJCJ(CJCJJJC(CJJCJCJ))
else
CJCJJCJ(CJJJCJC, CJJCJCJ) = CJCJJJC(CJJCJCJ):if CJCJJJC(CJJCJCJ).type<>11 and isnull(CJCJJCJ(CJJJCJC, CJJCJCJ)) then CJCJJCJ(CJJJCJC, CJJCJCJ)=""
end if:Next:CJCJJJC.MoveNext:Next
End If:CJCJJJC.Close: Set CJCJJJC = Nothing:Application(CJCCCJCJ("!$*0%6DED")) = CJCJJCJ
End If:CJCJJCCC = Application(CJCCCJCJ("!$*0%6DED")):End Function::Function CCJJCJJ(CJJCCCC):Dim CJCJCJC, CJCJCCJ, CJCJCCC, CJCCJJJ, str:If Not CJCJJJJC(CJJCCCC) or CJJCCCC=0 Then
str=0
else
CJCJCJC = Fix(CJJCCCC / 86400):CJCJCCJ = Fix((CJJCCCC - CJCJCJC * 86400) / 3600):CJCJCCC = Fix((CJJCCCC - CJCJCJC * 86400 - CJCJCCJ * 3600) / 60):CJCCJJJ = Fix(CJJCCCC - CJCJCJC * 86400 - CJCJCCJ * 3600 - CJCJCCC * 60):If CJCJCJC <> 0 Then str = CJCJCJC & CJCCCJCJ("??")
If CJCJCCJ <> 0 Then str = str & CJCJCCJ & CJCCCJCJ("????")
If CJCJCCC <> 0 Then str = str & CJCJCCC & CJCCCJCJ("??")
if CJCCJJJ <> 0 Then str = str & CJCCJJJ & CJCCCJCJ("??")
end if:CCJJCJJ = str:End Function::::Sub SMS(CCJJJJJ,CJCCCJJC):dim CJCCJJC:if instr(CJCCCJJC,CJCCCJCJ("??,"))<>1 then CJCCCJJC=CJCCCJCJ("??,??????????,") & CJCCCJJC
CJCCJJC=CJCCCJCJ("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") &  CCJJJJJ & CJCCCJCJ("U>D8l") + server.urlencode(CJCCCJJC)
Call CJCJCJJC(CJCCJJC,CJCCCJCJ("v6E"),"")
End Sub:Function CJCJCJJC(ByVal CJCCJJC,ByVal CJCJCJJJ,Data)
Dim CJCCJCJ,CJCCJCC,CJCCCJJ,CJCCCJC,CJJCCCC:if left(CJCCJJC,7)<>CJCCCJCJ("9EEAi^^") then CJCCJJC=CJCCCJCJ("9EEAi^^") & request.ServerVariables(CJCCCJCJ("$t#'t#0}p|t")) & CJCCCJCJ("i") & request.ServerVariables(CJCCCJCJ("$t#'t#0!~#%")) & CJCCJJC
CJCJCJJJ=Ucase(CJCJCJJJ):Set CJCCJCJ = Server.CreateObject(CJCCCJCJ("|DI>=a]$6CG6C)|{w%%!")):CJCCJCJ.Open CJCJCJJJ, CJCCJJC, False:if CJCJCJJJ=CJCCCJCJ("!~$%") then CJCCJCJ.setRequestHeader CJCCCJCJ("r@?E6?E\%JA6"),CJCCCJCJ("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CJCCJCJ.Send Data:if err then Call RedirectMessage(CJCCCJCJ("$6CG6C)|{w%%!\tCC@C\,") & CJCJCJJJ & CJCCCJCJ(".") & CJCCJJC & CJCCCJCJ("i ,") & err.description)
On Error Goto 0:if CJCCJCJ.Readystate <> 4 or CJCCJCJ.Status<>200 then
CJCCCJJ = ""
else
CJCCCJJ = CJCCJCJ.ResponseText
end if:Set CJCCJCJ = Nothing:CJCJCJJC=CJCCCJJ
End Function:::::::::::::::::::::::Function CJCJCJCJ(CCJJJCJC):if isnull(CCJJJCJC) then
CJCJCJCJ=""
else
On Error Resume Next:CJCJCJCJ=CCJJJCJC:if err.number=-2147352567 then
CJCJCJCJ="":err.Clear
end if
end if:End Function::Function CJCJCJCC(CCJJJCCJ,str):dim CJJJCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CJJCCCC,CCJJJJC,CJJCJCC:CJJCJCC=ucase(CCJJJCCJ):CCJJJJC=str:if CCJJJJC="" then
CCJJJJC=request.cookies(CJJCJCC):if CCJJJJC="" then
CJCJCJCC=""
else
CCJJJJC=strreverse(CCJJJJC):CJCCCCJ=len(CCJJJJC):for CJJJCJC=1 to CJCCCCJ-1 step 2:CCJJJJJ=mid(CCJJJJC,CJJJCJC,1):CJJCCCC=mid(CCJJJJC,CJJJCJC+1,1):CJCCCCC=CJCCCCC & CJJCCCC & CCJJJJJ:next:CJCCCCC=replace(CJCCCCC,CJCCCJCJ("L0N"),CJCCCJCJ(" ,")):CJCCCCC=replace(CJCCCCC,CJCCCJCJ("LIN"),CJCCCJCJ("Y")):CJCCCCC=replace(CJCCCCC,CJCCCJCJ("L:N"),CJCCCJCJ("^")):CJCJCJCC=trim(CJCCCCC)
end if
else
if Len(CCJJJJC) Mod 2=1 then CCJJJJC=CCJJJJC & CJCCCJCJ(" ,")
CCJJJJC=replace(CCJJJJC,CJCCCJCJ(" ,"),CJCCCJCJ("L0N")):CCJJJJC=replace(CCJJJJC,CJCCCJCJ("Y"),CJCCCJCJ("LIN")):CCJJJJC=replace(CCJJJJC,CJCCCJCJ("^"),CJCCCJCJ("L:N")):CJCCCCJ=len(CCJJJJC):for CJJJCJC=1 to CJCCCCJ-1 step 2:CCJJJJJ=mid(CCJJJJC,CJJJCJC,1):CJJCCCC=mid(CCJJJJC,CJJJCJC+1,1):CJCCCCC=CJCCCCC & CJJCCCC & CCJJJJJ:next:CJCCCCC=Trim(strreverse(CJCCCCC)):CJCJCJCC=CJCCCCC:response.cookies(CJJCJCC)=CJCCCCC
end if:End Function::Sub ClearCache(CCJJJCCC):Application.Contents.Remove CCJJJCCC
End Sub::Function CJCJCCJJ():Call CheckLogined:Dim CCJJJCJ,CJCJJJC,CCJJJCC,CCJJCJJ:CCJJJCJ=CJJCCCJC(Request.Form(CJCCCJCJ("2?DH6C"))):CCJJCJJ=Request.Form(CJCCCJCJ("9@H=@?8")):if CCJJJCJ="" then Call RedirectMessage(CJCCCJCJ("????????,????????????????????????,"))
CCJJJCC=Request.Cookies(CJCCCJCJ("%6DExs")):if not CJCJJJJC(CCJJJCC) then
Call RedirectMessage(CJCCCJCJ("????????,??????????????????xs??,????????????????????????????????,"))
else
CCJJJC=CJCCCJCJ("D6=64E ,E@A ,` ,52E6E:>6 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJJJCC & CJCCCJCJ(" ,2?5 ,>6>36Cl") & CCJJCJ & CJCCCJCJ(" ,2?5 ,=3l") & CJJCCJCC:set CJCJJJC=CJCCJC.execute(CCJJJC):if CJCJJJC.eof then
Call RedirectMessage(CJCCCJCJ("????????,????????W") & CCJJJCC & CJCCCJCJ("^") & CCJJCJ & CJCCCJCJ("^") & CJJCCJCC & CJCCCJCJ("X??????,??????????????????????????,??????????????,??????????????????????,"))
else
if not CJCJJJJC(CCJJCJJ) then
CCJJCJJ=DateDiff(CJCCCJCJ("D"),CJCJJJC(0),Now):if CCJJCJJ<=0 then
Randomize:CCJJCJJ=Int((60-5+1)*Rnd+5)
end if
end if:CCJJJC=CJCCCJCJ("FA52E6 ,E6DE ,D6E ,2?DH6ClV") & CCJJJCJ & CJCCCJCJ("V[9@H=@?8l") & CCJJCJJ & CJCCCJCJ("[52E6E:>6l86E52E6WX[:AlV") & CJCJJJJJ & CJCCCJCJ("V ,H96C6 ,:5l") & CCJJJCC
CJCCJC.Execute CCJJJC
end if:CJCJJJC.Close: Set CJCJJJC = Nothing
end if:CJCJCCJJ = CCJJJCC:End Function:Function CJCJCCJC():Dim CCJJJCJ, CCJJCJC, CJCJJJC, CCJJJCC, CCJJCCJ,CCJJCCC:CCJJCCJ = Request.Form(CJCCCJCJ("52E6E:>6")):CCJJJCJ = Trim(Request.Form(CJCCCJCJ("2?DH6C"))):CCJJCJC = CJJCCCJC(Request.Form(CJCCCJCJ("DEF56?E?F>"))):if CCJJCJC="" then Call debug(1)
if not isdate(CCJJCCJ) or CCJJCCJ="" then CCJJCCJ=Date
dim CCJCJJJ:set CCJCJJJ=new jtree:CCJCJJJ.table=CJCCCJCJ(">6>36C0EJA6"):Set CJCJJJC = CJCCCJ.Execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5[286 ,7C@> ,G0>6>36C ,H96C6 ,DE2E6ld ,2?5 ,") & CCJCJJJ.sql_getchildren(CCJCJC) & CJCCCJCJ(" ,2?5 ,?F>36ClV") & CCJJCJC & CJCCCJCJ("V"))
If CJCJJJC.EOF Then Call Debug(2)
CCJJCJC = CJCJJJC(0):CCJJCCC=CJCJJJC(1):if CJJCCJCC=106 then
if CCJJCCC<6 or CCJJCCC>10 then Call debug(3)
end if:CCJJJC=CJCCCJCJ(":?D6CE ,:?E@ ,E6DEW>6>36C[2?DH6C[=3[,52E6E:>6.[:A[?@C>2=[EJA6X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CCJJCJC & CJCCCJCJ("[V") & CCJJJCJ & CJCCCJCJ("V[") & CJJCCJCC & CJCCCJCJ("[V") & CCJJCCJ & CJCCCJCJ("V[V") & CJCJJJJJ & CJCCCJCJ("V[`[`X")
set CJCJJJC=CJCCJC.Execute(CCJJJC):CCJJJCC = CJCJJJC(0):CJCJJJC.Close: Set CJCJJJC = Nothing:CJCJCCJC = CCJJJCC:End Function:Sub FinishMemberTest():dim CJCJJJC,CCJCJJC,CCJCJCJ,CCJCJCC,CCJCCJJ,CCJCCJC,CCJCCCJ,CCJCCCC,CCCJJJJ,CCCJJJC,CCCJJCJ,CCCJJCC:CCJJJC=CJCCCJCJ("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CCJJCJ & CJCCCJCJ(" ,2?5 ,=3lV") & CJJCCJCC & CJCCCJCJ("V")
CCJCCJC=Request.Cookies(CJCCCJCJ("%6DE{:DE")):CCJCCJC=replace(CCJCCJC,CJCCCJCJ("Tar"),CJCCCJCJ("[")):if CCJCCJC<>"" then
CCJCCJC=CJCCCJCJ("[") & CCJCCJC & CJCCCJCJ("["):CCJCCJC=replace(CCJCCJC,CJCCCJCJ("[") & CJJCCJCC & CJCCCJCJ("["),CJCCCJCJ("[")):if CCJCCJC=CJCCCJCJ("[") then CCJCCJC="" else CCJCCJC=mid(CCJCCJC,2,len(CCJCCJC)-1)
end if:set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H[D>D0C646:G6C[2FE@05:DEC02DED[EJA6[D>D[D>D0D:8? ,7C@> ,D49@@= ,H96C6 ,:5l") & CCCJJJ):if CJCJJJC.eof then
CCJCJJC=1:CCJCJCC=False:CCJCCCJ=0:CCCJJJC=1
else
CCCJJCJ=IIf(isnull(CJCJJJC(0)),0,CJCJJJC(0)):CCJCJJC=IIf(CCCJJCJ=0,0,1):CCJCJCC=CJCJJJC(2):CCJCCCJ=CJCJJJC(3):CCJCCCC=CJCJJJC(4):CCJCJCJ=CJCJJJC(1):CCCJJJJ=CJCJJJC(5):set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,?@C>2=[C6DF=E[EJA6 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJJJCC):CCCJJJC=IIf(CJCJJJC(2),1,0):if not CJCJJJC(0) then
if CCCJJCJ=1 then CCJCJJC=0
if CCJCCCC and CJJCCCCC(CCJCJCJ) then
Call SMS(CCJCJCJ,CCCJJJJ & CCCCCJ & CJCCCJCJ("??,") & CCJCCC & CJCCCJCJ("??,??") & CJJJCCJJ & CJCCCJCJ("??????????????,"))
end if
end if:if CCJCJCC and (CJJCCJCC=121 or CJJCCJCC=164 or CJJCCJCC=159 or CJJCCJCC=190 or CJJCCJCC=213) and (CJCJJJC(1)="3" or CJCJJJC(1)="4") then
dim CCCJCJJ:if CJJCCJCC=121 or CJJCCJCC=159 then CCCJCJJ=111 else CCCJCJJ=178
CCJJJC=CCJJJC & CJCCCJCJ("j56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CCJJCJ & CJCCCJCJ(" ,2?5 ,=3lV") & CCCJCJJ & CJCCCJCJ("V")
CCJJJC=CCJJJC & CJCCCJCJ("j:?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CJCJJJCJ(CJCCCJCJ("E6DE032E49")) & CJCCCJCJ("[V") & CCCJCJJ & CJCCCJCJ("V") & CJCCCJCJ("[_") & CJCCCJCJ("[_") & CJCCCJCJ("[_") & CJCCCJCJ("[") & CCJJCJ  & CJCCCJCJ("[") & CCJJCJ  & CJCCCJCJ("[") & CCJCJC  & CJCCCJCJ("[_") & CJCCCJCJ("[V") & Date+30 & CJCCCJCJ("V") & CJCCCJCJ("[86E52E6WX") & CJCCCJCJ("X")
if CCJCCJC="" then
CCJCCJC=CCCJCJJ
elseif instr(CJCCCJCJ("[") & CCJCCJC & CJCCCJCJ("["),CJCCCJCJ("[") & CCCJCJJ & CJCCCJCJ("["))=0 then
CCJCCJC=CCCJCJJ & CJCCCJCJ("[") & CCJCCJC
end if
end if
end if:CCJJJC=CCJJJC & CJCCCJCJ("jFA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CCJCJJC & CJCCCJCJ("[G2=:5l` ,H96C6 ,:5l") & CCJJJCC:CJCCJC.execute CCJJJC:Response.Cookies(CJCCCJCJ("%6DExs"))="":dim CCCJCJC:CCCJCJC=CJCJCJCC(CJCCCJCJ("%6DE}@E:7J"),""):CCCJCJC=replace(CCCJCJC,CJCCCJCJ("Tau"),CJCCCJCJ("^")):if CCCJCJC<>"" then
CCCJJCC=CJCCCJCJ("E6DE:5l") & CCJJJCC & CJCCCJCJ("U2EE249l") & Request.Cookies(CJCCCJCJ("%6DEpEE249")):Response.Cookies(CJCCCJCJ("%6DE}@E:7J"))="":Response.Cookies(CJCCCJCJ("%6DEpEE249"))="":Call CJCJCJJC(CCCJCJC,CJCCCJCJ("!~$%"),CCCJJCC)
end if:CJCJJJC.close : set CJCJJJC=nothing:dim CCCJCCJ,CJJJCJC:if CCJCCJC<>"" then
if CJCJJJJC(CCJCCJC) then
CCCJCCJ=CCJCCJC
else
CCCJCCJ=left(CCJCCJC,instr(CCJCCJC,CJCCCJCJ("["))-1)
end if
end if:dim CCCJCCC,CCCCJJJ:CCCJCCC=Request.Cookies(CJCCCJCJ("%6DEs6G:46")):CCCCJJJ=Request.Cookies(CJCCCJCJ("%6DE':6H")):Response.Cookies(CJCCCJCJ("%6DE':6H"))="":dim CCCCJJC:CCCCJJC=Request.Cookies(CJCCCJCJ("%6DE#65:C64E")):CCCCJJC=replace(CCCCJJC,CJCCCJCJ("Tau"),CJCCCJCJ("^")):CCCCJJC=replace(CCCCJJC,CJCCCJCJ("Tbu"),CJCCCJCJ("n")):CCCCJJC=replace(CCCCJJC,CJCCCJCJ("Tab"),CJCCCJCJ("R")):if CCCCJJJ="1" then
if CCCCJJC="" then
Call WriteJS(CJCCCJCJ("=2J6C]>D8WV??????????????,??????????????,????????????????V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CCJJJCC & CJCCCJCJ("VXNX"))
else
Call WriteJS(CJCCCJCJ("=2J6C]>D8WV??????????????,??????????????,????????????????V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CCJJJCC & CJCCCJCJ("U324<l`UC65:C64El") & server.urlencode(CCCCJJC) & CJCCCJCJ("VXNX"))
end if
elseif CCCJCCJ="" then
Response.Cookies(CJCCCJCJ("%6DE{:DE"))="":Response.Cookies(CJCCCJCJ("%6DEs6G:46"))="":if CCCJCCC=CJCCCJCJ("|@3:=6") then
if CCCCJJC="" then
if CCJCCCJ>0 and CCJCCCJ<>6 then
Call WriteJS(CJCCCJCJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^>^G2?E^R^D49@@=^DEF56?E^AF46VXj"))
else
Call WriteJS(CJCCCJCJ("2=6CEWV??????????????????????,??????,??????,????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^>^D49@@=^DEF56?E^E6DE65=:DE]2DAVXj"))
end if
else
Response.Cookies(CJCCCJCJ("%6DE#65:C64E"))="":Call WriteJS(CJCCCJCJ("2=6CEWV??????????????????????,VXjH:?5@H]=@42E:@?]C6A=246WV") & CCCCJJC & CJCCCJCJ("VXj"))
end if
else
if CCCCJJC="" then
Call WriteJS(CJCCCJCJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^DEF56?E^E6DE0AF46]2DAVXj"))
else
Response.Cookies(CJCCCJCJ("%6DE#65:C64E"))="":Call WriteJS(CJCCCJCJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV") & CCCCJJC & CJCCCJCJ("VXj"))
end if
end if
else
Response.Cookies(CJCCCJCJ("%6DE{:DE"))=CCJCCJC:Call WriteJS(CJCCCJCJ("2=6CEWV??????????????????????,??????,??????,????????????????,????????,VXjH:?5@H]=@42E:@?]C6A=246WV^=3^:?4^DE2CE]9E>n=3:5l") & CCCJCCJ & CJCCCJCJ("UE6DEEJA6l") & CCCJJJC & CJCCCJCJ("VXj"))
end if:End Sub:Sub FinishAnswerInput():dim CJCJJJC,CCJCJJC,CCCJJCJ:set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H ,7C@> ,D49@@= ,H96C6 ,:5l") & CCCJJJ):if CJCJJJC.eof then
CCJCJJC=1
else
CCCJJCJ=IIf(isnull(CJCJJJC(0)),0,CJCJJJC(0)):CCJCJJC=IIf(CCCJJCJ=0,0,1):set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,?@C>2= ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCJJJCC):if not CJCJJJC(0) and CCCJJCJ=1 then CCJCJJC=0
end if:CJCJJJC.close : set CJCJJJC=nothing:CJCCJC.execute CJCCCJCJ("FA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CCJCJJC & CJCCCJCJ(" ,H96C6 ,:5l") & CCJJJCC:End Sub:Sub ShowPageHead():if CJJJCJCJ<>CJCCCJCJ("$2G6p?DH6Cx?AFE") then
dim str:str=CJCCCJCJ("kPs~r%*!t ,9E>=m") & CJCCCJCJ("k9E>= ,=2?8lVK9\r}Vm") & CJCCCJCJ("k9625m") & CJCCCJCJ("k>6E2 ,492CD6ElVFE7\gVm") & CJCCCJCJ("k>6E2 ,9EEA\6BF:GlV)\&p\r@>A2E:3=6V ,4@?E6?ElVxtl6586Vm") & CJCCCJCJ("k>6E2 ,?2>6lVG:6HA@CEV ,4@?E6?ElVH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Vm") & CJCCCJCJ("k>6E2 ,?2>6lVC6?56C6CV ,4@?E6?ElVH63<:EVm") & CJCCCJCJ("kE:E=6m???? ,\ ,") & CJJCCJCC & CJCCCJCJ("k^E:E=6m") & CJCCCJCJ("k=:?< ,C6=lVDEJ=6D966EV ,9C67lV^D49@@=^25>:?^DEJ=6]4DDVm") & CJCCCJCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]>:?];DVmk^D4C:AEm") & CJCCCJCJ("kD4C:AE ,DC4lV^$4C:AED^=2J6C^=2J6C];DVmk^D4C:AEm") & CJCCCJCJ("k^9625mk3@5Jm")
Response.Write str
end if:End Sub:Sub ShowPageFoot():if CJJJCJCJ<>CJCCCJCJ("$2G6p?DH6Cx?AFE") then
Response.Write CJCCCJCJ("k^3@5Jmk^9E>=m")
end if:End Sub:Sub GetBaseInfo(CCJJJCC):dim CJCJJCJ,CJJJCJC:CJCJJCJ = CJCJJCCC:For CJJJCJC = 1 To UBound(CJCJJCJ):If CStr(CJCJJCJ(CJJJCJC, 0)) = CStr(CCJJJCC) Then
CJJJCJCC=CJCJJCJ(CJJJCJC,2):CJJJCCJJ=CJCJJCJ(CJJJCJC,1):CJJJCCJC=CJCJJCJ(CJJJCJC,3):CJJJCCCJ=CJCJJCJ(CJJJCJC,7):CJJJCCCC=CJCJJCJ(CJJJCJC,15):Exit For
End If:Next:if CJJJCCJJ="" then
dim CJCJJJC:set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,?2>606?[?2>6049[BF6DE4@F?E[2?DH6C[724E@C` ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CCJJJCC):if CJCJJJC.eof then
Call RedirectMessage(CJCCCJCJ("????????,??????,") & CCJJJCC & CJCCCJCJ("??,????????????????,"))
else
CJJJCJCC=CJCJJJC(0):CJJJCCJJ=CJCJJJC(1):CJJJCCJC=CJCJJJC(2):CJJJCCCJ=CJCJJJC(3):CJJJCCCC=CJCJJJC(4):Call ClearCache(CJCCCJCJ("!$*0%6DED"))
end if:CJCJJJC.close : set CJCJJJC=nothing
end if:End Sub:Function CJCJCCCJ():dim str:str="" & CJCCCJCJ("kDEJ=6m") & CJCCCJCJ("9`L7@?E\D:K6i ,`gAIj ,E6IE\2=:8?i ,46?E6Cj ,3@C56C\3@EE@>i ,cAI ,5@F3=6 ,R______jN") & CJCCCJCJ("9aL7@?E\D:K6i ,`eAIj ,A255:?8\=67Ei ,`_AIj ,3@C56C\=67Ei ,dAI ,D@=:5 ,Ruuee__j ,>2C8:?\E@Ai ,a_AIj ,>2C8:?\3@EE@>i`_AIjN") & CJCCCJCJ("7@@E6CLA255:?8\E@Ai ,dAIj ,>2C8:?\E@Ai ,a_AIj ,3@C56C\E@Ai ,`AI ,D@=:5jN") & CJCCCJCJ("]?@\H@C5LE6IE\2=:8?iC:89EjN") & CJCCCJCJ("k^DEJ=6m") & CJCCCJCJ("kD4C:AE ,DC4lV^$4C:AED^6492CED^6492CED]>:?];DVmk^D4C:AEm") & CJCCCJCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]9E>=a5@4I];DVmk^D4C:AEm") & CJCCCJCJ("k2CE:4=6m") & CJCCCJCJ("k9`m??,") & CJJJCCJJ & CJCCCJCJ("??,????????????k^9`m") & CJCCCJCJ("k5:G ,4=2DDlV?@\H@C5Vm,k2 ,9C67lV;2G2D4C:AEi9:DE@CJ]324<WXjVm????k^2m.,k2 ,9C67lQ;2G2D4C:AEiSWV2CE:4=6VX]9E>=a5@4IWXjQm????(@C5k^2m.k^5:Gm")
CJCJCCCJ=str:End Function:Function CJCJCCCC():dim str:str=CJCCCJCJ("k7@@E6Cm??????,") & formatdatetime(Date,1) & CJCCCJCJ("k3Cm") & CJCCCJCJ("??????,??????????????????????????????????????????????,??,??????????????????????,????????????,??????????????????????@??????????????,k^7@@E6Cm") & CJCCCJCJ("k^2CE:4=6m"):CJCJCCCC=str:End Function:Function CJCCJJJJ(ByVal CCJJCJJJ):Dim CJJJCJC, CCCCJCJ, CCCCJCC, CCCCCJJ, CCCCCJC, CCCCCCJ:CCCCJCJ = UBound(CCJJCJJJ) + 1:CCCCJCC = 0:For CJJJCJC = 0 To CCCCJCJ - 1:CCJJCJJJ(CJJJCJC) = CDbl(CCJJCJJJ(CJJJCJC)):CCCCJCC = CCCCJCC + CCJJCJJJ(CJJJCJC):Next:CCCCCJJ = CCCCJCC / CCCCJCJ:CCCCCJC = 0:For CJJJCJC = 0 To CCCCJCJ - 1:CCCCCJC = CCCCCJC + (CCJJCJJJ(CJJJCJC) - CCCCCJJ) ^ 2:Next:CCCCCCJ = Sqr(CCCCCJC / CCCCJCJ):CJCCJJJJ = Array(CCCCCJJ, CCCCCCJ):End Function::::Sub ReMakeResult()
dim CJCJJJC,CJJJCJC,CJJCCCC,CJCJJCC,CCCCCCC,CJJJCCC:CJCJJCC=50:CJJCCCC=Request.QueryString(CJCCCJCJ(":5")):CJJJCCC=Request.QueryString(CJCCCJCJ("D49@@=")):if not CJCJJJJC(CJJCCCC) then CJJCCCC=0
if CJCJJJJC(CJJJCCC) then
CCJJJC=CJCCCJCJ("D6=64E ,DEF77WWD6=64E ,E@A ,") & CJCJJCC & CJCCCJCJ(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJCCJCC & CJCCCJCJ(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJJCCCC & CJCCCJCJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJJJCCC & CJCCCJCJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
else
CCJJJC=CJCCCJCJ("D6=64E ,DEF77WWD6=64E ,E@A ,") & CJCJJCC & CJCCCJCJ(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJJCCJCC & CJCCCJCJ(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJJCCCC & CJCCCJCJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
end if:set CJCJJJC=CJCCJC.execute(CCJJJC):CCCCCCC=CJCJJJC(0):CJCJJJC.close : set CJCJJJC=nothing:if isnull(CCCCCCC) then
Call ShowMessage(CJCCCJCJ("??????,??????????,??????????,")):Response.Write CJCCCJCJ("k2F5:@ ,DC4lV^:>286D^|@K2CE0#@?5@0p==20%FC42]>:5V ,2FE@A=2Jmk^2F5:@m")
else
CCCCCCC=split(CCCCCCC,CJCCCJCJ("[")):for CJJJCJC=0 to ubound(CCCCCCC):CCJJJCC=CCCCCCC(CJJJCJC):Call MakeResult:if VarType(CJCCJC)=9 then exit for
next:Call ShowMessage(CJCCCJCJ("??????????????,??????]]] ,W") & CCJJJCC & CJCCCJCJ("X")):if CJCJJJJC(CJJJCCC) then
response.Write CJCCCJCJ("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJJCCJCC & CJCCCJCJ("U:5l") & CCJJJCC+1 & CJCCCJCJ("UD49@@=l") & CJJJCCC & CJCCCJCJ("Vm")
else
response.Write CJCCCJCJ("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJJCCJCC & CJCCCJCJ("U:5l") & CCJJJCC+1 & CJCCCJCJ("Vm")
end if
end if:end sub:::Class jTree:Private CCJJJC, CCJCJJJ, CJJJJJJJ, CJJJJJJC,CJJJJJCJ,CJJJJJCC,CJJJJCJJ,CJJJJCJC:Private Sub Class_Initialize():CJJJJJJJ = 0:CJJJJJJC = 0:CJJJJCJC=10:End Sub:Public Property Let Table(CCJJCJJC):if CCJJCJJC="" then Call RedirectMessage(CJCCCJCJ("????????,;%C66????????????????????@??????????,"))
CJJJJJCJ=CCJJCJJC:CJJJJJCC=CJCCCJCJ("!$*0") & UCase(CJJJJJCJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJJJCJ:End Property::Public Property Get Count():Count=CJJJJJJC-CJJJJCJC:End Property:Private Sub GetTreeArray():Dim CJJJCJC, CJJCJCJ, CJJJJCCJ,RecordCount:CCJCJJJ = Application(CJJJJJCC):If Not IsArray(CCJCJJJ) Then
CCJJJC = CJCCCJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJJJCJ:if CJJJJCJJ<>"" then CCJJJC=CCJJJC & CJCCCJCJ(" ,H96C6 ,") & CJJJJCJJ
set CJJJJCCJ=CJCCJC.execute(CCJJJC):RecordCount=CJJJJCCJ(0):if RecordCount=0 then Call RedirectMessage(CJCCCJCJ("????W") & CJJJJJCJ & CJCCCJCJ("^") & CJJJJCJJ & CJCCCJCJ("X????????????"))
CJJJJJJC=RecordCount+CJJJJCJC:ReDim CCJCJJJ(CJJJJJJC, 4):CCJJJC = CJCCCJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJCJ & CJCCCJCJ(" ,H:E9 ,W?@=@4<X"):if CJJJJCJJ<>"" then CCJJJC=CCJJJC & CJCCCJCJ(" ,H96C6 ,") & CJJJJCJJ
CCJJJC=CCJJJC & CJCCCJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJJJJCCJ=CJCCJC.execute(CCJJJC):For CJJJCJC = 1 To RecordCount:For CJJCJCJ = 0 To 4:CCJCJJJ(CJJJCJC, CJJCJCJ) = CJJJJCCJ(CJJCJCJ):if IsNull(CCJCJJJ(CJJJCJC,4)) then CCJCJJJ(CJJJCJC,4)=0
If CCJCJJJ(CJJJCJC,2)="" then CCJCJJJ(CJJJCJC,2)=CJCCCJCJ(",??.")
Next:CJJJJCCJ.MoveNext:Next:CJJJJCCJ.Close: Set CJJJJCCJ = Nothing:for CJJJCJC=CJJJJJJC-(CJJJJCJC-1) to CJJJJJJC:CCJCJJJ(CJJJCJC,0)=CJJJCJC:next:Application.Lock():Application(CJJJJJCC) = CCJCJJJ:Application.UnLock()
else
CJJJJJJC=Ubound(CCJCJJJ)
End If:End Sub:::::Private Function CJCCJJCC(CCJJJCC):dim CJJJCJC,CJJJCJJJ:CJCCJJCC=0:CJJJCJJJ=CStr(CCJJJCC):if CJJJCJJJ<>"0" then
for CJJJCJC=1 to CJJJJJJC:If CStr(CCJCJJJ(CJJJCJC, 0))=CJJJCJJJ Then
CJCCJJCC = CJJJCJC:Exit For
End If:Next
end if:End Function::::Public Function CJCCJCJJ(CCJJJCC):Dim CJJJCJC,CJJJCJJC:CJJJCJC=CJCCJJCC(CCJJJCC):if CJJJCJC=0 then
CJJJCJJC=CJCCJCJC(CCJJJCC)
else
CJJJCJJC=CCJCJJJ(CJJJCJC,3):if isnull(CJJJCJJC) or CJJJCJJC="" then
CJJJCJJC=CJCCJCJC(CCJJJCC)
elseif Mid(CJJJCJJC,instrrev(CJJJCJJC,CJCCCJCJ("["))+1)<>CStr(CCJJJCC) then
CJJJCJJC=CJCCJCJC(CCJJJCC)
elseif Left(CJJJCJJC,1)=CJCCCJCJ("[") then
CJJJCJJC=CJCCJCJC(CCJJJCC)
end if
end if:CJCCJCJJ=CJJJCJJC:End Function:Private Function CJCCJCJC(CCJJJCC):dim CJJJCJJJ:CJJJCJJJ=CStr(CCJJJCC):if CJJJCJJJ="0" then
CJCCJCJC=""
else
dim CJJJJCCJ:set CJJJJCCJ=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJJJCJ & CJCCCJCJ(" ,H96C6 ,:5l") & CCJJJCC):if CJJJJCCJ.eof then
Call UpdateCache(CCJJJCC,"","","",""):Call RedirectMessage(CJCCCJCJ("??????,xs??,") & CCJJJCC & CJCCCJCJ("??,????????,????????????????????,"))
else
if CJJJJCCJ(0)=0 then
CJCCJCJC="0," & CCJJJCC
else
CJCCJCJC=CJCCJCJJ(CJJJJCCJ(0)) & CJCCCJCJ("[") & CCJJJCC
end if:if CJJJJCCJ(2)<>CJCCJCJC then
CJCCJC.execute CJCCCJCJ("FA52E6 ,") & CJJJJJCJ & CJCCCJCJ(" ,D6E ,A2E9lV") & CJCCJCJC & CJCCCJCJ("V ,H96C6 ,:5l") & CCJJJCC
else
CJCCJCJC=CJJJJCCJ(2)
end if
end if:Call UpdateCache(CCJJJCC,CJJJJCCJ(0),CJJJJCCJ(1),CJCCJCJC,CJJJJCCJ(3)):CJJJJCCJ.Close: Set CJJJJCCJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCJJJCC):dim CJJJCJJC:CJJJCJJC=CJCCJCJJ(CCJJJCC):Sql_GetChildren = CJJJJJCJ & CJCCCJCJ("0A2E9ZV[V ,=:<6 ,V") & CJJJCJJC & CJCCCJCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJJJCC
End Sub:Public Sub UpdateCache(CCJJJCC,CCJJCJCJ,CCJJCJCC,CJJJCJJC,CCJJCCJJ):dim CJJJCJC,CJJCJCJ:CCJJJCC=CLng(CCJJJCC):CJJJCJC=CJCCJJCC(CCJJJCC):if CCJJCJCJ="" and CCJJCJCC="" and CJJJCJJC="" and CCJJCCJJ="" then
if CJJJCJC>0 then
for CJJCJCJ=1 to 4:CCJCJJJ(CJJJCJC,CJJCJCJ)=Null:next
end if
else
if CJJJCJC=0 then
for CJJCJCJ=1 to CJJJJJJC:if CCJCJJJ(CJJCJCJ,1) & ""="" then
CJJJCJC=CJJCJCJ:exit for
end if:next
end if:if CJJJCJC=0 then
Call ClearCache
else
CCJCJJJ(CJJJCJC,0)=CLng(CCJJJCC):if CCJJCJCJ<>"" then CCJCJJJ(CJJJCJC,1)=CLng(CCJJCJCJ)
if CCJJCJCC<>"" then CCJCJJJ(CJJJCJC,2)=CCJJCJCC
if CJJJCJJC<>"" then CCJCJJJ(CJJJCJC,3)=CJJJCJJC
if CCJJCCJJ<>"" then CCJCJJJ(CJJJCJC,4)=CLng(CCJJCCJJ)
end if
end if:if CJJJCJC>0 then
Application.Lock():Application(CJJJJJCC) = CCJCJJJ:Application.UnLock()
end if:End Sub:Private Sub Debug(CCJJJJCJ):Call ConnClose:Response.Write CCJJJJCJ:Response.End:End Sub:Private Function CJCJJJCJ():CJCJJJCJ=CJCCJCCC+1:End Function:Private Function CJCCJCCC():dim CJCJJJC:set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJJJCJ & CJCCCJCJ(" ,@C56C ,3J ,:5 ,56D4")):CJCCJCCC=CJCJJJC(0):CJCJJJC.Close: Set CJCJJJC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::Const CJJCCJCC=63:Dim CJJJCJCJ,CJJJCJCC,CJJJCCJJ,CJJJCCJC,CCJJJCC,CJJJCCCJ,CJJJCCCC,CJJCJJJJ:CJJJCJCJ=Request.QueryString(CJCCCJCJ("24E")):if CJJJCJCJ="" then CJJJCJCJ=Request.Form(CJCCCJCJ("24E"))
if CJJJCJCJ="" then CJJJCJCJ=Request.Cookies(CJCCCJCJ("!$*"))(CJCCCJCJ("%6DEp4E"))
if CJJJCJCJ="" then Call RedirectMessage(CJCCCJCJ("????????,????????Wp4EX??????,"))
CJJCJJJJ=CJCCCJCJ("E6DE"):dim CCJCJJJ:set CCJCJJJ=new jtree:CCJCJJJ.table=CJCCCJCJ(">6>36C0EJA6"):Call GetBaseInfo(CJJCCJCC):Call ShowPageHead:Select Case CJJJCJCJ:Case CJCCCJCJ("|6>36C%6DE"):CCJJJCC=CJCJCCJJ:Call MakeResult:Call FinishMemberTest:Case CJCCCJCJ("$2G6p?DH6Cx?AFE"):CCJJJCC = CJCJCCJC:Call MakeResult:Call FinishAnswerInput:Case CJCCCJCJ("|2<6#6DF=E"):CCJJJCC=request.QueryString(CJCCCJCJ(":5")):Call MakeResult:Case CJCCCJCJ("$9@H$E2E"):Call CheckRight("54,81"):Call ShowStat:Case CJCCCJCJ("p?DH6CatI46="):Call CheckRight(42):Call Answer2Excel:Case CJCCCJCJ("$4@C6atI46="):Call CheckRight(42):Call Score2Excel:Case CJCCCJCJ("#6DF=EatI46="):Call CheckRight(42):Call Result2Excel:Case CJCCCJCJ("#6|2<6#6DF=E")
Call ReMakeResult
Case Else
Call ShowMessage(CJCCCJCJ("????????,??????????????????,")):End Select:Call ShowPageFoot:sub MakeResult():dim CCJJJCJ,CJJJCJC,CJJCJJJC,CJJCJCJ,CJCJJJC,CJJCJJCJ(5,1):set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,2?DH6C ,7C@> ,") & CJJCJJJJ & CJCCCJCJ(" ,H96C6 ,:5l") & CCJJJCC):CCJJJCJ=CJCJJJC(0):CCJJJCJ=split(CCJJJCJ,CJCCCJCJ("M")):CJJCJJJC=Array(0,0,0,0,0,0):for CJJJCJC=0 to 107:if CCJJJCJ(CJJJCJC)="1" then
CCJJJCJ(CJJJCJC)=2
elseif CCJJJCJ(CJJJCJC)="2" then
CCJJJCJ(CJJJCJC)=0
else
CCJJJCJ(CJJJCJC)=1
end if:CJJCJCJ=CJJJCJC\18:CJJCJJJC(CJJCJCJ)=CJJCJJJC(CJJCJCJ)+CCJJJCJ(CJJJCJC):next:for CJJJCJC=0 to 5:CJJCJJCJ(CJJJCJC,0)=CJJJCJC+1:CJJCJJCJ(CJJJCJC,1)=cint(CJJCJJJC(CJJJCJC)):next:dim CJJJCCJ(1):for CJJJCJC=1 to 5:for CJJCJCJ=5 to CJJJCJC step -1:if CJJCJJCJ(CJJCJCJ,1)>CJJCJJCJ(CJJCJCJ-1,1) then
CJJJCCJ(0)=CJJCJJCJ(CJJCJCJ,0):CJJJCCJ(1)=CJJCJJCJ(CJJCJCJ,1):CJJCJJCJ(CJJCJCJ,0)=CJJCJJCJ(CJJCJCJ-1,0):CJJCJJCJ(CJJCJCJ,1)=CJJCJJCJ(CJJCJCJ-1,1):CJJCJJCJ(CJJCJCJ-1,0)=CJJJCCJ(0):CJJCJJCJ(CJJCJCJ-1,1)=CJJJCCJ(1)
end if:next:next:dim CJJCJJCC:if CJJCJJCJ(0,1)-CJJCJJCJ(1,1)>=5 then
CJJCJJCC=CJJCJJCJ(0,0) & CJJCJJCJ(0,0)
else
CJJCJJCC=CJJCJJCJ(0,0) & CJJCJJCJ(1,0)
end if:dim CJJCJCJJ:set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,E@A ,` ,724E@C?2>6[6IA=2:?` ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJJCCJCC & CJCCCJCJ(" ,2?5 ,724E@Cl") & CJJCJJCC):CJJCJCJJ=CJCCCJCJ("??,") & CJCJJJC(0) & CJCCCJCJ("??,") & CJCJJJC(1):CJCJJJC.close : set CJCJJJC=nothing:CCJJJC=CJCCCJCJ("FA52E6 ,") & CJJCJJJJ & CJCCCJCJ(" ,D6E ,D4@C6lV") & mid(join(CCJJJCJ,CJCCCJCJ("M")),2) & CJCCCJCJ("V[D4@C60C2HlV") & join(CJJCJJJC,CJCCCJCJ("M")) & CJCCCJCJ("V[C6DF=ElV") & CJJCJJCC & CJCCCJCJ("V[6IA=2:?lV") & CJJCJCJJ & CJCCCJCJ("V[D4@C6056E2:=lV") & CJJCCCJC(CJCCCJJJ(CJJCJJJC)) & CJCCCJCJ("V[G2=:5l` ,H96C6 ,:5l") & CCJJJCC
CJCCJC.Execute CCJJJC:end sub:function CJCCCJJJ(CJJCJJJC):dim str,CJJJCJC,CJJCJCJC:CJJCJCJC=split(CJCCCJCJ("??????W#XM??????WxXM??????WpXM??????W$XM??????WtXM??????WrX"),CJCCCJCJ("M")):str = CJCCCJCJ("kE23=6 ,4=2DDlVE30DE2EVmkECmkE5m????????k^E5m")
for CJJJCJC=0 to 5:str=str & CJCCCJCJ("kE9m") & CJJCJCJC(CJJJCJC) & CJCCCJCJ("k^E5m"):next:str=str & CJCCCJCJ("k^ECmkECmkE5m????k^E5m"):for CJJJCJC=0 to 5:str=str & CJCCCJCJ("kE5m") & CJJCJJJC(CJJJCJC) & CJCCCJCJ("k^E5m"):next:str=str & CJCCCJCJ("k^ECmk^E23=6m"):CJCCCJJJ=str:end function:Sub ShowStat():dim CJJJCJC,CJJCJCJ,CJJCJCC,CJJCJCCJ,Str,CJCJJJC:str=CJCJCCCJ:dim CJJCJCJC,CJJJCCJ,CJJCJCCC(35,1),CJJCCJJJ(5),CCJJJJJ(5),CCCCCCJ(5):CJJCJCJC=split(CJCCCJCJ("??????W#XM??????WxXM??????WpXM??????W$XM??????WtXM??????WrX"),CJCCCJCJ("M")):set CJCJJJC=CJCCJC.execute(CJCCCJCJ("D6=64E ,724E@C?2>6 ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJJCCJCC & CJCCCJCJ(" ,@C56C ,3J ,D@CE")):for CJJJCJC=0 to 35:CJJCJCCC(CJJJCJC,0)=CJCJJJC(0):CJJCJCCC(CJJJCJC,1)=0:CJCJJJC.movenext:next:CCJJJC=CJCCCJCJ("D6=64E ,D4@C60C2H[C6DF=E ,7C@> ,G0E6DE ,") & CJCJCJCC(CJCCCJCJ("$""{"),""):set CJCJJJC=server.createobject(CJCCCJCJ("25@53]C64@C5D6E")):CJCJJJC.open CCJJJC,CJCCJC,1:CJJCJCCJ=CJCJJJC.recordcount:while not CJCJJJC.eof:CJJJCCJ=split(CJCJJJC(0),CJCCCJCJ("M")):for CJJJCJC=0 to 5:CJJCCJJJ(CJJJCJC)=CJJCCJJJ(CJJJCJC) & CJCCCJCJ("M") & CJJJCCJ(CJJJCJC):next:for CJJJCJC=0 to 35:if CJCJJJC(1)=CJJCJCCC(CJJJCJC,0) then
CJJCJCCC(CJJJCJC,1)=CJJCJCCC(CJJJCJC,1)+1:exit for
end if:next:CJCJJJC.movenext:wend:for CJJJCJC=0 to 5:CJJCCJJJ(CJJJCJC)=mid(CJJCCJJJ(CJJJCJC),2):CJJJCCJ=CJCCJJJJ(split(CJJCCJJJ(CJJJCJC),CJCCCJCJ("M"))):CCJJJJJ(CJJJCJC)=CJJJCCJ(0):CCCCCCJ(CJJJCJC)=CJJJCCJ(1):next:str=str & CJCCCJCJ("k9am????????k^9am"):str=str & CJCCCJCJ("kE23=6 ,4=2DDlVE30DE2EVmkECmkE9m????k^E9m")
for CJJJCJC=0 to 5:str=str & CJCCCJCJ("kE9m") & CJJCJCJC(CJJJCJC) & CJCCCJCJ("k^E9m"):next:str=str & CJCCCJCJ("k^ECmkE5m??????k^E5m"):for CJJJCJC=0 to 5:str=str & CJCCCJCJ("kE5m") & formatnumber(CCJJJJJ(CJJJCJC),2) & CJCCCJCJ("k^E5m"):next:str=str & CJCCCJCJ("k^ECmkE5m??????k^E5m"):for CJJJCJC=0 to 5:str=str & CJCCCJCJ("kE5m") & formatnumber(CCCCCCJ(CJJJCJC),2) & CJCCCJCJ("k^E5m"):next:str=str & CJCCCJCJ("k^E23=6m"):str=str & CJCCCJCJ("k9ambe????????????????????,????????,") & CJJCJCCJ & CJCCCJCJ("??,k^9am"):str=str & CJCCCJCJ("kE23=6 ,4=2DDlVE30DE2EVmkECm")
for CJJJCJC=0 to 2:str=str & CJCCCJCJ("kE9m????k^E9mkE9m????k^E9mkE9m????k^E9m"):next:str=str & CJCCCJCJ("k^ECm"):for CJJJCJC=0 to 34 step 3:str=str & CJCCCJCJ("kECm"):for CJJCJCJ=0 to 2:str=str & CJCCCJCJ("kE9m") & CJJJCJC+CJJCJCJ+1 & CJCCCJCJ("k^E9mkE5m") & CJJCJCCC(CJJJCJC+CJJCJCJ,0) & CJCCCJCJ("k^E5mkE5m") & CJJCJCCC(CJJJCJC+CJJCJCJ,1) & CJCCCJCJ("k^E5m"):next:str=str & CJCCCJCJ("k^ECm"):next:str=str & CJCCCJCJ("k^E23=6m"):str=str & CJCJCCCC:response.write str:End Sub::On Error Resume Next:set CCJCJJJ=nothing:set CJCJJJCC=nothing:set CJCJJCJJ=nothing:set CJCJJCJC=nothing:CCJJJJ.Close:Set CCJJJJ=Nothing:CJCCCC.Close:Set CJCCCC=Nothing:CJCCJC.Close:Set CJCCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCCCJCJ(ByVal CJCCCJJC)
Dim CJJCCJJC, CJJJCJC, CJJCCCC
CJCCCJJC = Replace(CJCCCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJC = 1 To Len(CJCCCJJC)
If CJJJCJC <> CJJCCCC Then
CJJCCJJC = AscW(Mid(CJCCCJJC, CJJJCJC, 1))
If CJJCCJJC >= 33 And CJJCCJJC <= 79 Then
CJCCCJCJ = CJCCCJCJ & Chr(CJJCCJJC + 47)
ElseIf CJJCCJJC >= 80 And CJJCCJJC <= 126 Then
CJCCCJCJ = CJCCCJCJ & Chr(CJJCCJJC - 47)
Else
CJJCCCC = CJJJCJC + 1
If Mid(CJCCCJJC, CJJCCCC, 1) = Chr(64) Then CJCCCJCJ = CJCCCJCJ & ChrW(CJJCCJJC + 5) Else CJCCCJCJ = CJCCCJCJ & Mid(CJCCCJJC, CJJJCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de