Edit D:\xinhaisoft\crisis

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCJCC, CCCCJJ,CCCCJC, CCCCCJ, CCCCCC:Set CCCJCC = server.CreateObject(CCCJJJCJ("ps~sq]r@??64E:@?")):CCCJCC.open Application(CCCJJJCJ("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(CCCJJJCJ("!$*|t|qt#"))):if CJCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJJ>0 then
CCCCCC=CCCJJJCJ("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 & CCCJJJCJ("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(CCCJJJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJJC)>0 then Call RedirectMessage(CCCJJJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJJ,CJJJJJC)
End IF
end if:Sub CheckRight(CCJJJJC):dim CJCJJCC,CJCJCJJ:if CJJJJJJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CCCJJJCJ("??????????????,????????????,"))
elseIf not CJCCCJJC(CCJJJJC) then
Call RedirectMessage(CCCJJJCJ("????W") & CCJJJJC & CCCJJJCJ("X????????,????????????????????,"))
end if:End Sub:Function CJCCCJJC(CCJJJJC):dim CJCJJCC,CJCJCJJ:CJCJCJJ=split(CCJJJJC,CCCJJJCJ("[")):CJCCCJJC=False:for CJCJJCC=0 to ubound(CJCJCJJ):If Mid(CJJJJCJ,CJCJCJJ(CJCJJCC),1)="1" then
CJCCCJJC=True:exit function
end if:next:End Function:Sub CheckLogined():if CJJJJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJCJC:CJCJCJC=trim(request.QueryString(CCCJJJCJ("D49@@="))):if isnumeric(CJCJCJC) then
response.Redirect CCCJJJCJ("^>^G2?E^R^D49@@=^") & CJCJCJC & CCCJJJCJ("^DEF56?E^=@8:?nC65:C64El") & CCJJCCC
else
Call RedirectMessage(CCCJJJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCCJJJCJ("!$*|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,CCCJJJCJ("]")):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(CCCJJJCJ("D"), CCCJJJCJ("`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(CCCJJCJ,CJJCCCJC):dim CJCJJCC,CJCCJJJ,CJCCJJC:for CJCJJCC=1 to len(CJJCCCJC):CJCCJJJ=mid(CJJCCCJC,CJCJJCC,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCCJJC=CCCJJCJ & CCCJJJCJ("]") & CJJCCCJC & CCCJJJCJ("]") & Fix(10000*(Rnd+1)) & CJCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CCCJJJCJ("D"), CCCJJJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCJJJCJ("!$*|t|qt#"))=CJCCJJC:End Sub::Function CJCCCJCJ(CCCJJJCC):Dim str,CJCCJCC:str = Trim(CCCJJJCC):If IsNull(str) Or str = "" Then
CJCCCJCJ = ""
else
str=Replace(str, CCCJJJCJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCJJJCJ("k:7C2>6"), CCCJJJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCJJJCJ("kD4C:AE"), CCCJJJCJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCJCC=new RegExp:CJCCJCC.Pattern=CCCJJJCJ("@?W,2\K.ZXl"):CJCCJCC.IgnoreCase = True:CJCCJCC.Global=True:str=CJCCJCC.Replace(str,CCCJJJCJ("@?S`U6BF2=Dj")):set CJCCJCC=nothing:CJCCCJCJ=str
End If:End Function:Function IIf(CCCJJCJJ, CCCJJCJC, CCCJJCCJ):if isnull(CCCJJCJJ) or isempty(CCCJJCJJ) then
IIf = CCCJJCCJ
elseif CCCJJCJJ Then
IIf = CCCJJCJC
Else
IIf = CCCJJCCJ
end if:End Function:Const CJCCJCCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CJCCCCJJ(str):if isnull(str) or str="" then
CJCCCCJJ=False:exit function
end if:Dim CJCCJCC:Set CJCCJCC = New RegExp:CJCCJCC.Pattern = CCCJJJCJ("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJCCJCC.IgnoreCase = True:CJCCCCJJ = CJCCJCC.test(str):set CJCCJCC=nothing:End Function:Function CJCCCCJC():dim CJCCCJJ:CJCCCJJ = Cstr(Request.ServerVariables(CCCJJJCJ("w%%!0)0u~#(p#sts0u~#"))):If CJCCCJJ = "" Then CJCCCJJ = Cstr(Request.ServerVariables(CCCJJJCJ("#t|~%t0pss#")))
if instr(CJCCCJJ,CCCJJJCJ("i"))>0 then
CJCCCJJ=left(CJCCCJJ,instr(CJCCCJJ,CCCJJJCJ("i"))-1)
elseif instr(CJCCCJJ,CCCJJJCJ("["))>0 then
CJCCCJJ=left(CJCCCJJ,instr(CJCCCJJ,CCCJJJCJ("["))-1)
end if:CJCCCCJC=left(CJCCCJJ,15):End Function:Sub Debug(str):response.Charset=CCCJJJCJ("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 CCCJJJCJ("k3C ,^m")
response.Write CJCJJCC & CCCJJJCJ("i ,") & str(CJCJJCC):next
else
response.Write CCCJJJCJ("kE23=6 ,3@C56ClV`VmkECmkE9mk^E9m")
for CJCJJCC=0 to ubound(str,2):response.Write CCCJJJCJ("kE9 ,2=:8?lV=67EVm") & CJCJJCC & CCCJJJCJ("k^E9m")
next:response.Write CCCJJJCJ("k^ECm"):for CJCJJCC=0 to ubound(str):response.Write CCCJJJCJ("kECmkE9m") & CJCJJCC & CCCJJJCJ("k^E9m"):for CJCCJJJ=0 to ubound(str,2):response.Write CCCJJJCJ("kE5m") & str(CJCJJCC,CJCCJJJ) & CCCJJJCJ("k^E5m"):next:response.Write CCCJJJCJ("k^ECm"):next:response.Write CCCJJJCJ("k^E23=6m")
end if
elseif isnull(str) then
response.Write CCCJJJCJ(",}F==.")
else
Response.Write replace(str,vbcrlf,CCCJJJCJ("k3Cm"))
end if:Call ConnClose:Response.End:End Sub::Sub SetHttpOnlyCookie(CCCJJCCC,CCCJCJJJ):dim CJCJCCJ:CJCJCCJ=CCCJJCCC & CCCJJJCJ("l") & CCCJCJJJ & CCCJJJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCJJJCJ("$6E\r@@<:6"),CJCJCCJ):End Sub::::::sub ShowMessage(CCCJCJJC):response.Charset=CCCJJJCJ("FE7\g"):Response.Write CCCJJJCJ("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") & CCCJCJJC & CCCJJJCJ("k^5:Gmk^5:Gmk3Cm")
end sub:Function CJCCCCCJ(CJCCCJC):if isnull(CJCCCJC) or trim(CJCCCJC)="" or not isnumeric(CJCCCJC) then
CJCCCCCJ=false
else
Dim CJCCJCC:Set CJCCJCC = New RegExp:CJCCJCC.Pattern = CCCJJJCJ("/-5ZS"):CJCCJCC.IgnoreCase = True:CJCCCCCJ = CJCCJCC.test(CJCCCJC):set CJCCJCC=nothing
end if:End Function:Function CJCCCCCC(CCCJCJCJ):dim CJCCCCJ,CJCCCCC:CJCCCCJ=CCCJJJCJ("H:E9 ,E6>AE3 ,2D ,WD6=64E ,:5[:5\C@H0?F>36CWX@G6CW@C56C ,3J ,:5X ,2D ,5:77 ,7C@> ,") & CCCJCJCJ & CCCJJJCJ("X ,D6=64E ,>2IW:5XZ` ,7C@> ,E6>AE3 ,H96C6 ,5:77l_"):set CJCCCCC=CCCJCC.execute(CJCCCCJ):CJCCCCCC = CJCCCCC(0):if isnull(CJCCCCCC) then CJCCCCCC=1
CJCCCCC.close : set CJCCCCC=nothing:End Function:::Sub WriteJS(CCCJCJCC):Call ConnClose:response.Charset=CCCJJJCJ("FE7\g"):response.write CCCJJJCJ("k") & CCCJJJCJ("D4C:AEm") & CCCJCJCC & CCCJJJCJ("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CCCJCCC=nothing:set CCJJJJJJ=nothing:set CCJJJJJC=nothing:set CCJJJJCJ=nothing:CJCCCCC.close : set CJCCCCC=nothing:CCCCCJ.Close : Set CCCCCJ=Nothing:CCCCJC.Close : Set CCCCJC=Nothing:CCJJJJCC.Close : Set CCJJJJCC = Nothing:CCCJCC.Close : Set CCCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCJJJCJ("!$*0|6DD286"),server.URLEncode(CCCJCJJC)):Response.Redirect CCCJJJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:Sub SendSystemMessage(ByVal CCJJJCJJ,title,CCCJCCCJ):Dim CJCJJCC,CJCCCCJ:if isnull(CCJJJCJJ) or CCJJJCJJ="" then exit Sub
CCJJJCJJ=split(CCJJJCJJ,CCCJJJCJ("[")):for CJCJJCC=0 to ubound(CCJJJCJJ):if CJCCCCCJ(CCJJJCJJ(CJCJJCC)) then CJCCCCJ=CJCCCCJ & CCCJJJCJ(":?D6CE ,:?E@ ,>6DD286WD6?56C[C646:G6C[E:E=6[4@?E6?E[:DDJD[:D?6HX ,G2=F6DW") & CJJJJJJ & CCCJJJCJ("[") & CCJJJCJJ(CJCJJCC) & CCCJJJCJ("[V") & title & CCCJJJCJ("V[V") & CCCJCCCJ & CCCJJJCJ("V[`[`Xj")
next:if CJCCCCJ<>"" then CCCJCC.execute CJCCCCJ
End Sub::Function CCJJJCJC():Dim CJCCCCC, CCJJJJJ(), CJCJJCC, CJCCJJJ, CCJJJJC,CCJJJCJ:If Not IsArray(Application(CCCJJJCJ("!$*0%6DED"))) Then
CCCCCC=CCCJJJCJ("D6=64E ,:5[?2>6049[?2>606?[BF6DE4@F?E[E6DEE:A[E:>60>2I[:?EC@`[2?DH6C[>6>36CEJA6[2860>2I[24E[>@?6J[5@4[?F==[?2>607C[724E@C`[E:>60>:?[2860>:?[724E@Ca[:?EC@a[:D4FDE@>[?F==[A:4EFC6[2CE:4=6 ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,@C56C ,3J ,D@CE"):set CJCCCCC=server.createobject(CCCJJJCJ("25@53]C64@C5D6E")):CJCCCCC.open CCCCCC,CCCJCC,1:CCJJJJC = CJCCCCC.RecordCount:CCJJJCJ=CJCCCCC.fields.count-1:ReDim CCJJJJJ(CCJJJJC, CCJJJCJ):If CCJJJJC > 0 Then
For CJCJJCC = 1 To CCJJJJC:For CJCCJJJ = 0 To CCJJJCJ:if CJCCJJJ=4 or CJCCJJJ=6 or CJCCJJJ=19 then
CCJJJJJ(CJCJJCC, CJCCJJJ) = CCJJCJCJ(CJCCCCC(CJCCJJJ))
else
CCJJJJJ(CJCJJCC, CJCCJJJ) = CJCCCCC(CJCCJJJ):if CJCCCCC(CJCCJJJ).type<>11 and isnull(CCJJJJJ(CJCJJCC, CJCCJJJ)) then CCJJJJJ(CJCJJCC, CJCCJJJ)=""
end if:Next:CJCCCCC.MoveNext:Next
End If:CJCCCCC.Close: Set CJCCCCC = Nothing:Application(CCCJJJCJ("!$*0%6DED")) = CCJJJJJ
End If:CCJJJCJC = Application(CCCJJJCJ("!$*0%6DED")):End Function::Function CCCJJCC(CJCCCJC):Dim CCJJJCC, CCJJCJJ, CCJJCJC, CCJJCCJ, str:If Not CJCCCCCJ(CJCCCJC) or CJCCCJC=0 Then
str=0
else
CCJJJCC = Fix(CJCCCJC / 86400):CCJJCJJ = Fix((CJCCCJC - CCJJJCC * 86400) / 3600):CCJJCJC = Fix((CJCCCJC - CCJJJCC * 86400 - CCJJCJJ * 3600) / 60):CCJJCCJ = Fix(CJCCCJC - CCJJJCC * 86400 - CCJJCJJ * 3600 - CCJJCJC * 60):If CCJJJCC <> 0 Then str = CCJJJCC & CCCJJJCJ("??")
If CCJJCJJ <> 0 Then str = str & CCJJCJJ & CCCJJJCJ("????")
If CCJJCJC <> 0 Then str = str & CCJJCJC & CCCJJJCJ("??")
if CCJJCCJ <> 0 Then str = str & CCJJCCJ & CCCJJJCJ("??")
end if:CCCJJCC = str:End Function:Function CCJJJCCJ(CCCJCCJJ,CCJJJJC):if isnull(CCCJCCJJ) then
CCJJJCCJ=False
else
If Mid(CCCJCCJJ,CCJJJJC,1)="1" then CCJJJCCJ=True else CCJJJCCJ=False
end if:End Function:::Sub SMS(CCJCCCC,CCCJJJJC):dim CCJJCCC:if instr(CCCJJJJC,CCCJJJCJ("??,"))<>1 then CCCJJJJC=CCCJJJCJ("??,??????????,") & CCCJJJJC
CCJJCCC=CCCJJJCJ("9EEAi^^`a_]ae]ee]ac^>D8^wEEAq2E49$6?5$|n244@F?El3;I95909JUADH5l3;I95909J`abU>@3:=6l") &  CCJCCCC & CCCJJJCJ("U>D8l") + server.urlencode(CCCJJJJC)
Call CCJJCJJJ(CCJJCCC,CCCJJJCJ("v6E"),"")
End Sub:Function CCJJCJJJ(ByVal CCJJCCC,ByVal CCJJJCCC,Data)
Dim CCJCJJJ,CCJCJJC,CCJCJCJ,CCJCJCC,CJCCCJC:if left(CCJJCCC,7)<>CCCJJJCJ("9EEAi^^") then CCJJCCC=CCCJJJCJ("9EEAi^^") & request.ServerVariables(CCCJJJCJ("$t#'t#0}p|t")) & CCCJJJCJ("i") & request.ServerVariables(CCCJJJCJ("$t#'t#0!~#%")) & CCJJCCC
CCJJJCCC=Ucase(CCJJJCCC):Set CCJCJJJ = Server.CreateObject(CCCJJJCJ("|DI>=a]$6CG6C)|{w%%!")):CCJCJJJ.Open CCJJJCCC, CCJJCCC, False:if CCJJJCCC=CCCJJJCJ("!~$%") then CCJCJJJ.setRequestHeader CCCJJJCJ("r@?E6?E\%JA6"),CCCJJJCJ("2AA=:42E:@?^I\HHH\7@C>\FC=6?4@565")
On Error Resume Next:CCJCJJJ.Send Data:if err then Call RedirectMessage(CCCJJJCJ("$6CG6C)|{w%%!\tCC@C\,") & CCJJJCCC & CCCJJJCJ(".") & CCJJCCC & CCCJJJCJ("i ,") & err.description)
On Error Goto 0:if CCJCJJJ.Readystate <> 4 or CCJCJJJ.Status<>200 then
CCJCJCJ = ""
else
CCJCJCJ = CCJCJJJ.ResponseText
end if:Set CCJCJJJ = Nothing:CCJJCJJJ=CCJCJCJ
End Function::::::::::::::::::Sub CreateTextFile(CCCJCCJC, CCCJCCCJ):if isnull(CCCJCCCJ) or CCCJCCCJ="" then Call RedirectMessage(CCCJJJCJ("????????,??????????@????????,??????????????,"))
dim CCJCJJC:Set CCJCJJC = Server.CreateObject(CCCJJJCJ("ps~sq]$EC62>")):With CCJCJJC:.Type=2:.Mode=3:.Charset = CCCJJJCJ("FE7\g"):.Open:.WriteText CCCJCCCJ:.SaveToFile server.mappath(CCCJCCJC),2:.Close:End With:Set CCJCJJC = Nothing:End Sub::::Function CCJJCJJC(CJCJCJC,CJCCCJC):dim CJCCCCC,CCJCCJJ:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,:5[,C:89E. ,7C@> ,G0>6>36C ,H96C6 ,:DD49@@=25>:?l` ,2?5 ,>6>36C0EJA60E@Al") & CJCJCJC):while not CJCCCCC.eof:if CCJJJCCJ(CJCCCCC(1),CJCCCJC) then CCJCCJJ=CCJCCJJ & CCCJJJCJ("[") & CJCCCCC(0)
CJCCCCC.movenext:wend:if CCJCCJJ<>"" then CCJCCJJ=Mid(CCJCCJJ,2)
CCJJCJJC=CCJCCJJ:End Function:Function CCJJCJCJ(CCCJCCCC):if isnull(CCCJCCCC) then
CCJJCJCJ=""
else
On Error Resume Next:CCJJCJCJ=CCCJCCCC:if err.number=-2147352567 then
CCJJCJCJ="":err.Clear
end if
end if:End Function::Function CCJJCJCC(CCCCJJJJ,str):dim CJCJJCC,CCJCCJC,CCJCCCJ,CCJCCCC,CJCCCJC,CCCJJJJ,CJCCJJC:CJCCJJC=ucase(CCCCJJJJ):CCCJJJJ=str:if CCCJJJJ="" then
CCCJJJJ=request.cookies(CJCCJJC):if CCCJJJJ="" then
CCJJCJCC=""
else
CCCJJJJ=strreverse(CCCJJJJ):CCJCCJC=len(CCCJJJJ):for CJCJJCC=1 to CCJCCJC-1 step 2:CCJCCCC=mid(CCCJJJJ,CJCJJCC,1):CJCCCJC=mid(CCCJJJJ,CJCJJCC+1,1):CCJCCCJ=CCJCCCJ & CJCCCJC & CCJCCCC:next:CCJCCCJ=replace(CCJCCCJ,CCCJJJCJ("L0N"),CCCJJJCJ(" ,")):CCJCCCJ=replace(CCJCCCJ,CCCJJJCJ("LIN"),CCCJJJCJ("Y")):CCJCCCJ=replace(CCJCCCJ,CCCJJJCJ("L:N"),CCCJJJCJ("^")):CCJJCJCC=trim(CCJCCCJ)
end if
else
if Len(CCCJJJJ) Mod 2=1 then CCCJJJJ=CCCJJJJ & CCCJJJCJ(" ,")
CCCJJJJ=replace(CCCJJJJ,CCCJJJCJ(" ,"),CCCJJJCJ("L0N")):CCCJJJJ=replace(CCCJJJJ,CCCJJJCJ("Y"),CCCJJJCJ("LIN")):CCCJJJJ=replace(CCCJJJJ,CCCJJJCJ("^"),CCCJJJCJ("L:N")):CCJCCJC=len(CCCJJJJ):for CJCJJCC=1 to CCJCCJC-1 step 2:CCJCCCC=mid(CCCJJJJ,CJCJJCC,1):CJCCCJC=mid(CCCJJJJ,CJCJJCC+1,1):CCJCCCJ=CCJCCCJ & CJCCCJC & CCJCCCC:next:CCJCCCJ=Trim(strreverse(CCJCCCJ)):CCJJCJCC=CCJCCCJ:response.cookies(CJCCJJC)=CCJCCCJ
end if:End Function::Sub ClearCache(CCCCJJJC):Application.Contents.Remove CCCCJJJC
End Sub::Function CCJJCCJJ():Call CheckLogined:Dim CCCJJJC,CJCCCCC,CCCJJCJ,CCCJJCC:CCCJJJC=CJCCCJCJ(Request.Form(CCCJJJCJ("2?DH6C"))):CCCJJCC=Request.Form(CCCJJJCJ("9@H=@?8")):if CCCJJJC="" then Call RedirectMessage(CCCJJJCJ("????????,????????????????????????,"))
CCCJJCJ=Request.Cookies(CCCJJJCJ("%6DExs")):if not CJCCCCCJ(CCCJJCJ) then
Call RedirectMessage(CCCJJJCJ("????????,??????????????????xs??,????????????????????????????????,"))
else
CCCCCC=CCCJJJCJ("D6=64E ,E@A ,` ,52E6E:>6 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCCJJCJ & CCCJJJCJ(" ,2?5 ,>6>36Cl") & CJJJJJJ & CCCJJJCJ(" ,2?5 ,=3l") & CJCCCJJJ:set CJCCCCC=CCCJCC.execute(CCCCCC):if CJCCCCC.eof then
Call RedirectMessage(CCCJJJCJ("????????,????????W") & CCCJJCJ & CCCJJJCJ("^") & CJJJJJJ & CCCJJJCJ("^") & CJCCCJJJ & CCCJJJCJ("X??????,??????????????????????????,??????????????,??????????????????????,"))
else
if not CJCCCCCJ(CCCJJCC) then
CCCJJCC=DateDiff(CCCJJJCJ("D"),CJCCCCC(0),Now):if CCCJJCC<=0 then
Randomize:CCCJJCC=Int((60-5+1)*Rnd+5)
end if
end if:CCCCCC=CCCJJJCJ("FA52E6 ,E6DE ,D6E ,2?DH6ClV") & CCCJJJC & CCCJJJCJ("V[9@H=@?8l") & CCCJJCC & CCCJJJCJ("[52E6E:>6l86E52E6WX[:AlV") & CJCCCCJC & CCCJJJCJ("V ,H96C6 ,:5l") & CCCJJCJ
CCCJCC.Execute CCCCCC
end if:CJCCCCC.Close: Set CJCCCCC = Nothing
end if:CCJJCCJJ = CCCJJCJ:End Function:Function CCJJCCJC():Dim CCCJJJC, CCCJCJJ, CJCCCCC, CCCJJCJ, CCCJCJC,CCCJCCJ:CCCJCJC = Request.Form(CCCJJJCJ("52E6E:>6")):CCCJJJC = Trim(Request.Form(CCCJJJCJ("2?DH6C"))):CCCJCJJ = CJCCCJCJ(Request.Form(CCCJJJCJ("DEF56?E?F>"))):if CCCJCJJ="" then Call debug(1)
if not isdate(CCCJCJC) or CCCJCJC="" then CCCJCJC=Date
dim CCCJCCC:set CCCJCCC=new jtree:CCCJCCC.table=CCCJJJCJ(">6>36C0EJA6"):Set CJCCCCC = CCCCJJ.Execute(CCCJJJCJ("D6=64E ,E@A ,` ,:5[286 ,7C@> ,G0>6>36C ,H96C6 ,DE2E6ld ,2?5 ,") & CCCJCCC.sql_getchildren(CJJJJCC) & CCCJJJCJ(" ,2?5 ,?F>36ClV") & CCCJCJJ & CCCJJJCJ("V"))
If CJCCCCC.EOF Then Call Debug(2)
CCCJCJJ = CJCCCCC(0):CCCJCCJ=CJCCCCC(1):if CJCCCJJJ=106 then
if CCCJCCJ<6 or CCCJCCJ>10 then Call debug(3)
end if:CCCCCC=CCCJJJCJ(":?D6CE ,:?E@ ,E6DEW>6>36C[2?DH6C[=3[,52E6E:>6.[:A[?@C>2=[EJA6X ,@FEAFE ,:?D6CE65]:5 ,G2=F6DW") & CCCJCJJ & CCCJJJCJ("[V") & CCCJJJC & CCCJJJCJ("V[") & CJCCCJJJ & CCCJJJCJ("[V") & CCCJCJC & CCCJJJCJ("V[V") & CJCCCCJC & CCCJJJCJ("V[`[`X")
set CJCCCCC=CCCJCC.Execute(CCCCCC):CCCJJCJ = CJCCCCC(0):CJCCCCC.Close: Set CJCCCCC = Nothing:CCJJCCJC = CCCJJCJ:End Function:Sub FinishMemberTest():dim CJCCCCC,CCCCJJJ,CCCCJJC,CCCCJCJ,CCCCJCC,CCCCCJJ,CCCCCJC,CCCCCCJ,CCCCCCC,CJJJJJJJ,CJJJJJJC,CJJJJJCJ:CCCCCC=CCCJJJCJ("56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CJJJJJJ & CCCJJJCJ(" ,2?5 ,=3lV") & CJCCCJJJ & CCCJJJCJ("V")
CCCCCJJ=Request.Cookies(CCCJJJCJ("%6DE{:DE")):CCCCCJJ=replace(CCCCCJJ,CCCJJJCJ("Tar"),CCCJJJCJ("[")):if CCCCCJJ<>"" then
CCCCCJJ=CCCJJJCJ("[") & CCCCCJJ & CCCJJJCJ("["):CCCCCJJ=replace(CCCCCJJ,CCCJJJCJ("[") & CJCCCJJJ & CCCJJJCJ("["),CCCJJJCJ("[")):if CCCCCJJ=CCCJJJCJ("[") then CCCCCJJ="" else CCCCCJJ=mid(CCCCCJJ,2,len(CCCCCJJ)-1)
end if:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H[D>D0C646:G6C[2FE@05:DEC02DED[EJA6[D>D[D>D0D:8? ,7C@> ,D49@@= ,H96C6 ,:5l") & CJJJCCJ):if CJCCCCC.eof then
CCCCJJJ=1:CCCCJCJ=False:CCCCCJC=0:CJJJJJJJ=1
else
CJJJJJJC=IIf(isnull(CJCCCCC(0)),0,CJCCCCC(0)):CCCCJJJ=IIf(CJJJJJJC=0,0,1):CCCCJCJ=CJCCCCC(2):CCCCCJC=CJCCCCC(3):CCCCCCJ=CJCCCCC(4):CCCCJJC=CJCCCCC(1):CCCCCCC=CJCCCCC(5):set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,?@C>2=[C6DF=E[EJA6 ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCCJJCJ):CJJJJJJJ=IIf(CJCCCCC(2),1,0):if not CJCCCCC(0) then
if CJJJJJJC=1 then CCCCJJJ=0
if CCCCCCJ and CJCCCCJJ(CCCCJJC) then
Call SMS(CCCCJJC,CCCCCCC & CJJCCJJ & CCCJJJCJ("??,") & CJJJCJC & CCCJJJCJ("??,??") & CJCJJCCC & CCCJJJCJ("??????????????,"))
end if
end if:if CCCCJCJ and (CJCCCJJJ=121 or CJCCCJJJ=164 or CJCCCJJJ=159 or CJCCCJJJ=190 or CJCCCJJJ=213) and (CJCCCCC(1)="3" or CJCCCCC(1)="4") then
dim CJJJJJCC:if CJCCCJJJ=121 or CJCCCJJJ=159 then CJJJJJCC=111 else CJJJJJCC=178
CCCCCC=CCCCCC & CCCJJJCJ("j56=6E6 ,7C@> ,E6DE032E49 ,H96C6 ,>6>36Cl") & CJJJJJJ & CCCJJJCJ(" ,2?5 ,=3lV") & CJJJJJCC & CCCJJJCJ("V")
CCCCCC=CCCCCC & CCCJJJCJ("j:?D6CE ,:?E@ ,E6DE032E49W:5[=3[EJA6[8C256[4FDE@>8C@FA[>6>36C[2FE9@C[EJA60255[E6DEEJA6[E@52E6[52E6E:>6X ,G2=F6DW") & CJCCCCCC(CCCJJJCJ("E6DE032E49")) & CCCJJJCJ("[V") & CJJJJJCC & CCCJJJCJ("V") & CCCJJJCJ("[_") & CCCJJJCJ("[_") & CCCJJJCJ("[_") & CCCJJJCJ("[") & CJJJJJJ  & CCCJJJCJ("[") & CJJJJJJ  & CCCJJJCJ("[") & CJJJJCC  & CCCJJJCJ("[_") & CCCJJJCJ("[V") & Date+30 & CCCJJJCJ("V") & CCCJJJCJ("[86E52E6WX") & CCCJJJCJ("X")
if CCCCCJJ="" then
CCCCCJJ=CJJJJJCC
elseif instr(CCCJJJCJ("[") & CCCCCJJ & CCCJJJCJ("["),CCCJJJCJ("[") & CJJJJJCC & CCCJJJCJ("["))=0 then
CCCCCJJ=CJJJJJCC & CCCJJJCJ("[") & CCCCCJJ
end if
end if
end if:CCCCCC=CCCCCC & CCCJJJCJ("jFA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CCCCJJJ & CCCJJJCJ("[G2=:5l` ,H96C6 ,:5l") & CCCJJCJ:CCCJCC.execute CCCCCC:Response.Cookies(CCCJJJCJ("%6DExs"))="":dim CJJJJCJJ:CJJJJCJJ=CCJJCJCC(CCCJJJCJ("%6DE}@E:7J"),""):CJJJJCJJ=replace(CJJJJCJJ,CCCJJJCJ("Tau"),CCCJJJCJ("^")):if CJJJJCJJ<>"" then
CJJJJJCJ=CCCJJJCJ("E6DE:5l") & CCCJJCJ & CCCJJJCJ("U2EE249l") & Request.Cookies(CCCJJJCJ("%6DEpEE249")):Response.Cookies(CCCJJJCJ("%6DE}@E:7J"))="":Response.Cookies(CCCJJJCJ("%6DEpEE249"))="":Call CCJJCJJJ(CJJJJCJJ,CCCJJJCJ("!~$%"),CJJJJJCJ)
end if:CJCCCCC.close : set CJCCCCC=nothing:dim CJJJJCJC,CJCJJCC:if CCCCCJJ<>"" then
if CJCCCCCJ(CCCCCJJ) then
CJJJJCJC=CCCCCJJ
else
CJJJJCJC=left(CCCCCJJ,instr(CCCCCJJ,CCCJJJCJ("["))-1)
end if
end if:dim CJJJJCCJ,CJJJJCCC:CJJJJCCJ=Request.Cookies(CCCJJJCJ("%6DEs6G:46")):CJJJJCCC=Request.Cookies(CCCJJJCJ("%6DE':6H")):Response.Cookies(CCCJJJCJ("%6DE':6H"))="":dim CJJJCJJJ:CJJJCJJJ=Request.Cookies(CCCJJJCJ("%6DE#65:C64E")):CJJJCJJJ=replace(CJJJCJJJ,CCCJJJCJ("Tau"),CCCJJJCJ("^")):CJJJCJJJ=replace(CJJJCJJJ,CCCJJJCJ("Tbu"),CCCJJJCJ("n")):CJJJCJJJ=replace(CJJJCJJJ,CCCJJJCJ("Tab"),CCCJJJCJ("R")):if CJJJJCCC="1" then
if CJJJCJJJ="" then
Call WriteJS(CCCJJJCJ("=2J6C]>D8WV??????????????,??????????????,????????????????V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CCCJJCJ & CCCJJJCJ("VXNX"))
else
Call WriteJS(CCCJJJCJ("=2J6C]>D8WV??????????????,??????????????,????????????????V[LE:>6i`___Y`_N[7F?4E:@?WXLH:?5@H]=@42E:@?]C6A=246WV^>6>36C^E6DEC6A@CE]2DAn:5l") & CCCJJCJ & CCCJJJCJ("U324<l`UC65:C64El") & server.urlencode(CJJJCJJJ) & CCCJJJCJ("VXNX"))
end if
elseif CJJJJCJC="" then
Response.Cookies(CCCJJJCJ("%6DE{:DE"))="":Response.Cookies(CCCJJJCJ("%6DEs6G:46"))="":if CJJJJCCJ=CCCJJJCJ("|@3:=6") then
if CJJJCJJJ="" then
if CCCCCJC>0 and CCCCCJC<>6 then
Call WriteJS(CCCJJJCJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^>^G2?E^R^D49@@=^DEF56?E^AF46VXj"))
else
Call WriteJS(CCCJJJCJ("2=6CEWV??????????????????????,??????,??????,????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^>^D49@@=^DEF56?E^E6DE65=:DE]2DAVXj"))
end if
else
Response.Cookies(CCCJJJCJ("%6DE#65:C64E"))="":Call WriteJS(CCCJJJCJ("2=6CEWV??????????????????????,VXjH:?5@H]=@42E:@?]C6A=246WV") & CJJJCJJJ & CCCJJJCJ("VXj"))
end if
else
if CJJJCJJJ="" then
Call WriteJS(CCCJJJCJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV^DEF56?E^E6DE0AF46]2DAVXj"))
else
Response.Cookies(CCCJJJCJ("%6DE#65:C64E"))="":Call WriteJS(CCCJJJCJ("2=6CEWV??????????????????????,??????????????,VXjH:?5@H]=@42E:@?]C6A=246WV") & CJJJCJJJ & CCCJJJCJ("VXj"))
end if
end if
else
Response.Cookies(CCCJJJCJ("%6DE{:DE"))=CCCCCJJ:Call WriteJS(CCCJJJCJ("2=6CEWV??????????????????????,??????,??????,????????????????,????????,VXjH:?5@H]=@42E:@?]C6A=246WV^=3^:?4^DE2CE]9E>n=3:5l") & CJJJJCJC & CCCJJJCJ("UE6DEEJA6l") & CJJJJJJJ & CCCJJJCJ("VXj"))
end if:End Sub:Sub FinishAnswerInput():dim CJCCCCC,CCCCJJJ,CJJJJJJC:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,E6DEC6DF=EG:6H ,7C@> ,D49@@= ,H96C6 ,:5l") & CJJJCCJ):if CJCCCCC.eof then
CCCCJJJ=1
else
CJJJJJJC=IIf(isnull(CJCCCCC(0)),0,CJCCCCC(0)):CCCCJJJ=IIf(CJJJJJJC=0,0,1):set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,?@C>2= ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,:5l") & CCCJJCJ):if not CJCCCCC(0) and CJJJJJJC=1 then CCCCJJJ=0
end if:CJCCCCC.close : set CJCCCCC=nothing:CCCJCC.execute CCCJJJCJ("FA52E6 ,E6DE ,D6E ,A6C>:EG:6Hl") & CCCCJJJ & CCCJJJCJ(" ,H96C6 ,:5l") & CCCJJCJ:End Sub:Sub ShowPageHead():if CJCJJCJC<>CCCJJJCJ("$2G6p?DH6Cx?AFE") then
Dim str:str=CCCJJJCJ("kPs~r%*!t ,9E>=m") & CCCJJJCJ("k9E>= ,=2?8lVK9\r}Vm") & CCCJJJCJ("k9625m") & CCCJJJCJ("k>6E2 ,492CD6ElVFE7\gVm") & CCCJJJCJ("k>6E2 ,9EEA\6BF:GlV)\&p\r@>A2E:3=6V ,4@?E6?ElVxtl6586Vm") & CCCJJJCJ("k>6E2 ,?2>6lVG:6HA@CEV ,4@?E6?ElVH:5E9l56G:46\H:5E9[ ,:?:E:2=\D42=6l`Vm") & CCCJJJCJ("k>6E2 ,?2>6lVC6?56C6CV ,4@?E6?ElVH63<:EVm") & CCCJJJCJ("kE:E=6m???? ,\ ,") & CJCCCJJJ & CCCJJJCJ("k^E:E=6m") & CCCJJJCJ("k=:?< ,C6=lVDEJ=6D966EV ,9C67lV^D49@@=^25>:?^DEJ=6]4DDVm") & CCCJJJCJ("kD4C:AE ,DC4lV^$4C:AED^;BF6CJ]>:?];DVmk^D4C:AEm") & CCCJJJCJ("kD4C:AE ,DC4lV^$4C:AED^=2J6C^=2J6C];DVmk^D4C:AEm") & CCCJJJCJ("k^9625mk3@5Jm")
Response.Write str
end if:End Sub:Sub ShowPageFoot():if CJCJJCJC<>CCCJJJCJ("$2G6p?DH6Cx?AFE") then
Response.Write CCCJJJCJ("k^3@5Jmk^9E>=m")
end if:End Sub:Sub GetBaseInfo(CCCJJCJ):dim CCJJJJJ,CJCJJCC:CCJJJJJ = CCJJJCJC:For CJCJJCC = 1 To UBound(CCJJJJJ):If CStr(CCJJJJJ(CJCJJCC, 0)) = CStr(CCCJJCJ) Then
CJCJJCCJ=CCJJJJJ(CJCJJCC,2):CJCJJCCC=CCJJJJJ(CJCJJCC,1):CJCJCJJJ=CCJJJJJ(CJCJJCC,3):CJCJCJJC=CCJJJJJ(CJCJJCC,7):CJCJCJCJ=CCJJJJJ(CJCJJCC,15):Exit For
End If:Next:if CJCJJCCC="" then
dim CJCCCCC:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,?2>606?[?2>6049[BF6DE4@F?E[2?DH6C[724E@C` ,7C@> ,=3 ,H96C6 ,2G2:=23=6l` ,2?5 ,:5l") & CCCJJCJ):if CJCCCCC.eof then
Call RedirectMessage(CCCJJJCJ("????????,??????,") & CCCJJCJ & CCCJJJCJ("??,????????????????,"))
else
CJCJJCCJ=CJCCCCC(0):CJCJJCCC=CJCCCCC(1):CJCJCJJJ=CJCCCCC(2):CJCJCJJC=CJCCCCC(3):CJCJCJCJ=CJCCCCC(4):Call ClearCache(CCCJJJCJ("!$*0%6DED"))
end if:CJCCCCC.close : set CJCCCCC=nothing
end if:End Sub:::::::Sub ReMakeResult()
dim CJCCCCC,CJCJJCC,CJCCCJC,CCJJJJC,CJJJCJJC,CJCJCJC:CCJJJJC=50:CJCCCJC=Request.QueryString(CCCJJJCJ(":5")):CJCJCJC=Request.QueryString(CCCJJJCJ("D49@@=")):if not CJCCCCCJ(CJCCCJC) then CJCCCJC=0
if CJCCCCCJ(CJCJCJC) then
CCCCCC=CCCJJJCJ("D6=64E ,DEF77WWD6=64E ,E@A ,") & CCJJJJC & CCCJJJCJ(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJCCCJJJ & CCCJJJCJ(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJCCCJC & CCCJJJCJ(" ,2?5 ,>6>36C0EJA60E@Al") & CJCJCJC & CCCJJJCJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
else
CCCCCC=CCCJJJCJ("D6=64E ,DEF77WWD6=64E ,E@A ,") & CCJJJJC & CCCJJJCJ(" ,V[VZ42DEW:5 ,2D ,G2C492CX ,7C@> ,E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,=3l") & CJCCCJJJ & CCCJJJCJ(" ,2?5 ,G2=:5l` ,2?5 ,:5ml") & CJCCCJC & CCCJJJCJ(" ,@C56C ,3J ,:5 ,7@C ,I>= ,A2E9WVVXX[`[`[VVX ,2D ,=:DE")
end if:set CJCCCCC=CCCJCC.execute(CCCCCC):CJJJCJJC=CJCCCCC(0):CJCCCCC.close : set CJCCCCC=nothing:if isnull(CJJJCJJC) then
Call ShowMessage(CCCJJJCJ("??????,??????????,??????????,")):Response.Write CCCJJJCJ("k2F5:@ ,DC4lV^:>286D^|@K2CE0#@?5@0p==20%FC42]>:5V ,2FE@A=2Jmk^2F5:@m")
else
CJJJCJJC=split(CJJJCJJC,CCCJJJCJ("[")):for CJCJJCC=0 to ubound(CJJJCJJC):CCCJJCJ=CJJJCJJC(CJCJJCC):Call MakeResult:if VarType(CCCJCC)=9 then exit for
next:Call ShowMessage(CCCJJJCJ("??????????????,??????]]] ,W") & CCCJJCJ & CCCJJJCJ("X")):if CJCCCCCJ(CJCJCJC) then
response.Write CCCJJJCJ("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJCCCJJJ & CCCJJJCJ("U:5l") & CCCJJCJ+1 & CCCJJJCJ("UD49@@=l") & CJCJCJC & CCCJJJCJ("Vm")
else
response.Write CCCJJJCJ("k>6E2 ,9EEA\6BF:GlVC67C6D9V ,4@?E6?ElV`j&#{lnp4El#6|2<6#6DF=EU=3:5l") & CJCCCJJJ & CCCJJJCJ("U:5l") & CCCJJCJ+1 & CCCJJJCJ("Vm")
end if
end if:end sub:function CCJJCCCJ():if CJJJCCJ=0 then
CCJJCCCJ=True
else
dim CJCCCCC:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,r964<%6DE'2=:5 ,7C@> ,D49@@= ,H96C6 ,:5l") & CJJJCCJ):if CJCCCCC.eof then CCJJCCCJ=True else CCJJCCCJ=CJCCCCC(0)
CJCCCCC.close : set CJCCCCC=nothing
end if:end function::Class jTree:Private CCCCCC, CCCJCCC, CJJJCJCJ, CJJJCJCC,CJJJCCJJ,CJJJCCJC,CJJJCCCJ,CJJJCCCC:Private Sub Class_Initialize():CJJJCJCJ = 0:CJJJCJCC = 0:CJJJCCCC=10:End Sub:Public Property Let Table(CCCCJJCJ):if CCCCJJCJ="" then Call RedirectMessage(CCCJJJCJ("????????,;%C66????????????????????@??????????,"))
CJJJCCJJ=CCCCJJCJ:CJJJCCJC=CCCJJJCJ("!$*0") & UCase(CJJJCCJJ):Call GetTreeArray:End Property:Public Property Get Table():Table=CJJJCCJJ:End Property::Public Property Get Count():Count=CJJJCJCC-CJJJCCCC:End Property:Private Sub GetTreeArray():Dim CJCJJCC, CJCCJJJ, CJJCJJJJ,RecordCount:CCCJCCC = Application(CJJJCCJC):If Not IsArray(CCCJCCC) Then
CCCCCC = CCCJJJCJ("D6=64E ,4@F?EW:5X ,7C@> ,") & CJJJCCJJ:if CJJJCCCJ<>"" then CCCCCC=CCCCCC & CCCJJJCJ(" ,H96C6 ,") & CJJJCCCJ
set CJJCJJJJ=CCCJCC.execute(CCCCCC):RecordCount=CJJCJJJJ(0):if RecordCount=0 then Call RedirectMessage(CCCJJJCJ("????W") & CJJJCCJJ & CCCJJJCJ("^") & CJJJCCCJ & CCCJJJCJ("X????????????"))
CJJJCJCC=RecordCount+CJJJCCCC:ReDim CCCJCCC(CJJJCJCC, 4):CCCCCC = CCCJJJCJ("D6=64E ,:5[A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJJ & CCCJJJCJ(" ,H:E9 ,W?@=@4<X"):if CJJJCCCJ<>"" then CCCCCC=CCCCCC & CCCJJJCJ(" ,H96C6 ,") & CJJJCCCJ
CCCCCC=CCCCCC & CCCJJJCJ(" ,@C56C ,3J ,D@CE[:5"):set CJJCJJJJ=CCCJCC.execute(CCCCCC):For CJCJJCC = 1 To RecordCount:For CJCCJJJ = 0 To 4:CCCJCCC(CJCJJCC, CJCCJJJ) = CJJCJJJJ(CJCCJJJ):if IsNull(CCCJCCC(CJCJJCC,4)) then CCCJCCC(CJCJJCC,4)=0
If CCCJCCC(CJCJJCC,2)="" then CCCJCCC(CJCJJCC,2)=CCCJJJCJ(",??.")
Next:CJJCJJJJ.MoveNext:Next:CJJCJJJJ.Close: Set CJJCJJJJ = Nothing:for CJCJJCC=CJJJCJCC-(CJJJCCCC-1) to CJJJCJCC:CCCJCCC(CJCJJCC,0)=CJCJJCC:next:Application.Lock():Application(CJJJCCJC) = CCCJCCC:Application.UnLock()
else
CJJJCJCC=Ubound(CCCJCCC)
End If:End Sub:::::Private Function CCJCJJJC(CCCJJCJ):dim CJCJJCC,CJJCJJCJ:CCJCJJJC=0:CJJCJJCJ=CStr(CCCJJCJ):if CJJCJJCJ<>"0" then
for CJCJJCC=1 to CJJJCJCC:If CStr(CCCJCCC(CJCJJCC, 0))=CJJCJJCJ Then
CCJCJJJC = CJCJJCC:Exit For
End If:Next
end if:End Function::::Public Function CCJCJJCJ(CCCJJCJ):Dim CJCJJCC,CJJCJJCC:CJCJJCC=CCJCJJJC(CCCJJCJ):if CJCJJCC=0 then
CJJCJJCC=CCJCJJCC(CCCJJCJ)
else
CJJCJJCC=CCCJCCC(CJCJJCC,3):if isnull(CJJCJJCC) or CJJCJJCC="" then
CJJCJJCC=CCJCJJCC(CCCJJCJ)
elseif Mid(CJJCJJCC,instrrev(CJJCJJCC,CCCJJJCJ("["))+1)<>CStr(CCCJJCJ) then
CJJCJJCC=CCJCJJCC(CCCJJCJ)
elseif Left(CJJCJJCC,1)=CCCJJJCJ("[") then
CJJCJJCC=CCJCJJCC(CCCJJCJ)
end if
end if:CCJCJJCJ=CJJCJJCC:End Function:Private Function CCJCJJCC(CCCJJCJ):dim CJJCJJCJ:CJJCJJCJ=CStr(CCCJJCJ):if CJJCJJCJ="0" then
CCJCJJCC=""
else
dim CJJCJJJJ:set CJJCJJJJ=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,A2C:5[?2>6[A2E9[D@CE ,7C@> ,") & CJJJCCJJ & CCCJJJCJ(" ,H96C6 ,:5l") & CCCJJCJ):if CJJCJJJJ.eof then
Call UpdateCache(CCCJJCJ,"","","",""):Call RedirectMessage(CCCJJJCJ("??????,xs??,") & CCCJJCJ & CCCJJJCJ("??,????????,????????????????????,"))
else
if CJJCJJJJ(0)=0 then
CCJCJJCC="0," & CCCJJCJ
else
CCJCJJCC=CCJCJJCJ(CJJCJJJJ(0)) & CCCJJJCJ("[") & CCCJJCJ
end if:if CJJCJJJJ(2)<>CCJCJJCC then
CCCJCC.execute CCCJJJCJ("FA52E6 ,") & CJJJCCJJ & CCCJJJCJ(" ,D6E ,A2E9lV") & CCJCJJCC & CCCJJJCJ("V ,H96C6 ,:5l") & CCCJJCJ
else
CCJCJJCC=CJJCJJJJ(2)
end if
end if:Call UpdateCache(CCCJJCJ,CJJCJJJJ(0),CJJCJJJJ(1),CCJCJJCC,CJJCJJJJ(3)):CJJCJJJJ.Close: Set CJJCJJJJ = Nothing
end if:End Function::::::::::::Public Function Sql_GetChildren(CCCJJCJ):dim CJJCJJCC:CJJCJJCC=CCJCJJCJ(CCCJJCJ):Sql_GetChildren = CJJJCCJJ & CCCJJJCJ("0A2E9ZV[V ,=:<6 ,V") & CJJCJJCC & CCCJJJCJ("[TV")
End Function::::::::::Public Sub ClearCache():Application.Contents.Remove CJJJCCJC
End Sub:Public Sub UpdateCache(CCCJJCJ,CCCCJJCC,CCCCJCJJ,CJJCJJCC,CCCCJCJC):dim CJCJJCC,CJCCJJJ:CCCJJCJ=CLng(CCCJJCJ):CJCJJCC=CCJCJJJC(CCCJJCJ):if CCCCJJCC="" and CCCCJCJJ="" and CJJCJJCC="" and CCCCJCJC="" then
if CJCJJCC>0 then
for CJCCJJJ=1 to 4:CCCJCCC(CJCJJCC,CJCCJJJ)=Null:next
end if
else
if CJCJJCC=0 then
for CJCCJJJ=1 to CJJJCJCC:if CCCJCCC(CJCCJJJ,1) & ""="" then
CJCJJCC=CJCCJJJ:exit for
end if:next
end if:if CJCJJCC=0 then
Call ClearCache
else
CCCJCCC(CJCJJCC,0)=CLng(CCCJJCJ):if CCCCJJCC<>"" then CCCJCCC(CJCJJCC,1)=CLng(CCCCJJCC)
if CCCCJCJJ<>"" then CCCJCCC(CJCJJCC,2)=CCCCJCJJ
if CJJCJJCC<>"" then CCCJCCC(CJCJJCC,3)=CJJCJJCC
if CCCCJCJC<>"" then CCCJCCC(CJCJJCC,4)=CLng(CCCCJCJC)
end if
end if:if CJCJJCC>0 then
Application.Lock():Application(CJJJCCJC) = CCCJCCC:Application.UnLock()
end if:End Sub:Private Sub Debug(CCCJCJJC):Call ConnClose:Response.Write CCCJCJJC:Response.End:End Sub:Private Function CJCCCCCC():CJCCCCCC=CCJCJCJC+1:End Function:Private Function CCJCJCJC():dim CJCCCCC:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,") & CJJJCCJJ & CCCJJJCJ(" ,@C56C ,3J ,:5 ,56D4")):CCJCJCJC=CJCCCCC(0):CJCCCCC.Close: Set CJCCCCC = Nothing:End Function:Private Sub Class_Terminate():End Sub:End Class::dim CJJCJCJJ,CJJCJCJC:If lcase(right(Request.ServerVariables(CCCJJJCJ("!p%w0x}u~")),11))=CCCJJJCJ("^C68:DE]2DA") then
if Request.ServerVariables(CCCJJJCJ("#t""&t$%0|t%w~s")) = CCCJJJCJ("!~$%") then
Call Regist()
else
Call ShowForm()
end if
else
Call CheckRegist()
End If:Function CCJCJCCJ(str):Dim CCCJJJJ, CJCJJCC, CJCCJJC, CCJCCJC, CCJCCCC, CJCCCJC:CCJCCJC = Len(str):For CJCJJCC = 1 To CCJCCJC:CJCCJJC = CInt(Mid(str, CJCJJCC, 1)):If CJCCJJC < 5 Then CJCCJJC = CJCCJJC + 5 Else CJCCJJC = CJCCJJC - 5
CCCJJJJ = CCCJJJJ & CJCCJJC:Next:For CJCJJCC = 1 To CCJCCJC - 1 Step 2:CCJCCCC = Mid(CCCJJJJ, CJCJJCC, 1):CJCCCJC = Mid(CCCJJJJ, CJCJJCC + 1, 1):CCJCJCCJ = CCJCJCCJ & CJCCCJC & CCJCCCC:Next:CCJCJCCJ = StrReverse(CCJCJCCJ):End Function:Function CCJCJCCC(CCCCJCCJ):Dim CCJCCJC, CJCJJCC, CJCCCJC, CCCJJJJ:CCJCCJC = Len(CCCCJCCJ):CJCCCJC = 0:For CJCJJCC = 1 To CCJCCJC:CCCJJJJ = CInt(Mid(CCCCJCCJ, CJCJJCC, 1)):If CJCJJCC Mod 2 = 0 Then CJCCCJC = CJCCCJC + CCCJJJJ * 3 Else CJCCCJC = CJCCCJC + CCCJJJJ
Next:CJCCCJC = CJCCCJC Mod 100:CJCCCJC = 100 - CJCCCJC:CCJCJCCC = Right("0" & CJCCCJC, 2):End Function:Function CCJCCJJJ(str):Dim CJCCJCC:Set CJCCJCC = New RegExp:CJCCJCC.Pattern = CCCJJJCJ("/W-5LcN\XLfN-5LcNS"):CJCCJCC.IgnoreCase = True:CCJCCJJJ = CJCCJCC.test(str):set CJCCJCC=nothing:End Function:Function CCJCCJJC(str):Dim CJCCJCC:Set CJCCJCC = New RegExp:CJCCJCC.Pattern = CCCJJJCJ("/,p\+.LbN-5L`NW\-5LcNXLaNS"):CJCCJCC.IgnoreCase = True:CCJCCJJC = CJCCJCC.test(str):set CJCCJCC=nothing:End Function:Sub ShowForm():dim CCCJJJJ:CCCJJJJ=CCCJJJCJ("kPs~r%*!t ,9E>=m") & CCCJJJCJ("k9E>= ,=2?8lQK9\r}Qm") & CCCJJJCJ("k9625mk>6E2 ,492CD6ElVFE7\gVm") & CCCJJJCJ("kE:E=6m?????????,????????k^E:E=6m") & CCCJJJCJ("kDEJ=6m3@5J[E5[:?AFEL7@?E\72>:=JiQ??????@??Q['6C52?2[Q????QjN3@5JL324<8C@F?5iRtttj>2C8:?i_AIjN9`L3@C56C\E@Ai`AI ,D@=:5 ,R_ehj3@C56C\3@EE@>i`AI ,D@=:5 ,R_ehj7@?E\D:K6ibeAIj4@=@CiRrfat_aj324<8C@F?5iRuuujA255:?8idAIjE6IE\2=:8?i46?E6CjNE23=6L3@C56Ci`AI ,D@=:5 ,Rrarusuj324<8C@F?5iRu_udupjNE23=6 ,E5LA255:?8idAI ,`dAIjN:?AFE[E5L7@?E\D:K6i`gAIjN:?AFE]E6IEL3@C56Ci`AI ,D@=:5 ,Rfuhsqhj4@=@CiR_euj324<8C@F?5iRuuujN:?AFE]3FEE@?L3@C56Ci`AI ,D@=:5 ,Rhsqpufj324<8C@F?5\4@=@CiRrfsgupj4FCD@CiA@:?E6CjNk^DEJ=6m") & CCCJJJCJ("k") & CCCJJJCJ("D4C:AEm7F?4E:@? ,7@C>`0G2=:52E@CWXLH:E9W5@4F>6?E]7@C>`XL:7W@H?6C]G2=F6lllVVXL2=6CEWV????????????????,VXj@H?6C]7@4FDWXjC6EFC? ,72=D6N6=D6 ,:7W56AE]G2=F6llVVXL2=6CEWV????????????????,VXj56AE]7@4FDWXjC6EFC? ,72=D6N6=D6 ,:7W4@?E24E]G2=F6llVVXL2=6CEWV????????????????????,VXj4@?E24E]7@4FDWXjC6EFC? ,72=D6N6=D6 ,:7WPD?]G2=F6]>2E49W^/,2\Kp\+.LbN-5L`NW\-5LcNXLaNS^XXL2=6CEWV????????????????????????????,??????????????????,VXjD?]7@4FDWXjC6EFC? ,72=D6N6=D6 ,:7W?F>]G2=F6llVVMM?F>]G2=F6llV_VXL2=6CEWV????????????????????????????tG6CJ@?6??????????????????????????????,-?????????????????????????,??????,_`_\eahge_``^`a??,VXjC6EFC? ,72=D6N6=D6LC6EFC? ,ECF6NNN7F?4E:@? ,86EADH0@?4=:4<WXLG2C ,FC=jG2C ,@l5@4F>6?E]86Et=6>6?EqJx5WV;D086EADHVXj:7W7@C>`0G2=:52E@CWXXLH:E9W5@4F>6?E]7@C>`XL:7W4@?7:C>WV??????????????????x?E6C?6E??,??????????,VXXL86EADH]G2=F6lV??????]]]Vj86EADH]5:D23=65lECF6jC68]5:D23=65lECF6jFC=lV9EEAi^^HHH]I:?92:D@7E]4@>^C68:DE^VjFC=ZlV86E:E]2DAn?F>lVZ?F>]G2=F6ZVUD?lVZD?]G2=F6ZVU56AElVZ6D42A6W56AE]G2=F6XZVU@H?6ClVZ6D42A6W@H?6C]G2=F6XZVU4@?E24ElVZ6D42A6W4@?E24E]G2=F6XZVU0VZ|2E9]C2?5@>WXj@]D6EpEEC:3FE6WVDC4V[FC=XNNNNk^D4C:AEm") & CCCJJJCJ("k^9625m") & CCCJJJCJ("k3@5Jmk9`m?????????,????????k^9`mk7@C> ,>6E9@5lQA@DEQ ,?2>6lQ7@C>`Q ,@?DF3>:ElQ;2G2D4C:AEiC6EFC? ,7@C>`0G2=:52E@CWXjQmkE23=6 ,2=:8?lV46?E6CVmkECmkE5m??, ,????????k3Cmk:?AFE ,?2>6lV@H?6CV ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVd_Vmk^E5mk^ECmkECmkE5m??, ,????????k3Cmk:?AFE ,?2>6lV56AEV ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVd_Vmk^E5mk^ECmkECmkE5m??, ,??????????????,??????t>2:=??,k3Cmk:?AFE ,?2>6lV4@?E24EV ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVd_Vmk^E5mk^ECmkECmkE5m??, ,????????????????k3Cmk:?AFE ,?2>6lVD?V ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVafV ,DEJ=6lVE6IE\EC2?D7@C>i ,FAA6C42D6jV ,G2=F6lV") & IIf_(CCJCCCCJ=CCCJJJCJ("!|$b\bbbb\bbbb"),"",CCJCCCCJ) & CCCJJJCJ("Vm ,k:?AFE ,?2>6lV?F>V ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVa_V ,G2=F6lV") & CCJCCCJC & CCCJJJCJ("V ,DEJ=6lV4@=@CiRhhhjV ,E:E=6lV??????????????????????????????,????????????,V ,C625@?=Jmk^E5mk^ECmkECmkE5m??, ,??????????????k3Cmk:?AFE ,?2>6lVA2DDH@C5V ,EJA6lVE6IEV ,4=2DDlVE6IEV ,D:K6lVd_Vm ,k:?AFE ,?2>6lV86EADHV ,EJA6lV3FEE@?V ,4=2DDlV3FEE@?V ,@?4=:4<lV;2G2D4C:AEi86EADH0@?4=:4<WXjV ,G2=F6lV????????????V ,DEJ=6lVH:5E9i`aeAIjVmk^E5mk^ECmkECmkE5 ,DEJ=6lV3@C56C\E@Ai`AI ,D@=:5 ,RrarusujVmk:?AFE ,?2>6lVC68V ,EJA6lVDF3>:EV ,4=2DDlV3FEE@?V ,G2=F6lV?? ,??Vm ,k:?AFE ,EJA6lV3FEE@?V ,4=2DDlV3FEE@?V ,@?4=:4<lV;2G2D4C:AEi9:DE@CJ]324<WXjV ,G2=F6lV?? ,??Vmk^E5mk^ECmk^E23=6mk^7@C>mkD4C:AE ,:5lV;D086EADHVmk^D4C:AEmk^3@5Jm") & CCCJJJCJ("k^9E>=m")
Response.Clear():Response.Charset=CCCJJJCJ("FE7\g"):Response.Write CCCJJJJ:Response.End():End Sub:Function CCJCCJCJ():If Application(CCCJJJCJ("r@??64E:@?$EC:?8"))="" then
CCJCCJCJ=False
Else
On Error Resume Next:set CJJCJCJJ=Server.CreateObject(CCCJJJCJ("ps~sq]r@??64E:@?")):CJJCJCJJ.open Application(CCCJJJCJ("r@??64E:@?$EC:?8")):if Err then Call ShowMsg_(CCCJJJCJ("????????????????,") & err.description)
CCJCCJCJ=True
End if:End Function:Function CCJCCJCC():On Error Resume Next:dim CJJCJCCJ:set CJJCJCCJ=server.createobject(CCCJJJCJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CCCJJJCJ("????????????????u$~??????,????????????????????,"))
if CJJCJCCJ.FileExists(server.MapPath(CCCJJJCJ(":?4^C68:DE]2DA"))) then
CCJCCJCC=""
elseif CJJCJCCJ.FileExists(server.MapPath(CCCJJJCJ("]]^:?4^C68:DE]2DA"))) then
CCJCCJCC=CCCJJJCJ("]]^")
else
CCJCCJCC=CCCJJJCJ("]]^]]^")
end if:set CJJCJCCJ=nothing:End Function:Function CCJCCCJJ(CJCJJCJC,CJJCCCJJ,CCJCJCCJ):On Error Resume Next:dim CJJCJCCJ,CJJCJCCC,CJJCCJJJ,str:set CJJCJCCJ=server.createobject(CCCJJJCJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CCCJJJCJ("????????????????u$~??????,????????????????????,"))
CJJCCJJJ=server.mappath(CCJCCJCC & CCCJJJCJ("<6J]:?:")):if not CJJCJCCJ.FileExists(CJJCCJJJ) then
set CJJCJCCC=CJJCJCCJ.CreateTextFile(CJJCCJJJ,true):if err then Call ShowMsg_(CCCJJJCJ("??????W") & left(CJJCCJJJ,len(CJJCCJJJ)-7) & CCCJJJCJ("X????????????,????????,x?E6C?6E????????Wx&$#0??????X??,????,??????,??????,"))
CJJCJCCC.WriteLine CJJCCCJJ & CCCJJJCJ("M") & CCJCJCCJ:if err then Call ShowMsg_(CCCJJJCJ("??????W") & left(CJJCCJJJ,len(CJJCCJJJ)-7) & CCCJJJCJ("X????????????,????????,x?E6C?6E????????Wx&$#0??????X??,????,??????,??????,"))
set CJJCJCCC=nothing
end if:if CJCJJCJC=CCCJJJCJ("HC:E6") then
set CJJCJCCC=CJJCJCCJ.OpenTextFile(CJJCCJJJ,2):CJJCJCCC.WriteLine CJJCCCJJ & CCCJJJCJ("M") & CCJCJCCJ:set CJJCJCCC=nothing
elseif CJCJJCJC=CCCJJJCJ("C625") then
set CJJCJCCC=CJJCJCCJ.opentextfile(CJJCCJJJ):str=CJJCJCCC.ReadLine:if instr(str,CCCJJJCJ("M"))=0 then Call ShowMsg_(CCCJJJCJ("????????,????????????????????????????????????,????????????????,") & CJJCCJJJ & CCCJJJCJ("??,"))
CCJCCCJJ=split(str,CCCJJJCJ("M")):set CJJCJCCC=nothing
else
Call ShowMsg_(CCCJJJCJ("????????,??????????????,"))
end if:set CJJCJCCJ=nothing:err.clear:End Function:Function CCJCCCJC():On Error Resume Next:dim CJJCJCCJ,CJJCCJJC,CJCCCJJ:Set CJJCJCCJ = CreateObject(CCCJJJCJ("$4C:AE:?8]u:=6$JDE6>~3;64E")):if err.number=-2147221005 then Call ShowMsg_(CCCJJJCJ("????????????????u$~??????,????????????????????,"))
Set CJJCCJJC = CJJCJCCJ.GetDrive(left(server.MapPath(CCCJJJCJ("]")),1)):CCJCCCJC=CJJCCJJC.SerialNumber:if CCJCCCJC=0 then
Set CJJCCJJC=CJJCJCCJ.GetDrive(CCCJJJCJ("r")):CCJCCCJC=CJJCCJJC.SerialNumber:if CCJCCCJC=0 then
CJCCCJJ=Request.ServerVariables(CCCJJJCJ("{~rp{0pss#")):CJCCCJJ=right(replace(CCJCJCCJ("19" & replace(replace(CJCCCJJ,CCCJJJCJ("i"),""),CCCJJJCJ("]"),"") & "74"),"0",""),8):CCJCCCJC=CJCCCJJ
end if
end if:set CJJCCJJC=nothing:set CCCCJC=nothing:err.clear:End Function:Function CCJCCCCJ():CCJCCCCJ=Application(CCCJJJCJ(")x}wpx0#680$}")):if CCJCCCCJ="" then
if CCJCCJCJ then
CCCCCC=CCCJJJCJ("D6=64E ,E@A ,` ,D? ,7C@> ,4@?7:8 ,H96C6 ,:5l`"):On Error Resume Next:set CJJCJCJC=CJJCJCJJ.execute(CCCCCC):if err then Call ShowMsg_(CCCJJJCJ("????????????????,") & err.description)
CCJCCCCJ=CJJCJCJC(0)
else
CCJCCCCJ=CCJCCCJJ(CCCJJJCJ("C625"),"","")(0)
end if:Application(CCCJJJCJ(")x}wpx0#680$}"))=CCJCCCCJ
end if:err.clear:End Function:Sub Regist():dim CJJCCJCJ,CJJCCJCC,CJJCCCJJ,CJJCCCJC,CJJCCCCJ,CJJCCCCC,CJCJJJJJ,CCCCCC:CJJCCJCJ=CCJCCCCC(Request.Form(CCCJJJCJ("@H?6C"))):CJJCCJCC=CCJCCCCC(Request.Form(CCCJJJCJ("56AE"))):CJJCCCJJ=CCJCCCCC(Request.Form(CCCJJJCJ("D?"))):CJJCCCJC=CCJCCCCC(Request.Form(CCCJJJCJ("A2DDH@C5"))):CJJCCCJJ=Ucase(CJJCCCJJ):if not CCJCCJJC(CJJCCCJJ) then Call ShowMsg_(CCCJJJCJ("????????????????????????????,??????????????????,"))
if not CCJCCJJJ(CJJCCCJC) then Call ShowMsg_(CCCJJJCJ("??????????????????????????,??????????????????????,"))
CJJCCCCJ = Replace(CJJCCCJC, CCCJJJCJ("\"), ""):CJJCCCCC = Left(CJJCCCCJ, 30):CJCJJJJJ = CCJCJCCJ(CJJCCCCC):If Right(CJJCCCCJ, 2) <> CCJCJCCC(CJJCCCCC) Then Call ShowMsg_(CCCJJJCJ("????????????????????????,??????????????????????,"))
If Mid(CJCJJJJJ, 5, 9) <> Replace(Mid(CJJCCCJJ, 4), CCCJJJCJ("\"), "") Then Call ShowMsg_(CCCJJJCJ("??????????????@????????????????,??????????????????,"))
On Error Resume Next:if CCJCCJCJ then
CCCCCC=CCCJJJCJ("FA52E6 ,4@?7:8 ,D6E ,@H?6ClV") & CJJCCJCJ & CCCJJJCJ("V[56A2CE>6?ElV") & CJJCCJCC & CCCJJJCJ("V[D?lV") & CJJCCCJJ & CCCJJJCJ("V[C68ADHlV") & CJJCCCJC & CCCJJJCJ("V ,H96C6 ,:5l`")
CJJCJCJJ.Execute CCCCCC:If Err.Number = -2147467259 Then
Call ShowMsg_(CCCJJJCJ("??????????????????,????????,????@??????,????????????????}%u$??????,"))
ElseIf err then
Call ShowMsg_(Err.Description)
End If
else
Call CCJCCCJJ(CCCJJJCJ("HC:E6"),CJJCCCJJ,CJJCCCJC)
end if:err.clear:Application(CCCJJJCJ(")x}wpx0#680$}")) = CJJCCCJJ:Application(CCCJJJCJ(")x}wpx0#680!2DDH@C5")) = CJJCCCJC:Call ShowMsg_(CCCJJJCJ("??????????????????,??????????????,????????k2 ,9C67lV") & CCJCCJCC & CCCJJJCJ("Vm????????k^2m??,"))
End Sub:Sub CheckRegist():Dim CJJCCCJJ,CJJCCCJC,CJCJJJJC,CJCJJJCJ,CJCJJJCC,Number,CJJCCCCJ,CJCJCJJ,CCCCCC:CJJCCCJJ = Application(CCCJJJCJ(")x}wpx0#680$}")):Number = Application(CCCJJJCJ(")x}wpx0#680}F>36C")):CJJCCCJC = Application(CCCJJJCJ(")x}wpx0#680!2DDH@C5")):If CJJCCCJJ = "" Or CJJCCCJC = "" Then
if CCJCCJCJ then
CCCCCC=CCCJJJCJ("D6=64E ,E@A ,` ,D?[C68ADH ,7C@> ,4@?7:8 ,H96C6 ,:5l`"):Set CJJCJCJC = CJJCJCJJ.Execute(CCCCCC):if CJJCJCJC.eof then Call ShowMsg_(CCCJJJCJ("??????????????????????,??????,4@?7:8.??????????????,"))
CJJCCCJJ = CJJCJCJC(0) & "":CJJCCCJC = CJJCJCJC(1) & ""
else
CJCJCJJ=CCJCCCJJ(CCCJJJCJ("C625"),"",""):CJJCCCJJ=CJCJCJJ(0):CJJCCCJC=CJCJCJJ(1)
End If
End If:If Number = "" Then Number = CCJCCCJC
If Not CCJCCJJJ(CJJCCCJC) or Not CCJCCJJC(CJJCCCJJ) Then Call ShowMsg_(CCCJJJCJ("????????????????????????????,????????????k2 ,9C67lV") & CCJCCJCC & CCCJJJCJ(":?4^#68:DE]2DAVm????????k^2m??,??????????,"))
CJJCCCCJ = Replace(CJJCCCJC, CCCJJJCJ("\"), ""):CJCJJJJC = CCJCJCCJ(Left(CJJCCCCJ, 30)):CJCJJJCC = Mid(CJCJJJJC, 23, 8):CJCJJJCC = Left(CJCJJJCC, 4) & CCCJJJCJ("\") & Mid(CJCJJJCC, 5, 2) & CCCJJJCJ("\") & Right(CJCJJJCC, 2):If Not IsDate(CJCJJJCC) Then
CJCJJJCJ = False
ElseIf CDate(CJCJJJCC) < Date Then
CJCJJJCJ = True
Else
CJCJJJCJ = False
End If:If Right(CJJCCCCJ, 2) <> CCJCJCCC(Left(CJJCCCCJ, 30)) Or Mid(Replace(CJJCCCJJ, CCCJJJCJ("\"), ""), 4) <> Mid(CJCJJJJC, 5, 9) Or Right("00000" & Number, 5) <> Mid(CJCJJJJC, 16, 5) Then
Call ShowMsg_(CCCJJJCJ("??????????????????????????????,????????????k2 ,9C67lV") & CCJCCJCC & CCCJJJCJ(":?4^#68:DE]2DAVm????????k^2m??,??????????,"))
ElseIf CJCJJJCJ Then
Call ShowMsg_(CCCJJJCJ("????????????????????????,????????????k2 ,9C67lV") & CCJCCJCC & CCCJJJCJ(":?4^#68:DE]2DAVm????????k^2m??,??????????,"))
Else
Application(CCCJJJCJ(")x}wpx0#680$}")) = CJJCCCJJ:Application(CCCJJJCJ(")x}wpx0#680}F>36C")) = Number:Application(CCCJJJCJ(")x}wpx0#680!2DDH@C5")) = CJJCCCJC
End If:End Sub:Sub ShowMsg_(str):dim CCCJJJJ:CCCJJJJ=CCCJJJCJ("kPs~r%*!t ,9E>=m") & CCCJJJCJ("k9E>= ,=2?8lQK9\r}Qm") & CCCJJJCJ("k9625mk>6E2 ,492CD6ElQFE7\gQm") & CCCJJJCJ("kE:E=6m?????????,????????k^E:E=6m") & CCCJJJCJ("kDEJ=6m3@5JL7@?Ei`aAI ,Q??????@??Q['6C52?2[Q????QjNR4@?E2:?6CLH:5E9ic__AIj>2C8:?ib_AI ,2FE@j3@C56Ci`AI ,D@=:5 ,ReeejNR4@?E2:?6C ,]E:E=6L324<8C@F?5iRu`u`u`j3@C56C\3@EE@>i`AI ,D@=:5 ,Reeej96:89Eib_AIj=:?6\96:89Eib_AIjE6IE\2=:8?i46?E6Cj7@?E\H6:89Ei3@=5jNR4@?E2:?6C ,]4@?E6?EL324<8C@F?5iRuuujA255:?8ia_AIj=:?6\96:89Eia__TjNR4@?E2:?6C ,]4@?E6?E ,2L4@=@CiR_erjE6IE\564@C2E:@?i?@?6jNR4@?E2:?6C ,]4@?E6?E ,2i9@G6CL4@=@CiRuebjE6IE\564@C2E:@?i?@?6jNR4@?E2:?6C ,]24EL324<8C@F?5iRuuuj3@C56C\E@Ai`AI ,D@=:5 ,Reeej96:89Eib_AIj=:?6\96:89Eib_AIjE6IE\2=:8?iC:89EjA255:?8\C:89Ei`_AIjNR4@?E2:?6C ,]24E ,2L4@=@CiRbbbjE6IE\564@C2E:@?i?@?6jA255:?8iaAI ,`_AIj3@C56Ci`AI ,D@=:5 ,Rg_g_ftj324<8C@F?5iRu`u`u`jNR4@?E2:?6C ,]24E ,2i9@G6CL4@=@CiR___j3@C56C\4@=@CiReeejE6IE\564@C2E:@?i?@?6j324<8C@F?5iRrrrjNk^DEJ=6m") & CCCJJJCJ("kD") & CCCJJJCJ("4C:AEmH:?5@H]@?=@25l7F?4E:@?WXL:7WD6=7]@A6?6Clll?F==XL5@4F>6?E]86Et=6>6?EqJx5WV4=@D6VX]DEJ=6]5:DA=2JlV?@?6VNNk^D4C:AEm") & CCCJJJCJ("k^9625m") & CCCJJJCJ("k3@5Jmk5:G ,:5lV4@?E2:?6CVmk5:G ,4=2DDlVE:E=6Vm????????k^5:Gmk5:G ,4=2DDlV4@?E6?EVmkDA2? ,DEJ=6lV4@=@CiRrfat_aj ,7@?E\H6:89Ei3@=5jVm??,k^DA2?m ,") & str & CCCJJJCJ("k^5:Gmk5:G ,4=2DDlV24EVmk2 ,9C67lV;2G2D4C:AEi9:DE@CJ]324<WXjV ,:5lV324<Vm?? ,??k^2mU?3DAjk2 ,9C67lV;2G2D4C:AEiD6=7]4=@D6WXjV ,:5lV4=@D6Vm????????k^2mk^5:Gmk^5:Gmk^3@5Jm") & CCCJJJCJ("k^9E>=m")
Err.Clear:Response.Clear():Response.Charset=CCCJJJCJ("FE7\g"):Response.Write CCCJJJJ:Response.End():End Sub:Function CCJCCCCC(CCCJJJCC):Dim str:str = Trim(CCCJJJCC):If IsNull(str) Or str = "" Then
CCJCCCCC = ""
Else
str=Replace(str, CCCJJJCJ("V"), CCCJJJCJ("VV"))
str=Replace(str,CCCJJJCJ("k:7C2>6"), CCCJJJCJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCJJJCJ("kD4C:AE"), CCCJJJCJ("U=EjD4C:AE"),1,-1,1):CCJCCCCC=str
End If:End Function:Function IIf_(CCCJJCJJ, CCCJJCJC, CCCJJCCJ):If CCCJJCJJ Then IIf_ = CCCJJCJC Else IIf_ = CCCJJCCJ
End Function:On Error Resume Next:CJJCJCJC.Close : Set CJJCJCJC = Nothing:RegistRegistCon.Close : Set CJJCJCJJ = Nothing:On Error Goto 0::Const CJCCCJJJ=164:Dim CJCJJCJC,CJCJJCCJ,CJCJJCCC,CJCJCJJJ,CCCJJCJ,CJCJCJJC,CJCJCJCJ,CJCJCJCC:CJCJJCJC=Request.QueryString(CCCJJJCJ("24E")):if CJCJJCJC="" then CJCJJCJC=Request.Form(CCCJJJCJ("24E"))
if CJCJJCJC="" then CJCJJCJC=Request.Cookies(CCCJJJCJ("!$*"))(CCCJJJCJ("%6DEp4E"))
if CJCJJCJC="" then Call RedirectMessage(CCCJJJCJ("????????,????????Wp4EX??????,"))
CJCJCJCC=CCCJJJCJ("E6DE"):dim CCCJCCC:set CCCJCCC=new jtree:CCCJCCC.table=CCCJJJCJ(">6>36C0EJA6"):Call GetBaseInfo(CJCCCJJJ):Call ShowPageHead:Select Case CJCJJCJC:Case CCCJJJCJ("|6>36C%6DE"):CCCJJCJ=CCJJCCJJ:Call MakeResult:Call FinishMemberTest:Case CCCJJJCJ("$2G6p?DH6Cx?AFE"):CCCJJCJ = CCJJCCJC:Call MakeResult:Call FinishAnswerInput:Case CCCJJJCJ("|2<6#6DF=E"):CCCJJCJ=request.QueryString(CCCJJJCJ(":5")):Call MakeResult:Case CCCJJJCJ("p?DH6CatI46="):Call CheckRight(42):Call Answer2Excel:Case CCCJJJCJ("$4@C6atI46="):Call CheckRight(42):Call Score2Excel:Case CCCJJJCJ("#6DF=EatI46="):Call CheckRight(42):Call Result2Excel:Case CCCJJJCJ("#6|2<6#6DF=E")
Call ReMakeResult
Case Else
Call ShowMessage(CCCJJJCJ("????????,??????????????????,")):End Select:Call ShowPageFoot:sub MakeResult():dim CJCCCCC,CJCJJCC,CJCJCCJJ,CJCJCCJC,CCCJJJC,CJCCJJC,CCCJCJJ:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,2?DH6C[>6>36C ,7C@> ,E6DE ,H96C6 ,:5l") & CCCJJCJ):CCCJJJC=split(CCCJJJCJ("M") & CJCCCCC(0),CCCJJJCJ("M")):CCCJCJJ=CJCCCCC(1):CJCJCCJC=Array(0,0,0,0,0,0,0,0):set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,D4@C6[724E@C` ,7C@> ,=3BF6DE:@? ,H96C6 ,=3l") & CJCCCJJJ & CCCJJJCJ(" ,@C56C ,3J ,D@CE")):for CJCJJCC=1 to CJCJCJJJ:CCCJJJC(CJCJJCC)=cint(CCCJJJC(CJCJJCC)):CJCCJJC=CJCCCCC(1):if CJCCCCCJ(CJCCJJC) then CJCJCCJC(CJCCJJC)=CJCJCCJC(CJCCJJC)+cint(split(CJCCCCC(0),CCCJJJCJ("M"))(CCCJJJC(CJCJJCC)-1))
CJCCCCC.movenext:next:dim CJCJCCCJ:CJCJCCCJ=Array(0,0,0,0,0,0):dim CJCJCCCC(7),CJCCJJJJ(7):if CJCJCCJC(0)<6 then
CJCJCCCC(0)=1:CJCCJJJJ(0)=CCCJJJCJ("????")
else
CJCJCCCC(0)=2:CJCCJJJJ(0)=CCCJJJCJ("????"):CJCJCCCJ(0)=1
end if:CJCJCCJC(1)=cint(CJCJCCJC(1)/14):if CJCJCCJC(1)<=2 then
CJCJCCCC(1)=3:CJCCJJJJ(1)=CCCJJJCJ("??")
elseif CJCJCCJC(1)<4 then
CJCJCCCC(1)=4:CJCCJJJJ(1)=CCCJJJCJ("??")
else
CJCJCCCC(1)=5:CJCCJJJJ(1)=CCCJJJCJ("??"):CJCJCCCJ(1)=1
end if:for CJCJJCC=39 to 54:if CCCJJJC(CJCJJCC)>=4 then
CJCCJJJJ(2)=CCCJJJCJ("????"):exit for
end if:next:if CJCCJJJJ(2)="" and CJCJCCJC(2)<=16 then
CJCJCCCC(2)=6:CJCCJJJJ(2)=CCCJJJCJ("????")
else
CJCJCCCC(2)=7:CJCCJJJJ(2)=CCCJJJCJ("????"):CJCJCCCJ(2)=1
end if:if CJCJCCJC(3)<=9 then
CJCJCCCC(3)=8:CJCCJJJJ(3)=CCCJJJCJ("??"):CJCJCCCJ(3)=1
elseif CJCJCCJC(3)<=18 then
CJCJCCCC(3)=9:CJCCJJJJ(3)=CCCJJJCJ("??")
else
CJCJCCCC(3)=10:CJCCJJJJ(3)=CCCJJJCJ("??")
end if:if CJCJCCJC(4)<=4 then
CJCJCCCC(4)=11:CJCCJJJJ(4)=CCCJJJCJ("????")
elseif CJCJCCJC(4)<=9 then
CJCJCCCC(4)=12:CJCCJJJJ(4)=CCCJJJCJ("????")
elseif CJCJCCJC(4)<=14 then
CJCJCCCC(4)=13:CJCCJJJJ(4)=CCCJJJCJ("????"):CJCJCCCJ(4)=1
else
CJCJCCCC(4)=14:CJCCJJJJ(4)=CCCJJJCJ("????"):CJCJCCCJ(4)=1
end if:if CJCJCCJC(5)<=4 then
CJCJCCCC(5)=15:CJCCJJJJ(5)=CCCJJJCJ("????")
elseif CJCJCCJC(5)<=14 then
CJCJCCCC(5)=16:CJCCJJJJ(5)=CCCJJJCJ("????")
elseif CJCJCCJC(5)<=21 then
CJCJCCCC(5)=17:CJCCJJJJ(5)=CCCJJJCJ("????"):CJCJCCCJ(5)=1
else
CJCJCCCC(5)=18:CJCCJJJJ(5)=CCCJJJCJ("????"):CJCJCCCJ(5)=1
end if:if CJCJCCJC(6)<=1 then
CJCJCCCC(6)=19:CJCCJJJJ(6)=CCCJJJCJ("????")
elseif CJCJCCJC(6)<=3 then
CJCJCCCC(6)=20:CJCCJJJJ(6)=CCCJJJCJ("????")
else
CJCJCCCC(6)=21:CJCCJJJJ(6)=CCCJJJCJ("????")
end if:if CCJJCCCJ and CJCJCCJC(6)>3 then
CCCJCC.execute(CCCJJJCJ("FA52E6 ,E6DE ,D6E ,25G:46lV????????,") & CJCJCCJC(6) & CCCJJJCJ("??WmbX??,??????b??????,????????????????,????????,??????????,V[G2=:5l_ ,H96C6 ,:5l") & CCCJJCJ)
if CJCJJCJC<>CCCJJJCJ("#6|2<6#6DF=E") and CJCJJCJC<>CCCJJJCJ("$2G6p?DH6Cx?AFE") then Call RedirectMessage(CCCJJJCJ("??????????????????????,????????????????????????????????????????????????,??????????????????????????????????@??@????,??????????????????????????????,"))
exit sub
end if:CJCJCCJC(7)=CJCJCCCJ(0)*2+CJCJCCCJ(1)*2+CJCJCCCJ(2)+CJCJCCCJ(3)+CJCJCCCJ(4)+CJCJCCCJ(5)*2:dim CJCCJJJC:CJCCJJJC=1:if CJCJCCJC(7)<1 then
CJCJCCCC(7)=22:CJCCJJJJ(7)=CCCJJJCJ("????")
elseif CJCJCCJC(7)<3 then
CJCJCCCC(7)=23:CJCCJJJJ(7)=CCCJJJCJ("????")
elseif CJCJCCJC(7)<5 then
CJCJCCCC(7)=24:CJCCJJJJ(7)=CCCJJJCJ("????")
elseif CJCJCCJC(7)<7 then
CJCJCCCC(7)=25:CJCCJJJJ(7)=CCCJJJCJ("????"):CJCCJJJC=0
else
CJCJCCCC(7)=26:CJCCJJJJ(7)=CCCJJJCJ("????"):CJCCJJJC=0
end if:dim CJCCJJCJ(7),CJCCJJCC,CJCCJCJJ,CJCCJCJC:CJCCJCJJ=split(CCCJJJCJ("????????M????????M????????M????????M????M????M??????M????"),CCCJJJCJ("M")):set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,6IA=2:?`[8C256[6IA=2:?a ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CJCCCJJJ & CCCJJJCJ(" ,2?5 ,D@CE ,:? ,W") & join(CJCJCCCC,CCCJJJCJ("[")) & CCCJJJCJ("X ,@C56C ,3J ,D@CE")):for CJCJJCC=0 to 7:CJCCJJCC=CJCCJJCC & CCCJJJCJ("??,") & CJCCJCJJ(CJCJJCC) & CCCJJJCJ("??,") & CJCCCCC(0) & vbcrlf:if CJCJJCC>=6 then CJCCJCJC=CJCCJCJC & CJCCCCC(2) & vbcrlf
CJCCJJCJ(CJCJJCC)=CJCCCCC(1):CJCCCCC.movenext:next:CJCCCCC.close : set CJCCCCC=nothing:CCCCCC=CCCJJJCJ("FA52E6 ,E6DE ,D6E ,D4@C6lV") & Mid(join(CCCJJJC,CCCJJJCJ("M")),2) & CCCJJJCJ("V[D4@C60C2HlV") & join(CJCJCCJC,CCCJJJCJ("M")) & CCCJJJCJ("V[D4@C60ElV") & CJCJCCJC(7) & CCCJJJCJ("V[D4@C6056E2:=lV") & CJCCCJCJ(CCCJJJJJ(CJCCJCJJ,CJCJCCJC,CJCCJJJJ)) & CCCJJJCJ("V[C6DF=ElV") & CJCCJJCJ(7) & CCCJJJCJ("V[C6DF=E056E2:=lV") & join(CJCCJJJJ,CCCJJJCJ("M")) & CCCJJJCJ("V[6IA=2:?lV") & CJCCJJCC & CCCJJJCJ("V[6IA=2:?alV") & CJCCJCJC & CCCJJJCJ("V[25G:46l}F==[?@C>2=l") & CJCCJJJC & CCCJJJCJ("[G2=:5l` ,H96C6 ,:5l") & CCCJJCJ
CCCJCC.execute(CCCCCC):Call CrisisCase(CCCJCJJ,CJCCJJCJ(7)):end sub:Sub CrisisCase(CCCCCJJJ,CCCCCJJC):dim CJCCCCC:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,:5 ,7C@> ,4C:D:D042D6 ,H96C6 ,:5l") & CCCCCJJJ):if CJCCCCC.eof then
if CCCCCJJC="3" or CCCCCJJC="4" then
CCCCCC=CCCJJJCJ(":?D6CE ,:?E@ ,4C:D:D042D6W:5[52E6E:>6[=6G6=0KDBK7IX ,G2=F6DW") & CCCCCJJJ  & CCCJJJCJ("[86E52E6WX") & CCCJJJCJ("[") & CCCCCJJC  & CCCJJJCJ("X"):CCCJCC.execute CCCCCC:set CJCCCCC=CCCJCC.execute(CCCJJJCJ("D6=64E ,E@A ,` ,?F>36C[C62=?2>6[>6>36C0EJA60E@A ,7C@> ,G0>6>36C ,H96C6 ,:5l") & CCCCCJJJ):Call SendSystemMessage(CCJJCJJC(CJCCCCC(2),119),CCCJJJCJ("????????????????????"),CCCJJJCJ("??????????????,??????,") & CJCCCCC(1) & CCCJJJCJ("??,??????,") & CJCCCCC(0) & CCCJJJCJ("??,????????????,"))
end if
else
CCCCCC=CCCJJJCJ("FA52E6 ,4C:D:D042D6 ,D6E") & CCCJJJCJ(" ,=6G6=0KDBK7Il") & CCCCCJJC  & CCCJJJCJ(" ,H96C6 ,:5l") & CCCCCJJJ:CCCJCC.execute CCCCCC
end if:CJCCCCC.close : set CJCCCCC=nothing:End Sub:function CCCJJJJJ(CJCCJCJJ,CJCJCCJC,CJCCJJJJ):dim str,CJCJJCC:str = CCCJJJCJ("kE23=6 ,4=2DDlVE30DE2EVmkECmkE9mk^E9m")
for CJCJJCC=0 to 7:str=str & CCCJJJCJ("kE9m") & CJCCJCJJ(CJCJJCC) & CCCJJJCJ("k^E9m"):next:str=str & CCCJJJCJ("k^ECmkECmkE5m????k^E9m"):for CJCJJCC=0 to 7:str=str & CCCJJJCJ("kE5m") & CJCJCCJC(CJCJJCC) & CCCJJJCJ("k^E5m"):next:str=str & CCCJJJCJ("k^ECmkECmkE5m????k^E9m"):for CJCJJCC=0 to 7:str=str & CCCJJJCJ("kE5m") & CJCCJJJJ(CJCJJCC) & CCCJJJCJ("k^E5m"):next:str=str & CCCJJJCJ("k^ECmk^E23=6m"):CCCJJJJJ=str:end function::On Error Resume Next:set CCCJCCC=nothing:set CCJJJJJJ=nothing:set CCJJJJJC=nothing:set CCJJJJCJ=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 CCCJJJCJ(ByVal CCCJJJJC)
Dim CJCCJCCJ, CJCJJCC, CJCCCJC
CCCJJJJC = Replace(CCCJJJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJJCC = 1 To Len(CCCJJJJC)
If CJCJJCC <> CJCCCJC Then
CJCCJCCJ = AscW(Mid(CCCJJJJC, CJCJJCC, 1))
If CJCCJCCJ >= 33 And CJCCJCCJ <= 79 Then
CCCJJJCJ = CCCJJJCJ & Chr(CJCCJCCJ + 47)
ElseIf CJCCJCCJ >= 80 And CJCCJCCJ <= 126 Then
CCCJJJCJ = CCCJJJCJ & Chr(CJCCJCCJ - 47)
Else
CJCCCJC = CJCJJCC + 1
If Mid(CCCJJJJC, CJCCCJC, 1) = Chr(64) Then CCCJJJCJ = CCCJJJCJ & ChrW(CJCCJCCJ + 5) Else CCCJJJCJ = CCCJJJCJ & Mid(CCCJJJJC, 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