说明： 风讯网站内容管理系统(FoosunCMS) v3.0 正式版 ·全新操作界面 ·无限分类 ·生成目录自由保存到指定的目录 ·全静态生成 ·全个性化模板生成，模板由用户自由定义。 ·支持二级域名管理 ·栏目自定义生成文件名规则 ·栏目可以排序，并支持是否隐藏栏目 ·自定义快捷菜单 ·自由标签化管理，自定义信息调用数量，标签自由存放 ·回收站管理 ·优化编辑器代码 ·优化生成部分代码 ·自由JS管理 ·自定义JS管理 ·在线执行SQL语句 ·数据库归档功能 ·自由化的权限分配管理 ·专题管理 ·自定义首页，栏目，新闻扩展名 ·虚拟目录管理 ·优化图片上传管理功能 ·在线发送邮件 ·支持单个新闻生成 ·批量转移，批量生成 ·评论审核 ·内部联接管理 ·信息采集分页处理功能 ·会员管理 ·图片管理 ·下载管理 ·信息采集系统 ·流量统计系统 ·投稿管理 ·投票管理 ·广告管理 ·会员系统支持DVBBS会员切换功能 ·支持第3方插件 ·图片、下载、信息高度集成 (Wind-- Web content management system (FoosunCMS) v3.0 final version of the new user interface unlimited inventory and classification of the freedom to preserve the directory all the static generated personalized whole generation template, template defined by the user freedom. Two domain name management support columns from the definition of the rules generated file name can sort columns and columns hidden support to fast-defined menu free label management, and information from the definition of call volume, labeling stored Recycling management optimization code optimization Editor some code generation free from the definition of management JS JS management Online SQL database archiving capabilities liberalization of the distribution of competences management topic since the definition of )
<% Option Explicit %>
<%
if request("MemName")="" then
Response.Write("")
Response.End
end if
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<%
dim Password,RsmessageObj,Messages,rs1,RssendObj,Sqlsend
MemName = Request.Cookies("Foosun")("MemName")
PassWord = Request.Cookies("Foosun")("MemPassword")
MemID = Request.Cookies("Foosun")("MemID")
if request("action")="del" then
conn.execute("update Message set IsRecyle=true where MeID="&Cint(trim(Request("Meid"))))
Response.Write("")
Response.End
end if
if request.Form("action")="addto" then
set Rs1 = Conn.Execute("select * from Members where MemName='"& Replace(Trim(Request.Form("MeFrom")),"'","''") &"'")
if rs1.eof then
Response.Write("")
Response.End
end if
set RssendObj = server.CreateObject ("ADODB.RecordSet")
Sqlsend = "select * from message"
RssendObj.Open Sqlsend,Conn,1,3
RssendObj.addnew
RssendObj("MeRead")=Replace(Trim(Request.Form("MeFrom")),"'","''")
RssendObj("MeFrom")=Replace(Trim(Request.Form("MeRead")),"'","''")
RssendObj("MeTiTle")=Replace(Trim(Request.Form("MeTiTle")),"'","''")
RssendObj("MeContent")=request.Form("MeContent")
RssendObj("FromDate")=now()
RssendObj("ReadTF")=false
RssendObj("IsRecyle")=false
RssendObj.update
RssendObj.close
set RssendObj=nothing
Response.Write("")
Response.End
end if
set RsMessageObj = Conn.Execute("select * from Message where MeID="&Cint(trim(Request("Meid"))))
conn.execute("update Message set ReadTF=true where MeID="&Cint(trim(Request("Meid"))))
if rsmessageobj.eof then
Response.Write("")
Response.End
end if
%>
登陆成功_短信中心