我放到2M带宽的阿里云测试，6秒左右，主要就是图片加载花时间，看下图
此主题相关图片如下：1.png
Dim fl As String = projectpath & "web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".js",".css",".html",".htm",".zip",".rar",".txt",".doc"
e.WriteFile(fl)
Return '这里必须返回
Case ".jpg",".gif",".png",".bmp",".wmf",".woff",".woff2",".ttf" '这里加上了js扩展名
e.CacheTime = 180 '缓存文件5分钟
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
注意如果启用事件头，就不能在使用HttpServer.WebPath 了，否则无效，启用缓存后，缓存期间内加载就快多了
此主题相关图片如下：2.png
加好友 
发短信
Post By：2020/11/9 16:28:00 [显示全部帖子]
