'数据库表行数函数，这是取表的行数
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

'如何使用？
<%=GetTblRows("表格名称")%>