admin_newsidchk.asp

庐江二中

<!--#include file="session.asp"-->
<%checkAdmin1%>
<!--#include file="conn.asp"-->
<%
founderr=false
dim newsid
newsid=request("NewsID")
if newsid="" then
	errmsg=errmsg+"<li>没有输入文章ID号！"
	founderr=true
end if


if not IsNumeric(newsid) then
	errmsg=errmsg+"<li>输入的不是数字！"
	founderr=true
end if

if founderr=true then
	call error()
else

sql="select NewsID from News where NewsID=" &newsid
rs.Open sql,conn,1,1
if rs.EOF then
	errmsg=errmsg+"<li>该文章不存在！"
	founderr=true
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing

if founderr=true then
	call error()
else
	button_value=trim(Request.Form("alert_button"))
	if button_value="修改" then Response.Redirect ("admin_NewsModify.asp?NewsID="& newsid)
	if button_value="删除" then Response.Redirect ("admin_NewsDel.asp?NewsID="& newsid)
end if
end if
%>