close
一把刀实用查询 一把刀实用查询
搜索

Search.asp


<% On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With Set Retrieval = Nothing End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function %> <% dns=request("dns") ext=request("ext") e=Split(ext,",") For i=0 To UBound(e) edns=dns & "." & trim(e(i)) url="http://www.checkdomain.com/cgi-bin/checkdomain.pl?domain="&edns wstr=getHTTPPage(url) if instr(lcase(wstr),"registered")>0 then response.write edns &":已被注册
" else response.write edns &":可以注册
" end if next %>




返回首页 | Mobile 移动版 | 传统版 Computer
2005-2017 v8.18 a-j-e-1