asp中，如何将搜索access中的主题逐条显示，点击主题后内容呈网页显示，关键字变红，内容只显示20个字

【专家解说】：上下没有修改的地方我就不贴了 <% for i=1 to page_size if rs.eof or rs.bof then exit for '最好的退出循环放到前面，因为也许没有数据 %> <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1"> <tr> <td> <a href="<%=rs("url")%>" target="_blank"><%=replace(LeftT(rs("topic"),40,1),key,"<font color=red>"&key&"</font>"%></a> </td> </tr> <tr> <td><font size="2"> <%=replace(LeftT(rs("faq"),40,1),key,"<font color=red>"&key&"</font>"%></font></td> </tr> </table> <% rs.movenext next rs.close set rs=nothing conn.close set conn=nothing %> 用到的自定义函数 <% '========================================================= Function LeftT(FCstr,FCn,TTitle) '按字符截取文本字符串，一个汉字为2字符，一个英文字母为1个字符([文本字符串],[字符数],[是否有注释文字：0/没有；1/有]) On Error Resume Next If len(FCstr)<=FCn/2 Then LeftT=FCstr Else FCl=len(FCstr) FCt=FCl FCTStr="" FCt=0 For FCi=1 to FCl FCc=asc(mid(FCstr,FCi,1)) If FCc<0 then FCc=FCc+65536 If FCc>255 then FCt=FCt+2 Else FCt=FCt+1 End If If FCt>FCn-2 Then exit for FCTStr=FCTStr&(mid(FCstr,FCi,1)) Next If TTitle=0 then LeftT = FCTStr+".." Else LeftT = "<font title="""+FCstr+""">"+FCTStr+"..</font>" End If End If If Err.Number<>0 Then Err.Clear End Function %>