keyword_ok.asp

K风搜索 2.1商业版 完整功能版 后台http://XXXXXX/admin/ 管理帐号：admin 管理密码：admin 安全密码： ks21 网站设置http://XXXXXX/

<!--#include file="../setup.asp"-->
<!--#include file="login_admin.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
if session("rank")<>1 then
response.write "<Script>window.alert('您的管理员级别不能操作！');history.go(-1);</Script>"
response.end
end if
%>
<!--#include file="connstr.asp"-->
<%
select case request("action")
case "del"
call delete()

case "alldel"
call alldelete()
end select


sub delete()
dim keyword
dim page
keyword=request.querystring("keyword")
page=request.querystring("page")
conn.execute"delete from keyword where id="&request.querystring("id")
conn.close
set conn=nothing
if keyword="" then
response.write "<Script>window.alert('删除成功');location.replace('keyword.asp?page="&page&"');</Script>"
else
response.write "<Script>window.alert('删除成功');location.replace('keyword.asp?keyword="&keyword&"&page="&page&"');</Script>"
end if
end sub

sub alldelete()
dim id
dim keyword
dim page
id=request.querystring("id")
keyword=request.querystring("keyword")
page=request.querystring("page")
if id="" then
conn.close
set conn=nothing
response.write "<script>window.alert('没有选择删除的纪录！');history.go(-1);</script>"
else

conn.execute"delete from keyword where id in ("&id&")"
conn.close
set conn=nothing
if keyword="" then
response.write "<Script>window.alert('删除成功');location.replace('keyword.asp?page="&page&"');</Script>"
else
response.write "<Script>window.alert('删除成功');location.replace('keyword.asp?keyword="&keyword&"&page="&page&"');</Script>"
end if
end if
end sub
%>