delelist.asp

来自「不用注册也可以发言」· ASP 代码 · 共 21 行

<!--#include file="dbpath/dbpath.asp"-->
<%response.expires=0
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
%>