makenews.asp

if you want it,call me.

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<%
'=======================================
'88red科技独立开发完成本程序，并提供免费技术支持与升级服务
'官方网站 http://www.88red.com    QQ:8375158  TEL:[phone]
'对于商业客户，本站提供细致周到的各项售后服务；对于盗版客户恕不提供，对于散播本程序者本站将追究其法律责任
'88red科技将陆续开发其他各种先进程序，例如企业网站建站系统等等，对老客户购买其他程序给予最大程度的优惠，欢迎洽谈
'=======================================
     set rs=server.createobject("adodb.recordset")
	 sql="select * from news order by id desc"
	 rs.open sql,conn,1,1
	 if rs.eof then
	 response.write"数据库里面没有新闻!"
	 response.end
	 else
	 total1=rs.recordcount
	 set rs1=server.createobject("adodb.recordset")
	 sql1="select top 1 * from mb order by id desc"
	rs1.open sql1,conn,1,1
	mb1=rs1("newsmb")
	rs1.close
	set rs1=nothing
	 set fso=server.createobject("scripting.filesystemobject")
	 i=0
	 do while not rs.eof
	 i=i+1	
	filename1="../news/"&rs("filename")&".htm"
	set ffile=fso.createtextfile(server.mappath(""&filename1&""))
	title=rs("title")
	addman=rs("pname")
	content=rs("body")
	adddate=rs("date")
	mb1=replace(mb1,"[title]", title)
	mb1=replace(mb1,"[pname]", addman)
	mb1=replace(mb1,"[body]", content)
	mb1=replace(mb1,"[date]", adddate)	
	ffile.write""&mb1&""
	ffile.close
	set ffile=nothing
	response.write"<br>已生成"&i&"/"&total1&"条<br>"
	rs.movenext
	loop
	set fso=nothing
	end if
	rs.close	
	set rs=nothing
	response.write"<script language=javascript>alert('新闻生成成功');this.location.href='newsmb.asp';</script>"
	%>