文件列表:

tongjiju (0, 2015-11-16)
tongjiju\AD (0, 2015-11-16)
tongjiju\AD\201310 (0, 2015-11-16)
tongjiju\AD\201310\1.js (7944, 2014-07-27)
tongjiju\AD\201310\2.js (0, 2014-07-26)
tongjiju\AD\201310\3.js (0, 2014-07-26)
tongjiju\AD\ADCount.asp (1058, 2008-01-08)
tongjiju\AD\ADShow.asp (3639, 2008-01-08)
tongjiju\AD\ADTemplate (0, 2015-11-16)
tongjiju\AD\ADTemplate\Template_Banner.js (7204, 2008-04-10)
tongjiju\AD\ADTemplate\Template_BottomLeft.js (6045, 2008-04-10)
tongjiju\AD\ADTemplate\Template_BottomRight.js (6058, 2008-04-10)
tongjiju\AD\ADTemplate\Template_Code.js (1565, 2008-01-08)
tongjiju\AD\ADTemplate\Template_Couplet.js (7006, 2008-04-10)
tongjiju\AD\ADTemplate\Template_Fixed.js (5558, 2008-04-10)
tongjiju\AD\ADTemplate\Template_Float.js (8886, 2008-04-10)
tongjiju\AD\ADTemplate\Template_Move.js (6383, 2008-04-10)
tongjiju\AD\ADTemplate\Template_Pop.js (8573, 2008-04-10)
tongjiju\AD\UploadADPic (0, 2015-11-16)
tongjiju\AD\UploadADPic\201310 (0, 2015-11-16)
tongjiju\AD\UploadADPic\201310\2013100122081329.jpg (34271, 2013-10-06)
tongjiju\AD\UploadADPic\201310\2013100222192278.jpg (27615, 2013-10-02)
tongjiju\AD\UploadADPic\201310\2013100222222847.png (24256, 2013-10-02)
tongjiju\AD\UploadADPic\201310\2013100522201313.jpg (39147, 2013-10-05)
tongjiju\AD\UploadADPic\201310\2013100522215884.jpg (30036, 2013-10-05)
tongjiju\AD\UploadADPic\201407 (0, 2015-11-16)
tongjiju\AD\UploadADPic\201407\2014072720551410.jpg (94696, 2014-07-27)
tongjiju\API (0, 2015-11-16)
tongjiju\API\API_Config.asp (1637, 2008-01-08)
tongjiju\API\API_Function.asp (13447, 2008-07-08)
tongjiju\API\API_Response.asp (23368, 2008-04-10)
tongjiju\API\Request.xml (456, 2008-01-18)
tongjiju\API\Response.xml (553, 2008-01-18)
tongjiju\Admin (0, 2015-11-16)
tongjiju\Admin\Admin_Admin.asp (144254, 2009-05-19)
tongjiju\Admin\Admin_Advertisement.asp (163007, 2009-05-19)
tongjiju\Admin\Admin_Announce.asp (22365, 2009-05-19)
tongjiju\Admin\Admin_AreaCollection.asp (48400, 2009-05-19)
tongjiju\Admin\Admin_Article.asp (223503, 2009-05-19)
tongjiju\Admin\Admin_ArticleJS.asp (54321, 2008-01-08)
... ...

<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005－2009 佛山市动易网络科技有限公司 版权所有 '************************************************************** 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 %>

近期下载者：

相关文件：

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

收藏者：