<p>用VB設(shè)計(jì)基于代理服務(wù)器的網(wǎng)絡(luò)計(jì)費(fèi)系統(tǒng)</p>
<p></p>
<p></p>
<p>概述 </p>
<p>隨著政府上網(wǎng)和企業(yè)上網(wǎng)工程的全面展開(kāi)，各個(gè)政府部門(mén)及企事業(yè)單位Internet應(yīng)用越來(lái)越走向深入。各單位除了建網(wǎng)的一次性投資外，更多面臨的是日常網(wǎng)絡(luò)使用費(fèi)的問(wèn)題，這其中除專線月租費(fèi)、端口費(fèi)、IP地址費(fèi)等固定費(fèi)用外，長(zhǎng)期、不確定的費(fèi)用便是ISP收取的專線網(wǎng)絡(luò)數(shù)據(jù)流量費(fèi)。 </p>
<p>專線用戶在使用網(wǎng)絡(luò)是經(jīng)常面臨這樣一種情況，由于上級(jí)ISP通常不提供上流量統(tǒng)計(jì)查詢手段，而是每月提供一張收費(fèi)單，因此在收到上級(jí)ISP的流量收費(fèi)清單之前，專線用戶單位往往不清楚自己的網(wǎng)絡(luò)使用及費(fèi)用情況，無(wú)法控制每月的網(wǎng)絡(luò)使用費(fèi)用。然而，即使是包月收費(fèi)，專線用戶單位也對(duì)其內(nèi)部各個(gè)部門(mén)或IP地址的網(wǎng)絡(luò)使用情況做到心中有數(shù)。 </p>
<p>如此看來(lái)，按照“誰(shuí)使用，誰(shuí)付費(fèi)”的原則，建立自己的網(wǎng)絡(luò)統(tǒng)計(jì)記費(fèi)系統(tǒng)，隨時(shí)掌握本單位各個(gè)部門(mén)及用戶的網(wǎng)絡(luò)使用情況，收取適當(dāng)?shù)木W(wǎng)絡(luò)使用費(fèi)用，將有利于加強(qiáng)網(wǎng)絡(luò)管理，保證網(wǎng)絡(luò)的合理、有效利用。 </p>
<p>網(wǎng)絡(luò)記費(fèi)系統(tǒng)通常包括數(shù)據(jù)采集、數(shù)據(jù)統(tǒng)計(jì)、記費(fèi)信息查詢、記費(fèi)規(guī)則管理和用戶管理等方面。根據(jù)流量數(shù)據(jù)采集方式的不同，專線網(wǎng)絡(luò)記費(fèi)系統(tǒng)大體可劃分為四種類型： </p>
<p>1、基于路由器的網(wǎng)絡(luò)記費(fèi)系統(tǒng) </p>
<p>路由器本身具備流量統(tǒng)計(jì)功能，因此基于路由器的網(wǎng)絡(luò)記費(fèi)系統(tǒng)定時(shí)讀取路由器MIB管理信息庫(kù)中的IP計(jì)費(fèi)表，并將這些采集到的數(shù)據(jù)處理后裝入數(shù)據(jù)庫(kù)中，在此數(shù)據(jù)庫(kù)基礎(chǔ)上進(jìn)行統(tǒng)計(jì)記費(fèi)等管理工作。 </p>
<p>但為路由器增加流量統(tǒng)計(jì)任務(wù)必然會(huì)加重其工作負(fù)載，而且，與記費(fèi)相關(guān)的數(shù)據(jù)變量如不及時(shí)讀取就會(huì)溢出，造成數(shù)據(jù)丟失。因此數(shù)據(jù)采集周期要求很短。這樣，越是網(wǎng)絡(luò)流量大的路由器就越是頻繁傳遞采集數(shù)據(jù)，如此會(huì)使網(wǎng)絡(luò)帶寬更為擁擠。 </p>
<p>此外，由于這種記費(fèi)方式是按IP地址統(tǒng)計(jì)流量，對(duì)于在公共網(wǎng)絡(luò)機(jī)房上網(wǎng)的用戶就無(wú)法統(tǒng)計(jì)其流量。另外，在采用DHCP進(jìn)行IP地址動(dòng)態(tài)分配時(shí)，無(wú)法分辨是哪臺(tái)機(jī)器或哪個(gè)用戶產(chǎn)生的流量。 </p>
<p>2、基于防火墻的網(wǎng)絡(luò)記費(fèi)系統(tǒng) </p>
<p>有些防火墻產(chǎn)品帶有流量統(tǒng)計(jì)功能，因此也可以利用放火墻的監(jiān)控記錄進(jìn)行流量統(tǒng)計(jì)，進(jìn)而實(shí)現(xiàn)記費(fèi)管理。 </p>
<p>3、基于以太網(wǎng)廣播特性的網(wǎng)絡(luò)記費(fèi)系統(tǒng) </p>
<p>此方法利用了以太網(wǎng)的廣播傳輸特性，使以太網(wǎng)適配器NIC工作在混合模式，以捕獲局域網(wǎng)上每個(gè)以太網(wǎng)數(shù)據(jù)幀。通過(guò)分析每一幀，將表示幀長(zhǎng)度的字段抽取出來(lái)，進(jìn)而統(tǒng)計(jì)以太網(wǎng)上各個(gè)IP地址的網(wǎng)絡(luò)流量（當(dāng)然也可統(tǒng)計(jì)IPX協(xié)議或其他網(wǎng)絡(luò)協(xié)議的流量），實(shí)現(xiàn)網(wǎng)絡(luò)計(jì)費(fèi)。 </p>
<p>此方法要求以太網(wǎng)幀捕獲采集工作站與網(wǎng)絡(luò)出口路由器或邊界路由器必須處在同一網(wǎng)段上，即必須將路由器LAN端口與數(shù)據(jù)捕獲采集工作站連接在同一個(gè)共享式集線器上。由于此方法（通常也稱為Sniffer技術(shù)）只接收不發(fā)送，因此不占用網(wǎng)絡(luò)代寬，不增加路由器的工作負(fù)荷，對(duì)網(wǎng)絡(luò)和路由器工作無(wú)任何影響。 </p>
<p>4、基于代理服務(wù)器的網(wǎng)絡(luò)記費(fèi)系統(tǒng) </p>
<p>大多數(shù)代理服務(wù)器軟件產(chǎn)品具有登記內(nèi)部網(wǎng)用戶訪問(wèn)外部網(wǎng)的日志記錄，有些產(chǎn)品還可以直接將日志記錄到數(shù)據(jù)庫(kù)中。日志記錄包括用戶標(biāo)志、客戶機(jī)IP地址、建立連接的時(shí)間、傳送字節(jié)數(shù)、請(qǐng)求連接遠(yuǎn)程站點(diǎn)的URL等信息。根據(jù)日志記錄文件或數(shù)據(jù)庫(kù)，可以統(tǒng)計(jì)內(nèi)部網(wǎng)每個(gè)用戶的網(wǎng)絡(luò)流量以及上網(wǎng)時(shí)間，甚至可以按服務(wù)網(wǎng)絡(luò)類型（如：HTTP、SMTP、FTP等）分別進(jìn)行統(tǒng)計(jì)。當(dāng)然，基于代理服務(wù)器的數(shù)據(jù)流量統(tǒng)計(jì)方法同樣也適用于局域網(wǎng)撥號(hào)上網(wǎng)的情況。 </p>
<p>實(shí)現(xiàn)專線網(wǎng)絡(luò)記費(fèi)有多種方式，選擇何種方式應(yīng)該根據(jù)各單位的實(shí)際情況?？偟恼f(shuō)來(lái)，網(wǎng)絡(luò)記費(fèi)系統(tǒng)應(yīng)該結(jié)合各單位的網(wǎng)絡(luò)結(jié)構(gòu)整體設(shè)計(jì)。 </p>
<p>基于代理服務(wù)器的網(wǎng)絡(luò)計(jì)費(fèi)系統(tǒng) </p>
<p>下面詳細(xì)敘述一下Windows NT 4.0平臺(tái)上，基于微軟MS Proxy Server代理服務(wù)器的網(wǎng)絡(luò)計(jì)費(fèi)系統(tǒng)的實(shí)現(xiàn)。 </p>
<p>1、開(kāi)發(fā)環(huán)境 </p>
<p>操作系統(tǒng)：Windows NT 4.0(sp3或更高) </p>
<p>代理服務(wù)器：MS Proxy Server </p>
<p>開(kāi)發(fā)工具：Visual Basic 6.0 </p>
<p>2、總體設(shè)計(jì) </p>
<p>利用代理服務(wù)器進(jìn)行數(shù)據(jù)采集，進(jìn)而進(jìn)行流量統(tǒng)計(jì)，計(jì)算用戶的上網(wǎng)費(fèi)用。系統(tǒng)應(yīng)提供友好的管理和查詢接口，如用戶管理、費(fèi)用管理、費(fèi)用查詢，密碼修改等。 </p>
<p>3、具體實(shí)現(xiàn) </p>
<p>（1）數(shù)據(jù)采集 </p>
<p>這一步由代理服務(wù)器自動(dòng)完成。為了讓代理服務(wù)器將日志記錄到數(shù)據(jù)庫(kù)文件中，還應(yīng)完成以下幾步： </p>
<p>●安裝Microsoft SQL Server </p>
<p>●如果系統(tǒng)中沒(méi)有安裝ODBC驅(qū)動(dòng)程序，還要先安裝ODBC驅(qū)動(dòng)程序 </p>
<p>●設(shè)置系統(tǒng)DSN為L(zhǎng)ocal Server,驅(qū)動(dòng)程序?yàn)镾QL Server </p>
<p>●利用SQL日志記錄表工具建表，具體方法為，訪問(wèn)安裝代理服務(wù)器主機(jī)的http://myproxyserver/scripts/mkplog.exe頁(yè)面，根據(jù)提示生成日志記錄表。 </p>
<p>（2）流量統(tǒng)計(jì)及費(fèi)用計(jì)算 </p>
<p>使用ADO連接，操縱日志記錄數(shù)據(jù)庫(kù)。將同一用戶名的記錄進(jìn)行累加，并且根據(jù)預(yù)先設(shè)定的計(jì)費(fèi)單價(jià)計(jì)算費(fèi)用，結(jié)果保存到費(fèi)用管理數(shù)據(jù)庫(kù)中。ADO的使用方法如下： </p>
<p>Public Sub main() </p>
<p>Dim conn As New ADODB.Connection </p>
<p>Dim cmd As New ADODB.Command </p>
<p>Dim rs As New ADODB.Recordset </p>
<p>注釋： 打開(kāi)連接 </p>
<p>conn.Open "DSN=LocalServer;uid=sa;pwd=;database=master" </p>
<p>注釋： 創(chuàng)建命令 </p>
<p>Set cmd.ActiveConnection = conn </p>
<p>cmd.CommandText = "SELECT * from MspSrvLog" </p>
<p>注釋： 執(zhí)行命令 </p>
<p>rs.CursorLocation = adUseClient </p>
<p>rs.Open cmd, , adOpenStatic, adLockBatchOptimistic </p>
<p>注釋： 操作數(shù)據(jù) </p>
<p>rs!ClientUserName.Properties("Optimize") = True </p>
<p>rs.Sort = "ClientUserName" </p>
<p>rs.MoveFirst </p>
<p>Do While Not rs.EOF </p>
<p>Debug.Print "Name: " & rs! ClientUserName & "IP " rs!ClientIP  </p>
<p>rs.MoveNext </p>
<p>Loop </p>
<p>注釋： 更新數(shù)據(jù) </p>
<p>conn.BeginTrans </p>
<p>注釋： 結(jié)束更新 </p>
<p>On Error GoTo ConflictHandler </p>
<p>rs.UpdateBatch </p>
<p>On Error GoTo 0 </p>
<p>conn.CommitTransExit Sub </p>
<p></p>
<p>ConflictHandler: </p>
<p>rs.Filter = adFilterConflictingRecords </p>
<p>rs.MoveFirst </p>
<p>Do While Not rs.EOF </p>
<p>Debug.Print "Conflict: Name: " & rs!ClientUserName; " " & rs!ClientUserName </p>
<p>rs.MoveNext </p>
<p>Loop </p>
<p>conn.Rollback </p>
<p>Resume Next </p>
<p>End Sub </p>
<p>（3）定時(shí)器 </p>
<p>為了實(shí)現(xiàn)系統(tǒng)的實(shí)時(shí)性，必須定時(shí)的進(jìn)行流量統(tǒng)計(jì)和費(fèi)用計(jì)算，因此需要有一個(gè)定時(shí)程序。VB中提供的Timer定時(shí)器最大的時(shí)間間隔是65536毫秒，也就是1分鐘多點(diǎn)，這是不能滿足我們的要求的。本系統(tǒng)為了給用戶提供更大的靈活性，可由用戶自行設(shè)定流量統(tǒng)計(jì)的時(shí)間間隔。在開(kāi)始計(jì)費(fèi)時(shí)初始化變量Next_Time=當(dāng)前時(shí)間+用戶設(shè)定的時(shí)間間隔。定時(shí)器程序如下： </p>
<p>Private Sub Timer1_Timer() </p>
<p>Current_Time = Timer ‘獲取系統(tǒng)當(dāng)前時(shí)間 </p>
<p>‘如果開(kāi)始計(jì)費(fèi)標(biāo)志（Start）為真，且下次開(kāi)始時(shí)間與當(dāng)前系統(tǒng)時(shí)間差的絕對(duì)值 ‘小于等于60秒，則開(kāi)始統(tǒng)計(jì)，同時(shí)修改變量Next_Time </p>
<p>If (start = True) And (Abs(Next_Time - Current_Time) <= 60) Then </p>
<p>‘Interval_Time為用戶設(shè)定的時(shí)間間隔，單位：秒 </p>
<p>Next_Time = Current_Time +60*Interval_Time  </p>
<p>Call process </p>
<p>Else </p>
<p>Exit Sub </p>
<p>End If </p>
<p>End Sub </p>
<p>（4）用戶管理 </p>
<p>本系統(tǒng)與Windows NT的域用戶相結(jié)合，通過(guò)活動(dòng)目錄服務(wù)接口可以方便地完成用戶的增加、刪除、鎖定、取消鎖定等工作。同時(shí)，用戶的增加刪除等任務(wù)還應(yīng)與費(fèi)用管理相結(jié)合。當(dāng)向NT域中增加一個(gè)用戶時(shí)，也應(yīng)在費(fèi)用管理數(shù)據(jù)庫(kù)中增加該用戶；當(dāng)從NT域中刪除一個(gè)用戶時(shí)，也應(yīng)從費(fèi)用管理數(shù)據(jù)庫(kù)中刪除該用戶。下面是一段向NT域中增加用戶的程序： </p>
<p>Private Sub User_Add() </p>
<p>Dim myComputer </p>
<p>Dim newUser </p>
<p>Dim sUsername </p>
<p>Dim sDescription </p>
<p>Dim sPassword </p>
<p></p>
<p>‘設(shè)置新用戶的屬性值 </p>
<p>sUsername=”yuansh” </p>
<p>sDescription=”Teacher” </p>
<p>sPassword=”password” </p>
<p></p>
<p>Set myComputer=GetObject(“WinNT://mymachine”) </p>
<p></p>
<p>‘為新用戶創(chuàng)建帳戶 </p>
<p>Set newUser=myComputer.Creat(“user”,sUsername) </p>
<p>newUser.SetInfo </p>
<p></p>
<p>newUser.Description=sDescription </p>
<p>newUser.Password=sPassword </p>
<p>newUser.SetInfo </p>
<p></p>
<p>End Sub </p>
<p>（5）費(fèi)用管理和費(fèi)用查詢 </p>
<p>費(fèi)用管理和費(fèi)用查詢都可以通過(guò)Data控件和MSFlexGrid控件結(jié)合費(fèi)用管理數(shù)據(jù)庫(kù)來(lái)完成。具體做法為： </p>
<p>●在窗體上添加Data控件 </p>
<p>●將Data 控件的DatabaseName屬性設(shè)為費(fèi)用管理數(shù)據(jù)庫(kù)的名稱，RecordSource屬性設(shè)為數(shù)據(jù)表的名稱 </p>
<p>●將MSFlexGrid控件的DataSource屬性設(shè)為Data控件的名稱 </p>
<p>這樣，就可以用MSFlexGrid控件顯示用戶費(fèi)用數(shù)據(jù)。下面是一段用戶繳費(fèi)管理的代碼： </p>
<p>Private Sub jf_ok_Click() </p>
<p>Dim dbusr As Database </p>
<p>Dim rsusr As Recordset </p>
<p>Dim dbnameusr As String </p>
<p>Dim temname As String </p>
<p>Dim MyUser As IADsUser </p>
<p></p>
<p>temname = jf_usr.Text ‘從文本框獲取用戶名 </p>
<p>dbnameusr = app.path & "usrinfo.mdb" ‘帶有絕對(duì)路徑的數(shù)據(jù)庫(kù)名 </p>
<p></p>
<p>Set dbusr = OpenDatabase(dbnameusr) ‘打開(kāi)數(shù)據(jù)庫(kù) </p>
<p>Set rsusr = dbusr.OpenRecordset("SELECT * FROM feiyong WHERE 用戶名=注釋：" & temname & "注釋：") </p>
<p></p>
<p>rsusr.Edit </p>
<p>rsusr.Fields("繳費(fèi)日期").Value = Date </p>
<p>rsusr.Fields("繳納金額").Value = Val(jf_jine.Text) </p>
<p>rsusr.Fields("當(dāng)前余額").Value = rsusr.Fields("繳納金額").Value + rsusr.Fields("上次余額") </p>
<p>rsusr.Update </p>
<p></p>
<p>End Sub </p>
<p>（6）統(tǒng)計(jì)分析 </p>
<p>統(tǒng)計(jì)分析主要是用Microsoft Chart Control 控件將某個(gè)時(shí)間段內(nèi)全部用戶訪問(wèn)次數(shù)最多的幾個(gè)站點(diǎn)，上網(wǎng)時(shí)間最多的前幾名用戶等信息以圖表的形式表示出來(lái)，便于對(duì)網(wǎng)絡(luò)使用情況進(jìn)行分析。 </p>
<p> </p>