代碼如下: '數(shù)據(jù)庫表行數(shù)函數(shù)，這是取表的行數(shù) Function GetTblRows(TblName) '如果TblName表名值為空，則 if TblName="" Then GetTblRows="未知TblName" exit Function Else set
rec = server.createobject("adodb.recordset") SQL="EXEC sp_spaceused "&TblName rec.open sql,conn,1,1 GetTblRows=Trim(rec("rows")) rec.close set rec=nothing end if End Function
