首页 相关文章 转换html代码子程序

转换html代码子程序

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)[ 查看全文 ]

2016-01-29 标签:

转换html代码子程序的相关文章

手机页面
收藏网站 回到头部