基于asp的新闻发布管理系统设计

基于asp的新闻发布管理系统设计内容摘要：

域中直接加入字体标识，用户可以在 font和 ／ font之问添加相应的文字， 代码如下： =39。 font[space]face=39。 +c+39。 39。 ++39。 /font 在添加和修改新闻内容的网页中，必须将表单定义为 myform，输入新闻内容的滚动文本框定义为 txtcontent，否则此功能将无法实现。 10 登录程序设计 在对系统进行管理之前，需要通过系统的身份认证。 本站中使用 进行身份验证。 对于需要登陆才能察看的网页可以在网页的最前端加上如下代码： !include file=”” 这样为登陆的用户将看到如下界面： 11 设计管理界面 管理界面的功能是对新闻类别和新闻提供管理界面，只有有权限的用户才能进入管理界面。 本节将介绍管理界面 的实现方法。 录入新闻类别和新闻内容后， 的界面如图 57 所示。 下面介绍 的主要代码。 (1)包含文件 在 的开始部分添加下面的代码，这样在打开网页时，程序会自动连接到数据库，并进行身份验证。 !include file= !include file= (2)显示新闻类别链接 将新闻按照分类显示，每个新闻类别只显示最新的 20 条新闻。 显示新闻类别的代码如下： % Dim rs,rsCate Set rs = () set rsCate = () 12 Dim iflag,sql_where iflag = (flag) sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) %| a href=39。 ?flag=%=cid%39。 font style=39。 TEXTDECORATION: none。 color:black39。 %=stitle%/font/a % Loop % 在调用 时，参数 flag 表示新闻类别。 如果 flag=0，则显示全部新闻，否则显示指定类别的新闻。 (3)显示管理链接 在 中，将根据用户类型显示管理链接，包括“用户管理”和“退出登录”，只有 Admin 用户才能看到“类别管理”和“用户管理”链接。 显示管理链接的代码如下： % If Session(UserName) = Admin Then a href=39。 39。 font color=red类别管理 /font/a a href=39。 39。 font color=red用户管理 /font/a sql_where = Else sql_where = Poster=39。 amp。 Session(UserName) amp。 39。 End If % Session(” UserName” )中保存着当前登录用户的用户名。 当 Session(” 13 UserName” )=” Admin”时，才能显示“类别管理”和“用户管理”超级链接。 从程序中可以看到，各项管理功能对应的页面如下： (1)更改密码 ； (2)类别管理 Cate— ； (3)用户管理 ； (4)退出登录。 变量 sql_where 用来记录查询条件。 如果当前用户是 Admin，则 sql_where=“”，即显示所有新闻；否则设置查询条件为“ Poster=“” amp。 Session(“ UserName” )amp。 “””，即只能管理自己创建的新闻。 (4)分页显示新闻信息 下面将根据指定的新闻类别和页码显示新闻标题列表，代码如下： % If iflag = Then If sql_where = Then sql = SELECT * FROM News ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE amp。 sql_where amp。 ORDER BY Posttime DESC End If Else If sql_where = then sql = SELECT * FROM News WHERE CateId= amp。 iflag amp。 ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE CateId= amp。 iflag amp。 And amp。 sql_where amp。 ORDER BY Posttime DESC End If End If sql,conn,1,1 If Then trtd colspan=4 align=center目前还没有记录。 14 /td/tr/table Else = 20 Page = CLng(Request(Page)) If Page 1 Then Page = 1 If Page Then Page = = Page For i = 1 to if then Exit For % trtda href=?id=%=rs(id)% onClick=return newwin()%=rs(title)%/a %If rs(attpic)=true then (附图 ) End If%/td td align=center%=rs(posttime)%/td td align=centera href=?id=%=rs(id)% onClick=return newwin()修 改 /a/td td align=centerinput type=checkbox name=News id=%=rs(id)% style=fontsize: 9pt value=ON/td /tr % () Next % /table % If 1 then table border=39。 039。 trtdb分页： /b/td For i = 1 To tda href=39。 ?flag= amp。 iflag amp。 amp。 page= amp。 i amp。 39。 [b amp。 i amp。 /b]/a/td 15 Next /tr/table End If End If % 这部分代码的关键部分是根据新闻类别和用户类型生成 SELECT 语句，查询指定的新闻记录。 在调试程序时，可以使用下面的语句显示 SELECT 语句的内容。 sql 16 第四章 新闻查询管理 新闻查询管理 如果系统中新闻数量比较多，那么只按照分类察看新闻显然是不够的。 为了方便网友使用，本站中设计了新闻管理功能。 新闻查询管理页面的脚本是 ，运行。