ASP 汉字实体编码反转换

[承君此诺必守一生]

ASP中有没类似PHP里html_entity_decode的方法，可以将中国这种实体编码的转成汉字“中国”？
或者有没有人可以提供一个自己实现的方法？

[承君此诺必守一生]

有哪位可以帮忙解决下吗？

[hefeng_aspnet]

进制转换 你现在是十进制 把十进制转换为16进制 中国等同与中文"中国" 「中国」二字分别是 Unicode 字符 U+4E2D 和 U+56FD，十六进制表示的 code point 数值「4E2D」和「56FD」就是十进制的「20013」和「22269」

<%
'字符串转十六进制
Function StrToHex(ByRef Str)
    Dim Length
    Dim Max
    Dim strHex
    Max = Len(Str)
    For Length = 1 To Max
        strHex = strHex & Right("0" & Hex(Asc(Mid(Str, Length, 1))), 2)
    Next
    StrToHex = strHex
End function

'十六进制转字符串
Function HexToStr(ByRef strHex)
    Dim Length
    Dim Max
    Dim Str
    Max = Len(strHex)
    For Length = 1 To Max Step 2
        Str = Str & Chr("&h" & Mid(strHex, Length, 2))
    Next
    HexToStr = Str
End function
%>

<%
Dim y,h,s
y = "5F24E863C33D8237C9DEC4AAD17CFCE10832C2255B2301AFC168B9781E273823ADB8E2D4B2A867BE1891CC95A8998C42"
h = StrToHex(y)
s = HexToStr(h)
Response.Write(y &"<br>")
Response.Write(h &"<br>")
Response.Write(s &"<br>")
%>

[承君此诺必守一生]

非常感谢楼上的回复，给了我一些启发，我自己写了个方法实现了这个功能，贴出来共享下： Function HtmlEntitiesDecode(codeString) If IsNull(codeString) Or codeString="" Then HtmlEntitiesEncode = "" Exit Function End If Dim result, i result = "" Dim codeArray codeArray = Split(codeString,";") If IsArray(codeArray) Then For i=0 To Ubound(codeArray) If codeArray(i) <> "" Then result = result & ChrW(Replace(codeArray(i), "&#", "")) End If Next End If HtmlEntitiesDecode = result End Function 调用这个方法，HtmlEntitiesDecode("中国")，返回的就是“中国”

[Anlige]

vbs的chrw就可以

[hefeng_aspnet]

<% Function HTMLDecode(sText) Dim I sText = Replace(sText, "&" , Chr(38)) sText = Replace(sText, """", Chr(34)) sText = Replace(sText, "<" , Chr(60)) sText = Replace(sText, ">" , Chr(62)) sText = Replace(sText, " ", Chr(32)) For I = 1 To 255 sText = Replace(sText, "&#" & I & ";", Chr(I)) Next HTMLDecode = sText End Function %>

[承君此诺必守一生]

引用 1 楼 hefeng_aspnet 的回复:

<% Function HTMLDecode(sText) Dim I sText = Replace(sText, "&" , Chr(38)) sText = Replace(sText, """", Chr(34)) sText = Replace(sText, "<" , Chr(60)) sText = Replace(sText, ">" , Chr(62)) sText = Replace(sText, " ", Chr(32)) For I = 1 To 255 sText = Replace(sText, "&#" & I & ";", Chr(I)) Next HTMLDecode = sText End Function %>

这个不行吧，能把实体编码转成汉字？