list2.asp

用ASP语言开发的一个不错的留言本。 升级时注册先只上传upgrade.asp并浏览升级

<% rem 按讨论区方式查看 
%>
<table border="0" width="650" cellspacing="1" cellpadding="3" align="center" class="table004" >
 <tr class="table003" align=center> 
   <td width="*" colspan="3" > 
	<p align="center"><b>发 言 主 题</b> 
   </td>
   <td width=100> 
	<b>作&nbsp; 者</b> 
   </td>
   <td width="40" ><b>回复</b></td>
   <td width="40" ><b>阅读</b></td>
   <td width="170" > 
   <b>最 后 回 复</b> 
  </td>
<% if theUser.master then %>
<td width="20"></td>
<% end if %>
  </tr>
<%
rs.open exec,conn,1,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="316"> 
   <a href="show.asp?id=<%=rs("id")%>"><%=funKillword(rs("title"))%></a> </td>
   
  <td align="center" class="jnfont5" width=100> 
<%
userName rs("name"),rs("bl"),isMaster(rs("name"))
%>
  </td>
   <td align="center" width=40><%=rs("hf")%></td>
   <td align="center" width=40><%=rs("yd")%></td>
   <td width=180>
   	<% 
   		response.write "&nbsp;<a href=show.asp?id="
   		response.write rs("id")
   		response.write "&page="
   		if rs("hf")>0 then
   			response.write int((rs("hf")-1)/rcperpage1)+1
		end if
		response.write ">"
   		response.write times(rs("retime")) 
   		response.write "</a> | "
   		if not isnull(rs("re_name")) then
			userName rs("re_name"),rs("re_bl"),isMaster(rs("re_name"))
   		else
   			response.write "------"
   		end if
   	%>
   </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()
%>