ϵͳҪһ.aspļһݿɡʮ09.gifͼļɣ

1ݿ⣨Accessݿ⣩
   ݿļCOUNTER.mdb
   ڲtableCounter
   ֶ Counter   >  ֵ


2ļJiSu.ASP)
   ļʹ˵
       뽫´뿽aspļУһעĶݿ·
  <%
    dim num: dim n: dim m
    set conn=server.CreateObject("adodb.Connection")
    set rec=server.CreateObject("adodb.Recordset")

    conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Counter.MDB")
    rec.open "select * from counter",conn,3,3
    if rec.RecordCount=0 then rec.AddNew: rec.Fields("counter")=0
    rec.fields("counter")=rec.fields("counter")+1
    rec.update
    num=rec.Fields("counter")
    rec.close:conn.close
    set rec=nothing:Set conn=nothing

    for n=1 to 8-len(num)
     response.Write "<img src=g0.gif>"
    next
    m=n
    if m<8 then
      for n=m to 8
        response.Write "<img src=g" & mid(num,n-m+1,1) & ".gif>"
      next
    end if
  %>
