日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

AJAX應(yīng)用之草稿自動保存_Xml教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：使用xmldom在服務(wù)器端生成靜態(tài)html頁面
　　服務(wù)器端的生成的頁面數(shù)據(jù)，為了提高訪問速度，往往需要生成靜態(tài)的htm頁面。 　　通常，可以使用fso生成靜態(tài)的htm頁。但如果是fso被禁止或沒有使用fso的權(quán)限，就需要其他的方法來解決

相信用過Gmail的人都知道Gmail有一個草稿自動保存的功能，每過一段時間，Gmail都會自動保存郵件草稿，這樣在一些突發(fā)情況下就能快速地恢復(fù)工作，免得寫了半天的郵件眨眼之間就沒有了。在學(xué)了AJAX之后，我也給自己的blog加上了這個功能。當(dāng)然，這個應(yīng)用并不只限于blog上，應(yīng)該說還是比較通用的。

實例演示

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

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

以下為引用的內(nèi)容：

AJAX應(yīng)用之草稿自動保存<br />

<!-- 用戶名默認(rèn)為NONAME -->

用戶名：<input type="text" name="memName" id="memName" size="20" value="NONAME" />&nbsp;&nbsp;&nbsp;&nbsp;

<!-- 在自動保存選項的onclick事件中調(diào)用自動保存狀態(tài)設(shè)置函數(shù) -->

<input onclick="SetAutoSave();" type="checkbox" id="Draft_AutoSave" value="1" checked="true" />自動保存？<br />

內(nèi)容：

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

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

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

<input type="submit" value="提交內(nèi)容" />&nbsp;&nbsp;

<!-- 調(diào)用函數(shù)恢復(fù)最后保存的草稿 -->

<input type="button" onclick="AutoSaveRestore();" value="恢復(fù)最后保存的草稿" />

</div>

</div>

<!-- 將JS代碼放在所有對象之后，以免在頁面未加載完成時出現(xiàn)對象不存在的錯誤 -->

<!-- AJAX類 -->

<script type="text/javascript" src="ajaxrequest.js"></script>

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

<script type="text/javascript" src="autosave.js"></script>
接下來是autosave.js


// 首先設(shè)置全局變量

// 要保存的內(nèi)容對象FormContent

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

// 顯示返回信息的對象

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

// 用戶名

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

// 自動保存時間間隔

var AutoSaveTime=60000;

// 計時器對象

var AutoSaveTimer;


// 首先設(shè)置一次自動保存狀態(tài)

SetAutoSave();


// 自動保存函數(shù)

function AutoSave() {

// 如果內(nèi)容或用戶名為空，則不進(jìn)行處理，直接返回

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

// 創(chuàng)建AJAXRequest對象，詳細(xì)使用見文章開始的鏈接

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();

}


// 設(shè)置自動保存狀態(tài)函數(shù)

function SetAutoSave() {

// 是否自動保存？

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

// 是，設(shè)置計時器

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

else

// 否，清除計時器

clearInterval(AutoSaveTimer);

}


// 恢復(fù)最后保存的草稿

function AutoSaveRestore() {

// 創(chuàng)建AJAXRequest對象

var ajaxobj=new AJAXRequest;

// 提示用戶正在恢復(fù)

AutoSaveMsg.innerHTML="正在恢復(fù)，請稍候……"

ajaxobj.url="autosave.asp";

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

ajaxobj.callback=function(xmlObj) {

// 提示用戶恢復(fù)成功

AutoSaveMsg.innerHTML="恢復(fù)最后保存成功";

// 如果內(nèi)容為空則不改寫textarea的內(nèi)容

if(xmlObj.responseText!="") {

// 恢復(fù)草稿

FormContent.value=xmlObj.responseText;

}

}

ajaxobj.send()

}
最后是autosave.asp，用于在后臺保存草稿：


<%@LANGUAGE="VBscript" CODEPAGE="65001"%>

<% Option Explicit %>

<%

' 語言為VBScript，編碼為UTF-8，要求變量聲明

' 出現(xiàn)錯誤則忽略，繼續(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()&" 自動保存成功")

Else

Response.Write("最后于 "&Now()&" 自動保存失敗，錯誤號："&Err.Number&"，錯誤描述："&Err.Dscription)

End If

End IF

End IF

%>

至此，AJAX草稿自動保存完成了。AJAX應(yīng)用之草稿自動保存

相信用過Gmail的人都知道Gmail有一個草稿自動保存的功能，每過一段時間，Gmail都會自動保存郵件草稿，這樣在一些突發(fā)情況下就能快速地恢復(fù)工作，免得寫了半天的郵件眨眼之間就沒有了。在學(xué)了AJAX之后，我也給自己的blog加上了這個功能。當(dāng)然，這個應(yīng)用并不只限于blog上，應(yīng)該說還是比較通用的。

實例演示

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

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

AJAX應(yīng)用之草稿自動保存<br />

<!-- 用戶名默認(rèn)為NONAME -->

用戶名：<input type="text" name="memName" id="memName" size="20" value="NONAME" />&nbsp;&nbsp;&nbsp;&nbsp;

<!-- 在自動保存選項的onclick事件中調(diào)用自動保存狀態(tài)設(shè)置函數(shù) -->

<input onclick="SetAutoSave();" type="checkbox" id="Draft_AutoSave" value="1" checked="true" />自動保存？<br />

內(nèi)容：

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

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

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

<input type="submit" value="提交內(nèi)容" />&nbsp;&nbsp;

<!-- 調(diào)用函數(shù)恢復(fù)最后保存的草稿 -->

<input type="button" onclick="AutoSaveRestore();" value="恢復(fù)最后保存的草稿" />

</div>

</div>

<!-- 將JS代碼放在所有對象之后，以免在頁面未加載完成時出現(xiàn)對象不存在的錯誤 -->

<!-- AJAX類 -->

<script type="text/javascript" src="ajaxrequest.js"></script>

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

<script type="text/javascript" src="autosave.js"></script>
接下來是autosave.js


// 首先設(shè)置全局變量

// 要保存的內(nèi)容對象FormContent

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

// 顯示返回信息的對象

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

// 用戶名

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

// 自動保存時間間隔

var AutoSaveTime=60000;

// 計時器對象

var AutoSaveTimer;


// 首先設(shè)置一次自動保存狀態(tài)

SetAutoSave();


// 自動保存函數(shù)

function AutoSave() {

// 如果內(nèi)容或用戶名為空，則不進(jìn)行處理，直接返回

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

// 創(chuàng)建AJAXRequest對象，詳細(xì)使用見文章開始的鏈接

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();

}


// 設(shè)置自動保存狀態(tài)函數(shù)

function SetAutoSave() {

// 是否自動保存？

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

// 是，設(shè)置計時器

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

else

// 否，清除計時器

clearInterval(AutoSaveTimer);

}


// 恢復(fù)最后保存的草稿

function AutoSaveRestore() {

// 創(chuàng)建AJAXRequest對象

var ajaxobj=new AJAXRequest;

// 提示用戶正在恢復(fù)

AutoSaveMsg.innerHTML="正在恢復(fù)，請稍候……"

ajaxobj.url="autosave.asp";

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

ajaxobj.callback=function(xmlObj) {

// 提示用戶恢復(fù)成功

AutoSaveMsg.innerHTML="恢復(fù)最后保存成功";

// 如果內(nèi)容為空則不改寫textarea的內(nèi)容

if(xmlObj.responseText!="") {

// 恢復(fù)草稿

FormContent.value=xmlObj.responseText;

}

}

ajaxobj.send()

}
最后是autosave.asp，用于在后臺保存草稿：


<%@LANGUAGE="VBscript" CODEPAGE="65001"%>

<% Option Explicit %>

<%

' 語言為VBScript，編碼為UTF-8，要求變量聲明

' 出現(xiàn)錯誤則忽略，繼續(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()&" 自動保存成功")

Else

Response.Write("最后于 "&Now()&" 自動保存失敗，錯誤號："&Err.Number&"，錯誤描述："&Err.Dscription)

End If

End IF

End IF

%>

至此，AJAX草稿自動保存完成了。

分享：WEB中基于XMLHTTP的簡單實例分析
大家都知道可以通過post或者get獲得form表單的數(shù)據(jù)，那么我們?nèi)绾螌崿F(xiàn)不刷新的提交直接獲得頁面上的數(shù)據(jù)呢？這就要借助xmlhttp協(xié)議了。xmlhttp是xmldom技術(shù)的一部分。 下面的代碼就是一個很簡

來源：模板無憂//所屬分類：Xml教程/更新時間：2008-08-22
相關(guān)Xml教程：