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

生成静态页的方法有很多种，我比较喜欢用xmlhttp的方法生成，因为我不用考虑很多东西，我只要把动态的asp页面编写好就行了。

<％
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
％>