Str2Hex

Convert a string to Hex

<%
Function Str2Hex(astring)
dim s1, s2, i
s2 = ""
s1 = astring
for i = 1 to Len(s1)
s2 = s2 & Hex(ASC(Mid(s1, i, 1)))
next
Str2Hex= s2
End Function
%>

astring

Views 933 Downloads 335

''

JeffSmith
26
Texts + Strings Classic ASP
Revisions

v1.0