电子商务网站建设实例PPT课件

1 电子商务网站建设 第9章电子商务网站建设实例 2 通过本章的学习 主要掌握以下知识点 1 服务器端变量应用实例2 文件调用实例3 动态网页设计与实例4 数据库应用实例 3 9 1服务器端变量应用实例 9 1 1在线统计程序1 利用Application对象函数设计一个在线人数总计的雏形例9 1 在线人数统计 Counter asp 在线人数总计雏形 判断Counter变量是否存在 IfApplication Counter EmptyThen 不存在则重新产生 4 在线人数统计执行结果 5 两人在线时人数统计执行结果 再打开一个新的浏览器窗口 再执行一次相同的这个程序 6 2 利用Global asa计算在线人数总和例9 2 Global asa SubApplication OnStartIfApplication Total EmptyThenApplication Total 0EndIfEndSubSubSession OnStartApplication LockApplication Total Application Total 1Application UnlockEndSubSubSession OnEndApplication LockApplication Total Application Total 1Application UnlockEndSub 7 例9 3 Total1 asp 线上同时连线人数统计目前同时迦到此虚拟目录的人数为 8 利用Global asa计算在线人数执行结果 9 两人在线情况下执行结果 再打开另外一个浏览器窗口 浏览Total1 asp 10 关闭两个浏览视窗中的任意一个 并等待1分钟以上 1人离线后执行结果 11 9 1 2访客跟踪系统中访客信息界面的的设计例9 4 访客信息界面 Visitor asp theurl http Request ServerVariables http host Request ServerVariables url vSoft Request ServerVariables HTTP USER AGENT vRef Request servervariables HTTP REFERER vIP Request ServerVariables HTTP X FORWARDED FOR IfvIP ThenvIP Request ServerVariables REMOTE ADDR EndIfvExplorer Browser vSoft vOS System vSoft 12 vDateTime DateTimeFormat now 1 当前页面 13 vDateTime DateTimeFormat now 1 当前页面 14 DimnCountsql SelectCount AScntFromVisitors Setrs Conn Execute sql nCount rs cnt Setrs NothingIfnCount 20Thensql DeleteFromVisitorsWhereid SelectMin id FromVisitors Conn Execute sql Endifsql InsertIntoVisitors vTime vIP vOS vExp vRef Values Now vIP vOS vExplorer vRef Conn Execute sql 15 Dimid sYear sMonth sDay sColsYear CStr Year Now sMonth CStr Month Now id sYear sMonthsDay CStr Day Now sCol D sDaysql Select FromFluxStatWhereid id Setrs Conn Execute sql Ifrs EOFThensql InsertIntoFluxStat id Values id Conn Execute sql EndIfSetrs Nothingsql UpdateFluxStatSet sCol sCol 1 MTotalNum MTotalNum 1Whereid id Conn Execute sql 16 DimnToday nDayMaxNumsql Select sCol AScntFromFluxStatWhereid id Setrs Conn Execute sql IfNOTrs EOFThennToday rs cnt ElsenToday 0EndIfSetrs Nothingsql SelectnDayMaxFromWebInfoWhereid 1 Setrs Conn Execute sql IfNOTrs EOFThennDayMaxNum rs nDayMax ElsenDayMaxNum 0EndIf 17 Response write nTOday nTOday nDayMaxNum nDayMaxNumIfCInt nToday CInt nDayMaxNum Thensql UpdateWebInfoSetnDayMax nToday Whereid 1 Conn Execute sql EndIfsql UpdateWebInfoSetnTotalNum nTotalNum 1Whereid 1 Conn Execute sql 18 9 2文件调用实例 9 2 1网页计数器的设计例9 5 counter asp计数器演示版这是一个网站计数器的演示程序您是本站第位访客 欢迎光临 19 网页计数器执行结果 20 例9 6 Global asaSetfs Server CreateObject Scripting FileSystemObject SubApplication OnStart counter file Server MapPath counter counter txt Settxt fs OpenTextFile counter file Application counter txt ReadLinetxt CloseApplication counter file counter fileEndsubSubApplication OnEnd counter file Application counter file Settxt fs CreateTextFile counter file true txt WriteLine Application counter txt CloseEndSub 21 9 2 2留言板的设计例9 7 留言板主页程序 msg htm 留言板functionChkFields if document send Name value 22 window alert 请输入姓名 returnfalse if document send Subject value window alert 请输入标题 returnfalse returntrue 23 欢迎对本站内容提出您宝贵的意见与建议 请遵守如下规则 1 您的留言应遵守国家的法律法规 2 您的留言应尊重他人 不得对他人构成任何形式的侵害 3 本站保留修改和删除留言的权利 24 姓名 25 主题 inputtype text name Subject size 50 26 maxlength 100 留言 27 浏览留言 28 留言板主界面 29 例9 8 提交留言按钮对应的程序 Save asp Line2 主题 Subject Memo Replace Memo Chr 13 Line3 Line3 Line3 Memo Line4 时间 Now Setfso Server CreateObject Scripting FileSystemObject Application Lock 30 FilePath Server MapPath note txt OldFilePath Server MapPath old txt fso MoveFileFilePath OldFilePathSetfin fso OpenTextFile OldFilePath True Setfout fso CreateTextFile FilePath fout WriteLineLine1fout WriteLineLine2fout WriteLineLine3fout WriteLineLine4fout WriteLine fout WriteLinefin ReadAllfin Closefso DeleteFileOldFilePath TrueApplication UnLockResponse Redirect show asp 31 例9 9 显示全部留言的程序 Show asp 留言板返回留言表单 32 点击 提交留言 按钮后的界面 33 9 3动态网页设计与实例9 3 1动态网页结构设计与实例 例9 11 包含文件 web asp constg webname orient constg domainname orient com constg bodysignal bgcolor ffffffleftmargin 0topmargin 0marginleft 0margintop 0 constatinvalid 1constatstring 0constatlong 1constatdouble 2constatdate 3constatoolean 4 34 constselect department 0constselect types 2constselect publishers 3dimm entryfunctionentryIfisempty m entry thensetm entry server creatobject orientcommerce entry m entry Equipmentg webname g domainname driver SQLserver database orientdb uID orientweb pwd east server localhost sessionendifsetentry m entryendfunction 35 例9 12 包含文件 header asp 36 37 38 您的购物篮 ifentry basket numissues 0thenresponse write 目前空置 39 elseresponse write 包含 response writeentry basket numissues 项 response write response writeformatprice entry basket total response write ahref 0response write basket asp response write 查看购物篮 endif 40 size 6 41 例9 13 包含文件 footer asp 42 43 copyrightorientpoweredbyorient 44 9 3 2商品信息网站的设计与制作 index asp的运行界面 45 例9 14 用户登录 Chatlogin asp 聊天室实例99聊天室 subbutton1 onclicklocation href register asp endsub 9 3 3一个简单聊天室的设计 46 subsubmit1 onclickiffrm1 txt1 value thenmsgbox 姓名不得为空 请重新输入 0 16 Warning exitsubendififfrm1 txt2 value thenmsgbox 密码不能为空 请重新输入 0 16 Warning exitsubendiffrm1 submitendsub 47 用户登录昵称 password 48 使用此程序可以用昵称 lyf和密码 2000登录 49 聊天室登录程序界面 50 例9 15 register asp 聊天室实例99WIDTH 346px 51 个人信息表网友昵称 性别 男女输入密码 52 聊天室在线登记界面 53 例9 16 Chatmain asp 聊天室 54 Thispageuserframes butyourbrowserdonesn tsupportthem 55 Content asp setrs server createobject adodb recordset 56 conn DBQ server mappath mydb mdb DefaultDir DRIVER MicrosoftAccessDriver mdb sql select frommessageorderbyiddesc rs Opensql conn 1 1dowhilenotrs eofResponse Writers name 说 rs message rs MoveNextloopsetrs nothing 57 例9 18 Message asp 刷新人员列表 dowhilenotrs eofResponse Writers name rs MoveNextloopsetrs nothing 58 例9 19 send asp 请输入发言 退出聊天室 59 聊天室发言记录显示界面 60 9 3 4网上购物系统 按分类查看商品 61 商品订购页面 62 购物车页面 63 查看订单信息 64 9 3 5无组件文件上传图片 例9 20 用户输入数据的网页文件 upload htm 图片上传上传文件的演示实例选择上传的jpg图片文件 65 66 upload htm的运行界面 67 例9 21 上传文件程序 upfile asp 文件上传 将当前的日期和时间转为文件名functionmakefilename dimfnamefname now 68 fname trim fname fname replace fname fname replace fname fname replace fname fname replace fname fname replace fname PM fname replace fname AM fname replace fname 上午 fname replace fname 下午 makefilename fnameendfunction 69 dimupload file formName formPathdimi l fileType newfilename filenamelist 创建新文件名称newfilename makefilename 建立上传对象setupload newupload 5xsoft 上传文件目录formPath Server mappath images 列出所有上传了的文件foreachformNameinupload objFil