asp连接数据库SQLSERVER

来源：互联网发布：程序员的职业素养编辑：程序博客网时间：2024/06/10 05:48

strconn = "Driver={SQL Server};Description=sqldemo;SERVER=服务器或IP;UID=用户名ID;PWD=密码;DATABASE=数据库名"
set conn = server.createobject("adodb.connection") 
conn.open strconn

'连接数据库，默认数据库是关闭的，调用时要先打开

Dim WebsiteURL

WebsiteURL = "../"'定义网站录目

Dim Conn

Private Sub ConnOpen()

set Conn=server.createobject("ADODB.connection")

Conn.ConnectionString ="Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名或ID;Initial Catalog=数据库名;Data Source=本机IP或PC名;Connect Timeout=15"

Conn.Open

'db=server.mappath("../#database#/#database#.mdb")

'set conn=server.createobject("adodb.connection")

'conn.open "driver={microsoft access driver (*.mdb)};pwd=;dbq="&db '没有密码

'conn.open "Provider = Sqloledb;User ID=sa;Password=sa;Initial Catalog =text;Data Source =local"

End Sub

Private Sub ConnClose()

If Not (Conn Is Nothing) Then

Conn.Close : Set Conn = Nothing

End If

End Sub