ASP网页怎么连接数据库，谢谢

<% dim rs
class SetADO '建立类
public sub gerRs(rd,wt,list,form,term)
set rs=server.CreateObject("ADODB.Recordset")
sql="select "&list&" from "&form&term
rs.Open sql,conn,rd,wt
end sub
public sub CloseConn
conn.Close
set conn=nothing
end sub
End class '类结束
'ado.gerRs rs,1,3,"modo_id,modo_type","modo"," where modo_id="&num '参数(对象名,读类型，写类型，列名[列表]，表名，条件)
%>
应用的时候先将类实例化 ,并声明全局变量conn
dim conn
set ado=new setADO
然后就可以引用了
ado.getRs rs,1,3,"列名","表名","条件"
这样可以简化数据库连接操作。而不需要每次都去set rs=..,sql=..
了。

1. ASP与Access数据库连接：

<%
dim conn,mdbfile
mdbfile=server.mappath("数据库名称.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>

2. ASP与SQL数据库连接：

<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
%>

建立记录集对象：

set rs=server.createobject("adodb.recordset")
rs.open SQL语句,conn,3,2

dim connstr,DBPath,conn
DBPath="../../Databases/Database.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
set conn=Server.CreateObject("Adodb.Connection")
conn.open connstr

一般放页首
或者把
dim connstr,DBPath,conn
DBPath="../../Databases/Database.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
set conn=Server.CreateObject("Adodb.Connection")
放一个文件里调用

检查
1.sqlserver数据库的用户名密码是否正确
2.sqlserver是否只开启了windows认证
3.sqlserver是否允许远程连接