不同页面不同广告的显示

<%
function showadv(id,avwidth,avheight)
Dim strPic, strUrl
strPic=""
strUrl=""
set rsAdv = conn.execute("Select pic, url from Adv Where id="&id)
If not(rsAdv.eof and rsAdv.bof) Then
strPic = rsAdv("pic")
strUrl = rsAdv("url")
End if
rsAdv.close
set rsAdv = nothing
If strPic<>"" Then
If lcase(right(strPic,3))="swf" Then
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/sho ... h/swflash.cab#version=6,0,29,0" width="<%=avwidth%>" height="<%=avheight%>">
<param name="movie" value="<%=strPic%>">
<param name="quality" value="high">
<param name="wmode" value="transparent">
<embed src="<%=strPic%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width=&q ... ;<%=avheight%>"></embed></object>
<% 
Else
If strUrl="" Then
response.Write("<img src=''"&strPic&"'' width="&avwidth&" height="&avheight&" />")
Else
response.Write("<a href=''"&strUrl&"'' target=''_blank''><img src=''"&strPic&"'' width="&avwidth&" height="&avheight&" border=0 /></a>")
End If 
End if
End If
end function
%>

转载保留链接！网址：http://80920140.com/post/48.html