📄 browse.asp
字号:
<% @ language="vbscript"%>
<%
dim st1
st1=session("sqlstring1")
if st1="" then
Response.redirect("default.asp")
end if
dim db1,rs1
dim flag
flag=0
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>browse</title>
</head>
<body>
<div align=center>
<form action="sql2.asp" method=post>
<table border="1" align="center">
<caption>查询结果</caption>
<tr>
<th>书 号</th>
<th>书 名</th>
<th>作 者</th>
<th>定 价</th>
<th>选 择</th>
</tr>
<%
set db1=server.createobject("adodb.connection")
set rs1=server.createobject("adodb.recordset")
db1.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE= " & server.mappath("\bookstore\book.mdb")
rs1.open st1,db1
do until rs1.eof %>
<tr>
<td><%=rs1("书号")%></td>
<td><%=rs1("书名")%></td>
<td><%=rs1("作者")%></td>
<td><%=rs1("定价")%></td>
<td><input type=checkbox name="choose" value=<%=rs1("书号")%>></td>
</tr>
<% rs1.movenext
flag=flag+1
loop %>
</table>
<%
rs1.close
db1.close
%>
<% if flag=0 then %>
<p align="center"><font color="red">找不到你要的书，请确定查询条件是否正确。</font></p>
<% else %>
<input type="submit" name="edit" value="编辑">
<input type="submit" name="edit" value="删除">
<p align="center"><font color="red">找到<% =flag %>条记录</font></p>
</form>
</div>
<% end if %>
<h5 align="right"><a href="inquire.asp" target="main">重新查询</a></h5>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -