我正在处理用Classic ASP / VBSCript编写的一些旧代码。
该代码处理通过HTML表单提交的数据,并在下一行中断。
' Get all input questions
Set inputQuestions = getListOfInputQuestionsForPage("additional")
该函数getListOfInputQuestionsForPage(pageName)
定义如下:
Function getListOfInputQuestionsForPage(pageName)
' Instantiate Command
Set objCommand = Server.CreateObject("ADODB.Command")
' Inform Command what Connection to use.
Set objCommand.ActiveConnection = myConn
' SQL Query to run
objCommand.CommandText = "SELECT QUESTION_TABLE.PK_QUESTION AS ""QUESTION_ID"", QUESTION_TABLE.QUESTION AS ""QUESTION"", QUESTION_TABLE.INPUT_TYPE AS ""TYPE"", QUESTION_TABLE.IS_FOR_ALL_CUSTOMERS AS ""FOR_ALL_CUSTOMERS"" FROM QUESTION_TABLE WHERE QUESTION_TABLE.DISPLAY_PAGE = '" & pageName & "' ORDER BY PK_QUESTION ASC"
' Execute SQL and return result
Set getListOfInputQuestionsForPage = objCommand.Execute()
End Function
我收到以下错误消息很奇怪:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'getListOfInputQuestionsForPage'
/site/path_to_file/edit_additional.asp, line 110
我正在做的就是尝试从数据库中获取一些数据。而且我知道数据存在,并且返回了RecordSet。
错误使我失望了。之所以不起作用,是因为该功能getListOfInputQuestionsForPage(pageName)
在同一页面上不存在,并且我必须包含包含该功能定义的文件,这现在非常明显,但是因为错误对于我的原因太奇怪了我试图做(类型不匹配)...我根本没有想到这个原因。
因此,简而言之,请确保您的经典asp文件了解该函数,即具有指向包含该函数的文件的链接,或者该函数在同一文件中定义。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句