Question

asp 中怎么控制字数显示？

我想控制一下新闻标题在网站首页显示的字数.有什么方法呀?
比如我只想让它显示15个字,后面用"..."代替.
我的代码如下：
<td>
<a href="new/news.asp?id=<%=rs("ID")%>" target="_blank">
<%=rs("subject")%></a>
<td>
怎么在这种情况下修改
老兄，你试过吗？这种方法不行的，这样每一行后面都有.....

Answer 1

<%=left(rs("subject"),15)%>...

哦
你只是想多出来的才加啊
那就用这个函数
Function LenStr(TheStr,Length)
If Len(TheStr)>Length then
TmpStr=Left(TheStr,15)
TmpStr=TmpStr&"..."
LenStr=TmpStr
Else
LenStr=TheStr
End if
End Function

<%=LenStr(rs("subject"),15)%>

Answer 2

<% function gotTopic(str,strlen)
dim l,t,c, i
l=len(str)
t=0
for i=1 to l
c=Abs(Asc(Mid(str,i,1)))
if c>255 then
t=t+2
else
t=t+1
end if
if t>=strlen then
gotTopic=left(str,i)&"..."
exit for
else
gotTopic=str&" "
end if
next
end function
%>
<td>
<a href="new/news.asp?id=<%=rs("ID")%>" target="_blank">
<%=gottopic(rs("subject"),15)%></a>
<td>

Answer 3

FormatNumber 函数

例：
MySecant = 1.314526622
FormatNumberDemo = FormatNumber(MySecant,4) ' 把 MySecant 格式化为带四位小数点的数。

Answer 4

<%
function
gotTopic(str,strlen)
dim
l,t,c,
i
l=len(str)
t=0
for
i=1
to
l
c=Abs(Asc(Mid(str,i,1)))
if
c>255
then
t=t+2
else
t=t+1
end
if
if
t>=strlen
then
gotTopic=left(str,i)&"..."
exit
for
else
gotTopic=str&"
"
end
if
next
end
function
%>
<td>
<a
href="new/news.asp?id=<%=rs("ID")%>"
target="_blank">
<%=gottopic(rs("subject"),15)%></a>
<td>

Answer 5

因为你把读取出来的数据给限制了。。。如果你想全部都显示出来，你把
<%=left(rst("summary"),200)%>改为
<%=rst("summary")%>就可以了。