Edit D:\xinhaisoft\crisis_new\message\view.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJJJC, CJJJJCJ,CJJJJCC, CJJJCJJ, CJJJCJC:Set CJJJJJC = server.CreateObject(CCJCCJC("ps~sq]r@??64E:@?")):CJJJJJC.open Application(CCJCCJC("r@??64E:@?$EC:?8")):Set CJJJJCJ=CJJJJJC:::Function IIf(CCJCCCJ, CCJCCCC, CCCJJJJ):if isnull(CCJCCCJ) or isempty(CCJCCCJ) then IIf = CCCJJJJ elseif CCJCCCJ Then IIf = CCJCCCC Else IIf = CCCJJJJ end if:End Function:Const CCJJJCC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJJJC,CCCJJCJ):dim CJJJCCJ:CJJJCCJ=CCCJJJC & "=" & CCCJJCJ & CCJCCJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCJC("$6E\r@@<:6"),CJJJCCJ):End Sub:::::::Function CCJJCJC(CCJJJCJ):if isnull(CCJJJCJ) or trim(CCJJJCJ)="" or not isnumeric(CCJJJCJ) then CCJJCJC=false else Dim CJJJCCC:Set CJJJCCC = New RegExp:CJJJCCC.Pattern = CCJCCJC("/-5ZS"):CJJJCCC.IgnoreCase = True:CCJJCJC = CJJJCCC.test(CCJJJCJ):set CJJJCCC=nothing end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:CCJCJCJ.close : set CCJCJCJ=nothing:CJJJCJJ.Close : Set CJJJCJJ=Nothing:CJJJJCC.Close : Set CJJJJCC=Nothing:CCJCJCC.Close : Set CCJCJCC = Nothing:CJJJJJC.Close : Set CJJJJJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJJCC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCJC("!$*0|6DD286"),server.URLEncode(CCCJJCC)):Response.Redirect CCJCCJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Dim CJJCJJJ,CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ:Dim CJCJJJC,CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ:Dim CJCJCCC,CJCCJJJ,CJCCJJC:Dim CJCCJCJ:CJCCJCJ=Trim(Request.Cookies(CCJCCJC("!$*|t|qt#"))):if CJCCJCJ="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCJJJ>0 then CJJJCJC=CCJCCJC("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") & CJJCJJC & CCJCCJC("V ,2?5 ,:5l") & CJJCJJJ set CJJJJCC=CJJJJJC.execute(CJJJCJC):If CJJJJCC.EOF Then Call ClearMemberCookie Else CJJCJCJ=CJJJJCC(2) & "":CJJCJCC=CJJJJCC(3):CJJCCJJ=CJJJJCC(5):CJJCCJC=CJJJJCC(6):CJJCCCJ=CJJJJCC(9):CJJCCCC=CJJJJCC(15):CJCJJJC=CJJJJCC(0):CJCCJJJ=CJJJJCC(1):CJCJCCC=CJJJJCC(11) & "":CJCJJCJ=CJJJJCC(10) & "":CJCJJJJ=CJJJJCC(12):CJCJJCC=CJJJJCC(14):CJCJCJJ=CJJJJCC(13):CJCJCJC=CJJJJCC(7) & "":CJCJCCJ=CJJJJCC(4):CJCCJJC=CJJJJCC(8):if isnull(CJJCCCC) then CJJCCCC=0 if isnull(CJJCCCJ) or CJJCCCJ=0 then CJJCCCJ=CJJCJCC if isnull(CJCJCCJ) then CJCJCCJ=0 if isnull(CJJCCJJ) then CJJCCJJ=0 if instr(CCJCCJC("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJJC)>0 then Call RedirectMessage(CCJCCJC("????????,????????????????????????????????,")) Call SetMemberCookie(CJJCJJJ,CJJCJJC) End IF end if:::Sub CheckLogined():if CJJCJJJ=0 then Call ClearMemberCookie:Call ConnClose:dim CJCCJCC:CJCCJCC=trim(request.QueryString(CCJCCJC("D49@@="))):if isnumeric(CJCCJCC) then response.Redirect CCJCCJC("^>^G2?E^R^D49@@=^") & CJCCJCC & CCJCCJC("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CCJCCJC("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCJC("!$*|t|qt#"))="":CJJCJJJ=0:CJJCCJC=0:CJJCJJC=Empty:CJJCCJJ=0:CJJCCCC=0:CJJCCCJ=0:CJJCJCC=0:CJCJJJC=False:CJCCJJJ=False:CJCCJJC=Empty:End Sub:Sub CheckMemberCookie():dim CJJJCCJ,CJCCCJJ,CJCCCJC,CJCCCCJ,CJCCCCC:CJJJCCJ=split(CJCCJCJ,CCJCCJC("]")):if ubound(CJJJCCJ)<>2 then Call ClearMemberCookie elseif not isnumeric(CJJJCCJ(0)) or len(CJJJCCJ(1))<>32 or len(CJJJCCJ(2))<>32 then Call ClearMemberCookie else CJCCCJJ=CJJJCCJ(1):for CJCCCJC=1 to len(CJCCCJJ):CJCCCCJ=mid(CJCCCJJ,CJCCCJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ if len(CJCCCCC)=7 then exit for next:CJCCCJJ=CJJJCCJ(2):if CJCCCCC<>mid(CJCCCJJ,6,7) then Call ClearMemberCookie else CJCCCCJ=mid(CJCCCJJ,18,10)/2:if CJCCCCJ<DateDiff(CCJCCJC("D"), CCJCCJC("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJCJJJ=Clng(CJJJCCJ(0)):CJJCJJC=CJJJCCJ(1) end if end if end if:End Sub:Sub SetMemberCookie(CCJJJJJ,CCCJCJJ):dim CJCCCJC,CJCCCCJ,CJCCCCC:for CJCCCJC=1 to len(CCCJCJJ):CJCCCCJ=mid(CCCJCJJ,CJCCCJC,1):if isnumeric(CJCCCCJ) then CJCCCCC=CJCCCCC & CJCCCCJ if len(CJCCCCC)=7 then exit for next:CJCCCCC=CCJJJJJ & CCJCCJC("]") & CCCJCJJ & CCJCCJC("]") & Fix(10000*(Rnd+1)) & CJCCCCC & Fix(10000*(Rnd+1)) & DateDiff(CCJCCJC("D"), CCJCCJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCJC("!$*|t|qt#"))=CJCCCCC:End Sub::Call CheckLogined:dim CCJJJJJ:CCJJJJJ=Request.QueryString(CCJCCJC(":5")):if not CCJJCJC(CCJJJJJ) then response.Redirect CCJCCJC(":?]2DA") set CJJJJCC=CJJJJJC.execute(CCJCCJC("D6=64E ,E@A ,` ,D6?56C?2>6[C646:G6C?2>6[52E6E:>6[E:E=6[4@?E6?E[:DDJD[C646:G6C[D6?56C[:D?6H ,7C@> ,G0>6DD286 ,H96C6 ,:5l") & CCJJJJJ):if CJJJJCC.eof then Call RedirectMessage(CCJCCJC("????????M????????,????????????????????@????,")) if CJJJJCC(6)=CJJCJJJ then CJJJJJC.execute(CCJCCJC("FA52E6 ,>6DD286 ,D6E ,:D?6Hl_ ,H96C6 ,:5l") & CCJJJJJ) Response.Write(vbCrLf):Response.Write(CCJCCJC("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCCJC("k9E>=m") & vbCrLf):Response.Write(CCJCCJC("k9625m") & vbCrLf):Response.Write(CCJCCJC("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCJC("kE:E=6m????k^E:E=6m") & vbCrLf):Response.Write(CCJCCJC("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CCJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJC("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCJC("kD4C:AEm") & vbCrLf):Response.Write(CCJCCJC("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCJC(" ,SWQE23=6]E30=:DEQX];%23=6WXj") & vbCrLf):Response.Write(CCJCCJC("NXj") & vbCrLf):Response.Write(CCJCCJC("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCJC("k^9625m") & vbCrLf):Response.Write(CCJCCJC("k3@5Jm") & vbCrLf):Response.Write(CCJCCJC("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCCJC(" ,k9`m????@????k^9`m") & vbCrLf):Response.Write(CCJCCJC(" ,kF=m") & vbCrLf):Response.Write(CCJCCJC(" ,k=:mk2 ,9C67lQ:?]2DAQm??????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJC(" ,k=:mk2 ,9C67lQ@FE]2DAQm??????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJC(" ,k=:mk2 ,9C67lQHC:E6]2DAQm????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCJC(" ,k^F=m") & vbCrLf):Response.Write(CCJCCJC("k^5:Gm") & vbCrLf):Response.Write(CCJCCJC("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQHC:E6]2DAQm") & vbCrLf):Response.Write(CCJCCJC(" ,k5:G ,:5lQ24E:@?Qm") & vbCrLf):Response.Write(CCJCCJC(" ,")):If CJJJJCC(6)=CJJCJJJ Then Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?aQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?aQ ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi:7W4@?7:C>WV??????????????????@??????,VXX=@42E:@?lV24E]2DAn24El56=:?U:5l")):Response.Write CCJJJJJ:Response.Write(CCJCCJC("VQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?bQ ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?bQ ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi7@C>`]4@?E6?E]G2=F6lVVj7@C>`]E:E=6]G2=F6lV#6iVZ7@C>`]E:E=6]G2=F6Q ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,")) End If::If CJJJJCC(7)=CJJCJJJ and CJJJJCC(8) Then Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?dQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?dQ ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi:7W4@?7:C>WV??????????????????@??????,VXX=@42E:@?lV24E]2DAn24El56=@FEU:5l")):Response.Write CCJJJJJ:Response.Write(CCJCCJC("VQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,")) End If:Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?cQ ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?cQ ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi7@C>`]C646:G6C]G2=F6lVVQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?Q ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?Q ,G2=F6lQ?? ,??Q ,@?4=:4<lQ;2G2D4C:AEi9:DE@CJ]324<WXQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,?2>6lQ3FEE@?eQ ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,:5lQ3FEE@?eQ ,G2=F6lQ????????Q ,@?4=:4<lQ;2G2D4C:AEiD6=7]4=@D6WXQ ,^m") & vbCrLf):Response.Write(CCJCCJC(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCJC(" ,kE23=6 ,46==DA24:?8lQ`Q ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE9 ,4@=DA2?lQaQm??????????@??k^E9m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQ ,?@HC2AlQ?@HC2AQm??????@??,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write CJJJJCC(0):Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQC646:G6CQ ,:5lQ9:556?u:6=5Q ,G2=F6lQ")):Response.Write CJJJJCC(7):Response.Write(CCJCCJC("Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQm??????@??,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write CJJJJCC(1):Response.Write(CCJCCJC("k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write CJJJJCC(2):Response.Write(CCJCCJC("k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQm??????,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write IIf(CJJJJCC(5),CCJCCJC(",????????."),"") & CJJJJCC(3):Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQE:E=6Q ,:5lQ9:556?u:6=5aQ ,G2=F6lQ")):Response.Write CJJJJCC(3):Response.Write(CCJCCJC("Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,kECm") & vbCrLf):Response.Write(CCJCCJC(" ,kE5 ,2=:8?lQC:89EQ ,G2=:8?lQE@AQm??@????,k^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,kE5m")):Response.Write replace(CJJJJCC(4),vbcrlf,CCJCCJC("k3Cm")):Response.Write(vbCrLf):Response.Write(CCJCCJC(" ,k:?AFE ,EJA6lQ9:556?Q ,?2>6lQ4@?E6?EQ ,:5lQ9:556?u:6=5bQ ,G2=F6lQ")):Response.Write CJJJJCC(4):Response.Write(CCJCCJC("Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCCJC(" ,k^ECm") & vbCrLf):Response.Write(CCJCCJC(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCJC("k^7@C>m") & vbCrLf):Response.Write(CCJCCJC("k^3@5Jm") & vbCrLf):Response.Write(CCJCCJC("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCJ=nothing:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:CJJJCJJ.Close:Set CJJJCJJ=Nothing:CJJJJCC.Close:Set CJJJJCC=Nothing:CJJJJJC.Close:Set CJJJJJC = Nothing:err.Clear:On Error Goto 0 Function CCJCCJC(ByVal CCJCCJJ) Dim CCJJJJC, CJCCCJC, CCJJJCJ CCJCCJJ = Replace(CCJCCJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCCJC = 1 To Len(CCJCCJJ) If CJCCCJC <> CCJJJCJ Then CCJJJJC = AscW(Mid(CCJCCJJ, CJCCCJC, 1)) If CCJJJJC >= 33 And CCJJJJC <= 79 Then CCJCCJC = CCJCCJC & Chr(CCJJJJC + 47) ElseIf CCJJJJC >= 80 And CCJJJJC <= 126 Then CCJCCJC = CCJCCJC & Chr(CCJJJJC - 47) Else CCJJJCJ = CJCCCJC + 1 If Mid(CCJCCJJ, CCJJJCJ, 1) = Chr(64) Then CCJCCJC = CCJCCJC & ChrW(CCJJJJC + 5) Else CCJCCJC = CCJCCJC & Mid(CCJCCJJ, CJCCCJC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de