Question

ASP 标题限制字数菜鸟问题

菜鸟学习ASP
想在这段代码修改成为能限制标题字数
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from cygl where type=1 order by dates desc",conn,1,1
if rs.eof then
response.Write("当前没有信息！！")
else
i=1
do while not rs.eof and i<9

%>
<%
rs.movenext
i=i+1
loop
end if
rs.close
set rs=nothing
i=0

%>

Answer 1

left(rs("标题列"),x） left是左函数，x是你要的标题列的前面位数，如
left(rs("title"),10):要title的前面10个字。

还有，你的这个大体意思是要前面的8条信息，这样写会简单一些：
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 8 * from cygl where type=1 order by dates desc",conn,1,1
if rs.eof then
response.Write("当前没有信息！！")
else
do while not rs.eof
%>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>

Answer 2

<%=left(rs("title"),20) %>

Answer 3

<%
Function InterceptString(txt,length)
dim x,y,ii
txt=trim(txt)
x = len(txt)
y = 0
if x >= 1 then
for ii = 1 to x
if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then
y = y + 2
else
y = y + 1
end if
if clng(y)>=clng(length) then
txt = left(trim(txt),ii)
InterceptString = txt
exit for
else
InterceptString = txt
end if
next

else
InterceptString = ""
end if
End Function
%>
<%=InterceptString(str,100)%>

Answer 4

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from cygl where type=1 order by dates desc",conn,1,1
if rs.eof then
response.Write("当前没有信息！！")
else
if not rs.eof then rs("title")=title'把标题先赋给变量
do while not rs.eof
'比如说要限制标题在10字符
if len(title)>10 then
response.write left(title,10)
else
response.write title
end if
rs.movenext

loop
end if
rs.close
set rs=nothing
i=0

%>

Answer 5

在输出的时候限制字数就可以了
比如输出的时候是
<%=rs("标题")%>
你就吧他改为
<%
a=len(rs("标题"))'先获取总共标题又多少个字
if a>=20 then '如果标题字数多于20个字则执行
b=left(rs("标题"),20) & "…" '只留下前面20个字 并 加上 … 表示标题未完
else'如果标题没有20个字则
b=rs("标题")'标题不变
end if
response.write b'输出标题
%>