top
Loading...
ASP定時組件
--------------------search by ASPHouse http://aspage.yeah.net/------------------------在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:windowsegsvr32 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

北斗有巢氏 有巢氏北斗