list3.asp

9seek 留言本源代码5.0版

<%
rem 精华按留言本方式查看
Set RS = Server.CreateObject("ADODB.RecordSet") 
rs.Open exec, Conn, 0, 1

do until rs.eof %>
<table border="0" width="650" cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#CCFFCC" align="center" class="table004" style="table-layout:fixed">
<tr class=table003>
<td>
	<table width=100% cellspacing=0 cellpadding=2 border=0 style="table-layout:fixed;word-break:break-all">
	<tr>
	<td width="25" > 
		<%if rs("jh")=1 then  %>
		<img border="0" src="images/jh.gif" align=absmiddle> 
		<%else%>
		<img align=absmiddle src=images/plus.gif> 
		<%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>
	<td width="150" align=right> 
		<%
		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">
		<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">&nbsp; </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>
<br>
<%
	rs.movenext
loop
rsclose()
connclose()
%>