电子相册课程设计Word文件下载.docx
- 文档编号:6903114
- 上传时间:2023-05-07
- 格式:DOCX
- 页数:37
- 大小:87.92KB
电子相册课程设计Word文件下载.docx
《电子相册课程设计Word文件下载.docx》由会员分享,可在线阅读,更多相关《电子相册课程设计Word文件下载.docx(37页珍藏版)》请在冰点文库上搜索。
6.对学生掌握知识的深度、运用理论去处理问题的能力、实验能力、课程设计能力、书面及口头表达能力进行考核。
2.设计题目及要求
【1】设计题目
【2】要求
实现如下功能:
(1)使用数据库记录相片的信息(图片名称,存放位置,说明信息等)
(2)能够方便的浏览相片
(3)图片管理。
图片管理主要包括复制,删除等操作。
(4)图片上传。
(5)登录、注册功能的实现。
其中包括修改个人信息,发表评论。
3.设计算法
3.1模块层次图
【1】系统文件列表
文件名
说明
index.asp
图片浏览主页面
add_pic.asp
增加图片页面
del_pic.asp
删除图片文件
head.asp
头部结构页面
pic_dl.asp
用户登录页面
pic_zc.asp
用户注册页面
pl_pic.asp
图片评论页面
scflie.asp
上传图片文件到服务器端文件夹,并把相应信息增加到数据库
upload_class.inc
自定义上传图片类
【2】系统模块层次图(设计流程图)
3.2核心算法描述
①head.asp中利用一个条件结构判断用户是否登录,然后根据不同情况显示系统标题和导航提示信息。
②index.asp中用循环结构分别显示所有记录集页码。
以及对多种条件的复杂判断,并根据不同的条件定义不同的记录集查询条件。
3.3系统特点
【1】特点
本系统是动态网页系统,不同于CD/VCD等静止图片的应用系统。
利用网页管理图片,是一个多用户环境下的网页图片管理系统。
它可以实现图片上传、网上管理、网上浏览和交流的功能。
【2】分工
数据库设计:
存储图片信息
电子相册浏览与管理:
1.注册、登录和用户信息操作
2.浏览图片
3.图片评论
4.删除服务器上的图片文件
4.程序代码
【1】程序代码
1conn.asp—数据库连接文件
<
!
--#includefile="
Connections/conn.asp"
-->
%'
如果出错,则跳出下一步
onerrorresumenext
'
定义一个数据库连接对象的具体实例
setconn=server.createobject("
adodb.connection"
)
打开该数据库连接
conn.open
MM_conn_STRING
%>
自定义函数
FunctionSetPwd(sPwd)
sSql="
"
Fori=1ToLen(sPwd)
Ifbtype=TrueThen
sSql=sSql&
Chr(-Asc(Mid(sPwd,i,1))-10000)
Else
EndIf
Next
SetPwd=sSql
EndFunction
FunctionXszh(zh)'
转换参数中特殊字符
ifzh<
>
andnotisnull(zh)then
zh=replace(zh,"
"
"
€"
zh=replace(zh,chr(13),"
br>
zh=lcase(zh)
table"
tr"
%"
script"
title>
/body>
td"
/table>
/tr>
input"
doctype"
/td>
a"
atarget=_blank"
xszh=zh
endif
FunctionZpxr(zp)'
清除字符串中特殊的字符
ifzp<
then
zp=replace(zp,"
/"
\"
FunctionXrzh(zh)
Xrzh=zh
FunctionYzm()
CYZM=cstr(Replace(Timer(),"
."
"
)*Rnd()Mod10000)
fori=1tolen(cyzm)
zyzm=zyzm+mid(cyzm,len(cyzm)-i+1,1)
next
iflen(zyzm)<
4thenzyzm="
0"
+zyzm
3thenzyzm="
00"
2thenzyzm="
0000"
Yzm=zyzm
FunctionBQ()
bq=yr_ban+"
+yr_yr+"
2006©
FunctionJSZC()
jszc="
ahref='
#'
target=_bank>
PowerByaHo<
/a>
Endfunction
functionbb()
bb="
电子相册"
endfunction
functionjdsj()
jdsj=right(cstr(date()),len(cstr(date()))-2)+"
+left(cstr(time()),instrrev(cstr(time()),"
:
)-1)
endfunction%>
baseonmouseover="
window.status='
%=bb%>
;
returntrue"
2pic_zc.asp—用户注册页面
conn.asp"
htm>
head>
scriptlanguage='
javascript'
functionxgjc(mm)
{
if(mm=="
{alert('
密码不能为空!
);
document.de.mm.focus();
returnfalse;
}
if(mm.indexOf("
)>
=0||mm.indexOf("
=0)
alert('
不能有乱码!
}}
functionzcjc(yhm,mm)
if(yhm=="
用户名不能为空!
document.zc.yhm.focus();
varaa="
aa=yhm.substring(0,1);
if((aa<
='
z'
&
aa>
a'
)||(aa<
Z'
A'
))
{}
else
首位不是字母!
if(yhm.indexOf("
=0||yhm.indexOf("
用户名不能有乱码!
document.zc.mm.focus();
/script>
linkrel="
stylesheet"
href="
images/style.css"
type="
text/css"
注册<
/title>
metahttp-equiv="
Content-type"
content="
text/html;
charset=gb2312"
/head>
body>
head.asp"
%cz=request.querystring("
cz"
mm=request.form("
mm"
yhm=request.form("
yhm"
qx=request.form("
qx"
xb=request.form("
xb"
ifcz="
xgxg"
andmm<
andyhm<
exec="
updateadminsetpass='
+setpwd(mm)+"
lx='
+qx+"
xb='
+xb+"
whereyhm='
+yhm+"
conn.executeexec
conn.close
session("
picpass"
)=mm
picqx"
)=qx
)=xb%>
恭喜,修改成功!
window.location="
index.asp"
%endif
zccg"
判断是否重复
setrs=server.createobject("
adodb.recordset"
select*fromadminwhereyhm='
rs.openexec,conn,1,1
ifrs.eofthen
yhm=xrzh(yhm)
insertintoadmin(xb,yhm,pass,jb,rq,lx)values('
'
1'
+cstr(date())+"
)"
picyhm"
)=yhm
picxb"
)=xb
picjb"
)="
1"
)=qx%>
恭喜,申请成功!
%else%>
抱歉,此用户名已经有人用了,请换名后重新申请!
pic_zc.asp?
cz=zc"
endif%>
p>
/p>
%ifcz="
then%>
formname="
zc"
action="
cz=zccg"
method="
post"
tablealign="
center"
tr>
td>
用户名<
inputname="
text"
size="
10"
maxlength="
密码<
password"
tdheaders="
25"
性别<
inputtype="
radio"
value="
男"
name="
checked>
男
女"
女<
浏览范围<
本人
公共<
tdalign="
colspan="
2"
submit"
sdfsd"
注册"
onClick="
javascript:
returnzcjc(yhm.value,mm.value);
button"
返回"
window.location='
index.asp'
/form>
de"
cz=xgxg"
>
用户名:
%=session("
)%>
readonly="
新密码:
%=setpwd(session("
))%>
<
%ifsession("
)="
thenresponse.write"
checked"
修改"
returnxgjc(yhm.value,mm.value);
%endif%>
/htm>
3pic_dl.asp—用户登录页面
html>
用户登录<
%'
获取表单信息
pass=request.form("
pass"
dz=request.querystring("
dz"
pass=setpwd(pass)'
用自定义函数加密密码
ifdz="
exit"
then'
如果用户执行退出功能,则清空session变量
ifyhm<
anddz="
sc"
判断用户名是否为空,以及是否是注册操作
)'
定义记录集,查询该用户名的记录
andjb<
0'
rs.openexec,conn,1,1
ifnotrs.eofthen'
如果存在用户名,则保存该用户记录字段信息
grmm=rs("
xb=rs("
rq=rs("
rq"
jb=rs("
jb"
ifpass<
grmmthen
response.redirect"
pic_dl.asp"
比较输入的密码是否符合,不合法则重新登录
else'
如果不存在该用户名,则重新登录
response.redirect"
登陆成功则保存该用户记录信息,并记住该用户的IP地址,最后返回到index.asp
)=yhm
)=pass
)=jb
)=rs("
lx"
picip"
)=request.servervariables("
remote_addr"
center>
from"
pic_dl.asp?
dz=sc"
inputtype=textname=yhmsize="
tablecellpadding="
4"
cellspacing="
align="
inputtype=submitonClick="
returndl(yhm.value,pass.value);
登录"
inputtype=buttononClick="
index.asp>
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 电子相册 课程设计