modnotice.asp

来自「网络教学管理系统」· ASP 代码 · 共 32 行

<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 strName ,strContent ,strAddman ,strAddTime ,strID ,strUrl
	strName = trim(Request.Form("name"))
	strContent = trim(Request.Form("Content"))
	strAddman = trim(Request.Form("Addman"))
	strAddTime = Now()
	strID = Request.QueryString("ID")
	If strID &"" = "" Then
		Response.Write("参数错误！")
		Response.End
	End If 
	
	Dim rs ,strSql 
	strSql = "UPDATE Notice Set title = '"& strName &"' , Content = '"& strContent &"' WHERE ID =" & strID
	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_Notice.asp>返回</a></div>")

%>