形式参数 '@From_SiteQueryStr' 定义为 OUTPUT,但实际参数却未声明为 OUTPUT.'Str_Money="20"frominfo = Request.Cookies("yidefrom") If not IsEmpty(frominfo) and not IsNull(frominfo) and frominfo "" Thensession("From_newID")=cstr(frominfo)i

形式参数 '@From_SiteQueryStr' 定义为 OUTPUT,但实际参数却未声明为 OUTPUT.'Str_Money="20"frominfo = Request.Cookies("yidefrom") If not IsEmpty(frominfo) and not IsNull(frominfo) and frominfo "" Thensession("From_newID")=cstr(frominfo)i
形式参数 '@From_SiteQueryStr' 定义为 OUTPUT,但实际参数却未声明为 OUTPUT.
'Str_Money="20"
frominfo = Request.Cookies("yidefrom")
If not IsEmpty(frominfo) and not IsNull(frominfo) and frominfo "" Then
session("From_newID")=cstr(frominfo)
int_FromSiteID=Cint(frominfo)
str_Querystring=Request.Cookies("Querystr")
'if int_FromSiteID > 0 then
'Str_AgioDictID=6
'Str_Money="50"
'end if
else
int_FromSiteID=0
end if
set objCmd = server.CreateObject("Adodb.Command")
with objCmd
.ActiveConnection = conn
.CommandText = "usr_SaveUserRegData"
.CommandType = 4
set parms = .CreateParameter("@User_LoginID",130,1,50,strUser_LoginID)
.Parameters.Append(parms)
set parms = .CreateParameter("@User_Password",130,1,256,MD5(strUser_Password,32))
.Parameters.Append(parms)
set parms = .CreateParameter("@Commend",130,1,100,strCommend)
.Parameters.Append(parms)
set parms = .CreateParameter("@From_SiteID",3 ,1,4,Int_FromSiteID)
.Parameters.Append(parms)
set parms = .CreateParameter("@From_SiteQueryStr",130 ,1,300,str_Querystring)
.Parameters.Append(parms)
set parms = .CreateParameter("@User_ID",130 ,3,100,null)
.Parameters.Append(parms)
set parms = .CreateParameter("@Return_Message",130,3,50,null)
.Parameters.Append(parms)
set parms = .CreateParameter("@Commend_istrue",3,3,4,null)
.Parameters.Append(parms)
.Execute
end with
if err.number 0 then
Response.Redirect "../error/error.asp?errorMsg="&err.Description
else
一段出错的代码如上,

形式参数 '@From_SiteQueryStr' 定义为 OUTPUT,但实际参数却未声明为 OUTPUT.'Str_Money="20"frominfo = Request.Cookies("yidefrom") If not IsEmpty(frominfo) and not IsNull(frominfo) and frominfo "" Thensession("From_newID")=cstr(frominfo)i
set parms = .CreateParameter("@From_SiteQueryStr",130 ,3,300,str_Querystring)