Trả lời chủ đề

Nội dung

<blockquote data-quote="hoanglan89" data-source="post: 80204" data-attributes="member: 1881">Xin hướng dẫn lập trình asp.net để tạo bộ đếm số người online và dịch từ số đó sang chữ.Trả lời :Cụm từ &quot;số người on-line&quot; của bạn không rõ ràng, thường thì người ta&nbsp; chỉ muốn đếm xem có bao nhiêu người đã truy xuất website cụ thể. Để xây&nbsp; dựng trang ASP hiển thị dòng chữ miêu tả số người đã truy xuất website&nbsp; (hay trang web) của mình, bạn cần giải quyết 2 vấn đề cơ bản:- Viết hàm chuyển đổi từ số nguyên sang dòng chữ phát âm số nguyên đó.- Tăng counter đếm (thường phải được để trên file hay database để lưu&nbsp; giữ lâu dài ngay cả khi trang web không được truy xuất hay máy server bị&nbsp; shutdown), rồi dùng hàm chuyển đổi counter hiện hành sang chuỗi phát âm&nbsp; tương ứng và hiển thị ở vị trí thích hợp trên trang web.Đoạn lệnh sau đây là của trang ASP demo do chúng tôi viết, mỗi khi có&nbsp; người dùng nào đó truy xuất sẽ lưu thông tin về người dùng đó lên table&nbsp; tên là ClientsTab, rồi đếm tổng số người dùng đã truy xuất từ trước đến&nbsp; nay và hiển thị chuỗi phát âm lên trang web kết quả&lt;html&gt;&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=utf-8&quot;&gt;&lt;head&gt;&lt;%&#039;------------------------------------&#039; Hàm đổi 1 số có tối đa 3 ký số thành chuỗi tương ứng.&#039;-------------------------------------Private Function sotram2chu(socandoi) &#039;As String&#039; Khai báo dữ liệuDim chuso(11) &#039;As StringDim shangchuc, shangtram, shangdonviDim str &#039;As Stringchuso(1) = &quot;một&quot;chuso(2) = &quot;hai&quot;chuso(3) = &quot;ba&quot;chuso(4) = &quot;bốn&quot;chuso(5) = &quot;năm&quot;chuso(6) = &quot;sáu&quot;chuso(7) = &quot;bảy&quot;chuso(8) = &quot;tám&quot;chuso(9) = &quot;chín&quot;str = &quot;&quot;&#039; Kiểm tra số cần đổi có hợp lệ khôngIf socandoi &gt;= 1000 Thensotram2chu = &quot;???&quot;Exit FunctionEnd If&#039;Xác định 3 ký số miêu tả hàng trăm, hàng chục &amp; đơn vịshangtram = socandoi&nbsp; 100socandoi = socandoi Mod 100shangchuc = socandoi&nbsp; 10shangdonvi = socandoi Mod 10If shangtram &gt;= 1 Thenstr = chuso(shangtram) &amp; &quot; trăm&quot;End IfIf shangchuc &gt;= 2 Thenstr = str &amp; &quot; &quot; &amp; chuso(shangchuc) &amp; &quot; mươi&quot;ElseIf shangchuc = 1 Thenstr = str &amp; &quot; mười&quot;End IfIf shangdonvi = 0 Thensotram2chu = strExit FunctionEnd IfIf shangchuc = 0 ThenIf shangtram &lt;&gt; 0 Thenstr = str &amp; &quot; lẻ &quot; &amp; chuso(shangdonvi)Elsestr = str &amp; &quot; &quot; &amp; chuso(shangdonvi)End Ifsotram2chu = strExit FunctionEnd IfIf shangchuc = 1 ThenIf shangdonvi &lt;&gt; 5 Thenstr = str &amp; &quot; &quot; &amp; chuso(shangdonvi)Elsestr = str &amp; &quot; lăm&quot;End Ifsotram2chu = strExit FunctionEnd IfIf shangdonvi = 1 Thenstr = str + &quot; mốt&quot;ElseIf shangdonvi = 5 Thenstr = str + &quot; lăm&quot;Elsestr = str + &quot; &quot; + chuso(shangdonvi)End Ifsotram2chu = strEnd Function&#039;------------------------------------&#039; Hàm đổi 1 số nguyên bất kỳ thành chuỗi phát âm tương ứng&#039;------------------------------------Private Function so2chu(socandoi)Dim idx &#039;As IntegerDim ba_kyso &#039;As IntegerDim str, str_tram &#039;As StringDim tu_ngan_cach &#039;As StringDim chu_cach(5) &#039;As Stringchu_cach(1) = &quot;tỷ&quot;chu_cach(2) = &quot;ngàn&quot;chu_cach(3) = &quot;triệu&quot;idx = 0 &#039; vi tri dau cham phan cach tung 3 ky sostr = &quot;&quot;str_tram = &quot;&quot;While socandoi &lt;&gt; 0ba_kyso = socandoi Mod 1000socandoi = socandoi&nbsp; 1000str_tram = sotram2chu(ba_kyso) &#039;nen bo cac khoang trong dan dauIf idx = 0 Then &#039; vi tri don vistr = str_tramElseIf Len(str_tram) &lt;&gt; 0 Then &#039;vi tri ngan, trieu, tytu_ngan_cach = chu_cach((idx Mod 3) + 1)str = str_tram + &quot; &quot; + tu_ngan_cach + &quot; &quot; + strElseIf (idx Mod 3) = 0 Thenstr = &quot;tỷ &quot; + strEnd Ifidx = idx + 1Wendso2chu = strEnd Function//hàm lưu thông tin về người dùng truy xuất và đếm số lượt ngườiFunction UserCount()&#039;khai báo các biến cần dùngdim MyConnectiondim MyCommanddim MyRecordset&#039;tạo 1 connection đến database dung DSNset MyConnection = Server.CreateObject(&quot;ADODB.Connection&quot;)MyConnection.Open &quot;DSN=MyDatabase&quot;&#039;tạo đối tượng Commandset MyCommand = Server.CreateObject(&quot;ADODB.Command&quot;)MyCommand.ActiveConnection = MyConnection&#039;lưu thông tin người dùng đang truy xuất vào databaseMyCommand.CommandText&nbsp; = &quot;INSERT INTO ClientsTab VALUES (&#039;&quot; &amp;&nbsp; Request.ServerVariables(&quot;Remote_Addr&quot;) &amp; &quot;&#039;,&#039;&quot; &amp;&nbsp; Request.ServerVariables(&quot;Path_Info&quot;) &amp; &quot;&#039;,&#039;&quot; &amp;&nbsp; Request.ServerVariables(&quot;HTTP_User_Agent&quot;) &amp; &quot;&#039;)&quot;MyCommand.Execute()&#039;đọc tất cả record trong table ClientsTabMyCommand.CommandText = &quot;SELECT * FROM ClientsTab&quot;set MyRecordset = MyCommand.Execute()clientnum = 0&#039;đếm số record trong table ClientsTabDo While Not MyRecordset.EOFclientnum = clientnum + 1MyRecordset.MoveNextLoop&#039;đổi số lượt người ra chuỗi phát âmusercount=so2chu(clientnum)&#039;đóng các đối tượng đã dùng lạiMyRecordset.CloseMyConnection.CloseEnd Function%&gt;&lt;/head&gt;&lt;body&gt;Bạn là người truy cập thứ &lt;b&gt;&lt;%=UserCount()%&gt;&lt;/b&gt; tới trang web này....&lt;/body&gt;&lt;/html&gt;Theo pcworld</blockquote>

[QUOTE="hoanglan89, post: 80204, member: 1881"] [B]Xin hướng dẫn lập trình asp.net để tạo bộ đếm số người online và dịch từ số đó sang chữ.[/B] [B] Trả lời : [/B] Cụm từ "số người on-line" của bạn không rõ ràng, thường thì người ta chỉ muốn đếm xem có bao nhiêu người đã truy xuất website cụ thể. Để xây dựng trang ASP hiển thị dòng chữ miêu tả số người đã truy xuất website (hay trang web) của mình, bạn cần giải quyết 2 vấn đề cơ bản: - Viết hàm chuyển đổi từ số nguyên sang dòng chữ phát âm số nguyên đó. - Tăng counter đếm (thường phải được để trên file hay database để lưu giữ lâu dài ngay cả khi trang web không được truy xuất hay máy server bị shutdown), rồi dùng hàm chuyển đổi counter hiện hành sang chuỗi phát âm tương ứng và hiển thị ở vị trí thích hợp trên trang web. Đoạn lệnh sau đây là của trang ASP demo do chúng tôi viết, mỗi khi có người dùng nào đó truy xuất sẽ lưu thông tin về người dùng đó lên table tên là ClientsTab, rồi đếm tổng số người dùng đã truy xuất từ trước đến nay và hiển thị chuỗi phát âm lên trang web kết quả <html> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <head> <% '------------------------------------ ' Hàm đổi 1 số có tối đa 3 ký số thành chuỗi tương ứng. '------------------------------------- Private Function sotram2chu(socandoi) 'As String ' Khai báo dữ liệu Dim chuso(11) 'As String Dim shangchuc, shangtram, shangdonvi Dim str 'As String chuso(1) = "một" chuso(2) = "hai" chuso(3) = "ba" chuso(4) = "bốn" chuso(5) = "năm" chuso(6) = "sáu" chuso(7) = "bảy" chuso(8) = "tám" chuso(9) = "chín" str = "" ' Kiểm tra số cần đổi có hợp lệ không If socandoi >= 1000 Then sotram2chu = "???" Exit Function End If 'Xác định 3 ký số miêu tả hàng trăm, hàng chục & đơn vị shangtram = socandoi 100 socandoi = socandoi Mod 100 shangchuc = socandoi 10 shangdonvi = socandoi Mod 10 If shangtram >= 1 Then str = chuso(shangtram) & " trăm" End If If shangchuc >= 2 Then str = str & " " & chuso(shangchuc) & " mươi" ElseIf shangchuc = 1 Then str = str & " mười" End If If shangdonvi = 0 Then sotram2chu = str Exit Function End If If shangchuc = 0 Then If shangtram <> 0 Then str = str & " lẻ " & chuso(shangdonvi) Else str = str & " " & chuso(shangdonvi) End If sotram2chu = str Exit Function End If If shangchuc = 1 Then If shangdonvi <> 5 Then str = str & " " & chuso(shangdonvi) Else str = str & " lăm" End If sotram2chu = str Exit Function End If If shangdonvi = 1 Then str = str + " mốt" ElseIf shangdonvi = 5 Then str = str + " lăm" Else str = str + " " + chuso(shangdonvi) End If sotram2chu = str End Function '------------------------------------ ' Hàm đổi 1 số nguyên bất kỳ thành chuỗi phát âm tương ứng '------------------------------------ Private Function so2chu(socandoi) Dim idx 'As Integer Dim ba_kyso 'As Integer Dim str, str_tram 'As String Dim tu_ngan_cach 'As String Dim chu_cach(5) 'As String chu_cach(1) = "tỷ" chu_cach(2) = "ngàn" chu_cach(3) = "triệu" idx = 0 ' vi tri dau cham phan cach tung 3 ky so str = "" str_tram = "" While socandoi <> 0 ba_kyso = socandoi Mod 1000 socandoi = socandoi 1000 str_tram = sotram2chu(ba_kyso) 'nen bo cac khoang trong dan dau If idx = 0 Then ' vi tri don vi str = str_tram ElseIf Len(str_tram) <> 0 Then 'vi tri ngan, trieu, ty tu_ngan_cach = chu_cach((idx Mod 3) + 1) str = str_tram + " " + tu_ngan_cach + " " + str ElseIf (idx Mod 3) = 0 Then str = "tỷ " + str End If idx = idx + 1 Wend so2chu = str End Function //hàm lưu thông tin về người dùng truy xuất và đếm số lượt người Function UserCount() 'khai báo các biến cần dùng dim MyConnection dim MyCommand dim MyRecordset 'tạo 1 connection đến database dung DSN set MyConnection = Server.CreateObject("ADODB.Connection") MyConnection.Open "DSN=MyDatabase" 'tạo đối tượng Command set MyCommand = Server.CreateObject("ADODB.Command") MyCommand.ActiveConnection = MyConnection 'lưu thông tin người dùng đang truy xuất vào database MyCommand.CommandText = "INSERT INTO ClientsTab VALUES ('" & Request.ServerVariables("Remote_Addr") & "','" & Request.ServerVariables("Path_Info") & "','" & Request.ServerVariables("HTTP_User_Agent") & "')" MyCommand.Execute() 'đọc tất cả record trong table ClientsTab MyCommand.CommandText = "SELECT * FROM ClientsTab" set MyRecordset = MyCommand.Execute() clientnum = 0 'đếm số record trong table ClientsTab Do While Not MyRecordset.EOF clientnum = clientnum + 1 MyRecordset.MoveNext Loop 'đổi số lượt người ra chuỗi phát âm usercount=so2chu(clientnum) 'đóng các đối tượng đã dùng lại MyRecordset.Close MyConnection.Close End Function %> </head> <body> Bạn là người truy cập thứ <%=UserCount()%> tới trang web này. ... </body> </html> Theo pcworld [/QUOTE]

Tên

Mã xác nhận