asp判断多少字换行

asp判断多少字换行

<%
'======================================
'制作：凌陈亮，QQ57404811
'输出全文，并按每行指定字符数自动换行，1个中文=2个英文=2位
'参数：字符串，每行显示的位数
'======================================
function replace_autobr(str,n)
dim f_return,f_i,f_m,f_k,f_a
f_k=0
for f_i=1 to len(str)
f_a=mid(str,f_i,1)
dim re : set re=New RegExp '建立正则表达式
re.Pattern="[^\x00-\xff]" '设置模式，即建立正则式规则
re.Global=False '设置全局可用性
re.Ignorecase=True '设置是否区分字符大小写
re.MultiLine=False '设置多行标记可用性
f_m=len(re.replace(f_a,"$2")) '执行搜索测试
f_k=f_k+f_m
if f_k f_return=f_return & f_a
elseif f_k=n then
f_return=f_return & f_a & "
"
f_k=0
else
f_return=f_return & "
" & f_a
f_k=f_m
end if
next
replace_autobr=f_return
end function
%>追问这是？追答我自己写的函数，你把这个函数放到页面里。
然后像这样输出就可以了：
<%=replace_autobr(content,15)%>
相当于你把 left函数名 换成我这个函数名就可以了。追问可以啊 谢谢

<%
if len(content)>15 then
response.write left(content,15)&"
" '如果超过15 字则加换行
else
response.write content '小于15个字符就全部输出
end if
%>