adv_middle.asp

网上购物系统

<%
dim adv_middle_pic1,adv_middle_pic2,adv_middle_pic3,adv_middle_pic4
dim adv_middle_pic1Url,adv_middle_pic2Url,adv_middle_pic3Url,adv_middle_pic4Url
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 1 adv_middle_pic1,adv_middle_pic2,adv_middle_pic3,adv_middle_pic4,adv_middle_pic1Url,adv_middle_pic2Url,adv_middle_pic3Url,adv_middle_pic4Url from adv_middle"
rs.open sql,conn,1,1
adv_middle_pic1=rs(0)
adv_middle_pic2=rs(1)
adv_middle_pic3=rs(2)
adv_middle_pic4=rs(3)
adv_middle_pic1Url=rs(5)
adv_middle_pic2Url=rs(6)
adv_middle_pic3Url=rs(7)
adv_middle_pic4Url=rs(8)
rs.close
set rs=nothing

if adv_middle_pic1<>"" then
    a="uploadpic/"&adv_middle_pic1
    b=""&adv_middle_pic1Url
end if
if adv_middle_pic2<>"" then
    a=a&"|uploadpic/"&adv_middle_pic2
    b=b&"|"&adv_middle_pic2Url
end if
if adv_middle_pic3<>"" then
    a=a&"|uploadpic/"&adv_middle_pic3
    b=b&"|"&adv_middle_pic3Url
end if
if adv_middle_pic4<>"" then
    a=a&"|uploadpic/"&adv_middle_pic4
    b=b&"|"&adv_middle_pic4Url
end if

' 取出模板屏幕尺寸，以便匹配首页轮显广告尺寸
dim rs,sql,root_model_screen
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select root_model_screen from root_model where root_model_css='"&root_info_skin&"'"
rs.open sql,conn,1,1
root_model_screen=rs(0)
rs.close
set rs=nothing

if root_model_screen=0 then 
	width=360
	height=180
else
	width=450
	height=225
end if
%>
<table width="100%" cellpadding="0">
	<tr>
		<td>
			<!--首屏焦点图片结束-->
			<TABLE cellPadding="0" width="100%">
				<TR>
					<TD vAlign="top" align="middle">
						<script language="JavaScript" type="text/javascript">
						<!--     
						var focus_width=<%=width%>;
						var focus_height=<%=height%>;
						var text_height=0;
						var swf_height = focus_height+text_height;
						var pics='<%=a%>'; //链接图片
						var links='<%=b%>';//链接网址
						document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
						document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="images/autoflash.swf"><param name=wmode value=transparent><param name="quality" value="high">');
						document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
						document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&borderwidth='+focus_width+'&borderheight='+focus_height+'">');
						document.write('<embed src="images/autoflash.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&borderwidth='+focus_width+'&borderheight='+focus_height+'" menu="false" bgcolor="#ffffff" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');
						document.write('</object>');     
						//--> 
						</SCRIPT>
					</TD>
				</TR>
			</TABLE>
			<!--首屏焦点图片结束-->
		</td>