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

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

ASP.NET: Script：WINDOWS Script 枚举运行中进程; 使用Flex结合Webservice完成域名查询; VSTS Team System 总算装好了。; 用于部署数据库的数据库初始化工具 xzSQLDeploy Tools V1.0 （for SQLServer） f...; 一个将阿拉伯数字转换成中文大写的最简单算法; SCRIPT：使用Windows Script 关闭和打开指定程序; Script：使用WINDOWS脚本访问WEB SERVICES; asp.net连接Access数据库; VB中IIS Application发布可能出现的问题; VB打包后的安装问题; Nhibernate的数据分页技术（续）; 使用API函数复制文件，可显示进度。; VB打包技巧; VB.NET实现DirectSound9 (9) 实现示波器; VB.NET 实现DirectSound9 (10) 均衡器; [水晶报表部署系列之一]轻松搞定水晶报表9.2打包; DataGrid 中双向排序的一种办法; 利用System.EventHandler来实现两个窗体间的事件调用; 多线程应用程序中调用窗体的一点心得; Smart Client之旅一：用B/S方式运行Exe应用程序

No. « ‹ 147 148 149 150 › »

技术文章搜索

关键字

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

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 73 ::

收藏到网摘: n/a

用ASP.Net写一个发送ICQ信息的程序 .Net将如何影响我们？（一）

这段程序最早是bigengle兄弟贴在chinaasp上的，是个很不错的程序来讲解ASP.Net的高级应用。不过最大的缺点就是查询中国域名时不支持中文，所出来的信息中文不能显示，小弟我稍微改了一下，这个已经能够支持中文了。呵呵，关于这个例子，我在国外的站点上放了了一个大家可以看 
 
http://aspx1.brinkster.com/feidao/named.aspx 
 
这个主机是国外的，所以对中文支持不太好(原因我在《亲密接触ASP.net》中说得很清楚)，大家如果看不到中文，请用选择IE中的"编码"---"简体中文". 
 
下面是源程序。 
 
<% @ 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); 
 
int nLength = arrDomain.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"); 
 
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"; 
} 
 
if (table.ContainsKey(arrDomain)) 
{ 
strServer = table[arrDomain].ToString(); 
} 
else if (nLength == 2) 
{ 
// 2-letter TLD's always default to RIPE in Europe 
strServer = "whois.ripe.net"; 
} 
 
String strResponse; 
bool bSuccess = DoWhoisLookup(strDomain, strServer, out strResponse); 
if (bSuccess) 
{ 
txtResult.Text = strResponse; 
} 
else 
{ 
txtResult.Text = "Lookup failed"; 
} 
} 
 
bool DoWhoisLookup(String strDomain, String strServer, out String strResponse) 
{ 
strResponse = "none"; 
bool bSuccess = false; 
 
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); 
 
StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.Default); 
StringBuilder strBuilder = new StringBuilder(); 
while (-1 != sr.Peek()) 
{ 
strBuilder.Append(sr.ReadLine()+" "); 
 
} 
tcpc.Close(); 
 
bSuccess = true; 
strResponse = strBuilder.ToString(); 
} 
catch(Exception e) 
{ 
strResponse = e.ToString(); 
} 
 
return bSuccess; 
} 
else 
{ 
strResponse = "Could not connect to Whois server"; 
return false; 
} 
 
return false; 
} 
</script> 
<html> 
<head> 
<met

用ASP.Net写一个发送ICQ信息的程序 .Net将如何影响我们？（一）

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

评论 (0) All

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