09/10/2018, 23:19
Mã nguồn đếm tổng số lượt truy cập
Các bác cho em hỏi chút. Hiện giờ em đang nghiên cứu phần đếm tổng số lượt người truy cập trang web. Em đang có mã nguồn như sau. Không biết bị sai chỗ nào, mà truy cập vào không được, nó báo lỗi và không hiển thị nội dung. Mong mọi người chỉ giúp :
Mình đã để 2 file này (bodem.mdb và duyetxem.asp) trong cùng 1 thư mục và đưa lên Localhost của IIS và mặc định chạy duyetxem.asp thay vì chạy mặc định index.asp nhưng vẫn không hiển thị được.
<%
Dim rs
Dim SoLanXem
Dim strSQL
Dim strConnection
Dim myConnection
strConnection = “provider=microsoft.jet.oledb.4.0; data source = “ & Server.MapPath(“bodem.mdb”)
strSQL = “SELECT * FROM duyetxem WHERE so_lan_xem > 0”
Set myConnection = Server.CreateObject(“ADODB.Connection”)
myConnection.Open strConnection
Set rs = myConnection.Execute(strSQL)
If Not rs.EOF Then
SoLanXem = rs(“so_lan_xem”)
SoLanXem = (SoLanXem + 1)
strSQL = “UPDATE duyetxem SET so_lan_xem = “ & SoLanXem
Set rs = myConnection.Execute(strSQL)
Else
SoLanXem = 1
strSQL = “INSERT INTO duyetxem (so_lan_xem) VALUES (“ & SoLanXem & “);”
Set rs = myConnection.Execute(strSQL)
End If
Set myConnection = Nothing
Set rs = Nothing
%>
<%
Response.Write(“Trang web dã du?c duy?t “ & SoLanXem & “ l?n”)
%>
Mình đã để 2 file này (bodem.mdb và duyetxem.asp) trong cùng 1 thư mục và đưa lên Localhost của IIS và mặc định chạy duyetxem.asp thay vì chạy mặc định index.asp nhưng vẫn không hiển thị được.
<%
Dim rs
Dim SoLanXem
Dim strSQL
Dim strConnection
Dim myConnection
strConnection = “provider=microsoft.jet.oledb.4.0; data source = “ & Server.MapPath(“bodem.mdb”)
strSQL = “SELECT * FROM duyetxem WHERE so_lan_xem > 0”
Set myConnection = Server.CreateObject(“ADODB.Connection”)
myConnection.Open strConnection
Set rs = myConnection.Execute(strSQL)
If Not rs.EOF Then
SoLanXem = rs(“so_lan_xem”)
SoLanXem = (SoLanXem + 1)
strSQL = “UPDATE duyetxem SET so_lan_xem = “ & SoLanXem
Set rs = myConnection.Execute(strSQL)
Else
SoLanXem = 1
strSQL = “INSERT INTO duyetxem (so_lan_xem) VALUES (“ & SoLanXem & “);”
Set rs = myConnection.Execute(strSQL)
End If
Set myConnection = Nothing
Set rs = Nothing
%>
<%
Response.Write(“Trang web dã du?c duy?t “ & SoLanXem & “ l?n”)
%>
Bài liên quan
Bạn có muốn xà Counter miễn phí không, mình đang tạo một trang FreeCounter cho người Việt mình sử dụng ASP. Counter cho phép bạn chọn style [ Image or text ].
http://[V]style.co.nr
Nên viết lại để có thể chạy nhanh hơn, mà khi xuất ra giá trị của counter thì bạn phải convert cái gí trị này sang nummenic thì mới có thể tăng hay giãm được[ cái này có thể chọn khi thiết kế CSDL trong Access]
Phần xử lý bạn tự viết vì nó khá đơn giản, mình chỉ đưa ra 2 sub dùng để đọc và ghi giá trị counter xuống file text thôi.
Chúc bạn thành công .
__________________________________________________ _______________
sub ReadFile()
set fs = CreateObject("Scripting.FileSystemObject")
set file = fs.OpenTextFile("counter.txt", 1)
do while not file.AtEndOfStream
Response.Write(file.ReadLine & vbCrLf)
loop
file.Close()
end sub
__________________________________________________ _______________
__________________________________________________ _______________
sub WriteFile()
set fs = CreateObject("Scripting.FileSystemObject")
set files = fs.OpenTextFile("counter.txt", 2)
files.WriteLine("bạn ghi giá trị đếm mới vào đây.")
file.Close()
end sub
__________________________________________________ _______________
code làm quái gì cho mệt, em xài cái này tổng hợp khá tốt
Vừa đẹp vừa tiện!