基于web的学校新闻发布系统(8)

下面将根据指定的新闻类别和页码显示新闻标题列表，代码如下： <%

'根据参数iflag和sql_where变量设置SQL语句，读取新闻数据 If iflag = \ If sql_where = \

sql = \ Else

sql = \* FROM News WHERE \& sql_where & \ORDER BY Posttime DESC\ End If Else

If sql_where = \

sql = \Posttime DESC\ Else

sql = \* FROM News WHERE CateId=\& iflag & \And \& sql_where & \ End If End If

rs.Open sql,conn,1,1

'如果记录集rs为空，则显示“目录还没有记录” If rs.EOF Then

Response.Write \colspan=4 align=center>目前还没有记录。\ Else

'设置分页显示，每页显示20条新闻记录

rs.PageSize = 20

'读取参数page，表示当前的页码，使用CLng将其转换为长整型

Page = CLng(Request(\

34

'处理不合法的页码 If Page < 1 Then Page = 1

If Page > rs.PageCount Then Page = rs.PageCount '设置当前页码为Page

rs.AbsolutePage = Page '循环显示当前页的记录

For i = 1 to rs.PageSize

'如果到达记录集结尾，则跳出循环 if rs.EOF then Exit For %>

href=\

onClick=\

newwin(this.href)\

<%If rs(\ Response.write \附图)\

rs.MoveNext() Next %>

<% '显示分页页码 If rs.pagecount>1 then

Response.Write \分页：\ For i = 1 To rs.PageCount

Response.Write \\

35

Response.Write \ Next

Response.Write \ End If End If %>

为了便于用户管理新闻类别，Cate_Admin.asp以表格的形式显示新闻类别名称，并在后面显示修改链接和删除复选框，代码如下：

border=\

cellspacing=\

width=\

bgcolor=\

bordercolorlight=\

<%

36

Set rs = Server.CreateObject(\ '读取所有的新闻类别数据到记录集rs中

sql = \ rs.Open sql, conn, 1, 1 If rs.EOF Then

If Soperate = \ %>

<%Else%>

<%End If%>

37

4.新闻发布界面的实现

将新闻类别添加到下拉菜单中，代码如下： <%

Set rs = Server.CreateObject(\ '将新闻类别装入下拉菜单中

sql = \ Set rsCate = Conn.Execute(sql) DO WHILE Not rsCate.EOF stitle = rsCate(\ cid = rsCate(\%>

rsCate.movenext LOOP %>

下拉菜单名为Cate，值为新闻类别编号，显示的内容是新闻类别名称。编辑新闻内容表单的定义代码如下：

在单击“确定”按钮时，将执行form_onsubmit(this.form)，进行数据有效性验证，代码如下:

function form_onsubmit(obj) {

ValidationPassed = true; if(obj.Cate.selectedIndex <0) { alert(\请选择新闻类别\ ValidationPassed = false; return ValidationPassed; }

38