On Error Resume Next

Dim wApp

Set wApp = CreateObject("word.Application")

If Err.number > 0 Then

Alert "没法保存为word文件,请正确安装word97"

wApp.visible = True

wApp.Documents.add

wApp.Selection.TypeParagraph

wApp.Selection.Font.Bold = True

wApp.Selection.TypeText "test"

....

ASP脚本和客户端都能使用

类似的也可以操作Excel 97、outlook 97等程序。