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

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