asp+初体验---用c#写的asp+域名查询程序
点击次数：23 次 发布日期：2008-11-26 23:11:35 作者：源代码网
|
源代码网推荐终于有时间可以学点新东西了，今天大略看了一下有关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 += " "; 源代码网推荐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> 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐原作者：不详 源代码网推荐来 源：不详 源代码网推荐 源代码网推荐 源代码网推荐 源代码网供稿. |
