查看 ASP 域名的数据库连接接口

查看 ASP 域名的数据库连接接口。

<% 

 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("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="#" > 

 点击这里，开始注册您的域名</a></p></font> 

 <% else %> 

 <font color="red"><br>很抱歉</font> 您想注册的域名 <% =Domain %> 已经被注册了！<p></p>请您换个域名再试</font> 

 <form method="post" action="search.asp" name="checkdomain" id=Form1> 

 www.<input 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 

 Dim pagestart 

 Dim pageend 

 dim temps 

 pageafter = "<PRE>" 

 pagebefore = "</PRE>" 

 tempcontent = TakenHTML 

 if d_exsit<>0 then 

 pagestart = InStr(1,tempcontent, pageafter,1) 

 If pagestart = 0 Then 

 dowith = "<font color=""red"">意外的错误2!</font>" 

 d_exsit = 3 

 Exit Function 

 Else 

 pagestart = pagestart + Len(pageafter) + 1 

 pageend = InStr(pagestart, tempcontent, pagebefore,1) 

 If pageend = 0 Then 

 dowith = "<font color=""red"">意外的错误!</font>" 

 d_exsit = 3 

 Exit Function 

 Else 

 pageend = pageend - pagestart '得到内容长度 

 tempcontent = Mid(tempcontent, pagestart, pageend) 

 End If 

 End If 

 Set pageregexp = New RegExp 

 pageregexp.Global = True 

 pageregexp.Pattern = "<[^>]*>" 

 tempcontent = pageregexp.Replace(tempcontent, "") 

 Set pageregexp = Nothing 

 dowith = tempcontent 

 End If 

 End Function 

 %>

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!