count.asp

酷购网上商城~~ 完整的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++++++++
%>