发信人: dongbao()
整理人: dongbao(2000-11-10 16:49:36), 站内信件
|
<% @Page Language="C#" %><% @Assembly Name="System.Net" %><% @Import N
amespace="System.Net.Sockets" %><% @Import Namespace="System.Text" %><
% @Import Namespace="System.IO" %><% @Import Namespace="System.Collect
ions" %><script language="C#" runat="server">void doQuery(Object sende
r, EventArgs e){ String strDomain = txtDomain.Text; char[] chSplit =
{'.'}; string[] arrDomain = strDomain.Split(chSplit); 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"); String s
trServer ; //定义 WhoIs Server //如果域名结尾是 cn ，服务器为
CNNIC，其他的用NetworkSolutions if (arrDomain[arrDomain.Length - 1]
== "cn") { strServer = "159.226.6.139" ; } else {
strServer = "whois.networksolutions.com"; } if (table.ContainsKey(
arrDomain[1])) { strServer = table[arrDomain[1]].ToString(); } e
lse if (nLength == 2) { // 2-letter TLD's always default to RIPE i
n Europe strServer = "whois.ripe.net"; } String strResponse; b
ool bSuccess = DoWhoisLookup(strDomain, strServer, out strResponse);
if (bSuccess) { txtResult.Text = strResponse; } else { txtRe
sult.Text = "对不起！查询失败！"; }}bool DoWhoisLookup(String strDoma
in, String strServer, out String strResponse){ strResponse = "none";
bool bSuccess = false; TCPClient tcpc = new TCPClient(); if (0 == t
cpc.Connect(strServer, 43)) { strDomain += "\r\n"; Byte[] arrD
omain = Encoding.ASCII.GetBytes(strDomain.ToCharArray()); try {
Stream s = tcpc.GetStream(); s.Write(arrDomain, 0, strDo
main.Length); StreamReader sr = new StreamReader(tcpc.GetSt
ream(), Encoding.ASCII); StringBuilder strBuilder = new StringB
uilder(); while (-1 != sr.Peek()) { strBuilder.
Append(sr.ReadLine()+"<br>"); } tcpc.Close();
bSuccess = true; strResponse = strBuilder.ToString(); }
catch(Exception e) { strResponse = e.ToString(); }
return bSuccess; } else { strResponse = "WhoIs服务器不能连通
"; return false; } return false;}</script><html><head><title></ti
tle></head><body><form runat="server">Domain name: WWW . <asp:TextBox
id="txtDomain" value="" runat="server" /> <asp:Button id="btnQuer
y" OnClick="doQuery" text="Query!" runat="server" /><BR><HR width="100
%"><BR><asp:label id="txtResult" runat="server" /></form></body></html
>
--
ICQ:43395237 OICQ:126132
我自豪我用正版，我骄傲我用盗版！！！
※ 来源:．月光程序代码网 http://www.moon-soft.com．[FROM: 202.108.7.193]
|
|