📄 bupdate2.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")
dim temp
temp=Request("bookchange")
if temp="" then
temp=1
end if
sql="select * from book where id="
sql=sql & temp
rs.Open sql,conn,3,2
%>
<HTML>
<HEAD>
<TITLE>修改图书</TITLE>
</HEAD>
<BODY>
<br><br>
<form method="POST" action="bupdate3.asp?id=<%=rs(0)%>">
<table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#000080"><font color="#FFFFFF">图书修改</font></td>
</tr>
<tr>
<td width="100%" bgcolor="#FCFDEE">书 名<input type="text" name="book" size="20" value="<%=rs(1)%>">作者<input type="text" name="author" size="20" value="<%=rs(2)%>">单价<input type="text" name="price" size="12" value="<%=rs(3)%>">类别<input type="text" name="class" size="16" value="<%=rs(7)%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FCFDEE">出版社<input type="text" name="publish" size="20" value="<%=rs(4)%>">照片<input type="text" name="photo" size="20" value="<%=rs(6)%>">数量<input type="text" name="num" size="11" value="<%=rs(5)%>"></td>
</tr>
<tr>
<td width="100%" bgcolor="#FCFDEE"><textarea rows="11" name="memo" cols="91"><%=rs(8)%></textarea></td>
</tr>
<tr>
<td width="100%" bgcolor="#FCFDEE"><input type="button" value="返回" name="B1" onclick="javascript:top.document.location='blist.asp'"><input type="submit" value="更新" name="B2"></td>
</tr>
<tr>
<td width="100%" bgcolor="#000080"> </td>
</tr>
</table>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -