最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp域名查询代码
时间:2008-05-28 编辑:简简单单 来源:一聚教程网
好了,我们来来看看提交查询页面
下面给看我们处理域名是否注册的代码.
<%
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
%>
-
上一个: post 与get区别
-
下一个: asp验证码源码
相关文章
- asp版的alexa 查询系统 02-20
- asp 搜狗评级 sogou 查询代码 01-06
- asp soso收录查询抓取代码 12-03
- asp yahoo收录与反链查询抓取代码 12-03
- asp 天气查询系统代码 03-23
- 初试WAP之wml+ASP查询 01-18