网上购物系统设计推荐.ppt

set moneynum=objconn.Execute(sql4) productprice=moneynum.fields(price) ordernumber=rs.fields(ordernumber) moneynum=productprice*ordernumber% td商品单价：%=productprice%元/tdtd商品数量：%=rs.fields(ordernumber)%件/tdtd金额小计:% Response.Write moneynum %元/td/tr % rs.movenext loop % /table %end if% ? 8.Useridseek.asp依订单号查询购物信息处理关键代码 ? %orderid=Request.Form(textfield1) sql1=select * from orderdan where orderid=orderid set objrs=objconn.Execute(sql1) if objrs.eof then response.write 该帐单尚未生成或有错误,请核对您输入的订单号！ else sql2=select * from orderdetail where orderid=orderid set rs=objconn.Execute(sql2) userid=objrs.fields(userid) sql3=select * from user where userid=userid set user=objconn.Execute(sql3) % 显示该订单的商品订购信息略 %end if% 作业 P275:题2、3 tdwidth=14%height=22div align=center%=productno%/div/td td width=33% height=22div align=left%=title%/div/td td width=15% height=22div align=left%=price%/div/td form name=form method=post action=ordercar.asp?productno=%=productno% title=%=title%price=%=price% td width=16% height=22input type=textname=textfield/td td width=22% height=22 input type=submit value=订购 id=submit1 name= submit1/td /form /tr %objrs.movenext loop objconn.Close % /table ? 4.Ordercar.asp购物篮处理关键代码 ? !--#include file=gw_caropen.inc-- %ordernumber=trim(Request.Form(“textfield”)) //从货架页面接 收用户输入的订购数量 //判断用户是否已输入订购量或输入的是否为数字 if ordernumber=or not Isnumeric(ordernumber) then% script language=javascript alert(你必须输入数字，请继续输入！); history.go(-1) /script %elseif cint(ordernumber)=0 then% //判断用户已输入订购量 数字是否是大于零 script language=javascript alert(你必须输入大于零的数字，请继续输入！); history.go(-1) /script %elseif session(userid)= then% //判断用户是否已经登录本网站 script language=javascript alert(你必须登录才能订购商品！); history.go(-1) /script %else sessio