繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP定时组件
- ASP
- TSYS 新闻列表JS调用下载
- 使用asp代码突破图片的防盗连
- 一种理论上最快的Web数据库分页方法
- asp：debug类调试程序
- 如何增加Referer功能--反向链接插件
- pjblog中清空引用的小程序
- 光碟工具 Alcohol 120% v1.9.6.4719 下载(附序列号注册码)
- ASP实现头像图像随机变换
- UTF-8 Unicode Ansi 汉字GB2321几种编码转换程序
- [转]XMLHTTPRequest的属性和方法简介
- ASP常用函数:getpy()
- 我用ASP写的m行n列的函数,动态输出创建TABLE行列
- ASP常用函数:Delay()
- ASP常用函数:Trace()
- [转]ASP实现关键词获取(各搜索引擎,GB2312及UTF-8)
- 对象标记具有无效的 ''MSWC.MyInfo'' ProgID
- ServerVariables集合检索预定的环境变量
- HTTP_HOST 和 SERVER_NAME 的区别详解
- [转]ASP常用函数:TimeZone
- Eval 函数 | Execute 语句 | ExecuteGlobal 语句
ASP定时组件
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 220 ::
收藏到网摘: n/a
客户端自动刷新，每隔一段时间向服务器查询一次，看看有没有新的内容，而另一种就是服务器主动输出新的内容，这两
种办法的优缺点很明显，前者内容不够实时性，但对服务器的负担较轻，而后一种，由于需要长时间在服务器上执行脚
本，因此人数多的时侯，当然是一种累服务器的工作了。
针对后一种应用，我们需要延迟ASP的执行，但又不能空占用服务器资源，比如说加个无穷循环下去，这样的话很快就
把你的CPU吃掉了，只有在循环中加如一个定时功能，让每个循环可以挂起一定是时间，那么这段时间CPU是空闲的，这样
才不致于让CPU“当”了机
先看这个例子http://chat.aaaaa.com.cn/question/disptest.asp，看看它象不象碧海银沙那类的聊天室的更新访
式？
ASP中没有setTimeout这类的定时语句，我们需要利用ASP组件来解决，同样，可以采用VB6来编制，具体操作方法参考
上一编组件的做法，为了挂起线程，我们需要运用WIN32API函数Sleep，同样新建一个Active Dll工程，起名字为Timer，
类名为sleep。
sleep这个WIN32API函数可以用VB6自带的API文本浏览器中找到它的声明方法
现在类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这个组件dll，如果您不会写VB程序，那么您也可以在下载的文件包里找到timer.dll
这个文件。把它copy到windows目录下，在MS-DOS方式中输入
c:\windows\regsvr32 timer.dll
完成组件注册，同样可以使用这个定时组件。
现在解说刚才按个列子的ASP调用文件。看看这个组件如何使用
＊定时器的应用
<html>
<title>定时器的应用</title>
<head>
</head>
<body>
<%
‘这个是脚本执行时间，默认为90秒，需要改长一点，不然在90秒后程序会被中断'3600为一小时
Server.ScriptTimeOut=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>
好了，我把上面的代码打包，大家看看这个组件对您自己有什么帮助吧，可能一定用处也没有，但也可能很有用处，
以上组件的运行环境为：Pwin98+Pws4
NT40+IIS40
评论 (0) All
