火之子

<%   
on  error  resume  next  
Set  myword  =  server.CreateObject("word.application")  
set  mydocument  =  myword.Documents.Open(server.MapPath("word.doc")  ,False,  True)  
mydocument.SaveAs("C:\test.htm",  8)  
mydocument.Close  
myword.quit  
Set  mydocument  =  nothing  
Set  myword  =  nothing   
%>