<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer= True
Dim ChannelID
ChannelID=0
%>
<!--#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">
<%
Cl.LoadTemplates("")
dim ID,rsAD,sWidth,sHeight,sTempAD
ID=Cl.ChkClng(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 3.1
'							Powered by Aspoo.Net
'
'ÓÊÏä: aspoo@126.com		Info@aspoo.cn
'£Ñ£Ñ: 3315263				596197794
'ÍøÕ¾: www.aspoo.cn			www.aspoo.com
'ÂÛÌ³: bbs.aspoo.cn			bbs.aspoo.com
'
'Copyright (C) 2005 Aspoo.Net All Rights Reserved.
'==================================================
%>
</body>
</html>