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+"" <% next for i=1 to changdu %> javastr=javastr+"" <% 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 %>