--------------------search by ASPHouse http://aspage.yeah.net/------------------------ 在ASP中我們?yōu)橥瓿?BR>某些特定功能時,需要延遲輸出,讓腳本運(yùn)行更長的時間,比如說聊天室程序,我們知道更新對話內(nèi)容有兩種方法,一是
客戶端自動刷新,每隔一段時間向服務(wù)器查詢一次,看看有沒有新的內(nèi)容,而另一種就是服務(wù)器主動輸出新的內(nèi)容,這兩
種辦法的優(yōu)缺點很明顯,前者內(nèi)容不夠?qū)崟r性,但對服務(wù)器的負(fù)擔(dān)較輕,而后一種,由于需要長時間在服務(wù)器上執(zhí)行腳
本,因此人數(shù)多的時侯,當(dāng)然是一種累服務(wù)器的工作了。
針對后一種應(yīng)用,我們需要延遲ASP的執(zhí)行,但又不能空占用服務(wù)器資源,比如說加個無窮循環(huán)下去,這樣的話很快就
把你的CPU吃掉了,只有在循環(huán)中加如一個定時功能,讓每個循環(huán)可以掛起一定是時間,那么這段時間CPU是空閑的,這樣
才不致于讓CPU“當(dāng)”了機(jī)
先看這個例子http://chat.aaaaa.com.cn/question/disptest.asp,看看它象不象碧海銀沙那類的聊天室的更新訪
式?
ASP中沒有setTimeout這類的定時語句,我們需要利用ASP組件來解決,同樣,可以采用VB6來編制,具體操作方法參考
上一編組件的做法,為了掛起線程,我們需要運(yùn)用WIN32API函數(shù)Sleep,同樣新建一個Active Dll工程,起名字為Timer,
類名為sleep。
sleep這個WIN32API函數(shù)可以用VB6自帶的API文本瀏覽器中找到它的聲明方法
現(xiàn)在類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
完成組件注冊,同樣可以使用這個定時組件。
現(xiàn)在解說剛才按個列子的ASP調(diào)用文件??纯催@個組件如何使用
*定時器的應(yīng)用
<html>
<title>定時器的應(yīng)用</title>
<head>
</head>
<body>
<%
‘這個是腳本執(zhí)行時間,默認(rèn)為90秒,需要改長一點,不然在90秒后程序會被中斷'3600為一小時
Server.ScriptTimeOut=3600
set obj=server.createobject("timer.sleep")
'參數(shù)1000為線程掛起一秒鐘,可以隨意設(shè)定
obj.setup=1000
do while true
response.write "("&right(Time,8)&") 您好,現(xiàn)在計數(shù)值為<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>
好了,我把上面的代碼打包,大家看看這個組件對您自己有什么幫助吧,可能一定用處也沒有,但也可能很有用處,
以上組件的運(yùn)行環(huán)境為:Pwin98+Pws4
NT40+IIS40