4,007
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
mynameisftb 2005-10-26
- 打赏
- 举报
<script language="VBScript">
Dim oTime : oTime = 60
Function STime
document.all("oInput").value = "00:00:" & oTime
If oTime>0 Then
oTime = oTime - 1
window.setTimeout "STime", 1000
Else
MsgBox "时间到了！"
End If
End Function
Sub Window_Onload
Call STime
End Sub
</script>
<input id="oInput" type="text">
Dim oTime : oTime = 60
Function STime
document.all("oInput").value = "00:00:" & oTime
If oTime>0 Then
oTime = oTime - 1
window.setTimeout "STime", 1000
Else
MsgBox "时间到了！"
End If
End Function
Sub Window_Onload
Call STime
End Sub
</script>
<input id="oInput" type="text">
zy51 2005-10-24
- 打赏
- 举报
已解决。这个板块实在是……
