news_more.asp

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

var more="";
<!--#include file="../news/news_class.asp" -->
<%
If categoryid="" Or Request.QueryString("categoryid")="" Then
	categoryid="-1"
Else 
	categoryid=Request.QueryString("categoryid")
End If
If ntype="" Or Request.QueryString("ntype")="" Then
	ntype=""
else
	ntype=Request.QueryString("ntype")
End If
If Rows="" Or Request.QueryString("rows")="" Then
	Rows=30
else
	Rows=CInt(Request.QueryString("rows"))
End If
If Cols="" Or Request.QueryString("cols")="" Then
	Cols=1
else
	Cols=CInt(Request.QueryString("cols"))
End If
'读取模板
Dim showcode
Set rs=Conn.execute("select code from template where id="&cmoretemplate)
showcode=rs(0)
rs.close
Set rs = Nothing
Dim news
Set news=new LBNews
%>
more=more+"<%news.MoreList CategoryID,nType,Rows,Cols,showcode%>";
<%
Set news=Nothing
%>
document.write(more);