午","")
fname=replace(fname,"下午","")
fname=int(fname)+int((10-1+1)*Rnd+1)
MakedownName=fname
endfunction
formPath="uploadfiles/"
iCount=0
foreachformNameinupload.file''列出所有上传了的文件
setfile=upload.file(formName)''生成一个文件对象
iffile.FileSize<100then
response.write"上传发生错误,请先选择你要上传的文件! [重新上传]"
response.end
endif
iffile.FileSize>51200then
response.write"上传发生错误,文件大小超过了50K![重新上传]"
response.end
endif
fileExt=lcase(right(file.filename,4))
iffileEXT<>".gif"andfileEXT<>".jpg"andfileEXT<>".bmp"then
response.write"上传发生错误,文件格式不正确![重新上传]"
response.end
endif
iffile.FileSize>0then''如果FileSize>0说明有文件数据
newname=user_id&MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName,".")+1)
file.SaveAsServer.mappath(formPath&newname)''保存文件
iCount=iCount+1
else
response.write"未找到文件返回"
endif
next
Response.Write("parent.input.goodspic.value+='uploadfiles/"&newname&"'")
else
%>
(gif或jpg格式,200K以下)
<%
endif
endif%>
4.3.5销售商商品信息
图4.5
3.程序清单(goods_info.asp)
<%=Conn.ExeCute("selectgoods_namefromgoods_infowheregoods_id="&Request("goods_id")&"")(0)%>
该商品已被浏览<%=rs("goods_hits")%>次
找不到该商品!
<%else
conn.execute("updategoods_infosetgoods_hits=goods_hits+1wheregoods_id="&request("goods_id")&"")
%>
<%=Conn.ExeCute("selectgoods_namefromgoods_infowheregoods_id="&Request("goods_id")&"")(0)%>
该商品已被浏览<%=rs("goods_hits")%>次
target=_blank>"width="80"height="100"
border=0style="border:1pxsolid# BtoC电子商务网站(ASP)(论文和程序)为[网学网-网友上传,谢谢支持]。">
价格:<%=rs("goods_price")%>元
数量:<%=rs("goods_amount")%>个
有效期:<%=rs("goods_long")%>天
上架时间:<%=rs("goods_date")%>
店铺名称:<%=Conn.ExeCute("selectshop_namefromuser_infowhereuser_id="&rs("user_id")&"")(0)%>
店铺掌柜:<%=Conn.ExeCute("selectuser_realnamefromuser_infowhereuser_id="&rs("user_id")&"")(0)%>
店铺地址:<%=Conn.ExeCute("selectshop_addressfromuser_infowhereuser_id="&rs("user_id")&"")(0)%>
联系电话:<%=Conn.ExeCute("selectshop_phonefromuser_infowhereuser_id="&rs("user_id")&"")(0)%>
联系OICQ:&Site=大学校园网络店铺&Menu=yes><%=Conn.ExeCute("selectuser_qqfromuser_infowhereuser_id="&rs("user_id")&"")(0)%>
商品描述:<%=left(rs("goods_content"),100)%>
[">浏览该店铺的其它商品]
<%endif%>
4.3.6销售商商品列表
图4.6
4.程序清单(goods_list.asp)
functionCheckInput(){
if(input.username.value==''){
alert("用户帐号不能为空!");
input.username.focus();
returnfalse;}
if(input.password.value==""){
alert("密码不能为空!")
input.password.focus();
returnfalse;}
returntrue;}
<%dimstrsql,rs
setrs=server.CreateObject("adodb.recordset")
strsql="select*fromgoods_infoorderbygoods_iddesc"
rs.openstrsql,conn,1,1%>
商品列表
<%
IFnotrs.eofandnotrs.bofthen
dimpage_size
dimpage_no
dimpage_total
page_size=20
ifrequest.QueryString("page_no")=""then
page_no=1
else
page_no=cint(request.QueryString("page_no"))
endif
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_no
dimI,J
I=0
J=page_size
dowhilenotrs.eofandJ>0
J=J-1
I=I+1%>
·"target="_blank"><%=rs("goods_name")%>
(<%=rs("goods_date")%>)
<%
Rs.MoveNext
Loop
EndIF %>
[本页是<%=int(page_no)%>/<%=int(page_total)%>][第一页]
<%ifint(page_no)>1then%>
[">前一页]
<%elseifint(page_no)<=1then%>
[前一页]
<%endif%>
<%ifint(page_no)
[">后一页]
<%elseifint(page_no)>=int(page_total)then%>
[">后一页]
<%endif%>
[">最后一页]转到
"size="5">页
结束语
本次校园网上购物平台是经过我们组员很长时间的调查,研究,分析,和收集资料才开始具体实施的,它的主要特点是用户足不出户就能够快速便捷的上网搜索信息增加选择范围往,网上购物和多样化的网上信息服务,网上娱乐。网上购物采用Wed技术,借助于Internet互联网广泛应用技术,达到资源共享,缩短人们的时间和提高工作效率,具有较好的交互性,从而实现信息化,规范化,系统化,网络化的平台,使整个购物活动过程简单、方便、易行。
由于时间较紧,水平和技术有限,这个网站尚存在一些不足之处,例如低价商品还有一些易损坏易腐蚀变化商品不适合在网上销售,网上购物物流配送不健全,效益难以计算,科技人才素质不全面。但系统仍然处于不断完善的过程中,由于时间有限我们省略了留言版,购物车,网上支付的模块。望各位老师给予批评和指教。
参考文献
[1]汪晓平,钟军.ASP网络开发技术[M].第二版.北京:人民邮政出版社,2003.
[2]张一鸣,桂林,张家祥.个人网站组建实用教程[M].第一版.西安:电子科技大学出版社,2004.
[3]龙马工作室.ASP+SQLServer组建动态网站[M].第一版.北京:人民邮电出版社,2004.
[4]蔡翠平,尚俊杰.网络程序设计-ASP[M].第一版.北京:清华大学出版社,2002.
[5]白以恩.计算机网络基础及应用[M].哈尔滨:哈尔滨工业大学出版社,2000.
[6]姚国章.中国企业电子商务发展战略[M].北京:北京大学出版社,2001.
[7]郝阿朋,杨清编著.WEB网页开发基础教程.北京:国防工业出版社,2001.
[8]王永辉编著.网页制作真容易.上海:上海科学技术出版社,2002.
[9]彭万波等编著.网页设计精彩实例.北京:电子工业出版社,2002.
[10]任永功等编著.网站规划与网页设计.北京:电子工业出版社,2003.
致谢
光阴流
??
??
??
??
1
上一篇:bookshop程序(论文和程序)
下一篇:问卷调查可以自动生成试卷等,并且只能一个用户登录