ASP在线花店系统_毕业论文范文网-论文范文

搜索高级搜索

原创毕业论文

ASP在线花店系统(二)

作者: 浏览:1492次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：ASP在线花店系统(二)，论文范文关键词：ASP在线花店系统(二)
ASP在线花店系统(二)毕业论文范文介绍开始：
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登录代码。

 例程 3-4 Userlogindo.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 "
end if
if strPassword="" then
 sError = sError & "请输入口令 "
end if

If sError="" then
 RetrieveLoginData
else
 Serror= "请登录" & " " & 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为首页的参考代码。

 例程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
%>

产品浏览

页面Dir.asp和页面list.asp的实现类试，这里只介绍list.asp页面实现的核心部分。例程3-6为页面ist.aspl的开始部分代码。

图3-19 鲜花分类的目录式检索浏览页面

例程3-6 list.asp页面开始部分代码

<%
dim pagenum
pagenum=16
%>

在例程3-6中pagenum定义每页显示的产品数量，默认显示16个鲜花产品。〈！_ _#includefile=”commondb.asp”_ _>引入commondb.asp公用文件。
从例程3-6可以看出当产品个数大于16的时候，就需要显示在下一页，因此需要实现产品的分页显示，例程3-7为list.asp产品分页显示的代码。

 例程3-7 list.asp产品分野显示的代码

<%
 dim dir,strPage,nPage
 dir=Request("dir")
 strPage=Request("Page")
 if (strPage="") then
 nPage=1
 else
 nPage=CInt(strPage)
 end if

 dim MyValue,property
 MyValue=Request("MyValue")
 property=Request("property")
 if (property="") then
 property="0"
 end if
 if (MyValue="") then
 MyValue="0"
 end if
 dim result
 result=GetListFlower(property,MyValue)
 dim aryReturn,i
 aryReturn = Split(result,",")
 dim startelment,endelment
 startelment=(nPage-1)*pagenum
 endelment=nPage*pagenum-1
 if (endelment> UBound(aryReturn)) then
 endelment=UBound(aryReturn)
 end if
 dim strSplitPage,allpage
 allpage=CInt((UBound(aryReturn)-LBound(aryReturn))/pagenum-0.5) +1
 strSplitPage="  "&nPage&"/"&allpage&" 页    "
 dim startShow,endShow,nextShow
 if ((nPage-5)<=0) then
 startShow=1
 else
 startShow=nPage-5
 end if
 if ((nPage+5)>allpage) then
 endShow=allpage
 else
 endShow=nPage+5
 end if
 dim k
 For k=startShow To endShow
 dim showone
 showone="<a href='List.asp?property="&property&"&MyValue="&MyValue&"&Page="&k&"'>"&k&"</a> "
 strSplitPage=strSplitPage&showone
 Next
 if (nPage>1) then
 nextShow="<a href='List.asp?property="&property&"&MyValue="&MyValue&"&Page="&(nPage-1)&"'>上一页</a> "
 end if
 nextShow=nextShow&"   "
 if (nPage<allpage) then
 nextShow=nextShow&"<a href='List.asp?property="&property&"&MyValue="&MyValue&"&Page="&(nPage+1)&"'>下一页</a> "
 end if
%>
 </td>
 <td width="10"> </td>
 <td valign="top">
<table border=0 cellspacing="0" cellpadding="0" width=99%>
<tr bgcolor=#ddFFFF><td colspan=3 height=10>
<%=strSplitPage%>
</td><td align="right">
<%=nextShow%>
</td></tr>
<%
 dim n
 n=0
 For i = startelment To endelment
 dim one
 one=GetProduct(aryReturn(i))
 if one(FIELDAUTOID)>0 Then
 if ((n mod 4)=0) then
 response.write "<tr>"
 end if
%>
 <td width=20% align="center">
 
 </td>
<%
 if ((n mod 4)=3) then
 response.write "</tr>"
 end if
 n=n+1
 end if
 Next
%>

例程3-8为list.asp显示产品的代码。

 例程3-8 list.asp显示产品的代码

<%
dim n
n=0
For i = startelment To endelment
dim one
one=GetProduct(aryReturn(i))
 if one(FIELDAUTOID)>0 Then
if ((n mod 4)=0) then
response.write "<tr>"
end if
%>
<td width=20% align="center">

</td>
<%
if ((n mod 4)=3) then
response.write "</tr>"
end if
n=n+1
end if
Next
%>

例程3-9为页面listone.asp的参考代码。

 例程3-9 页面listone.asp 的参考代码

<a href="Detail.asp?id=<%=one(FIELDAUTOID)%>" target="_blank">
<img alt=鲜花 border=0 height=80 src="<%=one(FIELDNETIMAGEMID) %>" width=80>
</a>
 
<%=one(FIELDNAME)%> 
销售价格：<%=one(FIELDSALEPRICE)%>元 
<a href="java script:add2cart('<%=one(FIELDAUTOID)%>')"><img src="images/buy.gif" width="40" height="17" border="0"></a>

例程3-9中one是在例程3-8中调用Getproduct()方法得到的一个产品对象（one=Getproduct(aryreturn(i)),one(FIELDNAME)等是获得产品的名称等属性。

3.5.2产品详细信息
用户在产品浏览页面中单击某个产品，就会进入产品的详细信息页面，产品详细页面主要包含两部分内容：一部分是产品信息显示：另一部分是针对该产品的用户评论。图3-20为产品详细信息页面。

 图3-20 产品信息页面
产品信息页面的实现文件问Detail.asp,例程3-10为Detail.asp页面的参考代码。
 例程3-10 Detail.asp页面的参考代码

<%
 dim productid
 productid=Request("id")
 if (productid="") then
 response.redirect "index.asp"
 Response.end

首页上一页 1 2 3 4 下一页尾页 2/4/4

以上为本篇毕业论文范文ASP在线花店系统(二)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找