ASP（Active Server Pages）是一种用于创建动态Web页面的脚本语言，它可以与HTML混合使用。
以下是一个基本的ASP
留言板代码示例：
```asp
<%@ Language=VBScript %>
<!DOCTYPE html>
<html>
<head>
<title>
留言板</title>
</head>
<body>
<% ' 连接数据库
Dim connectionString
connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"
Dim connection
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open connectionString
if Request.ServerVariables("REQUEST_METHOD") = "POST" then ' 如果是通过POST方法提交表单
' 接收表单数据
Dim name, message
name = Request.Form("name")
message = Request.Form("message")
' 将数据插入到数据库
Dim insertQuery
insertQuery = "INSERT INTO Messages (Name, Message) VALUES ('" & name & "', '" & message & "')"
connection.Execute insertQuery
end if
' 查询数据库中的
留言信息
Dim selectQuery
selectQuery = "SELECT * FROM Messages ORDER BY ID DESC"
Dim rs
Set rs = connection.Execute(selectQuery)
' 显示
留言列表
if not rs.EOF then
Response.Write "<h1>
留言列表</h1>"
Response.Write "<ul>"
Do While Not rs.EOF
Response.Write "<li>"
Response.Write "<strong>" & rs("Name") & "</strong>: " & rs("Message")
Response.Write "</li>"
rs.MoveNext
Loop
Response.Write "</ul>"
else
Response.Write "<p>暂无
留言</p>"
end if
' 关闭数据库连接
rs.Close
Set rs = Nothing
connection.Close
Set connection = Nothing
%>
<h1>发布
留言</h1>
<form method="post">
<label for="name">姓名：</label>
<input type="text" name="name">
<br>
<label for="message">
留言内容：</label>
<textarea name="message"></textarea>
<br>
<input type="submit" value="提交">
</form>
</body>
</html>
```
以上代码实现了一个简单的ASP
留言板。用户可以通过表单提交姓名和
留言内容，然后将数据插入到数据库中。同时，页面会查询数据库中的
留言信息并显示在
留言列表中。
2万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
