ACESS改为SQL后，CONN怎么改？

来源：百度知道 编辑：UC知道 时间：2024/06/27 03:16:14
数据库改成了SQL，下面是CONN的内容，敬请高手帮忙一下如何改：

<!--#include file="OptionDB.asp"-->
<%
Session.Timeout = 30
''On error resume next

Set UseDB = New OptionDB
''如果程序无法正常读取，请更改下面两列的路径
''usedb.halt "数据为升级中，暂时不能添加数据！",
UseDB.AdminPath = "lin\s\cn\admin\"
UseDB.Debug = true
UseDB.DBPath = "lin\s\cn\admin\db\da#%#ta.mdb"
UseDB.DBUid = "admin"
UseDB.DBPwd = ""
UseDB.DBSort = "access"
UseDB.OpenConn()
UseDB.CheckPower()
%>

<%

on error resume next

strSQLServer="数据库服务器的IP"
strSQLUser="用户名"
strSQLPassword="密码"
strSQLDataBase="数据库名"

connstr = "driver={SQL Server};server=" & strSQLServer & ";UID=" & strSQLUser & ";PWD=" & strSQLPassword & ";database=" & strSQLDataBase & ""
set conn = server.createobject("ADODB.CONNECTION")

if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>alert('创建 ADO 对象失败');</script>"
response.end
else
conn.open connstr

if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>alert('SQL Server 数据库连接失败');</script>"

response.end
end if
end if
%>

Data Source=;
Init