|
最后是autosave.asp，用于在后臺(tái)保存草稿：
<%@LANGUAGE="VBscript" CODEPAGE="65001"%>
<% Option Explicit %>
<%
' 語言為VBScript，編碼為UTF-8，要求變量聲明
' 出現(xiàn)錯(cuò)誤則忽略，繼續(xù)執(zhí)行
On Error Resume Next
' 定義一些變量
Dim PostContent,memName,action,objStream
' 獲取操作，是保存草稿還是恢復(fù)草稿
action=Request.Form("action")
' 獲取用戶名
memName=Request.Form("memname")
' 獲取草稿內(nèi)容
PostContent=Request.Form("postcontent")
IF action="restore" Then
' 恢復(fù)草稿，如果用戶名不為空則進(jìn)行恢復(fù)操作
IF memName<>Empty Then
' 使用 ADODB.Stream 來進(jìn)行文件操作
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
' 保存草稿，如果草稿內(nèi)容和用戶名均不為空則進(jìn)行保存操作
IF PostContent<>Empty AND memName<>Empty Then
' 使用 ADODB.Stream 來進(jìn)行文件操作
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()&" 自動(dòng)保存成功")
Else
Response.Write("最后于 "&Now()&" 自動(dòng)保存失敗，錯(cuò)誤號(hào)："&Err.Number&"，錯(cuò)誤描述："&Err.Dscription)
End If
End IF
End IF
%>
至此，AJAX草稿自動(dòng)保存完成了。
經(jīng)典論壇討論：
http://bbs.blueidea.com/viewthread.php?tid=2671027
出處：藍(lán)色理想
責(zé)任編輯：moby
上一頁 AJAX應(yīng)用之草稿自動(dòng)保存 [2] 下一頁
◎進(jìn)入論壇網(wǎng)絡(luò)編程版塊參加討論
|
第 1 頁 
第 3 頁 AJAX應(yīng)用之草稿自動(dòng)保存 [3]
