28,390
社区成员
发帖
与我相关
我的任务
分享
<!--
/********************************************************************
* 客户端代码 *
********************************************************************/
var focus_width=500 //定义并初始化变量
var focus_height=247 //定义并初始化变量
var text_height=0 //定义并初始化变量
var swf_height = focus_height+text_height//定义并初始化变量
/********************************************************************
* 转到服务端查库取有关的数据 *
*最好不要这样“异步”,有很多意想不到的问题; *
*保险起见,还是AJAX取数据的好 *
********************************************************************/
<%
set RsLink=UseDB.EditDB("Select top 6 * from Link where FState=1 and FLanguage=1 and FType="&FMainID&" Order by FOrder asc")
'将数据组合为字串
for nI=1 to 6
if RsLink.Eof=true then exit for
linkPic=linkPic& Rslink("FPic")&"|"
linkUrl=LinkUrl&Rslink("FUrl")&"|"
linkText=linkText&Rslink("FName")&"|"
Rslink.MoveNext
next
'去掉字串的最后一个|
if LinkPic <>empty then
linkPic=left(linkPic,len(linkpic)-1)
linkUrl=left(linkUrl,len(linkUrl)-1)
linkText=left(linkText,len(linkText)-1)
end if
%>
/********************************************************************
* 回到客户端 *
********************************************************************/
var pics="<%=linkPic%>";//取出服务器端变量值赋值给客户端变量
var links="<%=linkUrl%>";//取出服务器端变量值赋值给客户端变量
var texts="|||"
FlashChange(pics,links,texts,focus_width,focus_height,text_height,swf_height);//调用
//FLASH播放的设置函数
function FlashChange(pics,links,texts,focus_width,focus_height,text_height,swf_height)
{
//创建FLASH对象
var sHTML="<object classid='clsid:d27cdb6e-ae6d-11cf-96b8-444553540000' width='"+focus_width+"' height='"+swf_height+"'>";
//设置FLASH参数
sHTML+="<param name='allowScriptAccess' value='sameDomain'>";
sHTML+="<param name='movie' value='playswf.swf'>";
//sHTML+="<param name='wmode' value='transparent'>";//和第六个重复去掉
sHTML+="<param name='quality' value='high'>";
sHTML+="<param name='menu' value='false'>";
sHTML+="<param name='wmode' value='opaque'>";//和第三个重复,选择保留这个
var fVars="pics="+pics+"&links="+links+"&texts="+texts+"&borderwidth="+focus_width+"&borderheight="+focus_height+"&textheight="+text_height+"'>";
sHTML+="<param name='FlashVars' value='"+fVars+"'>";
//将FLASH嵌入网页
sHTML+="<embed src='playswf.swf' wmode='opaque' FlashVars="+fVars+" menu='false' bgcolor='#DADADA' quality='high' width='"+ focus_width +"' height='"+ swf_height +"' allowScriptAccess='sameDomain' type='application/x-shockwave-flash' pluginspage='http://www.macromedia.com/go/getflashplayer' />";
sHTML+="</object>";
document.write(sHTML);
}