AJAX应用之草稿自动保存(3)
作者:HotHeart 来源:蓝色理想 发布时间:2007-08-23 08:29:00
最后是autosave.asp,用于在后台保存草稿:
<%@LANGUAGE="VBscript" CODEPAGE="65001"%>
<% Option Explicit %>
<%
' 语言为VBScript,编码为UTF-8,要求变量声明
' 出现错误则忽略,继续执行
On Error Resume Next
' 定义一些变量
Dim PostContent,memName,action,objStream
' 获取操作,是保存草稿还是恢复草稿
action=Request.Form("action")
' 获取用户名
memName=Request.Form("memname")
' 获取草稿内容
PostContent=Request.Form("postcontent")
IF action="restore" Then
' 恢复草稿,如果用户名不为空则进行恢复操作
IF memName<>Empty Then
' 使用 ADODB.Stream 来进行文件操作
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Mode = 3
.Open
' 文件名为 autosave_ + 用户名 + .txt
.LoadFromFile(Server.MapPath("autosave_"&memName&".txt"))
.Charset = "utf-8"
'.Position = 0
PostContent = .ReadText()
.Close
End With
Set objStream = NoThing
' 输出草稿
IF PostContent<>"" Then Response.Write(PostContent)
End IF
Else
' 保存草稿,如果草稿内容和用户名均不为空则进行保存操作
IF PostContent<>Empty AND memName<>Empty Then
' 使用 ADODB.Stream 来进行文件操作
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Mode = 3
.Open
.Charset = "utf-8"
.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草稿自动保存完成了。
相关阅读:
猜你喜欢
- 如何在ADO中客户端利用好缓存技术?具体应用见下例:global.asa< !--METADATA TYPE=&q
- 作者的BLOG:http://www.planabc.net/地图弹窗(map pop)具体演示运行代码框<!DOCTYPE html
- 任何数据库系统都无法避免崩溃的状况,即使你使用了Clustered,双机热备等等,仍然无法完全根除系统中的单点故障,何况对于大部分用户来说,
- 本文使用css结合js技术给网页背景background 插入flash播放器播放音乐,想法很大胆,呵呵!刚刚乱试一翻搞出这个,有意思吗?请
- 现在很多地方都需要用到关键词过滤功能。比如一般的服务器都不允许一些词出现在网页上,站长有时候会对在本网站发布信息的内容进行一个广告过滤等。雨
- 假设在搜索框search中输入:“asp 编程” 先得到输入框中的内容:search=request("search")
- 1,SELECT 语句 在SQL的世界里,最最基础的操作就是SELECT 语句了。在数据库工具下直接采用SQL
- 从BbsXp提出来的生肖函数Zodiac(birthday)。使用方法:birthday为把要判断的出生时间,如2008-3-24 20:0
- 最近了解了下repaint和reflow的相关知识,觉得在页面重构过程中就应该考虑前端开发(js)人员对dom进行操作,能够减轻客户浏览器的
- strSourceFile = Server.MapPath(dataXML&"/Advertisement/"
- 为数据库配置比较大的内存,可以有效提高数据库性能。因为数据库在运行过程中,会在内存中划出一块区域来作为数据缓存。通常情况下,用户访问数据库时
- 这次我们来说一些很小的东西,相当小。不过先说一个故事:这天晚上,你打算出去下一次馆子,就行动了,找到了一家新开的小店进去坐了下来,服务员很殷
- 从技术上来说,在ASP环境中,读入并管理XML文本的主要方法有三种: 创建MSXML对象,并且将XML文档载入DOM; 使用服务器端嵌入(S
- 事务日志(Transaction logs)是数据库结构中非常重要但又经常被忽略的部分。由于它并不像数据库中的schema那样活跃,因此很少
- MySQL数据库线程缓冲池的相关知识是本文我们主要要介绍的内容,MySQL数据库支持线程缓存,在多线程连接模式下,如果连接断开后,将这个线程
- HTML 的空白符处理规则HTML 中的“空白符”包括空格 (space)、制表符 (tab)、换行符 (CR/LF) 三种。我们知道,在默
- 前言:HTML5和CSS3的时代到来了,新版2011版淘宝网首页已全部使用HTML5,拥抱变化才是王道。为之漫笔翻译的很好,看了一遍后,感觉
- 《色彩解答》系列之一 色彩层次《色彩解答》系列之二 色彩比例我们知道在设计中有很多对比,大小的对比,形状的对比,长短的对比,多少的对比,这些
- Oracle 的正规表达式的实施是以各种 SQL 函数和一个 WHERE 子句操作符的形式出现的。如果您不熟悉正规表达式,那么这篇文章可以让
- 翻译说明:这是Solid State Group网站上的一篇很友好的文章,解决了我在设计中遇到的很多问题,故在此我翻译其文,并对原作者表示非