不行啊,仍然出现上面的错误提示,不过,这次提示出现在第15行啊,而不是第14行。第15行是:
cmdupdate.Parameters.Append cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)

解决方案 »

  1.   

    你的ASP错了吧。改
    cmdupdate.Parameters.Append cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)
    '注意赋值@type
    cmdupdate("@type")=="abcdefghijkl"
    cmdupdate.execute
      

  2.   

    补充:你的@type char(12) 是input参数,要赋值的呀。
    给你个例子
    一个输入的参数的存储过程 
    <% 
    set conn=server.CreateObject("adodb.connection") 
    set cmd=server.CreateObject("adodb.command") 
    strconn="dsn=pubs;uid=sa;pwd" conn.Open strconn 
    set cmd.ActiveConnection=conn cmd.CommandText="{call oneinput(?)}" 
    cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger ,adParamInput ) 
    cmd("@aaa")=100 cmd.Execute() %> 一个输入参数和一个输出的参数 
    <% 
    set conn=server.CreateObject("adodb.connection") 
    set cmd=server.CreateObject("adodb.command") 
    strconn="dsn=pubs;uid=sa;pwd" conn.Open strconn 
    set cmd.ActiveConnection=conn cmd.CommandText = "{call oneinout(?,?)}" 
    cmd.Parameters.Append cmd.CreateParameter("@aaa",adInteger,adParamInput) 
    cmd("@aaa")=10 
    cmd.Parameters.Append cmd.CreateParameter("@bbb",adInteger,adParamOutput) cmd.Execute() bbb=cmd("@bbb") 
    %> 
      

  3.   

    各位兄弟,按照你们的做法,还是提示同样的错误。另外,我已经赋值了啊。(是不是我的赋值方式错误???)
    我将@type赋值为strtype,而strtype="business"strtype="business"
    cmdupdate.Parameters.Append cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)
      

  4.   

    该问题已解决:请将对应的代码取而代之, 即可cmdupdate.commandtype=4
     set param=cmdupdate.createparameter("@type",200,1,40,strtype)  
    cmdupdate.Parameters.Append  param 'cmdupdate.CreateParameter("@type",adchar,adparaminput,12,strtype)
    cmdupdate.execute
      

  5.   

    '做如下修改<%
    set conn=server.createobject("adodb.connection")
    conn.open"Provider=SQLOLEDB;Data Source=127.0.0.1;UID=sa;PWD=yourpassword;DataBase=pubs"
    dim cmdupdate
    dim lngrecs
    dim strtype
    dim curpercent
    strtype="business"set cmdupdate=server.createobject("adodb.command")cmdupdate.activeconnection=conn
    cmdupdate.commandtext="usp_updateprices"
    cmdupdate.commandtype=4
    cmdupdate.Parameters.Refresh
    cmdupdate.Parameters("@type")=strtype
    cmdupdate.executeset cmdupdate=nothing
    %>
    <html>
    <head>
    <title>Untitled</title>
    </head><body>
    </body>
    </html>
      

  6.   

    谢谢,已经搞定了。
    我想请教几个问题:这里的200、1、40是什么意思???("@type",200,1,40,strtype) 
    这句话又是什么意思???
    cmdupdate.Parameters.Refresh