www.gusucode.com > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书) > ASP+ACCESS中学网站设计与实现(论文+源代码+开题报告+任务书)\ASP001中学网站设计与实现\zxweb\count.asp

    <%  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)<int(countlong) then
for i=1 to int(countlong)-int(c)%>
gg=gg+"<img border=0 src=<%=urlimg%>/0.gif>"
<%
next
end if
for i=1 to c
%>
gg=gg+"<img border=0 src=<%=urlimg%>/<%=mid(g,i,1)%>.gif>"
<%
next
%>
document.write (gg)