m12螺栓标准:怎样用asp把ACCESS中的数据提出来并显示在网页中

来源:百度文库 编辑:神马品牌网 时间:2024/04/20 15:21:35
怎样用asp把ACCESS中的数据提出来并显示在网页中

库名 db1.mdb
表名 youxi01
字段名 yxq

<% set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("db1.mdb")
conn.open
set rs=server.createobject("adodb.recordset")
rs.open "youxi01",conn,1,1,2
response.write "<table border=1>"
response.Write "<tr>"
FOR I=0 to rs.fields.count-1
response.Write "<td>"&rs.fields(i).name
next
do while not rs.eof
response.Write "<tr>"
for i=0 to rs.fields.count-1
response.write "<td>"&rs.fields(i).value
NEXT
rs.movenext
loop
response.Write "</table>"
rs.close
set rs=nothing
set conn=nothing
%>

Set Conn= Server.CreateObject("ADODB.Connection")
Connstr="Provider=microsoft.jet.OLEDB.4.0;data source="&Server.MapPath("db1.mdb")&";
Conn.Open connstr
set rs=conn.execute("select yxq from youxi01")
response.write rs("yxq")
数据库要和这个ASP文件在一个目录下

Set Conn= Server.CreateObject("ADODB.Connection")
Connstr="Provider=microsoft.jet.OLEDB.4.0;data source="&Server.MapPath("db1.mdb")&";
Conn.Open connstr
set rs=conn.execute("select yxq from youxi01")

while not rs.eof
response.write rs("yxq")
rs.movenext
wend

rs.close
set rs=nothing
conn.close
set conn=nothing

<%@ Language="JScript" %>
<%
//*******************
//RecordSet对象读取显示数据
//*******************
%>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
</head>
<body>
<%
Conn = Server.CreateObject("ADODB.Connection");
Conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" +Server.MapPath("db1.mdb"));

//==============================
Rs = Server.CreateObject("ADODB.Recordset");
sql = "Select * from youxi01";
Rs.Open(sql, Conn, 3);
Response.Write(Rs.RecordCount+"fff<br>");
//=============================
/*
Rs.AbsolutePosition =1;
Move(int,start);
Rs.Move(1,0);
Rs.MoveFirst();
Rs.MoveNext();
Rs.MovePrevious();
Rs.MoveLast();
*/
//=============================
Response.Write(":"+Rs(" yxq"));
Conn.Close();
%>

</body>
</html>