list5.asp

9seek 留言本源代码5.0版

<% rem 搜索结果按讨论区方式查看 
%>
<table border="0" width="650" cellspacing="1" cellpadding="3" align="center" >
<tr><td align=center><b>---------- 搜 索 结 果 ------------</b></td></tr>
</table>
<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"> 
<% if rs("rt")=0 then %>
	<a href="show.asp?id=<%=rs("id")%>"><%=rs("title")%></a>
<% else %>
	<a href="show.asp?id=<%=rs("rt")%>#<%=rs("id")%>"><%=rs("title")%></a>
<% end if %>
</td>
   
  <td align="center" class="jnfont5"> 
<%
userName rs("name"),rs("bl") ,isMaster(rs("name"))
%>
  </td>
   <td align="center"><%=rs("hf")%></td>
   <td align="center"><%=rs("yd")%></td>
   <td align="center" >
   	<% response.write times(rs("t"))
   	%>
   </td>
  </tr>
<%                              
  rs.movenext                                
loop %>
 </table>
<%
rsclose()
connclose()
%>