推荐:Windows 2003 安装设置iis安装篇2003默认安装不带IIS的,要安装,请点击开始->管理工具->配置您的服务器向导然后一步步的下一步。到了列表选择项目的时候。从列表中选择应用服务器(IIS,ASP.NET)
实例演示:先建立一个简单的数据库,写个function读取一下,写入一个dim变量temp中:
ASP代码
| 以下为引用的内容: <% Function DisplayRecords() Dim sql, conn, rs sql = SELECT id, [szd_f], [szd_t] FROM admin Set conn = Server.CreateObject(ADODB.Connection) conn.Open DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&Server.MapPath(db.mdb) Set rs = Server.CreateObject(ADODB.Recordset) rs.Open sql, conn, 1, 3 If Not rs.EOF Then Dim temp temp = <table width=90% align=center temp = temp & border=1 bordercolor=silver temp = temp & cellspacing=2 cellpadding=0> temp = temp & <tr bgcolor=#CCDDEE><td width=5% temp = temp & >ID</td><td>操作</td> temp = temp & <td>数值</td></tr> While Not rs.EOF temp = temp & <tr><td bgcolor=#CCDDEE> temp = temp & rs(ID) & </td><td> & rs(szd_f) temp = temp & </td><td> & rs(szd_t) temp = temp & </td></tr> rs.MoveNext Wend temp = temp & </table> DisplayRecords = temp Else DisplayRecords = Data Not Available. End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing End Function '写入缓存 Function DisplayCachedRecords(Secs) Dim retVal, datVal, temp1 retVal = Application(cache_demo) datVal = Application(cache_demo_date) If datVal = Then datVal = DateAdd(s,Secs,Now) End If temp1 = DateDiff(s, Now, datVal) If temp1 > 0 And retVal <> Then DisplayCachedRecords = retVal ' Debugging Code : Response.Write <b><font color=green>利用缓存读取数据 Response.Write ... ( & temp1 & 秒剩余)</font></b> Response.Write <br><br> Else Dim temp2 ' Change DisplayRecords() to the function whose ' value you want to cache temp2 = DisplayRecords() Application.Lock Application(cache_demo) = temp2 Application(cache_demo_date) = DateAdd(s,Secs,Now) Application.UnLock DisplayCachedRecords = temp2 ' Debugging Code : Response.Write <b><font color=red>刷新缓存显示 ... Response.Write </font></b><br><br> End If End Function %> <!-- Response.Write DisplayRecords() --> <html> <head> <title>利用缓存从数据库---读取数据</title> <style> body, p, td { font-family:Sans-Serif; font-size:8pt; } td { padding-left: 5; } </style> </head> <body> <% Dim t1, t2 t1 = Timer Response.Write DisplayCachedRecords(20) t2 = Timer %> <p align=center> 停留时间: <%= Left((CDbl((t2 - t1) * 1000.0)), 5) %> ms </p> </body> </html> |
分享:ASP基础教程之ASP AdRotator 组件的使用ASP AdRotator 组件每当用户进入网站或刷新页面时,ASP AdRotator组件就会创建一个AdRotator对象来显示一幅不同的图片。语法: 以下为引用的内容