原创著作,产权保护 政府、投票、评选、公安、学校、问卷、视频会议专注发展中小企事业 系统报价 | 支付帐号 | 授权查证
    计算机著作版权登记号:2014SR032463 手机:+86-1373066-4304 | QQ:1213920482 欢迎选择智睿软件系统 欢迎选择智睿软件系统
智睿软件系统
ASP控制每行字数,超出自动换行
来源:智睿 浏览:142 次 发布时间:2018-05-11 20:43:00

<%
'函数:指定字符串1每隔n位插入字符串2,1个中文=2个英文【凌陈亮(QQ:57404811)】
'参数:字符串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 />")%>

【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
上一篇:智睿政府网站管理系统 V 9.3.9 政府网站系统,政府机关系统 下一篇:智睿人物图片评选系统 V 10.0.9 人物评选管理系统,优秀人物投票系统