asp编译html

< %
if  SaveFile( " /htm/list.htm " , " http://www.xxx.com/asp/list.asp " )  then
 Response.write  " 已生成 "
else
 Response.write  " 没有生成 "
end   if

function  SaveFile(LocalFileName,RemoteFileUrl)
  Dim  Ads, Retrieval, GetRemoteData
  On   Error   Resume   Next
  Set  Retrieval  =  Server.CreateObject( " Microso "   &   " ft.XM "   &   " LHTTP " )
  With  Retrieval
  .Open  " Get " , RemoteFileUrl,  False ,  "" ,  ""
  .Send
  GetRemoteData  =  .ResponseBody
  End   With
  Set  Retrieval  =   Nothing
  Set  Ads  =  Server.CreateObject( " Ado "   &   " db.Str "   &   " eam " )
  With  Ads
  .Type  =   1
  .Open
  .Write GetRemoteData
  .SaveToFile Server.MapPath(LocalFileName),  2
  .Cancel()
  .Close()
  End   With
  Set  Ads = nothing
  if  err  <>   0   then
  SaveFile  =   false
  err.clear
  else
  SaveFile  =   true
  end   if
End function
% >

 
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>