| 网站首页 | 建站学院 | 资源下载 | 建站教程 | 图片素材 | 网贝社区 | 
您现在的位置： 网贝建站 >> 建站学院 >> ASP技术 >> 正则表达式 >> 正文 用户登录 新用户注册
专 题 栏 目
最 新 热 门
最 新 推 荐
相 关 文 章
没有相关文章
转换html代码子程序    热     ★★★
转换html代码子程序
作者：佚名 文章来源：网海之贝 点击数： 更新时间：2004-8-30 17:21:06
function htmlencode(str)
    on error resume next
    dim result
    dim l
    if isnull(str) then
       htmlencode=""
       exit function
    end if

    l=len(str)
    result=""
    dim i
    for i = 1 to l
        select case mid(str,i,1)
               case "<"
                    result=result+"&lt;"
               case ">"
                    result=result+"&gt;"
               case chr(34)
                    result=result+"&quot;"
               case "&"
                    result=result+"&amp;"
               case chr(13)
                    result=result+"<br>"
               case chr(9)
                    result=result+"&nbsp;&nbsp;&nbsp;&nbsp;"
               case chr(32)               
                    'result=result+"&nbsp;"
                    if i+1<=l and i-1>0 then
                       if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then                          
                          result=result+"&nbsp;"
                       else
                          result=result+" "
                       end if
                    else
                       result=result+"&nbsp;"                        
                    end if
               case else
                    result=result+mid(str,i,1)
         end select
       next
       if err.number<>0 then err.clear
       htmlencode=result
   end function

以上资料由动网先锋(http://www.aspsky.net)整理制作，转载请说明出处！
文章录入：admin    责任编辑：admin 
  • 上一篇文章：

  • 下一篇文章：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    站长：无色幽默