Question

我主要是一名PHP开发人员，但我有一些旧的ASP，我们之前的开发人员之一已经破产，我无法弄清楚如何修复它。我们有一个程序将一些变量发送到一个监听器页面，该页面将该数据与一个msSQL数据库的注册码进行比较，然后让程序知道注册码是否有效。

我收到以下错误

.Parameters.Append .CreateParameter("@code", adVarChar, 1, 50, x)

是第134行：

ADODB.Parameters错误'800a0e7c'

参数对象定义不正确。提供的信息不一致或不完整。

/checkregistrationpro.asp，第134行

我已经在包含文件中指定了任何我未包含在代码中的命名常量，因此与此无关。

我的连接字符串（我已经确认这些设置是正确的）：

set conn = Server.CreateObject("ADODB.Connection")
set cmd = Server.CreateObject("ADODB.Command")
sConnString = "Provider=sqloledb; Data Source=MYDATASOURCE; Initial Catalog=MYCATALOG; User ID=MYUSERID; Password='MYPASSWORD';"
conn.Open sConnString

我的代码：

...

Function BlockInjectCode(StrVal)
    BlockInjectCode = Replace(StrVal,"--","")
    BlockInjectCode = Replace(BlockInjectCode,"'","")
    BlockInjectCode = Replace(BlockInjectCode,"""","")
    if instr(lcase(BlockInjectCode),"<") > 0 then
        BlockInjectCode = ""
    end if
End Function

    x = BlockInjectCode(Request.QueryString("rid"))
    uid = BlockInjectCode(Request.QueryString("uid"))
    chkcode = BlockInjectCode(Request.QueryString("Code"))
    CheckPro = BlockInjectCode(Request.QueryString("pro"))
    CheckProProd = BlockInjectCode(Request.QueryString("prod"))
    CheckProMac = BlockInjectCode(Request.QueryString("mac"))
    MacAdd = CheckProMac

    CodeValid = False

    if x <> "" and uid <> "" then

        '-- Get information about this registration code.   
        sqlStr = "select * from MYTABLE where Code = ? and IsValid = 1"

        set cmdCodes = Server.CreateObject("ADODB.Command")
        Set cmdCodes.ActiveConnection = Conn
        cmdCodes.CommandText = sqlStr
        with cmdCodes
            .Parameters.Append .CreateParameter("@code", adVarChar, 1, 50, x)
        end With    
        Set rsCodes = cmdCodes.execute      
...

解决了问题：我还不清楚为什么adVarChar在手动定义时无法正常工作;然而，人为错误发生了。通过创建一个global.asa文件来引用msado15.dll，我能够解决问题。有关明确说明，请参阅下面的Ryios帖子。

Answer 1

您可能没有定义adVarChar常见事件，因此CreateParameter()方法＆＃34;未正确定义＆＃34; 。

这只是ADODB库中找到的众多命名常量之一的示例。解决这个问题的一个混乱的方法就是自己定义一些值;

Const adVarChar = 200

这种方法的问题是你必须定义所有可能令人头疼的命名常量。另一种方法是跳过整个命名常量并只使用整数值，因此调用将是;

.Parameters.Append .CreateParameter("@code", 200, 1, 50, x)

然而，这并不容易阅读，尽管看起来好像你已经使用ParameterDirectionEnum值1这样做，这是ADODB中的命名常量adParamInput图书馆。无论我不推荐这种方法。

稍微好一点的方法是使用#include指令，以便它在调用页面中包含您可能想要的所有命名常量定义，这就是大多数情况。 Microsoft为此目的提供了一个预定义的文件，其中包含IIS （或者可能是我不确定的MDAC库安装），称为adovbs.inc或{{ 1}}，通过包含此文件，您的页面可以访问。中的所有命名常量定义。

所有这一切的原因是VBScript不支持类型库，因此在 Client 方案中自己定义它们或从adovbs.asp文件复制和粘贴是唯一的选择。但是在 Server 场景中，我们仍然拥有IIS的强大功能，可以让我们做一些时髦的事情。

如果类型库只能添加一次并且您不必担心它会不会很好？，没有烦人的常量需要定义？让我们面对它们已经存在于类型库中，那么为什么我们不能从那里获取它们呢？事实证明，我们可以感谢adovbs.inc指令。

这是一个例子;

METADATA

这种方法的优点是可以用于任何类型库（理想情况下暴露给COM），您可以在一个页面中定义，或者将其添加到中以定义整个Web应用程序。

使用这种方法，您可以安全地使用像

这样的代码

global.asa

有用的链接

Answer 2

在您定义adVarChar和其他ADO魔术数字的地方，完全摆脱它们。

而是将此添加到global.asa的顶部（如果不存在则创建一个）。

<!--METADATA TYPE="TypeLib" file="C:\Program Files (x86)\Common Files\System\ado\msado15.dll" -->

这将导入已经定义了所有这些幻数的msado15类型库。它会自动为您提供所有定义。这意味着您不必自己定义adVarChar等，元数据标签会自动为您导入它们。感谢@Lankymart，因为他的评论让我发现了这一点，并将其弄清楚，而且效果很好。

现在，转而创建一个空的测试asp页面，并在显式选项上添加一些测试代码。

<%
    Option Explicit
    Response.Write "adVarChar: " & adVarChar
%>

如果您收到未定义adVarChar的错误，则服务器上不会出现msado15.dll。所以你需要联系godaddy等让他们告诉你MSADO在那里的路径，并改变你的元数据标签以引用正确的版本。

ADODB.Parameters error'800a0e7c'参数对象未正确定义。提供的信息不一致或不完整

2 个答案:

有用的链接