用ASP.Net编写的查询域名的程序

这段程序最早是bigengle兄弟贴在chinaasp上的,是个很不错的程序来讲解ASP.Net的高级应用。不过最大的缺点就是查询中国域名时不支持中文,所出来的信息中文不能显示,小弟我稍微改了一下,这个已经能够支持中文了。呵呵,关于这个例子,我在国外的站点上放了了一个大家可以看

1<br/>
1<br/>

http://aspx1.brinkster.com/feidao/named.aspx

1<br/>
1<br/>

这个主机是国外的,所以对中文支持不太好(原因我在《亲密接触ASP.net》中说得很清楚),大家如果看不到中文,请用选择IE中的"编码"---"简体中文".

1<br/>
1<br/>

下面是源程序。

1<br/>
1<br/>
1 @ Page Language="C#" 
1<br/>
1 @ Assembly Name="System.Net" 
1<br/>
1 @ Import Namespace="System.Net.Sockets" 
1<br/>
1 @ Import Namespace="System.Text" 
1<br/>
1 @ Import Namespace="System.IO" 
1<br/>
1 @ Import Namespace="System.Collections" 
1<br/>
 1<script language="C#" runat="server"> <br>   
 2void doQuery(Object sender, EventArgs e) <br>   
 3{ <br>   
 4String strDomain = txtDomain.Text; <br>   
 5char[] chSplit = {'.'}; <br>   
 6string[] arrDomain = strDomain.Split(chSplit); <br>   
 7<br>   
 8int nLength = arrDomain[1].Length ; <br>   
 9Hashtable table = new Hashtable(); <br>   
10table.Add("de", "whois.denic.de"); <br>   
11table.Add("be", "whois.dns.be"); <br>   
12table.Add("gov", "whois.nic.gov"); <br>   
13table.Add("mil", "whois.nic.mil"); <br>   
14<br>   
15String strServer ; //define whois server <br>   
16//if the domainname's end is cn then the server is cnnic ,otherwise is networksolutions <br>   
17if (arrDomain[arrDomain.Length - 1] == "cn") <br>   
18{ <br>   
19strServer = "159.226.6.139" ; <br>   
20} <br>   
21else <br>   
22{ <br>   
23strServer = "whois.networksolutions.com"; <br>   
24} <br>   
25<br>   
26if (table.ContainsKey(arrDomain[1])) <br>   
27{ <br>   
28strServer = table[arrDomain[1]].ToString(); <br>   
29} <br>   
30else if (nLength == 2) <br>   
31{ <br>   
32// 2-letter TLD's always default to RIPE in Europe <br>   
33strServer = "whois.ripe.net"; <br>   
34} <br>   
35<br>   
36String strResponse; <br>   
37bool bSuccess = DoWhoisLookup(strDomain, strServer, out strResponse); <br>   
38if (bSuccess) <br>   
39{ <br>   
40txtResult.Text = strResponse; <br>   
41} <br>   
42else <br>   
43{ <br>   
44txtResult.Text = "Lookup failed"; <br>   
45} <br>   
46} <br>   
47<br>   
48bool DoWhoisLookup(String strDomain, String strServer, out String strResponse) <br>   
49{ <br>   
50strResponse = "none"; <br>   
51bool bSuccess = false; <br>   
52<br>   
53TCPClient tcpc = new TCPClient(); <br>   
54if (0 == tcpc.Connect(strServer, 43)) <br>   
55{ <br>   
56strDomain += "\r\n"; <br>   
57Byte[] arrDomain = Encoding.ASCII.GetBytes(strDomain.ToCharArray()); <br>   
58try <br>   
59{ <br>   
60String str; <br>   
61Stream s = tcpc.GetStream(); <br>   
62s.Write(arrDomain, 0, strDomain.Length); <br>   
63<br>   
64StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.Default); <br>   
65StringBuilder strBuilder = new StringBuilder(); <br>   
66while (-1 != sr.Peek()) <br>   
67{ <br>   
68strBuilder.Append(sr.ReadLine()+"<br>"); <br>   
69<br>   
70} <br>   
71tcpc.Close(); <br>   
72<br>   
73bSuccess = true; <br>   
74strResponse = strBuilder.ToString(); <br>   
75} <br>   
76catch(Exception e) <br>   
77{ <br>   
78strResponse = e.ToString(); <br>   
79} <br>   
80<br>   
81return bSuccess; <br>   
82} <br>   
83else <br>   
84{ <br>   
85strResponse = "Could not connect to Whois server"; <br>   
86return false; <br>   
87} <br>   
88<br>   
89return false; <br>   
90} <br>   
91</script>
1<br/>
 1<html> <br/>
 2<head> <br/>
 3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/> <br/>
 4<title></title> <br/>
 5</head> <br/>
 6<body> <br/>
 7<br/>
 8<form runat="server"> <br/>   
 9Domain name: WWW . <asp:textbox id="txtDomain" runat="server" value=""></asp:textbox> <br/>
10<asp:button id="btnQuery" onclick="doQuery" runat="server" text="Query!"></asp:button> <br/>
11<br/><hr width="100%"/><br/> <br/>
12<asp:label id="txtResult" runat="server"></asp:label> <br/>
13</form> <br/>
14<br/>
15</body> <br/>
16</html>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus