利用XMLHTTP无刷新添加数据之Get篇（转）

我们传统的提交数据的方法都是用<Form>来实现的.
<Form>标记中的Method属性确定了表单元素的数据在发送到服务器时,
如何对HTTP请求信息进行打包.
Method 属性可以使用的方法
Method属性   发送表单元素的方式                              读取数据的Request集合
Get             标识在URL的最后                                  QueryString
Post            在HTTP请求的主体内(HTTP请求的自由区域)  Form

这篇文章用XMLHTTP来实现Form的Method=Get.

ClientGet.htm

<script language="JavaScript">
function AddDataGet(sUserId,sUserName)
{
/*
 *--------------- AddDataGet(sUserId,sUserName) -----------------
 * AddDataGet(sUserId,sUserName)
 * 功能:通过XMLHTTP添加数据.相当于Form的Method=Get.
 * 参数:sUserId,字符串,发送条件.
 * 参数:sUserName,字符串,发送条件.
 * 实例:AddDataGet(document.all.userid.value,document.all.username.value);
 *--------------- AddDataGet(sUserId,sUserName) -----------------
 */
    var oBao = new ActiveXObject("Microsoft.XMLHTTP");
    //特殊字符：+,%,&,=,?等的传输解决办法.用escape编码.
    //Update:2004-6-1 12:22
    //escape(sUserId),escape(sUserName);
    oBao.open("POST","Server.asp?userid="+escape(sUserId)+"&username="+escape(sUserName),false);
    oBao.send();
    //清空输入框数据.
    document.all.userid.value="";
    document.all.username.value="";
    //服务器端处理返回的是经过escape编码的字符串.
    alert(unescape(oBao.responseText))
}
</script>
<input type="button" onclick="AddDataGet(document.all.userid.value,document.all.username.value)" value="AddDataGet"><br>
userid:<input type="text" name="userid"><br>
username:<input type="text" name="username">

Server.asp  服务器端处理.

<% @Language="JavaScript" %>
<%
function OpenDB(sdbname)
{
/*
*--------------- OpenDB(sdbname) -----------------
* OpenDB(sdbname)
* 功能:打开数据库sdbname,返回conn对象.
* 参数:sdbname,字符串,数据库名称.
* 实例:var conn = OpenDB("database.mdb");
*--------------- OpenDB(sdbname) -----------------
*/
var connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(sdbname);
var conn = Server.CreateObject("ADODB.Connection");
conn.Open(connstr);
return conn;
}
var sResult = "";
var oConn = OpenDB("data.mdb");
//相当于Form的Method=Get.
//相当于Form的Method=Get.
//特殊字符：+,%,&,=,?等的传输解决办法.客户端传输过来是经过escape编码的.
//所以服用器端应该先用unescape解码.
//Update:2004-6-1 12:22
//unescape(Request.QueryString("userid")).....
var userid = unescape(Request.QueryString("userid"));
var username = unescape(Request.QueryString("username"));
sResult = "userid:"+userid+"\nusername:"+username+"\n 添加成功."
var sql = "Insert into users(userid,username)Values('"+userid+"','"+username+"')";
oConn.Execute(sql);
Response.Write(escape(sResult));
%>

数据库设计
data.mdb
表users.
字段
id              自动编号
userid          文本
username        文本

表:users 数据:
id      userid          username
1      wanghr100    管理员