<%@language=jscript%>
<%//AJAX remot program in charge of database query%>
<%Response.Charset="utf-8"%>
<%
function getFirstRecordFromQueryResult(database, sql){
var Conn = Server.CreateObject("ADODB.Connection");
Conn.ConnectionString = "DBQ=" + Server.MapPath(database) + ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25;FIL=MS Access;";
Conn.Open();
var RS = Conn.Execute(sql);
var out="";
while(!RS.EOF)
{
for (i=0; i<RS.Fields.Count; i++)
{
out=out+"<option>"+RS(i)+"</option>";
}
RS.MoveNext();
}
RS.Close();
Conn.Close();
return(out);
}
database="song.mdb"; <!-- find data in song.mdb-->
sql="SELECT Language FROM Song GROUP BY Language";
outStr=getFirstRecordFromQueryResult(database, sql); <!-- find data by sql,song.mdb-->
Response.write(outStr);
%>
PCVAbGFuZ3VhZ2U9anNjcmlwdCU+CjwlLy9BSkFYIHJlbW90IHByb2dyYW0gaW4gY2hhcmdlIG9mIGRhdGFiYXNlIHF1ZXJ5JT4KPCVSZXNwb25zZS5DaGFyc2V0PSJ1dGYtOCIlPgo8JQoKZnVuY3Rpb24gZ2V0Rmlyc3RSZWNvcmRGcm9tUXVlcnlSZXN1bHQoZGF0YWJhc2UsIHNxbCl7Cgl2YXIgQ29ubiA9IFNlcnZlci5DcmVhdGVPYmplY3QoIkFET0RCLkNvbm5lY3Rpb24iKTsKCUNvbm4uQ29ubmVjdGlvblN0cmluZyA9ICJEQlE9IiArIFNlcnZlci5NYXBQYXRoKGRhdGFiYXNlKSArICI7RHJpdmVyPXtNaWNyb3NvZnQgQWNjZXNzIERyaXZlciAoKi5tZGIpfTtEcml2ZXJsZD0yNTtGSUw9TVMgQWNjZXNzOyI7CglDb25uLk9wZW4oKTsKCXZhciBSUyA9IENvbm4uRXhlY3V0ZShzcWwpOwoJdmFyIG91dD0iIjsKICAgIHdoaWxlKCFSUy5FT0YpCgl7CgkJZm9yIChpPTA7IGk8UlMuRmllbGRzLkNvdW50OyBpKyspCgkJewoJCQlvdXQ9b3V0KyI8b3B0aW9uPiIrUlMoaSkrIjwvb3B0aW9uPiI7CgkJfQoJCVJTLk1vdmVOZXh0KCk7Cgl9CglSUy5DbG9zZSgpOwoJQ29ubi5DbG9zZSgpOwoJcmV0dXJuKG91dCk7Cn0KCmRhdGFiYXNlPSJzb25nLm1kYiI7CQk8IS0tIGZpbmQgZGF0YSBpbiBzb25nLm1kYi0tPgpzcWw9IlNFTEVDVCBMYW5ndWFnZSBGUk9NIFNvbmcgR1JPVVAgQlkgTGFuZ3VhZ2UiOwkgCm91dFN0cj1nZXRGaXJzdFJlY29yZEZyb21RdWVyeVJlc3VsdChkYXRhYmFzZSwgc3FsKTsgPCEtLSBmaW5kIGRhdGEgYnkgc3FsLHNvbmcubWRiLS0+ClJlc3BvbnNlLndyaXRlKG91dFN0cik7CQkKJT4K