C#編寫asp+淺談
作者：佚名
這里介紹C#編寫asp+，asp+比起asp來進步實在是太大了，前幾天我用vc寫過這么個組件，但用C#編寫asp+淺談簡單方便多了。
C#編寫asp+有很多可學的東西，這里主要介紹域名查詢的頁面，用C#編寫asp+淺談組件也能實現域名查詢的功能。
終于有時間可以學點新東西了，今天大略看了一下有關C#編寫asp+的資料，并且寫了個域名查詢的頁面，感覺很不錯，asp+比起asp來進步實在是太大了，盡管用C#編寫asp+淺談組件也能實現域名查詢的功能，并且前幾天我用vc寫過這么個組件，但用C#編寫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>
【編輯推薦】
責任編輯：佚名
來源：
IT168
