down.asp

来自「不错的asp论坛,大家可以看看啊和呵呵.」· ASP 代码 · 共 47 行

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/down_body.asp"-->
<%
stats="文件下载"
dim founderr,errmsg
founderr=false
errmsg=""

if request.querystring("cat_id")<>"" then
  if not isInteger(request.querystring("cat_id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的文件分类参数。"
  end if
end if
if request.querystring("class_id")<>"" then
  if not isInteger(request.querystring("class_id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的文件分类参数。"
  end if
end if
if request("page")<>"" then
  if not isInteger(request("page")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的文件分页参数。"
  end if
end if
if request("keyword")<>"" then
  if instr(request("keyword"),"'")>0 then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的文件搜索参数。"
  end if
end if

if founderr then
  call diserror()
  response.end
else
call head()
call menu()
call down_body()
call footer()
end if
%>