如何在动态代码中加鼠标移动显示全部标题？（附代码）
这段代码是显示新闻列表的: （ 表名：_Class，显示题目的字段名：title，ilist为css样式）
我想要实现的是，鼠标放到某行未显示完整的题目名称上时，显示完整题目。上网查了一下，说是要用
<a href="" title="<%=rs1("Title")%>"><%=rs1("Title")%></a> 这条语句
可我实在不知道要加在什么位置上 请各位高人指点一下，不胜感谢。再次谢谢谢谢！


  <div style="float:left;width:730px;">
<%
Dim rs,rs1
NoI=0
set rs=conn.execute("select ID,ClassName,IndexNum,Indeximg from "&tbname&"_Class Where IsIndex = 1 And link=0 order by num asc")
do while not rs.eof
NoI=NoI+1
Response.Write("<div id=""ilist""")
If isEven(NoI)=0 then Response.Write(" style=""margin-left:6px;""") End if
Response.Write(">") & VbCrLf
Response.Write(" <h6><span><a href=""")
If Html=3 then

Else
Response.Write("Class.asp?ID="&rs(0)&"")
End if
Response.Write(""">more...</a></span><a href=""")
If Html=3 then
Response.Write("Class_"&rs(0)&".html")
Else
Response.Write("Class.asp?ID="&rs(0)&"")
End if
Response.Write(""">"&rs(1)&"</a></h6>") & VbCrLf
If rs(3)=1 then
Response.Write(" <ul id=""indeximg"">") & VbCrLf
Call ShowImgArticle(rs(0),3,20,"no","DateAndTime desc,ID desc")
Response.Write(" </ul>") & VbCrLf
End if
Response.Write(" <ul>") & VbCrLf
Call ShowArticle(rs(0),rs(2),5,"·",100,"no","DateAndTime desc,ID desc",0,1)
Response.Write(" </ul>") & VbCrLf
Response.Write(" </div>") & VbCrLf
If NoI=4 then
Response.Write(" <div style=""margin-bottom:4px;"">") & VbCrLf
'Call ShowAD(12)
Response.Write(" </div>") & VbCrLf
Response.Write(" <div id=""clear""></div>") & VbCrLf
elseIf NOI=8 then
Response.Write(" <div style=""margin-bottom:4px;"">") & VbCrLf
'Call ShowAD(13)
Response.Write(" </div>") & VbCrLf
Response.Write(" <div id=""clear""></div>") & VbCrLf
End if
rs.movenext
loop
rs.close:set rs=nothing
%>

------解决方案--------------------




Response.Write(""" title='"&rs(1)&"'>"&rs(1)&"</a></h6>") & VbCrLf