VB.NET編程語言的實(shí)現(xiàn)方法比較特殊，可以在一定程度上提高編程員的開發(fā)效率。比如像本文介紹的VB.NET網(wǎng)頁計(jì)數(shù)器的實(shí)現(xiàn)，就可以以一種簡單靈活的方式來實(shí)現(xiàn)。今天下午自己做了一個VB.NET網(wǎng)頁計(jì)數(shù)器。請大家一起來看看具體的實(shí)現(xiàn)方法。

其實(shí)網(wǎng)上有很多的第三方計(jì)數(shù)器，用了發(fā)現(xiàn)速度慢，很不爽的是還要注冊，所以自己網(wǎng)上查查資料自己寫了一個，很好用。 其實(shí)原理也很簡單。目前流行的制作方法有兩種，一種方法是把“計(jì)數(shù)”放在數(shù)據(jù)庫中。第二種方法把“計(jì)數(shù)”放在txt文件中。我采用了后者，主要涉及在global.asax文件中進(jìn)行文件的讀寫和計(jì)數(shù)的累加。

VB.NET網(wǎng)頁計(jì)數(shù)器實(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è)計(jì)器生成的代碼 "  
Public Sub New()  
MyBase.New()  
'該調(diào)用是組件設(shè)計(jì)器所必需的。  
InitializeComponent()  
'在 InitializeComponent() 
調(diào)用之后添加任何初始化  
End Sub  
'組件設(shè)計(jì)器所必需的  
Private components As 
System.ComponentModel.IContainer 

注意: 以下過程是組件設(shè)計(jì)器所必需的可以使用組件設(shè)計(jì)器修改此過程。不要使用代碼編輯器修改它。

< 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)  
' 在應(yīng)用程序啟動時激發(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)  
' 嘗試對使用進(jìn)行身份驗(yàn)證時激發(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)  
' 在應(yīng)用程序結(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ā)，需要用到計(jì)數(shù)器的地方只需要加一個語句< %=application("counter")%>即可得到計(jì)數(shù)的值。可以做的好看一點(diǎn)就把數(shù)值的每一位分解成單個的字符，如1234分解后對應(yīng)的圖片為,1.gif,2.gif,3.gif,4.gif,顯然圖片對應(yīng)的數(shù)字更美觀。下面是在模版中的部分代碼：

< div align="center">   
< p>版權(quán)所有&copy; 2006 
中國科學(xué)院遙感應(yīng)用研究所 < /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)頁計(jì)數(shù)器的具體實(shí)現(xiàn)方法就為大家介紹到這里。

【編輯推薦】

1. VB.NET基本函數(shù)內(nèi)容概述
2. VB.NET中心旋轉(zhuǎn)圖像實(shí)現(xiàn)技巧分享
3. 快速掌握VB.NET獲取CPU使用率技巧
4. VB.NET刪除空白行具體實(shí)現(xiàn)方法詳解
5. VB.NET連接遠(yuǎn)程數(shù)據(jù)庫技巧分享