＜HTML＞ ＜HEAD＞ ＜meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80"＞ ＜link rel="stylesheet" type="text/css" href="edit.css"＞ ＜title＞保存为Word文档＜/title＞ ＜/HEAD＞ ＜s cript language="javas cript"＞ window.returnValue=0 ＜/s cript＞ ＜BODY＞ ＜font color="#000080"＞＜strong＞＜div id="strHint" align="center"＞数据处理 中，请等待...＜br＞ Data processing， please wait...＜/div＞＜/strong＞＜/font＞＜font color="#00 80C0"＞ ＜s cript language="vbs cript"＞ On Error Resume Next Dim wApp Set wApp = CreateObject("Word.Application") If Err.number ＞ 0 Then Alert "没法保存为Word文件，请正确安装Word97" else wApp.visible = True wApp.Documents.add wApp.Selection.TypeParagraph wApp.Selection.Font.Bold = True wApp.Selection.TypeText "九八Joy 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 "认真落实CHINA ASP为网友解难题，办实事精神，强化运行 管理，优化网络；坚持以网管为龙头，以提高接通率为重点，做好运维工作，保证全网 运行安全、高效、畅通。认真落实局内六十项奋斗目标，围绕效益工程、形象工程、福 利工程，开动脑筋、解放思想，以改革为动力，推动维护、服务、管理工作更上台阶。 " wApp.Selection.TypeParagraph rem 居 右 wApp.Selection.TypeParagraph wApp.Selection.Font.Bold = false wApp.Selection.TypeText "一九九九年五月" wApp.Selection.TypeParagraph end if ＜/s cript＞ ＜center＞＜br＞＜strong＞数据处理完毕!＜/strong＞＜/center＞ ＜p＞ ＜/p＞＜div align='center'＞＜center＞＜input type=button buttonface n ame='cmdOK' onclick="window.returnValue=0;window.close();" value=" 确 定 " ＞ ＜/center＞＜/div＞ ＜/BODY＞ ＜/HTML＞