怎样实现鼠标移到的时候显示全部内容！
我的程序如下，当内容过长时截取一部分，如果我想当鼠标移到的时候象“alt”属性那样显示全部内容，怎么改？
<table border="0" cellpadding="4" cellspacing="1" width="90%">
<% set rs1=server.CreateObject("adodb.recordset")
jobsql="select top 5 * from joblist order by jobaddtime desc,jobid desc"
rs1.Open jobsql,conn,1,1
%>
<%n=0
do while not rs1.EOF%>
<tr>
<td bgcolor="#FFFFFF" height="25" valign="bottom" ><a href="per_window.asp?jobid=<%=rs1("jobid")%>" onclick="return viewjob(this.href,'job<%=rs1("jobid")%>');" class="ash3">
<%
str = rs1("name")
if len(str)>8 then
response.write left(str, 6)&"..."
else
response.write str
end if
%>
</a><img src="../image/htm/new1.gif"></td>
</tr>
<%
rs1.MoveNext
loop
rs1.Close%>
</table>
问题点数：20、回复次数：2Top
1 楼Brookes（边走边唱）回复于 2003-09-03 09:27:54 得分 10
title属性
<a class=f9_bl1 href=/business/book_detail/book_370.asp target=_blank title=看看是不是真的需要呀！>看看...</a>Top
2 楼PeterMCT（学习三个代表）回复于 2003-09-03 09:53:15 得分 10
NameLength="你想要显示的长度"
Sub ShowIssueName(inName)
if len(inName)>NameLength then
response.write InterceptString(inName,NameLength) & "..."
else
response.write inName
end if
end sub
Function InterceptString(txt,length)
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
y = y + 2
else
y = y + 1
end if
if y >= length then
txt = left(trim(txt),ii)
exit for
end if
next
InterceptString = txt
else
InterceptString = ""
end if
End Function
再用titleTop
相关问题
- 如何实现鼠标移到数据窗口上时，鼠标旁边显示一些文字啊。
- 请教怎么实现鼠标移动到图表上，显示提示信息
- 急！请问image控件怎么实现鼠标滑过图片时显示另外一张图片，鼠标移开时显示原来图片？
- 怎样实现鼠标移动到超链接时显示文字提示？？？？在线等你－－－！！！
- 当鼠标移到某一行上时显示该行的提示信息怎么实现？
- 如何实现鼠标移动到textbox上，自动显示一句提示？像hpyerlink有的功能那样
- 鼠标移至小图标上就显示图片的缩略图的效果是如何实现的？
- 如何实现在datagrid中，当鼠标移到不同行显示不同的提示信息？
- 请问如何实现当鼠标移动到某一条记录上时，在鼠标旁显示一信息框？
- ?实现鼠标移出时获得message
