news.asp

来自「功能强大的一个b/s工作站」· ASP 代码 · 共 36 行

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<!--#include file="error.asp"-->
<!--#include file="lib/incjs.asp"-->
<!--#include file="lib/inctop.asp"-->
<!--#include file="lib/news_body.asp"-->
<!--#include file="lib/nav.asp"-->
<!--#include file="lib/incfooter.asp"-->
<%
stats="杂七零八"
dim founderr,errmsg
founderr=false
errmsg=""
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的新闻分页参数。"
  end if
end if
if request("type")<>"" then
  if not isInteger(request("type")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的新闻显示参数。"
  end if
end if

if founderr then
  call diserror()
else
call top()
call news_nav()
call news_body()
call endpage()
end if
%>