动态网程序设计报告

动态网页程序设计课程设计留言板程序设计班级计算机科学与技术（专升本）学号姓名李莹E-Mai12023年12月20日星期二提交日期泰山学院信息科学技术学院td width=〃484〃Xa href=〃mailto:%=rs〃strEmail〃％〉〃c1as s=，STYLE55z/%=myHTMLEncode rsstrName%/a/td/trtr tdspan class=STYLE51〉主题/spanX/span/tdtdspanclass=z/STYLE55zzX%=myHTMLEncode rs，zstrTitlez，%/spanX/spanX/td/trtr tdspan:1@55二〃5丁丫1^51〃留言内容/spanX/spanX/tdtdspanclass=，zSTYLE55，z%=myHTMLEncode rsstrContents%/spanX/span/td/trtr tdspan class二〃STYLE51〃时间/spanX/spanX/td tdspan class二〃STYLE55〃X%=rs//submit_data，，%/spanX/spanX/td/trtrtr tdheight=〃25〃Xspan class二〃STYLE89STYLE96〃〉〈strong答复内容/strongX/spanX/td tdspanclass二〃STYLE96STYLE89，/strongX%=myHTMLEncode rs，，reply_contents，z%/strongX/span/td/tr/trtr tdheight=〃40〃〉div align二〃center〃〉〈a onClick二〃return judge〃href=delete.aspid=〈妒rs〃ID〃％〉〃class=STYLE55STYLE58〉我要删除/a/div/tdtda href=〃reply.aspid=％=rs〃ID〃%〃class=〃STYLE55STYLE58〃给他答复/a/td/trtrtd height=〃15〃colspan=〃2〃background=〃・・/images/

3.gif〃〉/td/tr/table%rs.MoveNextLoopResponse.Write〃p align=center请选择数据页〃For1=1To rs.PageCountIf I=page noThenResponse.Write I〃nbsp〃Else点击页码，连接到编辑页面Response.Write href=，manage.asppage_no=/，I〃〃I///anbsp/，End IfNext关闭对象rs.CloseSet rs=Nothingconn.CloseSet conn=Nothing%

（2）.删除留言代码form id二〃forml〃name二〃forml〃method二〃post action=〃〃〉table width=600〃height=200〃border=〃1〃align=center”background二〃images/42bad940f3e27e.jpg〃〉tr tdheight=〃114〃spanclass—STYLE16〃请输入删除密码/span/td tdspanclass二〃STYLE16〉label inputname二〃txtPwd“type=text value=〃〃size=〃50〃〉value=〃〈％=Request.QueryString〃ID〃％〃〉/label/spanX/td/trtr tdcolspan=〃2〃Xlabel divalign二〃center”〉input type=submit,name二〃Submit value=〃提交〃//div/label/td/tr/table/form%这里判断一下，假如密码和配置文献中的密码相等，则删除该留言If Request.Form〃txtPwd〃=conPwd ThenDim strSqlstrSql=，，Delete From Guest where ID=〃Request.Fonn〃txtID〃conn.Execute strSqlResponse.Redirect^manage,aspEnd If%

（3）.答复留言代码form id=，，formlz，name二〃forml method=〃post action=〃〃onSubmit=，/javascript:return checkNull;〃table width=630〃height=200〃border=1〃align二〃center”background=/zimages/large_7831i

56.jpg〃tr td width-185〃height=〃114〃Xspan class二〃STYLE27〃请输入答复内容/span/td tdwidth=〃0〃tdwidth=〃423〃spanclass=STYLE27〉labeltextarea name二〃textreply“cols=〃50〃rows=/z6，z/textarea/label**/span/td/trtr tdcolspan=〃2〃labelvalue=〃%=Request.QueryString〃ID〃%〃/label/tdtd width=〃423〃input type=submit“name二〃Submit value二〃完成〃/td/tr/table/form%DimstrSqlstrSql=Update GuestSet reply_contents=，/zmyHTMLEncode requesttextreply〃whereID=〃Request.Form/，txtID，/conn,execute strSqlresponse,redirectmanage,asp〃%⑷.客户端验证代码:script language=JavaScript〃!一〃该函数用来进行客户端验证function check_Null{if document.frmGuest.textTitle.value=二〃〃{alert（〃主题不能为空！〃）;return false;if document.frmGuest.textName.value=二〃〃{alert〃姓名不能为空!〃；return false;}if document.frmGuest.textTitle.value.length50{alert〃主题不能超过50个字符〃;return false;}return true;}function judgef{定义了一种判断函数，提醒要登录if confirm〃你要先登录才能有权管理你的留言板!〃return true;elsereturn false;}/script⑸.

①登录判断代码%这里判断一下，假如顾客名与密码均和配置文献中的相等，则登录成功，进入修改页面If Request.Form〃textPwd〃=pwd andRequest.Form，，textUsername，/=username ThenResponse.Redirect manage.asp〃End If%

②与否删除判断代码%这里判断一下，假如密码和配置文献中的密码相等，则删除该留言If Request.Form〃txtPwd〃=conPwd ThenDimstrSqlstrSql=Delete FromGuest whereID=〃Request.Form，ztxtIDz，conn.Execute strSqlResponse.Redirect manage.asp〃End If%

①⑹.其他特色模块实现代码插入动态显示代码MARQUEE onmouseover=this.stopO style=，/PADDING-RIGHT:5pt;PADDING-LEFT:5pt〃onmouseout=this.startscrollAmount=2scrollDelay=50direction=left height=20width=〃350”spanclass二〃STYLE98〃〉欢迎进入编辑页面，在本页面中，你可以对不喜欢的留言进行删除，亦可对其进行答复！谢谢使用/span/MARQUEE插入音乐播放器代码embed src二〃data/牛奶咖啡-明天，你好.mp3width=300〃height=50〃pluginspage二〃data/牛奶咖啡-明天，你好.mp3〃X/embed

（7）.实现数据库连接代码%如下连接数据库，建立一种Connection对象实例connDim conn,strConnSet conn=Server.CreateObject（〃ADODB・Connection）strConn=Provider=Microsoft.Jet・OLEDB・4・0;Data Source=〃Server.MapPath（z，1iying.mdb〃）conn.Open strConn%

5.使用阐明系统一运行，便进入主页面（即index,asp）,浏览者（包括访客和主人）可以在本页面查看主人日勺留言列表，也可以给主人添加留言，但不容许修改留言；主人要想对自己日勺留言板进行编辑，必须进行登录，则须进入登录页面（即login,asp）,在本页面，必须拥有登录名和密码同步对H勺方可登录成功，进入编辑页面；登录成功后进入留言编辑页面（即manage,asp）,选择操作（删除留言或答复留言）分别进入删除页面（即delete,asp）和答复页面（即reply,asp）各页面互相关联又能保证只有主人才有权对留言进行编辑操作

6.总结设计体会和道谢设计体会在本次课程设计过程中，我受益匪浅本人设计口勺留言板有好的一面，当然也有不是很完善日勺地方该系统基本实现了管理的基本功能和某些基本的操作，不过诸多方面也存在着诸多局限性之处首先就是功能不是很强大，由于在设计时仅运用了教材上局限的知识来设计网站，诸多知识点没有充足时运用进来；另一方面网页的整体页面设计不是很美观，色彩搭配日勺也不是很好，体现了一种初学者的水平层次，但本次设计的I经验会让我意识到了自己区J缺陷和局限性；此外数据库区I设计也不是很完善；最终一点就是ASP与数据库连接以及数据库的调用也存在局限性日勺地方，这些将在后来的学习中不停地改善总之，这次设计让我发现了自己的I局限性，学会了更多书本上没有的I知识，鼓励我在后来的学习生活中不停自主学习，发挥独立创新的精神设计之路任重而道远，吾将上下而求之！道谢非常感谢徐成志老师的耐心指导以及在平时的学习过程中对我的关怀，此外还要感谢在本次设计中各位同学对我热情协助，没有他们就没有我目前的作品，是他们帮我度过了一种又一种难关，处理了一种又一种难题再一次谢谢你们！

7.参照文献和站点

[1]蒲鹏陈慧.ASP网络编程基础.清华大学出版社,

2023.10

[2]强锋科技，马军.ASP网络编程入门到精通.北京清华大学出版社，

2023.

[3]庞娅娟.ASP技术方案宝典.北京:人民邮电出版社,

2023.

[4]博彦科技.编程高手ASP[M],北京大学出版社,

2023.94-97

[5]王冬青.网络课程设计与开发的思索[J].中国电化教育.

2023.10

[7]吕继迪，孙明丽，庞娅娟.ASP程序开发宝典,北京:人民邮电大学出版社,

2023.

[8]CSDN论坛Web应用频道.李莹的留言板摘要伴随Internet日勺发展，网站的作用越来越重要，而动态网页留言板是Internet上最基本的交互式网页,是网站提供的一项基本服务，也是一种和浏览者交流、沟通的园地在本系统设计中，分析留言板系统日勺模块功能和程序流程，对实现留言板关键技术进行讨论，在网站中实现留言功能，波及使用ASP的内部对象Request从客户端获得信息，运用内部对象Response向客户端输出信息，使用ASP日勺数据库存取组件ADO W、J内部对象实现对数据库W、J多种操作，包括连接数据库、显示数据库的数据、删除数据库的数据、添加数据库区I数据等，综合运用系统日勺多种编程措施和技巧，可以设计出符合顾客需求的多种动态网站关键词留言板；ASP技术；Access数据库；动态网站

1.课程设计简介留言板在网站中交流中心起到了至关重要的地位，本课程设计的留言板是运用ASP和VBScript脚本语言或JavaScript脚本语言编写的网络应用程序该留言板可供其他浏览者给自己留言，也可以对自己的留言信息进行编辑或者寄存自己的感受留言操作相对简朴,在您进入网站后，即可输入信息后提交，管理员则要先进行登录得到系统的认定后方可对留言板进行设置，具有了大多数留言板的基本功能

1.1课程设计的目的能运用ASP技术进行简朴的网络编程；纯熟掌握数据库的I建设和ASP对数据库时连接访问；

1.2课程设计的规定编写一种留言板程序，实现的功能包括显示留言、添加留言、删除留言、答复留言等功能模块，运用数据库存取组件，将信息保留到数据库中等系统构造清晰、层次清晰、目录规范；界面美观大方、个性化特点突出；数据库文献和使用的素材文献保留得当

2.基本原理或措施

2.

1.网页开发工具-------Dreamweave.

8.0Dreamweaver软件在整合设计和开发动态网页方面，可以将Macromedia Flash文献导入到Dreamweaver中，在Dreamweaver中预览其内容，该软件具有内嵌欧I脚本编写器，可以使用JavaScript添加丰富的交互内容，并且完全支持Unicode编码，可以显示和保留包括双字节字符集在内的、操作系统所支持日勺任何字体和编码

2.

2.动态网页技术开发语言一ASPASP是Active ServerPagea|缩写，意为“动态服务器页面”，ASP是微软企业开发区I替代CGI脚本程序的一种应用，它可以与与数据库和其他程序进行交互，是一种简朴以便的J编程工具ASP的网页文献的格式是.asp,目前常用与多种动态网站中，ASP网页可以包括HTML标识，一般文本，脚本命令以及COM组件等作为顾客界面的web应用程序，从软件的技术层面看，ASP有如下的特点无需编译其脚本集成与HTML当中，轻易生成，不需要编译或链接即可直接解释执行；易于生成使用常规文本编译器（如记事本）即可进行*.asp的界面设计，本课程从工作效率上考虑，选择可视化编辑工具Dreamweaver

8.0；独立于浏览器顾客端只要使用可解释常规HTML码的浏览器，即可浏览器ASP所设计的|页面；面向对象在ASP脚本中可以以便地引用系统组件和ASP日勺内置组件还能通过定制ActiveX ServerComponent（ActiveX服务器组件）来扩展功能；ASP提供了五种以便能力强大H勺内建对象Request、Response、Sever、Application以及Session,同步，若使用ASP内建的“Application”对象或“Session”对象所撰写出来日勺ASP程序可以在多种网页之间临时保留必要日勺信息；与任何ActiveX Scripting语言兼容，并且使用了VBScript或JavaScript等简易的脚本语言，再结合HTML码，迅速完毕站点欧I应用程序

2.3Access数据库设计概述Access数据库具有界面友好易学易用开发简朴接口灵活等特点非常适合开发小型网站，因此它也被用来开发简朴日勺Web应用程序在本系统中将ASP技术与Access技术相结合，即采用Access数据库作为后台数据库

2.4系统关键技术的详细实现本系统中最关键技术便是实现ASP对数据库的J访问本系统采用日勺是采用ADOCActive DataObjec,活动数据对象访问方式，可以概括如下四个详细环节

1.创立ADO连接对象的实例用ASP连数据库必须首先定义一种连接对象，要用到ADO日勺connection对象Connection对象重要用于建立和管理应用程序与数据源间H勺连接用ASP中Server对象日勺CreateObject措施创立一种该对象的格式为%set conn=Server.CreateObject ADODB.Connection%2,打开对象在成功创立ADO连接对象后，还必须使用连接对象的Open措施打开数据源编写如下语句Conn.Open连接字符串，顾客名，密码上述参数中的连接字符串不可忽视，假如打开数据库时不规定登录安全，则可忽视顾客名和密码⑶.执行指定的操作命令打开对象后，ASP就与数据库连接成功了，可以使用连接对象日勺Execute（）措施将操作命令发送到数据源对于不需要返回操作命令（例如，插入，删除），其语句格式为:Coon.Execute操作命令（其中操作命令一般使用SQL语句）对于需要返回成果H勺操作，其语句格式为Set rs=coon.Execute操作命令⑷・关闭对象，释放关联的系统资源在对一次记录集合日勺访问结束之后，使用记录集H勺close措施关闭记录集对象假如关闭后使用了Set记录集二Nothing命令，则释放所有的系统资源

3.成果和成果分析

3.3功能模块分析本留言板系统具有顾客留言和后台留言管理两大模块，在顾客留言模块中，可以实现查看留言、刊登留言等功能；进入后台管理模块，规定输入顾客名和密码，管理员登录成功后,可以实现查看留言、答复留言、删除留言等功能其模块构造如下图所示对应的界面设计如下图所示:manage.asp显示留言列表:留言编辑模留言人董鲁人主题预祝新春快乐留言内容希望你在新的一年里，学习进步，更上一层楼！时间2011-12-1313:18:506答〉回复内容二一.•■*1我要删除给他回复二；.,留言人徐老师主题尽快交作业！智言内容请尽快把你的作业交上来，截止到本周六！时间2011T2-819:39:30々三二回复内容我会马上交的，老师请放心！:..♦我要删除给他回复「’,•ASI MlM MlMl删除页面:请输入删除密码:答复页面:请输入回复内容:***

3.2后台数据库设计在Access2023中，新建一种数据库（名为liying.mdb）,它包括一张表（Guest表）,用于寄存留言信息和答复信息，其构造如下表所示ID自动编号留言编号，设为主键strName文本留言人姓名（字段大小30）strEmail文本留言人email（字段大小100）strTitle文本留言标题（字段大小100）strContents备注留言内容submit_data日期/时间留言日期reply_contents文本答复内容

4.重要功能实现的程序代码

1.显示留言代码%如下开始显示原有留言，请注意每条留言会显示在一种表格中Dim rs,strSqlSet rs=Server.CreateObject〃ADODB・RecordsetstrSql二〃Select*FromGuestOrder Bysubmitdata Desc〃rs.Open strsql,conn,1Dim page no定义个page变量，用来显示页码TQC•/〃〃\〃〃Then‘假如没有留言，则默认第一页If Sessionpage_no尸page_no=lSession〃page_no〃=page_noElseif Request.QueryString〃page_no〃〃〃Then◊pageno=Cint Request.QueryString pageno〃Session〃page_no〃=page_noElsepage_no=Session〃page_no〃End Ifrs.PageSize=PageSize，显示总共的J页数rs.AbsolutePage=page noDimI I=rs.PageSizeDo WhileNot rs.Eof1=1-1%table width=600〃height=205〃border=〃0〃align二〃center”background=〃images/6ea555d98b3389c839012fca.jpg〃trtd width=，，100，，Xspan class=〃STYLE51〃〉留言人〈/spanX/span〉/td。