grayvee 发表于 2010 年 11 月 14 日 19:28:10

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


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~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
效果是“某某某某某某某某某某...”按上面这段函数,应该怎么修改:(
页: [1]
查看完整版本: 从数据库调出一条新闻有20个字,我只想显示8个字,后面加点