connection2.asp

用asp查询数据库,使用了access的罗斯文商贸示例数据库。可以查出其中一张表的所有数据

<title>数据库连接</title>
<center><H4>显示数据库中标的内容</h4></center>
<hr>
where 运货商ID='"&Request.Form("last_name")&"'
<%
dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "netdsn"
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from 运货商 "
rs.Open sql, conn, 1, 1
With Response
  if rs.eof then
    Response.Write "现在数据库为空"
  else
    Response.Write "<table border=1 cellspace=0 cellpadding=5>" &_
    "<tr height=12><td width=50><b>运货商ID</b></td>" &_
    "<td width=100><b>公司名称</b></td>"&_
    "<td width=200><b>电话</b></td></tr>"
  end if
  do until rs.eof
    Response.Write "<tr height=12><td width=50>" & rs.Fields("运货商ID") & "</td>" &_
    "<td width=100>" & rs.Fields("公司名称") & "</td>" &_
    "<td width=200>" & rs.Fields("电话") & "</td></tr>"
    rs.MoveNext
  loop
  Response.Write "</table>"
end with
rs.close
Set rs=nothing
conn.close
Set conn=nothing
%>