资源目录
压缩包内文档预览：(预览前20页/共43页)
编号：438716
类型：共享资源
大小：1.35MB
格式：RAR
上传时间：2015-06-03
上传人：小***
认证信息
个人认证
林**（实名认证）
福建
IP属地：福建
20
积分
- 关 键 词：
-
asp
交友
网站
建设
毕业设计
源代码
论文
- 资源描述：
-
ASP交友网站建设毕业设计(源代码+论文),asp,交友,网站,建设,毕业设计,源代码,论文
- 内容简介：
-
交友录设计第一章 前言在Internet飞速发展的今天，电子数字计算机是20世纪重大科技发明之一，而互联网成为人们快速获取、发布和传递信息的重要渠道，它在人们政治、经济、生活等各个方面发挥着重要的作用。Internet上发布信息主要是通过网站来实现的，获取信息也是要在Internet“海洋”中按照一定的检索方式将所需要的信息从网站上下载下来。因此网站建设在Internet应用上的地位显而易见，它已成为机关、学校、企事业单位、甚至进入寻常百姓家的信息化建设中的重要组成部分，从而倍受人们的重视。而我校为了更好的办学，提高学校知名度，为同学们提供一个友谊的桥梁. 1.1 设计思想 通过网站，全面宣传，展示学校 风采、优点与特色.1.2 开发工具的选用及介绍1.2.1ASP的优势 Active Server Pages：“动态服务器网页”，一般简称为“ASP”，ASP之所以能受到大家的重视与使用的原因，主要在于所产生的执行结果都是标准的HTML格式，而且这些程序是在网络服务端中执行，使用一般的浏览器（如IE 或Netscape）都可以正确地获得ASP的“执行”结果，并且将这ASP执行的结果直接在浏览器中“浏览”，不像VBScript或 JavaScript是在客户端（Client）的浏览器上执行，若使用VBScript来设计程序，客户端（client）在浏览器中可以显示程序执行的结果，可是，客户端（client）若使用Netscape浏览就无法显示VBScript的执行结果。 1.2.2的特点的特点的特点为：1、 任何开发工具皆可发展 2、 只要使用一般的文书编辑程序，如Windows记事本，就可以编辑。当然，其他网页发展工具，例如，FrontPage Express、 FrontPage等也都可以；不过还是建议你用记事本来写，既省钱又方便，若是使用那些所见即所得的网页编辑来写，可能会发生一些意想不到的离奇状态。通吃各家浏览由于ASP程序是在网络服务器端中执行，执行结果所产生的HTML文件适用于不同的浏览器。2、语言相容性高 ASP与所有的ActiveX Script语言都相容，除了可结合HTML，VBScript、Java Script、Active X服务器组件来设计外，并可经由“plug-In（外挂组件模组）的方式，使用其他厂商（Third Party）所提供的语言。3、隐密安全性高 如果我们在浏览器中直接查看网页的原始代码，就只能看到文件，原始的程序代码是看不到的！这是应届程序先于网站服务（eb Server）端执行后，将结果转换成标准文件，再传送到客户端（Client）的浏览器上，因此，我们所辛苦撰写的程序并不会轻易地被看见进而被盗用。4、易于操控数据库 可以轻易地通过DBC(Open Database Connectivity)驱动程序连接各种不同的数据库，例如：Access、FoxPro、dBase、Oracle等等，另外，亦可将“文本文件”或是”Excel” 文件当成数据库用。5、面向对象学习容易 具备有面向对象（object-Oriented）功能，学习容易，提供了五种方便能力强大的内建对象：Request、Response、Sever、Application以及Session，同时，若使用内建的“Application”对象或”Session”对象所撰写出来的程序可以在多个网页之间暂时保存必要的信息。 6、对象名称 功能描述 3、 RequestResponseServerSessionApplicationObjectContext 从客户端取得信息将信息送给客户端提供一些Web服务器工具储存在一个Session内的用户信息，该信息仅可被该用户访问在一个ASP-Application中让不同的客户端共享信息可以用来配合Microsoft Transaction 服务器进行分布式事务处理，所以我选择了ASP结合FrontPage建构北京市轻工技术学院网站。第二章 系统编程环境基础知识热网管理系统主要有以下几项功能要求：*按不同权限登录系统。*对其提供的部门资料情况进行添加、查询、修改和删除操作。*对其提供的人员资料情况进行添加、查询、修改和删除操作。*对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考勤月份进行分类。*对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并可按工资月份进行分类。*可添加新的用户，修改用户原有的用户名、密码，删除原有用户。 第三章 需求分析3.1目标设计在线交友网站所要实现的功能如下.l 网友注册n 网友注册信息n 网友登录验证l 网友个人管理n 个人资料管理n 相片管理n 交友请求管理n 交友回复管理n 留言管理l 网站会员管理n 管理员对注册会员管理系统功能分析与设计在线交友共分为三个模块:网友注册模块,网友个人管理模块和网站管理模块,其功能模块划分如图所示:网友注册模块网友注册信息网友登录验证网友个人管理模块个人资料相片管理交友请求管理留言管理交友回复管理网站管理模块注册会计管理3.2数据库结构设计根据系统功能设计要求和模块划分,本站的数据库主要存储用户注册信息、留言信息和好友信息。数据库需求分析数据项和数据结构如下 l 用户简单注册信息：user-name,用户名，密码注册日期l 用户详细注册信息：lar_id,用户ID，姓名，生日，年龄，学历，职业，单位，邮政编码，电话，简历，性格和星座。l 留言信息表：id,留言者姓名，留言内容，留言时间，对方用户ID和留言者ID。l 好友信息列表：ID，对方用户ID，申请好友者用户ID，申请好友者用户名，性别和地区。数据库逻辑设计1 用户简单注册信息表user_name如图：2 用户详细注册信息表larchives如图所示：3 留言信息表leaveword如图所示：4 好友信息列表friend如图所示：数据库链接说明：conn.asp文件的数据库连接程序如下。在conn.asp文件中的图片数据库连接程序如下.网友注册模块网友注册模块包含以下子模块.l 会员注册n reg.aspn regsubmit.aspn regok.aspn register.aspn ladd.sapn read.aspl 用户登录验证n default.aspn login.aspn your.aspreg.aspregsubmit.aspregok.aspregisrer.aspladd.aspreg.aspdefault.asplogin.aspyesyour.aspdefault.asp各页面间的关系如图所示.read.asp第四章 各页面设计与代码4.1用户注册页该页面有三个表单元素页面所涉及的数据库表信息此面公向系统提交用户注册名称和密码,并没有涉及到数据库表的操作.页面代码:%if session(“user_id”)1 then response.redirect”havereg.htm”end if%4.2用户注册不成功页regsubmit.asp1. 页面中需要填写HTML表单元素.此页无需填写表单元素.2. 页面所涉及的数据库表信息此页为系统验证用户注册名称和密码,涉及到用户数据库表USER_REG的操作.3. 页面代码分析 4. 3用户注册成功页1. 页面中需要用户填写的HTML表单元素此页面为用户注册成功后显示的页面,页面中无需填写HTML表单.2. 页面所涉及的数据库表信息此页没有涉及到数据库表的操作 4.4 用户填写个人信息页1. 页面所涉及的数据库表信息此页为用户填写个人档案页面,并没有涉及到数据库表的操作.2. 页面代码分析4.5用户信息显示页read.asp1. 页面中需要用户填写的HTML表单元素此页面为用户档案显示页面,页面中无需填写HTML表单元素.2. 页面所涉及的数据库表信息此页涉及到用户详细注册信息数据库表larchives的操作.3. 页面代码分析 %if isempty(session(user_id) or session(user_id)= then response.redirect timeout.htmend ifuser_id=request(user_id)Set rs_lar = Server.CreateObject(ADODB.Recordset)sql=select * from larchives where user_id= & user_idrs_lar.open sql,conn,3,2Set connpic = Server.CreateObject(ADODB.Connection)DBPath = Server.MapPath(data/picture.mdb)connpic.Open driver=Microsoft Access Driver (*.mdb);dbq= & DBPathSet rspic = Server.CreateObject(ADODB.Recordset)sql=select * from pic where user_id= & user_idrspic.open sql,connpic,1,1set rs_apply=server.createobject(adodb.recordset)sql=select * from apply where for_id= & user_id & and user_id= & session(user_id)rs_apply.open sql,conn,1,1if not(rs_apply.eof and rs_apply.bof) thenwillstr=rs_lar(netname) & 已向您发出交友请求end ifrs_apply.closeset rs_apply=nothingset rs_friend=server.createobject(adodb.recordset)sql=select * from friend where (for_id= & session(user_id) & and user_id= & user_id & ) or (for_id= & user_id & and user_id= & session(user_id) & )rs_friend.open sql,conn,1,1if not(rs_friend.eof and rs_friend.bof) thenwillstr=rs_lar(netname) & 是您的好友end ifrs_friend.closeset rs_friend=nothingset rs_apply=server.createobject(adodb.recordset)sql=select * from apply where user_id = & session(user_id) & and for_id= & user_idrs_apply.open sql,conn,1,1if not(rs_apply.eof and rs_apply.bof) thenwillstr=您已向“ & rs_lar(netname) & ”发出交友请求，请静候佳音！end ifrs_apply.closeset rs_apply=nothingif rspic.eof and rspic.bof then picid=1 cur=1else rspic.pagesize=1 cur=request(cur) if cur= or clng(cur)rspic.pagecount then cur=rspic.pagecount rspic.absolutepage=cur picid=rspic(id)end if pics=rspic.recordcount%0&parent.frames.length) d=parent.framesn.substring(p+1).document; n=n.substring(0,p); if(!(x=dn)&d.all) x=d.alln; for (i=0;!x&id.forms.length;i+) x=d.formsin; for(i=0;!x&d.layers&id.layers.length;i+) x=MM_findObj(n,d.layersi.document); return x;function MM_showHideLayers() /v3.0 var i,p,v,obj,args=MM_showHideLayers.arguments; for (i=0; i4.6用户登录成功页your.asp1. 页面中需要用户填写的HTML表单元素此页为用户登录成功信息页面,无表单元素2. 页面涉及的数据库表信息此页使用了系统中的用户简单注册信息表user_reg,用户详细注册信息表larchives3. 页面代码分析 4.7 网友个人管理模块l 资料管理l 相片管理l 交友请求回复管理l 留言管理资料管理子模块包含以下页面l edit.aspl dadd.aspl delhy.asp相片管理子模块包含以下页面l sendphoto.aspl addpic.aspl delpic.asp交友请求回复管理子模块包含以下页面l accept.aspl refse.aspl moveto.aspl delqq.asp留言管理子模块包含以下页面l leaveword.asp个人管理页资料管理交友请求回复留言管理相片管理sendphoto.asp图片列表addpic.asp图片添加delpic.asp图片删除Edit.asp档案修改页Eadd.asp档案修改成功Delhy.asp删除好友accept.asp接受交友请求refse.asp拒绝交友请求moveto.asp移入好友列表delqq.asp删除好友列表leaveword.asp回复留言Delliuyan.asp删除留言l delliuyan.asp各页面间的关系如图所示用户个人修改信息页以下为用户修改档案所看到的页面：页面所涉及的数据库表信息此页为用户修改个人档案信息，涉及到用户详细注册信息数据库表larchives页面代码分析用户删除好友Delhy.asp页面此页为用户删除好友列表页面，删除成功后页面跳转到个人管理首页，因此没有页面示例。页面中需要填写的html表单元素此页面无需填写html页面所涉及的数据库表信息此页涉及到用户好友数据库表friend的操作页面代码分析用户管理相片页Sendphoto.asp页面示例图为用户相片管理页所看到的页面页面中需要用户填写的html表单元素该页面中仅有1个表单元素 big 元元素素类型为file 含义相片文件页面所涉及的数据库表信息此页面为用户管理相片页，涉及到对图片数据库表pic的操作页面代码分析function mysubmit(theform) if(theform.big.value=) alert(请点击浏览按钮，选择您要上传的jpg或gif文件!) theform.big.focus; return (false); else str= theform.big.value; strs=str.toLowerCase(); lens=strs.length; extname=strs.substring(lens-4,lens); if(extname!=.jpg & extname!=.gif) alert(请选择jpg或gif文件!); return (false); return (true);用户添加相片页Addpic.asp页面示例此页为添加相片页面，相片添加成功后页面跳转到个人管理首页，因此没有页面示例页面所涉及的数据库表pic的操作页面代码分析用户删除相片页Delpic.asp页面示例此页为用户删除相片列表页面，删除成功后页面跳到个人相片管理首页，因此没有页面示例页面中需要用户填写的html没有页面涉及数据库Pic数据库页面代码%Set rs_id = Server.CreateObject(ADODB.Recordset)sql = select User_id,id from pic where id= & request(id)rs_id.open sql,conn,3,2if session(admin_pass) ok thenif session(user_id) rs_id(user_id) thenresponse.write(您没有删除这个图片的权限！)response.endend ifend ifuser_id1=rs_id(user_id)Set rs_del = Server.CreateObject(ADODB.Recordset)sql=delete * from pic where id= & request(id)rs_del.open sql,conn,3,2conn.close%用户管理交友请求页Accept.asp页面示例图为其他网友提出请求页面，页面需要用户填写的html没有页面所涉及的数据库表信息此页涉及到的表apply，back,friend页面代码分析用户拒绝交友请求页Refuse.asp页面示例图为其他网友提出请求的页面用户将网友移入好友页页面代码Moveto.asp页面示例图为交友请求回复结果的页面页面中需要用户填写的html无需填写页面中所涉及的数据库表信息对back,friend表的操作页面代码分析用户删除交友请求回复页Delqq.asp页面示例图为交友请求回复结果的页面页面中需要用户填写的html元素无需填写页面所涉及的数据库表信息Back表的操作代码分析%if request(id) = then response.redirectdefault.aspresponse.end end ifset rs_id = Server.CreateObject(ADODB.Recordset)sql = select * from back where id= & request(id)rs_id.open sql,conn,3,2if session(admin_pass) ok thenif session(user_id) rs_id(for_id) thenresponse.write(您没有删除权限！)response.endend ifend ifSet rs_del = Server.CreateObject(ADODB.Recordset)sql=delete from back where id= & request(id)rs_del.open sql,conn,3,2conn.closeresponse.redirectyour.aspresponse.end%用户给网友回复页leaveword.asp页面示例图为用户给网友留言回复时所看到的页面页面中需要用户填写的html表单元素一个元素如图所示页面所涉及的数据库表信息此页面为用户给网友的留言回复，涉及到的数据库表leaveword代码分析%On Error Resume Nextdim JMail,bodydim rs_apply,rs_lar,rs_email,rs_worddim user_id,netname,sql,Email,myEmail,myname,word,errst叛断Session变量是否超时if isempty(session(user_id) then response.redirect timeout.htmend ifif session(user_id)=1 thenresponse.redirect notreg.htmresponse.endend ifuser_id=request(user_id)netname=request(netname)Set rs_lar = Server.CreateObject(ADODB.Recordset)sql=select * from larchives where user_id = & session(user_id)rs_lar.open sql,conn,3,2netname =rs_lar(netname)word =htmlencode2(request(word)user_id =request(user_id)if word thenif len(word)1000 or word= then%response.endend if Set rs_word = Server.CreateObject(ADODB.Recordset) rs_word.open leaveword,conn,3,2 rs_word.addnew rs_word(netname)=netname rs_word(word)=word rs_word(date)=date rs_word(for_id)=user_id rs_word(user_id)=session(user_id) rs_word.update rs_word.close set rs_word=nothing response.write & vbcrlf response.write history.go(-2); response.write end if%用户删除网友留言页Delliuyan.asp页面示例此页为用户删除网友的留言页面，删除成功后页面到个人管理页页面中需要的用户填写的html表单元素页面所涉及的数据库表信息此页涉及到用户对留言数据库表leaveword代码分析%if request(id) = then response.redirectdefault.aspresponse.end end ifset rs_id = Server.CreateObject(ADODB.Recordset)sql = select * from leaveword where id= & request(id)rs_id.open sql,conn,3,2if session(admin_pass) ok thenif session(user_id) rs_id(for_id) thenresponse.write(您没有删除权限！)response.endend ifend ifrs_id.closeSet rs_del = Server.CreateObject(ADODB.Recordset)sql=delete from leaveword where id=&request(id)rs_del.open sql,conn,3,2conn.closeresponse.redirect your.aspresponse.end%网站管理模块网站管理模块包含以下几个页面Addminlogin.aspAdminpass.aspAdmin.aspDeluser.asp各页面间的关系如图adminlogin.asp管理员登录adminpass.asp审核账号Admin.asp管理员管理页面Adminlogin.asp重新登录Deluser.asp删除用户 管理员登录页 Adminlogin.asp页面示例 管理员登录页面效果如图 管理员页面效果如图所示，用户账号和密码均为admin 页面中需要用户填写html两个，如图所示 名称 类型 含义 最大长度admin_name text 用户登录账号 14 admin_password password 用户登录密码 14 页面所涉及的数据库 没有 管理员登录失败页代码分析%admin_name=request(admin_name)admin_password=request(admin_password)if InStr(LCase(admin_password),)0 or InStr(LCase(admin_password),or)0 then response.write response.write alert(密码不合法，请重新输入!);response.write history.go(-1);response.write response.endend ifSet rs_admin = Server.CreateObject(ADODB.Recordset)sql=select * from admin where admin_name like & admin_name & and admin_password like & admin_password & rs_admin.open sql,conn,3,2if rs_admin.eof and rs_admin.bof then response.write response.write alert(账号或密码错误！); response.write history.go(-1); response.write response.endend ifrs_admin.closesession(admin_pass)=okresponse.redirect admin.asp% 管理员管理用户页admin.asp 涉及数据库 Larchives页面代码分析%if session(admin_pass)ok then response.redirect adminlogin.asp response.endend ifpx=request(px)if px= then px=j_datesearch_txt=request(search_txt)Set rs_lar = Server.CreateObject(ADODB.Recordset)sql=select user_id,netname,sex,netcall,britherday,ip,renqi,home,date from larchivesif search_txt thensql=sql & where netname like % & search_txt & %sql=sql & or sex like % & search_txt & %sql=sql & or netcall like % & search_txt & %sql=sql & or britherday like % & search_txt & %sql=sql & or ip like % & search_txt & %sql=sql & or renqi like % & search_txt & %sql=sql & or date like & search_txt & sql=sql & or home like % & search_txt & %end ifSelect case px case s_netname sql=sql & Order by time asc case s_sex sql=sql & Order by sex asc case s_britherday sql=sql & Order by britherday asc case s_netcall sql=sql & Order by netcall asc case s_ip sql=sql & Order by ip asc case s_renqi sql=sql & Order by renqi asc case s_home sql=sql & Order by home asc case s_date sql=sql & Order by date asc case j_netname sql=sql & Order by name desc case j_sex sql=sql & Order by sex desc case j_britherday sql=sql & Order by britherday desc case j_netcall sql=sql & Order by netcall desc case j_ip sql=sql & Order by ip desc case j_renqi sql=sql & Order by renqi desc case j_home sql=sql & Order by home desc case j_date sql=sql & Order by time descEnd Selectrs_lar.open sql,conn,1,1if rs_lar.eof and rs_lar.bof then str=!if str= thenrs_lar.PageSize=30 pages=rs_lar.pagecountrecords=rs_lar.recordcountcurrentpage=request(currentpage)if currentpage= or currentpagepages then currentpage=pagesrs_lar.absolutepage=currentpageelse currentpage=1records=0pages=1end if% 管理员删除用户页 De luser.asp 此页没有页面示例 涉及数据库 Apply,back,friend页面代码分析%if session(admin_pass)ok then response.redirect adminlogin.asp response.endend ifuser_id=request(user_id)Set rs_del = Server.CreateObject(ADODB.Recordset)sql=delete from larchives where user_id= & user_idrs_del.open sql,conn,3,2Set rs_del = Server.CreateObject(ADODB.Recordset)sql=delete from user_reg where user_id= & user_idrs_del.open sql,conn,3,2Set rs_del = Server.CreateObject(ADODB.Recordset)sql=dele
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号