📄 bupdate1.asp
字号:
<%@ language=vbscript %>
<%option explicit%>
<% on error resume next
dim conn,rs,sql,i,connstr
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,1,1
'rs.MovePrevious
%>
<html>
<head>
<title>选择要修改的图书</title>
</head>
<body>
<br>
<form name="book" method="post" action="bupdate2.asp">
<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="radio" name="bookchange" value="<%=rs(0)%>"><%=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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -