count.asp

来自「调用方式：<script src="/count/count.asp"&g」· ASP 代码 · 共 51 行

<!-- #Include File=Conn.asp -->
javastr=""
<%
dim visiter
dim sql
dim rs
sql="select visiter from visiter"
set rs=conn.execute(sql)
count=rs("visiter")
changdu=len(count)
for i=1 to 8-changdu
%>	
	javastr=javastr+"<img src='/count/images/0.gif' border=0></img>"
<%
next 

for i=1 to changdu
%>
	javastr=javastr+"<img src='/count/images/<%=mid(count,i,1)%>.gif' border=0></img>"
<%
next 
%>
document.write ("<a href='http://www.aspshop.net' target='_blank' title='网站访问量计数器&#13&#10总访问量：<%=count%>'>");
document.write (javastr);
document.write ("</a>");
<%
sql="update visiter set visiter=visiter+1"
rs.close
set rs=nothing
conn.execute(sql)
conn.close
set conn=nothing
%>