正文
包含vb86net的词条
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
asp.net怎样取得session
Session在计算机中，尤其是在网络应用中，称为“会话”。
Session直接翻译成中文比较困难，一般都译成时域。在计算机专业术语中，Session是指一个终端用户与交互系统进行通信的时间间隔，通常指从注册进入系统到注销退出系统之间所经过的时间。
下面我们举例在asp.net中来应用Session。
1.创建一个页面，叫SendSession
2.在页面内添加两个TextBox，叫TxtName，TxtEmail，添加一个Button，叫Submit
protected void Submit_Click(object sender, EventArgs e)
{//可以使用Session的Add方法
Session["Name"] = TxtName.Text;
//可以使用Session.Add("Name",TxtName.Text);
Session["Email"] = TxtEmail.Text;
//可以使用Session.Add("Email",TxtEmail.Text);
Response.Redirect("ReceiveMessage.aspx");
}
3.再创建一个页面，叫ReceiveMessage.aspx
4.在页面内添加两个Label，叫LbName，LbEmail
protected void Page_Load(object sender, EventArgs e)
{
LbName.Text = Session["Name"].ToString();
LbEmail.Text = Session["Email"].ToString();
Session["Name"].Remove();
Session["Email"].Remove();
//使用结束要清除Session中的值
}
这是使用Session传递数值，此方式耗费服务器的资源，尽量少使用
相关问答
Q1: 求一段vb.net代码
你那个百分比不对，暂时改为0～80出现几率25%：
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim a As Integer, b As Integer
Randomize()
a = Int(Rnd() * 101)
Select Case a
Case 0 To 25
b = Int(Rnd() * 80)
Case 26 To 65
b = Int(Rnd() * 20) + 80
Case 66 To 85
b = Int(Rnd() * 20) + 100
Case 86 To 95
b = Int(Rnd() * 10) + 120
Case Else
b = Int(Rnd() * 20) + 130
End Select
TextBox1.Text = b.ToString
End Sub
Q2: vb.net读写txt文件的问题
这个用读写TXT的话比较繁琐，建议题主使用读写INI的方式，参考：
'声明INI配置文件读写API函数
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
'定义读取配置文件函数
Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String
Dim Str As String = LSet(Str, 256)
GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)
Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)
End Function
'定义写入配置文件函数
Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long
WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)
End Function
'定义INI文件位置
Dim path As String
path = "C:\t861239263.ini" '假设是这个文件
那么读取的时候：
TextBox1.Text = GetINI("main","v1","", path)
TextBox2.Text = GetINI("main","v2","", path)
TextBox3.Text = GetINI("main","v3","", path)
写入的时候：
WriteINI("main","v1", TextBox1.Text, path)
WriteINI("main","v2", TextBox2.Text, path)
WriteINI("main","v3", TextBox3.Text, path)
【附】INI文件的格式，范例：
[main]
v1=133233
v2=132387
v3=322333
[aaa]
abc=1
bcd=2
[bbb]
ni=wo
wo=ta
Q3: vb.net程序在哪里可以下载到呢？
网上下载我也试过，一个大文件下载好了又装不了。还是买光盘吧，5元一张，省时省力！网上病毒太疯狂。弹窗也太流行了。
Q4: 谁有vb.net的教程下载地址啊是net 不是vb 求大神
vb.net 语言编译环境已经继承在Visual Studio 里了。你下载下面的这个链接就可以。
Visual Studio 2008专业版下载
Visual Studio 2010旗舰版版下载
你下载那个都行的。版本只是新一点！
希望对您有用~
