学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁

				
				
				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+""
								next 
				
				for i=1 to soonhostcomlen
				%>
					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
				%>