| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 277 人关注过本帖
标题:做毕业设计~求教:新闻系统中通过页面删除新闻的代码问题
只看楼主 加入收藏
wyang8574
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-6
收藏
 问题点数:0 回复次数:0 
做毕业设计~求教:新闻系统中通过页面删除新闻的代码问题
包括2个文件,news.asp用来显示新闻列表,是用DW的重复区域做的,在每一条题目的后面有“删除”两字,这俩字链接到news_delete.asp,同时用一个session保存字段"title"的值,news_delete.asp通过接收session("title")来查找ACCESS数据库中表news的记录并进行删除操作,大体想法是这样,但运行后出现如下的错误提示:
        错误类型:
        (0x80020009)
        发生意外。
        /bysj/news_delete.asp, 第 19 行

具体代码如下:
news.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/bysj.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_bysj_STRING
Recordset1.Source = "SELECT * FROM news ORDER BY date DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>-------------------------------------->新闻列表以时间降序排列


<form name="form" method="post" action="">
            <%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
              <table width="500" height="30" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                      <td width="340" height="30" align="left" valign="middle"><%=(Recordset1.Fields.Item("title").Value)%></td>
                      <td width="80" height="30" align="center" valign="middle"><a href="<%=(Recordset1.Fields.Item("content").Value)%>" class="link">查看</a></td>
                      <td width="80" height="30" align="center" valign="middle"><a href="admin_newsdelete.asp" class="link">删除</a></td>
                  </tr>
                          </table>
              <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
          </form>-------------------------------------->这是显示新闻列表的表格(只有一行,设置为重复区域)




<%
session("title")=Recordset1.fields.item("title").value

%>-------------------------------------------------->将title存入session


下面是news_delete.asp:




<% @language="vbscript" %>

<%
response.buffer=true
Response.Expires=0
%>



<%
dim title
title=session("title")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
sql="select * from news where title = '"& title &"' "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,3

while not rs.eof
if rs("title")=title then
rs.delete
rs.update
else
rs.movenext
end if
wend

rs.close
set rs=nothing
sub CloseConn()
conn.close
set conn=nothing
 end sub

response.write"<script>alert('删除成功');location.href='admin_news.asp'</script>"
%>
搜索更多相关主题的帖子: 新闻 数据库 include title file 
2008-06-06 21:25
快速回复:做毕业设计~求教:新闻系统中通过页面删除新闻的代码问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035773 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved