<% Function UTF8code(Str) Dim i,OneStr,AllStr For i = 1 To Len(Str) OneStr = Mid(Str,i,1) if asc(OneStr)=0 then AllStr = AllStr & chr(38) & chr(35) & chr(120) & Hex(Ascw(OneStr)) & chr(59) else AllStr = AllStr & OneStr end if Next UTF8code = AllStr End Function dim TP,txt TP=trim(request("TP")) txt=trim(request("txt")) if TP<>"" then if txt="" then Call Error("UTF-8编码内容不能为空！") end if response.write UTF8code(txt) else %> UTF-8编码内容:
转成汉字
把UTF-8编码转换成汉字
<%end if%> <%if TP<>"" then response.write"
重新转换
" end if%> [站长工具]
[后台管理]