est("printed")<>""then
rs("printed")=int(request("printed"))
else
rs("printed")=0
endif
rs("author")=trim(request("author"))
rs("mark")=trim(request("mark"))
rs("introduce")=trim(request("introduce"))
rs("price1")=trim(request("price1"))
rs("price2")=trim(request("price2"))
rs("vipprice")=trim(request("vipprice"))
rs("pic")=trim(request("pic"))
rs("categoryid")=int(request("categoryid"))
rs("sortsid")=int(request("sortsid"))
rs("score")=request("score")
rs("type")=trim(request("type"))
rs("solded")=0
rs("viewnum")=0
rs("adddate")=now()
rs("rank")=0
rs("ranknum")=0
ifrequest("detail")<>""then
rs("detail")=htmlencode2(request("detail"))
endif
ifrequest("content")<>""then
rs("content")=htmlencode2(request("content"))
endif
ifrequest("detail")<>""then
rs("desc")=htmlencode2(strvalue(request("detail"),100))
endif
'是否推荐产品
ifrequest("recommend")=1then
rs("recommend")=1
else
rs("recommend")=0
endif
rs.Update
rs.Close
setrs=nothing
callMsgBox("添加成功!","GoUrl","addpro.asp")
response.End
endif
%>
3.3.2客户和管理员用户的管理
quser.asp是客户管理程序,在此页面上管理员可对客户进行管理,单击某一用户名,还可对该客户的详细信息进行修改,但不能修改用户名。该页面还带有一个搜索用户的功能,其运行页面如图3-9
图3-9客户管理页面
其主要代码如下:
<%
'判断管理员级别
ifsession("rank")>1then
callMsgbox("你的权限不够!","Back","None")
response.End
endif
%>
<%
判断管理员是否单击了删除用户按钮
ifNOTisempty(request("DelQuserSubmit"))then
dimuserid
'把表单传递过来的数据赋值给userid
userid=request.QueryString("id")
ifuserid=""thenuserid=request("userid")
'执行删除语句,删除选定客户
conn.execute"deletefrom[user]whereuseridin("&userid&")"
conn.execute"deletefromorderswhereuseridin("&userid&")"
response.Redirect"quser.asp"
endif
%>
manage/huser.asp实现管理员用户的添加、删除及修改管理权限等操作。管理员账户是不能注册的,但能通过已登陆的有管理权限的管理员添加。其运行界面如图3-10
图3-10管理员管理页面
其代码如下:
<%
'管理员权限判断
ifsession("rank")>1then
callMsgbox("你的权限不够!","Back","None")
response.End
endif
%>
<%
'如果提交表单就建立Recoredset对像
IfNOTIsEmpty(Request.Form)then
setrs=server.CreateObject("adodb.recordset")
'取得处理id号
dimid
id=request("Id")
endif
'添加后台用户
IfNOTIsEmpty(Request("AddHuser"))then
rs.open"select*fromadmin",conn,1,3
rs.addnew
rs("admin")=trim(request("AddName"))
rs("password")=md5(trim(request("AddPws")))
rs("rank")=int(request("AddRank"))
rs.update
rs.close
setrs=nothing
callMsgBox("添加成功!","GoUrl","huser.asp")
endIf
'删除后台用户
IfNOTIsEmpty(request("Del"))then
'取得Id号
conn.execute("deletefromadminwhereid="&id)
callMsgBox("删除成功!","GoUrl","huser.asp")
endIf
'修改后台用户资料
ifNOTIsEmpty(request("Modify"))then
'取得Id号
rs.Open"select*fromadminwhereid="&id,conn,1,3
rs("admin")=trim(request("Name"))
iftrim(request("password"))<>""then
rs("password")=md5(trim(request("password")))
endif
rs("rank")=int(request("rank"))
rs.Update
rs.Close
setrs=nothing
callMsgBox("修改成功!","GoUrl","huser.asp")
endif
%>
第四章网站的建立与运行环境
网站的建立与测试
在实现了整个网上书店的系统功能之后,需要建立一个网站对其进行测试。具体步骤如下:
①首先确保安装了Web服务器,比如Apache、Tomcat或IIS。本系统使用IIS。
②本网上书店系统的所有文件复制到wwwroot目录下。
③设置启动默认文档为index.asp。这样,在IE地址栏中输入http://localhost/bookstore/index.asp便能进入网上书店的首页了。
运行环境
网站案例均使用ASP动态网页发布技术开发,并使用Access数据库管理系统存放、维护网站的数据资料。因此,配置这些网站时需要满足以下系统配置要求。
▲ 操作环境:WindowsNT
▲ Web服务器:IIS4.0或IIS5.0
▲ 数据库服务器:MicrosoftAccess2000
▲ 客户端:IE、Netscape
结束语
在学习了基于WindowsNT+IIS的网络服务器体系结构和ASP等Web开发技术,以及对数据库有了一定了解的基础上,完成了该网上书店系统。
网上购物是当今Web应用的潮流,许多站点上都可以见到关于此方面的尝试。我们这里研究设计的方案从最后测试结果来看,效果比较明显,生成的页面能够较好地反映用户的兴趣偏向,当然,要作为实际应用还有一些具体细节问题需要
解决。
致谢
首先,我要深深的感谢我的指导老师某某老师。在我做毕业设计这短短的一个学期的时间里,李老师严谨的治学态度、渊博的理论知识和诲人不倦的师者风范给我留下了深深的印象,这些都将使我终生受益。在我论文研究的立题、设计等诸方面给予了极大的帮助,使我的毕业课题和论文在理论和实践上得到了极大地丰富和提高。同时,真诚的感谢大学阶段所有的任课老师。在此,我向您们表示衷心的感谢!
感谢我大学时代的所有同学,难忘一起走过、相互关心、鼓励、支持和帮助的日子。感谢他们在学习和生活中对我的帮助,也忘不了和他们在一起的快乐时光。在此,祝福他们拥有更加美好的明天!
最后感谢我的父亲、母亲和所有关心支持我的人,正是他们给予了我帮助和关怀,让我学会了如何做人。
参考文献
[1]清汉计算机工作室编著《Access2000中文版事例》机械工业出版社
[2]宋彦浩《ASP建网技术》中国水利水电出版社
[3]石志国《ASP动态网站编程》清华大学出版社
[4]刘文政等编《网页设计三合一综合教程》(MX版)北京:科学出版社,2003
[5]樊健平《ASP高级编程及其项目应用开发》2003年中国水利水电出版社
[6]许卫林《VBScript+ASP动态网页制作》2002年中国电力出版社
[7]藏杨、秦冬等《ASP软件工程案例精解》2004年电子工业出版社
[8]宣小平《ASP数据库系统开发实例导航》2004年人民邮电出版社
[9]赵增敏《ASP动态网页设计》2003年电子工业出版社
[10]ChangjieTANG,RynsonW.H.QingLI,HuabeiYIN,TongLIandDannyKilis,PersonalizedCoursewareConstructionBasedonWebDataMining,,ProceedingsofTheFirstInternationalConferenceOnWebInformationSystemEngineering,19-21June2000,HongKong,Vol.2(Workshops)基于Web数据采掘的个性化课件构造。
[11]PersonalizedDistanceTutorTreeBasedonDataMining,TangChangjie,YinHuabei,Liu,ChangYu,GuoYin,,ZhangTianqing,DepartmentofComputerScience,SichuanUniversity,Chengdu,China610064,个性化远程教学树,_计算机应用JournalofComputerApplicationVol.20No.9Sep.
??
??
??
??
毕业设计(论文)
1
上一篇:
ASP原创信息管理系统(论文和程序)
下一篇:
追求••挣扎•幻灭——祥子的悲剧命运Word论文|Word下载