以下是一个简单的ASP网站留言板的源代码示例:
<%
' 定义留言板数组,并初始化为空数组
Dim GuestBook
GuestBook = Array()
' 处理表单提交
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
' 获取表单提交的留言内容
Dim message
message = Request.Form("message")
' 将留言内容添加到留言板数组中
If Len(message) > 0 Then
ReDim Preserve GuestBook(UBound(GuestBook) + 1)
GuestBook(UBound(GuestBook)) = message
End If
End If
%>
<html>
<head>
<title>留言板</title>
</head>
<body>
<h1>留言板</h1>
<% If UBound(GuestBook) >= 0 Then %>
<ul>
<% For i = 0 To UBound(GuestBook) %>
<li><%= GuestBook(i) %></li>
<% Next %>
</ul>
<% Else %>
<p>暂无留言。</p>
<% End If %>
<form method="post" action="">
<label for="message">留言:</label><br>
<textarea name="message" id="message"></textarea><br>
<input type="submit" value="提交">
</form>
</body>
</html>
此代码创建了一个简单的留言板网页,用户可以在文本框中输入留言,然后提交表单。提交后,留言内容会被添加到GuestBook
数组中,并显示在留言板上。如果留言板为空,则显示“暂无留言”。
请注意,这只是一个简单的示例,并且没有实现数据库存储或其他高级功能。在实际应用中,可能需要使用数据库来存储和检索留言内容,并实现更多功能和安全措施。
以下是一个简单的ASP网站留言板的源代码示例:
<%
‘连接数据库
Dim conn
Set conn = Server.CreateObject(“ADODB.Connection”)
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & Server.MapPath(“data.mdb”)
‘获取留言
Dim rs
Set rs = Server.CreateObject(“ADODB.Recordset”)
rs.Open “SELECT * FROM messages ORDER BY id DESC”, conn, 2, 3
‘提交留言
If Request.Form(“submit”) <> “” Then
Dim name, content, time
name = Request.Form("name")
content = Request.Form("content")
time = Now()
rs.AddNew
rs("name") = name
rs("content") = content
rs("time") = time
rs.Update
End If
%>
<!DOCTYPE html>
<html>
<head>
<title>留言板</title>
</head>
<body>
<h1>留言板</h1>
<form method="post">
<label for="name">姓名:</label>
<input type="text" name="name" id="name"><br>
<label for="content">留言内容:</label><br>
<textarea name="content" id="content" rows="5" cols="30"></textarea><br>
<input type="submit" name="submit" value="提交留言">
</form>
<h2>留言列表</h2>
<%
'显示留言列表
If Not rs.EOF Then
rs.MoveFirst
Do Until rs.EOF
%>
<b><%=rs("name")%>:</b><br>
<%=rs("content")%><br>
<%=rs("time")%><br>
<hr>
<%
rs.MoveNext
Loop
End If
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
</body>
</html>
请注意,此代码仅作为示例,并未进行安全性考虑和数据库验证。在实际应用中,应该对用户输入进行适当的验证和防止SQL注入攻击。同时,此示例使用了Access数据库,实际应用中可以根据需要选择其他数据库如SQL Server或MySQL。
发布者:luotuoemo,转转请注明出处:https://www.jintuiyun.com/135651.html