del.asp

来自「asp」· ASP 代码 · 共 33 行

<%response.expires=0%>
<!--#include file="conn.asp"-->
<%
userid=Session("userid")
userlevel=Session("userlevel")
if userid="" or userlevel="" then
  call msgbox("请重新登陆！",3)
end if
if not isnumeric(userid) or not isnumeric(userlevel) then
  call msgbox("请重新登陆！",3)
end if
id	=request("id")
if id="" then
  call msgbox("请确定要删除的文章！",1)
end if
if not isnumeric(id) then
  call msgbox("请确定要删除的文章！",1)
end if
sql="select top 1 filenum from article where id="&id
rs.open sql,conn,1,1
if not rs.eof then
  filenum=rs(0)
else
  rs.close
  call msgbox("该文章不存在！",1)
end if
rs.close

rs.open "delete from articlephoto where filenum='"&filenum&"'",conn,1,3
rs.open "delete from article where id="&id,conn,1,3

call msgbox("文章成功删除！","../article/default.asp?categoryid="&Session("categoryid"))
%>