count.asp

blog 又搭工

			<%
		set db=server.createobject("ADODB.Connection")
       	 connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("data/MSMAXBLOG.MDB")
      	 db.open connstr
		function GetNum(stable)
   			GetNum=db.execute("select count(1) from ["&stable&"]")(0)
		end function
			%>
				博文总数：<%response.Write GetNum("article")%><br/>
				评论总数：<%response.write  GetNum("re")%><br/>
				留言总数：<%response.write  GetNum("message")%><br/>
				计划总数：<%response.write 	GetNum("plan")%><br/>