修改(所有提到的位置，用查找功能在文件里找)： 一、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)
