list1.asp

来自「人民医院眼科全站」· ASP 代码 · 共 148 行

<%
rem 按留言本方式查看

set rs=conn.execute(exec)
if not (rs.eof and rs.bof) then
	arr=rs.getrows(,,"reid")
	for i=0 to ubound(arr,2)
		exec1=exec1& arr(0,i)&","
	next
	rs.movefirst
	exec1=left(exec1,len(exec1)-1)
	exec1="select "& sqlCol &" from ly where id in ("& exec1 &") and rt<>0"
	set rs1=conn.execute(exec1)
end if


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(15)=1 then
				response.write "<img border=0 src=images/istop.gif align=absmiddle alt=固顶>" 
			elseif rs(12)=1 then
				response.write "<img border=0 src=images/jh.gif align=absmiddle alt=精华>" 
			elseif rs(20) 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 funKillword(rs(1))
		  	if not showFace then
		  		userNameNoFace rs(5) ,rs(13),isMaster(rs(5))
		  	end if
		  	%>
		  </td>
		  <td width="210" align=right > 
			 <img align=absmiddle src=images/reply.gif><a href="show.asp?id=<%=rs(0)%>#re">回复</a> 
			 <%
			 userEmail(rs(7))
			 userIcq(rs(21))
			 userMsn(rs(22))
			 userQQ(rs(8))
			 userUrl(rs(6))
			 %>&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> 
		<%
		if showFace then
			userNameFace rs(5),rs(18),rs(17),rs(13),isMaster(rs(5))
		end if
		%>
		
		<td valign=top class="jnfont3" style="letter-spacing:1px;line-height:140%">
		<%
		response.write ubbcode(rs(2))
		
		if rs(11)>0 then
			'exec="select top 1 * from ly where rt="&rs("id")&" order by id desc"
			'set rs1=conn.execute(exec)
			rs1.filter="rt="&rs(0)
			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(9)%> align=absmiddle> 
				 <%=funKillword(rs1("title"))%></td>
				<td width=150> 回复人： 
			<% response.write rs1(5)
				if rs1(13)=1 then
					if isMaster(rs1(5)) 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(2))%> </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(11)>0 then %>
			<a href="show.asp?id=<%=rs(0)%>">查看全部回复</a>(<%=rs(11)%>)
			<% else %>
			<a href="show.asp?id=<%=rs(0)%>#re">回复该留言</a>
			<% end if %>
		 </td>
		 <td width="37%" align="right" class="jnfont6"> [ 发表时间：<%=rs(3)%> ]
		 </td>
		 <td width="18%" align="right"> 
			<% if theUser.reged then %>
			<a href="edit.asp?id=<%=rs(0)%>"><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(0)%>"><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(0)%>" >
			<% 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()
%>