 |
| ©2009 Personnel Division, Central Administration Office, Department of National Park Wildlife and Plant Conservation. 61 Paholyothin Rd. Lard Yao, Chatuchak. Bangkok 10900
--- You are visitor No.
<%
Set con = Server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;"&_
" Persist Security Info=False;"&_
" DATA SOURCE=" & Server.MapPath("counter/counterdb.mdb")
sql = "Select cnt+1 as cnt From [Counter]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, con, 1, 3
if RS.recordcount <> 0 Then
' response.write rs("cnt")
total = RS("cnt")
end if
RS.close
sql = "update [Counter] set cnt = " & total
con.execute (sql)
con.close
Set con = nothing
change=cstr(total)
ccc=len(change)
change=len(change) 'นับก่อน ตอนนี้ change เปลี่ยนเป็นตัวเลข
if change < 9 then 'ถ้าน้อยกว่า 6 หลักคำนวนหาส่วนต่างก่อน
dummy=9-change
for i=1 to dummy ' ใส่เลขศูนย์ เมือ ไม่ถึง 6 หลัก
response.write(" ")
' response.write("0")
next
change=cstr(total) 'เปลี่ยนให้เป็นตัวอักษรซะเพื่อจะได้แบ่งโดย mid
end if
'ตรวจสอบตัวเลขแล้วเลือกภาพแสดง
for i=1 to ccc
longlet=mid(change,i,1)
select case longlet
case 0 image="counter/0.gif"
case 1 image="counter/1.gif"
case 2 image="counter/2.gif"
case 3 image="counter/3.gif"
case 4 image="counter/4.gif"
case 5 image="counter/5.gif"
case 6 image="counter/6.gif"
case 7 image="counter/7.gif"
case 8 image="counter/8.gif"
case 9 image="counter/9.gif"
end select
response.write(" ")
next
%>
Since Dec 21. 2006 |