Asp十六进制与字符串互转

Asp中十六进制(Hex)与字符串的互相转换函数，通常在编写进制转换程序用到，非常实用。

十六进制转换为字符串:
<%
Function HexToStr(x) '十六进制转换字符串(非汉字)
For i=1 to Len(x)/2
HexToStr = HexToStr & Chr("&H" & Mid(X,i*2-1,2))
Next
End Function

Response.Write HexToStr("6675636B")
%>

字符串转换为十六进制:
<%
Function StrToHex(x) '十六进制转换字符串(支持汉字)
For i=1 to Len(x)
StrToHex = StrToHex & Hex(Asc(Mid(X,i,2)))
Next
End Function

Response.Write StrToHex("Fuck")
%>