如何用Sleep函数编译一个定时组件？
时间：2010-06-13 14:35:00
如何用Sleep函数编译一个定时组件？
见下：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private m_set As Long
Public Property Get setup() As Long
setup = m_set
End Property
Public Property Let setup(strset As Long)
m_set = strset
End Property
Public Function Sleeptime()
Sleep (setup)
End Function
编译后下，就生成timer.dll组件。我们把它复制到windows目录下，在MS-DOS方式中进行注册，输入：c:\windows\regsvr32 timer.dll 即可。
现在你就可以在ASP里调用它了，具体代码如下：
<html>
<title>asp教程之定时组件调用 - asp之家</title>
<head>
</head>
<body>
<％
Server.ScriptTimeOut=3600
' 将脚本默认执行时间90秒该为3600秒，否则程序会中断
set obj=server.createobject("timer.sleep")
' 参数1000为线程挂起一秒钟，可以任设
obj.setup=1000
do while true
response.write "("&right(Time,8)&")现在计时为<font color=red>"&application("time_count")
&"</font><br>"
obj.sleeptime
application("time_count")=application("time_count")+1
If Not Response.IsClientConnected Then
set obj=nothing
session.abandon
End If
loop
％>
</body>
</html>
0
投稿猜你喜欢
关于Youtube URL的十个技巧
ASP+SQL Server构建网页防火墙
ASP 使用jqGrid实现读写删的代码(json)
js如何能知道浏览者计算机使用的语言是繁体还是简体
Microsoft SQL Server 安全问题
适合所有网站的rss和xml聚合功能asp代码
使用游标进行PHP SQLSRV查询的方法与注意事项
Script 元素 type 属性的妙用
网页设计：巧用记事本编辑网页
5个充满想象力的Web调色板
