ASP程序,如何限定显示的字符数?
<%n=1WhileNotrsDe.Eofandn<19%><tdbgcolor="#FEFCF8"width="50%"><ahref='showurl.asp?id=...
<%
n=1
While Not rsDe.Eof and n<19
%>
<td bgcolor="#FEFCF8" width="50%"><a href='showurl.asp?id=<%=rsDe("id")%>' target='_blank' class="px14" title="<%=rsDe("title")%>"><%=rsDe("title")%></a><%
if n mod 2 =0 then
Response.Write("</td></Tr>")
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%>
我想要里面的<%=rsDe("title")%>">最多只显示8个字,如何做,请写上代码,谢谢 展开
n=1
While Not rsDe.Eof and n<19
%>
<td bgcolor="#FEFCF8" width="50%"><a href='showurl.asp?id=<%=rsDe("id")%>' target='_blank' class="px14" title="<%=rsDe("title")%>"><%=rsDe("title")%></a><%
if n mod 2 =0 then
Response.Write("</td></Tr>")
end if
rsDe.MoveNext
n=n+1
Wend
rsDe.close
set rsDe=nothing
%>
我想要里面的<%=rsDe("title")%>">最多只显示8个字,如何做,请写上代码,谢谢 展开
展开全部
直接用LEFT遇到中文的时候会乱码,给你一个函数,比较好用
'//字符串截取函数(按半角)
'//flag—1为加省略号,0不加
Function cutstr(str,length,flag)
Dim l,t,c,i
l=Len(str)
t=0
if l>=1 then
For i=1 To l
c=AscW(Mid(str,i,1))
If c<0 Or c>255 Then t=t+2 Else t=t+1
IF t>=length Then
if flag=1 then
cutstr=left(str,i)&"..."
Exit For
else
cutstr=left(str,i)
Exit For
end if
Else
cutstr=str
End If
Next
else
cutstr=""
end if
End Function
调用:
<%=cutstr(rsDe("title"),20,1)%>">
表示无论中文或英文均截取10个字符,多余的显示省略号
如果不要省略号,最后参数1改成0
<%=cutstr(rsDe("title"),20,0)%>">
'//字符串截取函数(按半角)
'//flag—1为加省略号,0不加
Function cutstr(str,length,flag)
Dim l,t,c,i
l=Len(str)
t=0
if l>=1 then
For i=1 To l
c=AscW(Mid(str,i,1))
If c<0 Or c>255 Then t=t+2 Else t=t+1
IF t>=length Then
if flag=1 then
cutstr=left(str,i)&"..."
Exit For
else
cutstr=left(str,i)
Exit For
end if
Else
cutstr=str
End If
Next
else
cutstr=""
end if
End Function
调用:
<%=cutstr(rsDe("title"),20,1)%>">
表示无论中文或英文均截取10个字符,多余的显示省略号
如果不要省略号,最后参数1改成0
<%=cutstr(rsDe("title"),20,0)%>">
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
<%=left(rsDe("title"),8)%>">
这里的8指的是字节,一个汉字2个字节,如果输出8个汉字的话,需要改为<%=left(rsDe("title"),16)%>">
这个是简单的限定输出字符个数的。
更多请百度搜 left() right()
这里的8指的是字节,一个汉字2个字节,如果输出8个汉字的话,需要改为<%=left(rsDe("title"),16)%>">
这个是简单的限定输出字符个数的。
更多请百度搜 left() right()
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
将<%=rsDe("title")%>改为<%=Left(rsDe("title"),8)%>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询