delelist.asp

来自「这是一个功能基本完善的系统」· ASP 代码 · 共 19 行

<!--#include file="dbpath.asp"-->
<%response.buffer=true
if request.cookies("loginok")="" then
  response.redirect "login.asp"
end if

%>
<%
   dim delesql
   dim useridtxt
   dim pagetxt
   useridtxt = Request("userid")
   pagetxt = Request("cpage")
   delesql="DELETE FROM Book WHERE id=" & useridtxt
   conn.Execute delesql
   set conn=nothing
   response.redirect "manage.asp?page=" & pagetxt
%>