从数据库调出一条新闻有20个字，我只想显示8个字，后面加点

grayvee

1. function videos(SortPath)
     dim rs,sql
     set rs = server.createobject("adodb.recordset")
     sql="select top 5 * from Qianbo_Others where ViewFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
     rs.open sql,conn,1,1
     if rs.eof then
           Response.Write "  <tr>"&VbCrLf
           Response.Write "    <td align=""center"" height=""28"">暂无相关信息</td>"&VbCrLf
           Response.Write "  </tr>"&VbCrLf
     else
       do while not rs.eof
                   If ISHTML = 1 Then
                           AutoLink = ""&OtherName&""&Separated&""&rs("ID")&"."&HTMLName&""
                   Else
                           AutoLink = "OtherView.asp?ID="&rs("ID")&""
                   End If
                   Response.Write "  <tr>"&VbCrLf
                   Response.Write "    <td height=""25"" style=""background:url(images/bg5.gif) repeat-x left bottom;""><img src=""images/arr4.gif"" width=""9"" height=""9"" align=""absmiddle"" /> <a href="""&AutoLink&""">"&StrLeft(rs("OthersName"),42)&"</a></td>"&VbCrLf
                   Response.Write "  </tr>"&VbCrLf
         rs.movenext
       loop
     end if
     rs.close
     set rs=nothing
   end Function

复制代码

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
效果是“某某某某某某某某某某...”按上面这段函数，应该怎么修改