博客园_LanceZhang's Tech Blog

测试

2011-10-19T08:58:00Z

2011-10-19T08:58:00Z2011-10-19T08:58:00ZLanceZhanghttp://www.cnblogs.com/blodfox777/

本文链接

应对.NET Reflector过期的小技巧

2011-05-30T08:11:00Z

下午一如既往的打开.NET Reflector，发现2011年5月30日，免费的午餐终于到头了：

与对付一般的定期共享软件一样，试着把系统的时间修改到2011年5月30日之前，发现.NET Reflector仍能正常使用。

如果每次使用.NET Reflector之前还要手工去修改系统时间，用完之后还要记得去把时间改回来，如此不便，不太现实。

解决方案：

下面的脚本可以通过批处理的方式实现打开.NET Reflector之前先将时间调整为过期前的某日，关闭.NET Reflector之后再将日期调回来。

date /t > temp.txt 
date 2004-1-1
call Reflector 
date < temp.txt

将此段脚本保存为“reflector.bat”，放在 .NET Reflector的根目录下，当需要使用的时候直接双击执行即可。

注意：

此解决方案在使用.NET Reflector期间系统日期为2004-1-1，需要特别注意。

雕虫小技，希望能够帮上需要的朋友。

本文链接

不需编译让aspx页自主筛选数据绑定记录

2011-03-08T09:11:00Z

看到园友的一篇文章，说在一些企业门户站点里，我们经常会去根据需求变更来修改数据绑定的筛选条件，深有同感。而诸如企业门户这些场景一般也不用考虑什么性能之类的非业务要求，尽快的完成业务变更和尽可能少的减少网站编译更新次数却是网站技术支持团队的核心竞争力之所在。

不妨设想一下，如果用Store Procedure+DAL+BLL 写好的一个列表查询，如果要适应查询条件变更，则要动的地方恐怕很多，还需要重新编译，再把一堆dll更新上去。。。

看了“活跃的毛虫”兄弟的代码，本人也有所感悟，在此也分享一种更加“动态”的绑定方法：

大家知道，在.NET3.5以来，与Linq同时也提供了很多针对泛型集合的扩展方法，如Where/Take/OrderBy...等等。

在这样的场景中，这些扩展方法也可以大有用场。比如下面的例子：

<p>
<asp:GridView ID="GridView1" runat="server" DataSource='<%#GetNewsData().Where(r=>r.Subject.StartsWith("aaa"))%>'>
</asp:GridView>

</p>

public partial class About : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {
        DataBind();
    }

    public static List<NewsData> GetNewsData()
    {
        List<NewsData> result = new List<NewsData>();

        result.Add(new NewsData() { Subject = "aaaa" });
        result.Add(new NewsData() { Subject = "bbb" });
        result.Add(new NewsData() { Subject = "aa22" });
        result.Add(new NewsData() { Subject = "aa1" });

        return result;
    }

    public class NewsData
    {
        private string subject;

        public string Subject
        {
            get { return subject; }
            set { subject = value; }
        }
    }

}

更加动态的实现了查询条件在aspx页内定义。

需要注意的是：

这种写法不适用于大型应用，每个页面实例的CPU和内存开销都不小。而且对原始数据集合（未经筛选的数据集），最好能够做到一定的缓存，从减少不必要的IO开销。

本文链接

也谈谈“加班”问题

2011-03-07T07:06:00Z

今天园子里关于加班的帖子很多，惹起众多争议：

http://www.cnblogs.com/realdigit/archive/2011/03/06/1972242.html

http://www.cnblogs.com/jyk/archive/2011/03/07/1973214.html

窃以为：

首先，在公司自己学习和娱乐不属于加班。

除了这种情况，加班分为“主动加班”和“被动加班”：

主动加班：对于工作上已经完成的任务，要将其超额完成，精益求精。此种加班纯属个人工作热情，非常好，常见于公司管理层人员和部分老板，及工作积极优秀的员工；员工积极加班被喜欢员工主动加班的老板（如唐骏）看到了，自然会获得一定的工作任何。

被动加班：赶项目、赶上线之类的加班，这种加班代表着一种“无能和错误”（不含贬义），但这种无能或错误大多是由技术人员来买单，具体可分为：

1.项目经理无能或错误（安排不周，导致需要被迫加班）

2.销售/策划人员的无能或错误（承诺客户的时间跟开发团队不能协同）

3.管理人员的无能或错误（老板不合实际的要求员工加班赶进度）

4.技术人员自身的无能或错误（玩不成已分配的任务，当然要加班了）

按道理说，公司是应该为前三种被动加班支付加班工资的；而第4种被动加班，则是技术人员自身的问题，公司不应支付加班工资，且某些情况下还可能需要对技术人员的能力作出质疑。

所以说，加班是“光荣的”这种看法太片面，大家都是成年人了，看问题也要以辩证的方式具体问题具体分析才能论断。

本文链接

共享一个封装Silverlight的WebPart

2011-03-07T04:54:00Z

不管是报表图表还是电子地图，将Silverlight应用程序嵌入到MOSS中，可以大大提高MOSS站点的用户体验。而合理的应用WebPart对嵌入的Silverlight进行封装则能够减少开发复杂程度。

最近参与的项目中有不少这样的案例，于是便写了一个简单的Silverlight封装WebPart，分享与此，希望能够帮助又需要的朋友。

（第一次写WebPart，请多指教）

考虑到的问题有：

xap文件缓存期限
承载容器的样式
xap文件路径配置
xap文件接收的参数

没有考虑到的问题有：

安全性（绝大多数MOSS应用都是intranet的，相对安全）

代码如下：

/****************************** Module Header ******************************\
* Module Name:  SilverLightWrapper.cs
* Project:      CarolLib.MOSS.WebParts
* Author:       Lance Zhang
* Copyright (c) CarolLib Co., Ltd.
*
* Provide a way to wrap Silverlight xap with webpart,
* and output the rendered div to web page.
*
* Key Features:
* ==============================================================
*
* @ - Private different timespan unit to control the browser cache.
* @ - Can pass custom parameter(s, by split) to silverlight application.
* @ - Customize containner div's style.
*
* ==============================================================
*
* History:
* * 8/19/2009 13:53 PM Lance Zhang Created
* * 8/24/2009 21:29 PM Lance Zhang Add ContainerStyle
* * 9/09/2009 21:29 PM Lance Zhang Add CustomParams
\***************************************************************************/
using System;
using System.Runtime.InteropServices;
using System.Text;
using System.Web.UI;
using Microsoft.SharePoint.WebPartPages;
using System.Web.UI.WebControls.WebParts;
using System.ComponentModel;

namespace CEAir.InfoPortal.WebParts
{
    [Guid("803617a2-9dc9-4eb8-b05c-3e064bc12123")]
    public class SilverLightWrapper : System.Web.UI.WebControls.WebParts.WebPart
    {
        #region ctor.

        public SilverLightWrapper()
        {

        }

        #endregion

        #region Properties

        private string containerStyle = "PADDING-BOTTOM: 10px; PADDING-LEFT: 10px; WIDTH: 730px; PADDING-RIGHT: 20px; BACKGROUND: url(/_LAYOUTS/SL3/img/it_task_bg.jpg) #fff no-repeat left top; FLOAT: left; HEIGHT: 600px; PADDING-TOP: 10px";
        [Personalizable]
        [WebBrowsable]
        [WebDisplayName("容器div样式")]
        [Category("个性设置")]
        public string ContainerStyle
        {
            get { return containerStyle; }
            set { containerStyle = value; }
        }

        private string customParams = string.Empty;
        [Personalizable]
        [WebBrowsable]
        [WebDisplayName("CustomParams")]
        [Category("自定义参数")]
        public string CustomParams
        {
            get { return customParams; }
            set { customParams = value; }
        }

        private string path = "/_LAYOUTS/SL3/StatusReport.xap";
        [Personalizable]
        [WebBrowsable]
        [WebDisplayName("xap文件路径")]
        [WebDescription("例如:/_LAYOUTS/SL3/StatusReport.xap")]
        [Category("个性设置")]
        public string Path
        {
            get { return path; }
            set { path = value; }
        }

        public string CurrentUser
        {
            get
            {
                return this.Context.User.Identity.Name;
            }
        }

        private string cacheUnit = "天";
        [Personalizable]
        [WebBrowsable]
        [WebDisplayName("缓存时间单位")]
        [WebDescription("例如:分、时、天、月、年")]
        [Category("缓存设置")]
        public string CacheUnit
        {
            get { return cacheUnit; }
            set { cacheUnit = value; }
        }

        #endregion

        #region Override Members

        protected override void CreateChildControls()
        {
            string cacheKey = GetCacheKey();

            StringBuilder sl = new StringBuilder();
            sl.AppendLine(string.Format("<div id=\"silverlightControlHost\" style=\"{0}\">", ContainerStyle));
            sl.AppendLine("<object data=\"data:application/x-silverlight-2,\" type=\"application/x-silverlight-2\" width=\"100%\" height=\"100%\">");
            sl.AppendLine(string.Format("<param name=\"source\" value=\"" + Path + "?version={0}\"/>", cacheKey));
            sl.AppendLine("<param name=\"onError\" value=\"onSilverlightError\" />");
            sl.AppendLine("<param name=\"background\" value=\"white\" />");
            sl.AppendLine("<param name=\"minRuntimeVersion\" value=\"3.0.40818.0\" />");
            sl.AppendLine("<param name=\"autoUpgrade\" value=\"true\" />");
            sl.AppendLine(string.Format("<param name=\"initParams\" value=\"user={0},{1}\" />", this.CurrentUser, this.CustomParams));
            sl.AppendLine("<a href=\"http://go.microsoft.com/fwlink/?LinkID=149156&v=3.0.40818.0\" style=\"text-decoration:none\">");
            sl.AppendLine("<img src=\"http://go.microsoft.com/fwlink/?LinkId=161376\" alt=\"获取 Microsoft Silverlight\" style=\"border-style:none\"/>");
            sl.AppendLine("</a>");
            sl.AppendLine("</object>");
            sl.AppendLine("<iframe id=\"_sl_historyFrame\" style=\"visibility:hidden;height:0px;width:0px;border:0px\">");
            sl.AppendLine("</iframe>");
            sl.AppendLine("</div>");

            LiteralControl silverlightHost = new LiteralControl(sl.ToString());
            this.Controls.Add(silverlightHost);
        }

        private string GetCacheKey()
        {
            string cacheKey = string.Empty;

            switch (CacheUnit)
            {
                case "分":
                    cacheKey = DateTime.Now.ToString("yyyyMMddhhmm");
                    break;
                case "时":
                    cacheKey = DateTime.Now.ToString("yyyyMMddhh");
                    break;
                case "天":
                    cacheKey = DateTime.Now.ToString("yyyyMMdd");
                    break;
                case "月":
                    cacheKey = DateTime.Now.ToString("yyyyMM");
                    break;
                default:
                    cacheKey = DateTime.Now.ToString("yyyy");
                    break;
            }
            return cacheKey;
        }

        #endregion
    }
}

本文链接

【开源】二手火车票监控程序抢票快手 V1.0发布

2011-01-25T03:36:00Z

背景

呃，春运，不用多说了。。上海局的电话订票只支持8000个并发，基本上都抢不到。我等广大P民只能将眼光投放到赶集网、58同城等门户，关注里面的车票转让信息，尽管不少是票贩子，但也没办法。前几天自己转让了一张火车票，结果信息发上去之后10分钟内收到了11个电话，自然后来的10个朋友都失望而归。无疑，这里也成了抢票的战场。。园子里也有不少朋友都写了信息监控程序，如这个，本人加以借鉴，做了这个WinForm的程序。

简介

抢票快手是一个由纯.NET编写的WinForm控件，使用WebClient下载并解析赶集网、58同城、酷讯三家的火车票转让信息（这三家的信息基本上能涵盖所有的车票转让）。源代码完全开放，可随意修改，在CodePlex上开源，地址为：http://qiangpiaokuaishou.codeplex.com/

功能特点

0. 3家网站的基本能覆盖所有转让信息（酷讯本来就聚合了一些小网站的票源）

1. 信息已列表形式展示，提取出车次和张数，可随意排序

2. 双击列表中的信息可在右边Tab中打开该信息的网页

3. 勾选监控选项可监控票源，默认1分钟间隔，可在源码中改

4. 监控到票源后会在右下角托盘处弹出新票源信息

源码下载地址：http://qiangpiaokuaishou.codeplex.com/ （包括Demo程序）

由于本人不是专业的WinForm开发经验浅薄，且开发比较仓促（2小时）如发现bug和功能缺陷，还望大家不吝赐教！

本文链接

【开源】Winform甘特日程控件GanttPlanner V1.0发布

2010-12-21T02:57:00Z

背景

做过WinForm和Web的朋友们可能都有这个感觉：做用户体验良好的WinForm应用程序要远比Web应用程序困难的多。这是因为Web应用程序毕竟只靠HTML+CSS+JS就能做出各种强大的功能和绚丽的效果，而WinForm应用程序则是一步步在屏幕上“绘制”图形图像，还要考虑各种重绘情况。

一般开发中为了降低开发成本，我们往往选用第三方WinForm控件，而像NetAdvantage, ComponentOne等第三方控件是商业收费的，而且架构中重用的组件很多，使得各控件之间相当耦合，即使我们只需要使用其中一个控件，也得引用一大堆dll，有些时候着实不便，跟别提自己定制了。

简介

GanttPlanner控件是一个由纯.NET编写的WinForm控件，以干特图+日程表的形式展示数据，提供较为丰富的API和功能支持。其架构最初源自codeproject上一个仿outlook日程表的DayView控件，现修改成适合时间进度展示的GanttPlanner控件，并做了功能上的扩充，在CodePlex上开源，地址为：http://ganttplanner.codeplex.com/

功能特点

0. 纯.NET代码编写，不含Win32API引用

1. 节点支持各种拖拽模式

2. 可以通过拖拽来缩放节点

3. 可以直接在线编辑（数据源同步更新）

4. 支持百分比指标的显示/隐藏

5. 根据一行中的节点数自动调整节点高度

6. 可高亮显示指定的时间段（如工作日）

7. 支持行、列定位

8. 支持Tootip的显示及自定义Tooltip内容

9. 时间刻度可缩放

10. 支持各节点不同背景、边框颜色，支持自定义主题

源码下载地址：http://ganttplanner.codeplex.com/ （包括Demo程序）

由于本人不是专业的WinForm开发经验浅薄，如发现bug和功能缺陷，还望大家不吝赐教！

本文链接

移除txt文本中不必要的换行符

2010-12-06T06:02:00Z

前一阵子看到刘慈欣老师的《三体3》出版了，很是兴奋，就从网上找到了《三体2》的txt，准备重温一下（不买纸质书，为了环保，家里书太多太重，表鄙视偶）。

打开一看，发现都出版了几年了，怎么网上连个像样的盗版都没有，明显是从扫描版pdf上使用文字识别ocr工具抓下来的文字，正确率倒还挺好，但有很多不必要的换行符，让人看起来非常吃力（如图）

于是，就花时间自己写了个小工具，来实现不必要换行符的剔除。

试了试，效果很不错

源码下载：/Files/blodfox777/LineBreak.rar

程序下载： /Files/blodfox777/换行移除.rar

本文链接

在MOSS2007中开发并部署自定义WebService

2010-11-26T07:18:00Z

前言

最近的一个项目需要在MOSS 2007中嵌入Silverlight报表，而Silverlight报表则需要开发相应的WebService作为数据源，而这个从MOSS列表中获取数据的Web Service则要以自定义WebService的方法部署在MOSS站点中。园子里几位前辈在若干年前已经写过一些在MOSS中部署自定义WebService的方法（如：文章一，文章二），但可能是MOSS版本不同的缘故，我试过数次都未能成功，最终摸索出了worked solution（与前面两位前辈文章中描述的solutions不同点很多），特总结于此，希望能够帮助需要的朋友们。

开发WebService

开发WebService的过程与平时相仿，新建WebService项目并直接在code-behind中完成相关代码即可，编译后生成Ceair.Union.Web.dll，如下例：

为WebService进行强命名

在WebService项目上“右键”→“属性”中选择“签名”选项卡，勾选“为程序集签名”选项，并在下方的下拉列表中新建一个snk文件，密码可以为空，过程如下图所示：

生成wsdl和dicso文件

这时候，按理说我们可以在VS中直接选择在浏览器中打开，查看刚刚写好的WebService，如下图：

接下来，我们可以用两种方法来获取这个Service的wsdl文件和disco文件：

A方法：

用VisualStudio的命令行工具执行：

disco http://localhost:6949/B2EWidgetService.asmx

然后就可以在VisualStudio的根目录下找到生成的B2EWidgetService.wsdl和B2EWidgetService.disco文件。

B方法：

直接在浏览器里输入：

http://localhost:6949/B2EWidgetService.asmx?wsdl
http://localhost:6949/B2EWidgetService.asmx?disco

并将结果保存为B2EWidgetService.wsdl和B2EWidgetService.disco文件即可。

修改wsdl和disco文件

我们知道wsdl文档和disco文件都是以XML格式对WebService进行描述的，一般情况下可以直接访问到（上节B方法）。而在MOSS中的WebService（包括moss自带的一些，如lists.asmx、alerts.asmx等）其wsdl和disco文件要通过ASP.NET程序化的方式来动态生成并输出。

在这里，我们的自定义WebService也要仿照“C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\12\ISAPI”里MOSS自带WebService的方法进行部署，步骤如下：

步骤一

分别将B2EWidgetService.wsdl和B2EWidgetService.disco重命名为B2EWidgetServicewsdl.aspx和B2EWidgetServicedisco.aspx。

步骤二

打开B2EWidgetServicedisco.aspx，将里面的代码（注意高亮部分的代码是下面需要改动的，斜体部分为此例子中特定的）：

代码

<?xml version="1.0" encoding="utf-8"?>
<discovery xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/disco/">
  <contractRef ref="http://localhost:6949/B2EWidgetService.asmx?wsdl" docRef="http://localhost:6949/B2EWidgetService.asmx" xmlns="http://schemas.xmlsoap.org/disco/scl/" />
  <soap address="http://localhost:6949/B2EWidgetService.asmx" xmlns:q1="http://sharepoint.microsoft.com/samples/" binding="q1:B2EWidgetServiceSoap" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
  <soap address="http://localhost:6949/B2EWidgetService.asmx" xmlns:q2="http://sharepoint.microsoft.com/samples/" binding="q2:B2EWidgetServiceSoap12" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
</discovery>

修改为如下所示：

步骤三

打开B2EWidgetServicewsdl.aspx，将里面的代码（注意高亮部分的代码是下面需要改动的，斜体部分为此例子中特定的）：

代码

<?xml version="1.0" encoding="utf-8" ?>
<wsdl:definitions xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/"
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/"
    xmlns:tns="http://sharepoint.microsoft.com/samples/" xmlns:s="http://www.w3.org/2001/XMLSchema"
    xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/"
    targetnamespace="http://sharepoint.microsoft.com/samples/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
    <wsdl:types>
        <s:schema elementformdefault="qualified" targetnamespace="http://sharepoint.microsoft.com/samples/">
            <s:element name="HelloWorld">
                <s:complextype />
。。。。。。。
    </wsdl:binding>
    <wsdl:service name="B2EWidgetService">
        <wsdl:port name="B2EWidgetServiceSoap" binding="tns:B2EWidgetServiceSoap">
            <soap:address location="http://localhost:6949/B2EWidgetService.asmx" />
        </wsdl:port>
        <wsdl:port name="B2EWidgetServiceSoap12" binding="tns:B2EWidgetServiceSoap12">
            <soap12:address location="http://localhost:6949/B2EWidgetService.asmx" />
        </wsdl:port>
    </wsdl:service>
</wsdl:definitions>

修改为：

代码

<%@ Page Language="C#" Inherits="System.Web.UI.Page" %>

<%@ Assembly Name="Microsoft.SharePoint, Version=11.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c" %>
<%@ Import Namespace="Microsoft.SharePoint.Utilities" %>
<%@ Import Namespace="Microsoft.SharePoint" %>
<% Response.ContentType = "text/xml"; %>
<wsdl:definitions xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:tns="http://sharepoint.microsoft.com/samples/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" targetNamespace="http://sharepoint.microsoft.com/samples/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
  <wsdl:types>
    <s:schema elementFormDefault="qualified" targetNamespace="http://sharepoint.microsoft.com/samples/">
      <s:element name="HelloWorld">
        <s:complexType />
。。。。。。。。。
  </wsdl:binding>
  <wsdl:service name="B2EWidgetService">
    <wsdl:port name="B2EWidgetServiceSoap" binding="tns:B2EWidgetServiceSoap">
      <soap:address location=<% SPEncode.WriteHtmlEncodeWithQuote(Response,SPWeb.OriginalBaseUrl(Request), '"'); %> />
    </wsdl:port>
  </wsdl:service>
</wsdl:definitions>

步骤四

打开“C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\12\ISAPI”下的"spdisco.aspx"文件，可以看到MOSS自带的WebService都注册于此，我们也需要把自己的自定义WebService加进来（在该文件下面直接附加以下两行）：

代码

<contractRef ref=<% SPHttpUtility.AddQuote(SPHttpUtility.HtmlEncode(spWeb.Url + "/_vti_bin/B2EWidgetService.asmx?wsdl"),Response.Output); %> docRef=<% SPHttpUtility.AddQuote(SPHttpUtility.HtmlEncode(spWeb.Url + "/_vti_bin/B2EWidgetService.asmx"),Response.Output); %> xmlns="http://schemas.xmlsoap.org/disco/scl/" />
<discoveryRef ref=<% SPHttpUtility.AddQuote(SPHttpUtility.HtmlEncode(spWeb.Url + "/_vti_bin/B2EWidgetService.asmx?disco"),Response.Output); %> xmlns="http://schemas.xmlsoap.org/disco/" />

部署WebService

完成上述步骤后将B2EWidgetService.asmx以及B2EWidgetServicewsdl.aspx和B2EWidgetServicedisco.aspx拷贝到“C:\Program Files\Common Files\Microsoft Shared\Web Server Extensions\12\ISAPI”下，并将WebService编译后的Ceair.Union.Web.dll拷贝到MOSS站点的Bin目录下即可完成部署。

查看结果

完成部署后，即可在MOSS站点的“_vti_bin/”路径下看到刚刚部署的WebService。

注意事项

如果WebService代码中访问到的列表数据需要权限，则可使用“SPSecurity.RunWithElevatedPrivileges”进行权限提升，否则只有网站集管理员才能够访问此Service，其他人访问则弹出登录对话框。
本文中的解决方案不需将dll注册到GAC，只需放入要使用此Service的MOSS站点的Bin目录下。
WebService的测试可使用HttpWatch、Firebug等工具

本文链接

SQL Server 中统计各用户表记录条数的两种方法

2010-10-27T06:11:00Z

最近做数据监控遇到这么个查询需求，就从系统存储过程[sys].[sp_tables]中征用了遍历用户表的代码，组织一下，配合以MSSQL 中的表变量，写了如下代码：

方法一：

    DECLARE @NAME VARCHAR(50)
    DECLARE @SQL VARCHAR(1000)

    SET @SQL = '
    DECLARE @RESULT_TABLE TABLE
    (
        [TableName]        VARCHAR(32),
        [RowCount]        INT
    )
    DECLARE @TEMP_COUNT INT'

    DECLARE TB_CURSOR CURSOR FOR

    SELECT
        TABLE_NAME      = CONVERT(SYSNAME,O.NAME)
    FROM
        SYS.ALL_OBJECTS O
    WHERE
        O.TYPE = 'U' AND
        HAS_PERMS_BY_NAME(QUOTENAME(SCHEMA_NAME(O.SCHEMA_ID)) + '.' + QUOTENAME(O.NAME),
                          'OBJECT',
                          'SELECT') = 1

    OPEN TB_CURSOR
    FETCH NEXT FROM TB_CURSOR INTO @NAME

    WHILE @@FETCH_STATUS = 0
    BEGIN
           SET @SQL = @SQL + CHAR(10) + 'INSERT INTO @RESULT_TABLE SELECT ' + '''' + @NAME +  '''' + ',COUNT(1) FROM ' + @NAME + ';'

           FETCH NEXT FROM TB_CURSOR INTO @NAME
    END

    CLOSE TB_CURSOR
    DEALLOCATE TB_CURSOR

    SET @SQL = @SQL + CHAR(10) +'SELECT * FROM @RESULT_TABLE '
    EXEC (@SQL)

这里使用表变量而非临时表，是因为大多数数据库中表的数量不会太多，使得临时表（或表变量）中的记录条数不会很多。如此一来，借以表变量，将数据暂时存放放在内存中要比存放在tempDB中更加高效。

基本思路为：

1.从系统视图SYS.ALL_OBJECTS中取出所有用户表的表名。

2.用游标遍历所有表名，并使用select count(1)来统计该表行数，并拼接成相应的暂存SQL代码。

3.执行生成的SQL代码，取得数据结果集。其中生成的SQL代码为：

   DECLARE @RESULT_TABLE TABLE
    (
        [TableName]        VARCHAR(32),
        [RowCount]        INT
    )
    DECLARE @TEMP_COUNT INT

    -- each tables
    INSERT INTO @RESULT_TABLE SELECT 'LDMMessage',COUNT(1) FROM LDMMessage;
    INSERT INTO @RESULT_TABLE SELECT 'DCSFile',COUNT(1) FROM DCSFile;
    INSERT INTO @RESULT_TABLE SELECT 'SSRCode',COUNT(1) FROM SSRCode;
    INSERT INTO @RESULT_TABLE SELECT 'PRLMessage',COUNT(1) FROM PRLMessage;
    ...

    SELECT * FROM @RESULT_TABLE

写完之后，感觉毕竟使用到了游标和表变量，性能不太理想，应该还有更好的方法，便google了一下，发现也可以从系统视图SYS.SYSOBJECTS中查出用户表名，并使用主键ID连接视图SYS.SYSINDEXES，根据索引的相关数据来获得表的记录条数:

方法二：

   DECLARE @RESULT_TABLE TABLE
    (
        [TableName]        VARCHAR(32),
        [RowCount]        INT
    )

    INSERT INTO
        @RESULT_TABLE
    SELECT
        O.NAME, I.ROWCNT
    FROM
        SYS.SYSOBJECTS O, SYSINDEXES I
    WHERE
        O.ID = I.ID AND
        O.XTYPE = 'U' AND
        I.INDID < 2

    SELECT * FROM @RESULT_TABLE

这里主要使用了SYS.SYSOBJECTS和SYS.SYSINDEXES的连接，并通过 I.INDID < 2 条件找到表的聚集索引或堆记录（Heap：0，聚集索引：1，非聚集索引>1），由此得出Data级别的记录条数RowCnt。

性能对比：

使用SQL Server Profiler来检测两种方法的执行开销，结果如下：

方法一开销62个CPU时间片，而方法二之开销了2个时间片，性能大为胜出。

参考资料：

http://msdn.microsoft.com/en-us/library/ms190324.aspx

http://msdn.microsoft.com/en-us/library/ms178618.aspx

http://msdn.microsoft.com/en-us/library/ms190283.aspx

/****** Object:  StoredProcedure [sys].[sp_tables]    Script Date: 10/27/2010 14:06:19 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER procedure [sys].[sp_tables]
(
    @table_name         nvarchar(384)   = null,
    @table_owner        nvarchar(384)   = null,
    @table_qualifier    sysname = null,
    @table_type         varchar(100) = null,
    @fUsePattern        bit = 1 -- To allow users to explicitly disable all pattern matching.
)
as
    declare @type1      varchar(3)
    declare @qual_name  nvarchar(517) -- [schema].[table]
    declare @table_id   int

    if @table_qualifier = '%' and @table_owner = '' and @table_name = ''
    begin
        -- Debug output, do not remove it.
        -- print 'Special feature #1:  enumerate databases when owner and name are blank but qualifier is explicitly "%".'
        select
            TABLE_QUALIFIER = convert(sysname,d.name),
            TABLE_OWNER     = convert(sysname,null),
            TABLE_NAME      = convert(sysname,null),
            TABLE_TYPE      = convert(varchar(32),null),
            REMARKS         = convert(varchar(254),null)    -- Remarks are NULL.
        from
            sys.databases d
        where
            d.name <> 'model' -- eliminate MODEL database
        order by 1
        return
    end

    if @table_qualifier = '' and @table_owner = '%' and @table_name = ''
    begin
        -- Debug output, do not remove it.
        -- print 'Special feature #2:  enumerate owners when qualifier and name are blank but owner is explicitly "%".
        select distinct
            TABLE_QUALIFIER = convert(sysname,null),
            TABLE_OWNER     = convert(sysname,schema_name(o.schema_id)),
            TABLE_NAME      = convert(sysname,null),
            TABLE_TYPE      = convert(varchar(32),null),
            REMARKS         = convert(varchar(254),null)    -- Remarks are NULL.
        from
            sys.all_objects o
        where
            o.type in ('S','U','V')  -- limit columns to tables and views only
        order by 2
        return
    end

    if @table_qualifier = '' and @table_owner = '' and @table_name = '' and @table_type = '%'
    begin
        -- Debug output, do not remove it.
        -- print 'Special feature #3:  enumerate table types when qualifier, owner and name are blank but table type is explicitly "%".'
        select
            TABLE_QUALIFIER = convert(sysname,null),
            TABLE_OWNER     = convert(sysname,null),
            TABLE_NAME      = convert(sysname,null),
            TABLE_TYPE      = convert(varchar(32),
                                        rtrim(substring('SYSTEM TABLETABLE       VIEW',(c.column_id-1)*12+1,12))),
            REMARKS         = convert(varchar(254),null)    -- Remarks are NULL.
        from
            sys.all_objects o,
            sys.all_columns c
        where
            o.object_id = c.object_id and o.object_id = object_id('sysusers') and
            c.column_id <= 3 -- ISSUE - what is this for ???
        return
    end

    --
    -- End of special features - do normal processing.
    --

    if @table_qualifier is not null
    begin
        if db_name() <> @table_qualifier
        begin
            if @table_qualifier = ''
            begin  -- If empty qualifier supplied, force an empty result set.
                select @table_name = ''
                select @table_owner = ''
            end
            else
            begin   -- If qualifier doesn't match current database.
                raiserror (15250, -1,-1)
                return
            end
        end
    end
    select @table_qualifier = null -- it's not needed anymore

    if @table_type is null
    begin   -- Select all ODBC supported table types.
        select @type1 = 'SUV'
    end
    else
    begin
        -- TableType is case sensitive if CS server.
        if (charindex('''SYSTEM TABLE''',@table_type) <> 0)
            select @type1 = 'S' -- Add System Tables.
        else
            select @type1 = ''
        if (charindex('''TABLE''',@table_type) <> 0)
            select @type1 = @type1 + 'U' -- Add User Tables.
        if (charindex('''VIEW''',@table_type) <> 0)
            select @type1 = @type1 + 'V' -- Add Views.
    end

    if @table_name is not null
    begin
        if (@table_owner is null) and (charindex('%', @table_name) = 0)
        begin   -- If owner not specified and table contains wildchar.
            if exists
            (
                select
                        *
                from
                        sys.all_objects o
                where
                        o.schema_id = schema_id() and
                        o.object_id = object_id(@table_name) and
                        o.type in ('U','V','S')
            )
            begin   -- Override supplied owner w/owner of table.
                select @table_owner = schema_name()
            end
        end
    end

    select @qual_name = isnull(quotename(@table_owner), '') + '.' + quotename(@table_name)
    select @table_id = object_id(@qual_name)

    if (@fUsePattern = 1) -- Does the user want it?
    begin
        if ((isnull(charindex('%', @table_name),0) = 0) and
            (isnull(charindex('_', @table_name),0) = 0) and
            (isnull(charindex('%', @table_owner),0) = 0) and
            (isnull(charindex('_', @table_owner),0) = 0) and
            (@table_id is not null))
        begin
            select @fUsePattern = 0 -- not a single wild char, so go the fast way.
        end
    end

    if @fUsePattern = 0
    begin
        /* -- Debug output, do not remove it.
        print '*************'
        print 'There is NO pattern matching.'
        print @fUsePattern
        print isnull(@table_name, '@table_name = null')
        print isnull(@table_owner, '@table_owner = null')
        print isnull(@table_type, '@table_type = null')
        print isnull(@type1, '@type1 = null')
        print '*************'
        */
        select
            TABLE_QUALIFIER = convert(sysname,db_name()),
            TABLE_OWNER     = convert(sysname,schema_name(o.schema_id)),
            TABLE_NAME      = convert(sysname,o.name),
            TABLE_TYPE      = convert(varchar(32),
                                        rtrim(substring('SYSTEM TABLE            TABLE       VIEW       ',
                                        (ascii(o.type)-83)*12+1,12))  -- 'S'=0,'U'=2,'V'=3
                                     ),
            REMARKS = convert(varchar(254),null)    -- Remarks are NULL.

        from
            sys.all_objects o

        where
            o.object_id = @table_id and
            o.type in ('S','U','V') and
            has_perms_by_name(@qual_name, 'object', 'select') = 1 and
            charindex(substring(o.type,1,1),@type1) <> 0 -- Only desired types.
        order by 4, 1, 2, 3
    end
    else
    begin
        /* -- Debug output, do not remove it.
        print '*************'
        print 'THERE IS pattern matching!'
        print @fUsePattern
        print isnull(@table_name, '@table_name = null')
        print isnull(@table_owner, '@table_owner = null')
        print isnull(@table_type, '@table_type = null')
        print isnull(@type1, '@type1 = null')
        print '*************'
        */
        select
            TABLE_QUALIFIER = convert(sysname,db_name()),
            TABLE_OWNER     = convert(sysname,schema_name(o.schema_id)),
            TABLE_NAME      = convert(sysname,o.name),
            TABLE_TYPE      = convert(varchar(32),
                                        rtrim(substring('SYSTEM TABLE            TABLE       VIEW       ',
                                              (ascii(o.type)-83)*12+1,
                                              12))  -- 'S'=0,'U'=2,'V'=3
                                     ),
            REMARKS = convert(varchar(254),null)    -- Remarks are NULL.

        from
            sys.all_objects o

        where
            o.type in ('S','U','V') and
            has_perms_by_name(quotename(schema_name(o.schema_id)) + '.' + quotename(o.name),
                              'object',
                              'select') = 1 and
            charindex(substring(o.type,1,1),@type1) <> 0 and -- Only desired types.
            (@table_name  is NULL or o.name like @table_name) and
            (@table_owner is NULL or schema_name(o.schema_id) like @table_owner)
        order by 4, 1, 2, 3
    end

本文链接

博客园_LanceZhang's Tech Blog

测试

应对.NET Reflector过期的小技巧

不需编译让aspx页自主筛选数据绑定记录

也谈谈“加班”问题

共享一个封装Silverlight的WebPart

【开源】二手火车票监控程序 抢票快手 V1.0发布

【开源】Winform甘特日程控件GanttPlanner V1.0发布

移除txt文本中不必要的换行符

在MOSS2007中开发并部署自定义WebService

SQL Server 中统计各用户表记录条数 的两种方法

【开源】二手火车票监控程序抢票快手 V1.0发布

SQL Server 中统计各用户表记录条数的两种方法