<% 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 ("<scrjavascript:history.back(1)</script>") response.end end if 'TakenHTML = GetURL(" 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="#" 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> 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 %>
