ASP源码

				
				
				
				
				
				
				
				
				
								stats="最新公告"
				dim founderr,errmsg
				founderr=false
				errmsg=""
				
				if request.querystring("news_id")="" then
				  founderr=true
				  errmsg=errmsg+""+"请指定操作的对象！"
				else
				  if not isInteger(request.querystring("news_id")) then
				    founderr=true
				    errmsg=errmsg+""+"非法的新闻id参数。"
				  end if
				end if
				
				if founderr then
				  call diserror()
				  response.end
				else
				call top()
				call news_nav()
				rcount
				call shownews_body()
				call endpage()
				end if
				
				function rcount()
				OPENnews  
				set rscount=conn.execute("select * from news")
				sql="UPDATE news SET news_count = news_count + 1 where news_id="&request.querystring("news_id")
				conn.execute (sql)
				rscount.close
				set rscount=nothing
				end function
				%>