同是图片和标题新闻的时候，用图片新闻标签调用，链接不对

将　Admin/Refresh/RefreshFunction.asp 文件的

１６３８　－１６５１　行的下列代码

if ShowTitleStr = "1" then
if RsPicObj("SaveFilePath") = "/" then
TitleHTMLStr = TitleHTMLStr & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & GotTopic(RsPicObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)
else
TitleHTMLStr = TitleHTMLStr & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & "/" & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & GotTopic(RsPicObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)
end if
else
TitleHTMLStr = ""
end if
if RsPicObj("SaveFilePath") = "/" then
PicNews = PicNews & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & "<img border=""0"" src=""" & AvailableDoMain & RsPicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """>" & "</a></td>" & Chr(13) & Chr(10)
else
PicNews = PicNews & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & "/" & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & "<img border=""0"" src=""" & AvailableDoMain & RsPicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """>" & "</a></td>" & Chr(13) & Chr(10)
end if

替换为

if ShowTitleStr = "1" then
if RsPicObj("SaveFilePath") = "/" then
if RsPicObj("HeadNewsTF")=1 then
TitleHTMLStr = TitleHTMLStr & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & RsPicObj("HeadNewsPath") & """ title="""& RsPicObj("Title")&""">" & GotTopic(RsPicObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)
else
TitleHTMLStr = TitleHTMLStr & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & " Class=""" & CssFileStr & """ href=""" & AvailableDoMain & RsPicObj("SaveFilePath") & RsPicObj("ClassEName") & "/" & RsPicObj("FileName") & "." & RsPicObj("NewsFileExtName") & """ title="""& RsPicObj("Title")&""">" & GotTopic(RsPicObj("Title"),TitleNumberStr) & "</a></td>" & Chr(13) & Chr(10)