• 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>")
    %>
    

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

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

  • 相关阅读:
    写360搜索网页总结
    display和position以及其余标签的使用
    MySQL中的 show index命令
    MySQL中查看索引使用情况
    分布式存储容错原理
    MySQL中通过trace分析优化器跟踪SQL
    MySQL中的 show profile 分析sql
    MySQL 中的 dual表
    Every derived table must have its own alias(sql语句错误解决方法)
    MySQL 中的 explain 语句各字段解释
  • 原文地址:https://www.cnblogs.com/geovindu/p/3485010.html
Copyright © 2020-2023  润新知