交友网站建设毕业设计

交友网站建设毕业设计[java毕业论文下载]

交友录设计

  •  前言

在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)在IE浏览器中可以显示程序执行的结果,可是,客户端(client)若使用Netscape浏览

就无法显示VBScript的执行结果。

 1.2.2ASP的特点

ASP的特点的特点为:

  • 任何开发工具皆可发展ASP
            

 

  • 只要使用一般的文书编辑程序,如Windows记事本,就可以编辑。当然,其他网页发展工具,例如,FrontPage Express、 FFrontPage等也都可以;不过还是建议你用记事本来写,既省钱又方便,若是使用那些所见即所得的网页编辑来写ASP,可能会发生一些意想不到的离奇状态。
    通吃各家浏览由于ASP程序是在网络服务器端中执行,执行结果所产生的HTML文件适用于不同的浏览器。
    2、语言相容性高
           ASP与所有的ActiveX Script语言都相容,除了可结合HTML,VBScript、Java Script、Active X服务器组件来设计外,并可经由“plug-In(外挂组件模组)的方式,使用其他厂商(Third Party)所提供的语言。
    3、隐密安全性高
            如果我们在浏览器中直接查看网页的原始代码,就只能看到HTML文件,原始的ASP程序代码是看不到的!这是应届ASP程序先于网站服务(Web  Server)端执行后,将结果转换成标准HTML文件,再传送到客户端(Client)的浏览器上,因此,我们所辛苦撰写的ASP程序并不会轻易地被看见进而被盗用。
    4、易于操控数据库
            ASP可以轻易地通过ODBC(Open Database Connectivity)驱动程序连接各种不同的数据库,例如:Access、FoxPro、dBase、Oracle等等,另外,ASP亦可将“文本文件”或是”Excel” 文件当成数据库用。
    5、面向对象学习容易
            ASP具备有面向对象(Oobject-Oriented)功能,学习容易,ASP提供了五种方便能力强大的内建对象:Request、Response、Sever、Application以及Session,同时,若使用ASP内建的“Application”对象或”Session”对象所撰写出来的ASP程序可以在多个网页之间暂时保存必要的信息。
    6、对象名称 功能描述
            

 

  •  RequestResponseServerSessionApplicationObjectContext 从客户端取得信息将信息送给客户端提供一些Web服务器工具储存在一个Session内的用户信息,该信息仅可被

该用户访问在一个ASP-Application中让不同的客户端共享信息可以用来配合Microsoft Transaction 服务器进行分布式事务处理,所以我选择了ASP结合FrontPage建构北京市轻工技术学院网站。

  •   系统编程环境基础知识

热网管理系统主要有以下几项功能要求:

*按不同权限登录系统。

*对其提供的部门资料情况进行添加、查询、修改和删除操作。

*对其提供的人员资料情况进行添加、查询、修改和删除操作。

*对其提供的人员考勤资料情况进行添加、查询、修改和删除操作,并可按考勤月份进行分类。

*对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作,并可按工资月份进行分类。

*可添加新的用户,修改用户原有的用户名、密码,删除原有用户。 

第三章 需求分析

3.1目标设计

在线交友网站所要实现的功能如下.

  • 网友注册
    • 网友注册信息
    • 网友登录验证
  • 网友个人管理
    • 个人资料管理
    • 相片管理
    • 交友请求管理

 

 

  • 交友回复管理
  • 留言管理
  • 网站会员管理
    • 管理员对注册会员管理

系统功能分析与设计

在线交友共分为三个模块:网友注册模块,网友个人管理模块和网站管理模块,其功能模块划分如图所示:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3.2数据库结构设计

根据系统功能设计要求和模块划分,本站的数据库主要存储用户注册信息、留言信息和好友信息。

 

 

数据库需求分析

数据项和数据结构如下

  • 用户简单注册信息:user-name,用户名,密码注册日期
  • 用户详细注册信息:lar_id,用户ID,姓名,生日,年龄,学历,职业,单位,邮政编码,电话,简历,性格和星座。
  • 留言信息表:id,留言者姓名,留言内容,留言时间,对方用户ID和留言者ID。
  • 好友信息列表:ID,对方用户ID,申请好友者用户ID,申请好友者用户名,性别和地区。

数据库逻辑设计

  • 用户简单注册信息表user_name如图:

 

  • 用户详细注册信息表larchives如图所示:

 

 

 

 

 

 

 

  • 留言信息表leaveword如图所示:

 

  • 好友信息列表friend如图所示:

 

数据库链接说明:

conn.asp文件的数据库连接程序如下。

<%

dim conn,DBPath

Set conn = Server.CreateObject("ADODB.Connection")

conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("data/data.mdb")&";"

%>

在conn.asp文件中的图片数据库连接程序如下.

<%

 

 

set conn=server.createobject(“data/picture.mdb”)

DBParh=server.mappath(“data/picture.mdb”)

Conn.open”driver={Microsoft acciss driver(*.mdb)};dbq=” &dbpath

%>

网友注册模块

网友注册模块包含以下子模块.

  • 会员注册
    • reg.asp
    • regsubmit.asp
    • regok.asp
    • register.asp
    • ladd.sap
    • read.asp
  • 用户登录验证
  • default.asp
  • login.asp
  • your.asp

各页面间的关系如图所示.

 

 

 

 

 

 

 

 

 

 

 

第四章 各页面设计与代码

4.1用户注册页

该页面有三个表单元素

页面所涉及的数据库表信息

此面公向系统提交用户注册名称和密码,并没有涉及到数据库表的操作.

页面代码:

<%

if session(“user_id”)<>1 then

  response.redirect”havereg.htm”

end if

%>

4.2用户注册不成功页regsubmit.asp

  • 页面中需要填写HTML表单元素.

此页无需填写表单元素.

  • 页面所涉及的数据库表信息

此页为系统验证用户注册名称和密码,涉及到用户数据库表USER_REG的操作.

  • 页面代码分析

   <!--#include file="conn.asp"-->

<%

   user_name     =left(request("user_name"),10)

   password      =left(request("password"),10)

if password="" then

   response.write "数据有错!"

   response.end

end if

 

 

Set rs_user = Server.CreateObject("ADODB.Recordset")

sql="select * from user_reg where user_name like '" & user_name & "'"

rs_user.open sql,conn,3,2

if rs_user.eof and rs_user.bof then

        rs_user.addnew

        rs_user("user_name")=user_name

        rs_user("password")=password

        rs_user("date")=date

        rs_user.update

        rs_user.movelast

        session("user_id")=rs_user("user_id")

        rs_user.close

        response.redirect "regok.asp"

        response.end

else

%>

  • 3用户注册成功页
    • 页面中需要用户填写的HTML表单元素

此页面为用户注册成功后显示的页面,页面中无需填写HTML表单.

  • 页面所涉及的数据库表信息

此页没有涉及到数据库表的操作

  4.4 用户填写个人信息页

  • 页面所涉及的数据库表信息

此页为用户填写个人档案页面,并没有涉及到数据库表的操作.

  • 页面代码分析

<!--#include file="conn.asp"-->

<%

 

 

dim rs_lar

dim sql

dim i

if isnull(session("user_id")) then

   response.redirect "timeout.htm"

end if

if session("user_id")="1" then

    response.redirect "notreg.htm"

 response.end

end if

Set rs_lar = Server.CreateObject("ADODB.Recordset")

sql="select * from larchives where user_id =" & session("user_id")

rs_lar.open sql,conn,3,2

if not(rs_lar.eof and rs_lar.bof) then

   response.redirect "haveregist.htm"

   response.end

end if

rs_lar.close

set rs_lar=nothing

set conn=nothing

%>

4.5用户信息显示页read.asp

  • 页面中需要用户填写的HTML表单元素

此页面为用户档案显示页面,页面中无需填写HTML表单元素.

  • 页面所涉及的数据库表信息

此页涉及到用户详细注册信息数据库表larchives的操作.

  • 页面代码分析

 

 

 <%

Option Explicit

dim connpic

dim rs_lar,rspic,rs_apply,rs_friend

dim user_id,sql,willstr

dim picid,cur,pics

%>

<!--#include file="conn.asp"-->

<%

if isempty(session("user_id")) or session("user_id")="" then

   response.redirect "timeout.htm"

end if

user_id=request("user_id")

Set rs_lar = Server.CreateObject("ADODB.Recordset")

sql="select * from larchives where user_id=" & user_id

rs_lar.open sql,conn,3,2

Set connpic = Server.CreateObject("ADODB.Connection")

DBPath = Server.MapPath("data/picture.mdb")

connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Set rspic = Server.CreateObject("ADODB.Recordset")

sql="select * from pic where user_id=" & user_id

rspic.open sql,connpic,1,1

set 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,1

 

 

if not(rs_apply.eof and rs_apply.bof) then

willstr=rs_lar("netname") & "已向您发出交友请求"

end if

rs_apply.close

set rs_apply=nothing

set 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,1

if not(rs_friend.eof and rs_friend.bof) then

willstr=rs_lar("netname") & "是您的好友"

end if

rs_friend.close

set rs_friend=nothing

set rs_apply=server.createobject("adodb.recordset")

sql="select * from apply where user_id =" & session("user_id") & " and for_id=" & user_id

rs_apply.open sql,conn,1,1

if not(rs_apply.eof and rs_apply.bof) then

willstr="您已向“" & rs_lar("netname") & "”发出交友请求,请静候佳音!"

end if

rs_apply.close

set rs_apply=nothing

if rspic.eof and rspic.bof then

   picid=1

  

 

 cur=1

else

   rspic.pagesize=1

   cur=request("cur")

   if cur="" or clng(cur)<1 then cur=1

   if clng(cur)>rspic.pagecount then cur=rspic.pagecount

   rspic.absolutepage=cur

   picid=rspic("id")

end if

   pics=rspic.recordcount

%>

<script language="JavaScript">

<!--

function MM_findObj(n, d) { //v3.0

  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];

  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;

}

function MM_showHideLayers() { //v3.0

  var i,p,v,obj,args=MM_showHideLayers.arguments;

  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];

   

 

 if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }

    obj.visibility=v; }

}

//-->

</script>

4.6用户登录成功页your.asp

  • 页面中需要用户填写的HTML表单元素

此页为用户登录成功信息页面,无表单元素

  • 页面涉及的数据库表信息

此页使用了系统中的用户简单注册信息表user_reg,用户详细注册信息表larchives

  • 页面代码分析

<!--#include file="conn.asp"-->

<%

dim rs_lar,rs_word,rs_apply,rs_back,rs_friend,rs_user

dim sql

if isempty(session("user_id")) then

   response.redirect "timeout.htm"

end if

if session("user_id")=1 then response.redirect "notreg.htm"

Set rs_lar = Server.CreateObject("ADODB.Recordset")

sql="select * from larchives where user_id =" & session("user_id")

rs_lar.open sql,conn,3,2

if rs_lar.eof and rs_lar.bof then

 response.redirect "notregist.htm"

 

 

 response.end

end if

Set rs_word = Server.CreateObject("ADODB.Recordset")

sql="select * from leaveword where for_id=" & session("user_id") & " order by id desc"

rs_word.open sql,conn,1,1

set rs_apply=server.createobject("adodb.recordset")

sql="select * from apply where for_id=" & session("user_id")

rs_apply.open sql,conn,3,2

set rs_back=server.createobject("adodb.recordset")

sql="select * from back where for_id=" & session("user_id")

rs_back.open sql,conn,3,2

set rs_friend=server.createobject("adodb.recordset")

sql="select * from friend where for_id=" & session("user_id")

rs_friend.open sql,conn,3,2

Set rs_user = Server.CreateObject("ADODB.Recordset")

sql="select * from user_reg where user_id=" & session("user_id")

rs_user.open sql,conn,3,2

%>

 4.7 网友个人管理模块

  • 资料管理
  • 相片管理
  • 交友请求回复管理
  • 留言管理

资料管理子模块包含以下页面

  • edit.asp
  • dadd.asp

 

 

  • delhy.asp

相片管理子模块包含以下页面

  • sendphoto.asp
  • addpic.asp
  • delpic.asp

交友请求回复管理子模块包含以下页面

  • accept.asp
  • refse.asp
  • moveto.asp’
  • delqq.asp

留言管理子模块包含以下页面

  • leaveword.asp
  • delliuyan.asp

各页面间的关系如图所示

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

用户个人修改信息页

以下为用户修改档案所看到的页面:

交友网站建设毕业设计[点击下载]

如需要全部源码,联系QQ:2812491287如需要全部源码,联系QQ:2812491287

评论