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

看看点按钮后的结果