📄 bdel.asp
字号:
<%@ language=vbscript %>
<%option explicit%>
<% on error resume next
dim conn,rs,sql,i,connstr
i=""
connstr="dbq=" & server.MapPath("mdb/bookshop.mdb") & ";driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from book order by id desc"
rs.Open sql,conn,3,2
'rs.MovePrevious
%>
<html>
<head>
<title>删除图书信息</title>
</head>
<body>
<br>
<form name="book" method="post" action="">
<table border="0" width="100%">
<tr>
<td width="100%"
style="BACKGROUND-COLOR: darkblue"><FONT color=white
style="BACKGROUND-COLOR: #00008b">图书管理(删除）</FONT></td>
</tr>
<% do while not (rs.eof or err)%>
<tr>
<td width="100%"
style="BACKGROUND-COLOR: cornsilk"><input type="checkbox" name="<%=rs(0)%>" value="on"><%=rs(1)%></td>
</tr>
<%rs.MoveNext
loop%>
<tr>
<td width="100%"
style="BACKGROUND-COLOR: cornsilk"><input type="submit" value="提交" name="B1"><input type="button" value="返回" name="B2" onclick="javascript:top.document.location='manage.htm'"></td>
</tr>
<tr>
<td width="100%"
style="BACKGROUND-COLOR: darkblue"> </td>
</tr>
</table>
</form>
</body>
</html>
<%dim n
if Request.ServerVariables("REQUEST_METHOD")="POST" then
rs.movefirst
do while not rs.eof
n=trim(cstr(rs("id")))
if request.form(n)="on" then
rs.delete
rs.update
end if
rs.movenext
loop
set rs=nothing
conn.Close
set conn=nothing%>
<script language="javascript">
alert ("你已经成功的删除了以上记录!")
document.location="bdel.asp"
</script>
<% end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -