主题:  如何使鼠标点中时出现提示条,显示完整主题

mihy
职务：普通成员
等级：1
金币：0.0
发贴：33
注册：2002/10/17 16:34:16
#12002/11/11 9:44:42
如何在主页上的标题显示规定数量的文字，多余的部分用省略号代替,当鼠标点中时出现提示条,显示完整主题



缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
#22002/11/11 11:14:22
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("title"),12)...



然后设置链接的title为Rs("title")



mihy
职务：普通成员
等级：1
金币：0.0
发贴：33
注册：2002/10/17 16:34:16
#32002/11/12 8:16:19
上面这个函数只能显示规定字数的标题,我主要想问当鼠标点中时出现提示条内显示完整主题



缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
#42002/11/12 9:36:47
然后设置链接的title为Rs("title")