|
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)
|
