Edit D:\xinhaisoft\crisis

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de