以下是连接access数据库代码,如果要改成连接SQL数据库代码,应该怎么改?
SQL2005数据库实例名:newdata
数据库用户名:sa
密码:888888
<%
On Error Resume Next
c_type=1
if c_type =1 then
db="aaa/bbb.mdb"'这里修改数据库路径或名称
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open Connstr
else
ConnStr = "driver={SQL Server};server=.;uid=sa;pwd=;database=newdata"
'ConnStr = "Provider=SQLOLEDB.1;Password=888888;Persist Security Info=True;UserID=sa;Initial Catalog=9999;Data Source=127.0.0.1"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>