vbscript:ADODBParameters错误'800a0e7c'参数对象定义不正确提供的信息不一致或不完整

我主要是一名PHP开发人员，但是我有一些旧的ASP，这是我们以前的开发人员中的一位失败了，所以我不知道如何解决它.我们有一个程序，该程序将一些变量发送到侦听器页面，该页面将数据与msSQL数据库的注册代码进行比较，然后让该程序知道注册代码是否有效.

我收到以下错误，其中

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

是第134行：

ADODB.Parameters error '800a0e7c'

Parameter object is improperly defined. Inconsistent or incomplete information was provided.

/checkregistrationpro.asp, line 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      
...

Problem Solved: 对于手动定义adVarChar为何不起作用，我仍然不清楚.但是，会发生人为错误.通过创建一个引用msado15.dll的global.asa文件，我能够解决此问题.有关明确说明，请参见下面的Ryios帖子。