下面是服务端的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 %>