javastr=""
<%
dim visiter 'visiter=访问人数
dim sql 'sql
dim rs
sql="select visiter from visiter"
set rs=conn.execute(sql)
count=rs("visiter")
soonhostcomlen=len(count)
for i=1 to 8-soonhostcomlen
%>
javastr=javastr+"![](\"<%=countpath%)
/num/0.gif\">"
<%
next
for i=1 to soonhostcomlen
%>
javastr=javastr+"/num/<%=mid(count,i,1)%>.gif\">"
<%
next
%>
document.write (javastr)
<%
sql="update visiter set visiter=visiter+1"
rs.close
set rs=nothing
conn.execute(sql)
conn.close
set conn=nothing
'===========================================
'迅捷主机网 -- 域名注册、主机租用、网站建设、脚本开发
'网址：http://www.soonhost.com
'msn:soonhost@hotmail.com
'请保留以上版权信息，谢谢合作！
'===========================================
%>