📄 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
'ＱＱ: 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 + -