xianshi.asp

简单留言板

<!--#include file="conn.asp" -->
<a href="fabiao.asp">发表留言</a>
<%
	set mbrs=GetRS("select * from nr where lno=0 order by lid desc")
	while not mbrs.eof
	if session("username")=mbrs("rname") or session("username")=mbrs("sname") then
	mmid=mbrs("lid")
%>
<table width="880" border="0" cellpadding="0" cellspacing="1" bgcolor="#0033FF">
  <tr>
    <td width="134" bgcolor="#FFFFFF">发送者</td>
    <td width="95" bgcolor="#FFFFFF"><%=mbrs("sname")%></td>
    <td width="109" bgcolor="#FFFFFF">接收者</td>
    <td width="114" bgcolor="#FFFFFF"><%=mbrs("rname")%></td>
    <td width="141" bgcolor="#FFFFFF">时间</td>
    <td width="202" bgcolor="#FFFFFF"><%=mbrs("time")%></td>
    <td width="77" bgcolor="#FFFFFF"><a href="fabiao.asp?lid=<%=mmid%>">回复</a></td>
  </tr>
  <tr>
    <td height="35" colspan="7" bgcolor="#FFFFFF"><%=mbrs("content")%></td>
  </tr>
<%
	set mrs=GetRS("select * from nr where lno=" & mmid &" order by lid desc")
	while not mrs.eof
%>
  <tr>
    <td bgcolor="#FFFFFF">&nbsp;</td>
    <td colspan="6" bgcolor="#FFFFFF">
	<%
	ws=mrs("sname") & "于" &mrs("time") &"回复:<br>" &mrs("content")
	Response.Write(ws)
	%>
	</td>
  </tr>
<%
		mrs.MoveNext
	wend
	mrs.close
	set mrs=nothing
%>
</table>
<%
	End if
	mbrs.MoveNext
	
	wend
%>