本例目的为制作一个通用的定时跳转页面，当程序需要进行页面跳转的时候，只需要Response.Redirect("jumpPage.aspx?url=xxxxx&Message=xxxxx")就可以用了。
jumpPage.aspx
1 <span id="s">用来显示提示信息<Span id="d">用来显示，N秒后跳转
2 var u=<%= murl%>;用来提取后台Request得到的值。由传递过来的页面参数得来。
--------------------------------------------------------------------------------
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="jumpPage.aspx.vb" Inherits="Mydesk_Base_jumpPage" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>无标题页</title>
</head><body>
<form id="form1" runat="server">
<br />
<span id="s" ></span>
<br /><br />
<span id="d"></span>
</form>
<SCRIPT LANGUAGE="JavaScript">
var time = 4;
var u=<%= murl%>;
var m=<%= mes%>;
document.all.s.innerHTML= m;
document.all.d.innerHTML= "－－－"+(time)+"秒后 将跳转到相关页面－－－"
function Redirect(){
window.location=u;
}
var i = 1;
function dis(){
document.all.d.innerHTML= "－－－"+(time-i)+"秒后 将跳转到相关页面－－－"
i++;
}
timer=setTimeout('Redirect()',time * 1000);
timer=setInterval('dis()', 1000);
</SCRIPT>
</body>
</html>
jumpPage.aspx.vb
注：
1 mes为显示信息，murl为n秒后跳转到页的地址
2 mes和murl必须在Sub外定义成Public。否则在javascript找不到。
--------------------------------------------------------------------------------
Partial Class Mydesk_Base_jumpPage
Inherits System.Web.UI.Page
Public mes As String
Public murl As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
mes = Request.QueryString("Message")
murl = Request.QueryString("url")
End Sub
End Class
引用示例：
------------------------------------------------------------------------------
If MailBoxCount> 0 Then
...
Else
Response.Redirect("JumpPage.aspx?url='NewAccount.aspx'&Message='没有配置新邮箱,请配置之后使用'", False)
End If
