28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Dim Str
Str = "我是中文UTF-8"
Response.Write Str & "=" & MD5(str)
Function MD5(text)
With CreateObject("MSXML.DOMDocument").createElement("a")
.dataType = "bin.hex"
.nodeTypedvalue = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider").ComputeHash_2(CreateObject("System.Text.UTF8Encoding").GetBytes_4(text))
MD5 = .text
End With
End Function
%>
结帖吧。。