ASP 十六进制转换成字符串(支持汉字)
'字符串转换成十六进制FunctionStrToHex(x)Fori=1toLen(x)StrToHex=StrToHex&Hex(Asc(Mid(X,i,2)))Nex...
'字符串转换成十六进制
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汉字
在线等,没问题立马给分 展开
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汉字
在线等,没问题立马给分 展开
1个回答
展开全部
通过转为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汉字"))
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汉字"))
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询