下面是一個簡單的示例代碼，展示了一個基本的ASP留言板功能：
<% '連接數據庫 Set conn = Server.CreateObject(“ADODB.Connection”) conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb”
'處理提交留言的請求 If Request.Form(“submit”) <> “” Then '獲取表單數據 Dim name, message name = Request.Form(“name”) message = Request.Form(“message”)
'插入留言數據到數據庫
Dim sql
sql = "INSERT INTO messages (name, message) VALUES ('" & name & "', '" & message & "')"
conn.Execute sql
End If
'查詢留言數據 Dim rs Set rs = Server.CreateObject(“ADODB.Recordset”) rs.Open “SELECT * FROM messages ORDER BY id DESC”, conn
'顯示留言列表 If Not rs.EOF Then While Not rs.EOF Response.Write “
” & rs(“name”) & ": " & rs(“message”) & “
” rs.MoveNext Wend Else Response.Write “暫無留言。
” End If'關閉數據庫連接 rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>
上述代碼中，首先連接數據庫，然后根據用戶提交的留言信息，將數據插入到數據庫中。接著查詢留言數據，并將留言內容逐條顯示出來。最后，關閉數據庫連接。
留言表單使用POST方法提交數據，并包括姓名和留言內容兩個字段。提交按鈕的name屬性設置為"submit"，便于在服務器端判斷表單是否提交。
注意：以上代碼僅為示例，實際開發中需要根據具體需求進行適當的修改和完善。例如，對用戶輸入進行安全驗證，防止SQL注入攻擊；顯示分頁功能；添加用戶身份認證等。
