后台等待中代码

Sub Page_loading_waiting()

Dim str As String
str = "<div id='mydiv' align='center' style='position:absolute;z-index:3;top:200px;left:250px;250;height:60;border-1;border-style:ridge;background-color:green;padding-top:10px'>"
str = str & "_"
str = str & "</div>"
str = str & "<script>mydiv.innerText = '';</" & "script>"
str = str & "<script language=javascript>"
str = str & "function ShowWait(){var img;img='<center><b>程序運行中﹐請等待。。。。。。<br></img></center>';mydiv.innerHTML=img;}"
str = str & "function StartShowWait(){mydiv.style.visibility = 'visible';ShowWait();} "
str = str & "function HideWait(){mydiv.style.visibility = 'hidden';}"
str = str & "</" & "script>"
str = str & "<script>StartShowWait();</" & "script>"
Response.Write(str)
Response.Flush()
Response.Write("<script>HideWait();</" & "script>")
End Sub