count.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 34 行

<!-- #Include File=include/Conn.asp -->

javastr=""
<%
dim visiter
dim sql
dim rs
sql="select visiter from jsq"
set rs=conn.execute(sql)
count=rs("visiter")
soonhostcomlen=len(count)
for i=1 to 8-soonhostcomlen
%>	
	javastr=javastr+"<img src=\"images/jsq/0.gif\" border=0></img>"
<%
next 

for i=1 to soonhostcomlen
%>
	javastr=javastr+"<img src=\"images/jsq/<%=mid(count,i,1)%>.gif\" border=0></img>"
<%
next 
%>
document.write (javastr);

<%
sql="update jsq set visiter=visiter+1"
rs.close
set rs=nothing
conn.execute(sql)
conn.close
set conn=nothing
%>