<%
Function write(ad) 'กำหนดฟังก์ชัน
สำหรับเขียนหมายเลขป้าย
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Server.MapPath("Rotate.txt"),True)
a.WriteLine(ad)
a.close
End Function
Function Read() 'กำหนดฟังก์ชัน
สำหรับอ่านหมายเลขป้าย
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(Server.MapPath("Rotate.txt"),1,False)
Read=a.ReadLine()
a.close
End Function
If Read() = "1"
then 'ตรวจสอบว่าค่าในไฟล์
Rotate.txt คือ 1 หรือไม่
image="pic1.jpg"
link="pic1.html"
Write(2) 'ใส่ค่า
เป็น 2 เพื่อเลื่อนเป็นป้ายที่
2 ในคราวหน้า
elseif Read() ="2"
then
image="pic2.jpg"
link="pic2.html"
Write(3) 'ใส่ค่า
เป็น 3เพื่อเลื่อนเป็นป้ายที่
3ในคราวหน้า
elseif Read() ="3"
then
image="pic3.jpg"
link="pic3.html"
Write(4) 'ใส่ค่า
เป็น 4เพื่อเลื่อนเป็นป้ายที่
4ในคราวหน้า
elseif
Read() ="4" then
image="pic4.jpg"
link="pic4.html"
Write(5) 'ใส่ค่า
เป็น 5เพื่อเลื่อนเป็นป้ายที่
5 ในคราวหน้า
else
image="pic5.jpg"
link="pic5.html"
Write(1) 'ใส่ค่า
เป็น 1เพื่อเลื่อนเป็นป้ายที่
1ในคราวหน้า
End If%>
<a href="<%=link%>"><img
src="<%=image%>"></a>
|