 |
|
|
 首页 |
名片设计 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代码子程序"相关的教程: · ASP程序实现在HTML中显示文章被阅读的次数 · 一个把WORD转变成HTML的程序 · LINE 的计数器源程序(附源代码) · 使用ASP程序对“HTML炸弹”进行屏蔽 · 可以查看源代码的ASP程序 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
