📄 liuyanbiao.asp
字号:
<%session("counter")=session("counter")+1%>
<html>
<body background="415f5ff7f2041025720eecbe.jpg">
<h5><img src="欢迎光临赵素留言板2.gif.gif" width="763" height="65"></h5>
<pre><font size="4" face="华文楷体"><strong><font color="#000000"><a href="index.asp"><font size="4"><strong><em>
主页</em></strong></font></a> <a href="guanliyuanpassword.asp"><font size="4"><strong><em>管理员系统</em></strong></font></a>
您是第<%=session("counter")%>次访问留言板
</font></strong></font><font color="#000000" size="4"><strong><font face="华文楷体">最近一次浏览次留言板的日期时间：<%=application("lastvisitdate")%> <%application("lastvisitdate")=now()%> </font></strong></font></pre>
<hr size="3" height="10"color="#003300">
<script language="vbscript">
settimeout"clock"
sub clock()
h=hour(now)
m=minute(now)
s=second(now)
nowtime="现在时间是："&h&"点"&m&"分"&s&"秒"
nowt.innerhtml=nowtime
settimeout"clock"
end sub
</script>
<center id="nowt"></center>
<table width=876 height="124" border="1"align="center">
<tr><td width="866" height="18" align=middle bgcolor="#2F97FF"><div align="center"><font color="#FFCC28" size=3><em><strong>（以下留言只代表个人观点，请勿在本网站发布不良留言）</strong></em></font></div></td>
</tr>
<%
dim rs
dim sql
dim selected
dim conn
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("database1.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from liuyanban order by username desc"
rs.open sql,conn,1,1
if rs.EOF and rs.BOF then
%></TD>
<TR><td></td></TR><%
Response.Write "您还没有发表评论，评论不能为空"
else
do while not rs.eof
%>
<TR>
<td height="28" >
<img src="<%=rs("userimg")%>.gif" width="74" height="78" ><strong>网友</strong> <strong><%=rs("username")%></strong> <strong>于<%=rs("publishtime")%>留言</strong> <a href=liuyanbiao2.asp?username=<%=rs("username")%>>回复</a></td>
</TR>
<tr><td><font color="#006000">主题：</font> <%=rs("title")%></td>
</tr>
<tr><td><font color="#006000">内容：</font> <%=rs("content")%></td>
</tr>
<%
rs.movenext
loop
end if
set rs=nothing
set conn=nothing
%></TD>
</TR>
</table>
<hr size="3" height="10"color="#003300">
<!-显示输入新留言表单-->
<form method="post"action="saveliuyan.asp">
<table width="62%" border="1"align="center" background="DN186_L.jpg" bgcolor="#FFFFFF">
<tr height="40"bgcolor="#33CCFF"align="center"valign="middle">
<td height="25" colspan="2" bgcolor="#669933"><font color="#000000" size="5"><strong>请在此输入新留言</strong></font> </td>
</tr>
<tr align="center"valign="middle" height="30">
<td width="15%" height="25"><font size="4">作者</font></td>
<td width="85%"><input type="text"name="username"size="25"height="18"></td>
</tr>
<tr align="center"valign="middle" height="30">
<td width="15%" height="25"><font size="4">主题</font></td>
<td width="85%"><input type="text"name="title"size="50"height="18"></td>
</tr>
<tr align="center"valign="middle" height="250">
<td height="68" colspan="2"><div align="left">请选择您的头像：
<input type="radio"name="userimg"check value="1"><img src="1.gif" width="46" height="51">
<input type="radio"name="userimg" value="2"><img src="2.gif" width="47" height="52">
<input type="radio"name="userimg" value="3"><img src="3.gif" width="53" height="53">
<input type="radio"name="userimg" value="4"><img src="4.gif" width="46" height="54">
<input type="radio"name="userimg" value="5"><img src="5.gif" width="67" height="60">
</div></td>
</tr>
<tr align="center"valign="middle" height="250">
<td width="15%"><font size="4">内容</font></td>
<td width="85%"><textarea name="content"cols="50"rows="15"></textarea></td>
</tr>
<tr>
<td height="40" colspan="2"align="center">
<input type="submit"value="提交留言" name="action">
<input type="reset"value="重新输入" ></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -