风讯官方论坛

首页 » FoosunCMS交流区 » Foosun3.x安装使用 » 超版求救呀！！！等待
qyhhappy - 2008-6-24 12:25:00
[修改]增加可连续滚动图片标签[带演示]
本修改3.2.sp1免费测试通过。其他的版本没测试，大家注意，愿意修改的，请注意做好备份
一、打开\Foosun\Editer\LableEditer.asp 修改两个地方
（1）
<td width="1"> <div align="center" class="ToolSeparator"></div></td>
          <td width="30"><div align="center"><img  class="Btn" alt="RSS标签" src="../Images/Lable/rss.gif"  width="24"  height="24"></div></td>
          <td width="1"> <div align="center" class="ToolSeparator"></div></td>
          <td width="30"><div align="center"><img  class="Btn" alt="滚动图片" src="../Images/Lable/Mpueepic.gif"  width="24"  height="24"></div></td>
  </tr>
      </table></td>
  </tr>
  <tr>
    <td><table height="30" border="0" cellpadding="0" cellspacing="0" class="ToolSet">
（2）
case 'Mall_TopProducts':
  var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=Mall/Mall_TopProducts.asp&PageTitle=商品排行调用',460,260,window);
  break;
    case 'MarqueePic':
  var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=LableMqueePic.asp&PageTitle=滚动图片标签属性',336,195,window);
  break;
  case 'Mall_Products':
  var ReturnValue=OpenWindow('../FunPages/Frame.asp?FileName=Mall/Mall_Products.asp&PageTitle=商品页面',260,105,window);
  break;
  case 'Mall_PayStyle':
  var ReturnValue='{%=Mall_PayStyle()%}';
  break;
  case 'RSS':
  ReturnValue='{%=RSS()%}';
  break;

二、下载压缩包中的两个文件：Mpueepic.gif和LableMqueePic.asp
Mpueepic.gif  放到\Foosun\Images\Lable目录

LableMqueePic.asp放到\Foosun\FunPages目录
[upload=gif]UploadFile/2006-6/200661520115658435.gif[/upload]
[upload=rar]viewFile.asp?ID=4452[/upload]

三、打开\Foosun\Admin\Refresh\cls_refresh.asp文件，修改两个地方：（红色部分）
（1）
Array("UnRuleNews","NewsNumber","ClassEName","IsIncludeChildTF","OpenType"),_
Array("marqueepic","ClassEName","SoonClassStr","PicNumberStr","LoopSpeedStr","MarqueeWidthStr","MarqueeHeightStr","PicWidthStr","PicHeightStr","PicCssStr","PicFgStr","OpenTypeStr","MarqueeTypeStr"),_
  Array("RSS"),_
  Array("mall_paystyle"))
  f_Lable_Cont = Replace(f_Lable_Cont,Chr(13) & Chr(10),"")
  f_Lable_Cont = Replace(f_Lable_Cont,"{%=","")
  f_Lable_Cont = Replace(f_Lable_Cont,"%}","")

（2）
  Case "mall_help" : if UBound(m_Prar_Cont_Array) = 9 then : Select_Function = Mall_Help(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9)) : else : Select_Function = "" : Exit Function : end if
'====================2006-06-14====================================================================
  Case "marqueepic" : If UBound(m_Prar_Cont_Array) = 12 then : Select_Function = marqueepic(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : Else : Select_Function = "" : Exit Function : End If
'=========================================end================================================================
  Case "mall_paystyle" : Select_Function = Mall_PayStyle
  Case "unrulenews"
    if UBound(m_Prar_Cont_Array) = 3 then ReDim Preserve m_Prar_Cont_Array(4) : m_Prar_Cont_Array(4) = "0"
    if UBound(m_Prar_Cont_Array) = 4 then : Select_Function = Get_No_Rule_NewsList_Content(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4)) : else : Select_Function = "" : Exit Function : end if
  Case "rss" : Select_Function = RSS : Exit Function
  Case Else : Select_Function = "" : Exit Function
  End Select
End Function

四、打开\Foosun\Admin\Refresh\RefreshFunction.asp增加一个函数
函数代码在2楼提供，上面的压缩包里也有。

后台效果：
[upload=gif]UploadFile/2006-6/200661520175079499.gif[/upload]



附件:文件名:4321.gif
下载次数:22
文件类型:image/gif
文件大小: 134 Bytes
上传时间:2006-6-15 20:12:00
描述:[修改]增加可连续滚动图片标签[带演示]






附件:文件名:4322.rar
下载次数:334
文件类型:application/octet-stream
文件大小: 3.32 K
上传时间:2006-6-15 20:12:00
描述:[修改]增加可连续滚动图片标签[带演示]




附件:文件名:4323.gif
下载次数:11
文件类型:image/gif
文件大小: 12.55 K
上传时间:2006-6-15 20:18:00
描述:[修改]增加可连续滚动图片标签[带演示]










发送短消息

查看公共资料
查找该会员全部帖子


状态: 离线



忘记注册了



  • 个人空间 相册
  • 组别:中级会员
  • 性别: 男
  • 生日:1900-1-1
  • 来自:
  • 积分:725
  • 帖子:704
  • 注册: 2005-12-20

2006-06-15 20:21 | 只看楼主
举报 | 树型| 收藏| 小 中 大 2



refreshfunction.asp中增加的函数
'============2006-06-14====滚动图片标签=======================
Function MarqueePic(ClassEName,SoonClassStr,PicNumberStr,LoopSpeedStr,MarqueeWidthStr,MarqueeHeightStr,PicWidthStr,PicHeightStr,PicCssStr,PicFgStr,OpenTypeStr,MarqueeTypeStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
If PicCssStr <> "" Then
    PicCssStr = "Class=""" & PicCssStr &""""
Else
    PicCssStr = ""
End If     
Dim i,TcFg
  If PicFgStr <> "" And PicFgStr > "0" Then
  For i = 1 to PicFgStr
    TcFg = TcFg & "<br>"
  Next
  Else
    TcFg = ""
  End If 
Dim TempID,TempObj,EndClassID
If ClassEName <> "" Then
  Set TempObj = Conn.Execute("Select ClassID From Fs_NewsClass Where ClassEName = '" & ClassEName & "'")
  If NOt TempObj.Eof Then
  TempID = TempObj("ClassID")
  If So Then
    EndClassID = "'" & TempID & "'" & ChildClassIDList(TempID)
  Else
    EndClassID = "'" & TempID & "'"
  End If
  Else
    EndClassID = ""
  End If
  TempObj.close
Set TempObj = Nothing
Else
  Select Case Fun_Refresh_Type
      Case "Class"
      If So Then
    EndClassID = "'" & Fun_Refresh_ID & "'" & ChildClassIDList(Fun_Refresh_ID)
    Else
    EndClassID = "'" & Fun_Refresh_ID & "'"
    End If
      Case "News"
        Dim TClassID,TClassObj
      Set TClassObj = Conn.Execute("Select ClassID From Fs_News Where NewsID = '" & Fun_Refresh_ID & "'")
      If Not TClassObj.Eof Then
      TClassID = TClassObj("ClassID")
        If So Then
          EndClassID = "'" & TClassID & "'" & ChildClassIDList(TClassID)
        Else
          EndClassID = "'" & TClassID & "'"
        End If
      Else
      EndClassID = ""
      End If
      TClassObj.Close
      Set TClassObj = Nothing
    Case Else
    EndClassID = ""
  End Select
End If
Dim MpicSql,MpicObj
IF EndClassID <> "" Then
  MpicSql = "Select Top " & PicNumberStr & " * From Fs_News Where PicNewsTF = 1 And MarqueeNews = 1 And DelTF = 0 And ClassID In (" & EndClassID & ") Order By AddDate Desc"
Else
  Select Case Fun_Refresh_Type
      Case "Special"
      MpicSql = "Select Top " & PicNumberStr & " * From Fs_News Where PicNewsTF = 1 And MarqueeNews = 1 And DelTF = 0 And SpecialID
            Like '" & Fun_Refresh_ID & "' Order By AddDate Desc"
      Case Else
    MpicSql = "Select Top " & PicNumberStr & " * From Fs_News Where PicNewsTF = 1 And MarqueeNews = 1 And DelTF = 0 Order By AddDate Desc"
  End Select
End If
Set MpicObj = Conn.Execute(MpicSql)
If Not MpicObj.Eof Then
  If MarqueeTypeStr = "up" Then
    MarqueePic = "<div id=""demo"" style=""overflow:hidden; width:" & MarqueeWidthStr & "px; height:" & MarqueeHeightStr & "px;"">" & Chr(13) & Chr(10) & "<div id=""demo1"">"
  Do While Not MpicObj.Eof
    MarqueePic = MarqueePic & "<a" & OpenTypeStr & " href=""" & GetOneNewsLinkURL(MpicObj("NewsID")) & """ title="""& MpicObj("Title")&"""><img src=""" & MpicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """ " & PicCssStr & " border=""0""></a><br>" & TcFg & ""
  MpicObj.MoveNext
  Loop
    MarqueePic = MarqueePic & "</div><div id=demo2></div></div>" & Chr(13) & Chr(10) & "<script language=""javascript"">" & Chr(13) & Chr(10) & "var speed=" & LoopSpeedStr & "" & Chr(13) & Chr(10) & "demo2.innerHTML=demo1.innerHTML" & Chr(13) & Chr(10) & "function Marquee(){" & Chr(13) & Chr(10) & "if(demo2.offsetTop-demo.scrollTop<=0)" & Chr(13) & Chr(10) & "demo.scrollTop-=demo1.offsetHeight" & Chr(13) & Chr(10) & " else{" & Chr(13) & Chr(10) & "demo.scrollTop++" & Chr(13) & Chr(10) & "}" & Chr(13) & Chr(10) & "}" & Chr(13) & Chr(10) & "var MyMar=setInterval(Marquee,speed)" & Chr(13) & Chr(10) & "demo.onmouseover=function(){clearInterval(MyMar)}" & Chr(13) & Chr(10) & "demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}" & Chr(13) & Chr(10) & "</script>"
  ElseIf MarqueeTypeStr = "down" Then
    MarqueePic = "<div id=""demo"" style=""overflow:hidden; width:" & MarqueeWidthStr & "px; height:" & MarqueeHeightStr & "px;"">" & Chr(13) & Chr(10) & "<div id=""demo1"">"
  Do While Not MpicObj.Eof
    MarqueePic = MarqueePic & "<a" & OpenTypeStr & " href=""" & GetOneNewsLinkURL(MpicObj("NewsID")) & """ title="""& MpicObj("Title")&"""><img src=""" & MpicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """ " & PicCssStr & " border=""0""></a><br>" & TcFg & ""
  MpicObj.MoveNext
  Loop
    MarqueePic = MarqueePic & "</div><div id=demo2></div></div>" & Chr(13) & Chr(10) & "<script language=""javascript"">" & Chr(13) & Chr(10) & "var speed=" & LoopSpeedStr & "" & Chr(13) & Chr(10) & "demo2.innerHTML=demo1.innerHTML" & Chr(13) & Chr(10) & "demo.scrollTop=demo.scrollHeight" & Chr(13) & Chr(10) & "function Marquee(){" & Chr(13) & Chr(10) & "if(demo1.offsetTop-demo.scrollTop>=0)" & Chr(13) & Chr(10) & "demo.scrollTop+=demo2.offsetHeight" & Chr(13) & Chr(10) & "else{" & Chr(13) & Chr(10) & "demo.scrollTop-- " & Chr(13) & Chr(10) & "}" & Chr(13) & Chr(10) & "}" & Chr(13) & Chr(10) & "var MyMar=setInterval(Marquee,speed)" & Chr(13) & Chr(10) & "demo.onmouseover=function() {clearInterval(MyMar)}" & Chr(13) & Chr(10) & "demo.onmouseout=function()" & Chr(13) & Chr(10) & "{MyMar=setInterval(Marquee,speed)}" & Chr(13) & Chr(10) & "</script> "
  ElseIf MarqueeTypeStr = "left" Then
    MarqueePic = "<div id=""demo"" style=""overflow:hidden;width:" & MarqueeWidthStr & "px; height:" & MarqueeHeightStr & "px;""><table align=""left"" cellpadding=""0"" cellspace=""0"" border=""0""><tr><td id=""demo1"" valign=""top"">"
  Do While Not MpicObj.Eof
    MarqueePic = MarqueePic & "<a" & OpenTypeStr & " href=""" & GetOneNewsLinkURL(MpicObj("NewsID")) & """ title="""& MpicObj("Title")&"""><img src=""" & MpicObj("PicPath") & """ align=""left"" width=""" & PicWidthStr & """ height=""" & PicHeightStr & """ " & PicCssStr & " border=""0""></a>"
  MpicObj.MoveNext
  Loop
    MarqueePic = MarqueePic & "</td><td id=""demo2"" valign=""top""></td></tr></table></div>" & Chr(13) & Chr(10) & "<script language=""javascript"">" & Chr(13) & Chr(10) & "var speed=" & LoopSpeedStr & "" & Chr(13) & Chr(10) & "demo2.innerHTML=demo1.innerHTML" & Chr(13) & Chr(10) & "function Marquee(){" & Chr(13) & Chr(10) & "if(demo2.offsetWidth-demo.scrollLeft<=0)" & Chr(13) & Chr(10) & "demo.scrollLeft-=demo1.offsetWidth" & Chr(13) & Chr(10) & "else{" & Chr(13) & Chr(10) & "demo.scrollLeft++" & Chr(13) & Chr(10) & "}" & Chr(13) & Chr(10) & "}" & Chr(13) & Chr(10) & "var MyMar=setInterval(Marquee,speed)" & Chr(13) & Chr(10) & "demo.onmouseover=function() {clearInterval(MyMar)}" & Chr(13) & Chr(10) & "demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}" & Chr(13) & Chr(10) & "</script>"
  Else
    MarqueePic = "<div id=""demo"" style=""overflow:hidden;width:" & MarqueeWidthStr & "px; height:" & MarqueeHeightStr & "px;""><table align=""left"" cellpadding=""0"" cellspace=""0"" border=""0""><tr><td id=""demo1"" valign=""top"">"
  Do While Not MpicObj.Eof
    MarqueePic = MarqueePic & "<a" & OpenTypeStr & " href=""" & GetOneNewsLinkURL(MpicObj("NewsID")) & """ title="""& MpicObj("Title")&"""><img src=""" & MpicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """ " & PicCssStr & " border=""0""></a> "
  MpicObj.MoveNext
  Loop
    MarqueePic = MarqueePic & "</td><td id=""demo2"" valign=""top""></td></tr></table></div>" & Chr(13) & Chr(10) & "<script language=""javascript"">" & Chr(13) & Chr(10) & "var speed=" & LoopSpeedStr & "" & Chr(13) & Chr(10) & "demo2.innerHTML=demo1.innerHTML" & Chr(13) & Chr(10) & "function Marquee(){" & Chr(13) & Chr(10) & "if(demo.scrollLeft<=0)" & Chr(13) & Chr(10) & "demo.scrollLeft+=demo2.offsetWidth" & Chr(13) & Chr(10) & "else{" & Chr(13) & Chr(10) & "demo.scrollLeft--" & Chr(13) & Chr(10) & "}" & Chr(13) & Chr(10) & "}" & Chr(13) & Chr(10) & "var MyMar=setInterval(Marquee,speed)" & Chr(13) & Chr(10) & "demo.onmouseover=function() {clearInterval(MyMar)}" & Chr(13) & Chr(10) & "demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}" & Chr(13) & Chr(10) & "</script>"
  End If
Else
  MarqueePic = "当前滚动图片标签没有符合的新闻"
End IF
MpicObj.close
Set MpicObj = Nothing
End Function
'=============End=============================================

演示地址：
http://think.gotoedu.cn/up.html
http://think.gotoedu.cn/down.html
http://think.gotoedu.cn/left.html
http://think.gotoedu.cn/right.html
感谢论坛“MultiWin”提供演示地址！

不好意思一下，呵呵~才发现一个小错误，上面代码中兰色的那里，应该是 SpecialID Like 原来写的是 ClassID lide  [em31][em31] 包括压缩包里的代码也是一样的，希望修改的可以自己改一下下，除了把标签放到专题页会有错误之外，对其他的没有影响。
汗一下。。。。。。




qyhhappy - 2008-6-24 12:27:00
图片静止不动，，，，怎么回事
1
查看完整版本: 超版求救呀！！！等待
Powered by Discuz!NT Archiver 2.0.1115 2001-2008 Comsenz Inc.