Question

Asp限制显示标题的长度

<%
'关于我们
set rs=server.createobject("adodb.recordset")
sql="select * from HN_info where IN_type=3"
rs.open sql,Conn,1,1
%>
<%=rs("IN_dome")%>
<%
rs.close
set rs=nothing
%>

这个应该怎么限制显示长度??希望打击帮帮忙..!!谢谢先了.!!
都试过了..换了之后就一个字都不显示了..!!是什么问题..???

Answer 1

<%=rs("IN_dome")%>
换成<%=left(rs("IN_dome"),16)%>
16是迟孝察你想控码茄慎陆制的字数

Answer 2

如果你后台使用html编辑器，则前台不需要设置长度，前台不会被内容撑渗闭开页面。
如果你后台是直接输入内容，没有使用任何编辑器形式。则前台悔碰你就要注意了。有可能内容会撑开页面，并且不丛前裂能自动分行。
出现这个问题你可以使用
<pre></pre>来强制分行。
对于字的长度，建议使用CSS进行页面宽度强制限制，则内容到达指定宽度后自动进入下一行。

Answer 3

哎，又是一个要这样做的朋友，看来我的这个函数功能可不小啊！呵呵～～～
重新补充：我实在没话说，我肯定问问题的人复制了我的函数却不会使用。。。
<%
'======================================
'输出全文，并按每行指定字符数自动换行，1个中文字符=2个英文字符
'参数：字符串，每行显示的字符数
'======================================
function autobr(str,n)
dim f_return,f_i,f_k,f_a
f_return=""
f_k=0
dim re
for f_i=1 to len(str)
f_a=mid(str,f_i,1)
set re=New RegExp '建立正则表达式
re.Pattern="[^\x00-\xff]" '设置模式，即建立正则式规则
re.Global=True '设置全局可用性
re.Ignorecase=True '设置是否区陆衡分字符大小写
re.MultiLine=False '设置多行标记可用性
f_k=f_k+len(re.Replace(f_a,"$2")) '执行搜索测试
if f_k<=n then
if f_a<>chr(13) then
f_return=f_return & f_a
else
f_return=f_return & "<br />"
f_k=0
end if
else
if f_a<>chr(13) then
f_return=f_return & chr(10) & f_a
f_k=1
else
f_return=f_return & "<br />"
f_k=0
end if
end if
next
autobr=f_return
end function
%>

<%
'======================================
'取左边N个字符，1个中文字符=2个英文字符
'参数：字符串，左边字符数，超出部分的连接字符串
'======================================
function leftstr(title,n,nexttext)
dim f_title,f_i,f_k,f_a
f_title=""
f_k=0
dim re
for f_i=1 to len(title)
f_a=mid(title,f_i,1)
set re=New RegExp '建早族做立正则表达式
re.Pattern="[^\x00-\xff]" '设置模式，即建立正则式规则
re.Global=True '设置全局可用性
re.Ignorecase=True '穗宽设置是否区分字符大小写
re.MultiLine=False '设置多行标记可用性
f_k=f_k+Len(re.Replace(f_a,"$2")) '执行搜索测试
if f_k<=n then
f_title=f_title & f_a
else
f_title=f_title & nexttext
exit for
end if
next
leftstr=f_title
end function
%>

Answer 4

<%=rs("IN_dome")%>

吧这个改成

<%If Len(rs("IN_dome")) <= 10 Then Response.Write rs("IN_dome") Else Response.Write Left(rs("IN_dome"),8)&".." End If%>

意思就是如果长度大于10位那么中伏就显示8位后面加两个点指旁(代表省唯培橡略号)
当然长度10和8你可以自己改

Answer 5

<%If Len(rs("IN_dome")) <胡知= 10 Then Response.Write rs("IN_dome") Else Response.Write Left(rs("IN_dome"),8)&".." End If%>
这话连起来陪做配有点问题 还是格式下
<%
if Len(rs("IN_dome")) <= 10 Then
Response.Write rs("IN_dome")
Else
Response.Write Left(rs("IN_dome"),10) & "..."芦指
End If
%>

测试通过