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 (javastr);
<%
sql="update visiter set visiter=visiter+1"
rs.close
set rs=nothing
conn.execute(sql)
conn.close
set conn=nothing
%>
"
<%
next
for i=1 to changdu
%>
javastr=javastr+"%>.gif)
"
<%
next
%>
document.write (javastr);
<%
sql="update visiter set visiter=visiter+1"
rs.close
set rs=nothing
conn.execute(sql)
conn.close
set conn=nothing
%>