html>
head>
title>ajax修改数据/title>
style>
body{
font-size:12px;
}
/style>
/head>
body>
p>同时在线测试的人很多，有时可能会出现并发修改现象．/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中创建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;
}
} //循环创建基于IE浏览器的xmlhttp.结束
//如果非IE浏览器，则创建基于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请求状态码返回ok
var xmlData = ajax.responseXML;//以xml格式接收返回的数据，并保存在xmlData变量里
var list = xmlData.getElementsByTagName("list");//在返回的数据里，获取所有list标签
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 = "服务端写入数据时发生错误！";
break;
case "3": msgaes.innerHTML = "请正确填写要修改的数据编号和修改内容！";
break;
case "4": msgaes.innerHTML = "数据库中不存在你输入的数据编号，请重新输入！";
break;
default: msgaes.innerHTML = "发生未知错误!请联系作者：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来判断客户端想要执行什么操作
Select case action
case "read" '如果为read则执行读取数据的操作
Call Read
case "edit" '如果为edit则执行修改数据操作
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) '执行Sql语句，并将sql的索引赋值给rs变量

While Not Rs.Eof '如果表中有数据．则一直循环读取
xml = xml"list>" '每读取一条数据则创建一个list标签
xml = xml"id>"Rs("id")"/id>" 'id字段内容
xml = xml"content>"Rs("content")"/content>" 'content字段内容
xml = xml"/list>" '每读完一条数据，就闭合list标签
Rs.MoveNext '执行下一条数据的读取
Wend '如果数据库中没有了数据．则结束循环
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) '执行修改数据的sql语句

If Err.Number = 0 Then '如果没有错误发生
xml = xml"msg>0/msg>" '添加一个msg标签，内容为0

Exit Sub '退出过程
Else '如果有错误发生
xml = xml"msg>1/msg>" '如果有错误发生，添加msg标签，内容为1
Exit Sub '退出过程
End If
End Sub
%>