newjs.asp

生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序

<%Response.Buffer=true%>
<!--下面是调用方法:其中shu=10这个数字10用来控制首页显示的新闻条数,max=10则是用来控制每条新闻显示的字数,你可以自行修改-->
<!-- 代码开始:<script language="JavaScript" src="你的程序所在http目录/newjs.asp?shu=10&max=10"></script>代码结束 -->
<!-- 如果你在使用的时候有什么问题,请和我联系,主页地址: http://www.nxbbs.com 联系email: [e-mail] QQ: 1776354 -->
<!--#include file="Connections/news.asp" -->
<%
dim shu,news,max,rs,sql,url,conn
url="http://www.nxbbs.com/news" '请修改你的程序所在目录,结尾不要带"/"号
if request.querystring("max")="" or request.querystring("max")=0 then
max=10
else
max=CINT(request.querystring("max"))
end if
if request.querystring("shu")="" or request.querystring("shu")=0 then
shu=10 '显示数量
else
shu=CINT(request.querystring("shu"))
end if

Set conn = Server.CreateObject("ADODB.Connection")
  conn.Open MM_news_STRING
   set rs=server.createobject("adodb.recordset")
   sql ="SELECT * FROM news ORDER BY n_id DESC"
rs.open sql,conn,1,1	
if rs.eof and rs.bof then %>
     document.write('
<p align="center">对不起,暂时还没有新闻</p>
');
 <% else  
	news=1
do while not rs.eof
	id=rs("n_id")
    title=replace(rs("n_title"),"'"," ")
    data=rs("n_data")
    hit=rs("n_hit")
    i=rs("n_i")
    com=rs("n_com")
%>
document.write('<table width="100%" height="15" border="0" cellspacing="0" cellpadding="0"><TR><TD><%if data>=date() then Response.Write("<image src="&url&"/images/arrow1.gif>") else Response.Write("<image src="&url&"/images/arrow.gif>") end if%>&nbsp;<%if i=true then Response.Write("<font color=#ff0000>[图文]</font>")%><A HREF=<%=url%>/detail.asp?n_id=<%=id%> title="<%=title%> (<%=hit%>次) " target="_blank"><%if len(title)>max then%><%=left(title,max)%>...<%else%><%=title%><%end if%></a><%if com=true then Response.Write("<font color=#ff0000>[推]</font>")%></TD></TR></table>');						
<%    news=news+1
     if news>shu then exit do 
      rs.movenext 
     	loop 
        end if
	Rs.Close
set Rs=nothing
%>