Edit D:\xinhaisoft\crisis_new\message\in.asp
??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim CJJJCJJ, CJJJCJC,CJJJCCJ, CJJJCCC, CJJCJJJ:Set CJJJCJJ = server.CreateObject(CCJCCCJ("ps~sq]r@??64E:@?")):CJJJCJJ.open Application(CCJCCCJ("r@??64E:@?$EC:?8")):Set CJJJCJC=CJJJCJJ::Dim CJJCJJC,CJJCJCJ,CJJCJCC,CJJCCJJ,CJJCCJC,CJJCCCJ,CJJCCCC,CJCJJJJ,CJCJJJC:Dim CJCJJCJ,CJCJJCC,CJCJCJJ,CJCJCJC,CJCJCCJ,CJCJCCC:Dim CJCCJJJ,CJCCJJC,CJCCJCJ:Dim CJCCJCC:CJCCJCC=Trim(Request.Cookies(CCJCCCJ("!$*|t|qt#"))):if CJCCJCC="" then Call ClearMemberCookie else Call CheckMemberCookie end if:if CJJCJJC>0 then CJJCJJJ=CCJCCCJ("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") & CJJCJCJ & CCJCCCJ("V ,2?5 ,:5l") & CJJCJJC set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):If CJJJCCJ.EOF Then Call ClearMemberCookie Else CJJCJCC=CJJJCCJ(2) & "":CJJCCJJ=CJJJCCJ(3):CJJCCJC=CJJJCCJ(5):CJJCCCJ=CJJJCCJ(6):CJJCCCC=CJJJCCJ(9):CJCJJJJ=CJJJCCJ(15):CJCJJCJ=CJJJCCJ(0):CJCCJJC=CJJJCCJ(1):CJCCJJJ=CJJJCCJ(11) & "":CJCJJCC=CJJJCCJ(10) & "":CJCJJJC=CJJJCCJ(12):CJCJCJJ=CJJJCCJ(14):CJCJCJC=CJJJCCJ(13):CJCJCCJ=CJJJCCJ(7) & "":CJCJCCC=CJJJCCJ(4):CJCCJCJ=CJJJCCJ(8):if isnull(CJCJJJJ) then CJCJJJJ=0 if isnull(CJJCCCC) or CJJCCCC=0 then CJJCCCC=CJJCCJJ if isnull(CJCJCCC) then CJCJCCC=0 if isnull(CJJCCJC) then CJJCCJC=0 if instr(CCJCCCJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CJJCJCJ)>0 then Call RedirectMessage(CCJCCCJ("????????,????????????????????????????????,")) Call SetMemberCookie(CJJCJJC,CJJCJCJ) End IF end if:::Sub CheckLogined():if CJJCJJC=0 then Call ClearMemberCookie:Call ConnClose:dim CJCCCJJ:CJCCCJJ=trim(request.QueryString(CCJCCCJ("D49@@="))):if isnumeric(CJCCCJJ) then response.Redirect CCJCCCJ("^>^G2?E^R^D49@@=^") & CJCCCJJ & CCJCCCJ("^DEF56?E^=@8:?nC65:C64El") & url else Call RedirectMessage(CCJCCCJ("??????????????,????????????,")) end if end if:End Sub:Sub ClearMemberCookie():Response.Cookies(CCJCCCJ("!$*|t|qt#"))="":CJJCJJC=0:CJJCCCJ=0:CJJCJCJ=Empty:CJJCCJC=0:CJCJJJJ=0:CJJCCCC=0:CJJCCJJ=0:CJCJJCJ=False:CJCCJJC=False:CJCCJCJ=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCJC,CJCCCCJ,CJCCCCC,CCJJJJJ,CCJJJJC:CJCCCJC=split(CJCCJCC,CCJCCCJ("]")):if ubound(CJCCCJC)<>2 then Call ClearMemberCookie elseif not isnumeric(CJCCCJC(0)) or len(CJCCCJC(1))<>32 or len(CJCCCJC(2))<>32 then Call ClearMemberCookie else CJCCCCJ=CJCCCJC(1):for CJCCCCC=1 to len(CJCCCCJ):CCJJJJJ=mid(CJCCCCJ,CJCCCCC,1):if isnumeric(CCJJJJJ) then CCJJJJC=CCJJJJC & CCJJJJJ if len(CCJJJJC)=7 then exit for next:CJCCCCJ=CJCCCJC(2):if CCJJJJC<>mid(CJCCCCJ,6,7) then Call ClearMemberCookie else CCJJJJJ=mid(CJCCCCJ,18,10)/2:if CCJJJJJ<DateDiff(CCJCCCJ("D"), CCJCCCJ("`hf_\`\` ,gi__i__"), Now)-28800 then Call ClearMemberCookie else CJJCJJC=Clng(CJCCCJC(0)):CJJCJCJ=CJCCCJC(1) end if end if end if:End Sub:Sub SetMemberCookie(CCJJJCJ,CCJCCCC):dim CJCCCCC,CCJJJJJ,CCJJJJC:for CJCCCCC=1 to len(CCJCCCC):CCJJJJJ=mid(CCJCCCC,CJCCCCC,1):if isnumeric(CCJJJJJ) then CCJJJJC=CCJJJJC & CCJJJJJ if len(CCJJJJC)=7 then exit for next:CCJJJJC=CCJJJCJ & CCJCCCJ("]") & CCJCCCC & CCJCCCJ("]") & Fix(10000*(Rnd+1)) & CCJJJJC & Fix(10000*(Rnd+1)) & DateDiff(CCJCCCJ("D"), CCJCCCJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCJCCCJ("!$*|t|qt#"))=CCJJJJC:End Sub:::Function IIf(CCCJJJJ, CCCJJJC, CCCJJCJ):if isnull(CCCJJJJ) or isempty(CCCJJJJ) then IIf = CCCJJCJ elseif CCCJJJJ Then IIf = CCCJJJC Else IIf = CCCJJCJ end if:End Function:Const CCJJCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":::::Sub SetHttpOnlyCookie(CCCJJCC,CCCJCJJ):dim CJCCCJC:CJCCCJC=CCCJJCC & "=" & CCCJCJJ & CCJCCCJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCJCCCJ("$6E\r@@<:6"),CJCCCJC):End Sub::::::::::::Sub ConnClose():On Error Resume Next:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:CCJCJCC.close : set CCJCJCC=nothing:CJJJCCC.Close : Set CJJJCCC=Nothing:CJJJCCJ.Close : Set CJJJCCJ=Nothing:CCJCCJJ.Close : Set CCJCCJJ = Nothing:CJJJCJJ.Close : Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCJCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCJCCCJ("!$*0|6DD286"),server.URLEncode(CCCJCJC)):Response.Redirect CCJCCCJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::::::::::::::::::::Call CheckLogined:Response.Write(vbCrLf):Response.Write(CCJCCCJ("kP5@4EJA6 ,9E>=m") & vbCrLf):Response.Write(CCJCCCJ("k9E>=m") & vbCrLf):Response.Write(CCJCCCJ("k9625m") & vbCrLf):Response.Write(CCJCCCJ("k>6E2 ,492CD6ElQFE7\gQm") & vbCrLf):Response.Write(CCJCCCJ("kE:E=6m??????k^E:E=6m") & vbCrLf):Response.Write(CCJCCCJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQ ,^m") & vbCrLf):Response.Write(CCJCCCJ("k^9625m") & vbCrLf):Response.Write(CCJCCCJ("k3@5Jm") & vbCrLf):Response.Write(CCJCCCJ("k5:G ,:5lQE23Qm") & vbCrLf):Response.Write(CCJCCCJ(" ,k9`m????@????k^9`m") & vbCrLf):Response.Write(CCJCCCJ(" ,kF=m") & vbCrLf):Response.Write(CCJCCCJ(" ,k=: ,4=2DDlQ4FCC6?EQmk2 ,9C67lQ:?]2DAQm??????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCJ(" ,k=:mk2 ,9C67lQ@FE]2DAQm??????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCJ(" ,k=:mk2 ,9C67lQHC:E6]2DAQm????k^2mk^=:m") & vbCrLf):Response.Write(CCJCCCJ(" ,k^F=m") & vbCrLf):Response.Write(CCJCCCJ("k^5:Gm") & vbCrLf):Response.Write(CCJCCCJ("k7@C> ,:5lQ7@C>`Q ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQ24E]2DAn24El56=:?Qm") & vbCrLf):Response.Write(CCJCCCJ(" ,k5:G ,:5lQ24E:@?Qm") & vbCrLf):Response.Write(CCJCCCJ(" ,k:?AFE ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CCJCCCJ(" ,k:?AFE ,EJA6lQ3FEE@?Q ,4=2DDlQ3FEE@?Q ,G2=F6lQ????????Q ,@?4=:4<lQ;2G2D4C:AEiD6=7]4=@D6WXQ ,^m") & vbCrLf):Response.Write(CCJCCCJ(" ,k^5:Gm") & vbCrLf):Response.Write(CCJCCCJ(" ,kE23=6 ,4=2DDlQE30=:DEQm") & vbCrLf):Response.Write(CCJCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9mk:?AFE ,EJA6lQ4964<3@IQ ,:5lQ4964<2==Q ,^mk^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9m????k^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9m??????@k^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE9m????????k^E9m") & vbCrLf):Response.Write(CCJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCJ(" ,")):dim CJCCCCC,CCJJJCJ:CJJCJJJ=CCJCCCJ("D6=64E ,:5[:D?6H[E:E=6[D6?56C?2>6[52E6E:>6[:DDJD ,7C@> ,G0>6DD286 ,H96C6 ,C646:G6Cl") & CJJCJJC & CCJCCCJ(" ,@C56C ,3J ,:5 ,56D4"):set CJJJCCJ=CJJJCJJ.execute(CJJCJJJ):CJCCCCC=1:while not CJJJCCJ.eof:CCJJJCJ=CJJJCCJ(0):Response.Write(vbCrLf):Response.Write(CCJCCCJ(" ,kECm") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQm")):Response.Write CJCCCCC:Response.Write(CCJCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5 ,2=:8?lQ46?E6CQmk:?AFE ,EJA6lQ4964<3@IQ ,?2>6lQ:5=:DEQ ,G2=F6lQ")):Response.Write CCJJJCJ:Response.Write(CCJCCCJ("Q ,^mk^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5mk2 ,9C67lQG:6H]2DAn:5l")):Response.Write CCJJJCJ:Response.Write(CCJCCCJ("Qm") & vbCrLf):Response.Write(CCJCCCJ(" ,")):If CJJJCCJ(1) Then Response.Write(vbCrLf):Response.Write(CCJCCCJ(" ,k:>8 ,DC4lQ:>286D^?6H]8:7Q ,2=ElQ??????Q ,H:5E9lQa_Q ,96:89ElQ`dQ ,3@C56ClQ_Q ,2=:8?lQ23D>:55=6Q ,^m") & vbCrLf):Response.Write(CCJCCCJ(" ,")) Else Response.Write(vbCrLf):Response.Write(CCJCCCJ(" ,k:>8 ,DC4lQ:>286D^@=5]8:7Q ,2=ElQ????Q ,H:5E9lQa`Q ,96:89ElQ`cQ ,3@C56ClQ_Q ,2=:8?lQ23D>:55=6Q ,^m") & vbCrLf):Response.Write(CCJCCCJ(" ,")) End If::Response.Write IIf(CJJJCCJ(5),CCJCCCJ(",????????."),"")::Response.Write CJJJCCJ(2):Response.Write(CCJCCCJ("k^2mk^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5m")):Response.Write CJJJCCJ(3):Response.Write(CCJCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,kE5m")):Response.Write formatdatetime(CJJJCCJ(4),2):Response.Write(CCJCCCJ("k^E5m") & vbCrLf):Response.Write(CCJCCCJ(" ,k^ECm") & vbCrLf):Response.Write(CCJCCCJ(" ,")):CJJJCCJ.movenext:CJCCCCC=CJCCCCC+1:wend:Response.Write(vbCrLf):Response.Write(CCJCCCJ(" ,k^E23=6m") & vbCrLf):Response.Write(CCJCCCJ("k^7@C>m") & vbCrLf):Response.Write(CCJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ]>:?];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJ("kD4C:AE ,DC4lQ^$4C:AED^;BF6CJ];E23=6];DQmk^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJ("kD4C:AEm") & vbCrLf):Response.Write(CCJCCCJ("SW7F?4E:@?WXL") & vbCrLf):Response.Write(CCJCCCJ(" ,SWVE23=6]E30=:DEVX];%23=6WX") & vbCrLf):Response.Write(CCJCCCJ("NX") & vbCrLf):Response.Write(CCJCCCJ("k^D4C:AEm") & vbCrLf):Response.Write(CCJCCCJ("k^3@5Jm") & vbCrLf):Response.Write(CCJCCCJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:CJJJCCC.Close:Set CJJJCCC=Nothing:CJJJCCJ.Close:Set CJJJCCJ=Nothing:CJJJCJJ.Close:Set CJJJCJJ = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf) Function CCJCCCJ(ByVal CCJCCJC) Dim CCJJJCC, CJCCCCC, CCJJCJJ CCJCCJC = Replace(CCJCCJC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62)) For CJCCCCC = 1 To Len(CCJCCJC) If CJCCCCC <> CCJJCJJ Then CCJJJCC = AscW(Mid(CCJCCJC, CJCCCCC, 1)) If CCJJJCC >= 33 And CCJJJCC <= 79 Then CCJCCCJ = CCJCCCJ & Chr(CCJJJCC + 47) ElseIf CCJJJCC >= 80 And CCJJJCC <= 126 Then CCJCCCJ = CCJCCCJ & Chr(CCJJJCC - 47) Else CCJJCJJ = CJCCCCC + 1 If Mid(CCJCCJC, CCJJCJJ, 1) = Chr(64) Then CCJCCCJ = CCJCCCJ & ChrW(CCJJJCC + 5) Else CCJCCCJ = CCJCCCJ & Mid(CCJCCJC, CJCCCCC, 1) End If End If Next End Function %>
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de