www.gusucode.com > 掌柜网店购物系统 4.0码程序 > count/count.asp
<% '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++WWW.A-YAYA.COM+++++++++++ '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++QQ:HTTP://WWW.A-YAYA.COM/?76054886++++++++ %> <!-- #Include File=Conn.asp --> <!-- #Include File=path.asp --> 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 8-soonhostcomlen %> javastr=javastr+"<img src=\"<%=c_path%>/images/0.gif\"></img>" <% next for i=1 to soonhostcomlen %> javastr=javastr+"<img src=\"<%=c_path%>/images/<%=mid(count,i,1)%>.gif\"></img>" <% next %> document.write (javastr) <% sql="update visiter set visiter=visiter+1" rs.close set rs=nothing conn.execute(sql) conn.close set conn=nothing '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++WWW.A-YAYA.COM+++++++++++ '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++QQ:HTTP://WWW.A-YAYA.COM/?76054886++++++++ %>