这个用在里面限制字体个数的东西:
dim rstitle,tmpleft
rstitle=rs("title")
if len(rstitle)>inttitlen then
rsleft=rstitle
do while len(rsleft)>inttitlen or len(right(rstitle,inttitlen*j))>inttitlen
response.write left(rsleft,inttitlen)&"
"
rsleft=right(rsleft,len(rsleft)-inttitlen)
loop
if not isnull(rsleft) then
response.write rsleft
end if
else
response.write rstitle
end if
这个市临时写得,写得比较差!谁要是有好的,别忘记交流阿!
