怎么样截取长字符标题?
我有一个显示新闻标题的表格,为了不让表格撑出来,我设定了标题如果长度>10就自动换一行,继续显示剩下的标题字符,但是这个代码我改了几次都不行,现在请求高手解决.
PS:
do while not rs.eof
title=request("Tile")
if Title>10 then
....(这里怎么写呢)
end if
我的标题是放在<div>快里面显示的,不是<td>中,标题从数据库中动态取出
我的部分代码如下:
do while not tmpRs.eof
dim Title,NewD,NewsDate
Dim Count
Dim MyTitle() '这里总是出错(类型不匹配)
NewsDate=tmpRs("AddTime")
NewD=dateDiff("d",NewsDate,Now)
Title=Trim(tmpRs("title"))
response.write("<div title='"&tmpRs("Title")&"'><a href='show.asp?id="&tmpRs("newsid")&"' target='_blank'>")
if Len(Title)>TitleMaxLength Then
Count=Cint(Len(Title)/TitleMaxLength)+1
'response.write(Count)
For i=0 To Count-1
ReDim preserve MyTitle(i)
MyTitle(i)=Mid(Title,i*TitleMaxLength+1,TitleMaxLength)
response.write(""&MyTitle(i)&"")
'response.write("<br>")
Next
Else
response.write(""&Title&"")
End If