ads.asp

某自治区政府的网站源代码

<%
'################################################################
'#         易成 ADisease 1.0 广告发布管理系统
'#
'#      版权所有: 易成在线(isease.com)
'#
'#      程序制作: 庞磊([e-mail])
'#
'#      主页地址: http://www.isease.com
'#
'#      开发环境：Win2000 SERVER+IIS5+ACCESS2000 IE5.0 
'################################################################
'#【版权声明】
'# 1、 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法
'#     修改、转载、散播。
'# 
'# 2、 程序中版权声明请勿删除，在您使用过程中，它不会向浏览广告
'#     的第三方提示任何与易成相关的信息，更不影响您的使用。
'# 
'# 3、 本软体为免费软件，用户自由选择是否使用，在使用中出现任何
'#     问题而造成的损失本站不负任何责任。
'# 
'# 4、 本软体不允许在没有事先通知的情况下用于商业用途，假如您需
'#     要用于商业用途，请和我们联系。
'# 
'# 5、 如果违反移上条款，易成在线isease.com对此保留一切法律追究
'#     的权利。 
'# 
'################################################################
'#
'#请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作，
'#
'#在您使用过程中，它不会向浏览广告的第三方提示任何与易成相关的信息，
'#
'#更不影响您的使用。
'#
'# 如有任何问题请到我们的论坛告诉我们。
'# 
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'################################################################
%>
<!--#include file=config.asp -->
<%
dim getplace,getshow,adsrs,adssql,adsrsp,adssqlp,adsrss,adssqls,getip

adsconn.open adsdata
set adsrsp=server.createobject("adodb.recordset")
adssqlp="Select * from [ads] where act=1 and class <> 0 order by time"
adsrsp.open adssqlp,adsconn,1,3

while not adsrsp.eof

advertvirtualvalue=0

if adsrsp("class")=1 then
if adsrsp("click")>=adsrsp("clicks") then
advertvirtualvalue=1
end if

elseif adsrsp("class")=2 then
if adsrsp("show")>=adsrsp("shows") then
advertvirtualvalue=1
end if

elseif adsrsp("class")=3 then
if now()>=adsrsp("lasttime") then
advertvirtualvalue=1
end if

elseif adsrsp("class")=4 then
if adsrsp("click")>=adsrsp("clicks") then
advertvirtualvalue=1
end if
if adsrsp("show")>=adsrsp("shows") then
advertvirtualvalue=1
end if

elseif adsrsp("class")=5 then
if adsrsp("click")>=adsrsp("clicks") then
advertvirtualvalue=1
end if
if now()>=adsrsp("lasttime") then
advertvirtualvalue=1
end if

elseif adsrsp("class")=6 then
if adsrsp("show")>=adsrsp("shows") then
advertvirtualvalue=1
end if
if now()>=adsrsp("lasttime") then
advertvirtualvalue=1
end if

elseif adsrsp("class")=7 then
if adsrsp("click")>=adsrsp("clicks") then
advertvirtualvalue=1
end if
if adsrsp("show")>=adsrsp("shows") then
advertvirtualvalue=1
end if
if now()>=adsrsp("lasttime") then
advertvirtualvalue=1
end if
end if

if advertvirtualvalue>=1 then
adsrsp("act")=2
adsrsp.update
end if
adsrsp.movenext
wend
adsrsp.close
set adsrsp=nothing 
adsconn.close


adsconn.open adsdata
if request.querystring("place")<>"1" and request.querystring("place")<>"0"then
getplace=0
else
getplace=cint(request.querystring("place"))
end if
set adsrs=server.createobject("adodb.recordset")
adssql="Select top 1 * from [ads] where act=1 and place="&getplace&" order by time"
adsrs.open adssql,adsconn,1,3
getshow=adsrs("show")+1
adsrs("show")=getshow
adsrs("time")=now()
adsrs.Update


if adsrs("window")=0 then
ttarg = "_blank"
else
ttarg="_top"
end if
if adsrs("showtype")="i" then
%>
<% if adsrs("place")=0  then %>
document.write('<a href=\"<%=adspath%>url.asp?id=<%=adsrs("id")%>\" target=\"<%=ttarg%>\"><img border=0  src=\"<%=adsrs("gif_url")%>\" width=350 height=250></a>');
<%else%>
document.write('<a href=\"<%=adspath%>url.asp?id=<%=adsrs("id")%>\" target=\"<%=ttarg%>\"><img border=0  src=\"<%=adsrs("gif_url")%>\" width=468 height=60></a>');
<% end if %>

<%
elseif adsrs("showtype")="f" then
%>
<% if adsrs("place")=0  then %>
document.write('<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0\" width=350 height=250>');
document.write('<param name=movie value=\"<%=adsrs("gif_url")%>\"><param name=quality value=high>');
document.write('<param name="wmode" value="transparent"><embed src=\"<%=adsrs("gif_url")%>\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=350 height=250>');
document.write('</embed></object>');
<%else%>

document.write('<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0\" width=468 height=60>');
document.write('<param name=movie value=\"<%=adsrs("gif_url")%>\"><param name=quality value=high>');
document.write('<param name="wmode" value="transparent"><embed src=\"<%=adsrs("gif_url")%>\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=468 height=60>');
document.write('</embed></object>');

<% end if %>

<%else%>
document.write('');
<%
end if

getip=request.ServerVariables("REMOTE_ADDR")
set adsrss=server.createobject("adodb.recordset")
adssqls="select * from iplist"
adsrss.open adssqls,adsconn,1,3
adsrss.AddNew
adsrss("adid") =adsrs("id")
adsrss("time") = now()
adsrss("ip") = getip
adsrss("class") = 1
adsrss.update
adsrss.close
set adsrss=nothing

adsrs.close
set adsrs=nothing 
adsconn.close
set adsconn=nothing
%>