Session在計(jì)算機(jī)中,尤其是在網(wǎng)絡(luò)應(yīng)用中,稱為“會話”。

常熟網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián),常熟網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為常熟成百上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢,請找那個(gè)售后服務(wù)好的常熟做網(wǎng)站的公司定做!
Session直接翻譯成中文比較困難,一般都譯成時(shí)域。在計(jì)算機(jī)專業(yè)術(shù)語中,Session是指一個(gè)終端用戶與交互系統(tǒng)進(jìn)行通信的時(shí)間間隔,通常指從注冊進(jìn)入系統(tǒng)到注銷退出系統(tǒng)之間所經(jīng)過的時(shí)間。
下面我們舉例在asp.net中來應(yīng)用Session。
1.創(chuàng)建一個(gè)頁面,叫SendSession
2.在頁面內(nèi)添加兩個(gè)TextBox,叫TxtName,TxtEmail,添加一個(gè)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.再創(chuàng)建一個(gè)頁面,叫ReceiveMessage.aspx
4.在頁面內(nèi)添加兩個(gè)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();
//使用結(jié)束要清除Session中的值
}
這是使用Session傳遞數(shù)值,此方式耗費(fèi)服務(wù)器的資源,盡量少使用
你那個(gè)百分比不對,暫時(shí)改為0~80出現(xiàn)幾率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
這個(gè)用讀寫TXT的話比較繁瑣,建議題主使用讀寫INI的方式,參考:
'聲明INI配置文件讀寫API函數(shù)
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
'定義讀取配置文件函數(shù)
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
'定義寫入配置文件函數(shù)
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"?'假設(shè)是這個(gè)文件
那么讀取的時(shí)候:
TextBox1.Text?=?GetINI("main","v1","",?path)
TextBox2.Text?=?GetINI("main","v2","",?path)
TextBox3.Text?=?GetINI("main","v3","",?path)
寫入的時(shí)候:
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
網(wǎng)上下載我也試過,一個(gè)大文件下載好了又裝不了。還是買光盤吧,5元一張,省時(shí)省力!網(wǎng)上病毒太瘋狂。彈窗也太流行了。
vb.net 語言編譯環(huán)境已經(jīng)繼承在Visual Studio 里了。你下載下面的這個(gè)鏈接就可以。
Visual Studio 2008專業(yè)版下載
Visual Studio 2010旗艦版版下載
你下載那個(gè)都行的。版本只是新一點(diǎn)!
希望對您有用~
分享標(biāo)題:包含vb86net的詞條
文章路徑:http://chinadenli.net/article44/hsjeee.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供品牌網(wǎng)站制作、定制開發(fā)、App設(shè)計(jì)、標(biāo)簽優(yōu)化、用戶體驗(yàn)、微信小程序
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)