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;

  }

  % >