使用缓存

一些网页文件，例如css、js、图片文件，很少会频繁更新，为提高效率，可以使用缓存：在一定时间内将文件缓存在客户端，这样客户端再次使用这些文件时，可直接使用缓存文件，无需再次访问服务器下载，以提高效率。

HttpRequest时间有个CatcheTime属性，用于设置缓存时间，单位为秒。

示例

例如希望除html和htm之外的文件，全部在客户端缓存一个小时：

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".zip",".rar"
            e.CacheTime = 3600 '缓存文件一个小时
            e.WriteFile(fl)
            Return
        Case ".html",".htm"
            e.WriteFile(fl)
            Return
    End Select
End If

提示：

1、这只是一个示例，实际上静态的网页也应该缓存的。

2、在缓存期内刷新页面(例如在地址栏再次按回车或单击刷新按钮)，依然会重新访问服务器下载文件。