利用XMLHTTP批量生成静态页的函数

<%
sub asp2html(aspFile,para,bId,eId,htmFile)
'aspFile　要转换的asp文件，可以如common/full.asp
'para asp文件后的参数,比如full.asp?wId=6,则para为wId
'bId 开始的id
'eId 结束的id
'htmFile 生成的静态页(html页) 的文件的前面部分，次函数将生成htmfile+id.htm形式的静态页,可以如common/htmlfile
dim Item_id,id,FileName,FilePath,asp_Url
For i=bId To eId
Item_id = i
if i=0 then
FileName = htmFile&".htm"
else
FileName = htmFile&Item_id&".htm"
end if
FilePath = Server.MapPath(FileName)
asp_Url = "http://"
asp_Url = asp_Url&Request.Servervariables("SERVER_NAME")&"/"&Aspfile
asp_Url = asp_Url&"?"& para &"="&Item_id
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",asp_Url,false
objXmlHttp.send()
Dim backData
backData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(backData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
response.Write(FileName&"生成成功")
response.Flush()
Next
end sub
%>