NetCMS修改之四：扩展轮换幻灯片属性(NorFilt)，具有导读显示
NetCMS有两种幻灯片显示方式：Flash幻灯片和轮换幻灯片。Flash幻灯片是通过将图片新闻中的图片合成Flash后再在页面上显示。轮换幻灯片则是使用脚本进行控制(准确地说，是使用VBScript)。
其实，这两种显示形式差不多，只不过Flash幻灯片是通过Flash实现图片的过渡效果，而轮换幻灯片是利用IE提供的Filter属性实现图片过渡效果的。
鉴于轮换幻灯片是通过脚本控制Img标记的Src属性及Div标记的Innerhtml属性来实现图片切换和标题切换的。因此就想实现在图片右边显示新闻导读，效果如下：
轮换幻灯片的标签定义如下：
[NT:Loop,NT:SiteID=0,NT:LabelType=NorFilt,NT:Number=10,NT:ClassID=0,NT:isSub=true,NT:TitleNumer=25,NT:WCSS=css,NT:ShowTitle=true,
NT:FlashSize=参数1|参数2,NT:Target=_blank][/NT:Loop]
各参数的意义请参看NetCMS官方网站对此标签的说明(http://www.aspxcms.com/help/label/start.html#NorFilt)。
现给其增加以下参数：
NT:HashNaviContent：true或flase，是否显示导读。如果不显示导读，则与原来效果一致。
NT:NaviContentWidth：导读部分的宽度(px)
NT:NaviTitleCSS：导读部分标题的CSS样式
NT:NaviCntCSS：导读部分内容的CSS样式
对NorFilt标签的处理，是由NetCMS.Publish.LabelMass类中的Analyse_NorFilt()方法(NetCMS.Publish/Label/LabelMass_Method4.cs)进行处理的。现将改动后的Analyse_NorFilt()方法提供如下，增加或修改部分均做了注释：
/// <summary>
/// 轮换幻灯片
/// </summary>
/// <returns></returns>
public string Analyse_NorFilt()
{
string str_NorFilt = "";
string str_ClassID = this.GetParamValue("NT:ClassID");
string str_isSub = this.GetParamValue("NT:isSub");
string str_TitleNumer = this.GetParamValue("NT:TitleNumer");
string str_WCSS = this.GetParamValue("NT:WCSS");
string str_ShowTitle = this.GetParamValue("NT:ShowTitle");
string str_FlashSize = this.GetParamValue("NT:FlashSize");
string str_Target = this.GetParamValue("NT:Target");
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
string str_HashNaviContent = this.GetParamValue("NT:HashNaviContent");//获取导读标记
string str_NaviContentWidth = this.GetParamValue("NT:NaviContentWidth"); //获取导读部分宽度
string str_NaviTitleCSS = this.GetParamValue("NT:NaviTitleCSS"); //获取导读部分标题样式
string str_NaviCntCSS = this.GetParamValue("NT:NaviCntCSS"); // 获取导读部分内容文本样式
// --------------------------------------------------------------------------------
string SqlCondition = " Where [isRecyle]=0 And [isLock]=0 And [SiteID]='" + this.Param_SiteID + "' And [NewsType]=1 And SubString([NewsProperty],7,1)='1'";
string SqlOrderBy = " Order By [CreatTime] Desc";
#region 对栏目进行判断
DataTable dt = null;
string Sql = string.Empty;
if (str_ClassID == null || str_ClassID == "-1")
{
if (this._TemplateType == TempType.Class)
{
if (str_isSub == "true")
SqlCondition += " And [ClassID] In (" + getChildClassID(this.Param_CurrentClassID) + ")";
Sql = "select top " + Param_Loop + " * from [" + DBConfig.TableNamePrefix + "News] " + SqlCondition + " And ClassID='" + this.Param_CurrentClassID + "' " + SqlOrderBy;
}
else
{
Sql = "select top " + Param_Loop + " * from [" + DBConfig.TableNamePrefix + "News] " + SqlCondition + SqlOrderBy;
}
}
else if (str_ClassID == "0")
{
Sql = "select top " + Param_Loop + " * from [" + DBConfig.TableNamePrefix + "News]" + SqlCondition + SqlOrderBy;
}
else
{
if (str_isSub == "true")
SqlCondition += " And [ClassID] In (" + getChildClassID(str_ClassID) + ")";
Sql = "select top " + Param_Loop + " * from [" + DBConfig.TableNamePrefix + "News]" + SqlCondition + SqlOrderBy;
}
dt = CommonData.DalPublish.ExecuteSql(Sql);
#endregion 对栏目进行判断
if (dt != null)
{
if (dt.Rows.Count < 2)
{
str_NorFilt = "至少需要两条幻灯新闻才能正确显示幻灯效果";
return str_NorFilt;
}
string str_FlashWidth = " width='200'";
string str_FlashHeight = " height='100'";
if (str_FlashSize != null)
{
string[] arr_FlashSize = str_FlashSize.Split('|');
str_FlashWidth = " width='" + arr_FlashSize[0].ToString() + "'";
str_FlashHeight = " height='" + arr_FlashSize[1].ToString() + "'";
}
if (str_WCSS != null)
str_WCSS = " class='" + str_WCSS + "'";
if (str_Target != null)
str_Target = " target='" + str_Target + "'";
string str_Imgstr = ""; // 图片链接
string str_Linkstr = ""; // 新闻链接
string str_Txtstr = ""; // 标题链接
string str_FirstTxt = ""; // 第一次显示时的新闻标题
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
string str_NaviCnt = ""; // 导读新闻内容
string str_FirstNaviCnt = ""; // 第一次显示时的导读新闻内容
string str_NaviTitle = ""; // 导读新闻标题
string str_FirstNaviTitle = ""; // 第一次显示时的导读新闻标题
if (str_NaviTitleCSS != null)
str_NaviTitleCSS = " class='" + str_NaviTitleCSS + "'";
if (str_NaviCntCSS !=null)
str_NaviCntCSS = " class='" + str_NaviCntCSS + "'";
// ------------------------------------------------------------
for (int i = 0; i < dt.Rows.Count; i++)
{
PubClassInfo ci = CommonData.GetClassById(dt.Rows[i]["ClassID"].ToString());
string str_PicUrl = RelpacePicPath(dt.Rows[i]["PicURL"].ToString());
string str_Link = getNewsURL(dt.Rows[i]["isDelPoint"].ToString(), dt.Rows[i]["NewsID"].ToString(), dt.Rows[i]["SavePath"].ToString(), ci.SavePath + "/" + ci.SaveClassframe, dt.Rows[i]["FileName"].ToString(), dt.Rows[i]["FileEXName"].ToString());
string str_Txt = dt.Rows[i]["NewsTitle"].ToString();
string str_NaviCntTxt = dt.Rows[i]["NaviContent"].ToString();
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
// 获取完整新闻标题，用作导读部分标题的提示
string uTitle = str_Txt;
// -----------------------------------------
if (str_TitleNumer != null)
str_Txt = NetCMS.Common.Input.GetSubString(str_Txt, Convert.ToInt32(str_TitleNumer));
if (str_PicUrl != "" && str_PicUrl != null)
{
if (str_Imgstr == "")
{
str_Imgstr += str_PicUrl;
str_Linkstr += str_Link;
str_Txtstr += "<a href='" + str_Link + "' " + str_Target + " " + str_WCSS + ">" + str_Txt + "</a>";
str_FirstTxt = str_Txtstr;
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
// 处理导读部分新闻标题
str_NaviTitle = "<a href='" + str_Link + "' title='" + uTitle +"' " + str_Target + " " + str_NaviTitleCSS + ">" + str_Txt + "</a>";
str_FirstNaviTitle = str_NaviTitle;
str_NaviCnt = str_NaviCntTxt + "<a href='" + str_Link + "' " + str_Target + " " + ">" + "[详情]" + "</a>"; //处理导读新闻内容
str_FirstNaviCnt = str_NaviCnt;
// --------------------------------------------------------------------------------
}
else
{
str_Imgstr += "," + str_PicUrl;
str_Linkstr += "," + str_Link;
str_Txtstr += ",<a href='" + str_Link + "' " + str_Target + " " + str_WCSS + ">" + str_Txt + "</a>";
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
// 处理导读部分新闻标题
str_NaviTitle += ",<a href='" + "' title='" + uTitle + "' " + str_Target + " " + str_NaviTitleCSS + ">" + str_Txt + "</a>";
str_NaviCnt += "<#NaviContent>" + str_NaviCntTxt + "<a href='" + str_Link + "' " + str_Target + " " + ">" + "[详情]" + "</a>"; //处理导读新闻内容
// --------------------------------------------------------------------------------
}
}
}
str_NorFilt += "<script language=/"vbscript/">" + newLine;
// 以下由Whitewin于2009-4-21修改
// 给NorFilt幻灯新闻增加右部的导读。原句为：
// str_NorFilt += "Dim FileList,FileListArr,TxtList,TxtListArr,LinkList,LinkArr" + newLine;
// 增加导读内容数组的定义.注意导读内容中不能出现<#NaviContent>
str_NorFilt += "Dim FileList,FileListArr,TxtList,TxtListArr,LinkList,LinkArr,NaviTitleList,NaviTitleArr,NaviCntList,NaviCntArr" + newLine;
// --------------------------------------------------------------------------------
str_NorFilt += "FileList = /"" + str_Imgstr + "/"" + newLine;
str_NorFilt += "LinkList = /"" + str_Linkstr + "/"" + newLine;
str_NorFilt += "TxtList = /"" + str_Txtstr + "/"" + newLine;
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
// 处理导读新闻
str_NorFilt += "NaviCntList = /"" + str_NaviCnt + "/"" + newLine;
str_NorFilt += "NaviCntArr = Split(NaviCntList,/"<#NaviContent>/")" + newLine;
str_NorFilt += "NaviTitleList = /"" + str_NaviTitle + "/"" + newLine;
str_NorFilt += "NaviTitleArr = Split(NaviTitleList,/",/")" + newLine;
// --------------------------------------------------------------------------------
str_NorFilt += "FileListArr = Split(FileList,/",/")" + newLine;
str_NorFilt += "LinkArr = Split(LinkList,/",/")" + newLine;
str_NorFilt += "TxtListArr = Split(TxtList,/",/")" + newLine;
str_NorFilt += "Dim CanPlay" + newLine;
str_NorFilt += "CanPlay = CInt(Split(Split(navigator.appVersion,/";/")(1),/" /")(2))>5" + newLine;
str_NorFilt += "Dim FilterStr" + newLine;
str_NorFilt += "FilterStr = /"RevealTrans(duration=2,transition=23)/"" + newLine;
str_NorFilt += "FilterStr = FilterStr + /";BlendTrans(duration=2)/"" + newLine;
str_NorFilt += "If CanPlay Then" + newLine;
str_NorFilt += "FilterStr = FilterStr + /";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)/"" + newLine;
str_NorFilt += "FilterStr = FilterStr + /";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)/"" + newLine;
str_NorFilt += "Else" + newLine;
str_NorFilt += "Msgbox /"幻灯片播放具有多种动态图片切换效果，但此功能需要您的浏览器为IE5.5或以上版本，否则您将只能看到部分的切换效果。/",64" + newLine;
str_NorFilt += "End If" + newLine;
str_NorFilt += "Dim FilterArr" + newLine;
str_NorFilt += "FilterArr = Split(FilterStr,/";/")" + newLine;
str_NorFilt += "Dim PlayImg_M" + newLine;
str_NorFilt += "PlayImg_M = 5 * 1000 " + newLine;
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
// 有导读时，轮换时间延长到原来的2倍
if (str_HashNaviContent == "true")
str_NorFilt += "PlayImg_M = 2 * PlayImg_M " + newLine;
// --------------------------------------------------------------------------------
str_NorFilt += "Dim I" + newLine;
str_NorFilt += "I = 1" + newLine;
str_NorFilt += "Sub ChangeImg" + newLine;
str_NorFilt += "Do While FileListArr(I)=/"/"" + newLine;
str_NorFilt += "I = I + 1" + newLine;
str_NorFilt += "If I>UBound(FileListArr) Then I = 0" + newLine;
str_NorFilt += "Loop" + newLine;
str_NorFilt += "Dim J" + newLine;
str_NorFilt += "If I>UBound(FileListArr) Then I = 0" + newLine;
str_NorFilt += "Randomize" + newLine;
str_NorFilt += "J = Int(Rnd * (UBound(FilterArr)+1))" + newLine;
str_NorFilt += "Img.style.filter = FilterArr(J)" + newLine;
str_NorFilt += "Img.filters(0).Apply" + newLine;
str_NorFilt += "Img.Src = FileListArr(I)" + newLine;
str_NorFilt += "Img.filters(0).play" + newLine;
str_NorFilt += "Link.Href = LinkArr(I)" + newLine;
if (str_ShowTitle == "true")
{
str_NorFilt += "Txt.filters(0).Apply" + newLine;
str_NorFilt += "Txt.innerHTML = TxtListArr(I)" + newLine;
str_NorFilt += "Txt.filters(0).play" + newLine;
}
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
if (str_HashNaviContent == "true")
{
str_NorFilt += "NaviTitle.filters(0).Apply" + newLine;
str_NorFilt += "NaviTitle.innerHTML = NaviTitleArr(I)" + newLine;
str_NorFilt += "NaviTitle.filters(0).play" + newLine;
str_NorFilt += "NaviCnt.filters(0).Apply"+newLine;
str_NorFilt += "NaviCnt.innerHTML = NaviCntArr(I)"+newLine;
str_NorFilt += "NaviCnt.filters(0).play" + newLine;
}
// --------------------------------------------------------------------------------
str_NorFilt += "I = I + 1" + newLine;
str_NorFilt += "If I>UBound(FileListArr) Then I = 0" + newLine;
str_NorFilt += "TempImg.Src = FileListArr(I)" + newLine;
str_NorFilt += "TempLink.Href = LinkArr(I)" + newLine;
str_NorFilt += "SetTimeout /"ChangeImg/", PlayImg_M,/"VBScript/"" + newLine;
str_NorFilt += "End Sub" + newLine;
str_NorFilt += "</SCRIPT>" + newLine;
str_NorFilt += "<TABLE WIDTH=/"100%/" height=/"100%/" BORDER=/"0/" CELLSPACING=/"0/" CELLPADDING=/"0/">" + newLine;
str_NorFilt += "<TR ID=/"NoScript/">" + newLine;
str_NorFilt += "<TD Align=/"Center/" Style=/"Color:White/">对不起，图片浏览功能需脚本支持，但您的浏览器已经设置了禁止脚本运行。请您在浏览器设置中调整有关安全选项。</TD>" + newLine;
str_NorFilt += "</TR>" + newLine;
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
// 将原有图片部分包含在表格中
if (str_HashNaviContent == "true")
{
str_NorFilt += "<tr><td><table WIDTH=/"100%/" height=/"100%/" BORDER=/"0/" CELLSPACING=/"0/" CELLPADDING=/"0/">" + newLine;
str_NorFilt += "<tr><td width=/"200px/"><table>" + newLine;
}
// --------------------------------------------------------------------------------
str_NorFilt += "<TR Style=/"Display:none/" ID=/"CanRunScript/"><TD HEIGHT=/"100%/" Align=/"Center/" vAlign=/"Center/"><a id=/"Link/" " + str_Target + "><Img ID=/"Img/" " + str_FlashWidth + " " + str_FlashHeight + " Border=/"0/" ></a>" + newLine;
str_NorFilt += "</TD></TR><TR Style=/"Display:none/"><TD><a id=TempLink ><Img ID=/"TempImg/" Border=/"0/"></a></TD></TR>" + newLine;
if (str_ShowTitle == "true")
{
str_NorFilt += "<TR><TD HEIGHT=/"100%/" Align=/"Center/" vAlign=/"Top/">" + newLine;
str_NorFilt += "<div ID=/"Txt/" style=/"PADDING-LEFT: 5px; Z-INDEX: 1; FILTER: progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0); POSITION:/" >" + str_FirstTxt + "</div>" + newLine;
str_NorFilt += "</TD></TR>" + newLine;
}
// 以下由Whitewin于2009-4-21添加
// 给NorFilt幻灯新闻增加右部的导读。
// 添加导读部分
if (str_HashNaviContent == "true")
{
str_NorFilt += "</table></td><td valign=/"top/"><table WIDTH=/""+str_NaviContentWidth+"/" height=/"100%/" BORDER=/"0/" CELLSPACING=/"0/" CELLPADDING=/"0/" >" + newLine;
str_NorFilt += "<tr><td><div id=/"NaviTitle/" style=/"PADDING-LEFT: 5px; Z-INDEX: 1; text-align:center; FILTER: progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0); POSITION:/">" + str_FirstNaviTitle + "</div></td></tr>" + newLine;
str_NorFilt += "<tr><td> </td></tr>";
str_NorFilt += "<tr><td><div id=/"NaviCnt/" style=/"PADDING-LEFT: 5px; Z-INDEX: 1; FILTER: progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0); POSITION:/"" + str_NaviCntCSS + ">" + str_FirstNaviCnt + "</div></td></tr></table></td></tr></table></td></tr>" + newLine;
}
// --------------------------------------------------------------------------------
str_NorFilt += "</TABLE>" + newLine;
str_NorFilt += "<Script Language=/"VBScript/">" + newLine;
str_NorFilt += "NoScript.Style.Display = /"none/"" + newLine;
str_NorFilt += "CanRunScript.Style.Display = /"/"" + newLine;
str_NorFilt += "Img.Src = FileListArr(0)" + newLine;
str_NorFilt += "Link.Href = LinkArr(0)" + newLine;
str_NorFilt += "SetTimeout /"ChangeImg/", PlayImg_M,/"VBScript/"" + newLine;
str_NorFilt += "</Script>" + newLine;
dt.Clear(); dt.Dispose();
}
else
{
str_NorFilt = "没有幻灯片";
}
return str_NorFilt;
}
对NetCMS.Publish项目和NetCMS.Web重新生成后，将NetCMS.Web/Bin文件夹下的NetCMS.Publish.Dll文件复制到Web服务器对应的Bin文件夹下，替换掉原来的NetCMS.Publish.Dll文件即可。
NetCMS修改之四：扩展轮换幻灯片属性(NorFilt)，具有导读显示相关推荐
- swift. 扩展类添加属性_Swift快速为类扩展属性
在程序编写过程中,我们常常需要为已有的类扩展新的属性.通常我们的解决办法是先声明一个Key,然后使用objc_getAssociatedObject 和 objc_setAssociatedObjec ...
- Linux下shel脚本之批量修改文件扩展名
Linux下shel脚本之批量修改文件扩展名 一.脚本要求 二.脚本内容 三.运行脚本 一.脚本要求 二.脚本内容 三.运行脚本 一.脚本要求 1.在/data/tmp/下的所有文件扩展名改为.py ...
- Qt修改QSS中的qlineargradient属性，实现颜色渐变
程序如下: 运行截图如下: 动态运行图如下: 原理很简单,修改QSS中的qlineargradient属性即可: 源码如下: widget.h #ifndef WIDGET_H #define WID ...
- python3 批量修改文件扩展名——递归
python3 批量修改文件扩展名--递归 ''' Created on 2017年9月28日@author: kearney '''import osdef isFile(filePath):#修改 ...
- 批量重命名文件和批量修改文件扩展名
批量提取文件名称和批量修改文件扩展名 在想提取文件的目录下,新建一个txt文件: 在txt文件中输入以下代码: 将txt后缀名改为bat; 双击这个文件,即可. 代码1:所有文件格式 @echo of ...
- attrib批量显示文件夹_DOS下批量修改文件及文件夹属性（attrib命令详解）
attrib指令用于修改文件的属性,文件的常见属性有:只读.存档.隐藏和系统 只读属性是指文件只可以做读的操作,不能对文件进行写的操作,就是文件的写保护. 存档属性是用来标记文件改动的,即在上一次备份 ...
- cluster oracle修改,Oracle 修改集群的资源属性（依赖关系）
修改集群的资源属性: -- 在11g中 使用Crsctl modify resource res_name -attr 命令可以随意添加修改集群的各项资源的属性 来个例子: 查看数据库资源的全部属性: ...
- 如何批量修改AD用户的Email属性
一朋友咨询我如何批量修改AD用户的Email属性, 写了个批处理来实现. 大致分为两步: 1. 导出要设置Email属性的用户 2. 设置Email属性 先把脚本内容贴一下: 1 2 3 4 5 ...
- python解析xml读取指定属性_python批量修改xml某些内容和属性
在训练时,有时候需要将jpg格式转换为png格式,顺便也要把jpg标注的xml文件转换为png的xml文件.例如,需要把xml文件中的图像后缀名".jpg"批量去掉,这时候就需要批 ...
最新文章
- 迁移数据文件到ASM【转】
- 糟糕程序员的20个坏习惯
- [学习笔记]后缀自动机
- FJUT3703 这还是一道数论题（二分 + hash + manacher 或者 STL + hash 或者 后缀数组 + hash）题解...
- python将Unix时间戳转换成时间
- Logback配置文件这么写，TPS提高10倍！
- ORM 革命 —— 复兴 | ORM Revolution -- Revived
- 【语音去噪】基于matlab GUI傅立叶变换语音降噪混频【含Matlab源码 297期】
- Python解析mat文件
- 手写原笔迹电子签名的原理及实现方法
- VScode中快速生成vue模板
- 1.python程序图标制作
- Java实现图片压缩功能
- php画五角星,H5怎样用绘制五角星
- 产品研发记录05：产品研发人员应当具备的特质
- 苹果笔记本开不了机的解决措施有哪些
- 【DG】 DataGuard 中处理archive gap的方法
- 敏捷团队的质量保障赋能
- 如何利用嵌入式集成开发工具，让其更好地服务于设计?
- 电信保温杯笔记——《统计学习方法（第二版）——李航》第17章 潜在语义分析