📄 index.asp
字号:
<!--#include file="conn.asp"-->
<%'包含conn.asp文件，该文件用来打开Connection对象，
'使用Include文件可以免去在每个ASP程序中写连接语句的麻烦%>
<html>
<head>
<title>留言版</title>
<style type="text/css">
<!--
.style1 {
font-family: "Times New Roman", Times, serif;
font-weight: bold;
font-size: 36px;
}
.style2 {
font-family: "Times New Roman", Times, serif;
font-size: 16px;
}
.style3 {color: #FF0000}
-->
</style>
</head>
<body>
<div align="center" class="style1">
<div align="center">留言版</div>
</div>
<form name="form1" method="post" action="add.asp">
<div align="center">
<table width="758" height="265" border="0">
<tr>
<td width="87" bgcolor="#CCCCCC"><span class="style2">主题：</span></td>
<td width="661" bgcolor="#CCCCCC"><input type="text" name="title">
<span class="style3">*</span></td>
</tr>
<tr>
<td bgcolor="#E3E3E6" class="style2">内容：</td>
<td bgcolor="#E3E3E6"><textarea name="text" cols="50" rows="6"></textarea>
<span class="style3">*</span></td>
</tr>
<tr>
<td bgcolor="#CCCCCC" class="style2">留言人：</td>
<td bgcolor="#CCCCCC"><input type="text" name="name">
<span class="style3">*</span></td>
</tr>
<tr>
<td bgcolor="#E3E3E6" class="style2">email：</td>
<td bgcolor="#E3E3E6"><input type="text" name="email"></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"> </td>
<td bgcolor="#CCCCCC"><div align="center">
<input type="submit" class="style2" value="提 交">
</div></td>
</tr>
</table>
</div>
</form>
<p>
<%
'以下代码显示已有留言
'SQL语句表示按发言日期倒序排列
strSQL="Select * From subtab Order BY subdate desc"
'定义Recordset对象
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open strSQL,conn,1,1
If Not rs.Bof And Not rs.Eof Then
%>
</p>
<div align="center">
<table width="758" height="196" border="0">
<% Do While Not rs.Eof %>
<tr>
<td width="87" height="29">主题：</td>
<td width="661"><%=rs("title")%></td>
</tr>
<tr>
<td height="32">内容：</td>
<td><%=rs("text")%></td>
</tr>
<tr>
<td height="33">留言人：</td>
<td><%=rs("subname")%></td>
</tr>
<tr>
<td height="28">email：</td>
<td><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
</tr>
<tr>
<td height="32">留言日期</td>
<td><%=rs("subdate")%></td>
</tr>
<tr>
<td height="28"> </td>
<td><a href="delete.asp?title_id=<%=rs("title_id")%>">删除</a></td>
</tr>
<%
rs.MoveNext
Loop
'关闭Recordset对象
rs.Close
'关闭Connection对象
conn.Close
%>
</table>
</div>
<%End If%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -