<% Option Explicit %>
<%
'==============================================================================
'软件名称:风讯网站信息管理系统
'当前版本:Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新:2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系:028-850******0-601,项目开发:028-850******0-606、609,客户支持:608
'产品咨询QQ:394226379,159410,125114015
'技术支持QQ:315485710,66252421
'项目开发QQ:415637671,655071
'程序开发:四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN:skoolls@hotmail.com
'论坛支持:风讯在线论坛(http://bbs.foosun.net)
'官方网站:www.Foosun.cn 演示站点:test.cooin.com
'网站通系列(智能快速建站系列):www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息,并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发,必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
If Request.Form("action")="ReSend" Then
If Request.Form("MeTitle")="" Or Request.Form("MeFrom")="" Or Request.Form("MeContent")="" Then
Response.Write("")
Response.End
End If
If len(Request.Form("MeContent"))>300 Then
Response.Write("")
Response.End
End If
If Trim(Request.Form("MeFrom"))=Fs_User.EName Then
Response.Write("")
Response.End
End if
Dim t_return
t_return = Fs_User.UserExist(replace(Request.Form("MeFrom"),"'",""))
If t_return=False then
Response.Write("")
Response.End
End if
Dim Fs_Message,t_NumLenContent
Set Fs_Message = new Cls_Message
t_NumLenContent = Fs_Message.LenContent(replace(Request.Form("MeFrom"),"'",""))
If t_NumLenContent+Len(Request.Form("MeContent")) > 50*1024 then
Response.Write("")
Response.End
End If
Dim t_fields,t_values,t_Send,t_Content
if Request.Form("isSend")<>"" then
t_Send=1
Else
t_Send=0
End if
t_Content = Request.Form("MeContent")
t_fields = "MeTitle,MeFrom,MeRead,MeContent,FromDate,ReadTF,IsRecyle,IsDels,IsDelR,isSend,LenContent"
t_values = "'"&Replace(Request.Form("MeTitle"),"'","")&"','"&Fs_User.EName&"','"&Replace(Request.Form("MeFrom"),"'","")&"','"&t_Content&"','"&Now()&"',0,0,0,0,"&t_Send&","&Len(t_Content)
t_return = FS_Message.update(t_fields,t_values,"_new_")
If t_return Then
Response.Write("")
Response.End
Else
Response.Write("")
Response.End
End If
End If
If Request("id")="" Then
Response.Write("")
Response.End
End If
Dim RsReadMessageObj
Set RsReadMessageObj = UserConn.execute("Select * from FS_Message where MeId="& clng(Replace(Request("id"),"'","")))
If RsReadMessageObj.Eof Then
Response.Write("")
Response.End
End If
If RsReadMessageObj("MeRead")<> Fs_User.EName Then
Response.Write("")
Response.End
End If
UserConn.execute("Update FS_Message Set ReadTF=1 where MeId="& clng(Replace(Request("id"),"'","")))
%>
<%=Fs_ConfigCache.FindNeedRecord("1")%> >> 会员中心
读取短消息
<% = Fs_ConfigCache.FindNeedRecord("11") %>
<%
Set Conn=Nothing
Set UserConn=Nothing
Set Fs_User = Nothing
Set Fs_ConfigCache=Nothing
%>