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="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(); } else {// 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 loop response.write("</table>") %>
哲学管理(学)人生, 文学艺术生活, 自动(计算机学)物理(学)工作, 生物(学)化学逆境, 历史(学)测绘(学)时间, 经济(学)数学金钱(理财), 心理(学)医学情绪, 诗词美容情感, 美学建筑(学)家园, 解构建构(分析)整合学习, 智商情商(IQ、EQ)运筹(学)生存.---Geovin Du(涂聚文)