www.gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\admin\del_news.asp

    <!--#include file="conn.asp"-->
<% 
 if session("admin")="" then
  Response.redirect "backlogin.asp?msg=对不起你还没有登录,请先登录!"
 else
 name=session("admin")
 set rs=server.createobject("adodb.recordset")
 sqltext="select * from admin where name='"&name&"'"
 rs.open sqltext,cn,1,1
 if rs("ad_level")>3 then
 Response.redirect "backlogin1.asp?msg=对不起你无权增加新闻!"
 end if 
 rs.close
 end if
%>
<%
   dim SQL, Rs,ID,CurrentPage
   CurrentPage = request("Page")
   ID=request("ID")

   set rs=server.createobject("adodb.recordset")
   sqltext="delete from news where ID="&ID
   rs.open sqltext,cn,3,3
   set rs=nothing
   response.redirect "news_check.asp?page="&CurrentPage
%>