'數據庫表行數函數，這是取表的行數
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("表格名稱")%>