28,391
社区成员
发帖
与我相关
我的任务
分享
'生成单个静态页面http://localhost/tea/Product.asp?ID=57
Function procedureHTML(Byval Do_Url, Byval htmlPath, Byval fileName)
On Error Resume Next
Dim objXmlHttp, binFileData, objAdoStream
Dim filePath
strUrl = Do_Url
'Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
'Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
'Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
objXmlHttp.open "GET", strUrl, false
objXmlHttp.send()
binFileData = objXmlHttp.responseBody
Set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
filePath = Server.MapPath(htmlPath) & "\"
objAdoStream.SaveToFile filePath & fileName, 2
objAdoStream.Close()
Set objAdoStream = Nothing
Set objXmlHttp = Nothing
procedureHTML = htmlPath & "/" & fileName & " 生成成功"
If Err Then
procedureHTML = htmlPath & fileName & " 生成失败"
Response.write "<br>错误描述:" & Err.Description & "<br>"
Err.Clear
Exit Function
End If
End Function