نیاز مبرم به یک شمارنده تعداد بازدید صفحات خوب لطفا کمک کنید

[majidrad]

نیاز مبرم به یک شمارنده تعداد بازدید صفحات لطفا کمک کنید با آرزوی عبادات

[hassan1365]

سلام
count.asp:




<%
Dim fsoObject
Dim tsObject
Dim filObject
Dim lngVisitorNumber
Dim intWriteDigitLoopCount


Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")


Set filObject = fsoObject.GetFile(Server.MapPath("scripts/hit_count.txt"))


Set tsObject = filObject.OpenAsTextStream

lngVisitorNumber = CLng(tsObject.ReadAll)

lngVisitorNumber = lngVisitorNumber + 1

Set tsObject = fsoObject.CreateTextFile(Server.MapPath("scripts/hit_count.txt"))

tsObject.Write CStr(lngVisitorNumber)

session("hit")=lngVisitorNumber

Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
%>
<%=Session("hit")%>


موفق باشید.

[danial82]

کسی کد #C شو نداره؟
برای asp .net میخوام

[majidrad]

با تشکر از شما دوست خوب
ولی از خط 13 error میگیره تطفا بررسی کنید.