ASP连接Access数据库的几种方法

<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/jb51/news.asp"
SqlNowString="Now()"
ystr=true
nstr=false
suiji="rnd(id)"
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer="wwwjb51net" '数据库服务器IP
DataUser="jb51net" '访问数据库用户名
DataBaseName="jb51net" '数据库名称
DataBasePsw="密码" '访问数据库密码
SqlNowString="getdate()"
ystr=1
nstr=0
suiji="newid()"
End if
On Error Resume Next
If DataBaseType=1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn=Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End
%>