📄 recordedit.asp
字号:
<!-- #include file="adovbs.inc" -->
<%
'取得要编辑记录的标识
edit=Request("editid")
'建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
'利用Provider属性设置Connection对象的提供者
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
'使用Connection对象的Open方法建立数据库的连接
Conn.Open Server.MapPath("BookSys.mdb")
'建立RecordSet对象
Set rsTest=Server.CreateObject("ADODB.RecordSet")
'利用Open方法打开指定的数据表，采用开放式锁定（AdLockOptimistic）
StrSql="Select * From BookCatalog Where 图书代码='"&edit&"'"
rsTest.Open StrSql,Conn,adOpenKeySet,adLockOptimistic
'获得指定的记录值
BookID=rsTest("图书代码")
Bookname=rsTest("图书名称")
BookConcern=rsTest("出版社")
Bookkind=rsTest("图书种类")
Author=rsTest("作者")
Price=rsTest("单价")
Amount=rsTest("库存数量")
%>
<html>
<head>
<title>图书数据修改</title>
</head>
<body>
<p> </p>
<p align="center"><font color="#0000FF" size="6" face="华文新魏"><strong>图书信息修改</strong></font></p>
<hr color="#0000FF" size="3">
<form action="Dataedit1.asp" method="post" name="frmBook" id="frmBook">
<% '隐藏类型的输入表单，向Dataedit.asp程序传递被修改的记录标识 %>
<Input type=hidden name=editid value="<% =edit %>">
<p> </p>
<div align="center">
<table width="39%" height="10" border="0">
<tr>
<td width="28%" height="10" bgcolor="#DFDFDF">
<div align="right"><font color="#000000" size="5" face="华文新魏">图书代码:</font></div></td>
<td width="72%"><input name="txtBookID" type="text" id="txtBookID" size="10" Value="<% =BookID %>"></td>
</tr>
<tr>
<td height="10" bgcolor="#DFDFDF">
<div align="right"><font size="5" face="华文新魏">图书名称:</font></div></td>
<td><input name="txtBookname" type="text" id="txtBookname" size="30" Value="<% =Bookname %>"></td>
</tr>
<tr>
<td height="10" bgcolor="#DFDFDF">
<div align="right"><font size="5" face="华文新魏">出版社:</font></div></td>
<td><select name="SelBookconcern" id="SelBookconcern">
<% '下一句显示该记录的表单值 %>
<option value="<% =Bookconcern%>"><% =bookconcern %></option>
<option value="科学出版社">科学出版社</option>
<option value="清华大学出版社">清华大学出版社</option>
<option value="人民邮电出版社">人民邮电出版社</option>
<option value="中国水利水电出版社">中国水利水电出版社</option>
<option value="人民文学出版社">人民文学出版社</option>
<option value="广东经济出版社">广东经济出版社</option>
<option value="高等教育出版社">高等教育出版社</option>
<option value="北方交通大学出版社">北方交通大学出版社</option>
<option value="大连理工大学出版社">大连理工大学出版社</option>
<option value="三联出版社">三联出版社</option>
<option value="希望电子出版社">希望电子出版社</option>
<option value="艺林出版社">艺林出版社</option>
</select></td>
</tr>
<tr>
<td height="10" bgcolor="#DFDFDF">
<div align="right"><font size="5" face="华文新魏">图书种类:</font></div></td>
<td><select name="SelBookkind" id="SelBookkind">
<option value="<% =Bookkind%>"><% =bookkind %></option>
<option value="计算机">计算机</option>
<option value="文学艺术">文学艺术</option>
<option value="法律">法律</option>
<option value="金融">金融</option>
<option value="机械设计">机械设计</option>
<option value="电子工程">电子工程</option>
<option value="金融">金融</option>
<option value="历史">历史</option>
<option value="体育">体育</option>
<option value="建筑设计">建筑设计</option>
</select></td>
</tr>
<tr>
<td height="10" bgcolor="#DFDFDF">
<div align="right"><font size="5" face="华文新魏">作者:</font></div></td>
<td><input name="txtAuthor" type="text" id="txtAuthor" Value="<% =Author %>"></td>
</tr>
<tr>
<td height="10" bgcolor="#DFDFDF">
<div align="right">
<p><font size="5" face="华文新魏">单价:</font></p>
</div></td>
<td><input name="txtPrice" type="text" id="txtPrice" Value="<% =Price %>"></td>
</tr>
<tr>
<td height="10" bgcolor="#DFDFDF">
<div align="right"><font size="5" face="华文新魏">库存数量:</font></div></td>
<td><input name="txtAmount" type="text" id="txtAmount" Value="<% =Amount %>"></td>
</tr>
</table>
<pre align="center"> </pre>
</div>
<div align="center">
<pre align="center"> <input type="submit" name="Submit" value="确 定"> <input name="reSet" type="reset" id="reSet" value="重 填"> </pre>
</div>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
</form>
<p align="center"><strong><font color="#0000FF" size="6" face="华文新魏"></font></strong></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -