📄 data_del_ad.asp
字号:
<!--#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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -