web_ok.asp

一个功能强大的搜索系统

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

case "alldel"
call alldelete()

case "allverify"
call allverify()
end select

sub delete()
if session("rank")>2 then
response.write "<Script>window.alert('您的管理员级别不能操作！');history.go(-1);</Script>"
response.end
else
conn.execute"delete from web where id="&Request.QueryString("id")
conn.close
set conn=nothing
response.write "<Script>window.alert('网站删除成功');location.replace('"&session("url")&"');</Script>"
end if
end sub

sub alldelete()
if session("rank")>2  then
response.write "<Script>window.alert('您的管理员级别不能操作！');history.go(-1);</Script>"
response.end
else
id=request.querystring("id")
if id="" then
response.write "<script>window.alert('没有选择删除的纪录！');history.go(-1);</script>"
else
conn.execute"delete from web where id in ("&id&")"
conn.close
set conn=nothing
response.write "<script>window.alert('网站批量删除成功！');location.replace('"&session("url")&"');</script>"
end if
end if
end sub

sub allverify()
id=request.querystring("id")
if id="" then
response.write "<script>window.alert('没有选择删除的纪录！');history.go(-1);</script>"
response.end
else
conn.execute"update web set verify=0 where id in ("&id&")"
conn.close
set conn=nothing
response.write "<script>window.alert('网站批量审核成功！');location.replace('"&session("url")&"');</script>"
end if
end sub
%>