javastr="" <% dim visiter dim sql dim rs sql="select visiter from visiter" set rs=conn.execute(sql) count=rs("visiter") soonhostcomlen=len(count) for i=1 to 1-soonhostcomlen %> javastr=javastr+" <% next for i=1 to soonhostcomlen %> javastr=javastr+" .gif\ border=0>" <% next %> document.write (" "); document.write (javastr); document.write (""); <% sql="update visiter set visiter=visiter+1" rs.close set rs=nothing conn.execute(sql) conn.close set conn=nothing %>

map