<% 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 &":已被注册<br>" else response.write edns &":可以注册<br>" end if next %>
|