网络编程
位置:首页>> 网络编程>> Asp编程>> 缓存是如何实现的?

缓存是如何实现的?

 来源:asp之家 发布时间:2009-11-01 15:35:00 

标签:缓存,存储,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
%>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com