UC知道SOS 很急 考试用 希望热心人帮忙，感激不尽 asp的
来源：百度知道 编辑：UC知道 时间：2024/09/20 22:24:52
试编写ASP页面，利用OLE DB连接字符串连接到图书数据库Book.mdb,并将数据库中记录图书信息的表Books中所有图书信息的关键字段项BookID的值以列表项的方式在页面上进行显示。（假设book.mdb存放于C:\inetpub\wwwroot文件夹下）
<!--#include file="adovbs.inc"-->
<% Response.Buffer = True %>
<HTML><TITLE> t.asp</TITLE>
<%
%>
<Body ><BR><Center><H2>书籍查询</H2><HR>
<FORM NAME="Main" METHOD=POST ACTION="right.asp" TARGET="Right">
<B>图书编号:</B><SELECT NAME="BookID">
</SELECT>
<p><INPUT TYPE="submit" NAME="Search" value=" 查 询 ">
</FORM>
</Center></BODY></HTML>
<!--#include file="adovbs.inc"-->
<% Response.Buffer = True %>
<HTML><TITLE> t.asp</TITLE>
<%
%>
<Body ><BR><Center><H2>书籍查询</H2><HR>
<FORM NAME="Main" METHOD=POST ACTION="right.asp" TARGET="Right">
<B>图书编号:</B><SELECT NAME="BookID">
</SELECT>
<p><INPUT TYPE="submit" NAME="Search" value=" 查 询 ">
</FORM>
</Center></BODY></HTML>
<!--#include file="adovbs.inc"-->
<% Response.Buffer = True %>
<HTML><TITLE> t.asp</TITLE>
<%
db = C:\inetpub\wwwroot/book.mdb"
Set conn = Server.CreateObject("adodb.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db &";Persist Security Info=False"
set conn = server.CreateObject("adodb.Connection")
conn.open connstr
%>
<Body ><BR><Center><H2>书籍查询</H2><HR>
<FORM NAME="Main" METHOD=POST ACTION="right.asp" TARGET="Right">
<B>图书编号:</B><SELECT NAME="BookID">
<%set rs=server.createobject("adodb.recordset")
sql="select BookID from books order by BookID desc"
rs.open sql,conn,1,1
for i=1 to rs.recordcount%>