delete.asp

来自「一个ASP做的政府网站的全站程序」· ASP 代码 · 共 24 行

<%@ LANGUAGE="VBSCRIPT" %>
<%
'限制非权限用户直接进行删除操作
if session("adminok")="" then
  response.redirect "login.asp"
end if
%>

<!--#include file="connect.asp"-->
<%
   dim sqlStr
      
   '利用从连接处返回的文章号ID对指定记录集的文章进行删除操作
	sqlStr="delete from tbl" & request("dbname")& " where id=" & request("ID")
	dataConn.Execute sqlStr
    
    dataConn.close
    set dataConn = nothing
   

   '当删除操作完毕后,自动转向管理页面   
   
   response.redirect  request("dbname") & ".asp?page=" & Cstr(request("backpage")) & "&column=" & request("column") & "&subcolumn=" & request("subcolumn") & "&type=" & request("type")
%>