html>
head>
title>ajax無刷新添加數據/title>
/head>
body>
輸入內容：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中創建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;
}
} //循環創建基于IE瀏覽器的xmlhttp.結束
//如果非IE瀏覽器，則創建基于FireFox等瀏覽器的xmlhttpRequest
if(!_xmlhttp typeof XMLHttpRequest != "undefined")
{
_xmlhttp=new XMLHttpRequest();
}
return _xmlhttp;
}

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

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

var param = "str="+escape(str.value);//獲取你輸入的內容,注意這里的str,服務端將接收str中的值
ajax.onreadystatechange = function(){
if(ajax.readyState==4){
if(ajax.status==200){
var msg = ajax.responseXML.getElementsByTagName("msg");//獲取服務端返回的msg標簽
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 = "不接受空的內容";
return;
}
else if(msg[0].firstChild.nodeValue == 1){
msgaes.innerHTML = "服務端發生了錯誤，數據添加失敗!";
return;
}
else{
msgaes.innerHTML = "該實例供學習使用．請不要惡意輸入．謝謝！";
}
}
}
}
ajax.setRequestHeader("content-type","application/x-www-form-urlencoded");//注意向服務端提交數據，必須設置該頭．否則服務端會接收不到
ajax.send(param);//注意send方法向服務端提交param變量中的內容．
}
window.load = Post();//只有在打開網頁或刷新網頁以后才會執行讀取數據函數
/script>
/body>
/html>

!--#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 "add" '如果為add則執行添加數據的操作
Call Add_Data
case else
xml = xml"msg>請求參數錯誤，請不要試圖非法操作！/msg>"
End Select

xml=xml"/body>"
Response.Clear
Response.ContentType="text/xml"
Response.CharSet="gb2312"
Response.write xml '注意這句啊．上面的那些判斷執行過程．其目的就是獲取一個新的xml變量內容．然后在這里輸出這個xml
Response.End

Sub Read '定義一個讀取數據的過程
Call OpenConn '打開數據庫鏈接
Sql = "Select * From web_table" '打開數據庫中名字為web_table的表
Set Rs = Conn.Execute(Sql) '執行Sql語句，并將sql的索引賦值給rs變量
xml = xml"list>" '沒開始讀取之前先建立一個list標簽．將所有數據都包含在該標簽下
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
%>