平面
设计
领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计
毕业论文、平面设计学生毕业留言
平面设计毕业论文、平面设计学生毕业
留言
[一 : 平面设计学生毕业留言]
我们可以不永恒，但我们真诚。
人生的重大决定，是由心规划的，像预先计算好的框架，等待着你的星座运行。如期待改变我们的命运，首先要改变心的轨迹。
世间的许多事情都如此。当你刻意追求时，它就像一只蝴蝶一样振翅飞远;当你摒去表面的凡尘杂念，为了社会，为了他人，专心致于一项事情时候，那意外的收获已在悄悄地问候你。
很多时候解释是不必要的敌人不相信你的解释，朋友不需要你的 解释。
人可有傲骨，但不可有媚气;
人不可有傲气，但可有正气。
名人与凡人的差别在什么地方,名人用过的东西就是文物，凡人用过的就是废物;名人强词夺理叫雄辩，凡人就是狡辩;名人跟人打招呼叫平易近人，凡人就是巴结别人了;名人打扮不修边幅，叫有艺术家的气质，否认呢,话里话气的;名人喝酒叫毫饮，凡人就叫贪杯;名人老了叫王老，凡人只能叫老王。
我们可以不美丽，但我们健康;
我们可以不伟大，但我们庄严;
我们可以不完满，但我们努力;
尽管时光要使爱情凋谢，但真正的爱，却永远保持着初恋的热情。
有些人不管变得多么衰老，却从不失去他们的美丽他们知识将它从脸上移到了心里。
你可以用自己不喜欢的方式赚到财富;也可以用不相信的药医好病;但你无法从自己不爱的人身上获得幸福。
多一份舒畅，少一份焦虑;
多一份真实，少一份虚假;
多一份快乐，少一份悲苦。
我们的理智使我们一次次看透人生;
我们的激情又使我们一次次重受蒙蔽。
[二 : BBS论坛界面及代码(毕业设计)]
第4章 补充内容
4.1 帖子与回复内容浏览View.asp
View.asp是本系统的帖子与回复内容浏览页，用于显示帖子信息及其回帖信息。此页面显示帖子信息和该帖所有回复信息。任何用户均可进入该页面查看系统帖子及其回帖信息。用户单击版块帖子浏览页List.asp中的帖子主题链接即可进入该页面，查看相应的帖子信息及其回帖信息。
该页面设置每页显示10条回帖信息，当多于10条时页面自动实现分页。该页面设置当用户登录后访问该页面，页面中显示撰写话题图片和回复帖子图片并为撰写话题图片和回复帖子图片设置链接。用户可以单击撰写话题图片链接，进入发新帖页面撰写新
帖。用户可以单击回复帖子图片链接，进入回帖页面进行回帖。
该页面设置当管理员登录后访问该页面，在帖子信息的下方以及回帖信息的下方均会出现修改和删除链接。管理员可以单击帖子信息下方的【修改】链接，修改相应的帖子信息。管理员可以单击帖子信息下方的【删除】链接，删除相应的帖子信息。管理员可以单击回帖信息下方的【修改】链接，修改相应的回帖信息。管理员可以单击回帖信息下方的【删除】链接，删除相应的回帖信息。页面显示效果图，如图4.1所示。
论坛代码 BBS论坛界面及代码(毕业设计)
图4.1 帖子与回复内容浏览页显示效果图
当用户登录后访问该页面，页面显示效果图，如图4.2所示。(]
图4.2 帖子与回复内容浏览页显示效果图
当管理员登录后访问该页面，页面显示效果图，如图4.3所示。
图4.3 帖子与回复内容浏览页显示效果图
下面介绍View.asp的主要代码。
页面代码
分析
定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析
如下所示。 !--#include file=“Conn.asp”-- %'调用Conn.asp文件连接数据库% Link href=“Css.css” rel=stylesheet %'调用Css.css文件定义页面风格% !--#include
file=“Function.asp”-- %'调用Function.asp文件进行数据转
换%
1(根据接收的帖子编号和版块编号，查询帖子信息和发帖者信息并显示出来
论坛代码 BBS论坛界面及代码(毕业设计)
页面设计:首先接收单击版块帖子浏览页List.asp中的帖子主题链接传递过来的帖子编号和版块编号，然后根据帖子编号从数据库的帖子信息表postInfo中查询相应的帖子信息并显示出来。()然后根据发帖者姓名把发帖者信息从用户信息表userInfo中查询出来并显示。 代码如下所示。 ==% '根据接收的帖子编号查询相应的帖子信息并显示出来
Dim posted '声明变量
Dim boarded '声明变量
postid=Request(“postid”) '获取帖子编号
boardid=Request(“boardid”) '获取版块编号
Set Rs = Server.CreateObject(“ADODB.Recordset”) '创建
记录
混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载
集对象
'根据接收的帖子编号把相应的帖子信息取出来
象中 Sql = “Select * From postInfo Where postid=“&posted
Rs.Open Sql,conn,3,3 '把取出的信息存放在记录集对
%
tr
td height=“25” align=“right”
%'当用户登录后访问该页面，则插入撰写话题图片和回复帖子图片并设置相应链接% ====
% If Session(“name”)”“ Then %
a href=“Post.asp”img src=“Images/post.gif” width=“72” height=“21” border=“0” alt=“发表新帖”/a
a href”Reply.asp?postid%Rs(“postid”)%”img src”Images/reply.gif” width=“72” height=“21”
border=“0” alt=“回复此帖”/a
% End If %
/td
/tr
tr
tdtable width=“100%” border=“0” cellpadding=“0” cellspacing=“1” bgcolor=“#44608A” ID=“Table1”
tr
td height=“25” colspan=“2” background=“Images/bg.gif”
strong帖子主题:font color=“#ffffff”%=Rs(“posttitle”)%/font/strong %'显示帖子主题%
/td
/tr
tr
td width=“23%” rowspan=“2” bgcolor=“#FFFFFF” valign=“top”
table width=“100%” border=“0” cellspacing=“0” cellpadding=“0” ID=“Table2”
% '显示发帖者相关信息
Dim name '声明变量
name Rs(“postname”) '获取发帖者姓名 Set Rs1 Server.CreateObject(“ADODB.Recordset”) '创建记录集对象
'把发帖者信息从用户信息表中取出来
Sql1 = “Select * From [userInfo] Where name =
'”&name&”'” Rs1.Open Sql1,conn,3,3 '把取出的记录存放在记录集对象中 %
tr align=“center”
td height=“120” colspan=“2”
img src=“images/%=Rs1(“logo”)%”
/td
/tr %'显示发帖者头像%
论坛代码 BBS论坛界面及代码(毕业设计)
=== tr
td height=“25” align=“right”发帖者:/td
td%=Rs1(“name”)%/td = =%'显示发帖者姓名% /tr扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计
代码
= tr
td height=“25” align=“right”性 别:/td
td =%'显示发帖者性别，如果是男性则显示”帅哥”，如果是女性则显示”美女” %
% If Rs1(“gender”) = 1 Then
Response.Write “帅哥”
Else
Response.Write “美女”
End If
% /td
/tr
tr
td height=“25” align=“right”QQ 号:/td
td%=Rs1(“qq”)%/td
/tr
tr
td height=“25” align=“right”E-mail:/td
td%=Rs1(“email”)%/td
址% %'显示发帖者qq号% %'显示发帖者email地
/tr
tr
td width=“34%” height=“25” align=“right”发表于:/td
td width=“66%”%=Rs(“posttime”)%/td %'显示发帖者发帖时间% /tr
tr align=“center”
td height=“25” colspan=“2”/td
/tr
/table/td
td height=“240” bgcolor=“#FFFFFF” valign=“top”
% '若帖子有图片，则插入图片 %
% If Rs(“postimages”)”“ Then %
img src=“%=Rs(“postimages”)%”
% End If %
br %=unHtml(Rs(“postcontent”))%br %'显示帖子内容%
---------------------------------------------------------br
%Rs1(“sign”)% %'显示发帖者签名% /td
/tr
% Rs1.Close '关闭发帖者信息记录集 Set Rs1 nothing '
释放发帖者信息记录集资源 %
tr
%'如果管理员登录后访问该页面，则显示修改和删除并设置
链接%
% If Session(“flag”) 4 Then %
td height=“12” colspan=“2” bgcolor=“#EFEFEF”
a href”Editpost.asp?postid%Rs(“postid”)%”img src”Images/edit.gif” width”47” height=“18”
border=“0” alt=“编辑”/a
a href=“javascript:if(window.confirm('你确实要删除此帖子吗?') == true){window.location =
论坛代码 BBS论坛界面及代码(毕业设计)
'Deletepost.asp?action=Deletepost&postid=%=Rs(“postid”)%';}”img
src=“Images/delete.gif” width=“47” height=“18” border=“0” alt=“删除”/a
/td
% End If %
/tr ==
专家指导:充分利用了单击单击版块帖子浏览页List.asp中的帖子主题链接传递过来的帖子编号和版块编号这两个参数。()利用ASP技术动态生成网页，传递参数是非常重要的。
2(根据接收的帖子编号和版块编号，查询回帖信息和回帖者信息并显示出来
页面设计:从数据库的回帖信息表replyInfo中查找该帖子的所有
回帖内容并显示，然后从用户信息表userInfo中查找回帖者信息并显示出来。为了避免回帖条数过多引起的页面过长，页面采用当回帖数目超过10条时页面自动实现分页。 =代码如下所示。 % '显示回帖内容和回帖者相关信息 =
Dim i '声明变量
Dim j =
Dim Page
Set Rs2 Server.CreateObject(“ADODB.Recordset”) '创建记录集对象
'把回帖信息从回帖信息表中取出来
Desc”
Sql2 = “Select * From replyInfo Where postid =
“&postid&” Order By replytime =Rs2.Open Sql2,conn,3,3
'处理不合法的页码 '把取出的信息存放在记录集对象中
If IsNumeric(Request(“Page”))=false Or Request(“Page”)=““ Then
Page1
Else
'读取参数page,表示当前的页码，使用CInt将其转换为整型
PageCInt(Request(“Page”))
End if
'设置分页显示，每页显示10条回帖信息
Rs2.PageSize10
'如果记录集Rs2为空，则显示“该帖子目前还没有回帖～”
If Rs2.EOF Or Rs2.BOF Then
Response.Write “trtd height='25' align='center' bgcolor='#FFFFFF'
colspan='2'该帖子目前还没有回帖～/td/tr”
Else myPageSize=Rs2.PageSize '设置参数myPageSize并且赋
值 Rs2.AbsolutePage=Page '设置当前页码为Page '循环
显示当前页的记录
Do While not Rs2.Eof And myPageSize0
%
% '显示回帖者相关信息
name Rs2(“replyname”) '把回复者姓名赋值给参数name
Set Rs3 Server.CreateObject(“ADODB.Recordset”) '创建记录
集对象
'把回帖者信息从用户信息表中取出来
Sql3 = “Select * From [userInfo] Where name = '”&name&”'”
Rs3.Open Sql3,conn,3,3 把取出的信息存放在记录集对象中
%
tr
td width=“23%” rowspan=“2” bgcolor=“#FFFFFF” valign=“top”table
width=“100%” border=“0” cellspacing=“0” cellpadding=“0” ID=“Table3”
tr align=“center”
论坛代码 BBS论坛界面及代码(毕业设计)
=
扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
td height=“120” colspan=“2”
img src=“images/%=Rs3(“logo”)%” %'显示回帖者头像% /td
/tr
tr
td height=“25” align=“right”回帖者:/td
td
%Rs3(“name”)% %'显示回帖者姓名% /td = /tr
tr
td height=“25” align=“right”性 别:/td
td =%'显示回帖者性别，若是男性则显示”帅哥”，如果是女性则显示”美女” % % If Rs3(“gender”) = 1 Then
Response.Write “帅哥”
Else = Response.Write “美女”
End If
% /td
/tr
tr
td height=“25” align=“right”QQ 号:/td
td
%Rs3(“qq”)% %'显示回帖者qq号% /td
/tr
tr
=height=“25” td align=“right”E-mail:/td
td
%Rs3(“email”)% %'显示回帖者email地址% /td
/tr
tr
td width=“34%” height=“25” align=“right”回帖于:/td
td width=“66%”
%Rs2(“replytime”)% %'显示回帖者回帖时间% /td
/tr
tr align=“center”
td height=“25” colspan=“2” /td
/tr
/table/td
td height=“242” bgcolor=“#FFFFFF” valign=“top”
%'如果回帖有图片，则插入图片 %
% If Rs2(“replyimages”) ““ Then % img src=“%=Rs2(“replyimages”)%” % End If %br %=unHtml(Rs2(“replycontent”))%br %'显示回帖内容% -----------------------------------------------------------br
%Rs3(“sign”)% %'显示回帖者签名% /td
/tr
论坛代码 BBS论坛界面及代码(毕业设计)
== % Rs3.Close '关闭回帖者信息记录集
Set Rs3 nothing '释放回帖者信息记录集资源
%
tr
%'如果管理员登录后访问该页面，则显示修改和删除并设置链接%
% If Session(“flag”) 4 Then %
td height=“12” colspan=“2” bgcolor=“#EFEFEF”
a href=“Editreply.asp?replyid=%=Rs2(“replyid”)%”img src=“Images/edit.gif” width=“47” height=“18”
border=“0” alt=“编辑”/a
a href=“javascript:if(window.confirm('你确实要删除此条回帖吗?') == true){window.location =
'Deletereply.asp?replyid=%=Rs2(“replyid”)%';}”img src”Images/delete.gif” width”47” height=“18”
border=“0” alt=“删除”/a /td
% End If %
/tr
% Rs2.MoveNext
Loop '退出循环
%
tr bgcolor=“#FFFFFF”
td height=“25” colspan=“2” background=“Images/bg.gif” bgcolor=“#FFE5C5”
回帖总数:b%=Rs.RecordCount%/b条 %'显示回帖总数
%
每页显示:b%=Rs.PageSize%/b条 %'
每=页显示=回帖数%
%'显示第几页、共几页%
第 font color=#ff0000b%=Page%/b/font 页/共 font
color=#ff0000b%=Rs.PageCount%/b/font 页
3(显示回帖分页页码并设置相应的链接
此页面设计的分页页码与版块帖子浏览页List.asp相似，读者可以参照版块帖子浏览页=
List.asp的讲解，这里就不介绍了。[,
4.2 页面代码分析
下面介绍Search.asp的主要代码。页面代码分析如下所示。
!--#include file=“Conn.asp”-- %'调用Conn.asp文件连接数据库%
Link href=“Css.css” rel=stylesheet %'调用Css.css文件定义页面风格%
1(创建网页表单
页面设计:帖子信息可以按照帖子编号、发帖者、帖子主题等条件进行搜索。用户选择查询条件，输入查询关键字，单击【查询】按钮提交查询信息，可以查询相关帖子的所有记录。 代码如下所示。
%'创建表单form1，采用隐式传递，提交目标网页Search.asp并返回一个action%
form name=“form1” method=“post” action=“Search.asp?action=Find”
td height=“25” background”Images/bg.gif” bgcolor”#FFFFFF”img src=“Images/find.gif” width=“12” height=“13”选择查询方式:
select name=“select” %'定义一个下拉列表框控件用于设置查询条件%
论坛代码 BBS论坛界面及代码(毕业设计)
option value=“postid” selected=帖子编号/option
条件为帖子编号%
option value=“name”发帖者/option扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
条件为发帖者% = option value=“posttitle”帖子主题 /option
=条件为帖子主题% %'设置查询%'设置查询%'设置查询
/select
= input name=“key” type=“text” size=“12” %'定义一个
文件框控件key%
=% '定义一个查询按钮 %
input type=“submit” name=“Submit” value=“查询(请先输入查询”
关键字) /td
/form
% %'表单结束标记
2(查询并显示图书信息
页面设计:这个页面默认情况下是分页显示所有帖子信息，当页面触发的action消息为Find
时，表明产生了一个查询条件，再根据返回的select消息值。()可知道用户选择的是帖子编号，还是发帖者，还是帖子主题。从而执行相应的SQL语句。为了避免帖子信息过多引起的页
面过长，页面设置每页显示10条帖子信息。当图书信息多于10条时，分页显示。
代码如下所示。 table width=“100%” border=“0” cellpadding=“0” cellspacing=“1” bgcolor=“#44608A”
tr align=“center” bgcolor=“#FFFFFF”
td width=“6%” background=“Images/bg.gif” b状态/b/td
td width=“39%” height=“25” background=“Images/bg.gif” b帖 子 主 题/b/td
td width=“7%” background=“Images/bg.gif” b作 者/b/td
td width=“10%” background=“Images/bg.gif” b回复/b?b人气/b/td
td width=“25%” background=“Images/bg.gif” b最后回复/b?b回复人
/b/td
% '如果管理员登录则显示相关操作 %
% If Session(“flag”) 4 Then % td width=“13%” background=“Images/bg.gif” b相关操作/b/td
% End If %
/tr
% '根据接收的查询条件查询帖子信息
Set Rs Server.CreateObject(“ADODB.Recordset”) '创建记录集对
象
'如果单击【查询】按钮，则执行其中的查询语句
If Request(“action”) “Find” Then '获取单击【查询】按钮返
回的action值
'获取传递过来的表单数据
key Trim(Request(“key”)) '获取查询关键字
'当选择的查询条件是帖子编号时
If Request(“select”) “postid” Then '获取查询条件帖子编号
'根据接收的查询关键字和查询条件把帖子信息取出来
Sql = “Select * From postInfo Where postid Like
'%”&key&”%' Order By
posttime Desc”
'当选择的查询条件是发帖者时
ElseIf Request(“select”) “name” Then '获取查询条件发帖者
'根据接收的查询关键字和查询条件把帖子信息取出来
posttime Desc”
Sql = “Select * From postInfo Where postname Like
'%”&key&”%' Order By '当选择的查询条件是帖子标题时
论坛代码 BBS论坛界面及代码(毕业设计)
ElseIf Request(“select”) “posttitle” Then '获取查询条件帖子标题 '根据接收的查询关键字和查询条件把帖子信息取出来
Sql = “Select * From postInfo Where posttitle Like
'%”&key&”%' Order By posttime Desc”
Else '否则提示'查询错误～’
Response.Write “Scriptalert('查询错误～');/Script” Response.End
End If
'如果没有单击【查询】按钮，即没有进行查询操作，页面则显示所有帖子信息 Else
Sql = “Select * From postInfo Order By posttime Desc” = End If
Rs.Open Sql,conn,3,3 '把取出的图书信息放在记录集对象中
'处理不合法的页码
If IsNumeric(Request(“Page”))false Or Request(“Page”)”“ Then Page1
Else
'读取参数=page,表示当前的页码，使用CInt将其转换为整型
PageCInt(Request(“Page”))
End if =
'设置分页显示，每页显示10条帖子信息
= Rs.PageSize10 == '如果记录集Rs为空，则显示“没有搜索到相关的帖子～”
If Rs.Eof And Rs.Bof Then
Response.Write “
tr
td height='25' align='center'
bgcolor='#FFFFFF' colspan='5'没有搜索到相关的帖子～ /td
/tr”
Response.End
Else = myPageSizeRs.PageSize '设置参数myPageSize并且赋值
Rs.AbsolutePage=Page '设置当前页码为Page '循环显示当前页的记录 Do While not Rs.Eof And myPageSize0
%
tr align=“center”
td height=“25” bgcolor=“#FFFFFF”
%'如果帖子点击率大于8，则插入热门帖子图片，否则则插入普通帖子图片%
% If Rs(“postclick”) 8 Then % img src=“Images/hotfolder.gif” width=“16” height=“16” alt=“热门帖子” % Else %
img src=“Images/folder.gif” width=“16” height=“16” alt=“普通帖子” % End If %
/td
td bgcolor=“#FFFFFF”
a
href=“View.asp?postid=%=Rs(“postid”)%&boardid=%=Rs(“boa
rdid”)%”扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
%'如果帖子有图片，则显示[图]和帖子主题，否则只显示帖子主题并设置链接%
% If Rs(“postimages”) ““ Then Response.Write “(图)”
论坛代码 BBS论坛界面及代码(毕业设计)
%%=Rs(“posttitle”)%/a
/td
td bgcolor=“#FFFFFF”
%Rs(“postname”)% %'显示发帖作者%
/td
td bgcolor=“#FFFFFF”
%=Rs(“replycount”)%?%=Rs(“postclick”)%
/td
td bgcolor=“#FFFFFF”
%=Rs(“replytime”)%?%=Rs(“replyname”)%
%
/td
%'如果是管理员登录则显示修改和删除并设置链接%
% If Session(“flag”) 4 Then %
td bgcolor=“#FFFFFF”
a href=“Editpost.asp?postid=%=Rs(“postid”)%”
img src=“Images/edit.gif” width=“47” height=“18” border=“0” alt=“编辑”/a
a href=“javascript:if(window.confirm('你确实要删除此帖子吗?') == true) =
{window.location =
'Deletepost.asp?action=Deletepost&postid=%=Rs(“postid”)%';}”
img src=“Images/delete.gif” width=“47” height=“18” border=“0” alt=“删除”/a /td
% End If %
/tr
% myPageSizemyPageSize-1
i=i+1
Rs.MoveNext
Loop '退出循环
%
tr bgcolor=“#FFFFFF”
td height=“30” background=“images/bg.gif” colspan=“6”
帖子总数:b%=Rs.RecordCount%/b篇 %'显示帖子总数=
%
%'显示第几页、共几页%
第 font color=#ff0000b%=Page%/b/font 页/共
font color=#ff0000b%=Rs.PageCount%/b/font 页 每页显示:b%=Rs.PageSize%/b篇 %'每页显示帖子数 %'显示帖子回帖数和点击率% %'显示最后一次回帖时间和回帖者%
专家指导:使用key = Trim(Request(“key”))取得查询关键字，使用Request(“select”)取得查询条件。,)此程序中设查询条件可以是帖子编号、发帖者、帖子主题，根据您选择的查询条件和输入的查询关键字而执行相应的Sql语句，从而搜索到相关的帖子信息。这个页面默认情况下是分页显示所有帖子信息，即刚进入该页面时显示的是默认状态。
3(显示帖子分页页码并设置相应的链接
此页面设计的分页页码与系统首页Default.asp相似，读者可以参照系统首页Default.asp的讲解，这里就不介绍了。
4.3 用户资料UserInfo.asp
UserInfo.asp是用户资料页面，用于显示用户的相关信息。任何用户登录后单击导航栏上的
【用户信息】链接即可进入该页面查看自己的个人资料。该页面设置撰写话题图片链接。用
论坛代码 BBS论坛界面及代码(毕业设计)
户可以单击撰写话题图片链接，进入发新帖页面撰写新帖。(]
页面显示效果图，如图4.4所示。
%
tr
tdtable width=“100%” border=“0” cellpadding=“0” cellspacing=“1” bgcolor=“#44608A” ID=“Table1”
tr align=“center”
td height=“25” colspan=“2” background=“Images/bg.gif”
font color=“#FFFFFF”b% Response.Write Session(“name”) %，您的个人信息/b/font
论坛代码 BBS论坛界面及代码(毕业设计)
/td
/tr =
tr
td width=“36%” height=“25” align=“right” bgcolor=“#FFFFFF”用户名:/td td width=“64%” bgcolor=“#FFFFFF”
%Rs(“name”)% %'显示用户名% =
/td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”性别:/td
td bgcolor=“#FFFFFF”
% '显示用户性别
If Rs(“gender”) = 1 Then
Response.Write “男”
Else
Response.Write “女”
End If
% =
/td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”用户签名:/td td
bgcolor=“#FFFFFF”
%Rs(“sign”)% %'显示用户签名% /td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”用户类别:/td td
bgcolor=“#FFFFFF”
% '显示用户类别 =
If Session(“flag”) 4 Then
Response.Write “普通用户”
Else
Response.Write “管理员”
End If
%
/td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”电子邮箱:/td td bgcolor=“#FFFFFF”
%Rs(“email”)% %'显示用户邮箱% /td扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”QQ号码:/td
td bgcolor=“#FFFFFF”
%Rs(“qq”)% %'显示用户qq号% /td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”注册时间:/td td bgcolor=“#FFFFFF”
论坛代码 BBS论坛界面及代码(毕业设计)
%Rs(“reg_time”)% %'显示用户注册时间%
/td
/tr
tr = td height=“25” align=“right” bgcolor=“#FFFFFF”最后登录时间:/td
td bgcolor=“#FFFFFF”
%Rs(“login_time”)% %'显示用户最后一次登录时间% /td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”用户访问系统次数:/td
td bgcolor=“#FFFFFF”
%Rs(“visitcount”)% %'显示用户访问次数%
/td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”用户发帖数:/td = td bgcolor=“#FFFFFF”
%Rs(“postcount”)% %'显示用户发帖数%
/td
/tr = tr
td height=“25” align=“right” bgcolor=“#FFFFFF”用户回帖数:/td
td bgcolor=“#FFFFFF”
%Rs(“replycount”)% %'显示用户回帖数% = /td
/tr
tr
td height=“130” align=“right” bgcolor=“#FFFFFF”用户头像:/td = td
bgcolor=“#FFFFFF”
img src=“images/%=Rs(“logo”)%” %'显示用户头像%
/td
/tr = tr
td height=“30” colspan=“2” align=“center” background=“Images/bg.gif”
a href=“JavaScript:history.go(-1);”返回/a
/td
/tr
/table
/td
/tr
% Rs.Close '关闭记录集
Set Rs = nothing '释放记录集资源
Conn.close '关闭数据库
Set Connnothing '释放conn资源
%
专家指导:首先创建Rs记录集，然后利用Session(“name”)变
量，用Select语句把用户的个人信息取出来，然后输出用户信息。()
论坛代码 BBS论坛界面及代码(毕业设计)
4.4 用户发帖信息UserpostInfo.asp
UserpostInfo.asp是用户发帖信息页，用于记录用户发的帖子信息。,,用户登录后单击导航栏上的【用户发帖信息】链接即可进入该页面查看自己的发帖记录。该页面在帖子信息右侧设置了修改和删除链接。用户单击【修改】链接即可对自己发的帖子进行修改。用户单击【删除】链接即可删除发的帖子及其回帖信息。该页面设置撰写话题图片链接。用户可以单击撰写话题图片链接，进入发新帖页面撰写新帖。
页面显示效果图，如图4.5所示。
论坛代码 BBS论坛界面及代码(毕业设计)
中 Rs.Open Sql,conn,3,3
'处理不合法的页码 '把取出的帖子信息放在记录集对象
If IsNumeric(Request(“Page”))=false Or Request(“Page”)=““ Then
Page1
Else
'读取参数page,表示当前的页码，使用CInt将其转换为整型
PageCInt(Request(“Page”))
End if
'设置分页显示，每页显示10条发帖信息
= Rs.PageSize10
'如果记录集Rs为空，则显示”您目前还没有发帖记录～” =
If Rs.EOF Or Rs.BOF Then
Response.Write “trtd height'25' align'center'
bgcolor'#FFFFFF' colspan='6'您目前还没有发帖记录～/td/tr”
Else
myPageSize=Rs.PageSize
Rs.AbsolutePage=Page
'循环显示当前页的记录 '设置参数myPageSize并且赋值 '设置当前页码为Page
Do While not Rs.Eof And myPageSize0
%
tr align=“center”
td height=“25” bgcolor=“#FFFFFF”
%'如果帖子点击率大于8，则插入热门帖子图片，否则则插入普通帖子图片%
=== % If Rs(“postclick”) 8 Then %
img src=“Images/hotfolder.gif” width=“16” height=“16” alt=“热门帖子”
= % Else %
img src=“Images/folder.gif” width=“16” height=“16” alt=“普通帖子”
= % End If % /td
td bgcolor=“#FFFFFF”a href=“View.asp?postid=%=Rs(“postid”)%”
= %'如果帖子有图片，则显示[图]和帖子主题，否则只显示帖子主题并设置链接%
% If Rs(“postimages”)”“ Then
Response.Write “font color'#3399cc'[图]/font “
End If %
%Rs(“posttitle”)%/a/td
td bgcolor=“#FFFFFF”
%=Rs(“postname”)% %'显示发帖作者%
/td
td bgcolor=“#FFFFFF”扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
%=Rs(“replycount”)%?%=Rs(“postclick”)% %'显示帖子回帖数和点击率% /td
td bgcolor=“#FFFFFF”
%=Rs(“replyTime”)%?%=Rs(“replyName”)%
%
/td
td bgcolor=“#FFFFFF”
%'显示修改和删除并设置相应链接% %'显示最后一次回帖时间和回帖者
a href=“Editpost.asp?postid=%=Rs(“postid”)%”
img src=“Images/edit.gif” width=“47” height=“18” border=“0” alt=“编辑”/a
a href=“javascript:if(window.confirm('你确实要删除此条帖子吗?') == true){window.location =
'Deletepost.asp?action=Deletepost&postid=%=Rs(“postid”)%';}”
img src=“Images/delete.gif” width=“47” height=“18” border=“0” alt=“删除”/a /td
论坛代码 BBS论坛界面及代码(毕业设计)
/tr
% myPageSize=myPageSize-1
ii+1
Rs.MoveNext
Loop '退出循环
%
tr align=“center”
td height=“25” colspan=“6” align=“left” background=“Images/bg.gif”
帖子总数:b%=Rs.RecordCount%/b篇 %'显示帖子
总数%
每页显示:b%=Rs.PageSize%/b篇 %'
每页显示帖子数%
%'显示第几页、共几页%
第 font color=#ff0000b%=Page%/b/font 页/共 font
color=#ff0000b%=Rs.PageCount%/b/font 页
2(显示帖子分页页码并设置相应的链接
此页面设计的分页页码与系统首页Default.asp相似，读者可以参照系统首页Default.asp的讲解，这里就不介绍了。[)
4.5 用户回帖信息UserreplyInfo.asp
UserreplyInfo.asp是用户回帖信息页，用于记录用户回复的帖子信息。用户登录后单击导航栏上的【用户回帖信息】链接即可进入该页面查看自己的回帖记录。该页面在帖子信息右侧设置了修改和删除链接。用户单击【修改】链接即可对自己发的回帖进行修改，单击【删除】链接即可删除发的回帖信息。该页面设置撰写话题图片链接。用户可以单击撰写话题图片链接，进入发新帖页面撰写新帖。
页面显示效果图，如图4.6所示。
=
图4.6 用户回帖信息页显示效果图
下面介绍UserreplyInfo.asp的主要代码。页面代码分析如下所示。
!--#include file=“Conn.asp”-- %'调用Conn.asp文件连接数据库%
Link href=“Css.css” rel=stylesheet %'调用Css.css文件定义页面风格%
论坛代码 BBS论坛界面及代码(毕业设计)
1(利用Session(“name”)变量，查询出用户的所有回帖记录并显示出来
页面设计:利用Session(“name”)变量，从数据库的回帖信息表replyInfo中查找用户的的所有回帖信息并显示出来。(]为了避免帖子信息过多引起的页面过长，页面设置每页显示10条==帖子信息。当帖子信息多于10条时，分页显示。
代码如下所示。 table width=“100%” border=“0” cellpadding=“0” cellspacing=“1” bgcolor=“#44608A”
tr align=“center”
td width=“6%” background=“Images/bg.gif” b状态/b/td
td width=“41%” height=“25” background=“Images/bg.gif” b帖 子 主 题/b/td td width=“8%” background=“Images/bg.gif” =b作 者=/b/td =
td width=“14%” background=“Images/bg.gif” b回复/b?b人气
/b/td
td width=“18%” background=“Images/bg.gif” b最后回复/b?b回复人=
/b/td
td width=“13%” background=“Images/bg.gif” b操 作/b/td =
/tr
% '分页显示用户的所有回帖记录 =
Set Rs = Server.CreateObject(“ADODB.Recordset”) '创建记录集对象
'把用户的所有回帖信息从回帖信息表中取出来
Sql = “Select * From replyInfo where
replyname='”&Session(“name”)&”'”
Rs.Open Sql,conn,3,3 '把取出的记录存放在记录集对象中
'处理不合法的页码
If IsNumeric(Request(“Page”))=false Or Request(“Page”)=““ Then
Page1
Else
'读取参数page,表示当前的页码，使用CInt将其转换为整型
PageCInt(Request(“Page”))
End if
'设置分页显示，每页显示10条回帖信息
Rs.PageSize10
'如果记录集Rs为空，则显示”您目前还没有回帖记录～”
If Rs.EOF Or Rs.BOF Then
Response.Write “trtd height'25' align'center'
bgcolor'#FFFFFF' colspan='6'您目前还没有回帖记录～/td/tr”
Else
myPageSize=Rs.PageSize
且赋值
Rs.AbsolutePage=Page
'循环显示当前页的记录 '设置参数myPageSize并'设置当前页码为Page
Do While not Rs.Eof And myPageSize0
扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
%
%
postid Rs(“postid”)
Set Rs1 Server.CreateObject(“ADODB.Recordset”) '创建记录集对象
'把属于回帖信息的帖子信息从帖子信息表中取出来
Sql1 = “Select * From postInfo Where postid =
'”&postid&”'”
Rs1.Open Sql1,conn,3,3 '把取出的记录存放在记录集对象中
%
tr align=“center”
td height=“25” bgcolor=“#FFFFFF”
%'如果帖子点击率大于8，则插入热门帖子图片，否则则插入普通帖子图片%
论坛代码 BBS论坛界面及代码(毕业设计)
% If Rs1(“postclick”) 8 Then % img src=“Images/hotfolder.gif” width=“16” height=“16” alt=“热门帖子”
% Else %
img src=“Images/folder.gif” width=“16” height=“16” alt=“普通帖子”
% End If % /td
td bgcolor=“#FFFFFF”a href=“View.asp?postid=%=Rs1(“postid”)%”
%'如果帖子有图片，则显示[图]和帖子主题，否则只显示帖子主题并设置链接%
% If Rs1(“postimages”)”“ Then
Response.Write “font color'#3399cc'[图]/font “ = End If %
%Rs1(“posttitle”)%/a/td
td bgcolor=“#FFFFFF”
%Rs1(“postname”)% %'显示发帖作者% /td
td bgcolor=“#FFFFFF” =%=Rs1(“replycount”)%?%=Rs1(“postclick”)%
击率% =%'显示帖子回帖数和点
/td
td bgcolor=“#FFFFFF”
%=Rs1(“replytime”)%?%Rs1(“replyname”)% %'显示帖子回帖数
=和点击率%
/td
td bgcolor=“#FFFFFF”
%'显示修改和删除并设置相应链接%
a href=“Editreply.asp?replyid=%=Rs(“replyid”)%” =img src=“Images/edit.gif” width=“47” height=“18” border=“0” alt=“编辑”/a
=a href=“javascript:if(window.confirm('你确实要删除此条回帖吗?') == true){window.location =
'Deletereply.asp?replyid=%=Rs(“replyid”)%';}”img src=“Images/delete.gif” width”47” height=“18” border=“0” alt=“删除”/a
/td
/tr
%
Rs1.Close
Set Rs1=nothing
%
% myPageSize=myPageSize-1
ii+1
Rs.MoveNext
Loop '退出循环
%
tr align=“center”
td height=“25” colspan=“6” align=“left” background=“Images/bg.gif”
帖子总数:b%=Rs.RecordCount%/b篇 %'显示帖子总数%
每页显示:b%=Rs.PageSize%/b篇
%
%'显示第几页、共几页%
第 font color=#ff0000b%=Page%/b/font 页/共
font color=#ff0000b%=Rs.PageCount%/b/font
页 %'每页显示帖子数
专家指导:创建Rs记录集，利用Session(“name”)变量用Select语句把用户的所有回帖记录取出来，最后使用了一个do while„
loop循环语句，用来循环输出用户回帖信息。[)
2(显示帖子分页页码并设置相应的链接
论坛代码 BBS论坛界面及代码(毕业设计)
此页面设计的分页页码与系统首页Default.asp相似，读者可以参照系统首页Default.asp的讲解，这里就不介绍了。[)
4.6 编辑帖子Editpost.asp
Editpost.asp是编辑用户发帖页面，用于修改帖子信息。这个页面的权限是普通用户只能修改自己发的帖子，管理员用户可以修改所有用户发的帖子。普通用户登录后进入该系统单击导航栏上的【用户发帖信息】链接进入用户发帖信息页面UserpostInfo.asp，在用户发帖信息页面UserpostInfo.asp中单击帖子信息右边的【修改】链接即可进入该页面进行修改用户自己发的帖子信息。
管理员登录后进入帖子及回帖信息浏览页View.asp中单击帖子信息下方的【修改】链接即可进入该页面进行修改;管理员还可以单击导航栏的【搜索】链接进入搜索页Search.asp，搜索需要修改的帖子然后单击帖子信息右边的【修改】链接即可进入该页面进行修改帖子信息。页面显示效果图，如图4.7所示。
图4.7 编辑帖子页显示效果图
页面控件及功能如表4.1所示。
表4.1 编辑帖子页页面控件及功能 对 象
表格
表单
文本框
下拉列表框
图像框 功 能 用于控制页面显示信息位置 名称为form1，提交目标网页为Editpost.asp，数据采用隐式传递方式 名称为title，用于输入帖子主题 名称为boardid，用于选择所属版块名称 名称为imagespath，用于上传帖子图片
论坛代码 BBS论坛界面及代码(毕业设计)
文本域
按钮
按钮 名称为content，用于输入帖子内容 单击【提交】按钮提交表单 单击【重置】按钮清空文本框和文本域等中的内容
!--#include file=“Conn.asp”-- %'调用Conn.asp文件连接数据库%
Link href=“Css.css” rel=stylesheet %'调用Css.css文件定义页面风格%扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
!--#include file=“Function.asp”-- %'调用Function.asp文件上传图片% 下面介绍Editpost.asp的主要代码。()页面代码分析如下所示。
1(创建网页表单
页面设计:利用网页表单将用户修改的帖子信息传递给目标网页。由目标网页将用户修改的
帖子信息保存到数据库。该页面首先接收单击【修改】链接传递过来的帖子编号，然后以帖==子编号为条件把帖子信息取出来，然后创建网页表单把该帖子信息在网页表单的控件中显示
出来，最后修改帖子信息提交表单。页面创建网页表单必须对表单控件进行设置使其初始值
设为相应的帖子信息。
代码如下所示。 % '接收单击【修改】链接传递过来的帖子编号
Dim postid '声明变量
postid = Request(“postid”) '获取帖子编号
Set Rs = Server.CreateObject(“ADODB.Recordset”) '创建记录集对象
'根据帖子编号把帖子信息从帖子信息表中取出来
Sql = “Select * From postInfo Where postid = “&postid
Rs.Open Sql,conn,3,3 '把取出的信息存放在记录集对象中
%
tr
tdtable width=“100%” border=“0” cellpadding=“0”
bgcolor=“#44608A” ID=“Table1”
tr align=“center”
td height=“25” colspan=“2” background=“Images/bg.gif”
font color=“#FFFFFF”b编辑主题帖子/b/font/td cellspacing=“1”
/tr
%'创建表单form1，采用隐式传递，提交目标网页Editpost.asp并传递两个参数action和
postid%
form name”form1” method”post” action=“Editpost.asp?action=SaveEdit&postid=%=Rs(“postid”)%”
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”主 题:/td
td bgcolor=“#FFFFFF”
%'定义一个文本框控件title并设其初始值%
input name=“title” type=“text” size=“80” value=“%=Rs(“posttitle”)%”
/td
/tr
tr bgcolor=“#FFFFFF”
td height=“25” align=“right” bgcolor=“#FFFFFF”所属版块:/td
td bgcolor=“#FFFFFF”
select name=“boardid” ID=“Select1” %'定义一个下拉列表框
控件boardid并设其初
始值%
% '从boardInfo表中读取论坛版块类别
boardidRs(“boardid”)
Set Rs1 = Server.CreateObject(“ADODB.RecordSet”)
Sql1”Select * From boardInfo”
Rs1.Open Sql1,conn,3,3
Do While not Rs1.EOF
论坛代码 BBS论坛界面及代码(毕业设计)
%
option value”%Rs1(“boardid”)%”% If Rs1(“boardid”)Rs(“boardid”)
Then Response.Write “Selected” End If % %=Rs1(“boardname”)%/option
% Rs1.MoveNext
Loop
Rs1.Close
Set Rs1nothing
% === /select
/td
/tr
tr bgcolor”#FFFFFF”
td height=“25” align=“right” bgcolor=“#FFFFFF”点击率:/td
td bgcolor=“#FFFFFF”
%Rs(“postclick”)% %'显示帖子点击率%
/td
/tr
tr bgcolor=“#FFFFFF” = td height=“25” align=“right” bgcolor=“#FFFFFF”发帖时间:/td
td bgcolor=“#FFFFFF”
%Rs(“posttime”)% %'显示发帖时间%
/td = /tr
tr = td width=“21%” height=“25” align=“right” bgcolor=“#FFFFFF”帖 图:
/td
td width=“79%” bgcolor=“#FFFFFF”
=“file” size=“70” ID=“File1” %'定义一个图像框控件input name=“imagespath” type=
imagespath%
/td
/tr === tr
td height=“25” align=“right” bgcolor=“#FFFFFF”内 容:/td
td bgcolor=“#FFFFFF”
%'定义一个文件域控件content并设其初始值%
textarea name”content” cols”79” rows”15” ID=“Textarea1”%=Rs(“postcontent”)%/textarea
/td
/tr
tr
td height=“30” colspan=“2” align=“center” bgcolor=“#FFFFFF”
input type=“submit” name=“Submit” value=“提交” %'定义一个提交按钮%
input type=“reset” name=“reset” value=“重置” %'定义一个重置按钮%
/td /tr /form %'表单结束标记%
%
Rs.Close
Set Rs=nothing
%
2(接收网页表单传递过来的数据并进行校验，验证成功把帖子信息保存到数据库
论坛代码 BBS论坛界面及代码(毕业设计)
页面设计:定义SaveEdit()过程用来接收、验证和保存帖子信息。()接收传递过来的表单数据，判断帖子信息的合法性。若未通过验证则给出相应的提示信息，若通过了验证则把帖子信息保存到数据库，网页跳转到帖子与回复内容浏览页View.asp。扩展:
论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
代码如下所示。 % '根据页面返回的action消息来调用相应的过程
If Request(“action”)=“SaveEdit” Then =
Call SaveEdit()
End If ==%
% '定义SaveEdit()过程用来接收、验证、保存帖子信息
Sub SaveEdit()
Dim title '声明变量
Dim postid
Dim images
Dim content
Dim boardid
'获取传递过来的表单数据
postid Request(“postid”) '获取帖子编号 = title Request.Form(“title”) '获取帖子主题 = boardid Request.Form(“boardid”) '获取所属版块编号 =
= content = Server.HTMLEncode(Request.Form(“content”)) '获取帖子内容
images Request.Form(“imagespath”) '获取帖子图片
'上传帖子图片
If images”“ Then
upImages(images)
End If
'判断帖子信息的合法性
If title = ““ Or content = ““ Then '如果帖子主题或帖子内容为空，则提示’请输入帖子主题或帖子内容～’
Response.Write “Scriptalert('请输入帖子主题或帖子内容～')/Script”
Else
'向数据库中保存修改的帖子信息
Set Rs = Server.CreateObject(“ADODB.RecordSet”)
Sql=“Select * From postInfo Where postid=“&postid
Rs.Open Sql,conn,3,3
Rs(“posttitle”) title
Rs(“boardid”) boardid
Rs(“postimages”) = GetFileName(images)
Rs(“postcontent”) = content
Rs(“posttime”) now()
Rs.UpDate
postId=Rs(“postId”)
Rs.Close
Set Rs=nothing
Conn.close
Set Conn=nothing
End If
Response.Redirect “View.asp?postid=“&postid&”“ '修改成功网页跳转到View.asp
End Sub
%
论坛代码 BBS论坛界面及代码(毕业设计)
4.7 用户回帖Reply.asp
Reply.asp是用户回帖页面，用于普通用户和管理员用户发表回帖。,,普通用户和管理员用户必须先登录该论坛后才有权发表回帖。该页面在用户登录该论坛系统后才出现。用户登录该系统后到帖子及回帖信息浏览页View.asp页面单击回复帖子图片链接即可进入该页面进行回帖。页面显示效果图，如图4.8所示。
图4.8 用户回帖页显示效果图
页面控件及功能如表4.2所示。
表4.2 用户回帖页页面控件及功能 对 象
表格
表单
图像框
文本域
按钮
按钮 功 能 用于控制页面显示信息位置 名称为form1，提交目标网页为Reply.asp，数据采用隐式传递方式 名称为imagespath，用于上传回帖图片 名称为content，用于输入回帖内容 单击【提交】按钮提交表单 单击【重置】按钮清空文本域中的内容
下面介绍Reply.asp的主要代码。
页面代码分析如下所示。
!--#include file=“Conn.asp”-- %'调用Conn.asp文件连接数据库% Link href=“Css.css” rel=stylesheet %'调用Css.css文件定义页面风格% !--#include file=“Function.asp”-- %'调用Function.asp文件上传图片%
1(创建网页表单
页面设计:利用网页表单把用户输入的回帖信息提交给目标网页由目标网页验证后保存到数据库。该页面首先接收单击回复帖子图片链接传递过来的帖子编号，然后以图书编号为条件把帖子信息取出来并显示帖子主题。最后把回帖提交给目标网页。页面首先创建网页表单并
论坛代码 BBS论坛界面及代码(毕业设计)
对表单控件进行设置。(]
代码如下所示。 % '接收单击回复帖子图片链接传递过来的帖子编号
Dim postid '声明变量
postid = Request(“postid”) '获取帖子编号
Set Rs = Server.CreateObject(“ADODB.Recordset”) '创建记录集对象 '根据接收的帖子编号把帖子信息从帖子信息表中取出来
Sql = “Select * From postInfo Where postid = “&postid
Rs.Open Sql,conn,3,3 '把取出的信息存放在记录集对象中
%
tr
tdtable width=“100%” border=“0” cellpadding=“0”
bgcolor=“#44608A” ID=“Table1”
tr align=“center”
td height=“25” colspan=“2” background=“Images/bg.gif”
=font color=“#FFFFFF”b回复帖子/b/font/td cellspacing=“1”
/tr
%'创建表单form1，采用隐式传递，提交目标网页Reply.asp并传递两个参数action和postid% form name=“form1” method=“post”
action=“Reply.asp?action=Reply&postid=%=Rs(“postid”)%” ID=“Form1”
tr
td width=“21%” height=“25” align=“right” bgcolor=“#FFFFFF”回复
主题:/td td width=“79%” bgcolor=“#FFFFFF”
%Rs(“posttitle”)% %'显示帖子主题%
/td
/tr
tr
td width=“21%” height=“25” align=“right” bgcolor=“#FFFFFF”帖 图:/td
td width=“79%” bgcolor=“#FFFFFF”
input name=“imagespath” type=“file” size=“70” ID=“File2” %'定义一个图像框控件imagespath%扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
/td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”内 容:/td td bgcolor=“#FFFFFF”
%'定义一个文件域控件content%
textarea name=“content” cols=“79” rows=“15” ID=“Textarea2”/textarea
/td
/tr
tr
td height=“30” colspan=“2” align=“center” bgcolor=“#FFFFFF”
input type=“submit” name=“Submit” value=“提交” %'定义一个提交按钮% input type=“reset” name=“reset” value=“重置” %'定义一个重置按钮% /td
/tr
/form
/table
/td
/tr
% Rs.Close %'表单结束标记% '关闭记录集
论坛代码 BBS论坛界面及代码(毕业设计)
=
= Set Rs nothing '释放记录集资源 =
%
2(接收网页表单传递过来的数据并进行校验，验证成功把回帖信息保存到数据库 页面设计:定义SaveReply()过程用来接收、验证和保存回帖信息。[,接收传递过来的表单数据，判断回帖信息的合法性。若未通过验证则给出相应的提示信息，若通过了验证则把回帖信息保存到数据库，网页跳转到论坛首页Default.asp。
代码如下所示。
% '根据页面返回的action消息来调用相应的过程 = If
Request(“action”) = “Reply” Then =
Call SaveReply()
End If
%
% '定义SaveReply()过程用来接收、验证、保存帖子信息
Sub SaveReply() Dim images '声明变量
Dim content
Dim postid
'获取传递过来的表单数据
postid Request(“postid”) '获取帖子编号 =
images = Trim(Request.Form(“imagespath”)) '获取回帖图片
content = Trim(Request.Form(“content”)) '获取回帖内容
'判断回帖信息的合法性
If content = ““ Then '如果回帖内容为空，则提示’请输入回帖内容～’
Response.Write “Scriptalert('请输入回帖内容～');history.go(-1);/Script”
Response.End
Else
'向数据库中保存回帖信息
Set Rs = Server.CreateObject(“ADODB.Recordset”)
Sql = “Select * From replyInfo “
Rs.Open Sql,conn,3,3
Rs.AddNew
=Rs(“postid”) = postid
Rs(“replyname”) = Session(“name”)
Rs(“replyimages”) GetFileName(images)
Rs(“replycontent”) content
Rs.UpDate
Rs.Close
Set Rs = nothing
'上传帖子图片
If images”“ Then
upImages(images)
End If
'在帖子信息表中把回帖数记录加1
Set Rs1 = Server.CreateObject(“ADODB.Recordset”)
Sql1 = “Select * From postInfo Where postid =
“&postid&”“
Rs1.Open Sql1,conn,3,3
Rs1(“replycount”) = Rs1(“replycount”) + 1
Rs1(“replyname”) Session(“name”)
Rs1(“replytime”) Now()
Rs1.Update
postid Rs1(“postid”)
Rs1.Close
论坛代码 BBS论坛界面及代码(毕业设计)
Set Rs1 = nothing '在用户信息表中把回帖者的回帖数记录加1
Set Rs2 = Server.CreateObject(“ADODB.RecordSet”)
Sql2=“Select * From userInfo where name =
'”&Session(“name”)&”'”
Rs2.Open Sql2,conn,3,3
Rs2(“replycount”) = Rs2(“replycount”) + 1
End Sub
%
4.8 编辑回帖Editreply.asp
Editreply.asp是编辑用户回帖页面，用于修改用户的回帖信息。,)这个页面的权限是普通用户只能修改自己发的回帖，管理员用户可以修改所有用户发的回帖。普通用户登录后进入该系统单击导航栏上的【用户回帖信息】链接进入用户回帖信息页面UserreplyInfo.asp，在用户回帖信息页面UserreplyInfo.asp单击帖子信息右边的【修改】链接即可进入该页面进行修改用户自己发的回帖信息。
管理员登录后进入帖子及回帖信息浏览页View.asp页面单击回帖信息下面的【修改】链接
=即可进入该页面进行修改回帖信息。页面显示效果图，如图4.9
论坛代码 BBS论坛界面及代码(毕业设计)
==
图4.9 编辑回帖页显示效果图
页面控件及功能如表4.3所示。,)
表4.3 编辑回帖页页面控件及功能 对 象
表格
表单
图像框
文本域
按钮
按钮 功 能 用于控制页面显示信息位置 名称为form1，提交目标网页为Editreply.asp，数据采用隐式传递方式 名称为imagespath，用于上传回帖图片 名称为content，用于输入回帖内容 单击【提交】按钮提交表单 单击【重置】按钮清空文本域中的内容 下面介绍Editreply.asp的主要代码。
页面代码分析如下所示。
!--#include file=“Conn.asp”-- %'调用Conn.asp文件连接数据库%
Link href=“Css.css” rel=stylesheet %'调用Css.css文件定义页面风格%
!--#include file=“Function.asp”-- %'调用Function.asp文件上
传图片%
1(创建网页表单
页面设计:利用网页表单将用户修改的回帖信息传递给目标网页。由目标网页验证后，将用
户修改的回帖信息保存到数据库。该页面首先接收单击【修改】链接传递过来的回帖编号，扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
然后以回帖编号为条件把回帖信息取出来，然后创建网页表单把该回帖信息在网页表单的控
件中显示出来，最后将修改的回帖信息提交表单。页面创建网页表单必须对表单控件进行设
置使其初始值设为相应的回帖信息。
代码如下所示。 % '接收单击【修改】链接传递过来的回帖编号
Dim replyid '声明变量
replyid = Request(“replyid”) '获取回帖编号
Set Rs = Server.CreateObject(“ADODB.Recordset”) '创建记录集对象
'根据回帖编号把该回帖信息从数据库中取出来
Sql = “Select * From replyInfo Where replyid = “&replyid
Rs.Open Sql,conn,3,3 '把取出的信息存放在记
录集对象中
postid Rs(“postid”) '获取帖子编号
Set Rs1 = Server.CreateObject(“ADODB.Recordset”) '创建记录集对象
'把帖子信息从帖子信息表中取出来
Sql1 = “Select * From postInfo Where postid = “&postid
Rs1.Open Sql1,conn,3,3
录集对象中 '把取出的信息存放在记
%
tr
tdtable width=“100%” border=“0” cellpadding=“0”
bgcolor=“#44608A” ID=“Table1”
tr align=“center”
td height=“25” colspan=“2” background=“Images/bg.gif”
font color=“#FFFFFF”b编辑回复帖子/b/font cellspacing=“1”
/td
/tr
%'创建表单form1，采用隐式传递，提交目标网页Editreply.asp并返回一个action值%
form name”form1” method”post” action=“Editreply.asp?action=ChkEditReply&replyid=%=Rs(“replyid”)%” ID=“Form1”
tr
论坛代码 BBS论坛界面及代码(毕业设计)
=
td width=“21%” height=“25” align=“right” bgcolor=“#FFFFFF”主 题:
/td
td width=“79%” bgcolor=“#FFFFFF”
%=Rs1(“posttitle”)%
%'显示帖子主题% /td
/tr
tr bgcolor=“#FFFFFF”
td height=“25” align=“right” bgcolor=“#FFFFFF”回帖时间:/td
td bgcolor=“#FFFFFF”
%Rs(“replytime”)% %'显示回帖时间%
/td
/tr
tr
td width=“21%” height=“25” align=“right” bgcolor=“#FFFFFF”帖 图:
/td
td width=“79%” bgcolor=“#FFFFFF”
input name=“imagespath” type=“file” size=“70” ID=“File2” %'
定义一个图像框控件===imagespath %
/td
/tr
tr
td height=“25” align=“right” bgcolor=“#FFFFFF”内 容:/td
td bgcolor=“#FFFFFF”
%'定义一个文本域控件并设初始值%
textarea name”content” cols”79” rows”15” ID=“Textarea2”%=Rs(“replycontent”)%/textarea
/td = /tr
tr
td height=“30” colspan=“2” align=“center” bgcolor=“#FFFFFF”
input type=“submit” name=“Submit” value=“提交” %'定义一个提交按钮%
input type=“reset” name=“reset” value=“重置” %'定义一个重置按钮%
/td
/tr
/form '表单结束标记%
2(保存修改的回帖信息
页面设计:定义SaveEditReply()过程用来保存修改的回帖信息。
[)首先根据页面返回的action值来调用相应的过程，然后接收网页表单传递的数据，最后把修改的回帖信息保存到数据库。页面操作完毕网页重定向至View.asp。
代码如下所示。
% '根据页面返回的action值调用相应的过程
If Request(“action”) = “ChkEditReply” Then
Call SaveEditReply()
End If
%
% '定义一个过程用来接收、验证和保存修改的回帖信息
Sub SaveEditReply()
Dim images '声明变量
Dim content
Dim replyid
'获取传递过来的表单数据
replyid Request(“replyid”) '获取回帖编号
论坛代码 BBS论坛界面及代码(毕业设计)
images = Trim(Request.Form(“imagespath”)) '获取回帖图片
content = Trim(Request.Form(“content”)) '
Rs.Open Sql,conn,3,3
replyid Rs(“replyid”)
Rs(“replyimages”) GetFileName(images)
Rs(“replycontent”) content
Rs.UpDate
Rs.Close
Set Rs = nothing
'上传帖子图片
= If images”“ Then
upImages(images)
End If
End If
Response.Redirect
“View.asp?postid=“&postid&”&replyid”&replyi
d&”“
End Sub
=% ==
4.9 修改版块信息ModifyBoard.asp
ModifyBoard.asp是修改版块信息页面，用于管理员修改版块信息。,)这个页面只对管理员类用户开放。管理员用户登录后访问显示版块信息页面AdminBoard.asp，单击该页面中的【修改】链接即可进入该页面进行修改版块信息。页面显示效果图，如图4.10所示。扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
论坛代码 BBS论坛界面及代码(毕业设计)
图4.10 修改版块信息页显示效果图
页面控件及功能如表4.4所示。(]
表4.4 修改版块信息页页面控件及功能 对 象
表格
表单
文本框
文本域
按钮
按钮 功 能 用于控制页面显示信息位置 名称为form1，提交目标网页为ModifyBoard.asp，数据采用隐式传递方式 名称为title，用于输入版块名称 名称为content，用于输入版块描述 单击【提交】按钮提交表单 单击【重置】按钮清空文本框等中的内容
下面介绍ModifyBoard.asp的主要代码。
页面代码分析如下所示。
!--#include file=“Conn.asp”-- %'调用Conn.asp文件连接数据库%
Link href=“Css.css” rel=stylesheet %'调用Css.css文件定义页面风格%
1(创建网页表单
页面设计:利用网页表单将用户修改的版块信息传递给目标网页。由目标网页将用户修改的版块信息保存到数据库。该页面首
先接收单击【修改】链接传递过来的版块编号，然后以版块编号为条件把版块信息取出来，然后创建网页表单把该版块信息在网页表单的控件中显示出来，最后修改版块信息提交表单。页面创建网页表单必须对表单控件进行设置使其初始值设为相应的版块信息。
代码如下所示。 % '接收单击【修改】链接传递过来的版块编号
Dim boardid
boardid = Request(“boardid”)
'声明变量 '获取版块编号 Set Rs = Server.CreateObject(“ADODB.Recordset”) '创建记录集对象
'根据版块编号把该版块信息从数据库中取出来
Sql = “Select * From boardInfo Where boardid = “&boardid
Rs.Open Sql,conn,3,3 '把取出的记录存放在记录集对象中
%
tr
tdtable width=“100%” border=“0” cellpadding=“0”
bgcolor=“#44608A” ID=“Table1”
tr align=“center”
td height=“25” colspan=“2” bgcolor=“#99AAA7”
strongfont color=“#FFFFFF”修改版块/font/strong/td
cellspacing=“1”
/tr
%'创建表单form1，采用隐式传递，提交目标网页ModifyBoard.asp并传递参数action%
form name=“form1” method=“post” action=“ModifyBoard.asp?action=EditBoard
&boardid=%=Rs(“boardid”)%”
tr
td width=“21%” height=“25” align=“right” bgcolor=“#FFFFFF”版块名称:/td
td width=“79%” bgcolor=“#FFFFFF”
%'定义一个文本框控件title并设其初始值%
input name=“title” type=“text” size=“80” value=“%=Rs(“boardname”)%”
/td
/tr
tr
td width=“21%” height=“25” align=“right” bgcolor=“#FFFFFF”版块描述:/td
论坛代码 BBS论坛界面及代码(毕业设计)
td width=bgcolor=“#FFFFFF” =“79%”
%'定义一个文本域控件content并设其初始值% = textarea
name”content” cols”79” rows”15”
ID=“Textarea1”%=Rs(“boarddescription”)%/textarea
/td
/tr
tr
td height=“30” colspan=“2” align=“center” bgcolor=“#FFFFFF”
input type=“submit” name=“Submit” value=“提交” %'定义一个提交按
钮%
input type=“reset” name=“reset” value=“重置”/td %'定义一个重置按
钮%
/tr
/form
标记% %'表单结束
2(接收网页表单传递过来的数据并进行校验，验证成功把版块信息保存到数据库
页面设计:定义SaveBoard()过程用来接收、验证和保存版块信息。[)接收传递过来的表单数据，判断版块信息的合法性。若未通过验证则给出相应的提示信息，若通过了验证则把版块信息保存到数据库，网页跳转到AdminBoard.asp。
代码如下所示。
% '根据页面返回的action消息来调用相应的过程
If Request(“action”) = “EditBoard” Then
Call SaveBoard()
End If
%
% '定义SaveBoard()过程用来接收、验证、保存版块信息
Sub SaveBoard() Dim title '声明变量 Dim content '获取传递过来的表单数据 ===title = Trim(Request.Form(“title”)) '获取版块名称 content = Trim(Request.Form(“content”)) '获取版块描述
'判断版块信息的合法性
If title = ““ Or content = ““ Then '如果版块名称或版块描述为空，则提示’请输入版块名称
或版块描述～’
Response.Write “Scriptalert('请输入版块名称或版块描述～
');history.go(-1);/Script”
Response.End
Else
'向数据库中保存添加的版块信息
Set Rs = Server.CreateObject(“ADODB.Recordset”)
Sql = “Select * From boardInfo Where boardid=“&boardid
Rs.Open Sql,conn,3,3
Rs(“boardname”) = title
Rs(“boarddescription”) content
Rs.UpDate
boardid Rs(“boardid”)
Rs.Close
Set Rs = nothing
End If
Conn.close
论坛代码 BBS论坛界面及代码(毕业设计)
Set Connnothing
扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
Response.Redirect “AdminBoard.asp” '修改成功网页跳转到AdminBoard.asp
End Sub
%
4.10 管理版块帖子AdminList.asp
AdminList.asp是管理版块帖子页面，用于管理员管理每个版块的帖子信息。(]这个页面只对管理员类用户开放。管理员用户登录后访问该系统单击显示版块信息页面AdminBoard.asp中的版块名称或版块描述链接即可进入该页面。
该页面设置每页显示10条版块帖子信息，当多于10条时页面自动实现分页。该页面设置了修改和删除链接。管理员可以单击【修
改】链接进入修改帖子信息页面，进行帖子信息的修改。管理员可以单击【删除】链接删除帖子信息。
该页面为帖子主题设置了链接。单击帖子的帖子主题链接即可进入帖子及其回帖信息浏览页View.asp，查看帖子及其回帖详细信息。页面显示效果图，如图4.11所示。
=
图4.11 管理版块帖子页显示效果图
页面控件及功能如表4.5所示。
表4.5 管理版块帖子页页面控件及功能 对 象
表格
表单
下拉列表框 功 能 用于控制页面显示信息位置 名称为form1，提交目标网页为Adminmoveboard.asp，数据采用隐式传递方式 名称为select，用于选择版块名称
下面介绍AdminList.asp的主要代码。
页面代码分析如下所示。
论坛代码 BBS论坛界面及代码(毕业设计)
==
!--#include file=“Conn.asp”-- %'调用Conn.asp文件连接数据库%
Link href=“Css.css” rel=stylesheet %'调用Css.css文件定义页面风格%
1(分页显示版块帖子信息并利用网页表单提交数据
页面设计:利用网页表单将管理员修改的版块帖子信息提交给目标网页。,,由目标网页验证后=保存到数据库。
代码如下所示。 ===
table width”100%” border”0” cellpadding”0” cellspacing”1” bgcolor”#006666”
ID=“Table3” =
tr align=“center” bgcolor=“#99AAA7”
td height=“30” colspan=“6”b管理版块帖子/b/td =
/tr
= tr align=“center”
td width”5%” height”30” bgcolor”#FFFFFF”状态/td
td width=“40%” height=“30” bgcolor=“#FFFFFF”帖子主题/td
td width=“17%” height=“30” bgcolor=“#FFFFFF”作者/td
td width=“7%” height=“30” bgcolor=“#FFFFFF”点击率/td
td width=“16%” height=“30” bgcolor=“#FFFFFF”帖子版块转移/td
td width=“15%” height=“30” bgcolor=“#FFFFFF”相关操作/td
/tr
% '分页显示版块帖子信息
Dim boarded '声明变量
boardid=Request(“boardid”) '获取版块编号
Set Rs = Server.CreateObject(“ADODB.Recordset”) '创建记录
集对象 === '根据接收的版块编号把该版块帖子信息从数据表中取出来
录集对象中 Sql = “Select * From postInfo where
boardid=“&boardid&”“ Rs.Open Sql,conn,3,3 '把取出的记录存放在记=='处理不合法的页码 ===
If IsNumeric(Request(“Page”))=false Or Request(“Page”)=““ Then
Page1
Else
'读取参数page,表示当前的页码，使用CInt将其转换为整型
PageCInt(Request(“Page”))
End if
'设置分页显示，每页显示10条帖子信息
Rs.PageSize10
'如果记录集Rs为空，则显示”该版块目前还没有帖子～”
If Rs.EOF Or Rs.BOF Then
Response.Write “trtd height'25' align'center'
bgcolor'#FFFFFF'
colspan='6'该版块目前还没有帖子～/td/tr”
Else
myPageSizeRs.PageSize '设置参数myPageSize并
且赋值
Rs.AbsolutePage=Page '设置当前页码为Page
'循环显示当前页的记录
Do While not Rs.Eof And myPageSize0
%
%'创建表单form1，采用隐式传递，提交目标网页Adminmoveboard.asp并传递参数postid和
boardid %
form name”form1” method”post” action=“Adminmoveboard.asp?postid=%=Rs(“postid”)%
&boardid=%=boardid%” ID=“Form1”
论坛代码 BBS论坛界面及代码(毕业设计)
tr bgcolor”#FFFFFF”
td align=“center” bgcolor=“#FFFFFF” = %'如果帖子点击率大于8，则插入热门帖子图片，否则则插入普通帖子图片%
% If Rs(“postclick”) 8 Then % img src=“Images/hotfolder.gif” width=“16” height=“16” alt=“热门帖子” % Else % ==img
src=“Images/folder.gif” width=“16” height=“16” alt=“普通帖子” =
% End If %
= /td
td height”30” bgcolor=“#FFFFFF”
a
href=“View.asp?boardid=%=Rs(“boardid”)%&postid=%=Rs(“postid”)%” target=“_blank”
%'如果帖子有图片，则显示[图]和帖子主题，否则只显示帖子主题并设置链接%
=Rs(“postimages”)”“ % If Then
Response.Write “font color'#3399cc'[图]/font “
= End If
If Len(Rs(“posttitle”))26 Then
Response.Write Left(Rs(“posttitle”),24) & “„”
扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
Else
Response.Write Rs(“posttitle”)
End If
%/a = /td
td align=“center” bgcolor=“#FFFFFF”
%Rs(“postname”)% %'显示发帖者姓名% /td == td align=“center” bgcolor=“#FFFFFF”
%Rs(“postclick”)% %'显示帖子点击率%
/td
td align=“center” bgcolor=“#FFFFFF”
%'定义一个下拉列表框控件newboardid%
select name=“newboardid” ID=“Select1” =onChange=“JavaScript:submit()”
% '从boardInfo表中读取版块类别，以便作帖子版块的移动操作
boardidRs(“boardid”)
Set Rs1 = Server.CreateObject(“ADODB.RecordSet”)
Sql1”Select * From boardInfo”
Rs1.Open Sql1,conn,3,3
Do While not Rs1.EOF
%
option value”%Rs1(“boardid”)%” % If Rs1(“boardid”)Rs(“boardid”)
Then Response.Write “Selected” End If % %=Rs1(“boardname”)%/option
% Rs1.MoveNext
Loop
Rs1.Close
Set Rs1nothing
%
/select
/td
td align=“center” bgcolor=“#FFFFFF”
%'显示修改和删除并设置相应链接%
论坛代码 BBS论坛界面及代码(毕业设计)
a href”Editpost.asp?postid%Rs(“postid”)%”
img src=“Images/edit.jpg” width=“15” height=“15” border=“0”修改/a
a href”javascript:if(window.confirm('你确实要删除此帖子吗?')
true){window.location
'Deletepost.asp?action=Deletepost&postid=%=Rs(“postid”)%';}”
img src=“Images/delete.jpg” width=“15” height=“15” border=“0”删除/a
/td
/tr
/form %'表单结束标记%
% myPageSize=myPageSize-1
i=i+1
Rs.MoveNext
Loop
%
tr
td height=“25” align=“left”
colspan='6' &n
bsp;
每页显示%=Rs.PageSize%条
%
该版块有 b%=Rs.RecordCount%/b 篇帖子
% bgcolor=“#FFFFFF” %'每页显示帖子数%'显示帖子总数
%'显示第几页、共几页%
第 font color=#ff0000b%=Page%/b/font 页/共
font
color=#ff0000b%=Rs.PageCount%/b/font 页
2(显示帖子分页页码并设置相应的链接
此页面设计的分页页码与版块帖子浏览页List.asp相似，读者可以参照版块帖子浏览页
List.asp的讲解，这里就不介绍了。(]
===
====
扩展:论坛发帖界面代码 / 网页登录界面设计代码 / web登录界面设计代码
[三 : BBS论坛界面及代码(毕业设计)]
第4章 补充内容
4.1 帖子与回复内容浏览View.asp
View.asp是本系统的帖子与回复内容浏览页，用于显示帖子信息
及其回帖信息。此页面显示帖子信息和该帖所有回复信息。任何用户均可进入该页面查看系统帖子及其回帖信息。用户单击版块帖子浏览页List.asp中的帖子主题链接即可进入该页面，查看相应的帖子信息及其回帖信息。
该页面设置每页显示10条回帖信息，当多于10条时页面自动实现分页。该页面设置当用户登录后访问该页面，页面中显示撰写话题图片和回复帖子图片并为撰写话题图片和回复帖子图片设置链接。用户可以单击撰写话题图片链接，进入发新帖页面撰写新帖。用户可以单击回复帖子图片链接，进入回帖页面进行回帖。
该页面设置当管理员登录后访问该页面，在帖子信息的下方以及回帖信息的下方均会出现修改和删除链接。管理员可以单击帖子信息下方的【修改】链接，修改相应的帖子信息。管理员可以单击帖子信息下方的【删除】链接，删除相应的帖子信息。管理员可以单击回帖信息下方的【修改】链接，修改相应的回帖信息。管理员可以单击回帖信息下方的【删除】链接，删除相应的回帖信息。页面显示效果图，如图4.1所示。
图4.1 帖子与回复内容浏览页显示效果图
当用户登录后访问该页面，页面显示效果图，如图4.2所示。
图4.2 帖子与回复内容浏览页显示效果图
当管理员登录后访问该页面，页面显示效果图，如图4.3所示。
图4.3 帖子与回复内容浏览页显示效果图
下面介绍View.asp的主要代码。
页面代码分析如下所示。 !--#include file=“Conn.asp”-- %’调用Conn.asp文件连接数据库% Link href=“Css.css” rel=stylesheet %’调用Css.css文件定义页面风格% !--#include file=“Function.asp”-- %’调用Function.asp文件进行数据转换%
1(根据接收的帖子编号和版块编号，查询帖子信息和发帖者信息并显示出来
页面设计:首先接收单击版块帖子浏览页List.asp中的帖子主题链接传递过来的帖子编号和版块编号，然后根据帖子编号从数据库的帖子信息表postInfo中查询相应的帖子信息并显示出来。然后根据发帖者姓名把发帖者信息从用户信息表userInfo中查询出来并显示。 代码如下所示。 ==% ‘根据接收的帖子编号查询相应的帖子信息并显示出来
Dim posted ‘声明变量
Dim boarded ‘声明变量
postid=Request(“postid”) ‘获取帖子编号
boardid=Request(“boardid”) ‘获取版块编号
Set Rs = Server.CreateObject(“ADODB.Recordset”) ‘创建记录集对象
‘根据接收的帖子编号把相应的帖子信息取出来
象中 Sql = “Select * From postInfo Where postid=“&posted Rs.Open Sql,conn,3,3 ‘把取出的信息存放在记录集对
%
tr
td height=“25” align=“right”
%’当用户登录后访问该页面，则插入撰写话题图片和回复帖子图片并设置相应链接% ====
% If Session(“name”)”“ Then %
a href=“Post.asp”img src=“Images/post.gif” width=“72” height=“21” border=“0” alt=“发表新帖”/a
a href”Reply.asp?postid%Rs(“postid”)%”img src”Images/reply.gif” width=“72” height=“21”
border=“0” alt=“回复此帖”/a
% End If %
/td
/tr
tr
tdtable width=“100%” border=“0” cellpadding=“0” cellspacing=“1” bgcolor=“#44608A” ID=“Table1”
tr
td height=“25” colspan=“2” background=“Images/bg.gif”
strong帖子主题:font color=“#ffffff”%=Rs(“posttitle”)%/font/strong %’显示帖子主题%
/td
/tr
tr
td width=“23%” rowspan=“2” bgcolor=“#FFFFFF” valign=“top”
table width=“100%” border=“0” cellspacing=“0” cellpadding=“0” ID=“Table2”
% ‘显示发帖者相关信息
Dim name ‘声明变量
name Rs(“postname”) ‘获取发帖者姓名 Set Rs1 Server.CreateObject(“ADODB.Recordset”) ‘创建记录集对象
‘把发帖者信息从用户信息表中取出来
Sql1 = “Select * From [userInfo] Where name =
‘“&name&”‘“ Rs1.Open Sql1,conn,3,3 ‘把取出的记录存放在记录集对象中 %
tr align=“center”
td height=“120” colspan=“2”
img src=“images/%=Rs1(“logo”)%”
/td
/tr %’显示发帖者头像%
=== tr
td height=“25” align=“right”发帖者:/td
td%=Rs1(“name”)%/td = =%’显示发帖者姓名% /tr
= tr
td height=“25” align=“right”性 别:/td
td =%’显示发帖者性别，如果是男性则显示”帅哥”，如果是女性则显示”美女” %
% If Rs1(“gender”) = 1 Then
Response.Write “帅哥”
Else
Response.Write “美女”
End If
% /td
/tr
tr
td height=“25” align=“right”QQ 号:/td
td%=Rs1(“qq”)%/td
/tr
tr
td height=“25” align=“right”E-mail:/td
td%=Rs1(“email”)%/td
址% %’显示发帖者qq号% %’显示发帖者email地
/tr
tr
td width=“34%” height=“25” align=“right”发表于:/td
td width=“66%”%=Rs(“posttime”)%/td %’显示发帖者发帖时间% /tr
tr align=“center”
td height=“25” colspan=“2”/td
/tr
/table/td
td height=“240” bgcolor=“#FFFFFF” valign=“top”
% ‘若帖子有图片，则插入图片 %
% If Rs(“postimages”)”“ Then %
img src=“%=Rs(“postimages”)%”
% End If %
br %=unHtml(Rs(“postcontent”))%br %’显示帖子内容%
---------------------------------------------------------br
%Rs1(“sign”)% %’显示发帖者签名% /td
/tr
% Rs1.Close ‘关闭发帖者信息记录集 Set Rs1 nothing ‘释放发帖者信息记录集资源 %
tr
%’如果管理员登录后访问该页面，则显示修改和删除并设置链
接%
% If Session(“flag”) 4 Then %
td height=“12” colspan=“2” bgcolor=“#EFEFEF”
a href”Editpost.asp?postid%Rs(“postid”)%”img src”Images/edit.gif” width”47” height=“18”
border=“0” alt=“编辑”/a
a href=“javascript:if(window.confirm(‘你确实要删除此帖子吗?’) == true){window.location =
‘Deletepost.asp?action=Deletepost&postid=%=Rs(“postid”)%’;}”img
src=“Images/delete.gif” width=“47” height=“18” border=“0” alt=“删除”/a
/td
% End If %
/tr ==
专家指导:充分利用了单击单击版块帖子浏览页List.asp中的帖子主题链接传递过来的帖子编号和版块编号这两个参数。利用ASP技术动态生成网页，传递参数是非常重要的。
2(根据接收的帖子编号和版块编号，查询回帖信息和回帖者信息并显示出来
页面设计:从数据库的回帖信息表replyInfo中查找该帖子的所有回帖内容并显示，然后从用户信息表userInfo中查找回帖者信息
并显示出来。为了避免回帖条数过多引起的页面过长，页面采用当回帖数目超过10条时页面自动实现分页。 =代码如下所示。 % ‘显示回帖内容和回帖者相关信息 =
Dim i ‘声明变量
Dim j =
Dim Page
Set Rs2 Server.CreateObject(“ADODB.Recordset”) ‘创建记录集对象
‘把回帖信息从回帖信息表中取出来
Desc”
Sql2 = “Select * From replyInfo Where postid =
“&postid&” Order By replytime =Rs2.Open Sql2,conn,3,3
‘处理不合法的页码 ‘把取出的信息存放在记录集对象中
If IsNumeric(Request(“Page”))=false Or Request(“Page”)=““ Then
Page1
Else
‘读取参数page,表示当前的页码，使用CInt将其转换为整型
PageCInt(Request(“Page”))
End if
‘设置分页显示，每页显示10条回帖信息
Rs2.PageSize10
‘如果记录集Rs2为空，则显示“该帖子目前还没有回帖～”
If Rs2.EOF Or Rs2.BOF Then
Response.Write “trtd height=‘25’ align=‘center’ bgcolor=‘#FFFFFF’ colspan=‘2’该帖子目前还没有回帖～/td/tr”
Else myPageSize=Rs2.PageSize ‘设置参数myPageSize并且赋值 Rs2.AbsolutePage=Page ‘设置当前页码为Page ‘循环显示当前页的记录
Do While not Rs2.Eof And myPageSize0
%
% ‘显示回帖者相关信息
name Rs2(“replyname”) ‘把回复者姓名赋值给参数name
Set Rs3 Server.CreateObject(“ADODB.Recordset”) ‘创建记录集对象
‘把回帖者信息从用户信息表中取出来
Sql3 = “Select * From [userInfo] Where name =
‘“&name&”‘“
Rs3.Open Sql3,conn,3,3 把取出的信息存放在记录集对象中
%
tr
td width=“23%” rowspan=“2” bgcolor=“#FFFFFF” valign=“top”table width=“100%” border=“0” cellspacing=“0” cellpadding=“0” ID=“Table3”
tr align=“center”
[四 : 图形图像广告平面设计毕业论文63]
XINYU UNIVERSITY
(考核形式:平时表现+课程论文+创新类实践作品) 公选课
公选课名称 《平面设计与赏析》
学生姓名 江庆
专 业 计算机科学与技术
班 级 计科(一)班
学 号 32 号
任课教师 杨 春 蓉
【摘要】
广告在世界各国的产生和发展都有着共同的规律。它们都是随着商品的产生
而产生，随着科技进步、社会发展而发展的。现代平面广告的特征是地域性、视
觉传达性、审美性、娱乐性，色彩、形状、质感、结构等是它的四个主要元素。
平面广告是一种传统的广告媒体形式，是现代广告传播的重要手段。平面广告设
计对于平面广告传播及其效果具有重要影响特点在于围绕视觉形式动力进行设
计，强调平面广告设计吸引受众注意，是遵循受众接受心理规律及视觉原理，充
分传达广告信息，实现广告效果最大化。
【关键字】:平面广告 视觉 信息 立体化 表现形式
第一章 平面广告的概念
1、平面广告的基本概念
平面广告设计是现代商业运行中的一个重要环节和组成部分，平面广告领域
的历史远远流长，人类每一个时期的经济活动都离不开他的身影，随着现代经济，
文化的日趋繁荣，平面广告逐步走向辉煌，平面广告设计分为两大领域，既传统
的书籍的广告设计—包括书籍封面设计版面设计，招贴广告设计，商品包装的广
告设计-包括商品装潢系列广告设计，标志系列广告设计等。所以平面广告也占
有其他基本概念和事项:一是“设计”设计是筹划和计议的意思，1987年版的
《现代汉语词典》对于设计的解释是:”在正式做某项工作之前,根据一定的要求,
预先制定方法,图样等.设计的概念是:“设计者根据要求进行的有目的的创造性
的构思与
计划
项目进度计划表范例计划下载计划下载计划下载课程教学计划下载
，以及将这种构思与计划通过一定的手段视觉化的过程。”作为这
一过程的结果产生了设计品。
这是一个广义的设计概念，它既包括人们的一般生活和工作计划，也包括理
化、工学、机械的工程设计，还涉及各种视觉艺术的设计，这里所涉及的“设计”
的概念过去是指产品的造型设计、室内装饰设计、包装设计、书籍装帧设计、广
告、标志设计、陶瓷造型设计以及服装设计和纺织品设计等传统艺术设计，现在
还涉及计算机图形艺术设计等一些面向21世纪的新的艺术设计学科，即与审美
有关的视觉造型设计。
“艺术设计”是涉及我们人类日常生活的几乎所有领域的视觉的、美的造型
的一类设计。
从“设计”的定义来看，“设计”是“设计者根据视觉进行的有目的的的创
造性的构思与计划，以及将这种构思与计划通过一定的手段视觉化的过程”，“设
计”是一个构思的过程和将其视觉化的过程。按照不同的视觉化规律进行视觉化，
将导致不同的结果产生。如果按照艺术的视觉规律进行视觉化，
那么这个过程称
之为“艺术设计”，而结果则产生了具有视觉艺术效果的设计品。“艺术设计”是
对于这种艺术设计的过程和结果的称谓。
所以总体上说,平面广告是通过文字,色彩的基本设觉语言元素进行设计依
靠二维空间形态的广告媒介形式进行信息传播的,其制作方式主要是通过电脑编
辑,印刷,喷绘等几个方面平面广告对人们的影响是不言而喻的,它使人们在日常
生活中持续不段地接受到来二维空间的各种信息的视觉引导,在整个20世纪,平
面广告设计表现日益变化文中最具有詹性的领域之一.但是同时设计也是有目的
的策划,平面广告设计是这些策划将要来取形式之一,在平面广告设计中你需要
用视觉元素来传播你的设想和计划,用文字和图片的信息传达给群众,让人们通
过这些事视觉了解你想要的策划,这才是我们设计的定义,在加上设计师表达设
计意图思想以及与主交流的主要语言.恰当表现形式和优秀的表现效果是设计得
以实现的重要条件.
总之,设计主要是指设想,规划,计划,运筹,构思等,预设一定的目标并为此
建立
方案
气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载
,它是人类实现某种特定目的进行的创造性活动. 广义上的设计包括自然科学如工程设计等,人文化学如艺术设计等领域里的
各种设计;狭义上说设计侧重于艺术领域.设计的本质刻意概括:?设计是人类有
目的性的审美创造活动;?设计是一种问题要求解活动:?设计是一种智能的文
化创造形态.
第二章 软件的功能及应用
1、 Photoshop CS软件环境
Photoshop CS是Adobe公司最新版本,不仅有大量的信息需求存储,而且每一
步操作都需要经过复杂的计算才能达到理想的效
果??.. .Photoshop CS它的
原有软件的基础上进行了全面升级改进若要使中文版Photoshop CS 正常运行,
需要达到以下要求:
(1)Intel Pentium LLL或Intel Pentium 4处理器.
(2)内存要求192MB(推荐使用256MB)
(3)285MB可用硬盘空间.
(4)配有16 位彩色或更高级视频彩色显示器.
(5)1024*768或更高的显示器分辩率.
(6)CD-ROM驱动器、鼠标和键盘.
(7)Microsoft Windows 2000(Service pack 3)或Winds XP操作系统.
2、Photoshop CS功能
在PHOTOSHOP众多新功能中，最可圈可点当属“消失点滤镜”(Vanishing
point filter)它不仅仅提供3D透视环境，对话框可以最大化到全屏幕进行进行预览，并且还自带工具栏。使用该滤镜的第一个步骤是创建透视平面，利用创建平面工具在图像上定义平面的四个角顶点，比如墙或窗户等。
利用消失点滤镜(Vanishing point filter)可以进行透视，粘贴，科隆，绘制操作。
选取工具和下层平面的透视关系协调一致，可以提供知觉化的选取，让你对那些处于窗体框架背面的拖拽出的平面对象的第一次选取就很精准。如果你按住AIT键拖拽复制这一个区到该透明平面中的另一个位置，那么这个新复制出的部分就会自动缩放变形以便符合透视关系。你将这个复制的区域向建筑的顶部越移越远时，其个头会逐渐变小;反之移近时，个头就会逐渐增大。
最得一提的是。当你把复制的区域沿着角落前移动到前面上时，他会自动地进行透视调整和原来的物体保持恰当的透视关系，而
这一编辑过程在老板的PHOTOSHOP中通过透视的变形情况下，在画面中自由复制，移动地复制而且需要相当的技巧，现在你可以在保持关系的情况下，在画面中自由的复制，移动各种素材了。
消失点对话中同样带有“图章(STAMP)”工具，利用它你可以预览到笔刷的科隆源，所以在操作的时候你可以清楚的看到你想要的。还有一个画笔工具。和图章工具类似，也是符合透视关系的。
消失点滤镜还提供了很多其它功能，包括羽化选区，改变透明及亮度覆盖模式以便和背景混合等:如果让我说说消失点的滤镜的不足之处的话，那就是不能把一副图片的透视平面保存下来，当然要生成他也不是很难。
包括变形一直是PHTOSHOP用户所期待的功能，在CS2中终于得以实现。按住CTRI+T调用“FREE TRANSFORM”工具，这是在控制面板上会出现新的扭曲模式按钮。这会在每一个图层，图层组或选区的角落产生与一个控制状制点，利用贝塞尔工具控制点可以沿着每一侧扩展1/3。网格会将图像分为9个区域，这样就把包括网格变形工具地组合成一个工具。
在PHOTOSHOP中有很多专为数码相机用户开发的实用功能。其中透镜(LENS CORRECTION FILTER )提供了一个多功能对话框可以矫正数码照片的桶行失真，枕行失真，色彩偏差及光晕等缺陷。
图形图像广告平面设计毕业论文63_平面广告设计论文
这项功能尤其是适合那些喜欢使用长镜头，高变焦以鱼眼镜头的
摄影者来说难免失真的困扰。选项中用到的要算垂直透视滑动条(VERTICAI PERSPECTIVS SLIDER )还有一个用于水平方向的，只是很少会用到。利用垂直透视可以矫正相机上拍摄高大建筑时，其顶端产生的明显后倾现象。
3、Photoshop 的工具应用
制作美容院广告过程运用Photoshop工具里的钢笔工具,它可以根据自己的需要画出图形的标志,在路径工具里有“添加描点工具”可以添加在路径上，然后在用颜色的填充与渐变，还进行添加图层，以及在Photoshop里面进行各方面的图形设计然后在作作品中由图片的颜色的发射，这是运用了渐变工具的“渐变”他是从一点由拉而来的。
渐变有多种功能，他可以使整个图片变得更加旋彩，让人的感觉是特别的舒服，所以我运了渐变，其次还运用了图影效果，字体我就是在字体上添加图影效果，让他给人有给人立体感，给人看起来的感觉那样看上去给人的就是清楚醒目。
第三章 点、线、面在平面广告中的应用
在平面广告设计作品中，用于画面设计的手段可谓风格各异，流派繁多。但在流行复古、返璞归真的今天，越来越多的作品更倾向于简洁明快的表达方式。如何以最简洁的表达去引起受众的关注呢,聪明的广告人从最基础的由平面构成的图形语言中提取了答案，他们根据点、线、面的形态特征及其性格特性进行创作，科学地达到了广告诉求。
点、线、面是平面构成最基本的造型要素。当它们个别存在时，点具有集中，线具有延长，面具有重量的性格特征。因此，巧妙地将点、线、面运用于广告设计中，可以表现出许多不同的情感和视觉效果。
1、造型要素——点
几何学中的点是线与线的交叉，是抽象的，只有位置，而无大小和形状。而在造型艺术中的点是一切形态的基础。它有一种跃动感，可以产生球体滚跳的联想;它有一种生机感，可以产生对植物种子的联想;它有一种闪烁感，可以产生诸如发光体的联想;它还具有节奏感，一种类似音乐中的节拍的节奏??
从点的视觉特性来看，点是力的中心。当画面中只有一个点时，人们的视线
会全部集中于这个点上。这说明，单独的点本身没有上、下、左、右的连续性和指向性，但它具有极强的向心力，能产生一种富有聚集性的视觉效果。在我们平常见到的平面广告作品中，利用点的这一特性的作品屡见不鲜。设计者为了突出或强调某一部分的视觉效果，而将人们的视线最终凝结在点上。
当画面中有两个同等大的点并各自占有其位置时，其张力作用就表现在连接这两个点的视线上，在视觉心理上产生吸引和连接的效果。这一点多出现于通讯传播类的广告作品，中国移动公司曾经推出“全球通”系列作品，将在不同地域的联络双方(一对情侣)，同时出现在一个画面中，视作两点，将视觉心理上两点之间
的连接和吸引作为影射，使人联想到是全球通的通讯网络满足了两个人的互通需要。从两人的表情上不难看出，他们的交流没有任何的障碍，这也无形中暗示着，中国移动全球通的网络设备资源值得信赖。这件作品给受众留下了深刻的印象，同时也达到了广告诉求的目的。
当画面中两个点大小不同时，大的点首先引起视觉的注意，但视觉会逐渐从大的点移向小的点，最后集中在小的点上。越小的点聚集性越强。在摩托罗拉推出T191手机时，有一则平面广告:在作品的画面上，一只大狗，盯着一部小手机，由于小点的聚集力强于大点，人们的目光最终落到这部小手机上。一句成功的广告语:个子比我小，人缘比我好～立刻使人们记住了这款手机的特征。 也有一些平面广告，经常会强调点的整齐划一，以形成秩序美。他们通过大小相通、间隔相等、横平竖直的严谨构图模式，将画面呈现给广大消费者。同一种图形可以按照不同的规律有秩序的排列，并给人以视觉上的舒适感，称之为秩序美。秩序美是平面广告设计的核心体现，也是一种韵律美。
但是，整齐划一的秩序美极易陷入呆板、呆滞之中，而我们又可以利用这一缺点作铺垫，通过近似、渐变、特异等构成手段的运用来使画面变得活跃起来。例如:一幅雀巢咖啡的平面广告:画面上整整齐齐地排列着11杯热气腾腾的咖啡，几乎充斥了整个画面。每杯咖啡里的勺子都冲着不同的方向，好像钟表的时针一样分别指向不同的时刻，而右下角的最后一个位置却没有热气腾腾
的咖啡，取而代之的是一袋红色包装的雀巢速溶咖啡，预示着这袋速溶咖啡与那11杯咖啡的味道和品质是一样的。红色的袋装咖啡与白色的咖啡杯形成了鲜明的对比，有了白色的咖啡杯和银色的小勺作铺垫，更加衬托出了醒目的红色袋装咖啡。画
面有了对比，活跃了构图，增强了表现力和视觉冲击力。作品中运用了点这个构成元素，每杯咖啡和袋装速溶咖啡都可以看作是点，并运用了点的特性:简洁、醒目，还有颜色上的对比，使广告更加生动、更具活力。
2、造型要素——线
几何学上的线是点移动的轨迹，只有位置和长度。在造型艺术上，线的形态多种多样，它给设计提供的变化是无穷无尽的。概括起来可分为两大类:直线和曲线。
线的视觉心理感受具有方向感，有一种动态的惯性。线的这种变化的性格，对于动、静的表现力最强。不同的线会给人不同的视觉感受，一般来说，垂直线给人的感觉是:庄重、强性、单纯、严峻等;水平线给人的感觉是:平和、安定、静寂、永久等;斜线给人的感觉是:动感、活泼而有深度;曲线给人的感觉是:厚重、饱满、优雅、柔软等。
当我们设计平面广告时，即可选择一些与商品气质相同的线来作为素材。例如，兰寇的一则睫毛膏的平面广告:画面的视觉中心是一个条形码，条形码每条线的前端都演变成了长长的向上翘起的睫毛，优雅而时尚;左上角是兰寇的品牌名称，右下角是睫毛
膏的图片，均占了很小的比例。这样就衬托出了“条形码”睫毛。设计师在这幅作品中充分利用了曲线的特性:饱满、优雅、华丽而柔软，给观众留下了深刻而美好的印象。条形码作为现代商品必备的一种识别性符号，又能够给人以时尚、前卫的感觉，由此使观众联想到了产品的流行与时尚。其独特的设计构思和巧妙的设计语言非常值得我们借鉴。
3、造型要素——面
在几何学中，面是线移动的轨迹，具有长度、宽度而无厚度。在造型艺术上，面和线有着密切的关系。面有轮廓线，在造型上比点和线更能确定形的意义。 面的形态无限丰富，一般可概括为:偶然形、几何形、有机形和不规则形。偶然形是偶然产生的，富有个性、新颖、怪异的特点;几何形具有明快、理性的秩序美感;有机形则是借助于自然外力而形成的自然形，具有自然、流畅、纯朴、柔和的特点;不规则形是指有意识、有目的、人为创造出来的形。其特点是不受限制，不具有任何规律的造型。例如:中国移动通信公司在世界杯期间推出的“遨游五大洲”系列平面广告之一，很概括地运用了面的形态特征:用具体形态的鱼
的外形与看似无具体形态的地图——鱼身上的花纹，构成了整个画面。有机形和偶然形的交相呼应，恰恰反映了中国移动全球通的遍布范围。以鱼儿自由穿梭，概括了全球通的通讯无障碍化，因而也是一例成功的平面广告作品。
综上所述，在现代平面广告作品的设计中，设计师们往往依据广
告作品的诉求目的，有针对性地运用点、线、面或将其加以综合运用，不断挖掘其视觉表现的资源。只要我们在今后的设计过程中不断地探索，就能够发现点、线、面潜藏的艺术表现力和感染力。
第四章 平面广告“立体化”表现形式
1、“立体化”表现形式产生的原因
所谓“立体化”表现形式就是从二维跨越到三维空间,跳出平面二维的框架,以三维或多维形式展示,扩展到立体、动态的视触听嗅感受。
“立体化”视觉语言的出现使平面广告设计呈现出一种新的趋势,以二维平面传递信息的表现形式被打破,利用多维空间,立体化的表现形式成为传达信息的主流,这种立体化的表现形式超越了我们以往的想象,丰富了我们的视觉感受。立体化的视觉语言是在现代科技水平高速发展和人们生活理念日益多元化的基础上产生、发展和流行的,是信息化、消费审美文化的时代产物。
(1)寻求对传统平面广告的突破
早期的平面设计主要是以二维空间为载体,局限在四条边线之内,采用印刷、喷绘等媒介手段,向大众传播信息的一种平面视觉表现形式,如招贴、报纸、杂志、书籍装帧、画册、宣传单等,媒介手段较为单一。传统平面广告只能以静态的图片配以文字表现,在“五感”(视觉、听觉、嗅觉、味觉、触觉)中只有视觉,而其余的四感却被忽略了,缺乏生动的形式。而生活经验告诉我们,唯有生动,才
能更易引起受众思想感情的共鸣。有了共鸣,才有深刻的印象,达到广告传播宣传,打动消费者,引起消费欲望的目的。
(2)审美需求
中国在由温饱型向全面小康过渡的阶段,已不满足“实用”,对美的追求也日益迫切,人们生存方式、生活理念日益多元化。在思维的引导和情感的表达上,以往贯穿于视觉传达设计中运用的规律正逐渐被打破。广大受众对平面广告的视
觉冲击力、创意手法和视觉语言等的需求越来越高,仅仅是依靠有限的平面视觉符号来表现显然已无法满足消费大众的视觉感受和审美心理的需求。而“立体化”这一表现形式在当代平面广告设计的实际运用中的优势日益体现。极大地拓展了平面广告的表现空间,使表现形式显得更为丰富多彩、风格各异。这样才能在铺天盖地的广告中脱颖而出,既兼顾大众的审美情趣,又要体现独特的设计风格。谁能打动受众、吸引观众,谁就有长久的生命力,赢得市场竞争。
(3)科技的发展
科学技术在设计发展中的作用是不言而喻的,伴随着多媒体技术的不断创新,平面广告设计的表现形式不断扩大。传统平面广告的单一表现语言也开始了新一轮的革新。在多媒体技术的驱动下,传统的平面广告设计的平庸化、程式化正受着强大的冲击,设计师不得不思考着新的设计理念和思维,让自己的设计理念和思维与时俱进。平面广告“立体化”表现形式的出现是由于技术和经济的
发展,平面广告呈现出交叉多样化的发展趋势。我们要依靠敏锐的创造性直觉,充分利用新技术带来的成果,为现代平面广告服务,追求更完美‘更能传达信息的平面广告表现形式,在新的技术中发现新的表现可能。
2、“立体化”表现形式在平面广告中的应用
平面广告设计“立体化”的表现形式,为平面广告设计开创了一个崭新的天地,创造了更为广泛表现的可能性,促进了当代平面广告设计的发展。通过“立体化”这一新的表现形式,使受众调动全身的感知器官感受设计作品,并融入其中,成为设计作品的一部分,达到人与作品合二为一的境界。
(1)利用空间环境
平面广告设计由传统的二维向三维、多维空间扩展;它在环境、空间的展示和应用更为广泛。平面广告作为市场竞争的主要手段,最重要的要素就是向受众准确的传达产品信息,是企业与消费者之间的信息交换的桥梁。而在传统的平面广告设计中常常忽略了受众与广告设计之间的关系,只是利用平面设计元素单向的向受众强迫式的传达信息,这样的作品往往被人所忽略,淹没在茫茫的图像之中,无法吸引受众的眼球。
户外广告是其与三维空间环境创造立体化视觉语言的一种较为代表性的方式。平面户外广告突破二维平面的表现空间,融于到自然环境之中,与周围环境相
图形图像广告平面设计毕业论文63_平面广告设计论文
互依赖,形成一个整体,巧妙地将创意表达出来,创造出新颖独特的视觉效果,吸引消费者的眼球,给人以深刻的记忆。
(2)利用多媒体技术
随着科技水平的提高和发展,交叉艺术产生新的火花及表现形式。利用多媒体技术创造“立体化”表现形式的平面广告正不断吸引着我们的眼球,冲击着我们的视觉。作为一种新的视觉语言的表现形式,多媒体广告极大丰富了平面广告设计的领域与内涵。多媒体技术的应用打破了传统的二维平面,把广告创意和产品价值很巧妙的结合起来,造成强大的视觉冲击。
(3)利用视错觉表现形式
所谓视错觉,就是我们知觉判断的视觉经验,与所观察物实际特征之间存在着矛盾。当观察者发觉到自己主观上的把握和观察物之间不均衡时,就产生了错觉的混乱。人们往往被错觉所欺骗,但有时又追求视觉上的特殊的刺激,甚至为超越视觉上的紧张和均衡所具有的限度而兴奋。对于错视所造成的“可视性”障碍,人们不断尝试,正越来越多地被利用,以达到提高视觉注目率和增加观赏趣味的效果。
参考文献
《设计概论》彭泽立编著 —长沙:中南大学出版社2004年8月 《设计平面设计》林华编著—中南广播电视大学出版社(第二版) 《视觉艺术心理》王令中编著—北京:人民美术出版社,2005. 《平面广告设计》何洁编著—北京:中南大学出版社,1999.
《世界现代平面设计史》王受之编著—深圳:新世纪出版社,1998. 《Photoshop CS教程》21世纪工作室编著—成都:电子科技大学出版社(第三版)
11
浙公网安备 33021202002483