相信用過Gmail的人都知道Gmail有一個草稿自動保存的功能，每過一段時間，Gmail都會自動保存郵件草稿，這樣在一些突發情況下就能快速地恢復工作，免得寫了半天的郵件眨眼之間就沒有了。在學了AJAX之后，我也給自己的blog加上了這個功能。當然，這個應用并不只限于blog上，應該說還是比較通用的。
實例演示
仍舊以代碼加注釋的方式來說明怎么編寫。
首先是表單填寫頁面，用一個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 onclick="SetAutoSave();" 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" onclick="AutoSaveRestore();" value="恢復最后保存的草稿" /> </div> </div> <!-- 將JS代碼放在所有對象之后，以免在頁面未加載完成時出現對象不存在的錯誤 --> <!-- AJAX類 --> <script type="text/javascript" src="ajaxrequest.js"></script> <!-- 自動保存代碼 --> <script type="text/javascript" src="autosave.js"></script>
// 要保存的內容對象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() }
<% 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草稿自動保存完成了。AJAX應用之草稿自動保存 相信用過Gmail的人都知道Gmail有一個草稿自動保存的功能，每過一段時間，Gmail都會自動保存郵件草稿，這樣在一些突發情況下就能快速地恢復工作，免得寫了半天的郵件眨眼之間就沒有了。在學了AJAX之后，我也給自己的blog加上了這個功能。當然，這個應用并不只限于blog上，應該說還是比較通用的。 實例演示 仍舊以代碼加注釋的方式來說明怎么編寫。 首先是表單填寫頁面，用一個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 onclick="SetAutoSave();" 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" onclick="AutoSaveRestore();" value="恢復最后保存的草稿" /> </div> </div> <!-- 將JS代碼放在所有對象之后，以免在頁面未加載完成時出現對象不存在的錯誤 --> <!-- AJAX類 --> <script type="text/javascript" src="ajaxrequest.js"></script> <!-- 自動保存代碼 --> <script type="text/javascript" src="autosave.js"></script>
// 要保存的內容對象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() }
<% 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草稿自動保存完成了。
新聞熱點
疑難解答
圖片精選
