Question

asp网页中如何控制新闻标题的字数？

我是用asp做的网页，想控制新闻标题的字数，js的不会用，能不能用vbscript来控制新闻标题的字数？麻烦写详细点？我是菜鸟！

Answer 1

<%=left(rs("title"),50)%>
这样就被限制为50个字， 50可改成你想要的。这是从左到右截取50个字，如果从右到左截取50个字，则将left改成right。 不用函数的！

Answer 2

　　可以自己定义一个函数，其中str是需要限制长度的字符串，slength是限制的长度，addstr是若超过则在限制后加在后面的字符串，通常为"..."
　　参考如下：
　　function cutstr(str,slength,addstr)
　　
　　dim tostr
　　if str>slength then
　　tostr=left(str,slength)&addstr
　　else
　　tostr=str
　　end if
　　response.write(tostr)
　　end function

Answer 3

方法一：<%if len(rs("title"))>10 then%>
　　<%=left(rs("title"),10)%>...
<%else%>
　　<%=rs("title")%>
<%end if%>
这个是判断，10是长度，你可以自定义。

方法二：
var a='新闻标题';
var b=a.substring(0,20);
js中的字符截取和asp中的字符截取方法是一样的。

Answer 4

最简单的就是<%=left(rs("新闻标题"),截取的字数)%>

Answer 5

调用 gottopic(rs("title"),20)

Function gotTopic(str,strlen)
if str="" then
gotTopic=""
exit function
end if
dim l,t,c, i
str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
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 exit for
next
if i < l then
gotTopic=left(str,i) & "..."
else
gotTopic=str
end if
'gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
End Function