搜索:
首页 >> Asp教程 >> Asp经验技巧 >> 缓存是如何实现的?

缓存是如何实现的?

2009-11-1 来源:中国Asp之家 投递文章

看看下面这个刚才提到的下拉列表的例子,就是将Application Object作为一个变量用来存储下拉列表的菜单项的:

<%= Application("ListBox")%>

<%
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
%>
Tags:缓存  存储  asp 
相关文章
手机版 Asp经验技巧 Asp之家 Aspxhome.com
闽ICP备06017341号