📄 note.asp

📁 功能完备的留言板公告管理用户管理留言管理分页功能的实现 Access数据库

💻 ASP

字号:


<!--#include file="chkmanage.asp"-->
<%
if request("submit")="确定更改" then
	mynote=request("note")
	dim sql,rs

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")

	set comm=Server.CreateObject("adodb.command")
	comm.ActiveConnection=conn
	
	comm.CommandText="update message set mess='"& mynote & "' where id =1" 
	set rs=comm.Execute
	
	conn.close
	set comm=nothing
	set conn =nothing
	response.write "<p>&nbsp;</p><p>&nbsp;</p><p>&nbsp;</p><p align=‘center’>数据更新成功</p>"
	Response.Redirect("index.asp")	
else
%>
<html>
<head>
<title>公告信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body text="#000000">

<p>　</p>
<form name="form1" method="POST" action="note.asp">
  <div align="center">
  <table cellpadding=0 cellspacing=0 border=1 width=373 bgcolor="#FFFFFF" height="161" bordercolor="#000000" style="border-collapse: collapse">
    <tr bgcolor=#F0AA06> 
      <td bgcolor="#EEEEFF" align=center height="37" bordercolor="#000080" style="font-size: 14px; color: #000080"> 
        <div align="center"><b>公告管理</b></div>
      </td>
    </tr>
    <tr bgcolor=#F0AA06> 
      <td align="center" width="371" bgcolor="#FFFFFF" bordercolor="#000080"> 
        <textarea name="note" cols="49" rows="5" wrap="VIRTUAL" style="border: 1px solid #FFFFFF"></textarea></td>
    </tr>
    <tr bgcolor=#F0AA06> 
      <td bgcolor="#EEEEFF" align=center height="37" bordercolor="#000080"> 
        <div align="center"> 
          <input type="submit" name="Submit" value="确定更改">
        </div>
      </td>
    </tr>
  </table>
	</div>
</form>
<p>　</p>
</body>
</html>

<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -