⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 可之接输出html代码的程序.asp

📁 较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.
💻 ASP
字号:
🔍 
<%
   function htmlencode(str)
    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
%>
<%
dim a 
a="<body topMargin=0 leftMargin=0><script language=javascript src='http://mysms.xilu.com/recadv/js.aspx?xt350_220_1&xuuser=01454'></script></body>"
response.write htmlencode(a)
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -