asp版域名查询的数据库接口
程序员文章站
2024-02-06 13:10:52
<% on error resume next  ...
<%
on error resume next
private d_exsit
dim retrieval
dim domain
dim takenhtml
function geturl(url)
set retrieval = server.createobject("microsoft.xmlhttp")
with retrieval
.open "get", url, false, "", ""
.send
geturl = .responsetext
end with
set retrieval = nothing
end function
domain = replace(request.form("domain"),"www.","") & "." & request.form("ext")
if domain=".com" or request.form("domain")="" then
response.write ("<script>alert(看看您什么忘记填写了?没有填写域名吧?);javascript:history.back(1)</script>")
response.end
end if
takenhtml = geturl("http://www.internic.net/cgi/whois?whois_nic="&domain&"&type=domain")
takenhtml = geturl("?action=whois&domain">http://www.china-channel.com/checkdomain.asp?action=whois&domain=" & domain)
d_exsit=1
if instr(takenhtml,"no entries") > 1 then
response.write domain & "出错了,请返回!<br><br>"
else
if instr(takenhtml,"no match") > 1 then %>
祝贺您,您想注册的域名 <% =domain %> 还没有被注册<p><a href="#" onclick="mm_openbrwindow(../formmail/domain.htm,,scrollbars=auto,width=500,height=500)">
点击这里,开始注册您的域名</a></p></font>
<% else %>
<font color="red"><br>很抱歉</font> 您想注册的域名 <% =domain %> 已经被注册了!<p></p>请您换个域名再试</font>
<form method="post" action="search.asp" name="checkdomain" id=form1>
type="text" name="domain" id=text1>
<select name="ext" id=select1>
<option value="com" selected>.com</option>
<option value="net">.net</option>
<option value="org">.org</option>
<option value="com.cn">.com.cn</option>
<option value="net.cn">.net.cn</option>
<option value="org.cn">.org.cn</option>
<option value="cc">.cc</option>
<option value="tv">.tv</option>
<option value="biz">.biz</option>
<option value="info">.info</option>
</select>
<input type="submit" name="submit" value="查询" id=submit1 onclick = "return submitchecken();">
</form>以下是此域名的详细注册信息<br></font>
<table><tr><td><pre><% =dowith() %></pre></td></tr></table></font>
<% end if
end if
function dowith()
dim lstrurl
dim pagebefore
dim pageafter
dim tempcontent
&nb
on error resume next
private d_exsit
dim retrieval
dim domain
dim takenhtml
function geturl(url)
set retrieval = server.createobject("microsoft.xmlhttp")
with retrieval
.open "get", url, false, "", ""
.send
geturl = .responsetext
end with
set retrieval = nothing
end function
domain = replace(request.form("domain"),"www.","") & "." & request.form("ext")
if domain=".com" or request.form("domain")="" then
response.write ("<script>alert(看看您什么忘记填写了?没有填写域名吧?);javascript:history.back(1)</script>")
response.end
end if
takenhtml = geturl("http://www.internic.net/cgi/whois?whois_nic="&domain&"&type=domain")
takenhtml = geturl("?action=whois&domain">http://www.china-channel.com/checkdomain.asp?action=whois&domain=" & domain)
d_exsit=1
if instr(takenhtml,"no entries") > 1 then
response.write domain & "出错了,请返回!<br><br>"
else
if instr(takenhtml,"no match") > 1 then %>
祝贺您,您想注册的域名 <% =domain %> 还没有被注册<p><a href="#" onclick="mm_openbrwindow(../formmail/domain.htm,,scrollbars=auto,width=500,height=500)">
点击这里,开始注册您的域名</a></p></font>
<% else %>
<font color="red"><br>很抱歉</font> 您想注册的域名 <% =domain %> 已经被注册了!<p></p>请您换个域名再试</font>
<form method="post" action="search.asp" name="checkdomain" id=form1>
type="text" name="domain" id=text1>
<select name="ext" id=select1>
<option value="com" selected>.com</option>
<option value="net">.net</option>
<option value="org">.org</option>
<option value="com.cn">.com.cn</option>
<option value="net.cn">.net.cn</option>
<option value="org.cn">.org.cn</option>
<option value="cc">.cc</option>
<option value="tv">.tv</option>
<option value="biz">.biz</option>
<option value="info">.info</option>
</select>
<input type="submit" name="submit" value="查询" id=submit1 onclick = "return submitchecken();">
</form>以下是此域名的详细注册信息<br></font>
<table><tr><td><pre><% =dowith() %></pre></td></tr></table></font>
<% end if
end if
function dowith()
dim lstrurl
dim pagebefore
dim pageafter
dim tempcontent
&nb
下一篇: 用面向对象封装ASP中的cookie操作