问题描述
case"WebSite"prodid=request("pid")ifinstr(prodid,",")thenprodid=replace(prodid,"","")pid=split(prodid,",")fork=0toUbound(pid)sqlstr="selectid,ProdName,EProdNamefromProductwhereid="&pid(k)setprodrs=conn.ExecToRs(sqlstr)ifnot(prodrs.bofandprodrs.eof)thenprice=prodrs("EProdName")elseresult=0endifprodrs.closesetprodrs=nothingresult=scar.AddToCar(userid,pid(k),price,1)nextelseprodid=killn(request.QueryString("ProdID"))sqlstr="selectid,ProdName,EProdNamefromProductwhereid="&prodidsetprodrs=conn.ExecToRs(sqlstr)ifnot(prodrs.bofandprodrs.eof)thenprice=prodrs("EProdName")elseresult=0endifprodrs.closesetprodrs=nothingresult=scar.AddToCar(userid,prodid,price,1)endif请高手看一看这段程序有会么问题,我一直找不出原因总是一运行就提示MicrosoftVBScript运行时错误错误'800a01c2'错误的参数个数或无效的参数属性值:'scar.AddToCar'/shopcar.asp,行55
解决方案
解决方案二:
那位大佬帮看看啊,。。急。。
解决方案三:
scar.AddToCar(userid,prodid,price,1)这个方法的参数个数和参数类型都对吗?