从数据库调出一条新闻有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]