C#编写asp+浅谈

C#编写asp+有很多可学的东西,这里主要介绍域名查询的页面,用C#编写asp+浅谈组件也能实现域名查询的功能。

成都创新互联专注于岱岳企业网站建设,成都响应式网站建设,商城开发。岱岳网站建设公司,为岱岳等地区提供建站服务。全流程定制网站建设,专业设计,全程项目跟踪,成都创新互联专业和态度为您提供的服务

终于有时间可以学点新东西了,今天大略看了一下有关C#编写asp+的资料,并且写了个域名查询的页面,感觉很不错,asp+比起asp来进步实在是太大了,尽管用C#编写asp+浅谈组件也能实现域名查询的功能,并且前几天我用vc写过这么个组件,但用C#编写asp+浅谈简单方便多了。好了,废话少提,看源码吧。

 
 
 
  1. <% @Page Language="C#" %> 
  2. <% @Assembly Name="System.Net" %> 
  3. <% @Import Namespace="System.Net.Sockets" %> 
  4. <% @Import Namespace="System.Text" %> 
  5. <% @Import Namespace="System.IO" %> 
  6. <% @Import Namespace="System.Collections" %> 
  7.  language="C#" runat="server"> 
  8. void doQuery(Object sender, EventArgs e)  
  9. {  
  10. String strDomain = txtDomain.Text;  
  11. char[] chSplit = {'.'};  
  12. string[] arrDomain = strDomain.Split(chSplit);  
  13.  
  14. int nLength = arrDomain[1].Length ;  
  15. Hashtable table = new Hashtable();  
  16. table.Add("de", "whois.denic.de");  
  17. table.Add("be", "whois.dns.be");  
  18. table.Add("gov", "whois.nic.gov");  
  19. table.Add("mil", "whois.nic.mil");  
  20.  
  21. String strServer ; //define whois server  
  22. //if the domainname's end is cn then the server is cnnic ,
    otherwise is networksolutions  
  23. if (arrDomain[arrDomain.Length - 1] == "cn")  
  24. {  
  25. strServer = "159.226.6.139" ;  
  26. }  
  27. else  
  28. {  
  29. strServer = "whois.networksolutions.com";  
  30. }  
  31.  
  32. if (table.ContainsKey(arrDomain[1]))  
  33. {  
  34. strServer = table[arrDomain][1]].ToString();  
  35. }  
  36. else if (nLength == 2)  
  37. {  
  38. // 2-letter TLD's always default to RIPE in Europe  
  39. strServer = "whois.ripe.net";  
  40. }  
  41.  
  42. String strResponse;  
  43. bool bSuccess = DoWhoisLookup(strDomain, strServer, out strResponse);  
  44. if (bSuccess)  
  45. {  
  46. txtResult.Text = strResponse;  
  47. }  
  48. else  
  49. {  
  50. txtResult.Text = "Lookup failed";  
  51. }  
  52. }  
  53.  
  54. bool DoWhoisLookup(String strDomain, String strServer, out String strResponse)  
  55. {  
  56. strResponse = "none";  
  57. bool bSuccess = false;  
  58.  
  59. TCPClient tcpc = new TCPClient();  
  60. if (0 == tcpc.Connect(strServer, 43))  
  61. {  
  62. strDomain += "\r\n";  
  63. Byte[] arrDomain = Encoding.ASCII.GetBytes(strDomain.ToCharArray());  
  64. try  
  65. {  
  66. Stream s = tcpc.GetStream();  
  67. s.Write(arrDomain, 0, strDomain.Length);  
  68.  
  69. StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.ASCII);  
  70. StringBuilder strBuilder = new StringBuilder();  
  71. while (-1 != sr.Peek())  
  72. {  
  73. strBuilder.Append(sr.ReadLine()+"
    ");  
  74. }  
  75. tcpc.Close();  
  76.  
  77. bSuccess = true;  
  78. strResponse = strBuilder.ToString();  
  79. }  
  80. catch(Exception e)  
  81. {  
  82. strResponse = e.ToString();  
  83. }  
  84.  
  85. return bSuccess;  
  86. }  
  87. else  
  88. {  
  89. strResponse = "Could not connect to Whois server";  
  90. return false;  
  91. }  
  92.  
  93. return false;  
  94. }  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  runat="server"> 
  103. Domain name: WWW .  id="txtDomain" value="" runat="server" /> 
  104.  id="btnQuery" OnClick="doQuery" text="Query!" runat="server" /> 

  105.  width="100%">
     
  106.  id="txtResult" runat="server" /> 
  107.  
  108.  
  109.  
  110.   

文章名称:C#编写asp+浅谈
当前地址:http://www.36103.cn/qtweb/news25/5275.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联