|
本文讨论区：http://www.foosun.net/dispbbs.asp?boardID=22&ID=17370&page=1
首先非常感谢檸檬茶提出的给图片新闻加边框的想法和方法。
我在实际使用的过程中发现有些图片新闻并适合加边框，所以就动了一下小手术，在标签函数里做了个开关，并把边框的颜色也做到标签里了，本来还想把边框的宽度做进去，后来一想没有必要，所以就加了两个参数---开关、颜色
后台效果：
图片加边框的效果：
无边框图片:
修改方法：
我忘记了原版有没有图片新闻调用子类的选项，我的是存储版的，后来我自己又加了一个存储过程，才可以完成调用子类的功能，非存储版的我没有仔细研究过，可以参考我以前发过的幻灯片调用子类的方法来实现，在此就不赘述了！
下面来说一下修改柠檬茶的给图片新闻加边框吧！
1、修改foosun/admin/refresh/refreshfunction.asp的picnews函数
查找Function PicNews(ClassListStr,NewsNumberStr,ShowTitleStr,OpenModeStr,TitleNumberStr,RowNumStr,PicWidthStr,PicHeightStr,CssFileStr,RowSpaceStr)
替换成(也就是增加红色的部分）
Function PicNews(ClassListStr,NewsNumberStr,ShowTitleStr,OpenModeStr,TitleNumberStr,RowNumStr,PicWidthStr,PicHeightStr,CssFileStr,RowSpaceStr,PicBorderStr,PicBorderColor)'增加是否加图片边框和边框颜色,变量PicBorderStr,PicBorderColor
然后查找
dim TempDoMain
If Left(RsPicObj("PicPath"),4)="http" then TempDoMain="" else TempDoMain=AvailableDoMain
把下面的：
PicNews = PicNews & "<td>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & GetCSSStyleStr(CssFileStr) & " href=""" & GetOneNewsLinkURL(RsPicObj("NewsID")) & """ title="""& RsPicObj("Title")&""">" & "<img border=""0"" src=""" & TempDoMain & RsPicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """>" & "</a></td>" & Chr(13) & Chr(10)
替换成：
'是否图片加边框开关Start
if PicBorderStr = "1" then
PicNews = PicNews & "<td align=center>" & Chr(13) & Chr(10) & "<table border=""0"" cellpadding=""3"" cellspacing=""1"" bgcolor="&PicBorderColor&"><tr><td bgcolor=""#FFFFFF"" align=center><a " & OpenModeStr & GetCSSStyleStr(CssFileStr) & " href=""" & GetOneNewsLinkURL(RsPicObj("NewsID")) & """ title="""& RsPicObj("Title")&""">" & "<img border=""0"" src=""" & TempDoMain & RsPicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """>" & "</a></td></tr></table></td>" & Chr(13) & Chr(10)
else
PicNews = PicNews & "<td align=center>" & Chr(13) & Chr(10) & "<a " & OpenModeStr & GetCSSStyleStr(CssFileStr) & " href=""" & GetOneNewsLinkURL(RsPicObj("NewsID")) & """ title="""& RsPicObj("Title")&""">" & "<img border=""0"" src=""" & TempDoMain & RsPicObj("PicPath") & """ width=""" & PicWidthStr & """ height=""" & PicHeightStr & """>" & "</a></td>" & Chr(13) & Chr(10)
end if
'是否图片加边框开关End
2、修改foosun/admin/refresh/selectfunction.asp
修改或增加红色的部分
Case "picnews"
if UBound(ParaArray) = 12 then'原来是10，增加两个参数
GetLableContent = PicNews(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
3、修改foosun/funpages/lablepicnews.asp
在：
<tr>
<td height="30" colspan="2"><div align="center">
<input type="button" onClick="InsertScript();" name="Submit" value=" 确 定 ">
<input type="button" onClick="window.close();" name="Submit2" value=" 取 消 ">
</div></td>
</tr>
上面增加：
<!--是否图片加边框开关Start-->
<tr>
<td height="30"> <div align="left">图片边框
<select name="PicBorderStr" id="select" style="width:70%;">
<option value="1" selected>加</option>
<option value="0">不加</option>
</select>
</div></td>
<td height="30"><div align="left">边框颜色
<input type="text" style="width:70%;" name="PicBorderColor" id="PicBorderColor" value="#999999" title="十六进制颜色,前面加#">
</div></td>
</tr>
<!---是否图片加边框开关End ---->
然后在：
if (document.all.RowSpace.value=='') RowSpaceStr='20';
else RowSpaceStr=document.all.RowSpace.value;
下面增加：
//是否加边框和边框颜色
var PicBorderStr='';
if (document.all.PicBorderStr.value=='') PicBorderStr='0';//是否显示边框
else PicBorderStr=document.all.PicBorderStr.value;
var PicBorderColor=document.all.PicBorderColor.value;//边框颜色
然后在下面的代码中增加红色的部分：
window.returnValue='{%=PicNews("'+ClassListStr+'","'+NewsNumberStr+'","'+ShowTitleStr+'","'+OpenModeStr+'","'+TitleNumberStr+'","'+RowNumStr+'","'+PicWidthStr+'","'+PicHeightStr+'","'+CssFileStr+'","'+RowSpaceStr+'","'+PicBorderStr+'","'+PicBorderColor+'")%}';
剩下就是在foosun/editer/lableediter.asp中把picnews的弹出窗口设置的高一些，否则会有滚动条出现的
| 
