人人做人人澡人人爽欧美,国产主播一区二区,久久久精品五月天,羞羞视频在线观看免费

當前位置:蘿卜系統下載站 > 技術開發教程 > 詳細頁面

用ASP.Net編寫的查詢域名的程序

用ASP.Net編寫的查詢域名的程序

更新時間:2022-08-27 文章作者:未知 信息來源:網絡 閱讀次數:

這段程序最早是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>

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

網站地圖xml | 網站地圖html
主站蜘蛛池模板: 阳信县| 维西| 卢氏县| 桐乡市| 红河县| 蕲春县| 万载县| 滕州市| 龙泉市| 专栏| 灵武市| 开平市| 泗阳县| 赫章县| 临武县| 塘沽区| 宜章县| 福泉市| 无锡市| 封开县| 双牌县| 武定县| 宝清县| 襄樊市| 渭源县| 临西县| 大港区| 瓮安县| 德阳市| 陆河县| 永修县| 休宁县| 吕梁市| 门源| 德钦县| 建瓯市| 天镇县| 富川| 云安县| 洪洞县| 晴隆县|