杭州交通信息网富士胶片中国:请教各位老师！ASP标题字数限制的问题？谢谢!
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/08 01:09:16
下面是里面源码，想让些信息的标题控制在几个字之内，怎么加？请各位老师帮帮忙！谢谢！
set rs=server.createobject("adodb.recordset")
sql="select top 3 * from article where typeid="&typeid&" order by id desc"
rs.open sql,conn,1,1
pencat=""
do while not rs.eof
pencat=pencat+"<a href=news/display.asp?newsid="&rs("newsid")&"><img border='0' src='news/images/title01.gif' width='12' height='12'>"&rs("title")&"</a><br>"
rs.movenext
loop
rs.close
conn.close
set conn=nothing
set rs=server.createobject("adodb.recordset")
sql="select top 3 * from article where typeid="&typeid&" order by id desc"
rs.open sql,conn,1,1
pencat=""
do while not rs.eof
pencat=pencat+"<a href=news/display.asp?newsid="&rs("newsid")&"><img border='0' src='news/images/title01.gif' width='12' height='12'>"&rs("title")&"</a><br>"
rs.movenext
loop
rs.close
conn.close
set conn=nothing
dim strlen=40 '定义规定长度
set rs=server.createobject("adodb.recordset")
sql="select top 3 * from article where typeid="&typeid&" order by id desc"
rs.open sql,conn,1,1
pencat=""
do while not rs.eof
'''''以下代码判断标题,如超过指定长度刚截取等于指定长度部分'''''''''
title=rs("title")
if len(title)>strlen then
title=left(title,strlen)&".."
end if
'''''''''''''''''结束'''''''''''''''''''''
pencat=pencat+"<a href=news/display.asp?newsid="&rs("newsid")&"><img border='0' src='news/images/title01.gif' width='12' height='12'>"&title&"</a><br>"
rs.movenext
loop
rs.close
conn.close
set conn=nothing
这个答案没有问题,用过无数次了!