'on error resume next 这里加上了底下就不提示错误
with MyComm
.CommandText = "updatecompanys"
.CommandType = 4
.Prepared = true
.Parameters.Append .CreateParameter("RETURN",2,4)
.Parameters.Append .CreateParameter("@cid",adNumeric,adParamInput)
.Parameters("@cid") = cid
.Parameters.append .CreateParameter("@cname",adVarChar,1,32)
.Parameters("@cname") = cname
.Parameters.Append .CreateParameter("@bid",adNumeric,adParamInput)
.Parameters("@bid") = bid
.Parameters.Append .CreateParameter("@nid",adNumeric,adParamInput)
.Parameters("@nid") = nid
.Parameters.Append .CreateParameter("@csize",adNumeric,adParamInput)
.Parameters("@csize") = csize
.Parameters.Append .CreateParameter("@Contact",adVarChar,1,10)
.Parameters("@Contact") = Contact
.Parameters.Append .CreateParameter("@ctel",adVarChar,1,16)
.Parameters("@ctel") = ctel
.Parameters.Append .CreateParameter("@cEmail",adVarChar,1,32)
.Parameters("@cEmail") = cEmail
.Parameters.Append .CreateParameter("@Address",adVarChar,1,100)
.Parameters("@Address") = Address
.Parameters.Append .CreateParameter("@Re",adVarChar,1,800)
.Parameters("@Re") = Re '长度超过800以后默认500错误,我不知道怎么解决,我用
.Execute
'上面加上了on error resume next这里就无效,不加上就会出现500错误 Response.Write(Err.Description)
updateback = MyComm(0)
call Pdel(10,MyComm)
end with全部分,高手不吝啬赐教
.Parameters("@Re") = Re '长度超过800以后默认500错误,我不知道怎么解决,我用
你指定参数长度800超过800当然出错了,指定长些 .Parameters.Append .CreateParameter("@Re",adVarChar,1,4000)
.Parameters("@Re") = Re
.Parameters("@Re") = Re超过500就报错吗???
那你分两段加起来
看2楼海爷的
用了
on error resume next
这里没提示Response.Write(Err.Description)
不用就出现500错误
SORRY 记成WINFROM了 应该是
on error resume next
或者
if...else 语句