杜伟滴BLOG

和老婆相识相处快10年了，依稀记得我们真正过过的情人节只有去年一次！不是我这个人不浪漫也不是因为这一天工作太忙没时间去陪老婆，每当情人节快要来临之前，偶都会提前精心策划一下怎么让老婆开心，可是1次2次每次都让偶失望，就如同今年又是一个无声的情人节！

‘==================================================
‘函数名：GetHttpPage
‘作 用：获取网页源码
‘参 数：HttpUrl ——网页地址
‘==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or Len(HttpUrl)<18 Or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If
Dim Http
Set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",HttpUrl,False
Http.Send()
If Http.Readystate<>4 then
Set Http=Nothing
GetHttpPage=”$False$”
Exit function
End if
GetHTTPPage=bytesToBSTR(Http.responseBody,”GB2312″)
Set Http=Nothing
If Err.number<>0 then
Err.Clear
End If
End Function