DIV CSS 佈局教程網

 DIV+CSS佈局教程網 >> 網頁腳本 >> JavaScript入門知識 >> AJAX入門 >> AJAX詳解 >> AJAX實例應用初體驗:自動保存草稿
AJAX實例應用初體驗:自動保存草稿
編輯:AJAX詳解     

相信用過Gmail的人都知道Gmail有一個草稿自動保存的功能,每過一段時間,Gmail都會自動保存郵件草稿,這樣在一些突發情況下就能快速地恢復工作,免得寫了半天的郵件眨眼之間就沒有了。在學了AJax之後,筆者也給自己的blog加上了這個功能。當然,這個應用並不只限於blog上,應該說還是比較通用的。

  注:為了開發的方便,筆者用了一個自己寫的AJax類,具體內容和下載在這裡。[本地下載請點擊這裡(1.42KB)]

  演示地址

  仍舊以代碼加注釋的方式來說明怎麼編寫。

  首先是表單填寫頁面,用一個ID為AutoSaveMsg的DIV來顯示返回信息,並且用一個ID為Draft_AutoSave的CheckBox來確定是否進行自動保存,然後將Textarea的ID命名為message。同時為了應對多用戶同時使用的需要,加上用戶名,每個用戶的草稿分開保存。為了說明方便,這裡把一些修飾性的東西去掉,這樣看起來比較明了:

  程序代碼:

AJax應用之草稿自動保存<br />

<!-- 用戶名默認為NONAME -->

用戶名:<input type="text" name="memName" id="memName" size="20" value="NONAME" />     

<!-- 在自動保存選項的onclick事件中調用自動保存狀態設置函數 -->

<input type="checkbox" id="Draft_AutoSave" value="1" checked="true"  />自動保存?<br />

內容:

<textarea id="message"></textarea><br />

<!-- AutoSaveMsg顯示返回信息 -->

<div id="AutoSaveMsg"></div>

<input type="submit" value="提交內容" />  

<!-- 調用函數恢復最後保存的草稿 -->

<input type="button" value="恢復最後保存的草稿" />

</div>

</div>

<!-- 將JS代碼放在所有對象之後,以免在頁面未加載完成時出現對象不存在的錯誤 -->

<!-- AJax類 -->

<script type="text/Javascript" src="AJaxrequest.JS"></script>

<!-- 自動保存代碼 -->

<script type="text/Javascript" src="autosave.JS"></script>
 接下來是autosave.JS

  程序代碼:

// 首先設置全局變量

// 要保存的內容對象FormContent

var FormContent=document.getElementById("message");

// 顯示返回信息的對象

var AutoSaveMsg=document.getElementById("AutoSaveMsg");

// 用戶名

var memName=document.getElementById("memName").value;

// 自動保存時間間隔

var AutoSaveTime=60000;

// 計時器對象

var AutoSaveTimer;


// 首先設置一次自動保存狀態

SetAutoSave();


// 自動保存函數

function AutoSave() {

    // 如果內容或用戶名為空,則不進行處理,直接返回

    if(!FormContent.value||!memName) return;

    // 創建AJaxRequest對象,詳細使用見文章開始的鏈接

    var ajaxobj=new AJaxRequest;

    AJaxobj.url="autosave.ASP";

    AJaxobj.content="memname="+escape(memName)+"&postcontent="+escape(FormContent.value);

    AJaxobj.callback=function(XMLObj) {

        // 顯示反饋信息

        AutoSaveMsg.innerHtml=XMLObj.responseText;

    }

    AJaxobj.send();

}


// 設置自動保存狀態函數

function SetAutoSave() {

    // 是否自動保存?

    if(document.getElementById("Draft_AutoSave").checked==true)

        // 是,設置計時器

        AutoSaveTimer=setInterval("AutoSave()",AutoSaveTime);

    else

        // 否,清除計時器

        clearInterval(AutoSaveTimer);

}


// 恢復最後保存的草稿

function AutoSaveRestore() {

    // 創建AJaxRequest對象

    var ajaxobj=new AJaxRequest;

    // 提示用戶正在恢復

    AutoSaveMsg.innerHtml="正在恢復,請稍候……"

    AJaxobj.url="autosave.ASP";

    AJaxobj.content="action=restore&memname="+escape(memName);

    AJaxobj.callback=function(XMLObj) {

        // 提示用戶恢復成功

        AutoSaveMsg.innerHtml="恢復最後保存成功";

        // 如果內容為空則不改寫textarea的內容

        if(XMLObj.responseText!="") {

            // 恢復草稿

            FormContent.value=XMLObj.responseText;

        }

    }

    AJaxobj.send()

}
 

最後是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草稿自動保存完成了。

 

XML學習教程| jQuery入門知識| AJAX入門| Dreamweaver教程| Fireworks入門知識| SEO技巧| SEO優化集錦|
Copyright © DIV+CSS佈局教程網 All Rights Reserved