ASP生成静态网页的方法

将现有的ASP页直接生成静态页，将会节省很多。
　　下面的例子是将、这三个动态页面，分别生成ndex1.htm,index2.htm,index3.htm存在根目录下面：
Code:
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp="

• "
• 
  
• For i=1 To 3
• 
  
• Html_Temp = Html_Temp&"
• "
  Item_Classid = i
  FileName = "Index"&Item_Classid&".htm"
  FilePath = Server.MapPath("/")&""&FileName
  Html_Temp = Html_Temp&FilePath&"
• "
• 
  
• Do_Url = "http://"
• 
  
• Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/main/index.asp"
• 
  
• Do_Url = Do_Url&"?Item_Classid="&Item_Classid
• 
  
• strUrl = Do_Url
• 
  
• dim objXmlHttp
• 
  
• set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
• 
  
• objXmlHttp.open "GET",strUrl,false
• 
  
• objXmlHttp.send()
• 
  
• Dim binFileData
• 
  
• binFileData = objXmlHttp.responseBody
• 
  
• Dim objAdoStream
• 
  
• set objAdoStream = Server.CreateObject("ADODB.Stream")
• 
  
• objAdoStream.Type = 1
• 
  
• objAdoStream.Open()
• 
  
• objAdoStream.Write(binFileData)
• 
  
• objAdoStream.SaveToFile FilePath,2
• 
  
• objAdoStream.Close()
• 
  
• Next
• 
  
• Html_Temp = Html_Temp&"
  • "
  • 
    
  • %>
  • 
    
  • Response.Write ( "成功生成文件：" )
  • 
    
  • Response.Write ( "
  • 
    
  • " )
  • 
    
  • Response.Write Html_Temp
  • 
    
  • %> 

最后说明一下,这种方法比较笨,可自定义模板再生成,这样可以减轻服务器的负担.