news_show.asp

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

<!--#include file="../news/news_class.asp" -->
<%
id=CInt(Request.QueryString("id"))
'判断文章所属栏目的模板设置
set rs=conn.execute("select template from newscategory where ctid=(select id from category where categorytype='新闻' and categoryid=(select categoryid from news where id="&id&"))")
if rs.eof then
	sql="select code from template where id="&ctemplate
elseif isnull(rs(0)) or rs(0)="0" then 	
	sql="select code from template where id="&ctemplate
else
	sql="select code from template where id="&rs(0)
end if	
rs.close
set rs=conn.execute(sql)
Dim showcode
showcode=rs(0)
Dim news
Set news=new LBNews
news.News_Show id,showcode
Set news=Nothing
%>