求助，FLASH幻灯显示不正常。

图片不能发啊？我帖出代码，麻烦老师帮我看看。非常感谢。
elseif styles=8 then
            picss=left(picss,len(picss)-1)
            linkss=left(linkss,len(linkss)-1)
            textss=left(textss,len(textss)-1)
            shtml=shtml&"<SCRIPT type=text/javascript>"& vbCrLf
            shtml=shtml&"var interval_time = 3;"& vbCrLf
            shtml=shtml&"var textBgAlpha = 80; "& vbCrLf
            shtml=shtml&"var textColor = '0xFFFFFF';"& vbCrLf
            shtml=shtml&"var textBgColor = '0x3FA61F';"& vbCrLf
            shtml=shtml&"var pic_width="&picw&";"& vbCrLf
            shtml=shtml&"var pic_height="&pich&";"& vbCrLf
            shtml=shtml&"var pics='"&picss&"'"& vbCrLf
            shtml=shtml&"var links='"&linkss&"'"& vbCrLf
            shtml=shtml&"var texts='"&textss&"';"& vbCrLf            
            shtml=shtml&"document.write('<object classid=clsid:d27cdb6e-ae6d-11cf-96b8-444553540000 codebase=http://fpdownload.,0,0,0 width='+ pic_width +' height='+ pic_height +'>')"& vbCrLf
            shtml=shtml&"document.write('<param name=movie value="&InstallDir&"Skin/Default/flashpic.swf>')"& vbCrLf
            shtml=shtml&"document.write('<param name=quality value=high><param name=wmode value=opaque>')"& vbCrLf
            shtml=shtml&"document.write('<param name=FlashVars value=""bcastr_file='+pics+'&bcastr_link='+links+'&bcastr_title='+texts+'&AutoPlayTime='+interval_time+'&TitleBgAlpha='+textBgAlpha+'&TitleTextColor='+textColor+'&TitleBgColor='+textBgColor+'&TitleBgPosition=2"">')"& vbCrLf
            shtml=shtml&"document.write('<embed src="&InstallDir&"Skin/Default/flashpic.swf FlashVars=""bcastr_file='+pics+'&bcastr_link='+links+'&bcastr_title='+texts+'&AutoPlayTime='+interval_time+'&TitleBgAlpha='+textBgAlpha+'&TitleTextColor='+textColor+'&TitleBgColor='+textBgColor+'&TitleBgPosition=2"" quality=high width='+ pic_width +' height='+ pic_height +' allowScriptAccess=sameDomain type=application/x-shockwave-flash pluginspage=http://www. />')"& vbCrLf
            shtml=shtml&"document.write('</object>')"& vbCrLf
            shtml=shtml&"</script>"        
        end if
    else
        Articlehtml=Articlehtml&""
        shtml=""
    end if
    InfoRs.close
    set InfoRs=nothing
    if styles=5 or styles=6 or styles=8 then
        GetInfoList=shtml
    else
        GetInfoList=Articlehtml
    end if
End Function


[ 本帖最后由 微光旋转 于 2010-12-7 18:53 编辑 ]