Function TimeToSecond(Str)

'时间转为秒函数

Str = DateDiff("s","1970-01-01 08:00:00",Str)

TimeToSecond = Str

End Function

%>

3.2 调用举例

网站首页index.asp中有一语句是call ShowEliteBlocks(xwid)，子程序ShowEliteBlocks(xwid)的作用是使用response.write输出栏目编号不为xwid的推荐栏目的内容和标题，并显示栏目广告。通过改写这个子程序来说明类StaticFile_Class的用法。

原来的ShowEliteBlocks(xwid)的代码结构如下（省略了部分代码）：

Sub ShowEliteBlocks(xwid)

'查询数据库并输出，下面一行为示意代码

Response.write "查询数据库得到的内容"

…（代码被省略）

End sub

修改后的ShowEliteBlocks(xwid)的代码结构如下（省略了部分代码，以下代码段中已加入详细的注释，不再赘述）：

'加入包含类StaticFile_Class的文件

<!--#include virtual="/inc/staticfile.asp"-->

'该子程序为函数

function ShowEliteBlocks(xwid)

        dim pathfilename,objstatic,temps

        '设置缓存文件的文件名

        pathfilename = "/html/classtree" & cstr(ChannelID) & ".html"

        set objstatic = new StaticFile_Class

        objstatic.Filename = pathfilename

        '设置缓存文件有效时间，此处为10分钟，不同栏目可以设置不同值

objstatic.refreshtime = 3600

        '读取缓存文件

temps = objstatic.ReadFile

        '缓存文件存在且缓存时间有效

if objstatic.haserror = 0 then

            ShowEliteBlocks = temps

        '缓存文件不存在，或缓存时间无效，需刷新

        else

'查询数据库并输出，下面为示意代码

'修改原来的response.write为以下形式

Temps = temps & "查询数据库得到的内容"

…（代码被省略）

'刷新缓存文件，以便下次访问

            objstatic.writefile(strClassTree)

ShowEliteBlocks = temps

End if

'清除对象

        Set objstatic = nothing

End function

最后修改index.asp中的call ShowEliteBlocks(xwid)为response.write ShowEliteBlocks(xwid)。

4  结语