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

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CJJCJCJ("ps~sq]r@??64E:@?")):CCJCC.open Application(CJJCJCJ("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Dim CJJJJJ,CJJJJC,CJJJCJ,CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC,CJCCJJ,CJCCJC,CJCCCJ:Dim CJCCCC,CCJJJJ,CCJJJC:Dim CCJJCJ:CCJJCJ=Trim(Request.Cookies(CJJCJCJ("!$*|t|qt#"))):if CCJJCJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CJJJJJ>0 then
CCCCC=CJJCJCJ("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") & CJJJJC & CJJCJCJ("V ,2?5 ,:5l") & CJJJJJ
set CCCJC=CCJCC.execute(CCCCC):If CCCJC.EOF Then
Call ClearMemberCookie
Else
CJJJCJ=CCCJC(2) & "":CJJJCC=CCCJC(3):CJJCJJ=CCCJC(5):CJJCJC=CCCJC(6):CJJCCJ=CCCJC(9):CJJCCC=CCCJC(15):CJCJJC=CCCJC(0):CCJJJJ=CCCJC(1):CJCCCC=CCCJC(11) & "":CJCJCJ=CCCJC(10) & "":CJCJJJ=CCCJC(12):CJCJCC=CCCJC(14):CJCCJJ=CCCJC(13):CJCCJC=CCCJC(7) & "":CJCCCJ=CCCJC(4):CCJJJC=CCCJC(8):if isnull(CJJCCC) then CJJCCC=0
if isnull(CJJCCJ) or CJJCCJ=0 then CJJCCJ=CJJJCC
if isnull(CJCCCJ) then CJCCCJ=0
if isnull(CJJCJJ) then CJJCJJ=0
if instr(CJJCJCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJJJC)>0 then Call RedirectMessage(CJJCJCJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CJJJJJ,CJJJJC)
End IF
end if:::Sub CheckLogined():if CJJJJJ=0 then
Call ClearMemberCookie:Call ConnClose:dim CCJJCC:CCJJCC=trim(request.QueryString(CJJCJCJ("D49@@="))):if isnumeric(CCJJCC) then
response.Redirect CJJCJCJ("^>^G2?E^R^D49@@=^") & CCJJCC & CJJCJCJ("^DEF56?E^=@8:?nC65:C64El") & url
else
Call RedirectMessage(CJJCJCJ("??????????????,????????????,"))
end if
end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CJJCJCJ("!$*|t|qt#"))="":CJJJJJ=0:CJJCJC=0:CJJJJC=Empty:CJJCJJ=0:CJJCCC=0:CJJCCJ=0:CJJJCC=0:CJCJJC=False:CCJJJJ=False:CCJJJC=Empty:End Sub:Sub CheckMemberCookie():dim CCJCJJ,CCJCJC,CCJCCJ,CCJCCC,CCCJJJ:CCJCJJ=split(CCJJCJ,CJJCJCJ("]")):if ubound(CCJCJJ)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CCJCJJ(0)) or len(CCJCJJ(1))<>32 or len(CCJCJJ(2))<>32 then
Call ClearMemberCookie
else
CCJCJC=CCJCJJ(1):for CCJCCJ=1 to len(CCJCJC):CCJCCC=mid(CCJCJC,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCJCJC=CCJCJJ(2):if CCCJJJ<>mid(CCJCJC,6,7) then
Call ClearMemberCookie
else
CCJCCC=mid(CCJCJC,18,10)/2:if CCJCCC<DateDiff(CJJCJCJ("D"), CJJCJCJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CJJJJJ=Clng(CCJCJJ(0)):CJJJJC=CCJCJJ(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CCCJJC,CJJCJCC):dim CCJCCJ,CCJCCC,CCCJJJ:for CCJCCJ=1 to len(CJJCJCC):CCJCCC=mid(CJJCJCC,CCJCCJ,1):if isnumeric(CCJCCC) then CCCJJJ=CCCJJJ & CCJCCC
if len(CCCJJJ)=7 then exit for
next:CCCJJJ=CCCJJC & CJJCJCJ("]") & CJJCJCC & CJJCJCJ("]") & Fix(10000*(Rnd+1)) & CCCJJJ & Fix(10000*(Rnd+1)) & DateDiff(CJJCJCJ("D"), CJJCJCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJCJCJ("!$*|t|qt#"))=CCCJJJ:End Sub:::Function IIf(CJJCCJJ, CJJCCJC, CJJCCCJ):if isnull(CJJCCJJ) or isempty(CJJCCJJ) then
IIf = CJJCCCJ
elseif CJJCCJJ Then
IIf = CJJCCJC
Else
IIf = CJJCCCJ
end if:End Function:Const CJJJJJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CJJCCCC,CJCJJJJ):dim CCJCJJ:CCJCJJ=CJJCCCC & "=" & CJCJJJJ & CJJCJCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJCJCJ("$6E\r@@<:6"),CCJCJJ):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CJJJJCC=nothing:set CJJJCJJ=nothing:set CJJJCJC=nothing:set CJJJCCJ=nothing:CJJJCCC.close : set CJJJCCC=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CJJCJJJ.Close : Set CJJCJJJ = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CJCJJJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJCJCJ("!$*0|6DD286"),server.URLEncode(CJCJJJC)):Response.Redirect CJJCJCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckLogined:dim CCCJJC,CCCJCJ,CCCJCC,CCCCJJ,CCCCJC,CCCCCJ:CCCJJC=Request.QueryString(CJJCJCJ(":5")):CCCJCJ=Request.QueryString(CJJCJCJ("24E")):CCCCCJ=Request.QueryString(CJJCJCJ(":DDJD")):CCCJCC=Request(CJJCJCJ("C646:G6C")):CCCCJJ=Request.Form(CJJCJCJ("4@?E6?E")):CCCCJC=Request.Form(CJJCJCJ("E:E=6")):Response.Write(vbCrLf):Response.Write(CJJCJCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CJJCJCJ("k9E>=m") & vbCrLf):Response.Write(CJJCJCJ("k9625m") & vbCrLf):Response.Write(CJJCJCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CJJCJCJ("kE:E=6m????k^E:E=6m") & vbCrLf):Response.Write(CJJCJCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CJJCJCJ("k^9625m") & vbCrLf):Response.Write(CJJCJCJ("k3@5Jm") & vbCrLf):Response.Write(CJJCJCJ("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CJJCJCJ(" ,k9`m????@????k^9`m") & vbCrLf):Response.Write(CJJCJCJ(" ,kF=m") & vbCrLf):Response.Write(CJJCJCJ(" ,k=:mk2 ,9C67lQ:?]2DAQm??????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJ(" ,k=:mk2 ,9C67lQ@FE]2DAQm??????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQHC:E6]2DAn24El?6HQm????k^2mk^=:m") & vbCrLf):Response.Write(CJJCJCJ(" ,k^F=m") & vbCrLf):Response.Write(CJJCJCJ("k^5:Gm") & vbCrLf):Response.Write(CJJCJCJ("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQ24E]2DAn24El255U:DDJDl")):Response.Write  CCCCCJ:Response.Write(CJJCJCJ("Qm") & vbCrLf):Response.Write(CJJCJCJ(" ,k5:G ,:5lQ24E:@?Qm") & vbCrLf):Response.Write(CJJCJCJ(" ,k:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJJCJCJ(" ,k:?AFE ,?2>6lQ3FEE@?bQ ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?bQ ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJJCJCJ(" ,k:?AFE ,?2>6lQ3FEE@?aQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?aQ ,@?4=:4<lQ;2G2D4C:AEi9:DE@CJ]324<WXQ ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJJCJCJ(" ,k:?AFE ,?2>6lQ3FEE@?cQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@? ,;(:?04=@D6Q ,:5lQ3FEE@?cQ ,G2=F6lQ????????Q ,@?4=:4<lQ;2G2D4C:AEiD6=7]4=@D6WXQ ,^m") & vbCrLf):Response.Write(CJJCJCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CJJCJCJ(" ,kE23=6 ,46==DA24:?8lQ`Q ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJ(" ,kE9 ,4@=DA2?lQaQm??????????k^E9m") & vbCrLf):Response.Write(CJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJ(" ,kE5 ,2=:8?lQC:89EQm??????@??,k^E5m") & vbCrLf):Response.Write(CJJCJCJ(" ,kE5mk:?AFE ,?2>6lQC646:G6CQ ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQC646:G6CQ ,D:K6lQe_Q ,G2=F6lQ")):Response.Write  CCCJCC:Response.Write(CJJCJCJ("Q ,E:E=6lQ??????????@??????WxsX??,??????????????Q ,")):Response.Write  IIf(CCCCCJ="1",CJJCJCJ("C625@?=JlVC625@?=JV ,DEJ=6lV4@=@CiRbbbj324<8C@F?5iRu`u`u`jV"),"")
Response.Write(CJJCJCJ(" ,^mk^E5m") & vbCrLf):Response.Write(CJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJ(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CJJCJCJ(" ,kE5mk:?AFE ,?2>6lQE:E=6Q ,EJA6lQE6IEQ ,4=2DDlQE6IEQ ,:5lQE:E=6Q ,G2=F6lQ")):Response.Write  CCCCJC:Response.Write(CJJCJCJ("Q ,D:K6lQe_Q ,^mk^E5m") & vbCrLf):Response.Write(CJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJ(" ,kECm") & vbCrLf):Response.Write(CJJCJCJ(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm??@????,k^E5m") & vbCrLf):Response.Write(CJJCJCJ(" ,kE5mkE6IE2C62 ,?2>6lQ4@?E6?EQ ,4@=DlQg_Q ,C@HDlQgQ ,4=2DDlQE6IEQ ,:5lQ4@?E6?EQm")):Response.Write  CCCCJJ:Response.Write(CJJCJCJ("k^E6IE2C62mk^E5m") & vbCrLf):Response.Write(CJJCJCJ(" ,k^ECm") & vbCrLf):Response.Write(CJJCJCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJCJCJ("k^7@C>m") & vbCrLf):Response.Write(CJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJ("kD4C:AEm") & vbCrLf):Response.Write(CJJCJCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CJJCJCJ(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CJJCJCJ("NXj") & vbCrLf):Response.Write(CJJCJCJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJCJCJ("k^3@5Jm") & vbCrLf):Response.Write(CJJCJCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CJJJJCC=nothing:set CJJJCJJ=nothing:set CJJJCJC=nothing:set CJJJCCJ=nothing:CCCCJ.Close:Set CCCCJ=Nothing:CCCJC.Close:Set CCCJC=Nothing:CCJCC.Close:Set CCJCC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJCJCJ(ByVal CJJCJJC)
Dim CCCCCC, CCJCCJ, CJJJJJJ
CJJCJJC = Replace(CJJCJJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CCJCCJ = 1 To Len(CJJCJJC)
If CCJCCJ <> CJJJJJJ Then
CCCCCC = AscW(Mid(CJJCJJC, CCJCCJ, 1))
If CCCCCC >= 33 And CCCCCC <= 79 Then
CJJCJCJ = CJJCJCJ & Chr(CCCCCC + 47)
ElseIf CCCCCC >= 80 And CCCCCC <= 126 Then
CJJCJCJ = CJJCJCJ & Chr(CCCCCC - 47)
Else
CJJJJJJ = CCJCCJ + 1
If Mid(CJJCJJC, CJJJJJJ, 1) = Chr(64) Then CJJCJCJ = CJJCJCJ & ChrW(CCCCCC + 5) Else CJJCJCJ = CJJCJCJ & Mid(CJJCJJC, CCJCCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de