在ASP中操作word

< HTML >  
< HEAD >  
< metaHTTP - EQUIV = " Content-Type " content = " text/html;charset=gb_2312-80 " >  
< linkrel = " stylesheet " type = " text/css " href = " edit.css " >  
< title > 保存为Word文档 </ title >  
</ HEAD >  
< scriptlanguage = " javascript " >  
window.returnValue = 0  
</ script >  
< BODY >  
< fontcolor = " #000080 " >< strong >< divid = " strHint " align = " center " > 数据处理中,请等待... 

Dataprocessing,pleasewait... </ div ></ strong ></ font >< fontcolor = " #0080C0 " >  


< scriptlanguage = " vbscript " >  

OnErrorResumeNext 

DimwApp 

SetwApp = CreateObject ( " Word.Application " ) 
IfErr.number > 0 Then  
Alert " 没法保存为Word文件,请正确安装Word97 "  
else  
wApp.visible = True  
wApp.Documents.add 

wApp.Selection.TypeParagraph 
wApp.Selection.Font.Bold = True  
wApp.Selection.TypeText " ASP维护工作意见 "  

wApp.Selection.ParagraphFormat.Alignment = 1  
rem居中 

wApp.Selection.TypeParagraph 
wApp.Selection.Font.Bold = false  

wApp.Selection.TypeText " --飞鸟 "  

wApp.Selection.TypeParagraph 

wApp.Selection.ParagraphFormat.LeftIndent = wApp.CentimetersToPoints( 0 ) 
wApp.Selection.ParagraphFormat.FirstLineIndent = wApp.CentimetersToPoints( 0.72 / 2 * 2 ) 

wApp.Selection.TypeParagraph 
wApp.Selection.Font.Bold = false  
wApp.Selection.ParagraphFormat.Alignment = 0  


wApp.Selection.TypeText " 认真落实CHINAASP为网友解难题，上台阶。 "  
wApp.Selection.TypeParagraph 

rem居右 
wApp.Selection.TypeParagraph 
wApp.Selection.Font.Bold = false  
wApp.Selection.TypeText " 一九九九年五月 "  
wApp.Selection.TypeParagraph 

endif 
</ script >  
< center >  
< strong > 数据处理完毕! </ strong ></ center >  

< p >  
</ p >< divalign = center >< center >  
< inputtype = buttonclass = buttonfacename = cmdOK 
onclick = " window.returnValue=0;window.close(); "  
value = " 确定 " ></ center ></ div >  

</ BODY >  
</ HTML >  

 
<script type="text/javascript"> google_ad_client = "pub-8527320164371593"; google_ad_width = 728; google_ad_height = 90; google_ad_format = "728x90_as"; google_ad_type = "text_image"; //2006-11-09: asp.net google_ad_channel = "8786117784"; google_language = 'en'; </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>