文件列表:

Dreamweaver标签插件\PowerEasy_SiteWeaver6.5_DW2004.mxp (246645, 2008-01-08)
Dreamweaver标签插件\PowerEasy_SiteWeaver6.5_DW8.mxp (246637, 2008-01-08)
Dreamweaver标签插件\PowerEasy_SiteWeaver6.5_DWMX.mxp (246050, 2008-01-08)
Dreamweaver标签插件\使用说明.mht (172051, 2008-01-08)
Dreamweaver标签插件 (0, 2009-09-18)
SiteWeaver6.8使用说明.doc (574464, 2009-05-19)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro\Code\client.js (5841, 2008-01-08)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro\Code\style.css (1812, 2008-01-08)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro\Code (0, 2009-09-18)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro\index.htm (10025, 2008-01-08)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro\UserSynchro.asp (27068, 2008-01-08)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro (0, 2009-09-18)
动易通行证\PDO_API统一接口数据同步程序 (0, 2009-09-18)
动易通行证\PDO统一接口开发规范1.0.doc (105984, 2008-07-02)
动易通行证\动易通行证使用指南.doc (48128, 2008-07-02)
动易通行证 (0, 2009-09-18)
升级及转换程序\2005 to SW6.8 升级程序\Upgrade.asp (99643, 2009-05-19)
升级及转换程序\2005 to SW6.8 升级程序\升级说明.txt (2378, 2009-07-30)
升级及转换程序\2005 to SW6.8 升级程序 (0, 2009-09-18)
升级及转换程序\2006，SW6.5，sw6.6，sw.6.7 to SW 6.8 升级程序\Upgrade.asp (49112, 2009-05-19)
升级及转换程序\2006，SW6.5，sw6.6，sw.6.7 to SW 6.8 升级程序\升级说明.txt (1126, 2009-05-19)
升级及转换程序\2006，SW6.5，sw6.6，sw.6.7 to SW 6.8 升级程序 (0, 2009-09-18)
升级及转换程序\SiteWeaver6.6模板标签库\Temp\PE_Label.mdb (405504, 2009-02-11)
升级及转换程序\SiteWeaver6.6模板标签库\Temp\Template.mdb (1122304, 2008-07-18)
升级及转换程序\SiteWeaver6.6模板标签库\Temp (0, 2009-09-18)
升级及转换程序\SiteWeaver6.6模板标签库\标签与模板导入说明.txt (231, 2008-06-30)
升级及转换程序\SiteWeaver6.6模板标签库 (0, 2009-09-18)
升级及转换程序\SiteWeaver6.8模板标签库\Temp\Template.mdb (1486848, 2009-05-19)
升级及转换程序\SiteWeaver6.8模板标签库\Temp (0, 2009-09-18)
升级及转换程序\SiteWeaver6.8模板标签库\标签与模板导入说明.txt (152, 2009-05-19)
升级及转换程序\SiteWeaver6.8模板标签库 (0, 2009-09-18)
升级及转换程序\升级说明.txt (1126, 2009-05-19)
升级及转换程序\数据转换迁移程序\DataTrans.asp (78180, 2009-05-19)
升级及转换程序\数据转换迁移程序\数据转换迁移说明.txt (1608, 2009-07-30)
升级及转换程序\数据转换迁移程序 (0, 2009-09-18)
升级及转换程序 (0, 2009-09-18)
升级说明.txt (1126, 2009-05-19)
安装说明.txt (258, 2008-01-08)
源代码\AD\ADCount.asp (1058, 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 %>

近期下载者：

相关文件：

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

收藏者：