ACCESS与Asp是怎么连接的

给你一个完美点的，这是我三年前自己写的，支持Access和SQLServer，支持驱动、OLEDB、DNS三种连接方式

<%
On Error Resume Next

Dim Data_base
Data_base = 0 '1为MSSQLServer2000 其它为Access

Set Conn=Server.CreateObject("Adodb.Connection")

IF Data_base=1 Then
'-------------------------------------------------------------------------------------
Dim dbconn,dbip,dbdns,dbname,dbuid,dbpwd
dbconn = 1 '链接方式 1为OLEDB链接 2为驱动链接 3为DNS链接
dbip = "(local)" '数据库所在的IP地址，如果是本地数据库则为："(local)"
dbdns = "数据源DNS名称" '数据库DNS名
dbname = "MSOW" '数据库名称
dbuid = "sa" '数据库用户名
dbpwd = "********" '数据库密码
'-------------------------------------------------------------------------------------
Select CASE dbconn
Case 1
Conn.Open "Provider=SQLOLEDB;User ID="&dbuid&";Password="&dbpwd&";Ini