addmsg.asp

教学平台

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-color: #B1DB99;
}
-->
</style><!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
	Dim strManTO ,strTitle ,strContent ,strAddMan ,strSentTime
	strManTO = trim(Request.Form("ManTO"))
	strTitle = trim(Request.Form("Title"))
	strContent = trim(Request.Form("Content"))
	strManFrom = Session("UserName")
	strSentTime = now()
	
	Dim rs ,strSql 
	strSql = "INSERT INTO Msg (Title,Content,ManFrom,ManTO,IsRead,SentTime) Values('"& strTitle &"','"& strContent &"','"& strManFrom &"','"& strManTO &"',0,'"& strSentTime &"')"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql,conn,3,1
	Response.Write("<BR><BR><BR><Div align=center>发送成功！<Br><BR><a href=index_Msg.asp>返回</a></div>")

%>