html>
head>
title>ajax無(wú)刷新添加數(shù)據(jù)/title>
/head>
body>
輸入內(nèi)容：input id="str" type="input" /> input type="button" value="確定添加" onclick="add_Post()"/>
span id="msg" style="color:red">/span>
script type="text/javascript">
function ajax_xmlhttp(){
//在IE中創(chuàng)建xmlhttpRequest,適用于IE5.0以上所有版本
var msXmlhttp = new Array("Msxml2.XMLHTTP.5.0","Msxml2.XMLHTTP.4.0","Msxml2.XMLHTTP.3.0","Msxml2.XMLHTTP","Microsoft.XMLHTTP");
for(var i=0; imsXmlhttp.length; i++){
try
{
_xmlhttp=new ActiveXObject(msXmlhttp[i]);
}
catch(e)
{
_xmlhttp=null;
}
} //循環(huán)創(chuàng)建基于IE瀏覽器的xmlhttp.結(jié)束
//如果非IE瀏覽器，則創(chuàng)建基于FireFox等瀏覽器的xmlhttpRequest
if(!_xmlhttp typeof XMLHttpRequest != "undefined")
{
_xmlhttp=new XMLHttpRequest();
}
return _xmlhttp;
}

//讀取數(shù)據(jù)函數(shù)
function Post(){
var ajax = ajax_xmlhttp(); //將xmlhttprequest對(duì)象賦值給一個(gè)變量．
ajax.open("post","add_data.asp?action=read",true);//設(shè)置請(qǐng)求方式，請(qǐng)求文件，異步請(qǐng)求
ajax.onreadystatechange = function(){//你也可以這里指定一個(gè)已經(jīng)寫(xiě)好的函數(shù)名稱(chēng)
if(ajax.readyState==4){//數(shù)據(jù)返回成功
if(ajax.status==200){//http請(qǐng)求狀態(tài)碼返回ok
var xmlData = ajax.responseXML;
var list = xmlData.getElementsByTagName("list");//獲取所有的list標(biāo)簽
if(list.length!=0){
var t = document.createElement("table");
t.setAttribute("border","1");
t.setAttribute("id","abc"); //為表格設(shè)置一個(gè)id屬性，值為abc
var thead = t.createTHead();
var _tr = thead.insertRow(0) //為thead創(chuàng)建一行
var _td = _tr.insertCell(0);
_td.innerHTML = "內(nèi)容";
document.body.appendChild(t);
for(var i=0;ilist[0].childNodes.length;i++){ //遍歷所有的list,有幾個(gè)list的便為表格添加幾行．
var tr = t.insertRow(0);
var td = tr.insertCell(0);
td.innerHTML = list[0].childNodes[i].firstChild.nodeValue;
}
}
}
}
}
ajax.send(null);
}

//提交數(shù)據(jù)函數(shù)
function add_Post(){
var msgaes = document.getElementById("msg");//用來(lái)顯示提示信息
var str = document.getElementById("str");//接收輸入的內(nèi)容
if(str.value.length == 0){
msgaes.innerHTML = "不接受空內(nèi)容！"
return;
}
msgaes.innerHTML = "正在提交";
var ajax = ajax_xmlhttp();//定義xmlhttprequest對(duì)象
ajax.open("post","add_data.asp?action=add",true);//設(shè)置請(qǐng)求方式，請(qǐng)求文件，異步請(qǐng)求

var param = "str="+escape(str.value);//獲取你輸入的內(nèi)容,注意這里的str,服務(wù)端將接收str中的值
ajax.onreadystatechange = function(){
if(ajax.readyState==4){
if(ajax.status==200){
var msg = ajax.responseXML.getElementsByTagName("msg");//獲取服務(wù)端返回的msg標(biāo)簽
if(msg[0].firstChild.nodeValue == 0){
var t = document.getElementById("abc");
var tr = t.insertRow(0);
var td = tr.insertCell();
td.innerHTML = str.value;
str.value = "";
msgaes.innerHTML = "添加完成";
}
else if(msg[0].firstChild.nodeValue == 3){
msgaes.innerHTML = "不接受空的內(nèi)容";
return;
}
else if(msg[0].firstChild.nodeValue == 1){
msgaes.innerHTML = "服務(wù)端發(fā)生了錯(cuò)誤，數(shù)據(jù)添加失敗!";
return;
}
else{
msgaes.innerHTML = "該實(shí)例供學(xué)習(xí)使用．請(qǐng)不要惡意輸入．謝謝！";
}
}
}
}
ajax.setRequestHeader("content-type","application/x-www-form-urlencoded");//注意向服務(wù)端提交數(shù)據(jù)，必須設(shè)置該頭．否則服務(wù)端會(huì)接收不到
ajax.send(param);//注意send方法向服務(wù)端提交param變量中的內(nèi)容．
}
window.load = Post();//只有在打開(kāi)網(wǎng)頁(yè)或刷新網(wǎng)頁(yè)以后才會(huì)執(zhí)行讀取數(shù)據(jù)函數(shù)
/script>
/body>
/html>

!--#include file="Conn.Asp"-->
%
'出自：http://Www.Web666.Net
'作者：康董
'如需轉(zhuǎn)載請(qǐng)務(wù)必保留以上信息
'定義一個(gè)變量，來(lái)保存xml數(shù)據(jù)
xml="?xml version='1.0' encoding='gb2312'?>body>"
action=Request.QueryString("action") '使用get方式接受一個(gè)action來(lái)判斷客戶(hù)端想要執(zhí)行什么操作
Select case action
case "read" '如果為read則執(zhí)行讀取數(shù)據(jù)的操作
Call Read
case "add" '如果為add則執(zhí)行添加數(shù)據(jù)的操作
Call Add_Data
case else
xml = xml"msg>請(qǐng)求參數(shù)錯(cuò)誤，請(qǐng)不要試圖非法操作！/msg>"
End Select

xml=xml"/body>"
Response.Clear
Response.ContentType="text/xml"
Response.CharSet="gb2312"
Response.write xml '注意這句?。厦娴哪切┡袛鄨?zhí)行過(guò)程．其目的就是獲取一個(gè)新的xml變量?jī)?nèi)容．然后在這里輸出這個(gè)xml
Response.End

Sub Read '定義一個(gè)讀取數(shù)據(jù)的過(guò)程
Call OpenConn '打開(kāi)數(shù)據(jù)庫(kù)鏈接
Sql = "Select * From web_table" '打開(kāi)數(shù)據(jù)庫(kù)中名字為web_table的表
Set Rs = Conn.Execute(Sql) '執(zhí)行Sql語(yǔ)句，并將sql的索引賦值給rs變量
xml = xml"list>" '沒(méi)開(kāi)始讀取之前先建立一個(gè)list標(biāo)簽．將所有數(shù)據(jù)都包含在該標(biāo)簽下
While Not Rs.Eof '如果表中有數(shù)據(jù)．則一直循環(huán)讀取
xml = xml"li>"Rs("web")"/li>"
Rs.MoveNext '執(zhí)行下一條數(shù)據(jù)的讀取
Wend '如果數(shù)據(jù)庫(kù)中沒(méi)有了數(shù)據(jù)．則結(jié)束循環(huán)
xml = xml"/list>" '數(shù)據(jù)讀完閉合list標(biāo)簽
Close_Conn '關(guān)閉數(shù)據(jù)庫(kù)鏈接
End Sub

Sub Add_Data '添加數(shù)據(jù)過(guò)程
On Error Resume Next '如果發(fā)生錯(cuò)誤繼續(xù)執(zhí)行程序
OpenConn '打開(kāi)數(shù)據(jù)庫(kù)鏈接
str = Trim(Request.Form("str")) '接收客戶(hù)端傳過(guò)來(lái)的str內(nèi)容
If str = "" Then
xml = xml"msg>3/msg>" '如果提交的內(nèi)容為空．返回3
Exit Sub '退出過(guò)程
End If
Sql = "Insert Into web_table (web) values ('"str"')"
Conn.Execute(Sql) '執(zhí)行添加數(shù)據(jù)
If Err.Number = 0 Then '判斷是否有錯(cuò)誤發(fā)生，
xml = xml"msg>0/msg>" '如果沒(méi)有錯(cuò)誤發(fā)生，則證明數(shù)據(jù)已經(jīng)成功．返回0
Exit Sub
Else
xml = xml"msg>1/msg>" '如果發(fā)生錯(cuò)誤．則證明有錯(cuò)誤發(fā)生．?dāng)?shù)據(jù)很可能添加失敗
Exit Sub
End If
End Sub
%>