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

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

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de