newshowtop.asp

可以做论坛

<!--#include file="conn.asp"-->
<!--#include file="sysinfo.asp"-->
<%
zxtei=spageshu-5
cczx="select top "&zxtei&" * from neirong  where zt=1 and shanzhu=0"
set rszxl=server.createobject("adodb.recordset")
cczx=cczx+" order by huitime desc"
rszxl.open cczx,conn,1,1
 if rszxl.eof then
newshowtop=newshowtop&"还没新贴"
		  else
		  do while not rszxl.eof
		      if len(rszxl("zhuti"))<18 then
			  zhuti=rszxl("zhuti")
			  else
			  zhuti=left(rszxl("zhuti"),16)&"…"
			  end if
			  if rszxl("html")=1 then 
newshowtop=newshowtop&"·<a href=jinghuau/"&rszxl("idl")&"/"&rszxl("ids")&".htm target=_self>"&zhuti&"</a><br>"			  
              else
newshowtop=newshowtop&"·<a href=../../show.asp?ids="&rszxl("ids")&">"&zhuti&"</a><br>"
		      end if
		  rszxl.MoveNext
          Loop
		  end if
		  rszxl.close
		  set rszxl=nothing
%>