繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 用c#写的asp+域名查询程序
- ASP.NET
- 调用另外一个同名的重载函数漏掉括号出现的严重问题
- DataGrid模板列应用：在DataGrid中用CheckBox控制TextBox的Enabled属性
- 使用存储过程的一个小例子
- .net中xmlhttp下载文件的方法参考
- 简单的c#文本文件读写
- 我的C#学习过程 第一天 安装
- 在数据库中开始一个事务。
- 用ASP.NETt实现简单的文字水印
- C/S系统中三层结构（Com/Com+）的测试成功实现
- VB 二进制块读写类模块应用实例，包括一个文件拷贝和一个文件二进制比较的例子。
- 扫雷程序“布雷”代码（vb）
- 关于网络连接状态的编程
- c#中ref和out参数使用时需要注意的问题
- use Assembly to call a method
- 在VBA中调用AUTOCAD打印文件
- 在VS.NET的
- 昨天折腾了一晚上，哪位高手帮我看看！急！
- Net是未来的趋势吗?
- 如何修改自定义Webpart 的标题(downmoon)
- [收藏]ASP.Net生成静态HTML页 选择自 coofucoo 的 Blog
ASP.NET 中的 用c#写的asp+域名查询程序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 203 ::
收藏到网摘: n/a
asp来进步实在是太大了，尽管用asp+组件也能实现域名查询的功能，并且前几天我用vc写过这么个组件，但用asp+简单方
便多了。好了，废话少提，看源码吧。
<% @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
{
Stream s = tcpc.GetStream();
s.Write(arrDomain, 0, strDomain.Length);
StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.ASCII);
StringBuilder strBuilder = new StringBuilder();
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 = "Could not connect to Whois server";
return false;
}
return false;
}
</script>
<html>
<head>
<title></title>
</head>
<body>
<form runat="server">
Domain name: WWW . <asp:TextBox id="txtDomain" value="" runat="server" />
<asp:Button id="btnQuery" OnClick="doQuery" text="Query!" runat="server" />
<BR><HR width="100%"><BR>
<asp:label id="txtResult" runat="server" />
</form>
</body>
</html>
from http://www.top888.net/zwcj/10-13/jc01.htm
评论 (0) All
