网学网为需要ASP类作品的朋友们搜集整理了基于ASP花店经营管理系统相关资料，希望对各位网友有所帮助!
3.4.2页面头文件 为了实现代码复用，把头文件设计成公用模块，单独保存为一个文件，其他页面应用的时候只要包含这个头文件就可以了。 头文件中主要放置网站标志和各个2级频道，保存成HTML文件格式，放置到文件夹inc/下，文件名称为top.html.这样其他页面只要应用<!_ _#include file=”inc/top.html”_ _>,就可以使其他页面具有风格统一的“头”。 3.4.3页面尾文件 和页头一样，我们把版权声明等信息保存在尾文件bottom.html中，本实例的尾部文件预览果如图3-17所示。 3.5.1 用户登录判断 用户登录判定一般由两个页面组成，页面login.asp提供表单让用户输入用户名和密码，当用户单击页面中【登录】按钮时，把用户名、密码提交到另一个页面userlogindo.asp,由userlogindo.asp页面作具体的登录处理。 Login.asp就是一个简单的包含表单的HTML页面，并引入公用头尾文件，不过login.asp需要用到javascipt验证表单，防止用户输入空信息。图3-18为网站登录页面login.asp.的预览效果。 例程3-3为login.asp页面中表单验证的javascript代码。 例程3-3 javascript校验代码 <script language="javascript"> function userloginsubmit() { var flag=false; if(document.loginForm.USERID.value==null|| document.loginForm.USERID.value=="") { alert("请输入您的用户名！"); document.loginForm.USERID.focus(); flag=true; } if(document.loginForm.PASS.value==null|| document.loginForm.PASS.value=="") { alert("请输入密码！"); if (flag==false) document.loginForm.PASS.focus(); flag=true; } if(flag==false) { document.loginForm.submit(); } return false; } function userloginkeydown() { if (window.event.keyCode=="13") userloginsubmit(); } function userloginuserid() { if (window.event.keyCode=="13") document.loginForm.PASS.focus(); } </script> 在例程3-3中函数userloginsubmit()主要在用户单击【登录】按钮的时候验证用户输入的用户名、密码是否为空。 函数userloginkeydown()，主要完成当用户按回车键时，提交表单，也就时说当用户输入用户名、密码后单击【登录】按钮或者按回车键都会提交表单。实现这个功能是为了用户界面友好，方便最终用户的使用。 函数userloginuserid()主要完成当用户输入完用户名按回车时，焦点跳到输入密码的文本框中。 Userlogindo.asp主要完成用户登录的判定，把用户登录信息更新数据库和session等，例程3-4为页面Uselogindo.asp登录代码。 <% dim dbc, url dim forwardURL dim strpassword, returnurl strPassword=Request("strPassword") stremail=request("stremail") strpassword=replace(strpassword,"=","") stremail=replace(stremail,"=","") stremail=replace(stremail,"''","''''") strpassword=replace(strpassword,"''","") returnurl=request("returnurl") if strEmail="" then sError = sError & "请输入Email<br>" end if if strPassword="" then sError = sError & "请输入口令<br>" end if If sError="" then RetrieveLoginData else Serror= "请登录" & "<br>" & Serror end if setsess "Loginerror",Serror Setupreturnurl url Response.redirect url Sub RetrieveLogindata Dim fieldvalue If GetSess("Login")="" then SetSess "Login","Force" end if LocateCustomer strLastName, stremail , strpassword If strCustomerID <>"" then LngLoginCount=lngLoginCount+1 UpdateCustomerSessionData UpdateLoginData SetSess "Login",strlastname SetSess "realname",strlastname Else SError = SError & getlang("langLoginLocateFail") SetSess "Login", "" end if ShopCloseDatabase dbc set rs=nothing end sub Sub UpdateLoginData Dim dbc ''on error resume next OpenCustomerDB dbc ''response.write "Login count" & lngLoginCount sql = "update customers set " sql = sql & "logincount=" & lnglogincount ''sql = sql & ",lastlogindate=''" & date() & "''" sql = sql & ",lastlogindate=" & datedelimit(date() ) sql = sql & " where contactid=" & strcustomerid dbc.execute(sql) ShopCloseDatabase dbc end sub '' determine where to go to Sub SetupReturnurl (url) if returnurl<>"" then if Serror="" then url=returnurl exit sub else url="UserLogin.asp" end if exit sub end if If Getsess("Followonurl")="" and getsess("Currenturl")="" then If Serror="" then url=getconfig("xhome") else url="UserLogin.asp" end if exit sub end if If Serror="" then url=GetSess("FollowonURL") else url=getSess("CurrentURL") end if end sub %> 3.5前台界面设计与实现 3.5.1首页设计 一般的电子商务网站，首页所含的信息量是非常大的，为了方便维护，对首页进行分块处理，然后用包含的方式，把各个块组装起来，这样不仅使页面结构清晰，而且维护方便。例程3-5为首页的参考代码。 <% dim productid productid=Request("id") if (productid="") then response.redirect "index.asp" Response.end end if dim strUrlGo strUrlGo="/Comment.asp?id="&productid %> 
|
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
