category_list.asp

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

<!--#include file="news_class.asp" -->
var a="<%
Dim ct
Set ct=new LBNews
Dim c
Dim categoryid
categoryid=Request.QueryString("categoryid")
If IsNull(categoryid) Or categoryid="" Then
	categoryid="-1"
End If
Dim ntype
ntype=Request.QueryString("ntype")
If IsNull(ntype) Or ntype="" Then
	ntype="v"
End If
Dim url
url=Request.QueryString("url")

c=ct.GetNextCategoryID(categoryid,ntype,url)
c=Replace(c,""&""""&"","\"&""""&"")
c=Replace(c,chr(10),"")
c=Replace(c,Chr(13),"")
Response.Write c
Set ct=Nothing

%>";
document.write(a);