合作
咨询
帮助
建站咨询 
- 作者：xiaoxiao
- 发表时间：2020-12-23 10:55
- 来源：未知
?作者：?
?? 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 ifor 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+""?????????? 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
?
