msg_new_exe.asp

=== ==ASP销售管理系统

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
To_Employee_ID = request("Employee_ID")
Message_Title = request("Message_Title")
Message_Content = request("Message_Content")
if not IsNot(To_Employee_ID,"n") then
	response.write "发送对象填写不正确"
	response.end
end if
if not IsNot(Message_Title,"s") then
	response.write "消息标题必须填写"
	response.end
end if

'规范化字符串
Message_Title = FormatString(Message_Title)
Message_Content = FormatString(Message_Content)

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "sp_Employee_Message_New " & Session("Employee_ID") & ",'" & Session("Employee_Name") & "'," & To_Employee_ID & ",'" & Message_Title & "','" & Message_Content & "'"
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing
%>
成功发送消息！