1、用Access建造一个数据库data.mdb，建立表Guest,结构如下:
ID 自动编号
标题 字符串
署名 字符串
正文 备注。
2、guest.aspx
1@ Import Namespace="System.Data"
1@ Import Namespace="System.Data.OleDb"
1<html><head>
2<style>
3<!--
4body{font-size:9pt}
5p{font-size:9pt}
6td{font-size:9pt}
7//-->
8</style>
9<title>留言本</title></head>
10<body>
11<p align="right"><font size="6">留言本</font></p>
12<script language="vb" runat="server">
13Sub Page_Load(Source As Object, E As EventArgs)
14Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & server.mappath("data.mdb"))
15Dim myAdapter As New OleDbDataAdapter
16Dim myOleDbCommandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(myAdapter)
17Dim DS As DataSet = New DataSet
18
19myAdapter.SelectCommand = new OleDbCommand("select ID, 标题, 署名 from Guest order by id desc", myconn)
20myconn.open()
21myAdapter.Fill(ds, "Guest")
22ml.DataSource=ds.Tables("Guest").DefaultView
23ml.DataBind()
24end sub
25</script>
26<asp:datagrid bordercolor="black" cellpadding="3" cellspacing="0" enableviewstate="false" font-name="宋体" font-size="9pt" headerstyle-backcolor="#ddaacc" id="ml" runat="server" showfooter="false" width="100%">
27<columns>
28<asp:hyperlinkcolumn datanavigateurlfield="id" datanavigateurlformatstring="see.asp?id={0}" target="_new" text="See!"></asp:hyperlinkcolumn>
29</columns>
30</asp:datagrid>
31<br/><br/><font size="5">我要留言</font><br/>
32<form action="send.aspx" method="post">
33标题:<input name="title" type="text"/><br/>
34署名:<input name="name" type="text"/><br/>
35内容:<textarea name="body"></textarea><br/>
36<input type="submit"/>
37</form>
38
393、send.aspx
@ Import Namespace="System.Data"
@ Import Namespace="System.Data.OleDb"
1<script language="vb" runat="server">
2Sub Page_Load(Source As Object, E As EventArgs)
3Dim myConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0 ;Data Source=" & server.mappath("data.mdb"))
4Dim myInsertQuery As String = "insert into guest (标题, 署名, 内容) values ('" & request("title") & "', '" & request("name") & "', '" & request("body") & "')"
5Dim myOleDbCommand As New OleDbCommand(myInsertQuery)
6myOleDbCommand.Connection = myConn
7myConn.Open()
8myOleDbCommand.ExecuteNonQuery()
9myOleDbCommand.Connection.Close()
10response.redirect("guest.aspx")
11end sub
12</script>
13
144、see.asp（显示单个数据不如用ASP）
15<html><head>
16<style>
17<!--
18body{font-size:9pt}
19p{font-size:9pt}
20td{font-size:9pt}
21//-->
22</style>
23<title>察看留言</title></head>
24<body>
25<p align="right"><font size="6">察看留言</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
1ID:```
2 = id
3```<br/>
4标题:```
5 = rs("标题")
6```<br/>
7署名:```
8 = rs("署名")
9```<br/>
10内容:<br/>```
11 = rs("内容")
12```<br/>
13<a href="guest.aspx">返回</a></body></html></body></html>