原創著作,產權保護 政府、投票、評選、公安、學校、問卷、視頻會議專注發展中小企事業 系統報價 | 支付帳號 | 授權查證
    計算機著作版權登記號:2014SR032463 手機:+86-1373066-4304 | QQ:1213920482 歡迎選擇智睿軟件系統 歡迎選擇智睿軟件系統
智睿軟件系統
ASP控制每行字數,超出自動換行
來源:智睿 瀏覽:408 次 發布時間:2019-01-23 15:47:34
<%
'函數:指定字符串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 />")%>
【刷新頁面】【加入收藏】【打印此文】 【關閉窗口】
上一篇:智睿學校選課系統 V 4.5.0 2019版學校選課系統,網絡學校選課系統 下一篇:智睿中小學校網站系統 V 9.9.0 2019版小學網站系統,2019版中學網站系統
海南4十1中奖规则