list4.asp

经过一些更改的留言板

<% rem 精华按讨论区方式查看 
%>
<table border="0" width="650" cellspacing="1" cellpadding="3" align="center" class="table004">
 <tr class="table003"> 
   <td width="364" colspan="3" bordercolorlight="#000000" bordercolordark="#C0C0C0"> 
	<p align="center"><b>发 言 主 题</b> 
   </td>
   <td width="100" bordercolorlight="#000000" bordercolordark="#C0C0C0"> 
	<p align="center"><b>作&nbsp; 者</b> 
   </td>
   <td width="40" align="center" bordercolorlight="#000000" bordercolordark="#C0C0C0"><b>回复</b></td>
   <td width="40" align="center" bordercolorlight="#000000" bordercolordark="#C0C0C0"><b>阅读</b></td>
   <td width="100" bordercolorlight="#000000" bordercolordark="#C0C0C0"> 
	
   <p align="center"><b>最 后 回 复</b> 
  </td>
  </tr>
<%
Set RS = Server.CreateObject("ADODB.RecordSet") 
rs.Open exec, Conn, 0, 1
do while not rs.eof%>
  <tr class="table001"> 
   <td width="18" align="center"> 
	<%if rs("jh")=1 then
              %>
	<img border="0" src="images/jh.gif" title=精华> 
	<%elseif rs("hf")>0 then %>
	<img border="0" src="images/plus.gif" title=有回复>
	<%else %>
	<img border="0" src="images/nofollow.gif" title=无回复>
	<%end if%>
   </td>
   <td width="18" align="center"> <img border="0" src="images/<%=rs("pic")%>"></td>
   
  <td onmouseover="this.className='table002'" onmouseout="this.className='table001'" width="326"> 
   <a href="jhshow.asp?id=<%=rs("id")%>"><%=rs("title")%></a> </td>
   
  <td align="center" class="jnfont5"> 
   <%
response.write rs("name")
if rs("bl")=1 then %>
   <img border="0" src="images/bl.gif" align=absmiddle alt=注册用户> 
   <%end if%>
  </td>
   <td align="center"><%=rs("hf")%></td>
   <td align="center"><%=rs("yd")%></td>
   <td align="center" > <%=times(rs("retime"))%></td>
  </tr>
<%                              
  rs.movenext                                
loop %>
 </table>
<%
rsclose()
connclose()
%>