Asp classic 包含文件时，经典ASP调试不起作用

在我的include文件夹中，我有文件SqlOperations.asp

<% 
    Option Explicit

    Function CheckSqlConnection()
        Dim sqlConnection, connString 
        connString = "Provider=SQLOLEDB.1;Persist Security Info=False; uid=sa; pwd=123456789;Initial Catalog=UserDatabase;Data Source=lakpa-pc"
        Err.Clear
        On Error Resume Next
        SET sqlConnection = Server.CreateObject("ADODB.Connection")
        sqlConnection.Open connString

        If Err.Number <> 0 Then
            CheckSqlConnection = false
        End If

        CheckSqlConnection = sqlConnection
        On Error Goto 0
    End Function

    Function ExecuteNonQuery(sqlQuery)
        Dim checkSql, sqlCmd
        checkSql = CheckSqlConnection
        If checkSql == False Then
            Response.Write("Please check your connection string <br/>" & vbCrlf)
            Response.End
            ExecutenonQuery = False
            Exit Function
        End If
        checkSql.Execute(sqlQuery) 
        ExecuteNonQuery = True
    End Function

 %>

---

我就是不明白。我是新的ASP经典。有人能告诉我发生这种情况的原因吗。

对于函数，您需要使用括号，例如

ExecuteNonQuery(queryVal)

---

应该可以解决你的问题。

问题在于语法，我很困惑。我使用了“If checkSql==False Then”，语法错误，应该只有一个“=”符号。我对它做了一点修改，现在它可以正常工作了。这是用于连接ASP Classic和MSSQL的。也许这会对某人有所帮助。 感谢凯恩的回复：）

函数CheckSqlConnection（）
Dim sqlConnection，connString
connString=“Provider=SQLOLEDB.1；Persist Security Info=False；uid=sa；pwd=123456789；Initial Catalog=UserDatabase；数据源=lakpa pc”
呃，明白了
出错时继续下一步
设置sqlConnection=Server.CreateObject（“ADODB.Connection”）
打开连接字符串
如果错误号为0，则
CheckSqlConnection=false
如果结束
设置CheckSqlConnection=sqlConnection
错误转到0
端函数
函数ExecuteOnQuery（sqlQuery）
Dim checkSql
设置checkSql=CheckSqlConnection
如果checkSql=False，则
响应。写入（“请检查您的连接字符串
”&vbCrlf）
答复.完
ExecutenonQuery=False
退出功能
如果结束
checkSql.Execute（sqlQuery）
ExecuteNonQuery=True
端函数
子SqlConnectionClose（SqlConn）
SqlConn.Close（）
端接头

我已经试过了，但不起作用。没有调用调试，也没有收到错误。删除include文件会出现问题，而将其包括在内则不会有任何效果。

Microsoft VBScript runtime error: Variable is undefined: 'ExecuteNonQuery

ExecuteNonQuery(queryVal)

  Function CheckSqlConnection()
    Dim sqlConnection, connString 
    connString = "Provider=SQLOLEDB.1;Persist Security Info=False; uid=sa; pwd=123456789;Initial Catalog=UserDatabase;Data Source=lakpa-pc"
    Err.Clear
    On Error Resume Next
    SET sqlConnection = Server.CreateObject("ADODB.Connection")
    sqlConnection.Open connString

    If Err.Number <> 0 Then
        CheckSqlConnection = false
    End If

    set CheckSqlConnection = sqlConnection
    On Error Goto 0
End Function

Function ExecuteNonQuery(sqlQuery)
    Dim checkSql
    set  checkSql = CheckSqlConnection
    If checkSql = False Then
        Response.Write("Please check your connection string <br/>" & vbCrlf)
        Response.End
        ExecutenonQuery = False
        Exit Function
    End If
    checkSql.Execute(sqlQuery) 
    ExecuteNonQuery = True
End Function

Sub SqlConnectionClose(SqlConn)
    SqlConn.Close()
End Sub