图片不能发啊?我帖出代码,麻烦老师帮我看看。非常感谢。
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 编辑 ]