managemessage.asp

留言版,可留言,管理留言,添加,删除留言

<style type="text/css">
<!--
.STYLE3 {
	font-size: xx-large;
	font-family: Arial, Helvetica, sans-serif;
	font-style: italic;
}
body,td,th {
	color: #660099;
}
.STYLE6 {font-size: xx-large; font-family: Arial, Helvetica, sans-serif; font-style: italic; font-weight: bold; }
-->
</style>
<form id="form1" name="form1" method="post" action="">
  <img src="1169254220.gif" width="116" height="151" /><span class="STYLE6"><img src="欢迎光临管理员系统.gif" width="706" height="105" /></span><span class="STYLE3"><img src="board.jpg" width="45" height="47" /></span><a href="liuyanbiao.asp">返回留言板</a><a href="index.asp"> 返回主页</a>
</form>

<hr size="3"color="#6666FF" />
<p><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>	
</p>
<form name="attend"method="post"action="dele.asp">
  <table width=955 height="101" border="0"align="center" background="无标题.bmp">
<%
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 ><strong>网友</strong> <%=rs("username")%>       于<%=rs("publishtime")%>留言  </td>
</TR>
    <tr><td><strong>主题：</strong> &nbsp;<%=rs("title")%></td></tr>
	<tr><td><strong>内容：</strong> &nbsp;<%=rs("content")%></td></tr>
	<tr><td><a href=dele.asp?username=<%=rs("username")%>&title=<%=rs("title")%>>删除留言</a></td></tr>
	<%
	rs.movenext
	loop
end if
set rs=nothing
set conn=nothing
%>
</TR>
</table>
</form>