📄 delbook.asp
字号:
<%@ language=vbscript %>
<%option explicit%>
<% on error resume next
dim conn,rs,sql,i,connstr
i=""
set conn=server.CreateObject("adodb.connection")
conn.Open Application("strConn")
set rs=server.CreateObject("adodb.recordset")
sql="select * from book order by bookid"
rs.Open sql,conn,3,2
if Request.ServerVariables("content_length")=0 then
%>
<html>
<head>
<title>删除图书信息</title>
</head>
<body bgcolor=Honeydew topmargin=0>
<form name="book" method="post" action="<%=Request.ServerVariables("script_name")%>">
<table border="0" width="100%">
<tr>
<td style="BACKGROUND-COLOR: darkblue" colspan=6>
<FONT color=white style="BACKGROUND-COLOR: #00008b"><font color=red>海鸟友好提示：</font>在你删除前请慎重考虑</FONT>
</td>
</tr>
<tr style="BACKGROUND-COLOR: cornsilk">
<th>标记</th>
<th>图书编号</th>
<th>图书类型</th>
<th>图书名称</th>
<th>作者</th>
<th>出版社</th>
</tr>
<% do while not (rs.eof or err)%>
<tr style="BACKGROUND-COLOR: cornsilk">
<td width=50 align=center>
<input type="checkbox" name="<%=rs(0)%>" value="on">
</td>
<td align=center> <%=rs(0)%> </td>
<td align=center> <%=rs(1)%> </td>
<td align=center> <%=rs(2)%> </td>
<td align=center> <%=rs(4)%> </td>
<td align=center><%=rs(5)%> </td>
</tr>
<%rs.MoveNext
loop%>
<tr>
<td colspan=6
style="BACKGROUND-COLOR: cornsilk"><input type="submit" value="删除" name="B1"><input type="button" value="放弃" name="B2" onclick="javascript:document.location='管理员页面.htm'"></td>
</tr>
<tr>
<td style="BACKGROUND-COLOR: darkblue" colspan=6> </td>
</tr>
</table>
</form>
</body>
</html>
<%dim n
else
rs.movefirst
do while not rs.eof
n=trim(cstr(rs(0)))
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="delbook.asp"
</script>
<% end if %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -