ASP定时组件

夏若雪xue111

夏若雪xue111

2016-01-29 18:06

ASP定时组件,ASP定时组件
  在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:windowsregsvr32 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


 
展开更多 50%)
分享

猜你喜欢

ASP定时组件

ASP
ASP定时组件

ASP ActiveX 组件

ASP
ASP ActiveX 组件

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

asp组件上传

ASP
asp组件上传

ASP 组件指南

ASP
ASP 组件指南

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用ASP写组件

Web开发
用ASP写组件

浅析ASP内置组件

ASP
浅析ASP内置组件

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Excel快速查找成绩表中出错的号码

Excel快速查找成绩表中出错的号码

[工具 使用 原创] ls可以是彩色的 df也可以是彩色的

[工具 使用 原创] ls可以是彩色的 df也可以是彩色的
下拉加载更多内容 ↓