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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de