文件列表:

Count\conn_counter.asp (2805, 2008-01-08)
Count\Counter.asp (19521, 2008-01-10)
Count\Counter.mdb (13504512, 2008-06-11)
Count\Counter.sql (32160, 2008-01-08)
Count\CounterLink.asp (2426, 2008-04-10)
Count\Image\powereasyimg.gif (49, 2008-01-08)
Count\Image (0, 2008-04-10)
Count\ShowOnline.asp (10342, 2008-01-10)
Count\StatOnline.asp (3080, 2008-01-10)
Count (0, 2008-06-11)
Database\SiteWeaver6.5.mdb (19968000, 2008-06-28)
Database\SiteWeaver6.5.sql (462458, 2008-01-15)
Database (0, 2008-06-28)
Editor\editor.css (4961, 2008-01-08)
Editor\editor_ad.asp (13659, 2008-01-08)
Editor\editor_Attribute.asp (10764, 2008-01-18)
Editor\editor_calculator.asp (4684, 2008-01-08)
Editor\editor_ChkPurview.asp (3436, 2008-01-08)
Editor\editor_CreateLink.asp (6164, 2008-01-08)
Editor\editor_CustomListLabel.asp (50623, 2008-01-08)
Editor\editor_dialog.CSS (1509, 2008-01-08)
Editor\editor_emot.asp (6646, 2008-01-08)
Editor\editor_fieldset.asp (3448, 2008-01-08)
Editor\editor_FilterCode.asp (4142, 2008-01-08)
Editor\editor_find.asp (4686, 2008-01-08)
Editor\editor_fullscreen.asp (11593, 2008-04-10)
Editor\editor_help.asp (2861, 2008-01-08)
Editor\editor_imgPreview.asp (508, 2008-01-08)
Editor\editor_InsertEQ.asp (14886, 2008-01-08)
Editor\editor_InsertFlash.asp (5821, 2008-01-15)
Editor\editor_Insertfujian.asp (3573, 2008-01-08)
Editor\editor_InsertHR.asp (3248, 2008-01-08)
Editor\editor_InsertIframe.asp (3221, 2008-01-08)
Editor\editor_InsertMedia.asp (16267, 2008-01-08)
Editor\editor_InsertPic.asp (11520, 2008-01-08)
Editor\editor_InsertRM.asp (5920, 2008-01-08)
Editor\editor_insmenu.asp (3233, 2008-01-08)
Editor\editor_label.asp (132500, 2008-01-18)
Editor\editor_listdynafield.asp (2861, 2008-01-08)
Editor\editor_marquee.asp (2651, 2008-01-08)
... ...

<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有 '************************************************************** If CheckUserLogined() = False Then Call CloseConn Response.Redirect "User_Login.asp" End If Call Read If FoundErr = True Then Call WriteErrMsg(ErrMsg, ComeUrl) End If Call CloseConn Sub Read() Dim MessageID, rs, rsNext, NextID, NextSender MessageID = PE_CLng(Trim(Request("MessageID"))) If MessageID = 0 Then FoundErr = True ErrMsg = ErrMsg & "

指定的短消息ID错误！

" Exit Sub End If Conn.Execute ("update PE_Message set Flag=1 where Incept='" & UserName & "' and ID=" & MessageID) Conn.Execute ("update PE_User set UnreadMsg=UnreadMsg-1 where UserName='" & UserName & "'") Set rsNext = Conn.Execute("select ID,Sender from PE_Message where Incept='" & UserName & "' and Flag=0 and IsSend=1 and ID>" & MessageID & " order by SendTime") If Not (rsNext.BOF And rsNext.EOF) Then NextID = rsNext(0) NextSender = rsNext(1) End If Set rsNext = Nothing Set rs = Conn.Execute("select * from PE_Message where (Incept='" & UserName & "' or Sender='" & UserName & "') and ID=" & MessageID) If rs.BOF And rs.EOF Then FoundErr = True ErrMsg = ErrMsg & "

找不到指定的短消息

" Set rs = Nothing Exit Sub End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write " " If NextID <> "" Then Response.Write " " End If Response.Write "

阅 读 短 消 息

" Response.Write "   " Response.Write "  " Response.Write "  " Response.Write " " Response.Write "

发 送 人：" & rs("Sender") & "

发送时间：" & rs("SendTime") & "

消息主题：" & PE_HTMLEncode(rs("Title")) & "

" & FilterBadTag(rs("Content"), rs("Sender")) & "

" Response.Write " [读取下一条信息]" Response.Write "

" Response.Write "" Response.Write "" rs.Close Set rs = Nothing End Sub %>

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：