'字符串转换成十六进制
Function StrToHex(x)
For i=1 to Len(x)
StrToHex = StrToHex & Hex(Asc(Mid(X,i,2)))
Next
End Function
'十六进制转换成字符串
Function HexToStr(x)
For i=1 to
Len(x)/2
HexToStr = HexToStr & Chr("&H" &
Mid(X,i*2-1,2))
Next
End Function

StrToHex函数支持汉字
HexToStr函数不支持汉字

求高手帮忙修改下 HexToStr  支持汉字的,最终要
HexToStr(StrToHex(“1234abc汉字”)) 得值为 1234abc汉字

通过转为4位的即可

Function StrToHex(x)
For i=1 to Len(x)
StrToHex = StrToHex & Right("00"& Hex(Ascw(Mid(X,i,2))),4)
Next
End Function
'十六进制转换成字符串
Function HexToStr(x)
For i=1 to Len(x) Step 4
HexToStr = HexToStr & Chrw("&H" & Mid(X,i,4))
Next
End Function 
Response.Write HexToStr(StrToHex("1234abc汉字"))