batch_add_instruction.asp

来自「K风搜索 2.1商业版 完整功能版 后台http://XXXXXX/admi」· ASP 代码 · 共 28 行

<!--#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('您的管理员级别不能操作！');window.close();</Script>"
response.end
end if
Server.ScriptTimeOut=9000
dim url_list,i
url_list=Request.QueryString("url_list")
sort_id=Request.QueryString("sort_id")
sort_path=Request.QueryString("sort_path")
url_List=replace(url_List,chr(32),"")
url_list=split(url_list,chr(13))
for i=0 to ubound(url_list)
response.write "<iframe name=""url"" frameborder=""0"" width=""100%"" height=""25"" scrolling=""no"" src=""batch_add_ok.asp?url="&url_list(i)&"&sort_id="&sort_id&"&sort_path="&sort_path&"""></iframe>"
next
%>