ads.asp

来自「新闻发布系统」· ASP 代码 · 共 133 行

<!--#include file=config.asp -->
<%
set rsc=server.createobject("adodb.recordset")
rscsql="Select * from config"
rsc.open rscsql,adsconn,1,3
dim getplace,getshow,adsrs,adssql,adsrsp,adssqlp,adsrss,adssqls,getip,getprice

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 date()>=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 date()>=adsrsp("lasttime") then
advertvirtualvalue=1
end if

elseif adsrsp("class")=6 then
if adsrsp("show")>=adsrsp("shows") then
advertvirtualvalue=1
end if
if date()>=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 date()>=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
getprice=request.querystring("priceid")
getplace=cint(request.querystring("place"))
set adsrs=server.createobject("adodb.recordset")
adssql="Select top 1 * from [ads] where act=1 and place="&getplace&" and priceid="&getprice&" order by time"
adsrs.open adssql,adsconn,1,3
if adsrs.eof=false then
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
%>
document.write('<a href="&rsc("Domain")&"/ads/geturl.asp?id=<%=adsrs("id")%>\" target=\"<%=ttarg%>\"><img border=0 width=<%=adsrs("width")%> height=<%=adsrs("height")%> src=\"<%=adsrs("gif_url")%>\"></a>');
<%
elseif adsrs("showtype")="f" 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=<%=adsrs("width")%> height=<%=adsrs("height")%>>');
document.write('<param name=movie value=\"<%=adsrs("gif_url")%>\"><param name=quality value=high>');
document.write('<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=<%=adsrs("width")%> height=<%=adsrs("height")%>>');
document.write('</embed></object>');<%
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
end if
adsrs.close
set adsrs=nothing 
adsconn.close
set adsconn=nothing

%>