📄 share.asp
字号:
<% option explicit%>
<!--#Include file="odbc_connection.asp"-->
<html>
<head>
<title>share</title>
<style type="text/css">
<!--
body {
background-image: url(beijing5.gif);
}
-->
</style></head>
<body>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="750" height="105" valign="top"><img src="YETOU.gif" width="750" height="105" align="middle"></td>
</tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="135" height="45" valign="top"><a href="index.asp"><img src="SHOUYE.gif" width="135" height="45" border="0"></a></td>
<td width="17"> </td>
<td width="135" valign="top"><a href="face.asp"><img src="meirong.gif" width="135" height="45" border="0"></a></td>
<td width="18"> </td>
<td width="135" valign="top"><a href="hear.asp"><img src="MEIFA.gif" width="135" height="45" border="0"></a></td>
<td width="18"> </td>
<td width="136" valign="top"><a href="fashion.asp"><img src="shishangshenghuo.gif" width="136" height="45" border="0"></a></td>
<td width="16"> </td>
<td width="140" valign="top"><a href="share.asp"><img src="fenxiangzhan.gif" width="140" height="45" border="0" ></a></td>
</tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr bgcolor="#EFC7D0">
<td height="16" colspan="3" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td width="11" height="518" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell--> </td>
<td width="728"><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 %></td>
<td width="11" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr bgcolor="#EFC7D0">
<td height="16" colspan="3" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td width="11" height="43" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell--> </td>
<td width="728"><img src="01.jpg" width="728" height="43"></td>
<td width="11" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr bgcolor="#EFC7D0">
<td height="16" colspan="3" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -