书签 分享 收藏 举报 版权申诉 / 50

类型新闻发布.docx

  • 文档编号:25969298
  • 上传时间:2023-06-16
  • 格式:DOCX
  • 页数:50
  • 大小:1.44MB

<%Response.write(year(times)&"年"&month(times)&"月"&day(times)&"日")%>

4.1.3万年历查询模块设计

万年历查询模块主要包括制作万年历和通过万年历分类查询新闻信息两部分。

用户通过万年历选择要查看新闻的日期,在首页的新闻分类展示部分将显示相应日期的新闻。

(1)制作万年历

这里所说的万年历是指以月份为单位显示日期的日历,用户可以通过单击【上一月】按钮和【下一月】按钮控制显示的月份。

万年历的设计结果如图所示:

制作万年历的关键代码如下:

--*********************index.asp****************************-->

<%

riqi=cint(Request.QueryString("date"))

IfSession("add")<>""Then

Session("add")=""

Session("month")=cint(Session("month"))+1

IfSession("month")=13Then

Session("month")=1

Session("year")=cint(Session("year"))+1

EndIf

EndIf

IfSession("minus")<>""Then

Session("minus")=""

Session("month")=Session("month")-1

IfSession("month")=0Then

Session("month")=12

Session("year")=Session("year")-1

EndIf

EndIf

IfSession("year")=""Then

Session("year")=cint(year(date()))

Session("month")=cint(month(date()))

Session("day")=cint(day(date()))

EndIf

IfRequest.Querystring("date")<>""Then

Session("day")=riqi

EndIf

months=Session("month")

Ifmonths=1ormonths=3ormonths=5ormonths=7ormonths=8ormonths=10ormonths=12Then

sum=31

Else

Ifmonths=2Then

IfyearsMod100=0andyearsMod4=0Then

sum=29

Else

sum=28

EndIf

Else

sum=30

EndIf

EndIf

ifSession("day")>sumthen

Session("day")=sum

riqi=sum

endif

times=cdate(Session("year")&"-"&Session("month")&"-"&Session("day"))

%>

4.1.4新闻分类展示模块设计

在新闻分类展示模块中将显示某一天的、某一类别的全部新闻信息。

如图:

(1)新闻分类展示页面

对新闻进行分类查询并显示的代码如下:

代码如下:

--*********************Subpage.asp****************************-->

selectcasecint(request.QueryString("id"))

case1

table="新闻"

case2

table="体育"

case3

table="娱乐"

case4

table="汽车"

case5

table="博客"

case6

table="科技"

case7

table="空间"

case8

table="生活"

endselect

(2)新闻详细内容页面

新闻详细内容页面,主要是根据传递的参数查找相应的记录并显示。

查询新闻信息的代码如下:

<%id=Request.Querystring(“id”)%>

--#includeFile=”Conn/conn.asp”-->

<%

Sql=”select*fromtb_NewswhereID=”&id

Rs.opensql,conn

%>

4.1.5站内新闻搜索模块设计

站内新闻搜索是按类别对指定的新闻内容关键字进行模糊查询。

该页面由两部分组成:

一部分是查询条件输入区,另一部分是查询结果显示区,如图:

 

按类别对指定的新闻内容关键字进行模糊查询并显示相应的结果,其代码如下:

--*********************Search.asp****************************-->

<%key=Request.Form("keyword")

id=Request.Form("id")

selectcaseid

case1

table="新闻"

case2

table="体育"

case3

table="娱乐"

case4

table="汽车"

case5

table="博客"

case6

table="科技"

case7

table="空间"

case8

table="生活"

endselect

sql="select*fromtb_NewswhereContentLike'%"&key&"%'andStyle='"&table&"'andIssueDate=#"×&"#"

rs.opensql,conn

%>

站内新闻搜索模块的运行结果如图:

4.1.6美食年年评模块设计

年度美食大pk模块主要包括投票/显示投票结果页面和处理投票信息页面,页面设计结果如图:

 

在投票/显示投票结果页面中首先

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
新闻 发布
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:新闻发布.docx
链接地址:https://www.bdocx.com/doc/25969298.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

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

收起
展开