Ajax修改數據即時顯示篇實現代碼

html>
head>
title>ajax修改數據/title>
style>
body{
font-size:12px;
}
/style>
/head>
body>
p>同時在線測試的人很多，有時可能會出現并發(fā)修改現象．/p>
hr/>
table border="1">
thead>tr>td>數據編號/td>td>數據內容/td>/tr>/thead>
tbody id="a">!--用于存放內容的tbody-->
/tbody>
/table>

輸入編號：input id="data_id" type="text" />br/>
修改內容：input id="data_content" type="text" />br/>

input type="button" value="確定修改" onclick="Edit_Data()"/>
span id="msgaes" style="color:red">/span>
script type="text/javascript">
function ajax_xmlhttp(){
//在IE中創(chuàng)建xmlhttpRequest,適用于IE5.0以上所有版本
var msXmlhttp = new Array("Msxml2.XMLHTTP.5.0","Msxml2.XMLHTTP.4.0","Msxml2.XMLHTTP.3.0","Msxml2.XMLHTTP","Microsoft.XMLHTTP");
for(var i=0; imsXmlhttp.length; i++){
try
{
_xmlhttp=new ActiveXObject(msXmlhttp[i]);
}
catch(e)
{
_xmlhttp=null;
}
} //循環(huán)創(chuàng)建基于IE瀏覽器的xmlhttp.結束
//如果非IE瀏覽器，則創(chuàng)建基于FireFox等瀏覽器的xmlhttpRequest
if(!_xmlhttp typeof XMLHttpRequest != "undefined")
{
_xmlhttp=new XMLHttpRequest();
}
return _xmlhttp;
}

//讀取數據函數
function Read(){
var ajax = ajax_xmlhttp(); //將xmlhttprequest對象賦值給一個變量．
ajax.open("post","Edit_Data.asp?action=read",true);//設置請求方式，請求的網頁，url的action參數為read，異步請求
ajax.onreadystatechange = function(){//你也可以這里指定一個已經寫好的函數名稱
if(ajax.readyState == 4){//數據返回成功
if(ajax.status == 200){//http請求狀態(tài)碼返回ok
var xmlData = ajax.responseXML;//以xml格式接收返回的數據，并保存在xmlData變量里
var list = xmlData.getElementsByTagName("list");//在返回的數據里，獲取所有l(wèi)ist標簽
if(list.length!=0){
var t = document.getElementById("a");//獲取展示數據的表格
for(var i=0;ilist.length;i++){
var tr = t.insertRow();//有幾個list就為表格增加幾行．
for(var k=0;klist[i].childNodes.length;k++){ //遍歷每個list中的子元素
var td = tr.insertCell();//每個list中有幾個子元素，便為一行增加幾列
td.innerHTML = list[i].childNodes[k].firstChild.nodeValue;//在單元格內寫入第i個list的第k個子元素中的文本內容
}
}
}
}
}
}
ajax.send(null);//提交請求，參數為null
}
window.load = Read();

//修改數據的函數
function Edit_Data(){
var msgaes = document.getElementById("msgaes");//用來顯示一些當前操作信息
var id = document.getElementById("data_id");//獲取要修改的數據編號
var content = document.getElementById("data_content");//獲取修改后的內容
if(id.value.length == 0 || content.value.length == 0){
msgaes.innerHTML = "編號或內容不許為空!";
return;
}
//下面這行將id和content的值賦給param變量，然后用send方法提交param
var param = "id="+escape(id.value)+ "content="+escape(content.value);
var ajax = ajax_xmlhttp();
ajax.open("post","Edit_Data.asp?action=edit",true);
ajax.onreadystatechange = function(){//
if(ajax.readyState == 4){
if(ajax.status == 200){
var xmlData = ajax.responseXML;

var msg = xmlData.getElementsByTagName("msg");
if(msg.length!=0){
switch (msg[0].firstChild.nodeValue){//判斷msg的值
case "0": msgaes.innerHTML = "修改數據成功！";
var a = document.getElementById("a");
for(var i=0;ia.rows.length;i++){//遍歷表格的每一列．這個方法有點笨
for(var k=0;ka.rows[i].cells.length;k++){
if(a.rows[i].cells[0].innerHTML == id.value){
a.rows[i].cells[1].innerHTML = content.value;
id.value="";
content.value="";
return;
}

}
}
break;
case "1": msgaes.innerHTML = "服務端寫入數據時發(fā)生錯誤！";
break;
case "3": msgaes.innerHTML = "請正確填寫要修改的數據編號和修改內容！";
break;
case "4": msgaes.innerHTML = "數據庫中不存在你輸入的數據編號，請重新輸入！";
break;
default: msgaes.innerHTML = "發(fā)生未知錯誤!請聯系作者：QQ30458885";
break;
}
}
}
}
}
ajax.setRequestHeader("content-type","application/x-www-form-urlencoded");//
ajax.send(param);
}
/script>
/body>
/html>

!--#include file="Conn.Asp"-->
%
'出自：http://Www.Web666.Net
'作者：康董
'如需轉載請務必保留以上信息
'定義一個變量，來保存xml數據
xml="?xml version='1.0' encoding='gb2312'?>body>"
action=Request.QueryString("action") '使用get方式接受一個action來判斷客戶端想要執(zhí)行什么操作
Select case action
case "read" '如果為read則執(zhí)行讀取數據的操作
Call Read
case "edit" '如果為edit則執(zhí)行修改數據操作
Call Edit_Data
case else
xml = xml"msg>請求參數錯誤，請不要試圖非法操作！/msg>"
End Select
xml=xml"/body>"
Response.Clear
Response.ContentType="text/xml"
Response.CharSet="gb2312"
Response.write xml
Response.End

Sub Read '定義一個讀取數據的過程
Call OpenConn '打開數據庫鏈接
Sql = "Select * From edit_table" '打開數據庫中名字為web_table的表
Set Rs = Conn.Execute(Sql) '執(zhí)行Sql語句，并將sql的索引賦值給rs變量

While Not Rs.Eof '如果表中有數據．則一直循環(huán)讀取
xml = xml"list>" '每讀取一條數據則創(chuàng)建一個list標簽
xml = xml"id>"Rs("id")"/id>" 'id字段內容
xml = xml"content>"Rs("content")"/content>" 'content字段內容
xml = xml"/list>" '每讀完一條數據，就閉合list標簽
Rs.MoveNext '執(zhí)行下一條數據的讀取
Wend '如果數據庫中沒有了數據．則結束循環(huán)
Close_Conn '關閉數據庫鏈接
End Sub

Sub Edit_Data
On Error Resume Next '忽略錯誤
OpenConn '打開數據庫鏈接
id = Trim(Request.Form("id")) '接收客戶端傳過來的id數據編號
Sql = "Select * From edit_table Where id="id
Set Rs=Conn.Execute(Sql)
If Rs.Eof then
xml = xml"msg>4/msg>"
Exit Sub
End If
content = Trim(Request.Form("content")) '接收修改后的內容
If id = "" Or content = "" Then '如果id或content有一項為空，返回3
xml = xml"msg>3/msg>"
Exit Sub '退出過程
End If
Sql = "Update edit_table Set content='"content"' Where id="id
Conn.Execute(Sql) '執(zhí)行修改數據的sql語句

If Err.Number = 0 Then '如果沒有錯誤發(fā)生
xml = xml"msg>0/msg>" '添加一個msg標簽，內容為0

Exit Sub '退出過程
Else '如果有錯誤發(fā)生
xml = xml"msg>1/msg>" '如果有錯誤發(fā)生，添加msg標簽，內容為1
Exit Sub '退出過程
End If
End Sub
%>