<!--#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
%>

<!--#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
%>