Asp版的escape和unescape函数
作者:admin 日期:2012-05-21
加密：
ASP/Visual Basic代码
- 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
解密：
ASP/Visual Basic代码
- Function vbsUnEscape(str)
- dim i,s,c
- s=""
- For i=1 to Len(str)
- c=Mid(str,i,1)
- If Mid(str,i,2)="%u" and i<=Len(str)-5 Then
- If IsNumeric("&H" & Mid(str,i+2,4)) Then
- s = s & CHRW(CInt("&H" & Mid(str,i+2,4)))
- i = i+5
- Else
- s = s & c
- End If
- ElseIf c="%" and i<=Len(str)-2 Then
- If IsNumeric("&H" & Mid(str,i+1,2)) Then
- s = s & CHRW(CInt("&H" & Mid(str,i+1,2)))
- i = i+2
- Else
- s = s & c
- End If
- Else
- s = s & c
- End If
- Next
- vbsUnEscape = s
- End Function
上一篇: javascript兼容性获取鼠标坐标
下一篇: 本人常用的Asp实现GB2312转UTF8函数
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: asp 
相关日志:
评论: 1 | 引用: 0 | 查看次数: 3269
27siMn无缝钢管[2012-05-22 12:30 AM | 
| 
| 218.86.103.26 | 
| 
回复]哇塞吓到的好复杂
发表评论
广告位
