ad_js.asp

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

javastr=""
<!--#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 绿色互联 版权所有
'================================================================================
dim rs
id=Request.QueryString("id")
if isnumeric(id)=0 or id="" then
response.write "非法ID参数"
response.end
end if

set rs=conn.execute("select * from ad where id="&id)
if rs("time_out")>date() then%>
<%select case rs("sort")%>
<%case "image"%>
javastr=javastr+"<a href=\"<%=Web_path%>ad_count.asp?id=<%=rs("id")%>\" target=\"_blank\"><img src=\"<%=rs("image")%>\" width=\"<%=rs("width")%>\" height=\"<%=rs("height")%>\" border=\"0\" align=\"middle\"></a>"
<%case "flash"%>
javastr=javastr+"<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0\" width=\"<%=rs("width")%>\" height=\"<%=rs("height")%>\">"
javastr=javastr+"<param name=\"movie\" value=\"<%=rs("image")%>\">"
javastr=javastr+"<param name=\"quality\" value=\"high\">"
javastr=javastr+"<embed src=\"<%=rs("image")%>\" quality=\"high\" pluginspage=\"http://www.macromedia.com/go/getflashplayer\" type=\"application/x-shockwave-flash\" width=\"<%=rs("width")%>\" height=\"<%=rs("height")%>\"></embed></object>"
<%case "text"%>
javastr=javastr+"<a href=\"<%=Web_path%>ad_count.asp?id=<%=rs("id")%>\" target=\"_blank\"><strong><%=rs("text")%></strong></a>"
<%end select%>
<%else%>
javastr=javastr+"广告招商"
<%end if%>
<%
rs.close 
set rs=nothing
conn.close
set conn=nothing
%>
document.write (javastr)