📄 dns.aspx

📁 亲密接触ASP.Net
💻 ASPX
字号:
<% @ Page Language="C#" %>
<% @ Import Namespace="System.IO" %>
<% @ Import Namespace="System.Net.Sockets" %>
<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[1].Length ;

  string strServer ;         
  //如果是查询的是中国域名则改变目标服务器     
  if (arrDomain[arrDomain.Length - 1] == "cn")
  {
      //查询以.cn结尾的域名的Whois服务器
	  strServer = "drop.cnnic.net.cn" ;
  }    
  else
  {
	  //查询以.com结尾的域名的Whois服务器
	  strServer = "whois.onlinenic.com";
  }  
    
  
  string strResponse;
  //开始查询域名
  bool bSuccess = DoWhoisLookup(strDomain, strServer, out strResponse);
  if (bSuccess)
  {
    txtResult.Text = strResponse;
  }
  else
  {
    txtResult.Text = "查询失败";
  }
}

bool DoWhoisLookup(string strDomain, string strServer, out string strResponse)
{
  strResponse = "none";
  bool bSuccess = false;

  TcpClient tcpc = new TcpClient();
  try
  { 
    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()+"<br>");
        }
		
        tcpc.Close();
        
        bSuccess = true;
        strResponse = strBuilder.ToString();
    }
    catch(Exception e)
    {
        strResponse = e.ToString();
    }
    return bSuccess;
  }
  catch(Exception ee)
  {
    strResponse = "不能连接到查询服务器";
    return false;
  }
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<body>
<b>DNS域名查询</b>
<form runat="server">
<table>
<tr bgcolor="#aaaadd">
	<td>所查询的域名为:</td>	
	<td> WWW . <asp:TextBox id="txtDomain" value="" runat="server" /></td>
	<td><asp:Button id="btnQuery" OnClick="doQuery" text="查询" runat="server" /></td>
</tr>
<tr><td><br></td></tr>
<tr><td><b>查询结果</b></td></tr>
<tr><td Colspan=3><asp:label id="txtResult" ForeColor="red" Text="尚未查询" runat="server" />
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -