同是图片和标题新闻的时候，用图片新闻标签调用，链接不对-风讯CMS教程

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