知识大全用ASP.Net和Access编写留言本

Posted 2022-07-17 标题

篇首语：一年好景君须记，最是橙黄橘绿时。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用ASP.Net和Access编写留言本相关的知识，希望对你有一定的参考价值。

实例编程：用ASP.Net和Access编写留言本 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

用Access建造一个数据库data mdb 建立表Guest 结构如下:

　　ID 自动编号　　标题字符串　　署名字符串　　正文备注

　　 guest aspx

　　 <%@ Import Namespace= System Data %> <%@ Import Namespace= System Data OleDb %> <><head> <style> <! bodyfont size: pt pfont size: pt tdfont size: pt // > </style> <title>留言本</title></head> <body> <p align=right><font size= >留言本</font></p> <script language=vb runat=server> Sub Page_Load(Source As Object E As EventArgs) Dim myConn As New OleDbConnection( Provider=Microsoft Jet OLEDB ;Data Source= & server mappath( data mdb )) Dim myAdapter As New OleDbDataAdapter Dim myOleDbCommandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(myAdapter) Dim DS As DataSet = New DataSet myAdapter SelectCommand = new OleDbCommand( select ID 标题署名 from Guest order by id desc myconn) myconn open() myAdapter Fill(ds Guest ) ml DataSource=ds Tables( Guest ) DefaultView ml DataBind() end sub </script> <ASP:DataGrid id= ml runat= server Width= % BorderColor= black ShowFooter= false CellPadding= CellSpacing= Font Name= 宋体 Font Size= pt HeaderStyle BackColor= #ddaacc EnableViewState= false > <Columns> <asp:HyperLinkColumn DataNavigateUrlField= id DataNavigateUrlFormatString= see asp?id= text= See! Target= _new /> </Columns> </asp:DataGrid> <br><br><font size= >我要留言</font><br> <form method=post action=send aspx> 标题:<input type=text name=title><br> 署名:<input type=text name=name><br> 内容:<textarea name=body></textarea><br> <input type=submit> </form>

　　 send aspx

　　 <%@ Import Namespace= System Data %> <%@ Import Namespace= System Data OleDb %> <script language=vb runat=server> Sub Page_Load(Source As Object E As EventArgs) Dim myConn As New OleDbConnection( Provider=Microsoft Jet OLEDB ;Data Source= & server mappath( data mdb )) Dim myInsertQuery As String = insert into guest (标题署名内容) values (@# & request( title ) & @# @# & request( name ) & @# @# & request( body ) & @#) Dim myOleDbCommand As New OleDbCommand(myInsertQuery) myOleDbCommand Connection = myConn myConn Open() myOleDbCommand ExecuteNonQuery() myOleDbCommand Connection Close() response redirect( guest aspx ) end sub </script>

　　 see asp（显示单个数据不如用ASP）

　　<><head> <style> <! bodyfont size: pt pfont size: pt tdfont size: pt // > </style> <title>察看留言</title></head> <body> <p align=right><font size= >察看留言</font></p> <% id=request( id ) set cn=server createobject( ADODB CONNECTION ) cn open DBQ= + server mappath( data mdb ) + ;DefaultDir=; DRIVER=Microsoft Access Driver (* mdb); set rs=server createobject( adodb recordset ) rs open select * from guest where id= & id cn %> ID:<% = id %><BR> 标题:<% = rs( 标题 ) %><br> 署名:<% = rs( 署名 ) %><br> 内容:<Br><% = rs( 内容 ) %><br> <a >返回</a>

cha138/Article/program/net/201311/13000

知识大全 用ASP.Net和Access编写留言本

知识大全用ASP.Net和Access编写留言本