修改(所有提到的位置，用查找功能在文件里找)： 一、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存儲過程版，不是存儲過程版的請將：
'Kimli 添加下載圖片調用{%=DownPic_Kimli(類別，類型，幾條，幾列，分隔圖片，行高，寬，高，標題字數，標題樣式，是否新窗口，是否顯示標題)%} Function Downpic_Kimli(ClassListStr,SelectTypeStr,NewNumberStr,RowNumberStr,CompatPicStr,RowHeightStr,PicWidth,PicHeight,TitleNumberStr,CSSStyle,OpenTypeStr,Showtitlestr)
