 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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 if err.number<>0 then err.clear htmlencode=result end function 返回类别: 教程 上一教程: 用ASP建立站内搜索 下一教程: 列出指定目录下的所有文件和目录 您可以阅读与"转变HTML代码子程序"相关的教程: · LINE 的计数器源程序(附源代码) · 巧用ASP技术保护DHTML源代码 · 让论坛可运行HTML或者SCRIPT源代码 · LINE 的计数器源程序（附源代码） · 将HTML源代码规范化，转变成XSL代码的ASP工具 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
