|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
去年写的了,是从点缀的博客学来的 MHJLinux联盟
看演示请点这里:http://www.aspxboy.com/whois.aspx MHJLinux联盟
代码如下: MHJLinux联盟
<% @Page Language="C#" %> MHJLinux联盟
<% @Import Namespace="System.Net.Sockets" %> MHJLinux联盟
<% @Import Namespace="System.Text" %> MHJLinux联盟
<% @Import Namespace="System.IO" %> MHJLinux联盟
<html> MHJLinux联盟
<head> MHJLinux联盟
<title>.Com/.Net/.Org/.Cn 域名Whois信息查询</title> MHJLinux联盟
<meta name="keywords" content=".Com,.Net,.Org,.Cn 域名Whois信息查询"> MHJLinux联盟
<meta name="generator" content=".Com/.Net/.Org,.Cn 域名Whois信息查询"> MHJLinux联盟
<meta name="description" content=".Com/.Net/.Org,.Cn 域名Whois信息查询"> MHJLinux联盟
<style> MHJLinux联盟
<!-- MHJLinux联盟
body,input{ MHJLinux联盟
font-family: Tahoma, Verdana; color: #004080; font-size: 12px MHJLinux联盟
} MHJLinux联盟
a:link,a:visited{ MHJLinux联盟
text-decoration: none; color: #004080 MHJLinux联盟
} MHJLinux联盟
--> MHJLinux联盟
</style> MHJLinux联盟
</head> MHJLinux联盟
<body> MHJLinux联盟
<form id="fmQuery" runat="server"> MHJLinux联盟
要查询的域名域名: MHJLinux联盟
www.<asp:TextBox id="txtDomain" width="100" value="ASPXBOY.COM" runat="server" /> MHJLinux联盟
<asp:Button id="btnQuery" OnClick="btn_click" MHJLinux联盟
text="查询!" runat="server" />（只能查询.Com/.Net/.Org/.Cn 域名Whois的信息） <a href ="WhoisCode.htm" title="View the source code here!">源代码在这里</a> MHJLinux联盟
<BR><HR width="550" height="1" align="left"><BR> MHJLinux联盟
<asp:label id="lblResult" runat="server" /> MHJLinux联盟
</form> MHJLinux联盟
</body> MHJLinux联盟
</html> MHJLinux联盟
<script language="C#" runat="server"> MHJLinux联盟
void btn_click(Object sender, EventArgs e) MHJLinux联盟
{ MHJLinux联盟
String strServer; MHJLinux联盟
String strDomain = txtDomain.Text; MHJLinux联盟
String strServerCom = "whois.networksolutions.com"; MHJLinux联盟
String strServerCN = "whois.cnnic.net.cn"; MHJLinux联盟
String strResponse; MHJLinux联盟
string[] arrDomain = strDomain.Split('.'); MHJLinux联盟
if (arrDomain[1].ToUpper()=="CN") MHJLinux联盟
{ MHJLinux联盟
MHJLinux联盟
strServer=strServerCN; MHJLinux联盟
} MHJLinux联盟
else MHJLinux联盟
{ MHJLinux联盟
strServer=strServerCom; MHJLinux联盟
} MHJLinux联盟
MHJLinux联盟
bool blSuccess = IsWhosisSuccess(strDomain, strServer, out strResponse); MHJLinux联盟
if (blSuccess) MHJLinux联盟
{ MHJLinux联盟
lblResult.Text = strResponse; MHJLinux联盟
} MHJLinux联盟
else MHJLinux联盟
{ MHJLinux联盟
lblResult.Text = "查找失败...."; MHJLinux联盟
} MHJLinux联盟
} MHJLinux联盟
bool IsWhosisSuccess(String strDomain, String strServer, MHJLinux联盟
out String strResponse) MHJLinux联盟
{ MHJLinux联盟
strResponse = "none"; MHJLinux联盟
bool blSuccess = false; MHJLinux联盟
TcpClient tcpc = new TcpClient(); MHJLinux联盟
try MHJLinux联盟
{ MHJLinux联盟
tcpc.Connect(strServer, 43); MHJLinux联盟
} MHJLinux联盟
catch(SocketException ex) MHJLinux联盟
{ MHJLinux联盟
strResponse = "连接不到该 Whois server,请稍后再试。"; MHJLinux联盟
return false; MHJLinux联盟
} MHJLinux联盟
MHJLinux联盟
strDomain += "\r\n"; MHJLinux联盟
Byte[] arrDomain = Encoding.UTF8.GetBytes(strDomain.ToCharArray()); MHJLinux联盟
try MHJLinux联盟
{ MHJLinux联盟
Stream s = tcpc.GetStream(); MHJLinux联盟
s.Write(arrDomain, 0, strDomain.Length); MHJLinux联盟
MHJLinux联盟
StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.UTF8); MHJLinux联盟
StringBuilder strBuilder = new StringBuilder(); MHJLinux联盟
string strLine = null; MHJLinux联盟
MHJLinux联盟
while (null != (strLine = sr.ReadLine())) MHJLinux联盟
{ MHJLinux联盟
strBuilder.Append(strLine+"<br>"); MHJLinux联盟
} MHJLinux联盟
tcpc.Close(); MHJLinux联盟
MHJLinux联盟
blSuccess = true; MHJLinux联盟
string my="Go to Huobazi's WebSite：<a href=\"http://www.aspxboy.com\" title=\".Net男孩社区\">www.AspxBoy.Com</a><br>"; MHJLinux联盟
strResponse = strBuilder.ToString()+my; } MHJLinux联盟
catch(Exception e) MHJLinux联盟
{ MHJLinux联盟
strResponse = e.ToString(); MHJLinux联盟
} MHJLinux联盟
MHJLinux联盟
return blSuccess; MHJLinux联盟
} MHJLinux联盟
</script> MHJLinux联盟
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
