ASP实现缓存!

  '下拉菜单缓存
ListBox = Application("ListBox")
' 将Application Object作为一个变量定义
If ListBox = "" Then
' 检查它是否已被设置
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DSN=travel;UID=;PWD="
' 如果没有,则转到数据库去检索
sql = "SELECT * FROM types"
Set rs = oConn.Execute(sql)
crlf = chr(13) & chr(10)
ListBox = "<select name='listbox'>" & crlf
Do Until rs.EOF
' 用一个循环把recordset赋值给ListBox 变量
Listbox = ListBox & " <option>" & _
rs("type") & "</option>" & crlf
rs.MoveNext
Loop
Application("ListBox") = ListBox
' 把变量赋给Application object
End If