当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 用ASP.Net编写的查询域名的程序

ASP.NET
.net开发实例:绑定到ADO.NET数据源
vb.net中应用 ArrayList 实例
用.net 处理xmlHttp发送异步请求
编写ASP.NET应用程序的十大技巧
完全不使用配置文件构建和使用WCF服务
VB.net2008精彩实例,窗体应用技巧
VB.Net实现Web Service的基础
实用技巧:.Net框架类库中定时器类的使用
ASP.NET MVC:实现我们自己的视图引擎
基于ASP.NET MVC框架开发Web论坛应用程序
用VB.net2008打造你的影音播放器
如何使用.NET实现断点续传功能
如何用.NET技术在线生成网站LOGO
挖掘ADO.NET Entity框架的性能
编写ASP.NET应用程序的十大技巧 (1)
Asp.NET大文件上传开发总结集合
.net开发:如何为程式码加上行号
ASP.NET 中整合JavaScript技巧
浅谈.NET中加密和解密的实现方法
浅析ASP.NET 2.0 Client Callback

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 98 ::
收藏到网摘: n/a

这段程序最早是bigengle兄弟贴在chinaasp上的,是个很不错的程序来讲解ASP.Net的高级应用。不过最大的缺点就是查询中国域名时不支持中文,所出来的信息中文不能显示,小弟我稍微改了一下,这个已经能够支持中文了。呵呵,关于这个例子,我在国外的站点上放了了一个大家可以看 <br>
<br>
http://aspx1.brinkster.com/feidao/named.aspx <br>
<br>
这个主机是国外的,所以对中文支持不太好(原因我在《亲密接触ASP.net》中说得很清楚),大家如果看不到中文,请用选择IE中的"编码"---"简体中文". <br>
<br>
下面是源程序。 <br>
<br>
<% @ Page Language="C#" %> <br>
<% @ Assembly Name="System.Net" %> <br>
<% @ Import Namespace="System.Net.Sockets" %> <br>
<% @ Import Namespace="System.Text" %> <br>
<% @ Import Namespace="System.IO" %> <br>
<% @ Import Namespace="System.Collections" %> <br>
<script language="C#" runat="server"> <br>
void doQuery(Object sender, EventArgs e) <br>
{ <br>
String strDomain = txtDomain.Text; <br>
char[] chSplit = {'.'}; <br>
string[] arrDomain = strDomain.Split(chSplit); <br>
<br>
int nLength = arrDomain.Length ; <br>
Hashtable table = new Hashtable(); <br>
table.Add("de", "whois.denic.de"); <br>
table.Add("be", "whois.dns.be"); <br>
table.Add("gov", "whois.nic.gov"); <br>
table.Add("mil", "whois.nic.mil"); <br>
<br>
String strServer ; //define whois server <br>
//if the domainname's end is cn then the server is cnnic ,otherwise is networksolutions <br>
if (arrDomain[arrDomain.Length - 1] == "cn") <br>
{ <br>
strServer = "159.226.6.139" ; <br>
} <br>
else <br>
{ <br>
strServer = "whois.networksolutions.com"; <br>
} <br>
<br>
if (table.ContainsKey(arrDomain)) <br>
{ <br>
strServer = table[arrDomain].ToString(); <br>
} <br>
else if (nLength == 2) <br>
{ <br>
// 2-letter TLD's always default to RIPE in Europe <br>
strServer = "whois.ripe.net"; <br>
} <br>
<br>
String strResponse; <br>
bool bSuccess = DoWhoisLookup(strDomain, strServer, out strResponse); <br>
if (bSuccess) <br>
{ <br>
txtResult.Text = strResponse; <br>
} <br>
else <br>
{ <br>
txtResult.Text = "Lookup failed"; <br>
} <br>
} <br>
<br>
bool DoWhoisLookup(String strDomain, String strServer, out String strResponse) <br>
{ <br>
strResponse = "none"; <br>
bool bSuccess = false; <br>
<br>
TCPClient tcpc = new TCPClient(); <br>
if (0 == tcpc.Connect(strServer, 43)) <br>
{ <br>
strDomain += "\r\n"; <br>
Byte[] arrDomain = Encoding.ASCII.GetBytes(strDomain.ToCharArray()); <br>
try <br>
{ <br>
String str; <br>
Stream s = tcpc.GetStream(); <br>
s.Write(arrDomain, 0, strDomain.Length); <br>
<br>
StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.Default); <br>
StringBuilder strBuilder = new StringBuilder(); <br>
while (-1 != sr.Peek()) <br>
{ <br>
strBuilder.Append(sr.ReadLine()+"<br>"); <br>
<br>
} <br>
tcpc.Close(); <br>
<br>
bSuccess = true; <br>
strResponse = strBuilder.ToString(); <br>
} <br>
catch(Exception e) <br>
{ <br>
strResponse = e.ToString(); <br>
} <br>
<br>
return bSuccess; <br>
} <br>
else <br>
{ <br>
strResponse = "Could not connect to Whois server"; <br>
return false; <br>
} <br>
<br>
return false; <br>
} <br>
</script> <br>
<html> <br>
<head> <br>
<met