How to use caching technology in ADO server side under ASP? _ Application Tips

Take a look at the example below, which is an example program for displaying the classification of books:

Displaybooks.asp
<%@ language=javascript% >
< HTML >
< BODY >
< form Method=post >
Classification of Books <%= Getbookslistbox ()% >
< p>
< input Type=submit >

<%
function Getbookslistbox ()
{
Bookslistbox = Application ("Bookslistbox")
if (Bookslistbox!= null) return bookslistbox;
CRLF = String.fromCharCode (13, 10)
Bookslistbox = "< select name=books>" + CRLF;
SQL = "SELECT * from books ' ORDER by Name";
Cnnbooks = Server.CreateObject ("ADODB"). Connection ");
Cnnbooks.open ("Books", "Admin", "");
Rstbooks = Cnnbooks.execute (SQL);
Fldbookname = Rstbooks ("BookName");
while (!rstbooks.eof) {
Bookslistbox = Bookslistbox + "< option>" +
Fldbookname + "" + CRLF;
Rstbooks.movenext ();
}
Bookslistbox = Bookslistbox + ""
Application ("Bookslistbox") = Bookslistbox

' Note that the essence of application technology should be OH
return bookslistbox;
}
% >