📄 guest.asp
字号:
<% option explicit%>
<!--#Include file="odbc_connection.asp"-->
<HTML>
<head>
<title>分享站</title>
<link rel="stylesheet" href="guest_style.css">
<Script Language="JavaScript">
<!--
function check_Null(){
if (document.form1.title.value==""){
alert("主题不能为空!");
return false;
}
if (document.form1.name.value==""){
alert("姓名不能为空!");
return false;
}
return true;
}
// -->
</Script>
</head>
<body >
<div align="center">分享站</div>
<table width='70%' height="114" border='1' align="center" cellpadding='0' cellspacing='0' bordercolorlight='#6D2348' bordercolordark='#E34585'>
<tr bgcolor=#FF897B>
<td>
<table width=100% border="0" align="center">
<form method="post" action="add.asp" name="form1" onSubmit="JavaScript: return check_Null();">
<tr><td><font color=#6D2348>主题：</font></td><td><input type="text" name="title" size="20">
<font color="#6D2348">**</font></td></tr>
<tr><td><font color=#6D2348>内容：</font></td><td><textarea name="body" rows=4 cols=60 wrap=soft></textarea></td></tr>
<tr><td><font color=#6D2348>姓名：</font></td><td><input type="text" name="name" size="10"><font color="#6D2348">**</font></td></tr>
<tr><td><font color=#6D2348>email：</font></td><td><input type="text" name="email" size="30"> </td></tr>
<tr><td></td><td><input type="submit" value=" 提交 " Size="20"></td></tr>
</form>
</table>
</td>
</tr>
</table>
<p>
</center>
<%
'现在开始显示已有留言
Dim Sql,rs '声明变量
Sql="Select guest_id,title,body,name,email,submit_date From guest "
Sql=Sql & " Order By submit_date desc,guest_id desc" '这里用了两个字段排序
SET rs=db.Execute(Sql) '返回一个Recordset对象
If Not rs.Bof And Not rs.Eof Then '如果有记录，就接着执行
%>
<center>
<table border="0" bordercolor="#DBAEC6" width="80%">
<%
Do While Not rs.Eof '利用循环依次显示所有记录
%>
<tr>
<td colspan=2><hr></td>
</tr>
<tr>
<td width=20%>主题</td>
<td><%=rs("title")%></td>
</tr>
<tr>
<td>内容</td>
<td><%=rs("body")%></td>
</tr>
<tr>
<td>留言人</td>
<td><a href="mailto:<%=rs("email")%>"><%=rs("name")%></a></td>
</tr>
<tr>
<td>时间</td>
<td><%=rs("submit_date")%></td>
</tr>
<tr>
<td></td>
<td><a href="delete.asp?guest_id=<%=rs("guest_id")%>">删除</a></td>
</tr>
<%
rs.MoveNext '将记录指针移动到下一条记录
Loop
rs.Close '执行完毕，关闭recordset对象
db.Close '执行完毕，关闭connection对象
%>
</table>
</center>
<%End If %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -