<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      用c#寫的asp+域名查詢程序

      [摘要]終于有時間可以學點新東西了,今天大略看了一下有關asp+的資料,并且寫了個域名查詢的頁面,感覺很不錯,asp+比起asp來進步實在是太大了,盡管用asp+組件也能實現域名查詢的功能,并且前幾天我用v...
      終于有時間可以學點新東西了,今天大略看了一下有關asp+的資料,并且寫了個域名查詢的頁面,感覺很不錯,asp+比起
      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[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 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[1]))
      {
      strServer = table[arrDomain][1]].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





      日韩精品一区二区三区高清