AJAX应用之草稿自动保存

            .Position = objStream.Size
            .WriteText= PostContent
            .SaveToFile Server.MapPath("autosave_"&memName&".txt"),2
            .Close
        End With
        Set objStream = NoThing
        ' 输出保存是否成功信息
        If Err.Number=0 then
            Response.Write("最后于 "&Now()&" 自动保存成功")
        Else
            Response.Write("最后于 "&Now()&" 自动保存失败，错误号："&Err.Number&"，错误描述："&Err.Dscription)
        End If
    End IF
End IF
%>

至此，AJAX草稿自动保存完成了。
原文地址：http://www.xujiwei.cn/blog/blogview.asp?logID=585