急盼高手指教-如何将access数据库和asp连起来呢？？？up者送分!!!

大侠们给小弟指条活路吧，谢谢~~~~~
---------------------------------------------------------------

 1   
 2option explicit   
 3'response.buffer=true   
 4dim conn   
 5dim connstr   
 6dim db   
 7db="../news/article.mdb"   
 8Set conn = Server.CreateObject("ADODB.Connection")   
 9connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)   
10on error resume next   
11conn.Open connstr   
12if err.number <>0 then   
13err.Clear   
14Response.Write "数据库链接错误！"   
15end if

---------------------------------------------------------------

8.dsn 连接access
set conn = server.createobject("adodb.connection")
Conn.Open "dsn=sms;uid=admin;pwd=;"

9.filedsn连接access
set conn = server.createobject("adodb.connection")
Conn.Open "filedsn=c:\sms.dsn;"

10.直接相连access

 1   
 2dim conn   
 3dim connstr   
 4dim db   
 5db="C:\Inetpub\wwwroot\sms\cdr.mdb"   
 6Set conn = Server.CreateObject("ADODB.Connection")   
 7connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&db   
 8on error resume next   
 9conn.Open connstr   
10if err.number <>0 then   
11err.Clear   
12Response.Write "数据库链接错误！"   
13end if

---------------------------------------------------------------

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("aspfree.mdb")

set conn = server.createobject("adodb.connection")

conn.open strconn

---------------------------------------------------------------

 1   
 2dbname="../data/other.mdb" '数据库文件的名字，可以是任何有效名字，可以包含路径，例如db/news.mdb   
 3'==========设定结束，以下不用修改，除非你知道怎么修改=============   
 4dim conn   
 5dim connstr   
 6'on error resume next   
 7connstr = "DBQ=" + server.mappath(dbname) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"   
 8set conn=server.createobject("ADODB.CONNECTION")   
 9if err.number<>0 then   
10err.clear   
11set conn=nothing   
12response.write "数据库连接出错！"   
13Response.End   
14else   
15conn.open connstr   
16if err then   
17err.clear   
18set conn=nothing   
19response.write "数据库连接出错！"   
20Response.End   
21end if   
22end if   
23  
24sub endConnection()   
25conn.close   
26set conn=nothing   
27end sub   
28

---------------------------------------------------------------

http://expert.csdn.net/Expert/topic/1865/1865987.xml?temp=.4806482
---------------------------------------------------------------

dbpath="../news/article.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
上面是连接语句。
一般来说，用的最多的是recordset对象
set rs=server.createobject("adodb.recordset")
sql="..."
rs.open sql,conn,1,3
---------------------------------------------------------------

up
---------------------------------------------------------------

都很好用的.
---------------------------------------------------------------

 1   
 2dim conn   
 3dim connstr   
 4dim db   
 5dim rs   
 6db="#data_base.mdb"   
 7'连接数据库   
 8Set conn = Server.CreateObject("ADODB.Connection")   
 9connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&db&"")   
10conn.Open connstr   
11set rs=server.CreateObject("adodb.recordset")   
12'Close DataBase connection   
13Function close_db   
14rs.close   
15set rs=nothing   
16conn.close   
17set conn=nothing   
18End Function

---------------------------------------------------------------

取下载几本书看看吧
---------------------------------------------------------------

up
---------------------------------------------------------------

懒得up
---------------------------------------------------------------

随便搜一下，多的是！csdn也有不少
---------------------------------------------------------------

dim conn
dim connstr
dim db
db="../news/article.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr

---------------------------------------------------------------

第一种:
dim conn
dim connstr
on error resume next
set conn=server.createobject("ADODB.CONNECTION")
connstr="DBQ="+server.mappath("db.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
第二种:
dim conn
dim connstr
dim db
db="article.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
---------------------------------------------------------------

都被说了... 我没的说了。...UP
---------------------------------------------------------------

UP
---------------------------------------------------------------

上面的说了，我也只能up了。
---------------------------------------------------------------

我也只有UP了
---------------------------------------------------------------

up too