<
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 >
< 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>