ASP+AJAX+ACCESS數(shù)據(jù)庫實(shí)例講解三個(gè)步驟分享

html>
head>
title>AJAX教程實(shí)例-AJAX教程實(shí)例-ASP+AJAX+ACCESS數(shù)據(jù)庫應(yīng)用-腳本之家原創(chuàng)ajax實(shí)例教程/title>
meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
/head>
body>
script> var xmlHttp

function showCustomer(str)
{
var url="getcustomer.asp?sid=" + Math.random() + "q=" + str
xmlHttp=GetXmlHttpObject(stateChanged)
xmlHttp.open("GET", url , true)
xmlHttp.send(null)
}

function stateChanged()
{
if (xmlHttp.readyState==4 || xmlHttp.readyState=="complete")
{
document.getElementById("txtHint").innerHTML=xmlHttp.responseText
}
}

function GetXmlHttpObject(handler)
{
var objXmlHttp=null

if (navigator.userAgent.indexOf("Opera")>=0)
{
alert("This example doesn't work in Opera")
return;
}
if (navigator.userAgent.indexOf("MSIE")>=0)
{
var strName="Msxml2.XMLHTTP"

if (navigator.appVersion.indexOf("MSIE 5.5")>=0)
{
strName="Microsoft.XMLHTTP"
}
try
{
objXmlHttp=new ActiveXObject(strName)
objXmlHttp.onreadystatechange=handler
return objXmlHttp
}
catch(e)
{
alert("Error. Scripting for ActiveX might be disabled")
return
}
}
if (navigator.userAgent.indexOf("Mozilla")>=0)
{
objXmlHttp=new XMLHttpRequest()
objXmlHttp.onload=handler
objXmlHttp.onerror=handler
return objXmlHttp
}
}
/script>
form>請(qǐng)選擇用戶:
select name="customers" onchange="showCustomer(this.value)">
option value="1">腳本之家.by.alixixi.com/option>
option value="2">哇塞網(wǎng)/option>
option value="3">收音機(jī)/option>
/select>
/form>p>
div id="txtHint">b>網(wǎng)站信息.../b>/div>
/p>/body>
/html>

%
sql="SELECT * FROM CUSTOMERS WHERE CUSTOMERID="
sql=sql request.querystring("q")
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("ajaxjiaocheng.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open sql, conn
Response.CharSet = "GB2312"
if not rs.EOF then
response.write "li>編號(hào)："rs(0)"/li>"
response.write "li>名稱："rs(1)"/li>"
response.write "li>點(diǎn)擊："rs(2)"/li>"
response.write "li>介紹："rs(3)"/li>"
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

sql="SELECT * FROM CUSTOMERS WHERE CUSTOMERID="
sql=sql request.querystring("q")
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("ajaxjiaocheng.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open sql, conn

if not rs.EOF then
response.write "li>編號(hào)："rs(0)"/li>"
response.write "li>名稱："rs(1)"/li>"
response.write "li>點(diǎn)擊："rs(2)"/li>"
response.write "li>介紹："rs(3)"/li>"
end if
rs.close
set rs = nothing
conn.close
set conn = nothing