Question

用ASP写的连接ACCESS数据库网站的源代码？

帮忙给我提供一个能运行的

Answer 1

给你提供一个我自己写的吧,三行，从做ASP那天起我就用这三行打遍天下了。希望对你有所参考，网上那些编的连接都是由网络公司出的，有他们的优点，但不够简洁，以下是代码和注释。

<%
Set conn=Server.CreateObject("ADODB.Connection") //创建数据库连接对象 conn
conn.provider="Microsoft.Jet.OLEDB.4.0" //指定数据库驱动类型
conn.Open Server.MapPath("cooshlion.mdb") //打开数据库，请注意与你的数据库位置对应，如果不在当前目录下，请用../相对路径方式
%>

试试吧，将这行代码保存成一个ASP文件，然后建立一个空数据库cooshlion.mdb，再执行一下这个文件，不报错，那就可以了，成功连上，至于关不关闭对象，说老实话，VBScript检测不是那么严格的。

Answer 2

<%
dim conn,connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("*.mdb")
<!--上一行最后写上你的数据库路径-->
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
if Err then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp中的数据库指向。"
Response.End
end if
%>
将上面的内容保存为conn.asp

Answer 3

数据库链接有两种方式 1.DNS链接 这个是在自己服务器上用的不做介绍有空可以去看下
因为现在基本都是租的服务器空间 所以绝大部分都是采用的第二种方式
2.链接字符串 <%db="ndb1.mdb"
set conn = server.CreateObject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath(""&db&"")
conn.open connstr%>

Answer 4

<%
dim conn,db
dim connstr
db="db/com02.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>