网上电子商城设计案例.pptVIP

(7) 在线订购 最后完成在线订购，并填写如图11.7所示的信息。 图11.7 在线订购 程序如下： %@ Language=VBScript % !--#include file=conn.asp-- % if request(name)= then response.redirect message.asp end if set rs=server.createobject(adodb.recordset) sqltext=select * from message where name=request(name) and content=request(content) rs.open sqltext,conn,3,3 if rs.eof then rs.addnew end if % % rs(name)=request(name) rs(tel)=request(tel) rs(address)=request(address) rs(email)=request(email) rs(spbh)=request(spbh) rs(content)=request(content) rs.update % script language=vbs !-- MsgBox 您的订购信息我们已经收到！ window.location.href=message.asp -- /script % conn.close set rs=nothing set conn=nothing response.end % 11.2.8 实训总结 通过本章的电子商城设计，学生应该具备设计、开发小型Web应用程序的能力。 11.3 习 题 操作题 分组设计一个网上书店。要求四到五人一组；网站界面整洁，功能完整，完全性好。 本 章 结 束 table width=100% border=0 cellspacing=0 cellpadding=3 trform name=form2 method=post action=jump.asp td bgcolor=%sql=select * from sys rs.open sql,conn,3,3% %=rs(sys_color)% %rs.close% %sort_id=trim(request(sort_id)) if sort_id=empty then response.redirect index.asp end if page=request.querystring(page) if page= then page=1 if not(isnumeric(page)) then page=1 if page1 then page=1 page=int(page) sql=select * from hw where sort_id=sort_id order by hw_id DESC rs.open sql,conn,3,3 if rs.eof then response.write 你所选的类别没有商品 response.end else rs.pagesize=8 totalrec=rs.recordcount totalpage=rs.pagecount if pagetotalpage then page=totalpage rs.absolutepage=page rs.cachesize=rs.pagesize i=0 dim hw_id(),hw_name(),hw_cash(),hw_cash1(),hw_views(),hw_gg(),hw_buys(), hw_content(),hw_pic(),hw_date() do while not rs.eof and (irs.pagesize) i=i+1 redim preserve hw_id(i),hw_name(i),hw_cash(i),hw_cash1(i),hw_views(i),hw_gg(i), hw_