<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
     
     
 
      Select a customer:123
     
     
      Customer info will be listed here...
     

<% @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,connresponse.write("
     
      ")do until rs.EOF  for each x in rs.Fields    response.write("
")  '字段名    response.write("
") '值名  next  rs.MoveNextloopresponse.write("
      
       
        
" & x.name& "
        
" & x.value& "
       
      
     
")%>