::获取字符串的ANSI编码
@echo off
set str=我们
cscript //nologo ansi.vbs %str%
for /f "tokens=1,* delims=:" %%i in ('" cscript //nologo ansi.vbs %str%" ') do set acode =%%i
Echo %acode%
pause
复制代码

'Date: 2010/6/18
'Author: Demon
'Website: http://demon.tw

Function urlencode(str)
        Dim i,c,s,length
        length = Len(str)
        For i = 1 To length
                s = Mid(str,i,1)
                c = Asc(Mid(str,i,1))
                If ( c >= Asc("A") And c <= Asc("Z") ) Or _
                        ( c >= Asc("a") And c <= Asc("z") ) Or _
                        ( c >= Asc("0") And c <= Asc("9") ) Or _
                        ( c = Asc("-") Or c = Asc("_") Or c = Asc(".") ) Then
                        urlencode = urlencode & s
                ElseIf c = Asc(" ") Then
                        urlencode = urlencode & "+"
                Else
                        urlencode = urlencode & "%" & Left(Hex(c),2)
                        urlencode = urlencode & "%" & Right(Hex(c),2)                        
                End If
        Next
End Function
set objArgs = wscript.Arguments
WScript.Echo urlencode(objArgs(0))
复制代码

echo,%acode%
复制代码