华东交通大学理工学院课程设计报告
4.3 新闻管理界面
图4-3新闻管理界面图
主要代码：
<% Dim rs,rsCate
Set rs = Server.CreateObject(\ set rsCate = Server.CreateObject(\ '定义变量
Dim iflag,sql_where
'参数flag表示指定的新闻类别
iflag = Request.QueryString(\
'设置SQL语句，读取所有的新闻类别到rs.Cate sql = \ Set rsCate = conn.Execute(sql)
'显示新闻类别链接，注意根据类别编号设置参数flag DO WHILE Not rsCate.EOF
stitle = rsCate(\ cid = rsCate(\
%>| '><%=stitle%> <%
rsCate.MoveNext Loop %>
第 11 页 共 19 页
华东交通大学理工学院课程设计报告
4.4 新闻类别管理界面
图4-4新闻类别管理界面
主要代码： dim Soperate
Soperate = Request.QueryString(\
Operid = Request.QueryString(\ '删除
If Soperate=\
sql = \ Set rs = Conn.Execute(sql) If rs.EOF Then
sqldelt = \ Conn.Execute(sqldelt)
Response.Write \新闻类别已经成功删除！\ Else
Response.Write \新闻类别中包含新闻，不能删除\ End If '添加
ElseIf Soperate = \
CateName = Request(\'判断是否已经存在此类别名称
sql = \Set rs = Conn.Execute(sql) '如果没有此类别名称，则创建新记录
第 12 页 共 19 页
华东交通大学理工学院课程设计报告
If Rs.EOF Then
sql = \ Conn.Execute(sql)
Response.Write\新闻类别已经成功添加！\ Else
Response.Write \已经存在此类别名称！\ End If
Set rs = Nothing
ElseIf Soperate = \CateName = Request(\
'如果新类别名称与旧名称不同，则判断是否存在此类别名称
sql = \CateId=\
Set rs = conn.Execute(sql) If Rs.EOF Then
'如果原类别编号和新类别名称不存在，则表示类别名称发生变化 Set rs = Nothing '此时判断是否存在此类别名称
sql = \ Set rs = Conn.Execute(sql) If Rs.EOF Then '新类别不存在
conn.Execute(\CateId=\
Response.Write \新闻类别已经成功修改！\ Else
Response.Write \已经存在此类别名称\ End if End If End If %>
第 13 页 共 19 页
华东交通大学理工学院课程设计报告
4.5 新闻发布管理界面
图4-5新闻发布管理界面图
主要代码： <%
Set rs = Server.CreateObject(\ '将新闻类别装入下拉菜单中
sql = \ Set rsCate = Conn.Execute(sql)
第 14 页 共 19 页
华东交通大学理工学院课程设计报告
DO WHILE Not rsCate.EOF
stitle = rsCate(\ cid = rsCate(\%>