คือแบบว่าผมหัดฝึกเขียน 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>
New Article
อัตราค่าโฆษณา
กระทู้ #1069 [.NET] (จาก IP: 203.146.63.183)
ความคิดเห็น #25510 (จาก IP: 58.8.188.127)
