<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<!--#include file="error.asp"-->
<!--#include file="body/incjs.asp"-->
<!--#include file="body/top.asp"-->
<!--#include file="body/teachcat.asp"-->
<!--#include file="body/showteach_body.asp"-->
<!--#include file="body/foot.asp"-->
<%
stats="學(xué)校師資"
dim founderr,errmsg
founderr=false
errmsg=""

if request.querystring("teach_id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>請指定操作的對象！"
else
  if not isInteger(request.querystring("teach_id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的文章id參數(shù)。"
  end if
end if

if founderr then
  call diserror()
  response.end
else
call top()
rcount
call showteach_body()
call endpage()
end if

function rcount()

set rscount=conn.execute("select * from teach")
sql="UPDATE teach SET teach_count = teach_count + 1 where teach_id="&request.querystring("teach_id")
conn.execute (sql)
rscount.close
set rscount=nothing
end function
%>