终于有时间可以学点新东西了，今天大略看了一下有关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 domainnames 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 TLDs 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>
【背景色
.text:''):(d.getSelection?d.getSelection():'');void(keyit=window.open('http://my.poco.cn/fav/storeIt.php?t='+escape(d.title)+'&u='+escape(d.location.href)+'&c='+escape(t)+'&img=http://www.h-strong.com/blog/logo.gif','keyit','scrollbars=no,width=475,height=575,status=no,resizable=yes'));keyit.focus();){kind=logo}
返回首页