Edit D:\xinhaisoft\crisis_new\lb\mmpi1

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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCCCJJ, CCCCJC,CCCCCJ, CCCCCC, CJJJJJJ:Set CCCCJJ = server.CreateObject(CJJJJCCC("ps~sq]r@??64E:@?")):CCCCJJ.open Application(CJJJJCCC("r@??64E:@?$EC:?8")):Set CCCCJC=CCCCJJ::Dim CJJJJJC,CJJJJCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:Dim CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC:Dim CJCJJJJ,CJCJJJC,CJCJJCJ:Dim CJCJJCC:CJCJJCC=Trim(Request.Cookies(CJJJJCCC("!$*|t|qt#"))):if CJCJJCC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJC>0 then
CJJJJJJ=CJJJJCCC("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") & CJJJJCJ & CJJJJCCC("V ,2?5 ,:5l") & CJJJJJC
set CCCCCJ=CCCCJJ.execute(CJJJJJJ):If CCCCCJ.EOF Then
Call ClearMemberCookie
Else
CJJJJCC=CCCCCJ(2) & "":CJJJCJJ=CCCCCJ(3):CJJJCJC=CCCCCJ(5):CJJJCCJ=CCCCCJ(6):CJJJCCC=CCCCCJ(9):CJJCJJJ=CCCCCJ(15):CJJCJCJ=CCCCCJ(0):CJCJJJC=CCCCCJ(1):CJCJJJJ=CCCCCJ(11) & "":CJJCJCC=CCCCCJ(10) & "":CJJCJJC=CCCCCJ(12):CJJCCJJ=CCCCCJ(14):CJJCCJC=CCCCCJ(13):CJJCCCJ=CCCCCJ(7) & "":CJJCCCC=CCCCCJ(4):CJCJJCJ=CCCCCJ(8):if isnull(CJJCJJJ) then CJJCJJJ=0
if isnull(CJJJCCC) or CJJJCCC=0 then CJJJCCC=CJJJCJJ
if isnull(CJJCCCC) then CJJCCCC=0
if isnull(CJJJCJC) then CJJJCJC=0
if instr(CJJJJCCC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJCJ)>0 then Call RedirectMessage(CJJJJCCC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJC,CJJJJCJ)
End IF
end if:::Sub CheckLogined():if CJJJJJC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJCJCJJ:CJCJCJJ=trim(request.QueryString(CJJJJCCC("D49@@="))):if isnumeric(CJCJCJJ) then
response.Redirect CJJJJCCC("^>^G2?E^R^D49@@=^") & CJCJCJJ & CJJJJCCC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJJJCCC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJJJCCC("!$*|t|qt#"))="":CJJJJJC=0:CJJJCCJ=0:CJJJJCJ=Empty:CJJJCJC=0:CJJCJJJ=0:CJJJCCC=0:CJJJCJJ=0:CJJCJCJ=False:CJCJJJC=False:CJCJJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCJCJC,CJCJCCJ,CJCJCCC,CJCCJJJ,CJCCJJC:CJCJCJC=split(CJCJJCC,CJJJJCCC("]")):if ubound(CJCJCJC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCJCJC(0)) or len(CJCJCJC(1))<>32 or len(CJCJCJC(2))<>32 then
Call ClearMemberCookie
else
CJCJCCJ=CJCJCJC(1):for CJCJCCC=1 to len(CJCJCCJ):CJCCJJJ=mid(CJCJCCJ,CJCJCCC,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCJCCJ=CJCJCJC(2):if CJCCJJC<>mid(CJCJCCJ,6,7) then
Call ClearMemberCookie
else
CJCCJJJ=mid(CJCJCCJ,18,10)/2:if CJCCJJJ<DateDiff(CJJJJCCC("D"), CJJJJCCC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJC=Clng(CJCJCJC(0)):CJJJJCJ=CJCJCJC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCJCJJJ,CJJJCJJJ):dim CJCJCCC,CJCCJJJ,CJCCJJC:for CJCJCCC=1 to len(CJJJCJJJ):CJCCJJJ=mid(CJJJCJJJ,CJCJCCC,1):if isnumeric(CJCCJJJ) then CJCCJJC=CJCCJJC & CJCCJJJ
if len(CJCCJJC)=7 then exit for
next:CJCCJJC=CCJCJJJ & CJJJJCCC("]") & CJJJCJJJ & CJJJJCCC("]") & Fix(10000*(Rnd+1)) & CJCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CJJJJCCC("D"), CJJJJCCC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJCCC("!$*|t|qt#"))=CJCCJJC:End Sub::Function CCCCJCJ(CJJJCJJC):Dim str,CJCCJCC:str = Trim(CJJJCJJC):If IsNull(str) Or str = "" Then
CCCCJCJ = ""
else
str=Replace(str, CJJJJCCC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJCCC("k:7C2>6"), CJJJJCCC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJCCC("kD4C:AE"), CJJJJCCC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJCCJCC=new RegExp:CJCCJCC.Pattern=CJJJJCCC("@?W,2\K.ZXl"):CJCCJCC.IgnoreCase = True:CJCCJCC.Global=True:str=CJCCJCC.Replace(str,CJJJJCCC("@?S`U6BF2=Dj")):set CJCCJCC=nothing:CCCCJCJ=str
End If:End Function:Function IIf(CJJJCJCJ, CJJJCJCC, CJJJCCJJ):if isnull(CJJJCJCJ) or isempty(CJJJCJCJ) then
IIf = CJJJCCJJ
elseif CJJJCJCJ Then
IIf = CJJJCJCC
Else
IIf = CJJJCCJJ
end if:End Function:Const CCCCJJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJJCCJC,CJJJCCCJ):dim CJCJCJC:CJCJCJC=CJJJCCJC & "=" & CJJJCCCJ & CJJJJCCC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJCCC("$6E\r@@<:6"),CJCJCJC):End Sub:::::::Function CCCCCJJ(CCCJCCJ):if isnull(CCCJCCJ) or trim(CCCJCCJ)="" or not isnumeric(CCCJCCJ) then
CCCCCJJ=false
else
Dim CJCCJCC:Set CJCCJCC = New RegExp:CJCCJCC.Pattern = CJJJJCCC("/-5ZS"):CJCCJCC.IgnoreCase = True:CCCCCJJ = CJCCJCC.test(CCCJCCJ):set CJCCJCC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CJCCCJJ.close : set CJCCCJJ=nothing:CCCCCC.Close : Set CCCCCC=Nothing:CCCCCJ.Close : Set CCCCCJ=Nothing:CJJJJJJC.Close : Set CJJJJJJC = Nothing:CCCCJJ.Close : Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJJJCCCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJCCC("!$*0|6DD286"),server.URLEncode(CJJJCCCC)):Response.Redirect CJJJJCCC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::Function CJJJJJCJ():Dim CJCCCJJ, CJCCCJC(), CJCJCCC, CJCCJJJ, CJCCCCJ,CJCCCCC:If Not IsArray(Application(CJJJJCCC("!$*0%6DED"))) Then
CJJJJJJ=CJJJJCCC("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 CJCCCJJ=server.createobject(CJJJJCCC("25@53]C64@C5D6E")):CJCCCJJ.open CJJJJJJ,CCCCJJ,1:CJCCCCJ = CJCCCJJ.RecordCount:CJCCCCC=CJCCCJJ.fields.count-1:ReDim CJCCCJC(CJCCCCJ, CJCCCCC):If CJCCCCJ > 0 Then
For CJCJCCC = 1 To CJCCCCJ:For CJCCJJJ = 0 To CJCCCCC:if CJCCJJJ=4 or CJCCJJJ=6 or CJCCJJJ=19 then
CJCCCJC(CJCJCCC, CJCCJJJ) = CJJJJCJC(CJCCCJJ(CJCCJJJ))
else
CJCCCJC(CJCJCCC, CJCCJJJ) = CJCCCJJ(CJCCJJJ):if CJCCCJJ(CJCCJJJ).type<>11 and isnull(CJCCCJC(CJCJCCC, CJCCJJJ)) then CJCCCJC(CJCJCCC, CJCCJJJ)=""
end if:Next:CJCCCJJ.MoveNext:Next
End If:CJCCCJJ.Close: Set CJCCCJJ = Nothing:Application(CJJJJCCC("!$*0%6DED")) = CJCCCJC
End If:CJJJJJCJ = Application(CJJJJCCC("!$*0%6DED")):End Function::Function CJJJJJCC(CCCJCCJ):Dim CCJJJJJ, CCJJJJC, CCJJJCJ, CCJJJCC, str:If Not CCCCCJJ(CCCJCCJ) or CCCJCCJ=0 Then
str=0
else
CCJJJJJ = Fix(CCCJCCJ / 86400):CCJJJJC = Fix((CCCJCCJ - CCJJJJJ * 86400) / 3600):CCJJJCJ = Fix((CCCJCCJ - CCJJJJJ * 86400 - CCJJJJC * 3600) / 60):CCJJJCC = Fix(CCCJCCJ - CCJJJJJ * 86400 - CCJJJJC * 3600 - CCJJJCJ * 60):If CCJJJJJ <> 0 Then str = CCJJJJJ & CJJJJCCC("??")
If CCJJJJC <> 0 Then str = str & CCJJJJC & CJJJJCCC("????")
If CCJJJCJ <> 0 Then str = str & CCJJJCJ & CJJJJCCC("??")
if CCJJJCC <> 0 Then str = str & CCJJJCC & CJJJJCCC("??")
end if:CJJJJJCC = str:End Function:::::::::::::::::Function CJJJJCJJ(CCJCJJJ):dim CCJJCJJ,CJCJCCC,CCJJCJC,CCJJCCJ,CCJJCCC:CCJJCCJ=Now:CCJJCJJ= CCJCJJJ & Year(CCJJCCJ) & CCJCJJJ & Month(CCJJCCJ) & CCJCJJJ & Day(CCJJCCJ) & CCJCJJJ & Hour(CCJJCCJ) & CCJCJJJ:CCJJCJJ=StrReverse(CCJJCJJ):for CJCJCCC=1 to len(CCJJCJJ):CCJJCCC=Cint(Mid(CCJJCJJ,CJCJCCC,1)):CCJJCJC=CCJJCJC & CCJJCCC^2:next:CCJJCJJ=CCJJCJC:CCJJCJJ=left(CCJJCJJ,16) & right(CCJJCJJ,16):CCJJCJJ=Mid(CCJJCJJ,9,16):CJJJJCJJ=CCJJCJJ:End Function:::::::::::Function CJJJJCJC(CJJCJJJJ):if isnull(CJJCJJJJ) then
CJJJJCJC=""
else
On Error Resume Next:CJJJJCJC=CJJCJJJJ:if err.number=-2147352567 then
CJJJJCJC="":err.Clear
end if
end if:End Function::::::Const CCCCJJC=109:Call CheckLogined:dim CCJCJJJ,CCJJCJJ,CCJCJJC,CCJCJCJ,CCJCJCC:CCJCJJJ=Request.QueryString(CJJJJCCC(":5")):CCJJCJJ=Request.QueryString(CJJJJCCC("<6J")):CCJCJJC=Request.QueryString(CJJJJCCC("E")):CCJCJCJ=CCCCJCJ(Request.QueryString(CJJJJCCC("J62CD"))):CCJCJCC=Request.QueryString(CJJJJCCC(">")):if CCJCJJC="0" then CCJCJJC=false else CCJCJJC=true
if not CCCCCJJ(CCJCJJJ) then
Call RedirectMessage(CJJJJCCC("????????,??????????????,"))
elseif CJJJJCJJ(CJJJJJC & CCJCJJJ)<>CCJJCJJ then
Call RedirectMessage(CJJJJCCC("????????,??????????,??????????????????,"))
end if:if CCJCJCJ<>"" then
set CCCCCJ=CCCCJJ.execute(CJJJJCCC("D6=64E ,E@A ,` ,Y ,7C@> ,G0E6DE0") & CCJCJCJ & CJJJJCCC(" ,H96C6 ,:5l") & CCJCJJJ)
else
set CCCCCJ=CCCCJC.execute(CJJJJCCC("D6=64E ,E@A ,` ,Y ,7C@> ,G0E6DE ,H:E9 ,W?@=@4<X ,H96C6 ,G2=:5l` ,2?5 ,:5l") & CCJCJJJ):if CCCCCJJ(CCJCJCC) and CCCCCJ.eof then
set CCCCCJ=CCCCJJ.execute(CJJJJCCC("D6=64E ,E@A ,` ,Y ,7C@> ,G0E6DE0a_`e0a_`g ,H96C6 ,=3l") & CCCCJJC & CJJJJCCC(" ,2?5 ,>6>36Cl") & CCJCJCC & CJJJJCCC(" ,@C56C ,3J ,:5 ,56D4"))
end if
end if:if CCCCCJ.eof then Call RedirectMessage(CJJJJCCC("????????,????????????????????????,"))
dim CCJCCJJ,CCJCCJC:CCJCCJJ=split(CCCCCJ(CJJJJCCC("C6DF=E")),CJJJJCCC("M"))(9):CCJCCJC=CCCCCJ(CJJJJCCC("2?DH6C")):dim CCJCCCJ,CCJCCCC,CJCJCCC,CJCCCJC,CCCJJJJ:CJCCCJC=CJJJJJCJ:for CJCJCCC=1 to ubound(CJCCCJC):if CJCCCJC(CJCJCCC,0)=CCCCJJC then
CCJCCCJ=CJCCCJC(CJCJCCC,14):if CCJCJJC then
CCJCCCC=CJCCCJC(CJCJCCC,15)
else
CCJCCCC=CJCCCJC(CJCJCCC,18):if CCJCCCJ="" then CCJCCCJ=CJCCCJC(CJCJCCC,1)
end if:CCCJJJJ=CJCCCJC(CJCJCCC,2):exit for
end if:next:dim CCCJJJC:Response.Write(vbCrLf):Response.Write(CJJJJCCC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJJJCCC("k9E>=m") & vbCrLf):Response.Write(CJJJJCCC("k9625m") & vbCrLf):Response.Write(CJJJJCCC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJJJCCC("kE:E=6m")):Response.Write  CCJCCCJ:Response.Write(CJJJJCCC("k^E:E=6m") & vbCrLf):Response.Write(CJJJJCCC("k=:?< ,C6=lQDEJ=6D966EQ ,9C67lQ]]^4DD^DE2E]4DDQ^m") & vbCrLf):Response.Write(CJJJJCCC("kDEJ=6m") & vbCrLf):Response.Write(CJJJJCCC("]DE2E ,L ,7@?Ei`cAI^`d_T ,'6C52?2[ ,Q????Qj ,N") & vbCrLf):Response.Write(CJJJJCCC("]DE2E ,A ,L ,E6IE\:?56?Eia6>j ,N") & vbCrLf):Response.Write(CJJJJCCC("]DE2E ,9`[ ,]DE2E ,9a[ ,]DE2E ,9b[ ,]DE2E ,9c ,L ,7@?E\H6:89Eif__j ,=:?6\96:89Eib_AIj ,A255:?8\=67EidAIj ,N") & vbCrLf):Response.Write(CJJJJCCC("]DE2E ,9` ,L ,4@=@CiRcug`qsj ,7@?E\D:K6iacAIj ,N") & vbCrLf):Response.Write(CJJJJCCC("]DE2E ,9a ,L ,324<8C@F?5iRcug`qsj ,4@=@CiRuuuj ,7@?E\D:K6i`gAIj ,N") & vbCrLf):Response.Write(CJJJJCCC("]DE2E ,9b ,L ,7@?E\D:K6i`eAIj ,324<8C@F?5iRsqtdu`j ,N") & vbCrLf):Response.Write(CJJJJCCC("]DE2E ,9c ,L ,3@C56C\E@Ai`AI ,D@=:5 ,Rcug`qsj ,3@C56C\=67Ei`AI ,D@=:5 ,Rcug`qsj ,7@?E\D:K6i`eAIj ,4@=@CiRacbue_j ,N") & vbCrLf):Response.Write(CJJJJCCC("k^DEJ=6m") & vbCrLf):Response.Write(CJJJJCCC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCC("kD4C:AE ,DC4lQ^$4C:AED^6492CED^6492CED]4@>>@?]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCC("k^9625m") & vbCrLf):Response.Write(CJJJJCCC("k3@5Jm") & vbCrLf):Response.Write(CJJJJCCC("k5:G ,4=2DDlQDE2EQm") & vbCrLf):Response.Write(CJJJJCCC(" ,k9`m")):Response.Write  CCJCCCJ:Response.Write(CJJJJCCC("k^9`m") & vbCrLf):Response.Write(CJJJJCCC(" ,k9am????????k^9am") & vbCrLf):Response.Write(CJJJJCCC(" ,??????,")):Response.Write  CCCCCJ(CJJJJCCC("?F>36C")):Response.Write(CJJJJCCC("k3Cm") & vbCrLf):Response.Write(CJJJJCCC(" ,??????,")):Response.Write  CCCCCJ(CJJJJCCC("C62=?2>6")):Response.Write(CJJJJCCC("k3Cm") & vbCrLf):Response.Write(CJJJJCCC(" ,??????,")):Response.Write  CCCCCJ(CJJJJCCC("E6DE286")):Response.Write(CJJJJCCC("??k3Cm") & vbCrLf):Response.Write(CJJJJCCC(" ,??????,")):Response.Write  CCCCCJ(CJJJJCCC("D6I?2>6")):Response.Write(CJJJJCCC("k3Cm") & vbCrLf):Response.Write(CJJJJCCC(" ,??????,")):Response.Write  CCCCCJ(CJJJJCCC("52E6E:>6")):Response.Write(CJJJJCCC("k3Cm") & vbCrLf):Response.Write(CJJJJCCC(" ,??????,")):Response.Write  CJJJJJCC(CCCCCJ(CJJJJCCC("9@H=@?8"))):Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k9am????????k^9am") & vbCrLf):Response.Write(CJJJJCCC(" ,")):dim CCCJJCJ,CCCJJCC,CCCJCJJ:CCCJJCJ=split(CCJCCCC,CJJJJCCC("M")):CCCJJCC=split(CCCCCJ(CJJJJCCC("D4@C60C2H")),CJJJJCCC("M")):CCCJCJJ=split(CCCCCJ(CJJJJCCC("D4@C60E")),CJJJJCCC("M")):Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,kE23=6 ,4=2DDlQE30DE2EQm") & vbCrLf):Response.Write(CJJJJCCC(" ,kECm") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9 ,H:5E9lQfdQm????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9 ,H:5E9lQaagQm????????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9 ,H:5E9lQhcQm??????k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE9 ,H:5E9lQhbQm%??k^E9m") & vbCrLf):Response.Write(CJJJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCC(" ,")):for CJCJCCC=0 to 8:Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,kECm") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5m")):Response.Write  CJCJCCC+1:Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5 ,4=2DDlQE6IE\=67EQm")):Response.Write  CCCJJCJ(CJCJCCC):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5m")):Response.Write  CCCJJCC(CJCJCCC):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,kE5m")):Response.Write  CCCJCJJ(CJCJCCC):Response.Write(CJJJJCCC("k^E5m") & vbCrLf):Response.Write(CJJJJCCC(" ,k^ECm") & vbCrLf):Response.Write(CJJJJCCC(" ,")):next:Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJCCC(" ,k9am??????k^9am") & vbCrLf):Response.Write(CJJJJCCC(" ,kD4C:AE ,DC4lQ^=3^492CE^>>A:`];Dn9lc__UGl")):Response.Write  CCCCCJ(CJJJJCCC("D4@C60E")):Response.Write(CJJJJCCC("Qmk^D4C:AEm") & vbCrLf):Response.Write(CJJJJCCC(" ,k9am????k^9am") & vbCrLf):Response.Write(CJJJJCCC(" ,")):dim CCCJCJC(8):for CJCJCCC=0 to 8:CCCJCJJ(CJCJCCC)=cint(CCCJCJJ(CJCJCCC)):if CJCJCCC=0 then
if CCCJCJJ(CJCJCCC)>30 then CCCJCJC(CJCJCCC)=1 else CCCJCJC(CJCJCCC)=2
else
if CCCJCJJ(CJCJCCC)>70 then CCCJCJC(CJCJCCC)=CJCJCCC*2+1 else CCCJCJC(CJCJCCC)=CJCJCCC*2+2
end if:next:set CCCCCJ=CCCCJJ.execute(CJJJJCCC("D6=64E ,6IA=2:?") & IIf(CCJCJJC,1,2) & CJJJJCCC(" ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CCCCJJC & CJJJJCCC(" ,2?5 ,D@CE ,:? ,W") & Join(CCCJCJC,CJJJJCCC("[")) & CJJJJCCC("X ,@C56C ,3J ,D@CE")):for CJCJCCC=0 to 8:Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k9bm??,")):Response.Write  CCCJJCJ(CJCJCCC):Response.Write(CJJJJCCC("??,k^9bm") & vbCrLf):Response.Write(CJJJJCCC(" ,kAm%????,")):Response.Write  CCCJCJJ(CJCJCCC):Response.Write(CJJJJCCC("k^Am") & vbCrLf):Response.Write(CJJJJCCC(" ,kAm")):Response.Write  replace(CCCCCJ(0) & "",vbcrlf,CJJJJCCC("k^AmkAm")):Response.Write(CJJJJCCC("k^Am") & vbCrLf):Response.Write(CJJJJCCC(" ,")):CCCCCJ.movenext:next:if CCJCCJJ<>"" and CCJCJJC then
CJJJJJJ=CJJJJCCC("D6=64E ,E@A ,` ,724E@C?2>6[6IA=2:?` ,7C@> ,=36IA=2:? ,H96C6 ,=3l") & CCCCJJC & CJJJJCCC(" ,2?5 ,W724E@Cl") & CCJCCJJ & CJJJJCCC(" ,@C ,724E@Cl") & StrReverse(CCJCCJJ) & CJJJJCCC("X"):set CCCCCJ=CCCCJJ.execute(CJJJJJJ):if not CCCCCJ.eof then
Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k9am????,????k^9am") & vbCrLf):Response.Write(CJJJJCCC(" ,k9bm??,??????,k^9bm") & vbCrLf):Response.Write(CJJJJCCC(" ,kAm")):Response.Write  CCJCCJJ & CJJJJCCC("^") & strreverse(CCJCCJJ):Response.Write(CJJJJCCC("k^Am") & vbCrLf):Response.Write(CJJJJCCC(" ,k9bm??,????????????,k^9bm") & vbCrLf):Response.Write(CJJJJCCC(" ,kAm")):Response.Write  CCCCCJ(0):Response.Write(CJJJJCCC("k^Am") & vbCrLf):Response.Write(CJJJJCCC(" ,k9bm??,????????????,k^9bm") & vbCrLf):Response.Write(CJJJJCCC(" ,kAm")):Response.Write  replace(CCCCCJ(1) & "",vbcrlf,CJJJJCCC("k^AmkAm")):Response.Write(CJJJJCCC("k^Am") & vbCrLf):Response.Write(CJJJJCCC(" ,"))
End If
End if:Response.Write(vbCrLf):Response.Write(CJJJJCCC(" ,k9am????????k^9am") & vbCrLf):Response.Write(CJJJJCCC(" ,")):Response.Write  CJJJJCCJ(CCJCCJC):Response.Write(CJJJJCCC(" ,k^5:Gm") & vbCrLf)::Function CJJJJCCJ(CCJCCJC):dim str,CJCJCCC,CJCCJJJ,CJCCJJC,CCCJCCJ:CCJCCJC=split(CJJJJCCC("M") & CCJCCJC,CJJJJCCC("M")):CCCJCCJ=ubound(CCJCCJC):str=CJJJJCCC("kE23=6 ,H:5E9lV`__TV ,3@C56ClV_Vm")
for CJCJCCC=1 to CCCJCCJ step 10:str=str & CJJJJCCC("kECm"):for CJCCJJJ=0 to 9:CJCCJJC=CJCJCCC+CJCCJJJ:str=str & CJJJJCCC("kE5m") & CJCCJJC & CJJJJCCC("] ,k3m") & CCJCCJC(CJCCJJC) & CJJJJCCC("k^3mk^E5m"):if CJCCJJC=CCCJCCJ then exit for
next:str=str & CJJJJCCC("k^ECm"):next:str=str & CJJJJCCC("k^E23=6m"):CJJJJCCJ=str:end function:Response.Write(vbCrLf):Response.Write(CJJJJCCC("k^3@5Jm") & vbCrLf):Response.Write(CJJJJCCC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCCCCJC=nothing:set CCCCCCJ=nothing:set CCCCCCC=nothing:set CJJJJJJJ=nothing:CCCCCC.Close:Set CCCCCC=Nothing:CCCCCJ.Close:Set CCCCCJ=Nothing:CCCCJJ.Close:Set CCCCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJCCC(ByVal CCJJCCC)
Dim CCCJCCC, CJCJCCC, CCCJCCJ
CCJJCCC = Replace(CCJJCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCJCCC = 1 To Len(CCJJCCC)
If CJCJCCC <> CCCJCCJ Then
CCCJCCC = AscW(Mid(CCJJCCC, CJCJCCC, 1))
If CCCJCCC >= 33 And CCCJCCC <= 79 Then
CJJJJCCC = CJJJJCCC & Chr(CCCJCCC + 47)
ElseIf CCCJCCC >= 80 And CCCJCCC <= 126 Then
CJJJJCCC = CJJJJCCC & Chr(CCCJCCC - 47)
Else
CCCJCCJ = CJCJCCC + 1
If Mid(CCJJCCC, CCCJCCJ, 1) = Chr(64) Then CJJJJCCC = CJJJJCCC & ChrW(CCCJCCC + 5) Else CJJJJCCC = CJJJJCCC & Mid(CCJJCCC, CJCJCCC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de