转换html代码子程序- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 转换html代码子程序

技术文章搜索

关键字

ASP 中的转换html代码子程序

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 206 ::

收藏到网摘: n/a

判断文章中文字符数量简单的检查输入email是否合法程序

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+"<"
           case ">"
                result=result+">"
           case chr(34)
                result=result+"""
           case "&"
                result=result+"&"
           case chr(13)
                result=result+"<br>"
           case chr(9)
                result=result+"    "
           case chr(32)
                'result=result+" "
                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+" "
                   else
                      result=result+" "
                   end if
                else
                   result=result+" "
                end if
           case else
                result=result+mid(str,i,1)
         end select
       next
  &nb

判断文章中文字符数量简单的检查输入email是否合法程序

ASP 中的 转换html代码子程序

评论 (0) All

ASP 中的转换html代码子程序