list6.asp

9seek 留言本源代码5.0版

<%
'跟帖显示
set rs=conn.execute(exec)                                                                                                                                                         

do while (not rs.EOF)%>
<br>
<table style="table-layout:fixed" border="0" width="650" cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#CCFFCC" align="center" class="table004">
 <tr class=table003>
 <td>
	 <table width=100% cellpadding=2 cellspacing=0 border=0 style="table-layout:fixed;word-break:break-all">
	 <tr>
	  <td width="25"> 
	   <%
	   '锚点
	   response.write "<a name='"&rs("id")&"'></a>"
	   
	   if rs("jh")=1 then
	   %>
	   <img border="0" src="images/jh.gif" align=absmiddle> 
	   <%else%>
	   <img align=absmiddle src=images/nofollow.gif width="15" height="15"> 
	   <%end if%>
	  </td>
	  <td width="*" class="jnfont5" >
		  <img border="0" src="images/<%=rs("pic")%>" align=absmiddle>
	  	<%
	  	response.write rs("title")
	  	userNameNoFace showFace,rs("name"),rs("bl"),isMaster(rs("name"))
	  	%>
	  <td width="200" align=right> 
		<img align=absmiddle src=images/reply.gif><a href="show.asp?id=<%=rs("id")%>#re">回复</a> 
		<%
		userEmail(rs("email"))
		userIcq(rs("icq"))
		userMsn(rs("msn"))
		userQQ(rs("qq"))
		userUrl(rs("url"))
		%>&nbsp;
	   </td></tr>
	   </table>
  </td>
 </tr>
 <tr> 
  <td class="table001" align="center"> 
	<table border="0" width="100%" cellspacing="0" cellpadding="2" style="table-layout:fixed;word-break:break-all">
		<tr valign=top> 
		<%
		userNameFace showFace,rs("name"),rs("face"),rs("male"),rs("bl"),isMaster(rs("name"))
		%>
		<td width="*" style="letter-spacing:1px; line-height:140%" class="jnfont3" >
		<%=ubbcode(rs("nei"))%>
		 </td>
		</tr>
	</table>
	
	<table width=100% >
		<tr> 
		 <td width="45%" class="jnfont6"><img src="images/back.gif" width="17" height="17" align="absmiddle"> 
		  <a href="index.asp">返回列表</a> </td>
		 <td width="37%" align="right" class="jnfont6">[ 发表时间：<%=rs("t")%> ] 
		 </td>
		 <td width="18%" align="right"> 
		<% if theUser.reged then %>
		<a href="edit.asp?id=<%=rs("id")%>"><img src="images/edit.gif" width="13" height="15" border="0" alt="编辑"></a>
		<% else %>
		<img src="images/edit-gray.gif" width="13" height="15" border="0" alt="编辑">
		<% end if
		if theUser.master then %>
			<a href="admin_post.asp?id=<%=rs("id")%>"><img border="0" src="images/gl.gif" width="16" height="16" alt="管理"></a>
			<% userIp rs("ip"),rs("comefrom") %>
			<input type="checkbox" name="id" value="<%=rs("id")%>" >
		<% else %>
		<img border="0" src="images/gl-gray.gif" width="16" height="16" alt="管理">
		<img src=images/ip.gif align=absmiddle alt="ＩＰ:☆保密☆&#13;&#10;来源:☆保密☆">
		<% end if %>
		<a href="#"><img src="images/gotop.gif" width="15" height="15" border="0" alt="返上"></a> 
		 </td>
		</tr>
	</table>
  </td>
 </tr>
</table>
<%
rs.MoveNext
loop

rs.close
set rs=nothing
conn.close
set conn=nothing
%>