asp调用存储过程出错，不知原因

[yurongsheng]

<%
on error resume next
set cmd=server.CreateObject("adodb.command")
cmd.activeconnection="driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=rdxx"
cmd.commandtext="getSendFile"
cmd.CommandType = 4
if err.number<>0 then
response.Write err.description
response.End()
end if
cmd.Parameters.Append cmd.CreateParameter("@fasongzhe", adVarChar, adParaminput, 50, "1002087")
set rs=cmd.execute

While Not rs.EOF
for each adoField in rs.Fields
Response.Write adoField.Name & "=" & adoField.Value & "<br>" & vbCRLF
Next
Response.Write "<br>"
rs.MoveNext
Wend
%>

[slimpotato]

cmd.activeconnection="driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=rdxx"
连接对象你给字符串？？？

[slimpotato]

给你一个使用的例子
set cmd = server.CreateObject("ADODB.Command")
set cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "usp_GetAllSubDeptNoStr"

set MDeptNo = cmd.CreateParameter("MasterDeptNo",adVarChar,adParamInput,7)
set SDeptNoStr = cmd.CreateParameter("AllSubDeptNoStr",adVarChar,adParamOutput,255)

MDeptNo.value = inputMasterDeptNo

cmd.Parameters.Append MDeptNo
cmd.Parameters.Append SDeptNoStr

cmd.Execute

[什么都不能]

slimpotato(显显)(地狱式恶补英语中..)
cmd.activeconnection=connectionString
正解，有何疑问？

cmd.Parameters.Append cmd.CreateParameter("@fasongzhe", adVarChar, adParaminput, 50, "1002087")
应为
cmd.Parameters.Append cmd.CreateParameter("@fasongzhe", 200, adParaminput, 50, "1002087")
adVarChar 对应 200 asp默认int