Edit D:\xinhaisoft\crisis

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

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