ACCESS转SQL数据库后，conn.asp需要怎么修改
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim db
const DatabaseType="ACCESS"
db="data/db1.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
你那是连ACCESS的代码，我给你连SQL的代码，如下：
SqlDatabaseName="数据库名" 'SQL使用的数据库名，请修改为你在SQL在的使用数据库名
SqlPassword="密码" '密码，请修改为你在SQL的据库名用户密码
SqlUsername="用户名" '用户名，请修改为你在SQL据库名的用户名
SqlLocalName="192.168.1.3" '服务器名，请修改为你主机中SQL的服务器名
'-----------------------------------------------------------------------------------------------------
connstr="driver={SQL Server};server="&SqlLocalName&"; uid="&SqlUsername&";pwd="&SqlPassword&"; database="&SqlDatabaseName&";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.commandtimeout=20
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错!请检查连接数据库的参数及字符串设置是否正确！</div>"
Response.End
End If