html5中文学习网

您的位置: 首页 > 网络编程 > ASP.NET » 正文

实例:用ASP.Net编写的查询域名的程序_.NET教程_编程技术

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

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

http://aspx1.brinkster.com/feidao/named.aspxzhRHTML5中文学习网 - HTML5先行者学习网

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

下面是源程序。zhRHTML5中文学习网 - HTML5先行者学习网

<% @ Page Language="C#" %>
<% @ Assembly Name="System.Net" %>
<% @ Import Namespace="System.Net.Sockets" %>
<% @ Import Namespace="System.Text" %>
<% @ Import Namespace="System.IO" %>
<% @ Import Namespace="System.Collections" %>
<script language="C#" runat="server">
void doQuery(Object sender, EventArgs e)
{
String strDomain = txtDomain.Text;
char[] chSplit = {'.'};
string[] arrDomain = strDomain.Split(chSplit);zhRHTML5中文学习网 - HTML5先行者学习网

int nLength = arrDomain[1].Length ;
Hashtable table = new Hashtable();
table.Add("de", "whois.denic.de");
table.Add("be", "whois.dns.be");
table.Add("gov", "whois.nic.gov");
table.Add("mil", "whois.nic.mil");zhRHTML5中文学习网 - HTML5先行者学习网

String strServer ; //define whois server
//if the domainname's end is cn then the server is cnnic ,otherwise is networksolutions
if (arrDomain[arrDomain.Length - 1] == "cn")
{
strServer = "159.226.6.139" ;
}
else
{
strServer = "whois.networksolutions.com";
}zhRHTML5中文学习网 - HTML5先行者学习网

if (table.ContainsKey(arrDomain[1]))
{
strServer = table[arrDomain[1]].ToString();
}
else if (nLength == 2)
{
// 2-letter TLD's always default to RIPE in Europe
strServer = "whois.ripe.net";
}zhRHTML5中文学习网 - HTML5先行者学习网

String strResponse;
bool bSuccess = DoWhoisLookup(strDomain, strServer, out strResponse);
if (bSuccess)
{
txtResult.Text = strResponse;
}
else
{
txtResult.Text = "Lookup failed";
}
}zhRHTML5中文学习网 - HTML5先行者学习网

bool DoWhoisLookup(String strDomain, String strServer, out String strResponse)
{
strResponse = "none";
bool bSuccess = false;zhRHTML5中文学习网 - HTML5先行者学习网

TCPClient tcpc = new TCPClient();
if (0 == tcpc.Connect(strServer, 43))
{
strDomain += "/r/n";
Byte[] arrDomain = Encoding.ASCII.GetBytes(strDomain.ToCharArray());
try
{
String str;
Stream s = tcpc.GetStream();
s.Write(arrDomain, 0, strDomain.Length);zhRHTML5中文学习网 - HTML5先行者学习网

StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.Default);
StringBuilder strBuilder = new StringBuilder();
while (-1 != sr.Peek())
{
strBuilder.Append(sr.ReadLine()+"<br>");zhRHTML5中文学习网 - HTML5先行者学习网

}
tcpc.Close();zhRHTML5中文学习网 - HTML5先行者学习网

bSuccess = true;
strResponse = strBuilder.ToString();
}
catch(Exception e)
{
strResponse = e.ToString();
}zhRHTML5中文学习网 - HTML5先行者学习网

return bSuccess;
}
else
{
strResponse = "Could not connect to Whois server";
return false;
}zhRHTML5中文学习网 - HTML5先行者学习网

return false;
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body>zhRHTML5中文学习网 - HTML5先行者学习网

<form runat="server">
Domain name: WWW . <asp:TextBox id="txtDomain" value="" runat="server" />
<asp:Button id="btnQuery" OnClick="doQuery" text="Query!" runat="server" />
<BR><HR width="100%"><BR>
<asp:label id="txtResult" runat="server" />
</form>zhRHTML5中文学习网 - HTML5先行者学习网

</body>
</html>zhRHTML5中文学习网 - HTML5先行者学习网

zhRHTML5中文学习网 - HTML5先行者学习网
zhRHTML5中文学习网 - HTML5先行者学习网
(责任编辑:)
推荐书籍
推荐资讯
关于HTML5先行者 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明 - 人才招聘 - 帮助