newsmake.asp

静态新闻系统 88red静态新闻系统1.0经过精心打造正式推出

<!--#include file="session.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="Classmake.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from newsclass order by paixu"
rs.open sql,conn,1,1
if rs.eof then
kd1="暂时没有新闻栏目"
else
kd1="<table width=100% border=0 align=center cellpadding=0 cellspacing=0>"
do while not rs.eof
id1=rs("id")
name2=rs("newsclass")
name3=rs("name1")
set rs1=server.createobject("adodb.recordset")
sql1="select top 4 * from news where sort="+cstr(id1)+" order by id desc"
rs1.open sql1,conn,1,1
if not rs1.eof then	
do while not rs1.eof
kd12=kd12&"·<a href="&name3&"1.htm>["&name2&"]</a>  <a href=news/"&rs1("filename")&".htm target=_blank><font class=word1>"&rs1("title")&"</font></a><br>"
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
kd2=kd2&"<tr><td valign=top>"&kd12&"</td></tr><tr><td height=15></td></tr>"
kd12=""
rs.movenext
loop
kd2=kd2&"</table>"
end if
rs.close
set rs=nothing
kd=""&kd1&""&kd2&""

filename3="../lmmb.htm"
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f2= fso.OpenTextFile(server.mappath(""&filename3&""))
mb1=f2.ReadAll
f2.close
set f2=nothing
set fso=nothing

filename1="../news.htm"
set fso=server.createobject("scripting.filesystemobject")
set ffile=fso.createtextfile(server.mappath(""&filename1&""))	
mb1=replace(mb1,"[title]","新闻信息")
mb1=replace(mb1,"[biaozhi]",kd)
mb1=replace(mb1,"[bottom]",bottom)
call makeclass
ffile.write""&mb1&""
ffile.close
set ffile=nothing
set fso=nothing
		%>