軟件下載
文件大小:
軟件介紹
<%
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 & "出錯(cuò)了,請返回!<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)">
點(diǎn)擊這里,開始注冊您的域名</a></p></font>
<% else %>
<font color="red"><br>很抱歉</font> 您想注冊的域名 <% =Domain %> 已經(jīng)被注冊了!<p></p>請您換個(gè)域名再試</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>以下是此域名的詳細(xì)注冊信息<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"">意外的錯(cuò)誤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"">意外的錯(cuò)誤!</font>"
d_exsit = 3
Exit Function
Else
pageend = pageend - pagestart 得到內(nèi)容長度
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
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 & "出錯(cuò)了,請返回!<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)">
點(diǎn)擊這里,開始注冊您的域名</a></p></font>
<% else %>
<font color="red"><br>很抱歉</font> 您想注冊的域名 <% =Domain %> 已經(jīng)被注冊了!<p></p>請您換個(gè)域名再試</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>以下是此域名的詳細(xì)注冊信息<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"">意外的錯(cuò)誤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"">意外的錯(cuò)誤!</font>"
d_exsit = 3
Exit Function
Else
pageend = pageend - pagestart 得到內(nèi)容長度
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
版權(quán)聲明:
1 本站所有資源(含游戲)均是軟件作者、開發(fā)商投稿,任何涉及商業(yè)盈利目的均不得使用,否則產(chǎn)生的一切后果將由您自己承擔(dān)!
2 本站將不對任何資源負(fù)法律責(zé)任,所有資源請?jiān)谙螺d后24小時(shí)內(nèi)刪除。
3 若有關(guān)在線投稿、無法下載等問題,請與本站客服人員聯(lián)系。
4 如侵犯了您的版權(quán)、商標(biāo)等,請立刻聯(lián)系我們并具體說明情況后,本站將盡快處理刪除,聯(lián)系QQ:2499894784
熱門軟件
- 千億體育手機(jī)版本v2.0.1 安卓版
- tplink物聯(lián)電腦版(原tplink安防) v2.12.17.
- Sandboxie Plus v1.9.8 / v5.64.8 開源電腦
- 字魂100號方方先鋒體字體包免費(fèi)版
- 奧維互動(dòng)地圖奧維地圖PC破解版VIP V9.0.6
- 蘭博對戰(zhàn)平臺(tái) V1.38.6 官方最新版 / 蘭博玩
- reWASD(Xbox One手柄映射工具) V6.0.1.5190
- mtool修改器 V2023.11 官方最新版 / mtool
- 115轉(zhuǎn)存助手ui優(yōu)化版腳本 V3.9.1 綠色免費(fèi)
- iSecure Center電腦客戶端 V1.5.0 官方版
最近更新
點(diǎn)擊加載更多評論>>