<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>

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;

          '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

'Kimli 添加下载图片调用{%=DownPic_Kimli(类别，类型，几条，几列，分隔图片，行高，宽，高，标题字数，标题样式，是否新窗口，是否显示标题)%}
Function Downpic_Kimli(ClassListStr,SelectTypeStr,NewNumberStr,RowNumberStr,CompatPicStr,RowHeightStr,PicWidth,PicHeight,TitleNumberStr,CSSStyle,OpenTypeStr,Showtitlestr)
Dim PicDownListObj,PicDownListSql,i,AllClassID,PicSQL,Opentype
If CSSStyle<>"" then CSSStyle=" Class="&CSSStyle
TitleNumberStr = GetTitleNumberStr(TitleNumberStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
CompatPicStr =GetCompatPicStr(CompatPicStr,"","",RowNumberStr)
If PicWidth="" then PicWidth=60
If PicHeight="" then PicHeight=60
If NewNumberStr="" then NewNumberStr=1
If RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
    If ClassListStr="" or ClassListStr="ThisClass" then
    If RefreshType="Class" then
AllClassID = "''" & RefreshID & "''" & ChildClassIDList(RefreshID)
AllClassID = Replace(AllClassID,"''","'")
    AllClassID = " and ClassID in ( "& AllClassID &" )"
    Else
AllClassID = ""
End If
   Else
Dim TempRsHotDownListObj
Set TempRsHotDownListObj = Conn.Execute("FS_ReFunSoonClass '" & ClassListStr & "'")
if Not TempRsHotDownListObj.Eof then
AllClassID = "''" & TempRsHotDownListObj("ClassID") & "''" & ChildClassIDList(TempRsHotDownListObj("ClassID"))
AllClassID = Replace(AllClassID,"''","'")
    AllClassID = " and ClassID in ( "& AllClassID &" )"
else
  LastDownList = ""
  Set TempRsHotDownListObj = Nothing
  Exit Function
end if
Set TempRsHotDownListObj = Nothing
   End if
  
   Select Case SelectTypeStr
   Case "1" '最新
   SelectTypeStr = " order by Addtime Desc"
   Case "2" '推荐
   SelectTypeStr = " and RecTF=1 order by Addtime Desc"
   Case "3" '热门
   SelectTypeStr = " order by Clicknum Desc"
   End Select
   Dim RsPic
   PicSQL = "Select top "& NewNumberStr &" name,Pic,DownLoadID From FS_DownLoad Where AuditTF=1 " &AllClassID & SelectTypeStr
   Set RsPic=Server.CreateObject("Adodb.RecordSet")
   RsPic.Open PicSQL,conn,1,1
   If not RsPic.eof then
  Downpic_Kimli = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & Chr(13) & Chr(10)
  do while Not RsPic.Eof
   Downpic_Kimli = Downpic_Kimli & "<tr>" & Chr(13) & Chr(10)
   for i = 1 to RowNumberStr
    Downpic_Kimli = Downpic_Kimli & "<td " & RowHeightStr & " align=center><a href="&GetOneDownLoadLinkURL(RsPic("DownLoadID")) & OpenTypeStr &"><Img Border=0 Src='" &RsPic("Pic")& "' height="&PicHeight&" Width="&PicWidth&"></a>"
                If Showtitlestr="1" then
    Downpic_Kimli = Downpic_Kimli & "<br><a href="&GetOneDownLoadLinkURL(RsPic("DownLoadID")) & OpenTypeStr & CSSStyle &">"& RsPic("name") &"</a></td>" & Chr(13) & Chr(10)
                Else
    Downpic_Kimli = Downpic_Kimli & "</td>" & Chr(13) & Chr(10)
    End if
    RsPic.MoveNext
    If RsPic.Eof then
     Exit For
    End if
   Next
   Downpic_Kimli = Downpic_Kimli & "</tr>" & Chr(13) & Chr(10) & CompatPicStr & Chr(13) & Chr(10)
   Downpic_Kimli = Downpic_Kimli
  Loop
  Downpic_Kimli = Downpic_Kimli & "</table>" & Chr(13) & Chr(10)
   End if
   Rspic.close
   set rspic=nothing
End Function