<!--#include file="Conn.Asp"-->
<%
'出自：
'作者：康董
'如需转载请务必保留以上信息
'定义一个变量，来保存xml数据
xml="<?xml version='1.0' encoding='gb2312'?><body>"
action=Request.QueryString("action") '使用get方式接受一个action来判断客户端想要执行什么操作
Select case action
case "read" '如果为read则执行读取数据的操作
Call Read
case "add" '如果为add则执行添加数据
Call Add_Data
case "del" '如果为del则执行删除数据的操作
Call Del_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 top 10 * From del_table order by id desc" '打开数据库中名字为del_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 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<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读取数据之分页显示篇
您可能感兴趣的文章: