ASP的escape和unescape函数
当前位置:点晴教程→知识管理交流
→『 技术文档交流 』
Function vbsEscape(str)
dim i,s,c,a s="" For i=1 to Len(str) c=Mid(str,i,1) a=ASCW(c) If (a>=48 and a<=57) or (a>=65 and a<=90) or (a>=97 and a<=122) Then s = s & c ElseIf InStr("@*_+-./",c)>0 Then s = s & c ElseIf a>0 and a<16 Then s = s & "%0" & Hex(a) ElseIf a>=16 and a<256 Then s = s & "%" & Hex(a) Else s = s & "%u" & Hex(a) End If Next vbsEscape = s End Function
Function vbsUnEscape(str) 该文章在 2015/1/7 23:43:12 编辑过 |
关键字查询
相关文章
正在查询... |