【Asp】16进制转换字符串 字符串转16进制

十六进制转换字符串：

<%
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")
%>