<% Response.Buffer=True dim conn dim connstr dim db db="count.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") conn.Open connstr %> gg="" <% Response.Expires=0 application.lock dim style,rs,sql,todaycount,todayipcount,ccount,g,c,i,countlong,todaydate dim userip,vpage,connip,country,city,tip,sip1,sip2,sip3,sip4,DBPathip,connstrip,ip,screenwidth dim url1,url2,url,urlview,urlimg dim cookiepath url1=request.servervariables("server_name") url2=request.servervariables("url") url="http://"&url1&url2 urlimg=replace(url,"count.asp","img") set rs=server.createobject("adodb.recordset") sql="select * from cn where id=1" rs.open sql,conn,3,2 '****************************************** if request.cookies("dscount")=empty then response.cookies("dscount")="yes" rs("count")=rs("count")+1 rs.update end if ccount=rs("count") rs.close set rs=nothing conn.close set conn=nothing application.unlock '****************************************** g=cstr(ccount) c=len(g) countlong=6 if int(c) gg=gg+"/0.gif>" <% next end if for i=1 to c %> gg=gg+"/<%=mid(g,i,1)%>.gif>" <% next %> document.write (gg)