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

时间:2022-09-04 21:28:59

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

displayBooks.asp

  1. < %@ LANGUAGE=JavaScript % >   
  2. < html >   
  3. < body >   
  4. < form method=post >   
  5. 图书分类; < %= getBooksListBox() % >   
  6. < p>   
  7. < input type=submit >   
  8.  
  9. < %   
  10. function getBooksListBox()   
  11. {   
  12. BooksListBox = Application("BooksListBox")   
  13. if (BooksListBox != nullreturn BooksListBox;   
  14. crlf = String.fromCharCode(13, 10)   
  15. BooksListBox = "< select name=Books>" + crlf;   
  16. SQL = "SELECT * FROM Books ORDER BY Name";   
  17. cnnBooks = Server.CreateObject("ADODB.Connection");   
  18. cnnBooks.Open("Books""Admin","");   
  19. rstBooks = cnnBooks.Execute(SQL);   
  20. fldBookName = rstBooks("BookName");   
  21. while (!rstBooks.EOF){   
  22. BooksListBox = BooksListBox + " < option>" +   
  23. fldBookName + "" + crlf;   
  24. rstBooks.MoveNext();   
  25. }   
  26. BooksListBox = BooksListBox + ""   
  27. Application("BooksListBox") = BooksListBox  
  28.  
  29. ' 注意这句,Application技术的精华应哦  
  30. return BooksListBox;   
  31. }   
  32. % >