?? waitfor.asp
字號:
<%
Response.Buffer = true
%>
<html>
<head><title>WaitFor組件示例</title></head>
<body>
<h2>WaitFor組件示例</h2>
<blockquote>
<%
Set WaitObj = Server.CreateObject ("WaitFor.Comp")
Response.Write "現在開始等待: " & Time & "<br>"
Response.Flush
WaitObj.WaitForSeconds 5
Response.Write "等待完成: " & Time
Response.Flush
strFilename = "c:\test.txt"
Response.Write "<p>現在等待文件 " & strFilename
Response.Flush
WaitObj.TimeOut = 45
if WaitObj.WaitForFileExists (strFileName) then
Response.Write "<p>在超時時間內找到了文件"
else
Response.Write "<p>在超時時間內未找到文件"
end if
Response.Flush
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -