怎麼用asp把doc轉換成html

Documents.Add  "newdoc.doc"    
       ActiveDocument.SaveAs  FileName:="newdoc.htm",  FileFormat:=wdFormatHTML,  _  
               LockComments:=False,  Password:="",  AddToRecentFiles:=True,  WritePassword  _  
               :="",  ReadOnlyRecommended:=False,  EmbedTrueTypeFonts:=False,  _  
               SaveNativePictureFormat:=False,  SaveFormsData:=False,  SaveAsAOCELetter:=  _  
               False  
       ActiveWindow.View.Type  =  wdWebView  
---------------------------------------------------------------  
 
doc2html.vbs  
 
'**********************************************************  
'  
'        調用方法：doc2html  c:/doc2html  c:/doc2html  
'        調用方法：doc2html  -s  c:/doc2html/a.doc  c:/doc2html  
'  
'**********************************************************  
 
Dim  Objword  
Dim  Objdoc  
Dim  Objfso  
Dim  Strsource  
Dim  Strtarget  
Dim  Bbatch  
 
'得到命令列參數，有三種可能的格式：[-s]  要進行轉換的源檔案目錄或檔案  轉換成Html檔案後儲存的目錄  
Function  Getparams()  
Dim  Objarg  
         If  Wscript.Arguments.Count  >=  2  Then  
                   If    Wscript.Arguments.Item(0)  =  "-s"  Or  Wscript.Arguments.Item(0)  =  "-S"  Then  
                             Strsource  =  Wscript.Arguments.Item(1)  
                             Strtarget  =  Wscript.Arguments.Item(2)  
                             Bbatch  =  False  
                   Else  
                             Strsource  =  Wscript.Arguments.Item(0)  
                             Strtarget  =  Wscript.Arguments.Item(1)  
                             Bbatch  =  True  
                   End  If  
         Else  
                   Wscript.Quit(1)  
         End  If  
End  Function  
 
Function  Batchprocessing()  
Dim  Objfolder  
Dim  Objfile  
Dim  Lpos  
Dim  Strfilename  
         Lpos  =  0  
         Set  Objfolder  =  Objfso.Getfolder(Strsource)  
         For  Each  Objfile  In  Objfolder.Files  
                   Lpos  =  Instr(1,Mid(Objfile.Path,Len(Objfile.Path)  -  3,4),"Doc",1)  
                   If  Lpos  >  0  Then  
                             Strfilename  =  Objfso.Getbasename(Objfile.Path)  
                             Wordinterface  Objfile.Path,Strfilename  
                   End  If  
         Next  
End  Function  
 
 
Function  Singleprocessing()  
Dim  Objfile  
         Set  Objfile  =  Objfso.Getfile(Strsource)  
         Strfilename  =  Objfso.Getbasename(Objfile.Path)  
         Wordinterface  Objfile.Path,Strfilename  
End  Function  
 
Function  Wordinterface(Strfilename,Formattedfilename)  
         Objword.Documents.Open  Strfilename  
         Set  Objdoc  =  Objword.Activedocument  
         'Stop  
         'set  The  Title  Of  The  Document  To  Match  The  Filename  
         Objdoc.Builtindocumentproperties(1)  =  Formattedfilename  
         '1  =  Wdpropertytitle  In  Vba  
 
         Objdoc.Saveas  Strtarget  &  "/"  &  Formattedfilename  &  ".htm",8  
         'objdoc.Saveas  "C:/Doc2Html/"  &  Formattedfilename  &  ".htm",8  
         On  Error  Resume  Next  
         Objdoc.Close  
End  Function  
 
'stop  
Set  Objfso  =  Createobject("Scripting.FileSystemObject")  
Set  Objword  =  Createobject("Word.Application")  
Objword.Visible  =  False  
Call  Getparams  
 
If  Bbatch  Then  
         Call  Batchprocessing  
Else  
         Call  Singleprocessing  
End  If  
 
Objword.Quit  
Set  Objword  =  Nothing