data_del_ad.asp

来自「新闻管理系统,管理员登陆后能够实现对新闻的添加,删除以及更新等功能,操作比较简单」· ASP 代码 · 共 25 行

<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<!--#include file="header.inc"-->
<%

dim ID
if session("status")="login" then
id=request("id")
set rs=conn.execute("select ID from newsdata where id="&id&"")
if rs.bof and rs.bof then
       errorstr="该主题不存在"
       errorbox(errorstr)
End If
rs.close
set rs=nothing
	Conn.Execute("delete from newsdata where id="&id&"")
    Conn.Execute("delete from Comment where dataid="&id&"")
Successstr="您所选定的记录以及相关评论已经成功的清除"
Successbox(Successstr)
Else
response.redirect "login.asp"
end if
%>