asp连接数据库收藏

本人整理asp连接数据库文件,直接命名为connstring.asp,用其他文件包含此文件并设置好以下信息就可以使用:

 

<%
sqltypes=2  '1为Access,2为sql
datebasepathAndname="newtianbo#$%@"  '数据库名字和路径,

'Access数据库
if sqltypes=1 then
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(datebasepathAndname)
elseif sqltypes=2 then
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open "DRIVER={SQL Server};SERVER=127.0.0.1;UID=sa;PWD=sa;DATABASE="&datebasepathAndname&""
end if
%>