list3.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="360" 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"> 
   <%else%>
   <%=rs("name")%> 
   <%end if%>
  </td>
  <td width="150" bordercolorlight="#808080" bordercolordark="#C4ECFF"> 
   <table border="0" width="100%" cellpadding="0">
	<tr> 
	 <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> 
	 </td>
	</tr>
	<tr> 
	 <td width="46%" class="jnfont5">&nbsp; </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()
%>