这是一个学生毕业时做的教务系统

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