风讯官方论坛

首页 » 论坛管理区 » 论坛事务区 » ［风讯v3.1魅力展现互动奖励计划］已结束贴子备查 » 『 难题问答区 』 » 3.1发现老问题

xzggg - 2005-11-14 12:06:00

以前各版本都存在的图片导航问题,当你选择按两列显示新闻时,第二列导航图片就出现不显示等问题

ps777 - 2005-11-14 12:16:00

我也遇此问题,不过解决啦!!

在管理目录\Refresh\RefreshFunction.asp 找到 '得到一个栏目的新闻列表,把里面的全替换成下面的

'得到一个栏目的新闻列表
Function GetOneClassNewsList(AlreadyClassObj,NewsListNumberStr,TitleNumberStr,CompatPicStr,NaviPicStr,DateRuleStr,DateRightStr,RowHeightStr,RowNumberStr,MoreLinkTypeStr,MoreLinkContentStr_R,CSSStyleStr,OpenTypeStr,DateCSSStyleStr,TxtNaviStr)
Dim RsNewsObj,NewsSql,i,ClassSaveFilePath
Dim TempDateShowStr,MoreLinkContentStr
'新加变量
Dim TempRowNumberStr
if Not AlreadyClassObj.Eof then
  if DateRuleStr <> "" then
  if DateRightStr = "Left" then
    TempRowNumberStr = "colspan=""" & RowNumberStr & """"
  elseif DateRightStr = "Center" then
    TempRowNumberStr = "colspan=""" & RowNumberStr * 2 & """"
  elseif DateRightStr = "Right" then
    TempRowNumberStr = "colspan=""" & RowNumberStr * 2 & """"
  else
    TempRowNumberStr = "colspan=""" & RowNumberStr & """"
  end if
  else
  TempRowNumberStr = "colspan=""" & RowNumberStr & """"
  end if
  if AlreadyClassObj("SaveFilePath") = "/" then
  ClassSaveFilePath = AlreadyClassObj("SaveFilePath")
  else
  ClassSaveFilePath = AlreadyClassObj("SaveFilePath") & "/"
  end if
  OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
  NewsSql = "Select top " & NewsListNumberStr & " NewsID,Title,Path,AddDate,HeadNewsTF,HeadNewsPath,FileName,FileExtName,TitleStyle from FS_News where ClassID='" & AlreadyClassObj("ClassID") & "' and AuditTF=1 and DelTF=0 order by ID desc"
GetOneClassNewsList = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" width=""100%"">" & Chr(13) & Chr(10)
  if TxtNaviStr <> "" then
    NaviPicStr = TxtNaviStr
  if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
  CompatPicStr = GetCompatPicStr(CompatPicStr,DateRightStr,DateRuleStr,RowNumberStr)
    NaviPicStr = TxtNaviStr
  end if
  if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
  if DateRuleStr <> "" then
'子栏目标题
  GetOneClassNewsList = GetOneClassNewsList & "<tr bgcolor=#ecf8e7 Height=24><td class=""color_class_bg"" colspan=""2"" align=""center"" background=""/images/blue/tr_bg.gif""><strong><a " & OpenTypeStr & " Class=""color_title"" href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & AlreadyClassObj("ClassCName") & "</a></strong></td></tr>" & Chr(13) & Chr(10)

  else
  GetOneClassNewsList = GetOneClassNewsList & "<tr><td class=""color_class_bg"" align=""center""><a " & OpenTypeStr & " Class=""color_title"" href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & AlreadyClassObj("ClassCName") & "</a></td><td width=30></td></tr>" & Chr(13) & Chr(10)
  end if
  Set RsNewsObj = Conn.Execute(NewsSql)
  if Not RsNewsObj.Eof then
  do while Not RsNewsObj.Eof
    GetOneClassNewsList = GetOneClassNewsList & "<tr>" & Chr(13) & Chr(10)
    for i = 1 to RowNumberStr
    if DateRuleStr <> "" then
      if DateRightStr = "Left" then'下面为大栏目下子栏目新闻日期样式
      TempDateShowStr = "  <font color=#ff000><span class=""" & DateCSSStyleStr & """>" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span></font>"
      elseif DateRightStr = "Center" then
      TempDateShowStr = "<td align=""center"">  <font color=#ff000><span class=""" & DateCSSStyleStr & """>" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span></font>" & "</td>"& Chr(13) & Chr(10)
      elseif DateRightStr = "Right" then
      TempDateShowStr = "<td align=""Right"">  <font color=#ff000><span class=""" & DateCSSStyleStr & """>" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</td>" & "</span></font>" & Chr(13) & Chr(10)
      else
      TempDateShowStr = "  <font color=#ff000><span class=""" & DateCSSStyleStr & """>" & DateFormat(RsNewsObj("AddDate"),DateRuleStr) & "</span></font>"
      end if
    else
      TempDateShowStr = ""
    end if
    if RsNewsObj("HeadNewsTF") = 1 then
      if DateRightStr = "Center" OR DateRightStr = "Right" then
      GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & "><img src=" & NaviPicStr & "><a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & RsNewsObj("HeadNewsPath") & """  title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a></td>" & TempDateShowStr & Chr(13) & Chr(10)

      else
      GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & "><img src=" & NaviPicStr & "><a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & RsNewsObj("HeadNewsPath") & """  title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>" & TempDateShowStr & "</td>" & Chr(13) & Chr(10)

      end if
    else
    if DateRightStr = "Center" OR DateRightStr = "Right" then
      GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & "><img src=" & NaviPicStr & "><a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/" & RsNewsObj("FileName") & "." & RsNewsObj("FileExtName") & """  title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a></td>" & TempDateShowStr & Chr(13) & Chr(10)
      else
      GetOneClassNewsList = GetOneClassNewsList & "<td " & RowHeightStr & "><img src=" & NaviPicStr & "><a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/" & RsNewsObj("FileName") & "." & RsNewsObj("FileExtName") & """  title="""& RsNewsObj("Title")&""">" & GetHTMLTitle(RsNewsObj("TitleStyle"),GotTopic(RsNewsObj("Title"),TitleNumberStr)) & "</a>" & TempDateShowStr & "</td>" & Chr(13) & Chr(10)

      end if
    end if
    RsNewsObj.MoveNext
    if RsNewsObj.Eof then
      Exit For
    end if
    Next
    GetOneClassNewsList =GetOneClassNewsList & "</tr>" & Chr(13) & Chr(10) & "<tr>" & Chr(13) & Chr(10) & "<td Height=1 " & TempRowNumberStr & ">" & Chr(13) & Chr(10) & "<table width=""100%"" cellpadding=""0"" cellspacing=""0"">" & Chr(13) & Chr(10) & "<tr>" & Chr(13) & Chr(10) & "<td Height=1 background=""" & CompatPicStr & """>" & Chr(13) & Chr(10) & "</td>" & Chr(13) & Chr(10) & "</tr>" & Chr(13) & Chr(10) & "</table>" & Chr(13) & Chr(10) & "</td>" & Chr(13) & Chr(10) & "</tr>" & Chr(13) & Chr(10)
Loop%>
<%
  if MoreLinkContentStr <> "" then
    if DateRuleStr <> "" then
      if MoreLinkTypeStr = "1" then
      GetOneClassNewsList = GetOneClassNewsList & "<tr><td " & TempRowNumberStr & " align=""right"">" & "<a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ ><img border=0 src=""" & MoreLinkContentStr & """></a>" & "</td></tr>" & Chr(13) & Chr(10)
     
      elseif MoreLinkTypeStr = "0" then
      GetOneClassNewsList = GetOneClassNewsList & "<tr><td " & TempRowNumberStr & " align=""right"">" & "<a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & MoreLinkContentStr & "</a>" & "</td></tr>" & Chr(13) & Chr(10)
      else
      GetOneClassNewsList = GetOneClassNewsList & "<tr><td " & TempRowNumberStr & " align=""right""></td></tr>" & Chr(13) & Chr(10)     

      end if

    else
      if MoreLinkTypeStr = "1" then
      GetOneClassNewsList = GetOneClassNewsList & "<tr><td align=""right"" """"""""" & TempRowNumberStr & ">" & "<a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ ><img border=0 src=""" & MoreLinkContentStr & """></a>" & "</td></tr>" & Chr(13) & Chr(10)
      elseif MoreLinkTypeStr = "0" then
      GetOneClassNewsList = GetOneClassNewsList & "<tr><td align=""right"" """"""""" & TempRowNumberStr & ">" & "<a " & OpenTypeStr & " Class=""" & CSSStyleStr & """ href=""" & AvailableDoMain & ClassSaveFilePath & AlreadyClassObj("ClassEName") & "/index." & AlreadyClassObj("FileExtName") & """ >" & MoreLinkContentStr & "</a>" & "</td></tr>" & Chr(13) & Chr(10)
      else
      GetOneClassNewsList = GetOneClassNewsList & "<tr>ā<td align=""right"" """"""""" & TempRowNumberStr & "></td></tr>" & Chr(13) & Chr(10)

      end if
    end if
  end if
  GetOneClassNewsList = GetOneClassNewsList & "</table>" & Chr(13) & Chr(10)
  else
  GetOneClassNewsList = ""
  end if
  Set RsNewsObj = Nothing
else
  GetOneClassNewsList = ""
end if
End Function

活动评审组：加3分魅力值，请查收。

(原始值：魅力10分)

xzggg - 2005-11-14 17:20:00

楼上的兄弟,谢谢,问题已经解决,你也是改3.0SP2的解决方案

想给你个精的,但精不了

[em03]

[此贴子已经被作者于2005-11-14 17:22:25编辑过]

1

查看完整版本: 3.1发现老问题

Powered by Discuz!NT Archiver 2.0.1115 2001-2008 Comsenz Inc.