网络编程
位置：首页>> 网络编程>> Asp编程>> ASP字符串16进制互转

ASP字符串16进制互转

　　发布时间：2008-06-24 12:28:00　

标签：字符串,转换,函数,asp

字符串转十六进制

StrToHex Function

<％
Response.Write StrToHex("Nice code")
'--- returns: 4E69636520636F6465

Function StrToHex(ByRef Str)
Dim Length
Dim Max
Dim strHex
Max = Len(Str)
For Length = 1 To Max
strHex = strHex & Right("0" & Hex(Asc(Mid(Str, Length, 1))), 2)
Next
StrToHex = strHex
End function
％> 

十六进制转字符串

HexToStr

<％
Function HexToStr(ByRef strHex)
Dim Length
Dim Max
Dim Str
Max = Len(strHex)
For Length = 1 To Max Step 2
Str = Str & Chr("&h" & Mid(strHex, Length, 2))
Next
HexToStr = Str
End function
％>
0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com