<%
'函数：指定字符串1每隔n位插入字符串2，1个中文=2个英文
'参数：字符串1（原字符串），n位开始插入，字符串2（要插入的字符串）
'功能可实现：控制每行字数，超出自动换行
function insertstr(str,n,insstr)
 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<n then
   f_return=f_return & f_a
  elseif f_k=n then
   f_return=f_return & f_a & insstr
   f_k=0
  else
   f_return=f_return & insstr & f_a
   f_k=f_m
  end if
 next
 insertstr=f_return
end function
%>


调用案例：

实现功能：控制每行显示100个字符（即50个汉字）

<%=insertstr(str,100,"<br />")%>