news_more.asp

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

var more="";
<!--#include file="../news/news_class.asp" -->
<%
If Request.QueryString("categoryid")="" or Request.QueryString("categoryid")="-1" Then
	categoryid="-1"
Else 
	categoryid=Request.QueryString("categoryid")
	Set rs=Conn.execute("select categoryid from category where id="&categoryid)
	category=rs(0)
	rs.close
	categoryid=category
End If

If Request.QueryString("ntype")="" Then
	ntype=""
else
	ntype=Request.QueryString("ntype")
End If
If Request.QueryString("rows")="" Then
	Rows=30
else
	Rows=CInt(Request.QueryString("rows"))
End If
If Request.QueryString("cols")="" Then
	Cols=1
else
	Cols=CInt(Request.QueryString("cols"))
End If
'读取模板
Dim showcode
Dim template
templateid=Request.QueryString("templateid")
If IsNull(templateid) Or templateid="" Then
	%>
	more=more&"模板出错,请选择设定模板";
	<%
else

Set rs=Conn.execute("select code from template where id="&templateid)
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
End If
%>
document.write(more);