asp课程设计.docx

上传人:b****8 文档编号:9728543 上传时间:2023-02-06 格式:DOCX 页数:23 大小:484.33KB
下载 相关 举报
asp课程设计.docx_第1页
第1页 / 共23页
asp课程设计.docx_第2页
第2页 / 共23页
asp课程设计.docx_第3页
第3页 / 共23页
asp课程设计.docx_第4页
第4页 / 共23页
asp课程设计.docx_第5页
第5页 / 共23页
点击查看更多>>
下载资源
资源描述

asp课程设计.docx

《asp课程设计.docx》由会员分享,可在线阅读,更多相关《asp课程设计.docx(23页珍藏版)》请在冰豆网上搜索。

asp课程设计.docx

asp课程设计

 

动态网页制作

课程设计

 

指导老师:

马浩

专业班级:

  

姓名:

 

2013年6月

一、课程设计内容概述

设计题目:

bbs微论坛设计

其具体内容如下

1、可以注册用户并且进行登录,浏览发帖等

2、利用数据库查询修改数据;

3、编写相关代码主界面、附界面、利用数据库系统;

2、系统功能分析

1)登录:

注册用户以及可以登录使用。

2)贴子浏览以及阅读:

负责分页列出网站所有BBS的信息,包括标题、类型、来源字段及发布日期,每条贴子的标题被做成一个超链接,点击它们就能跳转页面进行贴子阅读.

3)回复以及发帖功能。

可以实现发帖以及回复功能,及时显示。

4)后台对用户信息的管理以及帖子管理。

其功能模块图如下:

3、数据库设计

系统采用SQLserver2005作为后台数据库,在SQLserver2005中创建一个名为“gbbsdb”的数据库,该数据库的所有者采用默认用户sa,密码为空。

并在该库中建立表存储。

4、代码及截图

部分源代码

html

DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http:

//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

//www.w3.org/1999/xhtml">

会员注册

--bodystart-->

--left-->

cz=zccg"onSubmit="returnbbszcjc(yhm.value,mm.value,qxmm.value,lxfs.value);">

--divclass="img">

(带*号的表示为必填项目,用户名

必须大于3位小于20位,密码必须大于3位)

用户名:

 

*(可以使用中文,但禁止除[@][.]以外的特殊符号)

登陆密码:

 

*

确认密码:

 *

电子邮箱:

 

安全问题:

 没安全提示问题

你最喜欢的格言什么?

你家乡的名称是什么?

你读的小学叫什么?

你的父亲叫什么名字?

你的母亲叫什么名字?

你最喜欢的偶像是谁?

你最喜欢的歌曲是什么?

(作为密码取回的凭证)

问题答案:

 

性  别:

 

保密

--p>验 证 码:

 看不清?

点击更换

会员注册协议:

1、在本站注册的会员,必须遵守《互联网电子公告服务管理规定》,不得在本站发表诽谤他人,侵犯他人隐私,侵犯他人知识产权,传播病毒,政治言论,商业讯息等信息。


2、在所有在本站发表的文章,本站都具有最终编辑权,并且保留用于印刷或向第三方发表的权利,如果你的资料不齐全,我们将有权不作任何通知使用你在本站发布的作品。


left;width:

300px;padding-left:

50px;">

20px;">我已阅读并完全接受服务协议

left;">



--end-->

asp

<%Server.ScriptTimeOut=5000%>

--#includefile="dbconn.asp"-->

--#includefile="upload_class.asp"-->

--#includefile="md5.asp"-->

functionxgjc(yhm,mm,xmm,qm)

{

if(yhm=="")

{

alert('用户名不能为空!

');

document.de.yhm.focus();

returnfalse;

}

if(mm!

=xmm)

{

alert('两次输入密码不一致!

');

document.de.mm.focus();

returnfalse;

}

if(qm.length>=49)

{

alert('签定过长!

');

document.de.qm.focus();

returnfalse;

}

}

<%=jbm%>个人信息管理

style="display:

none">

<%dimupload,file,formName,formPath,iCount,exeec,wjm,zid,js,zzt

wjdx=0

Dimpath,tempCls,e

'===============================================================================

 

setUpload=newAnUpLoad''创建类实例

Upload.SingleSize=clng(1000*1024)*1024''设置单个文件最大上传限制,按字节计;默认为不限制

Upload.MaxSize=clng(1000*1024)*1024''设置最大上传限制,按字节计;默认为不限制

Upload.Exe="*"''设置合法扩展名,以|分割,忽略大小写

Upload.Charset="gb2312"''设置文本编码,默认为gb2312

Upload.GetData()''获取并保存数据,必须调用本方法

'===============================================================================

 

cz=upload.forms("cz")

mm=upload.forms("mm")

yhm=upload.forms("yhm")

qm=upload.forms("qm")

sex=upload.forms("sex")

aqwt=upload.forms("aqwt")

aqda=upload.forms("aqda")

lxfs=upload.forms("lxfs")

syhm=session(sessionvalue+"yhm")

ifyhm<>""then

ifmm<>""thenmm=",pass='"+md5(mm)+"'"

brzp="icon/"

ifUpload.ErrorID>0then''判断错误号,如果myupload.Err<=0表示正常

response.WriteUpload.description

else

path=server.mappath(brzp)''文件保存路径(这里是files文件夹)

fori=1toUpload.files(-1).count''这里判断你是否选择了文件

''保存第一个文件(以新文件名保存)

settempCls=Upload.files("file1")

Sete=tempCls.SaveToFile(path,0)

ife.errorthen

response.Writee.description

else

wjm=brzp&tempCls.FileName

cg="1"

endif

settempCls=nothing

next

endif

ifcg="1"thenzp1=",zp='"&wjm&"'"

exec="updateyrwl_tb_adminsetqm='"&qm&"',sex='"&sex&"',aqwt='"&aqwt&"',aqda='"&aqda&"',lxfs='"&lxfs&"'"+mm+zp1+"whereyhm='"&syhm&"'"

conn.executeexec

session(sessionvalue+"lxfs")=lxfs

session(sessionvalue&"aqwt")=aqwt

session(sessionvalue&"aqda")=aqda

session(sessionvalue+"sex")=sex

session(sessionvalue+"zp")=wjm

session(sessionvalue+"qm")=qm

ifmm<>""thensession(sessionvalue+"mm")=mm

iflxfs<>""andinstr(lxfs,"@")>0then

title="恭喜您,修改论坛资料成功。

"''发送的主题

content="恭喜您,修改论坛资料成功。


您的用户名为:

"+yhm+"
密码为:

"+session(sessionvalue+"pass")+"
欢迎您常光临国产论坛。

"''邮件内容

response.write"document.all.mail.src='

endif%>

alert('恭喜,修改成功!

');

//window.location="tb_zc.asp";

<%endif%>

cz=xg"method="post"

enctype="multipart/form-data">

用户名:

value="<%=session(sessionvalue+"yhm")%>"readonly="">

个性签名:

value="<%=session(sessionvalue+"qm")%>"style="width:

400px;">

新密码:

再输密码:

不写则不修改密码。

邮箱:

value="<%=session(sessionvalue+"lxfs")%>">

性别:

<%ifsession(sessionvalue&"sex")="男"thenresponse.write"checked"%>/>

<%ifsession(sessionvalue&"sex")="女"thenresponse.write"checked"%>/>

<%ifsession(sessionvalue&"sex")=""thenresponse.write"checked"%>/>

保密

安全问题:

没安全提示问题

<%ifsession(sessionvalue&"aqwt")="1"thenresponse.write"selected"%>>

你最喜欢的格言什么?

<%ifsession(sessionvalue&"aq

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 求职职场 > 简历

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1