<!--#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 "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<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<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圈 首发地址：
您可能感兴趣的文章: