字符串转换成十六进制 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- 字符串转换成十六进制 (http://www.webasp.net/article/16/15080.htm)

-- 作者：未知 -- 发布日期： 2004-11-25

-huitiansou '字符串转换成十六进制 Public Function StrToHex(ByVal strS As String) As String Dim abytS() As Byte Dim bytTemp As Byte Dim strTemp As String Dim lLocation As Long abytS = StrConv(strS, vbFromUnicode) For lLocation = 0 To UBound(abytS) bytTemp = abytS(lLocation) strTemp = Hex(bytTemp) strTemp = Right("00" & strTemp, 2) StrToHex = StrToHex & strTemp Next lLocation End Function

webasp.net