将中文转换为Unicode码，躲避防火墙的关键字拦截

'==================================================
'函数名：AsciiToUnicode
'作  用：将中文转换为Unicode码，躲避防火墙的关键字拦截
'参  数：AsciiStr ------要转换的变量
'参  数：Separator ------分隔符，如"-"
'==================================================
Function AsciiToUnicode(AsciiStr,Separator)
    Dim Str,UnicodeStr
    UnicodeStr=""
    For i=1 To Len(AsciiStr)
        Str=AscW(Mid(AsciiStr,i,1))
        If Str<0 Then
            Str=Str+65536
        End If
        if UnicodeStr<>"" then
            UnicodeStr=UnicodeStr&Separator&Str
        else
            UnicodeStr=UnicodeStr&Str
        end if
    Next
    AsciiToUnicode=UnicodeStr
End Function

'将Unicode还原为汉字
Function UnicodeToAscii(UnicodeStr,Separator)
    If InStr(UnicodeStr,Separator)>0 Then
    Dim Str,AsciiStr
        Str=Split(UnicodeStr,Separator)
        AsciiStr=""
        For i=0 To UBound(Str)
            If Str(i)<>"" Then
                AsciiStr=AsciiStr&ChrW(Str(i))
            End If
        Next
        UnicodeToAscii=AsciiStr
    Else
        UnicodeToAscii=UnicodeStr
    End If
End Function