list2.asp

9seek 留言本源代码5.0版

<% rem 按讨论区方式查看 
%>
<table border="0" width="650" cellspacing="1" cellpadding="3" align="center" class="table004">
 <tr class="table003"> 
   <td width="*" 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" align=center bordercolorlight="#000000" bordercolordark="#C0C0C0"> 
   <b>最 后 回 复</b> 
  </td>
<% if theUser.master then %>
<td></td>
<% end if %>
  </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("istop")=1 then
		response.write "<img border=0 src=images/istop.gif title=固顶>"
	elseif rs("jh")=1 then
		response.write "<img border=0 src=images/jh.gif title=精华>"
	elseif rs("islock") then
		response.write "<img border=0 src=images/islock.gif title=锁定>"
	elseif rs("hf")>0 then
		response.write "<img border=0 src=images/plus.gif title=有回复>"
	else
		response.write "<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="show.asp?id=<%=rs("id")%>"><%=rs("title")%></a> </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" ><%=times(rs("retime"))%></td>
<% if theUser.master then %>
<td align=center><input type=checkbox name="id" value="<%=rs("id")%>">
<% end if %>
  </tr>
<%                              
  rs.movenext                                
loop %>
 </table>
<%
rsclose()
connclose()
%>