找到head.asp文件,用记事本打开.搜索advs(adid)

function advs(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
  if rs("fiewFlag")=0 then
  response.write"<a href='"&rs("Adurl")&"' target='_blank'><img src='"&rs("BigPic")&"' width='"&rs("ADsWidth")&"' height='"&rs("ADsHeight")&"' border='0' ></a>"
  else

把 target='_blank' 添加上即可达到首页广告调用弹出效果!

response.write"<a href='"&rs("Adurl")&"' target='_blank'><img src='"&rs("BigPic")&"' width='"&rs("ADsWidth")&"' height='"&rs("ADsHeight")&"' border='0' ></a>"