国际域名查询系统-实用查询：一点网-免费电子图书下载-免费赚钱-成功在线-健康生活

<% Option Explicit Dim Domain,jnkcHTML,jnkcOutPut Domain = Request("domain") If Domain & "x" = "x" Then jnkcHTML = "" Else jnkcHTML = GetDetail("http://www.networksolutions.com/cgi-bin/whois/whois?SearchType=do&STRING=" & Domain) '这里也可以换成其他查询网址，但是下面的判断也应作相应修改。 End If Function GetDetail(jnkcUrl) Dim jnkcXMLHTTP Set jnkcXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") jnkcXMLHTTP.Open "GET", jnkcUrl, False, "", "" jnkcXMLHTTP.Send GetDetail = jnkcXMLHTTP.ResponseText Set jnkcXMLHTTP = Nothing End Function If InStr(jnkcHTML,"Incorrect domain name query") > 1 Then jnkcOutPut = "请输入正确的域名格式，如： CSDN.NET" ElseIf InStr(jnkcHTML,"This name is available for registration") > 1 Or InStr(jnkcHTML,"No match") > 1 Then jnkcOutPut = Domain & " 没有被注册，你可以马上注册" ElseIf InStr(jnkcHTML,"Record expires on") > 1 Then jnkcOutPut = Domain & " 已经被注册，以下是该域名的注册信息：" jnkcOutPut = jnkcOutPut & GetInfo() ElseIf jnkcHTML = "" Then jnkcOutPut = "" Else jnkcOutPut = "域名服务器出错" End If Function GetInfo() Dim jnkcStart,jnkcEnd,jnkcLength jnkcStart = InStr(jnkcHTML,"") jnkcLength = jnkcEnd-jnkcStart+6 If jnkcStart*jnkcEnd*jnkcLength > 1 Then GetInfo = Mid(jnkcHTML,jnkcStart,jnkcLength) GetInfo = DelA(GetInfo) Else GetInfo = "发生未知错误" End If End Function Function DelA(jnkcValue) Dim jnkcRegExp Set jnkcRegExp = new RegExp jnkcRegExp.IgnoreCase = true jnkcRegExp.Global = True jnkcRegExp.Pattern = "(]*>)(.*)(<\/A>)" DelA = jnkcRegExp.Replace(jnkcValue,"$2") Set jnkcRegExp = Nothing End Function %> 国际域名查询系统-实用查询：一点网-免费电子图书下载-免费赚钱-成功在线-健康生活

和白菜一样价格的个人主机系统，火热促销中！ (凡通过一点网介绍成功注册，更有最低30元的优惠！QQ:49559331)

	设为主页
	收藏本站
	一点是谁

<%= jnkcOutPut %>

	↑图书top100
	↑音像top100
	↑时尚top100
	↑软件\游戏top100
	↑每日疯狂抢购

一点网-国际域名查询系统