网络编程
位置:首页>> 网络编程>> Asp编程>> 如何用Sleep函数编译一个定时组件?

如何用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
投稿

猜你喜欢

  • 用户界面和用户体验(UI/UX)是任何产品成败的关键,尤其 Web,Web 是一种公开的,可以被任何人随时随地访问的特殊产品,用户的体验几乎
  • 昨天用ucweb看到了goos发的一篇帖子:谁说Float菜单不可以水平居中,进去看了看,觉得方法有点繁琐了,用到了负边距,position
  • ADO对象: Connection Command Recordset Record Stream ASP支持的对象很多,可以自己编写COM
  • 这是一段点击复制的代码,现在我的页面里不仅有1个链接需要用到这段代码。请哪位好心人指教一下应该怎么用ID对应的方式来改写这段js,使它实现一
  • 当你准备全面进军web标准时,有时候你是不是被表格的弄得焦头烂额呢?比如,原来使用“非法”的nobr现在要用什么来代替呢?今天,就让我来一个
  • Access SQL 函数 收藏 ▲日期/时间CDate  将字符串转化成为日期 select CDate("2005/
  • 购物车是电子商务网站中不可缺少的组成部分,但目前大多数购物车只能作为一个顾客选中商品的展示,客户端无法将购物车里的内容提取出来满足自己事务处
  • 有的时候,我们为了保持网页的美观,需要将较长的文字在一定长度时截断。比如我们希望在列表中显示文章标题的前15个字,那么一个这样的标题:“rs
  • 各位想必都知道,onfocus="this.blur()"这条代码能消除链接时的虚线框,但你有没有想过,如果你的网页上有
  • 偶然看到 Tanel Poder 提到的一个 Metalink Note (438452.1): Performance Tools Qui
  • 用6N±1法求素数任何一个自然数,总可以表示成为如下的形式之一:6N,6N+1,6N+2,6N+3,6N+4,6N+5 (N=0,1,2,…
  • 如果当前绝对定位的元素需要透明(没啥内容、且不设置背景),背景元素有内容透出来的时候,IE6/IE7响应的不是期望的当前元素,而是背景元素。
  • 使用SQL语句生成带有小计合计的数据集:测试用户: scott测试用表: dept,emp/////////////////////////
  • 我们开发数据库应用时,常常需要用到模糊查询。如果同一个条件需要匹配很多字段怎么办呢?通常,程序员会每个字段都在SQL中“field like
  • table估计每个跟web打过交道的人都会经常接触到,跟js结合能做出很多不错的体验。这里打算结合js做一个系列,包括一些操作和效果,虽然现
  • 像素误差看自己设计好上线的网站,偶尔会发觉像素行间出现了弹性空间,总在不经意间蹦出一定的差距。有些页面很难发现,比如活动类页面,这类页面多呈
  • 最近 W3C 一口气推出 7  个 HTML 工作草案,涵盖了 HTML5,HTML RDF,HTML Microdata,HTM
  • 在当今用户的显示器越来越大的今天,之前的1024*768固宽布局有点越来越不合时宜,对大屏幕的用户而言,两侧空空的留白给人第一眼的印象是严重
  • 设计是一个输入-输出的过程,因为首先有用户的需求,客户的项目才有设计的产生,设计是带有目的性和市场行为的,当然也有一部分的创造性设计,仅仅为
  • 大家是否还记得1983年任天堂的著名游戏《超级玛丽》里那个留着胡子的意大利水管工人,还有日本konami公司1987年发行的射击游戏《魂斗罗
手机版 网络编程 asp之家 www.aspxhome.com