<!-- #Include File="../Include/Skin.asp" -->
<!-- #Include File="../Include/Cls_PageCute.asp" -->
<!-- #Include File="../Include/Cls_UbbCode.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

call DoWebHead(0,2)
%>
<html>
<head>
<title>弹出广告</title>
</head>
<body leftMargin="0" topMargin="0">
<%
dim AID,rsAD,sWidth,sHeight,sTempAD
AID=Clng(request("AID"))
Sql="Select AID,AdName,AdLinkUrl,AdImgUrl,ImgWidth,ImgHeight,IsFlash,ADType,ADSetting from AsaiMHAds where AID="&AID
set rsAD=Cls.exec(sql,1)
if rsAd.bof and rsAD.eof then
	Set rsAD=Nothing
	Response.write "<script>window.close()</script>"
	Response.end
end if
if rsAd(7)=0 then
	sWidth=rsAd(4)
	sHeight=rsAd(5)
	if rsAd(6)=true then
		sTempAD= "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0'"
		sTempAD = sTempAD & " width='" & sWidth & "'"
		sTempAD = sTempAD & " height='" & sHeight & "'"
		sTempAD = sTempAD & "><param name='movie' Value='" & rsAd(3) & "'><param name='quality' Value='high'><embed src='" & rsAd(3) & "' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash'"
		sTempAD = sTempAD & " width='" & sWidth & "'"
		sTempAD = sTempAD & " height='" & sHeight & "'"
		sTempAD = sTempAD & "></embed></object>"
	else
		sTempAd = "<a href='" & rsAd(2) & "' target='_blank' title='" & rsAd(1) & "：" & rsAd(2) & "'><img src='" & rsAd(3) & "'"
		sTempAD = sTempAD & " width='" & sWidth & "'"
		sTempAD = sTempAD & " height='" & sHeight & "'"
		sTempAD = sTempAD & " border='0'></a>"
	end if
	Dim AdSetting
	AdSetting=split(rsAd(8),"|")
	if Clng(AdSetting(1))=0 then AdSetting(1)=100
	if Clng(AdSetting(2))=0 then AdSetting(2)=100
	if Cint(AdSetting(0))>1 then
		Response.write "<script>window.close()</script>"
		Response.end
	End if
Elseif rsAd(7)=1 then
	sTempAD=rsAd(3)
else
	Response.write "<script>window.close()</script>"
	Response.end
End if
Response.write sTempAD
Set rsAD=Nothing
 call web_copy()
%>
</body>
</html>
