下面是一个简单的示例代码,展示了一个基本的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注入攻击;显示分页功能;添加用户身份认证等。