aspASP数据库连接代码，ASP连接SQL数据库，ASP连接ACCESS数据库

=== SQL====
Session.CodePage=936 '强制GB2312格式输出 
Response.Buffer = True  
Response.ExpiresAbsolute = Now() - 1  
Response.Expires = 0  
dim conn
dim connstr

Set conn = Server.CreateObject("ADODB.Connection")

 '本地数据库写法 connstr = "driver={SQL Server};server=(local);UID=数据库账号;PWD=数据库密码;database=数据库名称"

connstr = "driver={SQL Server};server=106.14.42.118;UID=数据库账号;PWD=数据库密码;database=数据库名称" 
conn.Open connstr

sub closeConn()
conn.close()
set conn=nothing
end sub


---------------------------------------------------


=== ACCESS =====

dim conn
dim connstr
dim db
db="/data/#3Co6Qs3Rx8Dl.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbACC)
conn.Open connstr

---------------------------------------------------