Question

怎么使用ASP限制数据库字段的显示字数？ 下面就是我用的代码怎么改才能控制字数？

<%set rs=server.CreateObject("adodb.recordset")
rs.open "select wuye from shuxing",conn,1,1
response.write trim(rs("wuye"))
rs.close
set rs=nothing%> 这段代码怎么加才能控制显示的字数。求各位专家帮忙谢谢了

Answer 1

<%set rs=server.CreateObject("adodb.recordset")
rs.open "select wuye from shuxing",conn,1,1
if len(rs("wuye")) < 20 then '限定为显示 20字
response.write trim(rs("wuye"))
else
response.write left(trim(rs("wuye")),20) '显示20
end if
rs.close
set rs=nothing%>

另外你可以直接使用函数

<%
'**************************************************
'函数名：gotTopic
'作 用：截字符串，汉字一个算两个字符，英文算一个字符
'参 数：str ----原字符串
' strlen ----截取长度
'返回值：截取后的字符串
'**************************************************
Function gotTopic(ByVal str, ByVal strlen)
If str = "" Then
gotTopic = ""
Exit Function
End If
Dim l, t, c, i, strTemp
str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "<", "<") .
l = Len(str)
t = 0
strTemp = str
strlen = CLng(strlen)
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
strTemp = Left(str, i)
Exit For
End If
Next
If strTemp <> str Then
strTemp = strTemp & "…" ..
End If
gotTopic = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "<", "<")
End Function
%>

Answer 2

<%=left(rsPugong.Fields.Item("显示的字段").Value,12)%>
这样就限制了显示左边12个字符，就是前12个字符！
最好就是用css 限制字数，超出定义的宽度就以……结尾~
display: block;
width: 300px;
overflow: hidden;
white-space: nowrap;
-o-text-overflow: ellipsis;
text-overflow: ellipsis;

追问

不懂啊 能不能说的详细点 就是在我的代码上修改或者添加代码

追答

response.write left(rsPugong.Fields.Item(trim(rs("wuye")).Value,12)

追问

师傅 不对啊  我试过会出现这个

求再次帮助啊 师傅

追答

改成这样吧，上面的事DW自动生成的代码--给错了！
Response.Write left(trim(rs("wuye")),12)

追问

为什么修改后 页面不显示字体啊 空白的