delete.asp

来自「图书馆模拟管理系统,对里面的功能简单容易懂,一看就会,是学习asp的好东西!」· ASP 代码 · 共 33 行

<!--#include file="inc/conn.asp"-->
<%
dim bookid
bookid=trim(request.QueryString("bookid"))
if bookid="" then 
%>
<script language ="javascript">
alert("Wrong bookid");
</script>
<%
response.End()
end if
set rs=server.CreateObject("adodb.recordset")
strSQL = "select * from [book] where bookid='"&bookid& "'"
rs.open strSQL,conn,1,3
if rs.eof then
 %>
 <script language="javascript">alert("没有这本书");</script>
 <% 
 Response.redirect "book.asp" 
else
Response.Write "bookid"
    rs.delete
end if
rs.update
rs.close
set rs = nothing
%>
<script language="javascript">alert("成功删除！");</script>
<%
response.redirect "book.asp"
%>