|
|
主题: 如何在主页上的标题显示规定数量的文字
|
shyilong
职务：普通成员
等级：1
金币：0.0
发贴：57
注册：2002/10/30 13:23:40
|
#12002/11/5 22:07:32
如何在主页上的标题显示规定数量的文字，多余的部分用省略号代替。就象搜狐等大网站的新闻一样。
比如雅虎上的：“评：姚明、大郅、特鲁西埃……”
这个标题的省略号不会是手加上去的吧，有没有dm mx插件?
如果有望各位同仁转告，如果没有代码如何编写？？
企盼！！！ :confused:
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#22002/11/6 12:43:49
function DoTrimProperly(str,leftlen)
dim strRet
strRet = Server.HTMLEncode(str)
strRet = replace(strRet, vbcrlf,"")
strRet = replace(strRet, vbtab,"")
If (LEN(strRet) > leftlen) Then
strRet = LEFT(strRet, leftlen) + "..."
End If
DoTrimProperly = strRet
End Function
<% =DoTrimProperly(Rs("fFSTitle"),16) %>
|
shyilong
职务：普通成员
等级：1
金币：0.0
发贴：57
注册：2002/10/30 13:23:40
|
#32002/11/6 13:09:42
谢谢allinhands的指教，我好好研究研究。 回头见！！！ 
|
shyilong
职务：普通成员
等级：1
金币：0.0
发贴：57
注册：2002/10/30 13:23:40
|
#42002/11/6 13:09:44
谢谢allinhands的指教，我好好研究研究。 回头见！！！
|
shyilong
职务：普通成员
等级：1
金币：0.0
发贴：57
注册：2002/10/30 13:23:40
|
#52002/11/6 13:34:18
我已经试验成功了。你看我解释得对不对。
<%Function ＊＊＊＊
＊＊＊
＊＊＊
End Function%>
以上是函数的定义。
<% =DoTrimProperly(Rs("fFSTitle"),16) %>是函数的调用，其中的"'Rs"是绑定的记录集，“fFSTitle”是引入字段的语句，“16”是显示的字数。
是这样吧。
我在此再次向您表示感谢。
有什么忙要帮只管提，只要能力所及一定效力。
|
shyilong
职务：普通成员
等级：1
金币：0.0
发贴：57
注册：2002/10/30 13:23:40
|
#62002/11/6 13:36:02
忘了告诉你我的邮箱
shyilong@inhe.net
;)
|
mihy
职务：普通成员
等级：1
金币：0.0
发贴：33
注册：2002/10/17 16:34:16
|
#72002/11/11 9:39:20
如何使鼠标点中时出现提示条,显示完整主题
|
