Question

ASP中，如何控制文章标题字符的长度啊？

在ASP中，怎么控制文章标题字符长度啊？我的标题是有多少字符出多少字符，请问怎么能控制在15个字符以内？源码如下：
<%
set rssl=server.createobject("adodb.recordset")
sqls="select * from Message order by ID desc"
rssl.open sqls,conn,1,1
if not rssl.eof then
i = 0
do while not rssl.eof
i = i + 1
%>
<li><a href="Message.asp?ID=<%=rssl("ID")%>" target="_blank"><%=rssl("Title")%>（文章标题）</a></li>
<%
if i >= 7 then exit do
rssl.movenext
loop
rssl.close
else
%>
暂无公告
<%end if%>

Answer 1

试试这个函数，可以截取适当的字符，需要注意的是，这里的参数ll指的是汉字的长度，一个汉字相当于两个英文字符。

你可以把这个函数放在文件前面，然后在输出时引用就可以了

<%=aCut(rssl("Title"),15)%>

<%

Function aCut(str, ll)
l = Len(str) '获取字符串长度

If l <= ll Then '如果长度小于等于规定长度
aCut = str
Else
aCut = ""
t = 0
For i = 1 To l
s = Mid(str, i, 1)
c = Asc(s)
If c < 0 Then c = c + 65536
If c > 255 Then
t = t + 1
Else
t = t + 0.5
End If
aCut = aCut & s

if t >= ll then exit for
Next
End If
End Function

'举例
a = aCut("中华人民共和国234123412342131234A", 10)
response.write a
%>

Answer 2

<%=rssl("Title")%>
改
<%=Left(rssl("Title"),10)%>

10就是你需要的字符数,你自己可以修改为你需要的数字