news_js.asp

这是我根据动网新闻核心自行设计的校园新闻系统

<!--#include file="../news/news_class.asp" -->
var news;
news="";
<%
Dim category
category=Request.QueryString("categoryid")
If IsNull(category) Or category="" Or category="-1" Then
	category="-1"
else
	Set rs=Conn.execute("select categoryid from category where id="&category)
	category=rs(0)
	rs.close
End If
Dim ntype,num,templateid,rows,cols
ntype=Request.QueryString("type")
rows=Request.QueryString("rows")
cols=Request.QueryString("cols")
templateid=Request.QueryString("templateid")
Dim news
Set news=new LBNews
news.categorytype="新闻"
Set rs=Conn.execute("select code from template where id="&templateid)
Dim templatecode
templatecode=rs(0)
rs.Close

Set rs = Nothing
%>
news="<%=news.NewsList(category,ntype,rows,cols,templatecode)%>";
document.write(news);
<%
Set news=Nothing
%>