| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 477 人关注过本帖
标题:求助关于asp删除指定栏目,和栏目下的所有文章的代码
只看楼主 加入收藏
aaaylb
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2011-9-9
结帖率:0
收藏
已结贴  问题点数:10 回复次数:1 
求助关于asp删除指定栏目,和栏目下的所有文章的代码
<!--#include file="conn.asp"-->
<%   
    Set rs=server.createobject("adodb.recordset")
    sql="select * from news_class "
    rs.open sql,conn,1,3
    if rs.recordcount=1 then
    Response.Write("<script>alert('当前只有一条记录,不能执行任何操作!');location.href='news_category.asp';</script>")
    rs.close
    Else
    这个rs1是删除栏目下的文章但是执行不了,什么情况???貌似是个死循环,怎么改???
    <--rs1开始
    Set rs1=server.createobject("adodb.recordset")
    sql1="select * from news"
    rs1.open sql1,conn,1,3
    rs1.movefirst
    While Not rs1.eof
    If rs1("category_id")=request.queryString("id") Then
    rs1.delete
    rs1.movenext
    rs1.update
    End If
    wend
    rs1.close
    Set rs1=Nothing
    rs1结束-->
    rs是删除栏目
    Set rs=server.createobject("adodb.recordset")
    sql="select * from news_class where id="  &request.queryString("id")
    rs.open sql,conn,1,3
    rs.delete
    rs.update
    Response.Write("<script language='JavaScript'>alert('删除成功');window.location.href='news_category.asp';</script>")
    End If
    rs.close
    Set rs=Nothing
    conn.close
    Set conn=nothing
%>
搜索更多相关主题的帖子: sql include 文章 file 
2012-06-11 23:04
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:10 
<!--#include file="conn.asp"-->
<%   
    Set rs=server.createobject("adodb.recordset")
    sql="select * from news_class "
    rs.open sql,conn,1,3
    if rs.recordcount=1 then
       Response.Write("<script>alert('当前只有一条记录,不能执行任何操作!');location.href='news_category.asp';</script>")
       rs.close
    Else
       '这个rs1是删除栏目下的文章但是执行不了,什么情况???貌似是个死循环,怎么改???
       '<--rs1开始
       Set rs1=server.createobject("adodb.recordset")
       sql1="select * from news"
       rs1.open sql1,conn,1,3
       rs1.movefirst
       While Not rs1.eof
             If rs1("category_id")=request.queryString("id") Then
                rs1.delete
                'rs1.movenext'你写这里不死循环才奇怪呢
                rs1.update
            End If
            rs1.movenext'这个语句必须写在循环的最后一句
       wend
       rs1.close
       Set rs1=Nothing
       'rs1结束-->
       'rs是删除栏目
       Set rs=server.createobject("adodb.recordset")
       sql="select * from news_class where id="  &request.queryString("id")
       rs.open sql,conn,1,3
       rs.delete
       rs.update
       Response.Write("<script language='JavaScript'>alert('删除成功');window.location.href='news_category.asp';</script>")
    End If
    rs.close
    Set rs=Nothing
    conn.close
    Set conn=nothing
%>
2012-06-18 16:05
快速回复:求助关于asp删除指定栏目,和栏目下的所有文章的代码
数据加载中...
 
   



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

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