⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 popad.asp

📁 淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="inc/Cl_Const.asp"-->
<!--#include file="Inc/Cl_Function_Public.asp"-->
<!--#include file="inc/Cl_ClsUbb.asp"-->
<html>
<head>
<title>弹出广告</title>
</head>
<body leftMargin="0" topMargin="0">
<%
Dim ChannelID
ChannelID=0
'Cl.LoadTemplates("")
dim ID,rsAD,sWidth,sHeight,sTempAD
ID=Cl.GetClng(request("ID"))
Set rsAD=Cl.Execute("Select ID,AdName,AdLinkUrl,AdImgUrl,ImgWidth,ImgHeight,IsFlash,ADType,ADSetting from Cl_Ads where ID="&ID)
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 Cl.ReplaceDir(sTempAD)
Set rsAD=Nothing
CloseAllObj
'==================================================
'CreateLive CMS Version 4.0
'							Powered by Aspoo.Net
'
'邮箱: support@aspoo.cn		Info@aspoo.cn
'QQ: 3315263				596197794
'网站: www.aspoo.cn			www.aspoo.com
'论坛: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005-2007 Aspoo.Net All Rights Reserved.
'==================================================
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -