ACC数据库转SQL的连接文件怎么修改

<%
&#39;==================数据库路
Dim DatabasePath
DatabasePath=\"admin/SQLData/GM_Data.mdb\"
&#39;==================数据库连接
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject(\"Adodb.Connection\")
ConnStr=\"rovider=Microsoft.Jet.OLEDB.4.0;Data Source=\"&Server.MapPath(DatabasePath)
Conn.open ConnStr
if err then
err.clear
Set Conn = Nothing
Response.Write \"数据库连接出错
请检查数据库连接文件中的数据库参数设置
\"
Response.End
end if
%>
问题补充：
数据库配置文章换成了一面的
怎么运行网站出现这个问题
\">
Active Server Pages 错误 &#39;ASP 0113&#39;

脚本超时

/index.asp

超过了脚本运行的最长时间
可以为 Server.ScriptTimeOut 属性指定新值或更改 IIS 管理工具中的相应值来更改此限制

<%
&#39;==================数据库路
&#39;sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
&#39;连接名(SqlLocalName)（外地数据库用IP地址（注意端口号）
&#39;本地可以用(local)代替IP地址
当出现连接错误时换用IP地址一般都能解决）
Const SqlDatabaseName = "novel"
Const SqlPassword = "123"
Const SqlUsername = "sa"
Const SqlLocalName = "(local)"
&#39;==================数据库连接
ConnStr = "rovider=Sqloledb;User ID="&SqlUsername&"assword="&SqlPassword&"; Initial Catalog="&SqlDatabaseName&";Data Source="&SqlLocalName&";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
Set Conn = Nothing
Response.Write "主数据库连接出错
请检查根目录中数据库连接文件的连接设置
<br>"
Response.Write Err.Description
Response.End
err.Clear
End If
%>

Data Source=localhost;Initial Catalog=GM_Data;Integrated Security=True