首页 相关文章 多个域名后缀同时查询的域名查询系统

多个域名后缀同时查询的域名查询系统

写的很简单,只是实现了功能

<%
Function formaturl(yes)
If mid(yes,5,1)<"" then
yes1 = left(yes,3)
yes2 = right(yes,cint(len(yes))-3)
formaturl = yes1 & "." & yes2
else
formaturl=yes
end if
End Function
'取得远程网页二进制源代码
Function getBoy(url)
'on error resume next
Set objXml = Server.CreateObject("Microsoft.XmlHttp")
with objXml
.open "get",url,false,"",""
.send
getBoy = .responsebody
end with
getBoy = BytesToBstr(GetBoy,"GB2312")
Set objXml = nothing
end function

[ 查看全文 ]

2016-01-29 标签:

多个域名后缀同时查询的域名查询系统的相关文章

手机页面
收藏网站 回到头部