Edit D:\xinhaisoft\crisis

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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de