While Not Rs.Eof '如果表中有数据．则一直循环读取
xml = xml&"<li>"&Rs("web")&"</li>"
Rs.MoveNext '执行下一条数据的读取
Wend '如果数据库中没有了数据．则结束循环
xml = xml&"</list>" '数据读完闭合list标签
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 web_table (web) values ('"&str&"')"
Conn.Execute(Sql) '执行添加数据
If Err.Number = 0 Then '判断是否有错误发生，
xml = xml&"<msg>0</msg>" '如果没有错误发生，则证明数据已经成功．返回0
Exit Sub
Else
xml = xml&"<msg>1</msg>" '如果发生错误．则证明有错误发生．数据很可能添加失败
Exit Sub
End If
End Sub
%>
上面是你使用ajax请求的服务端网页：Add_Data.Asp的源码．现在使用Asp的应该不多了吧？但我依然痴情于她．无论你用的服务端技术是Php，.Net，或者Jsp等．经过我的解释你应该很容易的会模拟出这个源码的功能．
1：include file="Conn.asp"在Asp里的作用是引入一个网页．Conn.asp是我的数据库链接文件．为安全起见．我就不暴露数据库名称了．你自己建个库．随便起个名进行测试吧．
2：定义一个名字为xml变量．将xml格式的数据保存在这个变量中．使用Response.Write输出xml变量中的内容．
3：接收你在前端url传过来的action参数．并判断action的值．Select case不用解释了吧．多支判断．如果action的值是read,则执行Read过程．如果是add则执行Add_Data过程．如果两者都不是则证明不是通过正常渠道进行请求的． 向xml变量中再增加一个msg标签．输出以后会给出显示的内容
4：Response.Clear清除缓存．
5：Response.ContentType="text/xml"定义输出的文本格式．xml类型
6：Response.CharSet="gb2312"输出编码，中文编码．
7：Response.write xml向客户端输出xml变量中的数据．该变量保存的是xml格式的数据．
8：Response.End停止一切输出．
9：定义一个 Read 过程．用来读取数据库test_table表中的web字段内的数据．打开数据库，sql语句．执行sql．开始读取！这些知识我就不讲了．如果你还不会．我想你应该去学习一下操作数据库的知识！我重点讲一下该Read过程的 意义．在读取数据之前先为xml变量中增加了一个list的标签．然后将所有的数据都读取到list标签内，每条数据又被包含在了一个li标签内．数取读取完毕．闭合list标签．我想说的是，这个Read过程并没有向客户端输出任何内容． 他的工作就是将数据库中的内容以xml的格式读取到那个xml变量中．当客户端action=add的时候．执行Read过程．Read过程给出一个新的xml变量．Response.Write xml输出这个变量到客户端，客户端接受到这个xml，我们在前端使用responseXML接收这个xml．然后显示！明白吗？不明白加我Q：30458885
