ad.asp

网上学生心里调查系统

<%
'---------------顶部广告---------------------
function ad_top()
'一艘
response.write ("<script src='http://union.3721.com/cust.js?pid=S_52boy_53340&pid1=U_52boy_53341&SearchHeight=40&SearchWidth=182&boxColor=2C8FD2&txtColor=FFFFFF&Key=3201,3064,3178'></script>")

end function

'---------------底部广告---------------------
function ad_bottom()
randomize
randomnum=int(rnd*4)+1
SELECT CASE randomnum
CASE 1
  response.write ("<iframe src='http://mysms.tqq.com.cn/ad/778_05.php?id=635' MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no width=760 height=120></iframe>")
CASE 2
  response.write ("<iframe src='http://mysms.tqq.com.cn/ad/778_06.php?id=635' MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no width=760 height=120></iframe>")
CASE 3
  response.write ("<iframe src='http://mysms.tqq.com.cn/ad/778_01.php?id=635' MARGINWIDTH=0 MARGINHEIGHT=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no width=760 height=120></iframe>")
CASE 4
%>
<table border='0' cellpadding='0' cellspacing='0' width='760'>
  <tr>
    <td bgcolor='#1EBA00' align='center'><script language='JavaScript' type='text/JavaScript' src='http://union.3721.com/ass/adv1_5.js?pid2=A_52boy_60589'></script></td>
  </tr>
</table>
<%
END SELECT
end function


'---------------资讯、聚会中---------------------
function ad_1()
  response.write ("<img  src='ad/ad468-60.gif' width='468' height='60' border='0'>")
end function
%>