首页 >> 读书频道 >> 电脑 >> ASP定时组件
 
· 配置IIS4实现应用程序
· ASP服务器组件编程心得
· 使用ASP常见问题解答
· 将ASP代码移植为VB
· 将ASP代码移植为VB
· 将ASP代码移植为VB
· 将ASP代码移植为VB
· 最优化ASP程序性能
· 用ASP语言实现对SQL
· ASP程序密码验证问题
· 用ASP随机产生随机数
· 如何安裝 IIS 5.0
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

ASP定时组件


查看有无更新版本

关键字:ASP技巧 2006-9-8

 

在ASP中我们为完成某些特定功能时,需要延迟输出,让脚本运行更长的时间,比如说聊天室程序,我们知道更新对话内容有两种方法,一是
客户端自动刷新,每隔一段时间向服务器查询一次,看看有没有新的内容,而另一种就是服务器主动输出新的内容,这两
种办法的优缺点很明显,前者内容不够实时性,但对服务器的负担较轻,而后一种,由于需要长时间在服务器上执行脚
本,因此人数多的时侯,当然是一种累服务器的工作了。
针对后一种应用,我们需要延迟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

ASP定时组件

[ 1 ]
ASP定时组件 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑