[PHP] 中文域名IDN转码程序

jim.ma

昨天有朋友求这个东西。呵呵今天找到了 。


官方下载地址 http://phlymail.com/en/downloads/idna/download/

演示地址 http://idnaconv.phlymail.de/?lang=en

本地留个附件 [php]IDN转码-中文域名-idna_convert_052.zip (45.36 KB, 下载次数: 72)

2007-12-29 12:01 上传

点击文件名下载附件

我的一个应用演示 http://www.domaingen.cn/idn/

[ 本帖最后由 jim.ma 于 2008-12-13 15:28 编辑 ]

展现

这个程序是做什么用的?

darkfires

IDN 国际化域名IDNs (Internationalized Domain Names)也称多语种域名,是指非英语国家为推广本国...中文域名是IDN的重要组成部分,也可以说最重要的组成部分。中文域名是含有中文的新一代域名,同英文域名一样,是互联网...

李博士

感谢楼主

tsenfine

不错，收藏了

vingo1983

版主有ASP版的没？

jim.ma

原帖由 vingo1983 于 2007-12-30 20:19 发表

                               
登录/注册后可看大图

版主有ASP版的没？

http://www.motobit.com/util/punycode-decoder-encoder.asp

http://www.motobit.com/help/scptutl/cm440.htm

关于ASP的转码这有个例子. 需要组件支持.

1. Dim m_BA
   
2. Function BA
   
3.   If IsEmpty(m_BA) Then Set m_BA = CreateObject("ScriptUtils.ByteArray"): m_BA.CharSet = "utf-8"
   
4.   Set BA = m_BA
   
5. End Function
   
6. 
   
7. 'conversion from unicode string to punycode
   
8. Function ToPUNYCODE(Data)
   
9.   Dim Outdata
   
10.   BA.String = Data
    
11.   
    
12.   Outdata =  "<div>ToPUNYCODE : Punycode representation of '" & _
    
13.    Data & "' string :<div style=background-color:yellow;color:blue>"
    
14.   Outdata = Outdata & "<b>" & BA.Punycode & "</b>"
    
15.   Outdata = Outdata & "</div></div>"
    
16.   ToPUNYCODE = Outdata
    
17. End Function
    
18. 
    
19. 'conversion from punycode string (OLE String) to a UNICODE string
    
20. Function FromPUNYCODE(Data)
    
21.   Dim Outdata
    
22.   On Error Resume Next
    
23.   BA.Punycode = Data
    
24.   If Err=0 Then
    
25.     Outdata =  "<div>FromPUNYCODE : Unicode string :<div style=background-color:yellow;color:blue>"
    
26.     Outdata = Outdata & "<b>" & BA.String & "</b>"'write the UTF representation
    
27.     Outdata = Outdata & "</div></div>"
    
28.   Else
    
29.     Outdata =  "<div style=background-color:red;color:yellow>FromPUNYCODE:Punycode string '" & _
    
30.      Data & "' has no unicode representation.</div>"
    
31.   End If
    
32.   FromPUNYCODE = Outdata
    
33. End Function
    
34. 
    
35. 'conversion of a host name (www.anychar.com) to a punycode idn version (www.xn--translated.com)
    
36. Function ToIDN(Data)
    
37.   Dim Outdata, pData, partuni, partpuny
    
38.   
    
39.   pData = Split(Data, ".")
    
40. 
    
41.   For Each partuni In pData
    
42.     BA.String = partuni
    
43.     partpuny = BA.Punycode
    
44.     If Right(partpuny,1)<>"-" Then partpuny = "xn--" & partpuny Else partpuny = partuni
    
45. 
    
46.     Outdata = Outdata & partpuny & "."
    
47.   Next
    
48.   Outdata = Left(Outdata, Len(Outdata)-1)
    
49.   ToIDN =  "<div>ToIDN : IDN representation of '" & _
    
50.    Data & "' string :<div style=background-color:yellow;color:blue><b>" & _
    
51.    Outdata & "</b></div></div>"
    
52. End Function
    
53. 
    
54. 'conversion of a host name in idn punycode (www.xn--translated.com)
    
55. ' to an unicode string (www.anychar.com)
    
56. Function FromIDN(ByVal Data)
    
57.   Dim Outdata, pData, partuni, partpuny
    
58.   Data = LCase(Data)
    
59.   pData = Split(Data, ".")
    
60.   For Each partpuny In pData
    
61.     If Left(partpuny,4)="xn--" Then
    
62.       BA.Punycode = Mid(partpuny, 5)
    
63.       partuni = Ba.String
    
64.     Else
    
65.       'on error resume next
    
66.       'BA.Punycode = partpuny
    
67.       Dim re :set re = New RegExp
    
68.       re.pattern = "^[-a-zA-Z0-9]+$"
    
69.       
    
70.       If re.Test(partpuny) Then
    
71.         partuni = partpuny
    
72.       Else
    
73.         partuni = "<font Color=red>error (" & partpuny & ")</Font>"
    
74.       End If
    
75.     End If
    
76. 
    
77.     Outdata = Outdata & partuni & "."
    
78.   Next
    
79.   Outdata = Left(Outdata, Len(Outdata)-1)
    
80.   FromIDN = "<div>FromIDN : Unicode representation of IDN '" & Data & _
    
81.    "' :<div style=background-color:yellow;color:blue><b>" & _
    
82.    Outdata & "</b></div></div>"
    
83. End Function
    

复制代码

lovedom

http://www.xn--94qw0e2xe517e.cn/?page_id=91

泠刈紫微

天伤雨默

汉化一下可能更好  

ncxieli

lovedom

原帖由 天伤雨默 于 2008-8-24 15:09 发表

                               
登录/注册后可看大图

汉化一下可能更好  

自己汉化下，很简单，改几个文字就可以了

lovedom

看我的汉化 版

ie7，火狐访问下面：

http://www.免费域名.cn/decode-encode.php
ie6请访问：
http://www.xn--94qw0e2xe517e.cn/decode-encode.php

[ 本帖最后由 lovedom 于 2008-8-24 18:03 编辑 ]

wj1320

好东西啊

wj1320

http://www.daxiaohua.com/zhuan/

叶旭建

加精存档以便大家查阅.

df2002

[iframe]http://www.microsoft.com[/iframe]

万赛

不错!