建站
咨詢
售后
建站咨詢
新聞中心
VB.NET編程語言的實現(xiàn)方法比較特殊，可以在一定程度上提高編程員的開發(fā)效率。比如像本文介紹的VB.NET網(wǎng)頁計數(shù)器的實現(xiàn)，就可以以一種簡單靈活的方式來實現(xiàn)。今天下午自己做了一個VB.NET網(wǎng)頁計數(shù)器。請大家一起來看看具體的實現(xiàn)方法。
定遠ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應用場景，ssl證書未來市場廣闊！成為成都創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！
其實網(wǎng)上有很多的第三方計數(shù)器，用了發(fā)現(xiàn)速度慢，很不爽的是還要注冊，所以自己網(wǎng)上查查資料自己寫了一個，很好用。 其實原理也很簡單。目前流行的制作方法有兩種，一種方法是把“計數(shù)”放在數(shù)據(jù)庫中。第二種方法把“計數(shù)”放在txt文件中。我采用了后者，主要涉及在global.asax文件中進行文件的讀寫和計數(shù)的累加。
VB.NET網(wǎng)頁計數(shù)器實現(xiàn)代碼：
- Imports System.Web
- Imports System.Web.SessionState
- Imports System.io
- Imports System.Collections
- Imports System.ComponentModel
- Imports System
- Namespace Transplat
- Public Class Global
- Inherits System.Web.HttpApplication
- #Region " 組件設(shè)計器生成的代碼 "
- Public Sub New()
- MyBase.New()
- '該調(diào)用是組件設(shè)計器所必需的。
- InitializeComponent()
- '在 InitializeComponent()
調(diào)用之后添加任何初始化- End Sub
- '組件設(shè)計器所必需的
- Private components As
System.ComponentModel.IContainer
注意: 以下過程是組件設(shè)計器所必需的可以使用組件設(shè)計器修改此過程。不要使用代碼編輯器修改它。
- < System.Diagnostics.DebuggerStep
Through()> Private Sub
InitializeComponent()- components = New System.
ComponentModel.Container- End Sub
- #End Region
- Sub Application_Start(ByVal
sender As Object, ByVal e As EventArgs)- ' 在應用程序啟動時激發(fā)
- Dim count As Integer = 0
- Dim srd As StreamReader
- Dim file_path As String =
Server.MapPath("counter.txt")- srd = File.OpenText(file_path)
- Dim str As String
- Do While srd.Peek() >= 0
- str = srd.ReadLine()
- count = Integer.Parse(str)
- Loop
- Dim obj As Object = count
- Application("counter") = obj
- srd.Close()
- End Sub
- Sub Session_Start(ByVal sender
As Object, ByVal e As EventArgs)- ' 在會話啟動時激發(fā)
- Application.Lock()
- Dim jishu As Integer = 0
- jishu = Integer.Parse(Application
("counter").ToString)- jishujishu = jishu + 1
- Dim obj As Object = jishu
- Application("counter") = obj
將數(shù)據(jù)記錄寫入文件
- Dim file_path As String =
Server.MapPath("counter.txt")- Dim fs As StreamWriter =
New StreamWriter(file_path, False)- fs.WriteLine(jishu)
- fs.Close()
- End Sub
- Sub Application_BeginRequest
(ByVal sender As Object,
ByVal e As EventArgs)- ' 在每個請求開始時激發(fā)
- End Sub
- Sub Application_Authenticate
Request(ByVal sender As Object,
ByVal e As EventArgs)- ' 嘗試對使用進行身份驗證時激發(fā)
- End Sub
- Sub Application_Error(ByVal
sender As Object, ByVal e As EventArgs)- ' 在發(fā)生錯誤時激發(fā)
- End Sub
- Sub Session_End(ByVal sender
As Object, ByVal e As EventArgs)- ' 在會話結(jié)束時激發(fā)
- End Sub
- Sub Application_End(ByVal
sender As Object, ByVal e As EventArgs)- ' 在應用程序結(jié)束時激發(fā)
- Dim js As Integer
- js = Integer.Parse(Application
("counter").ToString)
將數(shù)據(jù)記錄寫入文件
- Dim file_path As String =
Server.MapPath("counter.txt")- Dim fs As StreamWriter =
New StreamWriter(file_path, False)- fs.WriteLine(js)
- fs.Close()
- End Sub
- End Class
- End Namespace
以上的文件保存在global.asax.vb中。
我比較喜歡用dreamweaver結(jié)合vs.net開發(fā)，需要用到計數(shù)器的地方只需要加一個語句< %=application("counter")%>即可得到計數(shù)的值?？梢宰龅暮每匆稽c就把數(shù)值的每一位分解成單個的字符，如1234分解后對應的圖片為,1.gif,2.gif,3.gif,4.gif,顯然圖片對應的數(shù)字更美觀。下面是在模版中的部分代碼：
- < div align="center">
- < p>版權(quán)所有© 2006
中國科學院遙感應用研究所 < /p>- < FONT face="宋體" color=
"#330033">您是本站的第- < % dim s as string
- dim I as integer
- s=cstr(application("counter")+10^6)
- s=mid(s,2,6)
- for I=1 to 6
- %>
- < img src='../image/counter/
< %=mid(s,I,1)%>.gif' width='15'
height='20'>- < %next%>位訪問者！< /FONT>
- < /div>
VB.NET網(wǎng)頁計數(shù)器的具體實現(xiàn)方法就為大家介紹到這里。
【編輯推薦】
- VB.NET基本函數(shù)內(nèi)容概述
- VB.NET中心旋轉(zhuǎn)圖像實現(xiàn)技巧分享
- 快速掌握VB.NET獲取CPU使用率技巧
- VB.NET刪除空白行具體實現(xiàn)方法詳解
- VB.NET連接遠程數(shù)據(jù)庫技巧分享
網(wǎng)頁題目：VB.NET網(wǎng)頁計數(shù)器代碼編寫方法介紹
轉(zhuǎn)載來于：http://www.dlmjj.cn/article/dpogiej.html
