基于Web的学校新闻发布系统

;if
rs.close
elseif request("act")="add" then
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,1,3
if (rs.eof and rs.bof) then
rs.addnew
rs("oskey")=oskey
rs("Username")=UserName
rs("Password")=Password
rs.update
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_AdminMana.asp"
%>

　　三、后台新闻管理

　　后台管理首页如图6.3.1所示

图6.3.1后台管理首页

1. 专题管理
　　1.1  从管理首页的专题管理进去，可以进入专题添加界面。
　　1.2  专题添加的实现源代码类似于大类添加的实现功能。
　　1.3  高级管理员可以任意的添加，删除，修改各类专题，可以对原有专题进行初始化，上拉下拉等操作。具体界面如图6.3.2

图6.3.2专题管理界面

2. 大类管理

　　2.1  从管理首页的大类管理进入，可以进入大类的一级目录管理界面。
　　2.2  管理员可以任意的添加、修改、删除大类新闻，可以对大类新闻进行初始化上拉下拉等操作以及对新闻属性的各种设置。
　　2.3  通过对大类新闻属性的设置可以使新闻在首页显示或不显示，是否以列表的形式显示在首页等。

图6.3.3大类管理界面

以下是大类添加的部分源代码
sql="select * from BigClass"
rs.open sql,conn,3,3
do while not rs.eof
if rs("BigClassname")=typename 
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from BigClass"
rs.open sql,

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>