以下是代码：
<%
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
上一条: 2015年全球网站设计趋势全预测
下一条: 怎样做好网页，增大网页的浏览量
