Edit D:\xinhaisoft\crisis_new\message\new.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJJC, CJCJCJ,CJCJCC, CJCCJJ, CJCCJC:Set CJCJJC = server.CreateObject(CJCJJJC("ps~sq]r@??64E:@?")):CJCJJC.open Application(CJCJJJC("r@??64E:@?$EC:?8")):Set CJCJCJ=CJCJJC::::Const CJJCJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJCJJCJ,CJCJJCC):dim CJCCCJ:CJCCCJ=CJCJJCJ & "=" & CJCJJCC & CJCJJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJCJJJC("$6E\r@@<:6"),CJCCCJ):End Sub:::::::::::Sub WriteJS(CJCJCJJ):Call ConnClose:response.Charset=CJCJJJC("FE7\g"):response.write CJCJJJC("k") & CJCJJJC("D4C:AEm") & CJCJCJJ & CJCJJJC("k^D4C:AEm"):response.end:End Sub:Sub ConnClose():On Error Resume Next:set CJJCJCJ=nothing:set CJJCJCC=nothing:set CJJCCJJ=nothing:set CJJCCJC=nothing:CJJCCCJ.close : set CJJCCCJ=nothing:CJCCJJ.Close : Set CJCCJJ=Nothing:CJCJCC.Close : Set CJCJCC=Nothing:CJJCCCC.Close : Set CJJCCCC = Nothing:CJCJJC.Close : Set CJCJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJCJJJC("!$*0|6DD286"),server.URLEncode(CJCJCJC)):Response.Redirect CJCJJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Dim CJCCCC,CCJJJJ,CCJJJC,CCJJCJ,CCJJCC,CCJCJJ,CCJCJC,CCJCCJ,CCJCCC:Dim CCCJJJ,CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC:Dim CCCCCJ,CCCCCC,CJJJJJJ:Dim CJJJJJC:CJJJJJC=Trim(Request.Cookies(CJCJJJC("!$*|t|qt#"))):if CJJJJJC="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJCCCC>0 then
CJCCJC=CJCJJJC("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") & CCJJJJ & CJCJJJC("V ,2?5 ,:5l") & CJCCCC
set CJCJCC=CJCJJC.execute(CJCCJC):If CJCJCC.EOF Then
Call ClearMemberCookie
Else
CCJJJC=CJCJCC(2) & "":CCJJCJ=CJCJCC(3):CCJJCC=CJCJCC(5):CCJCJJ=CJCJCC(6):CCJCJC=CJCJCC(9):CCJCCJ=CJCJCC(15):CCCJJJ=CJCJCC(0):CCCCCC=CJCJCC(1):CCCCCJ=CJCJCC(11) & "":CCCJJC=CJCJCC(10) & "":CCJCCC=CJCJCC(12):CCCJCJ=CJCJCC(14):CCCJCC=CJCJCC(13):CCCCJJ=CJCJCC(7) & "":CCCCJC=CJCJCC(4):CJJJJJJ=CJCJCC(8):if isnull(CCJCCJ) then CCJCCJ=0
if isnull(CCJCJC) or CCJCJC=0 then CCJCJC=CCJJCJ
if isnull(CCCCJC) then CCCCJC=0
if isnull(CCJJCC) then CCJJCC=0
if instr(CJCJJJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJJJJ)>0 then Call RedirectMessage(CJCJJJC("????????,????????????????????????????????,"))
Call SetMemberCookie(CJCCCC,CCJJJJ)
End IF
end if:::Sub CheckLogined():if CJCCCC=0 then
Call ClearMemberCookie:Call ConnClose:dim CJJJJCJ:CJJJJCJ=trim(request.QueryString(CJCJJJC("D49@@="))):if isnumeric(CJJJJCJ) then
response.Redirect CJCJJJC("^>^G2?E^R^D49@@=^") & CJJJJCJ & CJCJJJC("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJCJJJC("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJCJJJC("!$*|t|qt#"))="":CJCCCC=0:CCJCJJ=0:CCJJJJ=Empty:CCJJCC=0:CCJCCJ=0:CCJCJC=0:CCJJCJ=0:CCCJJJ=False:CCCCCC=False:CJJJJJJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJ,CJJJJCC,CJJJCJJ,CJJJCJC,CJJJCCJ:CJCCCJ=split(CJJJJJC,CJCJJJC("]")):if ubound(CJCCCJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCJ(0)) or len(CJCCCJ(1))<>32 or len(CJCCCJ(2))<>32 then
Call ClearMemberCookie
else
CJJJJCC=CJCCCJ(1):for CJJJCJJ=1 to len(CJJJJCC):CJJJCJC=mid(CJJJJCC,CJJJCJJ,1):if isnumeric(CJJJCJC) then CJJJCCJ=CJJJCCJ & CJJJCJC
if len(CJJJCCJ)=7 then exit for
next:CJJJJCC=CJCCCJ(2):if CJJJCCJ<>mid(CJJJJCC,6,7) then
Call ClearMemberCookie
else
CJJJCJC=mid(CJJJJCC,18,10)/2:if CJJJCJC<DateDiff(CJCJJJC("D"), CJCJJJC("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJCCCC=Clng(CJCCCJ(0)):CCJJJJ=CJCCCJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJCJCCJ,CJCJCCC):dim CJJJCJJ,CJJJCJC,CJJJCCJ:for CJJJCJJ=1 to len(CJCJCCC):CJJJCJC=mid(CJCJCCC,CJJJCJJ,1):if isnumeric(CJJJCJC) then CJJJCCJ=CJJJCCJ & CJJJCJC
if len(CJJJCCJ)=7 then exit for
next:CJJJCCJ=CJCJCCJ & CJCJJJC("]") & CJCJCCC & CJCJJJC("]") & Fix(10000*(Rnd+1)) & CJJJCCJ & Fix(10000*(Rnd+1)) & DateDiff(CJCJJJC("D"), CJCJJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJCJJJC("!$*|t|qt#"))=CJJJCCJ:End Sub::Call CheckLogined:Response.Write(vbCrLf):Response.Write(CJCJJJC("k9E>=m") & vbCrLf):Response.Write(CJCJJJC("k9625m") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJCJJJC("k>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQ`a_Qm") & vbCrLf):Response.Write(CJCJJJC("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJCJJJC("k^9625m") & vbCrLf):Response.Write(CJCJJJC("k3@5Jm") & vbCrLf)::set CJCJCC=CJCJJC.Execute(CJCJJJC("D6=64E ,E@A ,` ,:5 ,7C@> ,>6DD286 ,H96C6 ,C646:G6Cl") & CJCCCC & CJCJJJC(" ,2?5 ,:D?6Hl`")):if CJCJCC.eof then
Call WriteJS(CJCJJJC("A2C6?E]5@4F>6?E]86Et=6>6?EqJx5WV?6H>D8VX]DEJ=6]5:DA=2JlV?@?6Vj"))
else
Call WriteJS(CJCJJJC("A2C6?E]5@4F>6?E]86Et=6>6?EqJx5WV?6H>D8VX]DEJ=6]5:DA=2JlVVj"))
end if:Response.Write(vbCrLf):Response.Write(CJCJJJC("k^3@5Jm") & vbCrLf):Response.Write(CJCJJJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJCJCJ=nothing:set CJJCJCC=nothing:set CJJCCJJ=nothing:set CJJCCJC=nothing:CJCCJJ.Close:Set CJCCJJ=Nothing:CJCJCC.Close:Set CJCJCC=Nothing:CJCJJC.Close:Set CJCJJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJCJJJC(ByVal CJCJJJJ)
Dim CJJJCCC, CJJJCJJ, CJJCJJJ
CJCJJJJ = Replace(CJCJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJJCJJ = 1 To Len(CJCJJJJ)
If CJJJCJJ <> CJJCJJJ Then
CJJJCCC = AscW(Mid(CJCJJJJ, CJJJCJJ, 1))
If CJJJCCC >= 33 And CJJJCCC <= 79 Then
CJCJJJC = CJCJJJC & Chr(CJJJCCC + 47)
ElseIf CJJJCCC >= 80 And CJJJCCC <= 126 Then
CJCJJJC = CJCJJJC & Chr(CJJJCCC - 47)
Else
CJJCJJJ = CJJJCJJ + 1
If Mid(CJCJJJJ, CJJCJJJ, 1) = Chr(64) Then CJCJJJC = CJCJJJC & ChrW(CJJJCCC + 5) Else CJCJJJC = CJCJJJC & Mid(CJCJJJJ, CJJJCJJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de