ช่วยผมหน่อยครับ ( ตัวนับผู้เยี่ยมชม )
คือแบบว่าผมหัดฝึกเขียน Counter ขึ้นมาแต่มัน error คับ ใครก็ได้ที่รู้ช่วยแก้ไขหน่อย จักขอบพระคุณอย่างสูง ! แล้ว ASP ตอนนี้เป็น Version ไหนแล้วหลอ เขียนทีไรทำมะได้เลย <body> <% Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set objRF = objFS.OpenTextFile(Server.MapPath("counter.txt")) visitor_no = objRF.ReadLine objRF.Close Set objRF = Nothing if Session("visitor")="" Then visitor_no = visitor_no + 1 Set objRF = objFS.OpenTextFile(Server.MapPath("/counter.txt"), 2) objRF.WriteLine visitor_no objRF.Close Set objRF = Nothing Session("visitor") = visitor_no End if Set objFS = Nothing %> <table cellspacing="0" cellpadding="0" border="0" width="170" height="30"> <tr> <td width="60" align="center" bgcolor="#FFFF00"><strong>NO</strong></td> <% For flag_counter = 1 To 6 -Len(visitor_no)%> <td bgcolor="#FFFF00"><img src=0.gif vspace="0" hspace="0" ></td> <%Next%> <% For flag_counter = 1 To Len(visitor_no)%> <td bgcolor="#FFFF00"><img src=<%=Mid(visitor_no,flag_counter,1)%>.gif vspace="0" hspace="0" /></td> <%Next%> </tr> </table> </body>
|