【IT168技术文档】
终于有时间可以学点新东西了，今天大略看了一下有关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>
