¼òµ¥µÄASP·ÀË¢ÐÂͼ±ê¼ÆÊýÆ÷´úÂë

<%
    dim db
set db=Server.CreateObject("Adodb.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("../mdb/count.mdb")
dim strSql,rs,visitNum
strSql="Select visitNum from counter "
SET rs=db.Execute(strSql)
   if session("again")="" then
     If Not rs.Bof And Not rs.Eof Then
      'Èç¹û¼Ç¼¼¯·Ç¿Õ£¬±íʾÒѾ­ÓзÃÎÊ´ÎÊý£¬Ôò¶ÁÈ¡Ô­ÓеķÃÎÊ´ÎÊý¼Ó1
      visitNum=rs("visitNum")+1
      '¸üÐÂÊý¾Ý¿â£¬½«Ô­ÓеķÃÎÊ´ÎÊý¼Ó1
      strSql="update counter set visitNum=visitNum+1 "
      db.Execute(strSql)
     Else
      'Èç¹û¼Ç¼¼¯Îª¿Õ£¬±íʾÕâÊǵÚ1λ¿Í»§£¬ÔòÁî·ÃÎÊ´ÎÊýΪ1
      visitNum=1
      'ÔÚÊý¾Ý¿âÖвåÈëÒ»Ìõ¼Ç¼£¬ÖµÎª1
      strSql="insert into counter(visitNum) values(1)"
      db.Execute(strSql)
     End If
   else visitNum=rs("visitNum")
   end if
   session("again")="again"
'ÏÂÃæÔÚÒ³ÃæÉÏÊä³öͼƬ
Dim strImage
For I=1 To Len(CStr(visitNum))
   strImage=strImage & "<img src=../image/count/" & Mid(CStr(visitNum),I,1) & ".gif>"
Next
Response.Write "<span class='font2'>ÄúÊÇµÚ " & strImage & " λ·Ã¿Í</span>"
%></td>
</tr>