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

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      用ASP.Net編寫的查詢域名的程序
                
                  發表時間：2024-02-06             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]這段程序最早是bigengle兄弟貼在chinaasp上的，是個很不錯的程序來講解ASP.Net的高級應用。不過最大的缺點就是查詢中國域名時不支持中文，所出來的信息中文不能顯示，小弟我稍微改了一下，這個已經能夠支持中文了。呵呵，關于這個例子，我在國外的站點上放了了一個大家可以看 <br>...
      這段程序最早是bigengle兄弟貼在chinaasp上的，是個很不錯的程序來講解ASP.Net的高級應用。不過最大的缺點就是查詢中國域名時不支持中文，所出來的信息中文不能顯示，小弟我稍微改了一下，這個已經能夠支持中文了。呵呵，關于這個例子，我在國外的站點上放了了一個大家可以看 <br>
      <br>
      http://aspx1.brinkster.com/feidao/named.aspx <br>
      <br>
      這個主機是國外的，所以對中文支持不太好(原因我在《親密接觸ASP.net》中說得很清楚)，大家如果看不到中文，請用選擇IE中的"編碼"---"簡體中文". <br>
      <br>
      下面是源程序。 <br>
      <br>
      <% @ Page Language="C#" %> <br>
      <% @ Assembly Name="System.Net" %> <br>
      <% @ Import Namespace="System.Net.Sockets" %> <br>
      <% @ Import Namespace="System.Text" %> <br>
      <% @ Import Namespace="System.IO" %> <br>
      <% @ Import Namespace="System.Collections" %> <br>
      <script language="C#" runat="server"> <br>
      void doQuery(Object sender, EventArgs e) <br>
      { <br>
      String strDomain = txtDomain.Text; <br>
      char[] chSplit = {'.'}; <br>
      string[] arrDomain = strDomain.Split(chSplit); <br>
      <br>
      int nLength = arrDomain[1].Length ; <br>
      Hashtable table = new Hashtable(); <br>
      table.Add("de", "whois.denic.de"); <br>
      table.Add("be", "whois.dns.be"); <br>
      table.Add("gov", "whois.nic.gov"); <br>
      table.Add("mil", "whois.nic.mil"); <br>
      <br>
      String strServer ; //define whois server <br>
      //if the domainname's end is cn then the server is cnnic ,otherwise is networksolutions <br>
      if (arrDomain[arrDomain.Length - 1] == "cn") <br>
      { <br>
      strServer = "159.226.6.139" ; <br>
      } <br>
      else <br>
      { <br>
      strServer = "whois.networksolutions.com"; <br>
      } <br>
      <br>
      if (table.ContainsKey(arrDomain[1])) <br>
      { <br>
      strServer = table[arrDomain[1]].ToString(); <br>
      } <br>
      else if (nLength == 2) <br>
      { <br>
      // 2-letter TLD's always default to RIPE in Europe <br>
      strServer = "whois.ripe.net"; <br>
      } <br>
      <br>
      String strResponse; <br>
      bool bSuccess = DoWhoisLookup(strDomain, strServer, out strResponse); <br>
      if (bSuccess) <br>
      { <br>
      txtResult.Text = strResponse; <br>
      } <br>
      else <br>
      { <br>
      txtResult.Text = "Lookup failed"; <br>
      } <br>
      } <br>
      <br>
      bool DoWhoisLookup(String strDomain, String strServer, out String strResponse) <br>
      { <br>
      strResponse = "none"; <br>
      bool bSuccess = false; <br>
      <br>
      TCPClient tcpc = new TCPClient(); <br>
      if (0 == tcpc.Connect(strServer, 43)) <br>
      { <br>
      strDomain += "\r\n"; <br>
      Byte[] arrDomain = Encoding.ASCII.GetBytes(strDomain.ToCharArray()); <br>
      try <br>
      { <br>
      String str; <br>
      Stream s = tcpc.GetStream(); <br>
      s.Write(arrDomain, 0, strDomain.Length); <br>
      <br>
      StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.Default); <br>
      StringBuilder strBuilder = new StringBuilder(); <br>
      while (-1 != sr.Peek()) <br>
      { <br>
      strBuilder.Append(sr.ReadLine()+"<br>"); <br>
      <br>
      } <br>
      tcpc.Close(); <br>
      <br>
      bSuccess = true; <br>
      strResponse = strBuilder.ToString(); <br>
      } <br>
      catch(Exception e) <br>
      { <br>
      strResponse = e.ToString(); <br>
      } <br>
      <br>
      return bSuccess; <br>
      } <br>
      else <br>
      { <br>
      strResponse = "Could not connect to Whois server"; <br>
      return false; <br>
      } <br>
      <br>
      return false; <br>
      } <br>
      </script> <br>
      <html> <br>
      <head> <br>
      <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <br>
      <title></title> <br>
      </head> <br>
      <body> <br>
      <br>
      <form runat="server"> <br>
      Domain name: WWW . <asp:TextBox id="txtDomain" value="" runat="server" /> <br>
      <asp:Button id="btnQuery" OnClick="doQuery" text="Query!" runat="server" /> <br>
      <BR><HR width="100%"><BR> <br>
      <asp:label id="txtResult" runat="server" /> <br>
      </form> <br>
      <br>
      </body> <br>
      </html>



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