您现在的位置是:网站首页> 编程资料编程资料
asp下如何在ADO服务器端利用好缓存技术?_应用技巧_
2023-05-25
279人已围观
简介 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;
}
% >
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;
}
% >
相关内容
- asp下如何在Access数据库中立即得到所插入记录的自动编号?_ASP基础_
- asp下将数据库中的信息存储至XML文件中_应用技巧_
- asp下制做行背景颜色交替变换的表格_应用技巧_
- asp下删除Access数词库中的空记录的sql语句_应用技巧_
- 编写一个含二级目录的源码(Asp+JavaScript)_应用技巧_
- 用asp实现网页邮箱访问的方法_应用技巧_
- RESPONSE.WRITE和<%=%的区别_ASP基础_
- asp下调试程序的debug类_应用技巧_
- Insert Date and Time into Access_应用技巧_
- Highlight patterns within strings_应用技巧_
