fork download
  1. <%@language=jscript%>
  2. <%//AJAX remot program in charge of database query%>
  3. <%Response.Charset="utf-8"%>
  4. <%
  5.  
  6. function getFirstRecordFromQueryResult(database, sql){
  7. var Conn = Server.CreateObject("ADODB.Connection");
  8. Conn.ConnectionString = "DBQ=" + Server.MapPath(database) + ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25;FIL=MS Access;";
  9. Conn.Open();
  10. var RS = Conn.Execute(sql);
  11. var out="";
  12. while(!RS.EOF)
  13. {
  14. for (i=0; i<RS.Fields.Count; i++)
  15. {
  16. out=out+"<option>"+RS(i)+"</option>";
  17. }
  18. RS.MoveNext();
  19. }
  20. RS.Close();
  21. Conn.Close();
  22. return(out);
  23. }
  24.  
  25. database="song.mdb"; <!-- find data in song.mdb-->
  26. sql="SELECT Language FROM Song GROUP BY Language";
  27. outStr=getFirstRecordFromQueryResult(database, sql); <!-- find data by sql,song.mdb-->
  28. Response.write(outStr);
  29. %>
  30.  
Runtime error #stdin #stdout 0.28s 213184KB
stdin
Standard input is empty
stdout
Standard output is empty