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

给你提供一个我自己写的吧,三行，从做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检测不是那么严格的。

Private Sub Command1_Click()

Dim A As String

A = App.Path + "\ACCESS文件.mdb"

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &A &"Persist Security Info=False"

Adodc1.RecordSource = "SELECT * FROM 用户表 WHERE 用户名='" + 用户名 + "' AND 密码='" + 密码 + "'"

Adodc1.Refresh

If OT Adodc1.Recordset.EOF Then

主切面.Show

Me.Hide

Else

MsgBox ("用户名或密码错误!请重新输入!")

Me.用户名 = ""

Me.密码 = ""

'清空文本框内容

End If

End Sub

' 上面是登陆，把ACCESS建立在VB工程一个文件夹里取相对的路径

下面是注册用户表：

Private Sub Command2_Click()

Dim A As String

A = App.Path + "\ACCESS文件.mdb"

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &A &"Persist Security Info=False"

Adodc1.RecordSource = "SELECT * FROM 用户表 "

Adodc1.Refresh

If OT Adodc1.Recordset.EOF Then

Adodc1.recordset.AddNew

Adodc1.recordset.fields("用户名")=文本框1

Adodc1.recordset.fields("密码")=文本框2

.....................

Adodc1.recordset.update

文本框1=""

文本框2=""

......

文本框1.setfocus

ELSE

文本框1=""

文本框2=""

.....

文本框1.setfoucus

end if

end sub

---