课件13-综合企业网梨代码1.ppt

else Response.Write 尊敬的顾客，你搜索到的商品如下 end if显示搜索结果，代码略 end if % ? table tr td width=14% height=25div align=center商品编号/div/td td width=33% height=25div align=center商品名称/div/td td width=15% height=25div align=center商品单价/div/td td width=16% height=25div align=center订购数量/div/td td width=22% height=25div align=center订购与否/div/td /tr %objrs.movefirst do while not objrs.eof productno=objrs.fields(productno) title=objrs.fields(title) price=objrs.fields(price) % tr 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 session(count)=session(count)+1% //Session中增加一条订购商品信息 % 选 购 情 况p/p 你已选定了%Response.Write session(count)%样产品请确认订购，按购物清单浏览购物清单 % num=session(count) //从货架页面接收所选购的商品各项信息 strproductno=Request.QueryString(productno) strproductname=Request.QueryString(title) strpr