bview.asp
来自「在线图书销售系统」· ASP 代码 · 共 57 行
ASP
57 行
<%@ 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="bupdata.asp">
<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="14" 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'"></td>
</tr>
<tr>
<td width="100%" bgcolor="#000080"> </td>
</tr>
</table>
</form>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?