dimresult,kw,p
ifrequest.ServerVariables("REQUEST_METHOD")="POST"then
kw=trim(request.Form("kw")&"")
setp=server.createObject("IDNS.Punycode")
ifleft(kw,"4")="xn--"then
result=p.decode(right(kw,len(kw)-4))
else
result="xn--"&p.encode(kw)
end if
setp=nothing
end if
点击这里测试一下 http://中文域名测试.mycoolapp.net/punycode.asp