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

qq群121392131

qq群121392131

2016-01-29 13:51

用ASP.Net编写的查询域名的程序,用ASP.Net编写的查询域名的程序
这段程序最早是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 += "rn"; <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
展开更多 50%)
分享

猜你喜欢

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

电脑网络
用ASP.Net编写的查询域名的程序

用ASP.Net编写留言本

ASP
用ASP.Net编写留言本

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

用c#写的asp+域名查询程序

电脑网络
用c#写的asp+域名查询程序

用ASP解决域名登记查询

ASP
用ASP解决域名登记查询

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

实例编程:用ASP.Net和Access编写留言本

Web开发
实例编程:用ASP.Net和Access编写留言本

用ASP.Net写一个发送ICQ信息的程序

电脑网络
用ASP.Net写一个发送ICQ信息的程序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

教你如何在linux下建立mysql镜像数据库

教你如何在linux下建立mysql镜像数据库

.NET之ASP Web Application快速入门(5)

.NET之ASP Web Application快速入门(5)
下拉加载更多内容 ↓