vb.net原创的一种跨页面页面传值得另类BT方法

无聊时候做的一个实验，通过模块来传东西，不光是字符串了，甚至传dataset这样的数据对象

简单，那就是用vb里面的模块，简单定义字符串变量，get和Set方法

Module MD
Dim ss As String
Public Function setstr(ByVal strin As String)
ss = strin
End Function
Public Function getstr() As String
getstr = ss
End Function
End Module

第一个页面放一个按钮

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MD.setstr("AABBCC")
Response.Redirect("b.aspx")

End Sub



第二个页面b.aspx直接输出这个字符串

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Response.Write(MD.getstr)
End Sub
看看点按钮后的结果