<%
function advsbanner(adid)
dim rs,sql,i,ProductName,NewFlag
set rs = server.createobject("adodb.recordset")
sql="select * from Ameav_ADs where ViewFlag and id="&adid&" order by id desc"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无广告信息"
else
response.write""&rs("BigPic")&""
end if
rs.close
set rs=nothing
end function
%>