一、使用缓存
一些网页文件,例如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、动态生成的内容也可以缓存,例如某个动态生成的统计结果,每天在中午12点数据才会发生变动,你可以计算距离下次数据变动的时间间隔,将缓存设置为此时间间隔。
3、缓存 不是针对整个网站,是针对单次访问的内容,所以可以是静态文件,也可以是动态生成的内容,可以根据需要设置某次访问是否需要缓存,
3、在缓存期内刷新页面(例如在地址栏再次按回车或单击刷新按钮),依然会重新访问服务器下载文件。
二、OpenQQ的内置聊天窗口可以设置标题和图标了,QQClient的OpenChatWindow改进后的语法为:
OpenChatWindow()
OpenChatWindow(Caption)
OpenChatWindow(Caption,IconFile)
参数说明:
Caption: 用于指定内置聊天窗口标题
IconFile: 用于指定内置聊天窗口的图标文件,必须为Icon格式,如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径。
[此贴子已经被作者于2019/6/11 11:02:45编辑过]