首页 > 网站 > 建站经验 > 正文

专题图片新闻调用

2024-08-30 19:06:15
字体:
来源:转载
供稿:网友

免费版测试通过。可以在首页、专题页调用当前专题中的图片新闻,可以选择是否居中、图片是否加边框等。只针对3.2.sp1,3.2以前的版本不可用。

一、标签图片spicnews.gif(放到/Foosun/Images/Lable目录中,名字:spicnews.gif)



图片点击可在新窗口打开查看

二、打开/Foosun/Editer/LableEditer.asp增加:(红色部分

<td width="1"> <div align="center" class="ToolSeparator"></div></td>
<td width="30"><div align="center"><img src="../Images/Lable/SpicNews.gif" alt="专题图片" width="24" height="24" class="Btn" onClick="InsertScript('SpicNews')"></div></td>

</tr>
</table></td>
</tr>
<%
End if
%>

下面:

case 'SpicNews':
var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=LableSpicNews.asp&PageTitle=专题图片标签属性',336,240,window);
break;
default :
return '';
}
if (ReturnValue!='') parent.frames["Editer"].InsertHTMLStr(ReturnValue);
}
</script>

三、Foosun/FunPages目录中,增加文件LableSpicNews.asp

点击浏览该文件

四、打开/Foosun/Admin/Refresh/cls_refresh.asp

Private Sub Analyze_Lable(f_Lable_Cont)
Dim i
m_Label_Para_Name_Array = Array(_
Array("freelable","FreeLableID","QueryNum","ColSpan","RowSpan","ColNum","RowNum"),_
Array("spicnews","SpecialListStr","NewsNumberStr","ShowTitleStr","OpenModeStr","TitleNumberStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr","PicModeStr","TitleModeStr","IsBkStr","BkColorStr","BgColorStr","BgImgStr"),_
Array("selfclass","ClassEName","NewsListNumberStr","TitleNumberStr","CompatPicStr","NaviPicStr","DateRuleStr","DateRightStr","RowHeightStr","RowNumberStr","ShowClassCNNameStr","MoreLinkTypeStr","MoreLinkContentStr","CSSStyleStr","OpenTypeStr","DateCSSStyleStr","TxtNaviStr","IsIncludeChildTF"),_

下面:

'==============2006-06-07=======================================================================
Case "spicnews" : if UBound(m_Prar_Cont_Array) = 16 then : Select_Function = SpicNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16)) : else : Select_Function = "" : Exit Function : end if

共4页上一页1234下一页
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表