网络编程
位置：首页>> 网络编程>> Asp编程>> 两个asp函数实现javascript的escape函数和unescape函数功能

两个asp函数实现javascript的escape函数和unescape函数功能

　来源：asp之家　发布时间：2009-02-04 15:47:00　

标签：unescape,escape,函数,加密

在asp里通过以下两个函数实现javascript里的escape函数和unescape函数加密功能。在ajax post或get时内容存在汉字就容易出现乱码，用这两个函数可以得到解决。

类似javascript里的escape函数：

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

类似javascript里的Unescape函数：

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
0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com