list1.asp

9seek 留言本源代码5.0版

<%
rem 按留言本方式查看

'Set RS = Server.CreateObject("ADODB.RecordSet") 
set rs=conn.execute(exec)
do until rs.eof %>
<table border="0" style="table-layout:fixed" width="650" cellspacing="0" cellpadding="3" bordercolorlight="#000000" bordercolordark="#CCFFCC" align="center" class="table004">
 <tr>
 <td class=table003>
	 <table width=100% border=0 cellspacing=0 cellpadding=2 style="table-layout:fixed;word-break:break-all">
		 <tr>
		  <td width="25"> 
			<%
			if rs("istop")=1 then
				response.write "<img border=0 src=images/istop.gif align=absmiddle alt=固顶>" 
			elseif rs("jh")=1 then
				response.write "<img border=0 src=images/jh.gif align=absmiddle alt=精华>" 
			elseif rs("islock") then
				response.write "<img border=0 src=images/islock.gif align=absmiddle alt=锁定>" 
			else
				response.write "<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="210" 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">
		<tr> 
		<%
		userNameFace showFace,rs("name"),rs("face"),rs("male"),rs("bl"),isMaster(rs("name"))
		%>
		
		<td valign=top class="jnfont3" style="letter-spacing:1px;line-height:140%">
		<%
		response.write ubbcode(rs("nei"))
		
		if rs("hf")>0 then
			exec="select top 1 * from ly where rt="&rs("id")&" order by id desc"
			set rs1=conn.execute(exec)
			if not rs1.eof then %>
			  <table width=98% align=right class=table002 cellpadding="5" cellspacing="0">
			   <tr>
				<td width="450"> <b>最后回复：</b><img src=images/<%=rs1("pic")%> align=absmiddle> 
				 <%=rs1("title")%></td>
				<td width=150> 回复人： 
			<% response.write rs1("name")
			if rs1("bl")=1 then
				if isMaster(rs1("name")) then
					response.write "<img border=0 src=images/bz.gif title=版主>"
				else
					response.write "<img border=0 src=images/bl.gif title=注册用户>"
				end if
			end if%>
				</td>
			   </tr>
			   <tr>
				<td colspan=2 style="line-height:140%"><%=ubbcode(rs1("nei"))%> </td>
			   </tr>
			  </table>
			  <%	end if
		end if %>
		 </td>
		</tr>
	</table>
	
	<table width=100% >
		<tr> 
		 <td width="45%" class="jnfont6">
			<img align=absmiddle src=images/reply.gif>
			<% if rs("hf")>0 then %>
			<a href="show.asp?id=<%=rs("id")%>">查看全部回复</a>(<%=rs("hf")%>)
			<% else %>
			<a href="show.asp?id=<%=rs("id")%>#re">回复该留言</a>
			<% end if %>
		 </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
if isobject(rs1) then
	rs1.close
	set rs1=nothing
end if
rsclose()
connclose()
%>