'数据库表行数函数，这是取表的行数
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("表格名称")%>