PowerEasy_SiteWeaver

所属分类:WEB开发
开发工具:ASP
文件大小:9334KB
下载次数:13
上传日期:2008-10-17 18:31:56
上 传 者w6lzj
说明:  SiteWeaver™ CMS 是一套面向各类中小型站点建设和管理而设计研发的通用建站管理系统(又称内容管理系统) 系统基于ASP语言和MSSQL/ACCESS数据库开发。
(SiteWeaver )

文件列表:
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, 2008-06-30)
SiteWeaver6.6使用说明.doc (1369088, 2008-06-30)
动易通行证\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, 2008-06-30)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro\index.htm (10025, 2008-01-08)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro\UserSynchro.asp (27068, 2008-01-08)
动易通行证\PDO_API统一接口数据同步程序\UserSynchro (0, 2008-06-30)
动易通行证\PDO_API统一接口数据同步程序 (0, 2008-06-30)
动易通行证\PDO统一接口开发规范1.0.doc (99328, 2008-01-08)
动易通行证\动易通行证使用指南.doc (48128, 2008-01-08)
动易通行证 (0, 2008-06-30)
升级及转换程序\6.5 to 6.6升级说明.txt (708, 2008-06-30)
升级及转换程序\6.5 to 6.6数据库升级程序\Upgrade.asp (10665, 2008-06-16)
升级及转换程序\6.5 to 6.6数据库升级程序\升级说明.txt (710, 2008-06-30)
升级及转换程序\6.5 to 6.6数据库升级程序 (0, 2008-06-30)
升级及转换程序\动易2005 To SiteWeaver6.6 数据库升级程序\Upgrade.asp (93928, 2008-06-16)
升级及转换程序\动易2005 To SiteWeaver6.6 数据库升级程序\升级说明.txt (2620, 2008-06-30)
升级及转换程序\动易2005 To SiteWeaver6.6 数据库升级程序 (0, 2008-06-30)
升级及转换程序\动易2006 To SiteWeaver6.6 数据库升级程序\Upgrade.asp (45153, 2008-06-16)
升级及转换程序\动易2006 To SiteWeaver6.6 数据库升级程序\从2006版升级的操作步骤.txt (958, 2008-06-30)
升级及转换程序\动易2006 To SiteWeaver6.6 数据库升级程序\操作说明.txt (1195, 2008-06-26)
升级及转换程序\动易2006 To SiteWeaver6.6 数据库升级程序 (0, 2008-06-30)
升级及转换程序\数据转换迁移程序\DataTrans.asp (78183, 2008-06-17)
升级及转换程序\数据转换迁移程序\数据转换迁移说明.txt (1611, 2008-06-16)
升级及转换程序\数据转换迁移程序 (0, 2008-06-30)
升级及转换程序 (0, 2008-06-30)
升级说明.txt (465, 2008-06-30)
安装说明.txt (258, 2008-01-08)
标签与模板导入\Temp\PE_Label.mdb (405504, 2008-06-30)
标签与模板导入\Temp\Template.mdb (1122304, 2008-06-23)
标签与模板导入\Temp (0, 2008-06-30)
标签与模板导入\标签与模板导入说明.txt (231, 2008-06-30)
标签与模板导入 (0, 2008-06-30)
源代码\AD\ADCount.asp (1058, 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 %>

    近期下载者

    相关文件


    收藏者