3.1-下載中的“圖片”三合一功能_風訊Cms教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
新聞里有幻燈,有焦點等等,為啥下載中就只有一個在列表前顯示60*60大小的圖片項目呢?
建議風訊加強下載模塊的功能,否則就與雞肋無異了。
由于自己用到了下載功能,要求雖然不高,但是現(xiàn)有的系統(tǒng)當然滿足不了,比起重新弄一套下載系統(tǒng)再整合到FOOSUN來,按需求加些功能顯得更簡單些,廢話少說,下面動手! 功能:調(diào)用圖片與[名稱],最新、推薦、最熱三選一
1、可自由設定圖片大小
2、選擇是否顯示標題
3、默認為公用標簽,亦可指定
4、最新、推薦、最熱 三合一 可選
其它自己看吧

需要的不要嫌煩,照做(以后版本中如還未增強,我會繼續(xù)更新我的所改內(nèi)容)
修改(所有提到的位置,用查找功能在文件里找):
一、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添加下載圖片調(diào)用
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 添加下載圖片調(diào)用{%=DownPic_Kimli(類別,類型,幾條,幾列,分隔圖片,行高,寬,高,標題字數(shù),標題樣式,是否新窗口,是否顯示標題)%}
Function Downpic_Kimli(ClassListStr,SelectTypeStr,NewNumberStr,RowNumberStr,CompatPicStr,RowHeightStr,PicWidth,PicHeight,TitleNumberStr,CSSStyle,OpenTypeStr,Showtitlestr)
由于自己用到了下載功能,要求雖然不高,但是現(xiàn)有的系統(tǒng)當然滿足不了,比起重新弄一套下載系統(tǒng)再整合到FOOSUN來,按需求加些功能顯得更簡單些,廢話少說,下面動手! 功能:調(diào)用圖片與[名稱],最新、推薦、最熱三選一
1、可自由設定圖片大小
2、選擇是否顯示標題
3、默認為公用標簽,亦可指定
4、最新、推薦、最熱 三合一 可選
其它自己看吧

需要的不要嫌煩,照做(以后版本中如還未增強,我會繼續(xù)更新我的所改內(nèi)容)
修改(所有提到的位置,用查找功能在文件里找):
一、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添加下載圖片調(diào)用
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 添加下載圖片調(diào)用{%=DownPic_Kimli(類別,類型,幾條,幾列,分隔圖片,行高,寬,高,標題字數(shù),標題樣式,是否新窗口,是否顯示標題)%}
Function Downpic_Kimli(ClassListStr,SelectTypeStr,NewNumberStr,RowNumberStr,CompatPicStr,RowHeightStr,PicWidth,PicHeight,TitleNumberStr,CSSStyle,OpenTypeStr,Showtitlestr)
相關風訊Cms教程:
- 相關鏈接:
- 教程說明:
風訊Cms教程-3.1-下載中的“圖片”三合一功能
。