Ajax添加数据与删除篇实现代码

创建一个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 Add_Data ''添加数据过程
On Error Resume Next ''如果发生错误继续执行程序
OpenConn ''打开数据库链接

str = Trim(Request.Form("str")) ''接收客户端传过来的str内容
If str = "" Then
xml = xml&"<msg>3</msg>" ''如果提交的内容为空．返回3
Exit Sub ''退出过程
End If

Sql = "Insert Into del_table (content) values (''"&str&"'')"
Conn.Execute(Sql) ''执行添加数据
If Err.Number = 0 Then ''判断是否有错误发生，
xml = xml&"<msg>0</msg>" ''如果没有错误发生，则证明数据已经成功．返回0
Else
xml = xml&"<msg>1</msg>" ''如果发生错误．则证明有错误发生．数据很可能添加失败
End If
Close_Conn
End Sub

Sub Del_Data ''删除数据过程
On Error Resume Next
OpenConn
id = Request("id")
Sql = "Delete From del_table where id="&id
Conn.Execute(sql)
If Err.Number = 0 Then
xml = xml&"<msg>0</msg>"
Else
xml = xml&"<msg>1</msg>"
End If
Close_Conn
End Sub
%>

我在服务端使用的是Asp输出xml格式数据技术．我在前几篇都有讲解．你可以使用php，.net，Jsp轻松模拟出来．
(!--#include file="Conn.Asp"--)是我的数据库链接文件．为保安全我不透露数据库名字．本次读取的表名是：del_table　　字段为：ID，Content
今天就讲到这里，有什么不明白地方．请加 ajax技术交流群：110167482
下一篇我们讲：ajax读取数据之分页显示篇