代码如下
Function getHttpXML()
Set Http = ServerCreateObject("MsxmlServerXMLHTTP")
dim lResolvelConnectlSendlReceive
lResolve = *
lConnect = *
lSend = *
lReceive = *
HttpsetTimeouts lResolvelConnectlSendlReceive
Httpopen "POST""false 抓取需要生成html的页面
HttpSend()
if Httpreadystate = then str=timer()
if Httpreadystate = then str=timer()
if Httpreadystate <> then
exit Function
end if
if Httpreadystate = then str=timer()
getHttpXML=BytesToBstr(HttpresponseBody"utf")
getHttpXML=HttpresponseBody
getHttpXML=FormatNumber((strstr)/)
if errNumber<> then errClear
End Function
生成文件
Function SaveToFile()
Dim objStream
On Error Resume Next
Set objStream = ServerCreateObject("ADODBStream")
If ErrNumber= Then
ResponseWrite "
非常遗憾您的主机不支持ADODBStream不能使用本程序
"
ErrClear
ResponseEnd
End If
With objStream
Type =
Open
Charset = "utf"
write getHttpXML
SaveToFile ServerMapPath("indexhtml")
Close
End With
Set objStream = Nothing
End Function
call SaveToFile()
