|
http://www.bcastthai.com
ขณะนี้มีคน Online = <%=Application("OnlineUsers")%>
คน
Visitor =
<%
on error resume next
' Create a server object
set fso = createobject("scripting.filesystemobject")
' Target the text file to be opened
set act = fso.opentextfile(server.mappath("\database\fcounter.txt"))
' Read the value of the text document
' If the text document does not exist then the on error resume next
' will drop down to the next line
counter = clng(act.readline)
' Add one to the counter
counter = counter + 1
' Close the object
act.close
' Create a new text file on the server
Set act = fso.CreateTextFile(server.mappath("\database\fcounter.txt"), true)
' Write the current counter value to the text document
act.WriteLine(counter)
' Close the object
act.Close
' Write the counter to the browser as text
Response.Write counter
%>
นับตั้งแต่วันที่ 1 มกราคม 2546
|
บริษัท
บรอดคาซท์ ไทย เทเลวิชั่น จำกัด
55 อาคารเดลต้าเฮาส์ ชั้น 1 เขตห้วยขวาง กรุงเทพ 10320
โทร : 02-248-2000 แฟ็กซ์ : 02-248-2024
แนะนำข้อมูล รายการ ปรับปรุง เพิ่มเติม เวปไซต์  Webmaster
|
Last
Update
|
