<Meta http-equiv="refresh" content="1; url=要去的页面">
<html>
<head>
<style type="text/css">
<!--
BODY { FONT-SIZE: 9pt }
-->
</style>
</head>
<body>
<center>
这里放置动画
</center>
</html>
<html>
<head>
<style type="text/css">
<!--
BODY { FONT-SIZE: 9pt }
-->
</style>
</head>
<body>
<center>
这里放置动画
</center>
</html>
在提交时
<form onsubmit="check()">function check()
{
document.all("divDonghua").style.display = "block";
return true;
}在post之后, 显示新的页面, 这个层就又不显示了
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub Private Overloads Sub btnSure_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnSure.Click
Dim sTemp As String Try
Dim scriptString As String = "<script language=JavaScript>"
scriptString += "document.all('divDonghua').style.display = 'block';<"
scriptString += "/"
scriptString += "script>" Me.RegisterStartupScript("key", scriptString) cBusObject = New WebUserInterFace.localhost.BusinessService sTemp = cBusObject.DataExc("统计信息")
Response.Write("<FONT face=宋体 size=2 color=#ff3366>" & sTemp & "</FONT>") Catch ex As Exception
Response.Write("<FONT face=宋体 size=2 color=#ff3366>" & ex.Message & "</FONT>")
End Try
End Sub