config_ad.asp

鄂尔多斯建站网全站程序(冬季修正版)

<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%sub index_top_ad
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ad where ad_w='首页顶广告' order by ad_id desc" 
rs.open sql,conn,1,3
if rs.eof then
response.write("未添加广告")                                                                                        
else
if rs("html_w")="0" then%>
<a href="<%=rs("ad_url")%>" titel="<%=rs("ad_wenzi")%>"><img border="0" src="<%=rs("ad_pic")%>" <%if rs("kuan") and rs("gao")<>"0" then%>width="468" height="60" <%end if%>></a>
<%else%>       
<%=rs("ad_html")%>       
<%end if       
end if
rs.close
set rs=nothing
end sub%>

<%sub index_end_ad       
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ad where ad_w='首页底广告' order by ad_id desc" 
rs.open sql,conn,1,3
if rs.eof then
response.write("未添加广告")                                                                                        
else
if rs("html_w")="0" then%>
<a href="<%=rs("ad_url")%>" titel="<%=rs("ad_wenzi")%>"><img border="0" src="<%=rs("ad_pic")%>" <%if rs("kuan") and rs("gao")<>"0" then%>width="468" height="60" <%end if%>></a>       
<%else%><%=rs("ad_html")%><%end if       
end if
rs.close
set rs=nothing
end sub%>

<%sub list_ad       
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from ad where ad_w='内页广告' order by ad_id desc" 
rs.open sql,conn,1,3
if rs.eof then
response.write("未添加广告")                                                                                        
else
if rs("html_w")="0" then%>
<a href="<%=rs("ad_url")%>" titel="<%=rs("ad_wenzi")%>"><img border="0" src="<%=rs("ad_pic")%>" <%if rs("kuan") and rs("gao")<>"0" then%>width="468" height="60" <%end if%>></a>       
<%else%><%=rs("ad_html")%><%end if       
end if
rs.close
set rs=nothing
end sub%>

<%sub news_ad       
Set rss = Server.CreateObject("ADODB.Recordset")
sql="select * from ad where ad_w='新闻广告' order by ad_id desc" 
rss.open sql,conn,1,3
if rss.eof then
response.write("未添加广告")                                                                                        
else
if rss("html_w")="0" then%>
<a href="<%=rss("ad_url")%>" titel="<%=rss("ad_wenzi")%>"><img border="0" src="<%=rss("ad_pic")%>" <%if rss("kuan") and rss("gao")<>"0" then%>width="468" height="60" <%end if%>></a>       
<%else%><%=rss("ad_html")%><%end if       
end if
rss.close
set rss=nothing
end sub%>

<%sub fly_ad       
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from ad where ad_w='漂浮广告' order by ad_id desc" 
rs1.open sql,conn,1,3
if rs1.eof then
response.write(" ")                                                                                        
else
if rs1("html_w")="0" then%>
<div id="img" style="position:absolute;">
<a href="<%=rs1("ad_url")%>"><img src="<%=rs1("ad_pic")%>" onClick="pause_resume();"></a>
</div>
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
var xPos = 20;
var yPos = document.body.clientHeight;
var step = 1;
var delay = 30; 
var height = 0;
var Hoffset = 0;
var Woffset = 0;
var yon = 0;
var xon = 0;
var pause = true;
var interval;
img.style.top = yPos;
function changePos() {
width = document.body.clientWidth;
height = document.body.clientHeight;
Hoffset = img.offsetHeight;
Woffset = img.offsetWidth;
img.style.left = xPos + document.body.scrollLeft;
img.style.top = yPos + document.body.scrollTop;
if (yon) {
yPos = yPos + step;
}
else {
yPos = yPos - step;
}
if (yPos < 0) {
yon = 1;
yPos = 0;
}
if (yPos >= (height - Hoffset)) {
yon = 0;
yPos = (height - Hoffset);
}
if (xon) {
xPos = xPos + step;
}
else {
xPos = xPos - step;
}
if (xPos < 0) {
xon = 1;
xPos = 0;
}
if (xPos >= (width - Woffset)) {
xon = 0;
xPos = (width - Woffset);
}
}
function start() {
img.visibility = "visible";
interval = setInterval('changePos()', delay);
}
function pause_resume() {
if(pause) {
clearInterval(interval);
pause = false;
}
else {
interval = setInterval('changePos()',delay);
pause = true;
}
}
start();
// End -->
</script>
<%else%><%=rs1("ad_html")%><%end if
end if
rs1.close
set rs1=nothing
end sub%><%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>