第9章电商务网站建设实例.ppt

电子商务网站建设 9.3动态网页设计与实例9.3.1动态网页结构设计与实例 例 9?10：包含文件(web.asp) % const g_webname=“orient” const g_domainname=“orient,com” const g_bodysignal=“bgcolor=#ffffff leftmargin=0 topmargin=0 marginleft=0 margintop=0” const atinvalid=-1 const atstring=0 const atlong=1 const atdouble=2 const atdate=3 const atoolean=4 const select_department=0 const select_types=2 const select_publishers=3 dim m_entry function entry If isempty(m_ entry) then set m_entry=server.creatobject(“orientcommerce.entry”) m_entry. Equipment g_webname, g_domainname,_ “driver=SQLserver;database=orientdb;_ uID=orientweb;pwd=east;”server =localhost”,_ session end if set entry=m_entry end function % /td !--”外文书籍” button -- td a href=“department.asp?ID=2” img src=“*\外文书籍.gif” boder=“0” /a /td !--”中文书籍” button-- td img src=“*\中文书籍.gif” boder=“0” /td !--”外文书籍” button -- td img src=“*\外文书籍.gif” boder=“0” /td !--”网上社区” button -- td img src=“*\网上社区.gif” /td !-- orientlogo -- td a href=“main.asp” img src=“*\orientlogo.gif” boder=“0” /a /td /tr tr !-- advertising-- td img src=“*\advertising.gif” /td td colspan=4nbsp; /td /tr tr td bgcolor=“#ffffff” background=“*\navigationbar.gif”_ width=112 valign=top br table width=100% cellspacing=0 cellpadding=0 tr td align=center 您的购物篮 /td /tr tr td align=center % if entry.basket.numissues=0 then response.write”…目前空置” else response.write”包含” response.write entry.basket.numissues “项” response.write”br“ response.write formatprice(entry.basket.total) response.write”a href=“ ““ 0response.write”basket.asp” response.write”“ “b查看购物篮/b/a“ end if % /td /tr !--搜索框-- trtdbr/td/tr form action= “search.asp” method=post tr td align=center font size=2.5 face=“tahoma” /font /td /tr tr td align=center font size=2 face=“tahoma” input typpe=text name=search_ value=“%=request(“search”) %“ size=6 input typpe=submit value= “提交” /font /td /tr /form /table /td td colspan=4 table cellspacing=0 cellpadding=5 width=100% border=0 tr tdnbsp; /td td 例 9?12：包含文件(footer.asp) !--确