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