<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    隨筆-3  評(píng)論-26  文章-41  trackbacks-0

     此ASP函數(shù)實(shí)現(xiàn)截取自定義長(zhǎng)度的字符串,并可定義超出部分顯示樣式,支持中英文字符串自動(dòng)判別

    <%
    '定義字符串判別函數(shù)
    function strlen(str)
    dim p_len
    p_len
    =0
    strlen
    =0
    if trim(str)<>"" then
    p_len
    =len(trim(str))
    for xx=1 to p_len
    if asc(mid(str,xx,1))<0 then
    strlen
    =int(strlen) + 2
    else
    strlen
    =int(strlen) + 1
    end if
    next
    end if
    end function
    '定義截取函數(shù)
    function strvalue(str,lennum)
    dim p_num
    dim i
    if strlen(str)<=lennum then
    strvalue
    =str
    else
    p_num
    =0
    x
    =0
    do while not p_num > lennum-2
    x
    =x+1
    if asc(mid(str,x,1))<0 then
    p_num
    =int(p_num) + 2
    else
    p_num
    =int(p_num) + 1
    end if
    strvalue
    =left(trim(str),x)&"" //截取后定義超出部分內(nèi)容的顯示方式
    loop
    end if
    end function
    %
    >

    <=strvalue(rsnews.("title",20
    '20 為截取長(zhǎng)度 %>
    posted on 2007-11-22 00:04 百年 閱讀(456) 評(píng)論(0)  編輯  收藏 所屬分類: Asp Article
    主站蜘蛛池模板: 亚洲AV午夜成人影院老师机影院| 亚洲精品美女久久久久| 免费无码又爽又刺激网站 | 久久精品国产99精品国产亚洲性色| 免费久久人人爽人人爽av| 亚洲w码欧洲s码免费| 婷婷亚洲天堂影院| 午夜视频在线免费观看| 亚洲成AV人片在WWW| 国产日韩亚洲大尺度高清| 在线中文高清资源免费观看| 中文字幕永久免费| 亚洲综合久久精品无码色欲| 亚洲精品无码久久千人斩| 成年人免费观看视频网站| 黄页免费在线观看| 色综合久久精品亚洲国产| 亚洲精品高清久久| 亚洲国产精品人人做人人爱| 日韩亚洲国产高清免费视频| 亚洲免费日韩无码系列| 亚洲一线产品二线产品| 亚洲国产成人一区二区精品区| 在线观看亚洲免费视频| 免费无码毛片一区二区APP| 另类小说亚洲色图| 亚洲av无码一区二区三区天堂古代| 亚洲精品二区国产综合野狼| 国产免费观看a大片的网站| 84pao强力永久免费高清| 国产久爱免费精品视频| 蜜桃传媒一区二区亚洲AV| 亚洲精品视频在线播放| 亚洲精品乱码久久久久久| 免费人成年激情视频在线观看| 成人免费一级毛片在线播放视频| 久久国产乱子伦精品免费不卡| 黄色网页免费观看| 亚洲欧美熟妇综合久久久久 | a级毛片免费在线观看| 黄色免费在线网址|