才﹃锣传Θせ秈 - い瓣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