ASP新闻发布系统课程设计报告(3)

华东交通大学理工学院课程设计报告

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(\%>

rsCate.movenext LOOP %>

Dim title '新闻标题 Dim content '新闻内容 Dim category '新闻类别 Dim sql 'sql语句字符串 Dim rs '记录集变量

title = Request(\

title = Replace(title,\ attpic = Request(\

rqtContent = ChangeChr(request(\替换函数rqtContent = Replace(rqtContent,\

Set rs = Server.CreateObject(\'定义sql语句，为插入新闻记录定义记录集 sql=\rs.Open sql, Conn, 1, 3

'使用AddNew和Update插入新记录 rs.AddNew

rs(\rs(\

rs(\rs(\

rs(\rs(\If attpic <> \ rs(\End If rs.Update

'释放资源，显示提示信息 set rs = nothing

Response.Write \添加成功！\

第 15 页 共 19 页

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库ASP新闻发布系统课程设计报告(3)在线全文阅读。