ad_one_click.asp

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

<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
function filtration(str)
str=replace(str,chr(34),"")
str=replace(str,chr(35),"")
str=replace(str,chr(37),"")
str=replace(str,chr(38),"")
str=replace(str,chr(39),"")
str=replace(str,chr(40),"")
str=replace(str,chr(41),"")
str=replace(str,chr(42),"")
str=replace(str,chr(43),"")
str=replace(str,chr(45),"")
str=replace(str,chr(46),"")
str=replace(str,chr(58),"")
str=replace(str,chr(59),"")
str=replace(str,chr(60),"")
str=replace(str,chr(61),"")
str=replace(str,chr(62),"")
filtration=str
end Function

dim rs
dim keyword
keyword=Request.QueryString("keyword")
if keyword="" then
conn.close
set conn=Nothing
response.write "<Script>window.alert('请输入关键词！');history.go(-1);</Script>"
response.end
else
keyword=replace(keyword,"  "," ")
keyword=filtration(keyword)
keyword=ltrim(rtrim(keyword))
set rs=server.createobject("adodb.recordset")
rs.open "select one_click,one_click_open,one_click_time from web where one_click is not null and one_click_time>#"&formatdatetime(date,2)&"# and one_click_open=1 and one_click='"&keyword&"'",conn,1,1
if not rs.eof then
response.write "<Script>window.alert('关键词“"&keyword&"”不可以申请弹出窗口！');history.go(-1);</Script>"
else
response.write "<Script>window.alert('关键词“"&keyword&"”可以申请弹出窗口！');history.go(-1);</Script>"
end if
rs.close
set rs=Nothing
end if
conn.close
set conn=Nothing
%>