ASP校园网站相册管理系统设计与实现

本系统是根据网站上图片说明的需要而设计的一个子系统，它作为一个网站的一个分支，可以使同学对该网站有生动的认识与更好参与。

本系统分为三个部分：信息平台，交互平台，管理平台。具体可以分为：浏览系统，上传系统，管理员登录系统，更新系统，删除系统，后台数据库管理系统六个子系统组成。

本系统的开发工具是DREAMWEAVER+ASP（JAVASCRIPT、VBSCRIPT、HTML）+ MICROSOFT ACCESS 等一些插件的运用，开发过程中运用了页面模块化、构件化及信息发布的动态生成、静态页面显示等技术。

使用ASP+ACCESS方法，而制作的相册管理系统，主要有：信息平台，交互平台，管理平台，

信息平台：

鉴于本系统的用处，信息平台是该系统的最重要的一个平台之一。该平台主要介绍图片的信息（说明，上传时间，一些内容，以及上传人）。

交互平台：

交互平台是建立在网络基础之上的。当信息平台有内容时，各地一些同学可以通过网络对该网站内的一些图片浏览与上传发表感想。便与同学的交流。

当然，作为一个整体的网站，平台的设置是交互式的，也就是说相互交叉的，但目的只有一个，那就是为了网站访问者更好的访问，获取尽量多的信息。因此在制作网站的时候，充分考虑到了网速带宽的问题，制作者本着简洁快速，又不失活泼的原则设计了本站。

管理平台：

对一些图片的信息的管理，图片的上传、更新、删除。管理平台主要的是介绍图片的信息、与对图片信息的处理。当然还有对图片的浏览。

1、建立一个针对网站内外进行宣传服务的信息库，及时发布网站的各种规定，宣传介绍该网站。

2、提高同学对本网站的了解与同学之间的了解性。

3、信息发布页面，应实现网页常用模块的组件化，页面内容动态生成。

4、后台管理：

a  灵活的后台管理权限分级设置。

b  完善的数据备份恢复方案，为防范系统运行过程中的不可预知的风险提供数据安全恢复的手段。

c  提供图片的管理。

d  提供门户首页信息的在线发布。

3.3功能概述

本系统分为三个部分：信息平台，交互平台，管理平台。具体可以分为：浏览系统，上传系统，管理员登录系统，更新系统，删除系统，后台数据库管理系统六个子系统组成。

下面分别介绍这几个系统的功能：

浏览系统：

固然是用来查看已经上传了的图片。上面显示了图片的一些信息（标题，上传时间，图片说明，编辑人，内容。）。此页面提供观看。

上传系统：

上传系统就是通过这个系统把相片与相片相关的信息添加到页面当中去。

管理员登录系统：

管理员登录该系统后，可以对后台的几个数据库进行相应的管理操作，管理员可以对图片的信息更新，删除。这个限制了一般用户，设置了级别。

更新系统：

更新系统是对图片信息中一些数据的更改。例如更改标题，图片说明，编辑人，内容。

删除系统：

是管理员对该一个或多个图片信息觉得不适，而除去。

总体结构图

 

数据库表名：图片信息（pic）

同义词（别名）：无

主键：ID

外键：无

约束：

列名	数据类型	取值范围	列级完整性约束	描述
ID	长整型	无	Not null	自动编号
P_title	varchar	20	Null	图片标题
P_date	varchar	无	NOW	上传时间
P_intro	varchar	20	Null	图片说明
P_editor	varchar	20	Null	编辑人
P_repic	varchar	20	Null	图片
P_content	varchar	无	Null	图片言论

数据库表名：管理员（admin）

同义词（别名）：无

主键：admin

外键：无

约束：

列名	数据类型	取值范围	列级完整性约束	描述
admin	varchar	20	Null	管理员名
password	varchar	20	Null	密码

 

 

 

本系统包括这个功能文件的上传与更新、删除、浏览。这几项功能的实现都与数据库相联接。

代码示例：

1、设置数据库连接：连接字符串为

“Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”&Server.MapPath(“/…../…./pic.mdb”)

2、设置数据库与页面绑定和启用

<%

Dim Recordset1

Dim Recordset1_numRows

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

Recordset1.ActiveConnection = MM_connpic_STRING

Recordset1.Source = "SELECT * FROM pic"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

3、重复区域

<%

  Repeat1__index=Repeat1__index+1

  Repeat1__numRows=Repeat1__numRows-1

  Recordset1.MoveNext()

Wend

%>

4、便于查看记录翻页

<% While ((Repeat1__numRows <> 0) AND (NOT xygg.EOF)) %>

<%  Repeat1__index=Repeat1__index+1

  Repeat1__numRows=Repeat1__numRows-1

  xygg.MoveNext()

Wend %>

5、转到详细页面

">相片管理

6、数据库的关闭

<% pic.Close()

Set pic = Nothing %>

插入数据库代码：

              insert into table (p_titile,p_enditor,p_data,repic,p_instro,p_content) values (p_titile,p_enditor,p_data,repic,p_instro,p_content)

从数据库中提取用户名和密码：

" FROM admin WHERE admin='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(Request.Form("passwd"),"'","''") &

 

限制访问：

"<%

' *** Restrict Access To Page: Grant or deny access to this page

MM_authorizedUsers=""

MM_authFailedURL="AdminLogin.asp"

MM_grantAccess=false

If Session("MM_Username") <> "" Then

  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _

         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then

    MM_grantAccess = true

  End If

End If

If Not MM_grantAccess Then

  MM_qsChar = "?"

  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"

  MM_referrer = Request.ServerVariables("URL")

  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()

  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)

  Response.Redirect(MM_authFailedURL)

End If

%>

更新语句：

          <%

Dim Recordset1

Dim Recordset1_numRows

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

Recordset1.ActiveConnection = MM_connpic_STRING

Recordset1.Source = "SELECT * FROM pic WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + ""

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%> 

删除语句：

<%

' *** Delete Record: declare variables

if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") The

  MM_editConnection = MM_connpic_STRING

  MM_editTable = "pic"

  MM_editColumn = "id"

  MM_recordId = "" + Request.Form("MM_recordId") + ""

  MM_editRedirectUrl = "photoAdmin.asp"

  ' append the query string to the redirect URL

  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

    Else

      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

    End If  End If

 End If

%>

未完待续。。。