asp下如何在ADO服务器端利用好缓存技术？

请看下面示例，这是一个用来显示图书分类的例子程序：

displayBooks.asp
< %@ LANGUAGE=JavaScript % > 
< html > 
< body > 
< form method=post > 
图书分类； < %= 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

' 注意这句，Application技术的精华应哦
return BooksListBox; 
} 
% >