ASP.NET跨页面传值技巧(VB.NET篇)

关于页面传值的方法,引发了很多讨论。看来有很多人关注这个,我就我个人观点做了些总结,希望对大家有所帮助。

1.  使用QueryString变量

QueryString是一种非常简单的传值方式,他可以将传送的值显示在浏览器的地址栏中。如果是传递一个或多个安全性要求不高或是结构简单的数值时,可以使用这个方法。但是对于传递数组或对象的话,就不能用这个方法了。下面是一个例子:

a.aspx的VB.NET代码

Private  Sub Button1_Click(ByVal sender As ObjectByVal e As System.EventArgs)
    
Dim s_url As String
    s_url 
= "b.aspx?name=" + Label1.Text
    Response.Redirect(s_url)
End Sub


b.aspx中VB.NET代码
Private  Sub Page_Load(ByVal sender As ObjectByVal e As EventArgs)
    Label2.Text 
= Request.QueryString("name")
End Sub


2.  使用Application 对象变量

Application对象的作用范围是整个全局,也就是说对所有用户都有效。其常用的方法用Lock和UnLock。

a.aspx的VB.NET代码

Private  Sub Button1_Click(ByVal sender As ObjectByVal e As System.EventArgs)
    Application(
"name"= Label1.Text
    Server.Transfer(
"b.aspx")
End Sub


b.aspx中VB.NET代码

Private  Sub Page_Load(ByVal sender As ObjectByVal e As EventArgs)
    
Dim name As String
    Application.Lock()
    name 
= Application("name").ToString()
    Application.UnLock()
End Sub


3.  使用Session变量

想必这个肯定是大家使用中最常见的用法了,其操作与Application类似,作用于用户个人,所以,过量的存储会导致服务器内存资源的耗尽。

a.aspx的VB.NET代码

Private  Sub Button1_Click(ByVal sender As ObjectByVal e As System.EventArgs)
    Session(
"name"= Label.Text
End Sub


b.aspx中VB.NET代码
Private  Sub Page_Load(ByVal sender As ObjectByVal e As EventArgs)
    
Dim name As String
    name 
= Session("name").ToString()
End Sub


4.  使用Cookie对象变量

这个也是大家常使用的方法,与Session一样,其是什对每一个用户而言的,但是有个本质的区别,即Cookie是存放在客户端的,而session是存放在服务器端的。而且Cookie的使用要配合ASP.NET内置对象Request来使用。

a.aspx的VB.NET代码

Private  Sub Button1_Click(ByVal sender As ObjectByVal e As System.EventArgs)
    
Dim cookie_name As HttpCookie =  New HttpCookie("name"
    cookie_name.Value 
= Label1.Text
    Reponse.AppendCookie(cookie_name)
    Server.Transfer(
"b.aspx")
End Sub


b.aspx中VB.NET代码

Private  Sub Page_Load(ByVal sender As ObjectByVal e As EventArgs)
    
Dim name As String
    name 
= Request.Cookie("name").Value.ToString()
End Sub


5.  使用Server.Transfer方法

这个才可以说是面象对象开发所使用的方法,其使用Server.Transfer方法把流程从当前页面引导到另一个页面中,新的页面使用前一个页面的应答流,所以这个方法是完全面象对象的,简洁有效。

a.aspx的VB.NET代码

Public ReadOnly Property Name() As String
    
Get 
         
Return Label1.Text
    
End Get
End Property
Private  Sub Button1_Click(ByVal sender As ObjectByVal e As System.EventArgs)
    Server.Transfer(
"b.aspx")
End Sub


b.aspx中VB.NET代码
Private  Sub Page_Load(ByVal sender As ObjectByVal e As EventArgs)
    
Dim NewWeb As a    '实例a窗体
    NewWeb = CType(Context.Handler, source)
    
Dim name As String
    name 
= NewWeb.Name
End Sub