您现在的位置：网页制作教程网 >> 网络编程 >> Asp教程 >> ASP实例教程 >> 文章正文

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

作者:动态网站…

来源:动态网站制作指南

热度:

2006-10-5 14:37:44

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

以下是引用片段：
<%
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

'处理二进制流代码
Function BytesToBstr(strBody,CodeBase)
        dim objStream
        set objStream = Server.CreateObject("Adodb.Stream")
        objStream.Type = 1
        objStream.Mode =3
        objStream.Open
        objStream.Write strBody
        objStream.Position = 0
        objStream.Type = 2
        objStream.Charset = CodeBase
        BytesToBstr = objStream.ReadText
        objStream.Close
        set objStream = nothing
End Function
%>

[1] [2] 下一页

我来说两句：

查看评论