Ajax修改数据即时显示篇实现代码
0代表数据被成功修改，这时我们在前端显示数据的表格内找到你输入编号的那一行．然后把你输入的修改数据写入到该行的第二列中去．此时我们并没有重复读取数据库中的数据！如有疑惑之处请参照上一篇的教程．
下面是服务端的Edit_Data.Asp文件的源码：
复制代码 代码如下:
<!--#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
%>
该asp的源码中使用的数据库表是：edit_table 字段分别为：id,content． 表中有5条数据分别是：html,css,dom,javascript,ajax.该源码的知识在上一篇ajax教程有详细解释！
友情提醒：该ajax教程是系列性的．为减少篇幅．我们不会在每一篇教程中重复讲解学习过的内容．如果你是初学者，请从ajax开始准备篇．逐一学习！谢谢合作！
下一篇我们讲：＂ajax添加与删除篇＂
本文版权归：Web圈 首发地址：http://Www.Web666.Net
下面是服务端的Edit_Data.Asp文件的源码：
复制代码 代码如下:
<!--#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
%>
该asp的源码中使用的数据库表是：edit_table 字段分别为：id,content． 表中有5条数据分别是：html,css,dom,javascript,ajax.该源码的知识在上一篇ajax教程有详细解释！
友情提醒：该ajax教程是系列性的．为减少篇幅．我们不会在每一篇教程中重复讲解学习过的内容．如果你是初学者，请从ajax开始准备篇．逐一学习！谢谢合作！
下一篇我们讲：＂ajax添加与删除篇＂
本文版权归：Web圈 首发地址：http://Www.Web666.Net