ASP.NET域名查询系统

asp.net|查询系统

<% @Page Language="C#" %>
<% @Import Namespace="System.Net.Sockets" %>
<% @Import Namespace="System.Text" %>
<% @Import Namespace="System.IO" %>
<html>
<head>
<title>.Com/.Net/.Org/.Cn 域名Whois信息查询</title>
<meta name="keywords" content=".Com,.Net,.Org,.Cn 域名Whois信息查询">
<meta name="generator" content=".Com/.Net/.Org,.Cn 域名Whois信息查询">
<meta name="description" content=".Com/.Net/.Org,.Cn 域名Whois信息查询">
<style>
<!--
body,input{
font-family: Tahoma, Verdana; color: #004080; font-size: 12px
}
a:link,a:visited{
text-decoration: none; color: #004080
}
-->
</style>
</head>
<body>
<form id="fmQuery" runat="server">
 要查询的域名域名:
www.<asp:TextBox id="txtDomain" width="100" value="ASPXBOY.COM" runat="server" />
  <asp:Button id="btnQuery" OnClick="btn_click"
text="查询!" runat="server" />(只能查询.Com/.Net/.Org/.Cn 域名Whois的信息)      <a href ="WhoisCode.htm" title="View the source code here!">源代码在这里</a>
<BR><HR width="550" height="1" align="left"><BR>
<asp:label id="lblResult" runat="server" />
</form>
</body>
</html>
<script language="C#" runat="server">
void btn_click(Object sender, EventArgs e)
{
String strServer;
String strDomain = txtDomain.Text;
String strServerCom = "whois.networksolutions.com";
String strServerCN = "whois.cnnic.net.cn";
String strResponse;
string[] arrDomain = strDomain.Split('.');
if (arrDomain[1].ToUpper()=="CN")
{

strServer=strServerCN;
}
else
{
strServer=strServerCom;
}

bool blSuccess = IsWhosisSuccess(strDomain, strServer, out strResponse);
if (blSuccess)
{
lblResult.Text = strResponse;
}
else
{
lblResult.Text = "查找失败....";
}
}
bool IsWhosisSuccess(String strDomain, String strServer,
out String strResponse)
{
strResponse = "none";
bool blSuccess = false;
TcpClient tcpc = new TcpClient();
try
{
tcpc.Connect(strServer, 43);
}
catch(SocketException ex)
{
strResponse = "连接不到该 Whois server,请稍后再试。";
return false;
}

strDomain += "\r\n";
Byte[] arrDomain = Encoding.UTF8.GetBytes(strDomain.ToCharArray());
try
{
Stream s = tcpc.GetStream();
s.Write(arrDomain, 0, strDomain.Length);

StreamReader sr = new StreamReader(tcpc.GetStream(), Encoding.UTF8);
StringBuilder strBuilder = new StringBuilder();
string strLine = null;

while (null != (strLine = sr.ReadLine()))
{
strBuilder.Append(strLine+"<br>");
}
tcpc.Close();

blSuccess = true;
string my="Go to Huobazi's WebSite:<a href=\"http://www.aspxboy.com\" title=\".Net男孩社区\">www.AspxBoy.Com</a><br>";
strResponse = strBuilder.ToString()+my; }
catch(Exception e)
{
strResponse = e.ToString();
}

return blSuccess;
}
</script>

时间: 2024-10-31 13:06:16

ASP.NET域名查询系统的相关文章

用ASP做一个域名查询系统

查询系统|查询系统 开发这样一个域名查询系统其实是一件很容易的事情,只要我们能够让使用者进行查询后得出结果,看看自己输入的域名是不是被别人占用了就可以,如果没有被占用我们就可以自行去申请了.<%On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path)        t = GetBody(Path)  getHTTPPage=BytesToBstr(t,"GB2312")End funct

新手初练:用ASP做一个域名查询系统

开发这样一个域名查询系统其实是一件很容易的事情,只要我们能够让使用者进行查询后得出结果,看看自己输入的域名是不是被别人占用了就可以,如果没有被占用我们就可以自行去申请了. <%On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path)        t = GetBody(Path)  getHTTPPage=BytesToBstr(t,"GB2312")End functionFuncti

域名查询系统--适合新手

查询系统 <%On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312")End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTT

使用XMLHTTP制作域名查询系统

<%On Error Resume NextServer.ScriptTimeOut=9999999Function getHTTPPage(Path)        t = GetBody(Path)  getHTTPPage=BytesToBstr(t,"GB2312")End function Function GetBody(url)         on error resume next        Set Retrieval = CreateObject(&quo

PHP+AJAX实现的国际域名查询系统开发实例教程

PHP+AJAX 域名查询预备知识 本查询系统利用 PHP 和 JQUery 的 Ajax 功能实现了对域名信息的查询(这里主要实现了域名是否已经注册的查询).系统主要用到了万网提供的域名查询 API 接口,相关知识点罗列如下:     JQUery Ajax 的实现:这部分内容具体可以参见 JQuery API 文档或本站即将推出的<JQUery 教程>.     file_get_contents 函数:把整个文件读入一个字符串,这里用于读取一个网页(万网 API 返回结果页面).    

用ASP亲手打造域名查询系统

查询系统|域名查询 一.原理: 原理非常简单,域名的查询主要是基于RFC 954提供的WHOIS协议.在实现过程中,我们通过自己的WEB服务器访问NIC站点的WHOIS数据库服务器,从WHOIS数据库中查询我们所需要的内容,然后通过ASP组合成网页回送给客户端. 同时,我们使用xmlHttp协议实现客户端网页无刷新效果以及向服务端提出检索WHOIS数据的要求. 具体流程为:客户端通过xmlhttp提出域名查询要求-->WEB服务器中的ASP侦听页接受请求后使用xmlhttp向WHOIS服务器发送

asp空间奸商查询系统_应用技巧

看到很多朋友无缘无故的被骗,特发布此查询系统,以免再次上当! 使用方法非常简单: 直接输入对方的域名或者网站名称,支持中英文!点查询即可 复制代码 代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% On Error Resume Next ff="垃圾,是垃圾,骗子,无耻,不要买,骗钱,垃圾空间,垃圾中的极品,垃圾中的垃圾,经常掉线,无缘无故的关闭" if Request.Form

PHP写的域名查询系统whois

查询系统 <?PHP if ($domain) { if ($domain) { $fp = fsockopen( "rs.internic.net", 43, &$errno, &$errstr, 10); if (!$fp) { echo "$errstr ($errno)n"; } else { fputs($fp, "$domainrn"); while(!feof($fp)) { $buf = fgets($fp,

asp下多个域名后缀同时查询的域名查询系统_应用技巧

写的很简单,只是实现了功能 <% Function formaturl(yes)  If mid(yes,5,1)<>"" then  yes1 = left(yes,3)  yes2 = right(yes,cint(len(yes))-3)  formaturl = yes1 & "." & yes2  else  formaturl=yes  end if End Function  '取得远程网页二进制源代码 Functio