3.1-下载中的“图片”三合一功能_风讯Cms教程

新闻里有幻灯，有焦点等等，为啥下载中就只有一个在列表前显示60*60大小的图片项目呢？

建议风讯加强下载模块的功能，否则就与鸡肋无异了。
由于自己用到了下载功能，要求虽然不高，但是现有的系统当然满足不了，比起重新弄一套下载系统再整合到FOOSUN来，按需求加些功能显得更简单些，废话少说，下面动手！

功能：调用图片与[名称]，最新、推荐、最热三选一
1、可自由设定图片大小
2、选择是否显示标题
3、默认为公用标签，亦可指定
4、最新、推荐、最热 三合一 可选
其它自己看吧

需要的不要嫌烦，照做（以后版本中如还未增强，我会继续更新我的所改内容）

修改(所有提到的位置，用查找功能在文件里找)：
一、Foosun/Editer/LableEditer.asp
a. 在<img onClick="InsertScript('HotDownList');"下面一行加

<td width="1"> <div align="center" class="ToolSeparator"></div></td>
<td width="30"><div align="center"><a href=# onClick="InsertScript('Downpic_Kimli');">下载图片</a></div></td>
b. 在

case 'HotDownList':
var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=LableHotDownList.asp&PageTitle=热点下载标签属性',336,200,window);
break;
下面加：

case 'Downpic_Kimli':
var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=LableDownpic_Kimli.asp&PageTitle=下载图片标签属性',336,200,window);
break;
二、Foosun/Admin/Refresh/SelectFunction.asp文件中
在 Case "hotdownlist" ... 下面加一个 Case :


'Kimli添加下载图片调用
Case "downpic_kimli"
If UBound(ParaArray) = 12 then
GetLableContent = Downpic_Kimli(ParaArray(1),ParaArray(2),ParaArray(3),ParaArray(4),ParaArray(5),ParaArray(6),ParaArray(7),ParaArray(8),ParaArray(9),ParaArray(10),ParaArray(11),ParaArray(12))
Else
GetLableContent = ""
Exit Function
End If
三、Foosun/Admin/Refresh/RefreshFunction.asp文件中
我使用的是3.1存储过程版，不是存储过程版的请将：

“Set TempRsHotDownListObj = Conn.Execute("FS_ReFunSoonClass '" & ClassListStr & "'")”
改为“Set TempRsHotDownListObj = Conn.Execute("Select * from fs_newsclass where classename='" & ClassListStr & "'")”


'Kimli 添加下载图片调用{%=DownPic_Kimli(类别，类型，几条，几列，分隔图片，行高，宽，高，标题字数，标题样式，是否新窗口，是否显示标题)%}
Function Downpic_Kimli(ClassListStr,SelectTypeStr,NewNumberStr,RowNumberStr,CompatPicStr,RowHeightStr,PicWidth,PicHeight,TitleNumberStr,CSSStyle,OpenTypeStr,Showtitlestr)

查看更多 风讯cms教程  风讯cms模板