1、asp连接access代码

Dim Conn,ConnStr
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data/db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
set rs=server.createobject("adodb.recordset")

2、asp连接sql2000代码

dim conn,dbuid,dbpwd,dBName,dbip,rs
'修改以下信息以适合你的网站
'---------------------------------------------------------------------------
 dbuid="sa"    '数据库登陆名
 dbpwd="123456"    '数据库密码
 dBName="hx"   '数据库名称
 dbip="(local)"   '数据库所在地址，如果是本地数据库则为：(local)
'---------------------------------------------------------------------------
set conn=Server.CreateObject("adodb.Connection")
Conn.Open  "PROVIDER=SQLOLEDB.1;Data Source="&dbip&";Initial Catalog="&dBName&";Persist Security Info=True;User ID="&dbuid&";Password="&dbpwd&";Connect Timeout=30"
set rs=server.createobject("adodb.recordset")