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

				var more="";
				
								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+"";
								Set news=Nothing
				%>
				document.write(more);