📄 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"> </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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -