咋样连接数据库和网页acess?

咋样连接数据库和网页acess?
请指教！
---------------------------------------------------------------

1、连接数据库(假设你的数据库名是Data.mdb 库里有一个表Tb_UserName)

1   
2set conn=server.createobject("ADODB.Connection")   
3filepath=server.mappath("Data.mdb") '-------假设数据库文件是"Data.mdb"   
4conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & filepath   

2、查询数据库

1   
2set rs=server.createobject("ADODB.Recordset")   
3sql="select * from Tb_UserName"   
4rs.open sql,conn,1,1   

3、显示表里的数据

1   
2Response.Write "

<table border="1">"
Do While Not rs.Eof
For i=0 to Fields.Count-1
Response.Write "<tr><td>"
Response.Write rs(i)
Response.Write "</td></tr>"
Next
rs.MoveNext
Loop
Response.Write "</table>

1"   

好好研究吧！
---------------------------------------------------------------

连接ACCESS数据库的几种方法：
1.
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
SQL="select * from auth where id="" & user_id &"""
SET uplist=dbconnection.EXECUTE(SQL)

2.
set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id="" & user_id &"""
SET uplist=dbconnection.EXECUTE(SQL)

3.
DBPath = Server.MapPath("customer.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
" rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id="" & user_id &"""
session("rs").Open sql,connstr,1,3

4.
建odbc源xxx
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=;Database=customer

显示数据：
Response.write rs("字段名")