“十万火急”谁能帮我看下这下面的代码!

来源:百度知道 编辑:UC知道 时间:2024/07/04 19:25:22
运行出来的是:数据库连接出错,请打开conn.asp文件检查连接字串。"
这句。
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Dim startime,Conn,db
Response.Buffer = True
startime = Timer()
'--定义数据库类别,1为SQL数据库,0为Access数据库
Const isSqlDataBase = 0
Dim NowString
Dim ConnStr

If IsSqlDataBase = 1 Then
'-----------------------SQL数据库连接参数---------------------------------------
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
NowString = "GetDate()"
SqlDatabaseName = "newasp" '数据库名
SqlUsername = "sa" '用户名
SqlPassword = "newasp" '用户密码
SqlLocalName = "(local)" '连接名(本地用local,外地用IP)
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName &

On Error Resume Next
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请打开conn.asp文件检查连接字串。"
Response.End
End If
这几行注释掉再看什么错误