list4.asp

用ASP语言开发的一个不错的留言本。 升级时注册先只上传upgrade.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>
<%

do while not rs.eof%>
  <tr class="table001"> 
   <td width="18" align="center"> 
	<img border="0" src="images/jh.gif" title=精华> 
   </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="bestshow.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("t"))%></td>
  </tr>
<%                              
  rs.movenext                                
loop %>
 </table>
<%
rsclose()
connclose()
%>