asp中文编码和php编码的区别,ASP 汉字实业编码反转换

ASP 汉字实体编码反转换

ASP中有没类似PHP里html_entity_decode的方法，可以将中国这种实体编码的转成汉字“中国”？

或者有没有人可以提供一个自己实现的方法？

------解决思路----------------------

Function HTMLDecode(sText)

Dim I

sText = Replace(sText, "&" , Chr(38))

sText = Replace(sText, """", Chr(34))

sText = Replace(sText, "

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

%>

------解决思路----------------------

进制转换 你现在是十进制 把十进制转换为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 &"
")

Response.Write(h &"
")

Response.Write(s &"
")

%>

------解决思路----------------------

vbs的chrw就可以