showart.asp

不错的asp论坛,大家可以看看啊和呵呵.

<!--#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/showart_body.asp"-->
<%
stats="精品文章"
dim founderr,errmsg
founderr=false
errmsg=""

if request.querystring("art_id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
else
  if not isInteger(request.querystring("art_id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的文章id参数。"
  end if
end if
if request.querystring("cat_id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
else
  if not isInteger(request.querystring("cat_id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的文章分类id参数。"
  end if
end if 

if founderr then
  call diserror()
  response.end
else
rcount
call showart_body()
end if

function rcount()
set rscount=conn.execute("select * from art")
sql="UPDATE art SET art_count = art_count + 1 where art_id="&request.querystring("art_id")
conn.execute (sql)
rscount.close
set rscount=nothing
end function
%>