list1.asp

经过一些更改的留言板

<%
rem 按留言本方式查看
Set RS = Server.CreateObject("ADODB.RecordSet") 
rs.Open exec, Conn, 0, 1

do until rs.eof %>
<table border="0" width="650" cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#CCFFCC" align="center" class="table004">
 <tr class=table003> 
  <td width="18" bordercolorlight="#808080" bordercolordark="#C4ECFF"> 
<%if rs("jh")=1 then  %>
<img border="0" src="images/jh.gif" align=absmiddle> 
<%else%>
<img align=absmiddle src=images/plus.gif> 
<%end if%>
  </td>
  <td width="16" bordercolorlight="#808080" bordercolordark="#C4ECFF"> <img border="0" src="images/<%=rs("pic")%>" align=absmiddle></td>
  <td width="310" bordercolorlight="#808080" bordercolordark="#C4ECFF" class="jnfont5" ><%=rs("title")%></td>
  <td width="100" bordercolorlight="#808080" bordercolordark="#C4ECFF"> 
   <%if rs("bl")=1 then
              %>
   <%=rs("name")%>&nbsp;<img border="0" src="images/bl.gif" title=注册用户> 
   <%else%>
   <%=rs("name")%> 
   <%end if%>
  </td>
  <td width="200" bordercolorlight="#808080" bordercolordark="#C4ECFF"> 
   <table border="0" width="100%" cellpadding="0">
	<tr> 
	 <td align="center"> <img align=absmiddle src=images/reply.gif> <a href="show.asp?id=<%=rs("id")%>#re">回复</a> 
	 </td>
	 <td align="center">
 <img border="0" src="images/email.gif" align=absmiddle> 
	  <%if rs("email")<>"" then %>
	  <a href="mailto:<%=rs("email")%>" title="<%=rs("email")%>">邮箱</a> 
	  <%
				  else
				  response.write "邮箱"
				  end if%>
	 </td>
	 <td align="center"><img align=absmiddle src=images/qq.gif> 
	  <% if rs("qq")<>"" then %>
	  <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=rs("qq")%>" target="_blank" title="<%=rs("qq")%>">QQ</a> 
	  <%
	 else
	 response.write "QQ"
	 end if
	 %>
	 </td>
	 <td align="center"> <img border="0" src="images/url.gif" align=absmiddle> 
	  <%if rs("url")<>"http://" then %>
	  <a href="<%=rs("url")%>" target="_blank" title="<%=rs("url")%>">主页</a> 
	  <%
				  else
				  response.write "主页"
				  end if%>
	 </td>
	</tr>
   </table>
  </td>
 </tr>
 <tr> 
  <td colspan="5" class="table001" align="center"> 
   <table border="0" width="98%" cellspacing="0" cellpadding="2">
	<tr> 
	 <td width="100%" colspan="3" style="letter-spacing: 1" class="jnfont3"> <span style="line-height: 150%"> 
	  <%=ubbcode(rs("nei"))%></span> 
<%if rs("hf")>0 then
	exec="select top 1 * from ly where rt="&rs("id")&" order by id desc"
	set rs1=conn.execute(exec)
	if not rs1.eof then %>
	  <table width=600 align=right class=table002 cellpadding="5" cellspacing="0">
	   <tr>
		<td width="450"> <b>最后回复：</b><img src=images/<%=rs1("pic")%> align=absmiddle> 
		 <%=rs1("title")%></td>
		<td width=150> 回复人： 
		 <% response.write rs1("name")
	if rs1("bl")=1 then %>
		 <img border="0" src="images/bl.gif" title=注册用户> 
		 <%end if%>
		</td>
	   </tr>
	   <tr>
		<td colspan=2><%=ubbcode(rs1("nei"))%> </td>
	   </tr>
	  </table>
	  <%	end if
	rs1.close
	set rs1=nothing
end if %>
	 </td>
	</tr>
	<tr> 
	 <td width="46%" class="jnfont5">
<img align=absmiddle src=images/reply.gif>
<% if rs("hf")>0 then
response.write "<a href=show.asp?id="&rs("id")&">查看全部回复</a>("&rs("hf")&")"
else
response.write "<a href=show.asp?id="&rs("id")&"#re>回复该留言</a>"
end if %>
	 </td>
	 <td width="46%" align="right" class="jnfont5">[ 发表时间：<%=rs("t")%> ] </td>
	 <td width="8%"> 
	  <p align="center"><a href="gl.asp?id=<%=rs("id")%>"><img border="0" src="images/gl.gif" width="16" height="16" alt="管理"></a> 
	   <a href="#"> <img src="images/gotop.gif" width="15" height="15" border="0" alt="返上"></a> 
	 </td>
	</tr>
   </table>
  </td>
 </tr>
</table>
<br>
<%
	rs.movenext
loop
rsclose()
connclose()
%>