asp: AJAX Database

% @LANGUAGE= VBSCRIPT CODEPAGE= 65001 % !DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd html xmlns=

 % @LANGUAGE="VBSCRIPT" CODEPAGE="65001" % 

 !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" 

 html xmlns="http://www.w3.org/1999/xhtml" 

 head 

 meta content="text/html; charset=utf-8" http-equiv="Content-Type" / 

 title AJAX Database /title 

 script type="text/javascript" 

function showCustomer(str)

if (str=="")

 document.getElementById("txtHint").innerHTML="";

 return;

if (window.XMLHttpRequest)

 {// code for IE7+, Firefox, Chrome, Opera, Safari

 xmlhttp=new XMLHttpRequest();

 {// code for IE6, IE5

 xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");

xmlhttp.onreadystatechange=function()

 if (xmlhttp.readyState==4 xmlhttp.status==200)

 document.getElementById("txtHint").innerHTML=xmlhttp.responseText;

//str=document.getElementById("customers").value;

//alert(str);

xmlhttp.open("GET","getcustomer.asp?q="+str,true);

xmlhttp.send();

 /script 

 /head 

 body 

 form action="" 

 select name="customers" id="customers" onchange="showCustomer(this.value)" 

 option value="" Select a customer: /option 

 option value="1" 1 /option 

 option value="2" 2 /option 

 option value="3" 3 /option 

 /select 

 /form 

 br/ 

 div id="txtHint" Customer info will be listed here... /div 

 /body 

 /html 

 % @LANGUAGE="VBSCRIPT" CODEPAGE="65001" % 

response.expires=-1

q=ucase(request.querystring("q"))

sql="SELECT * FROM users WHERE ID="

sql=sql "" request.querystring("q") ""

response.write q;


set conn=Server.CreateObject("ADODB.Connection")

conn.Provider="Microsoft.Jet.OLEDB.4.0"

conn.Open(Server.Mappath("dbgeovindu.mdb"))

set rs=Server.CreateObject("ADODB.recordset")

rs.Open sql,conn

response.write(" table ")

do until rs.EOF

 for each x in rs.Fields

 response.write(" tr td b " x.name " /b /td ") 字段名

 response.write(" td " x.value " /td /tr ") 值名

 next

 rs.MoveNext

response.write(" /table ")

http://code.google.com/p/aspjson/downloads/list

http://www.w3schools.com/asp/asp_ajax_database.asp

geovindu 读者是,读之者,者之读.一沙一世界! to be is to do举世皆清我独浊,众人皆醒我独醉.俺是农民工,程序员.