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