End Class

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)