图5-9 调用数据库表推荐信息的网站主页
5.5.1基本资料管理模块设计
图5-10新闻资讯发布效果图
系统发布新闻资讯的页面，通过类型的选择读取资讯表Bq_ News，同时具备发布、管理、修改、删除整个系统新闻资讯（包含商家会员发布的优惠资讯、求职照招聘、商家动态等）的功能。
图5-11 新闻资讯发布成功列表显示图
(1)新闻分类搜索的实现：
图5-12新闻搜索表单显示图
<form name="Search" method="post" action="News_list.asp">
<select>
<option value="News_class" <%if classtype="News_class" then response.Write "selected"%>>新闻分类</option>
<option value="News_title" <%if classtype="News_title" then response.Write "selected"%>>标题</option>
<option value="News_content" <%if classtype="News_content" then response.Write "selected"%>>内容</option></select>
<input name="keyword" type="text" class="input" value="<%=keyword%>" size="15"></td>
<input name="Submit2" type="submit" class="btn" value="搜索"></td>
</form>
代码解析：搜索“新闻分类、标题、标签、内容”的表单。
<% Set rs = Server.CreateObject("ADODB.Recordset")
if keyword <>"" then
sql = "Select * from News where "& classtype &" like '%"& keyword &"%' order by News_id desc"
else
sql = "Select * from News order by News_id desc"
end if
rs.open sql,conn,1,1 %>
代码解析：表示根据keyword 搜索结果。
(2)新闻资讯推荐与广告的实现方法：
网站都需要突出的图片、文字从而达到突出宣传网站或介绍广告业务的目的，本系统广告位置推荐做了首页的位置推荐。
<% Dim gNews_pic
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select top 3 News_id,News_pic,News_url From News Where News_class like '%首页%' and News_isflash=1 Order By News_id Desc",conn,1,1
Set gNews_id=rs("News_id")
Set gNews_pic=rs("News_pic")
Set gNews_url=rs("News_url")
While Not rs.Eof
News_url=gNews_url
If News_url="" Then News_url="/News.asp?id="& gNews_id &""
Response.Write "<li><a href="""& News_url &""" target=""_blank""><img src="""& gNews_pic &""" /></a></li>" & Chr(10)
rs.MoveNext
Wend
rs.Close
Set rs=Nothing %>
代码解析：位于首页flash广告展示部分的代码，作用是查找出News表中News_class包含“首页”字符且News_isflash=1的图片显示出来。
<% If rs ("News_isflash")="0" then
Response.Write "<a href=?News_isflash=1&News_id="& rs("News_id") &"&Page="& Page &"&classtype="& classtype &"&keyword="& keyword &" class=Text_4>否</a>"
Else
response.Write "<a href=?News_isflash=0&News_id="& rs("News_id") &"&Page="& Page &"&classtype="& classtype &"&keyword="& keyword &" class=Title_red>是</a>" End If %>
代码解析：当News_isflash为"0"的时候后台显示不推荐，反之则推荐，主要是提示管理员的作用。
通过这样，就能够实现广告显示与管理的目的了。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>