Private Target As String

'---------------------------------------------------
' Call this sub to execute and capture a console app.
' Ex: Call ExecAndCapture("ping localhost", Text1)
Public Sub ExecAndCapture(ByVal sCommandLine As String, _
                          cTextBox As StatusBar, _
                          ByVal status_flag As Integer, _
                          Optional ByVal sStartInFolder As String = vbNullString)    '--add by daniel for set status_flag if is 1 then ok else is 2 then closeHandle

Const BUFSIZE         As Long = 1024 * 10
Dim hPipeRead         As Long
Dim hPipeWrite        As Long
Dim sa                As SECURITY_ATTRIBUTES
Dim si                As STARTUPINFO
Dim pi                As PROCESS_INFORMATION
Dim baOutput(BUFSIZE) As Byte
Dim sOutput           As String
Dim lBytesRead        As Long
   
If status_flag = 1 Then
    With sa
        .nLength = Len(sa)
        .bInheritHandle = 1    ' get inheritable pipe handles
    End With 'SA
   
    If CreatePipe(hPipeRead, hPipeWrite, sa, 0) = 0 Then
        Exit Sub
    End If

    With si
        .cb = Len(si)
        .dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES
        .wShowWindow = SW_HIDE          ' hide the window
        .hStdOutput = hPipeWrite
        .hStdError = hPipeWrite
    End With 'SI
   
    If CreateProcess(vbNullString, sCommandLine, ByVal 0&, ByVal 0&, 1, 0&, ByVal 0&, sStartInFolder, si, pi) Then
        Call CloseHandle(hPipeWrite)
        Call CloseHandle(pi.hThread)
        hPipeWrite = 0
        Do
            DoEvents
            If status_flag = 1 Then
                If ReadFile(hPipeRead, baOutput(0), BUFSIZE, lBytesRead, ByVal 0&) = 0 Then
                    Exit Do
                End If
                sOutput = Left$(StrConv(baOutput(), vbUnicode), lBytesRead)
                If status_flag = 1 Then
                    cTextBox.Panels(2).Text = sOutput
                ElseIf status_flag = 2 Then
                    cTextBox.Panels(2).Text = ""
                    Call CloseHandle(pi.hProcess)
                End If
            ElseIf status_flag = 2 Then
                cTextBox.Panels(2).Text = ""
                Call CloseHandle(pi.hProcess)
            End If
        Loop
        Call CloseHandle(pi.hProcess)
    End If
ElseIf status_flag = 2 Then
    cTextBox.Panels(2).Text = ""
    pi.hThread = 0
    pi.hProcess = 0
End If
    ' To make sure...
    Call CloseHandle(hPipeRead)
    Call CloseHandle(hPipeWrite)

End Sub

' Check a returned task to see if we should
' kill it.
Public Function EnumCallback(ByVal app_hWnd As Long, ByVal param As Long) As Long
Dim buf As String * 256
Dim title As String
Dim length As Long

    ' Get the window's title.
    length = GetWindowText(app_hWnd, buf, Len(buf))
    title = Left$(buf, length)

    ' See if this is the target window.
    If InStr(title, Target) <> 0 Then
        ' Kill the window.
        SendMessage app_hWnd, WM_CLOSE, 0, 0
    End If
   
    ' Continue searching.
    EnumCallback = 1
End Function

' Ask Windows for the list of tasks.
Public Sub TerminateTask(app_name As String)
    Target = app_name
    EnumWindows AddressOf EnumCallback, 0
End Sub

Call ExecAndCapture(strpingip, stbaccess, 1)   

分页方案一：(利用Not In和SELECT TOP分页)
语句形式：
SELECT TOP 10 *
FROM TestTable
WHERE (ID NOT IN
          (SELECT TOP 20 id
         FROM TestTable
         ORDER BY id))
ORDER BY ID

SELECT TOP 页大小 *
FROM TestTable
WHERE (ID NOT IN
          (SELECT TOP 页大小*页数 id
         FROM 表
         ORDER BY id))
ORDER BY ID

-------------------------------------

分页方案二：(利用ID大于多少和SELECT TOP分页）
语句形式：
SELECT TOP 10 *
FROM TestTable
WHERE (ID >
          (SELECT MAX(id)
         FROM (SELECT TOP 20 id
                 FROM TestTable
                 ORDER BY id) AS T))
ORDER BY ID

SELECT TOP 页大小 *
FROM TestTable
WHERE (ID >
          (SELECT MAX(id)
         FROM (SELECT TOP 页大小*页数 id
                 FROM 表
                 ORDER BY id) AS T))
ORDER BY ID

-------------------------------------

分页方案三：(利用SQL的游标存储过程分页)
create  procedure XiaoZhengGe
@sqlstr nvarchar(4000), --查询字符串
@currentpage int, --第N页
@pagesize int --每页行数
as
set nocount on
declare @P1 int, --P1是游标的id
 @rowcount int
exec sp_cursoropen @P1 output,@sqlstr,@scrollopt=1,@ccopt=1,@rowcount=@rowcount output
select ceiling(1.0*@rowcount/@pagesize) as 总页数--,@rowcount as 总行数,@currentpage as 当前页 
set @currentpage=(@currentpage-1)*@pagesize+1
exec sp_cursorfetch @P1,16,@currentpage,@pagesize
exec sp_cursorclose @P1
set nocount off

其它的方案：如果没有主键，可以用临时表，也可以用方案三做，但是效率会低。
建议优化的时候，加上主键和索引，查询效率会提高。

通过SQL 查询分析器，显示比较：我的结论是:
分页方案二：(利用ID大于多少和SELECT TOP分页）效率最高，需要拼接SQL语句
分页方案一：(利用Not In和SELECT TOP分页)   效率次之，需要拼接SQL语句
分页方案三：(利用SQL的游标存储过程分页)    效率最差，但是最为通用

在实际情况中，要具体分析。

Namespace VB_AJAXTEST

    Public Class AutoComplete
        Inherits System.Web.UI.Page

        Protected tbSearch As System.Web.UI.WebControls.TextBox
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected btnSearch As System.Web.UI.WebControls.Button
        Protected dlEmployee As System.Web.UI.WebControls.DataList
        Protected search As System.Web.UI.HtmlControls.HtmlInputText
        Protected lblMessage As System.Web.UI.WebControls.Label
        Protected Label1 As System.Web.UI.WebControls.Label

        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
            Utility.RegisterTypeForAjax(GetType(AutoComplete))
        End Sub

        <AjaxMethod()> _
        Public Function GetSearchItems(ByVal query As String) As ArrayList
            Dim items As ArrayList = New ArrayList
            Dim myConnectionString As String = "SERVER=192.168.0.244;DATABASE=pubs;uid=sa;pwd=;Connect Timeout=30"
            Dim mySelectQuery As String = String.Format("select fname from employee where fname like '{0}%'", query)
            Dim myConnection As SqlConnection = New SqlConnection(myConnectionString)
            Dim myCommand As SqlCommand = New SqlCommand(mySelectQuery, myConnection)
            myConnection.Open()
            Dim myReader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
            While myReader.Read
                items.Add(myReader.GetString(0))
            End While
            myReader.Close()
            Return items
        End Function

        Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub

        Private Sub InitializeComponent()
            AddHandler Me.btnSearch.Click, AddressOf Me.btnSearch_Click
            AddHandler Me.Load, AddressOf Me.Page_Load
        End Sub

        Private Sub btnSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            BindList()
        End Sub

        Private Sub BindList()
            Dim myConnectionString As String = "SERVER=192.168.0.244;DATABASE=pubs;uid=sa;pwd=;Connect Timeout=30"
            Dim mySelectQuery As String = String.Format("select a.*,b.job_desc from employee a, jobs b where fname like '{0}%' and a.job_id=b.job_id", search.Value)
            Dim myConnection As SqlConnection = New SqlConnection(myConnectionString)
            Dim myCommand As SqlCommand = New SqlCommand(mySelectQuery, myConnection)
            Dim da As SqlDataAdapter = New SqlDataAdapter(myCommand)
            Dim ds As DataSet = New DataSet
            Try
                myConnection.Open()
                da.Fill(ds)
                dlEmployee.DataSource = ds.Tables(0).DefaultView
                dlEmployee.DataBind()
            Catch ex As SqlException
                Response.Write(ex.Message)
            Finally
                myConnection.Close()
            End Try
            If ds.Tables(0).Rows.Count = 0 Then
                lblMessage.Text = "没有您要查找的员工信息！"
            Else
                lblMessage.Text = ""
            End If
        End Sub

    End Class

End Namespace

Second Step: Create a AjaxTextBox.vb.
Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.TextBox

Public Class AjaxTextBox
    Inherits System.Web.UI.WebControls.TextBox

#Region "Private Property"

    Private scriptFile_value As String = ""
    Private callBackFunction_value As String = ""
    Private backgroundColor_value As String = "#EEE"
    Private highlightColor_value As String = "#CCC"
    Private font_value As String = "Verdana"
    Private divPadding_value As String = "2px"
    Private divBorder_value As String = "1px solid #CCC"

#End Region

#Region "Public Property"

    Public Property ScriptFile() As String
        Get
            Return scriptFile_value
        End Get
        Set(ByVal Value As String)
            scriptFile_value = Value
        End Set
    End Property

    Public Property CallBackFunction() As String
        Get
            Return callBackFunction_value
        End Get
        Set(ByVal Value As String)
            callBackFunction_value = Value
        End Set
    End Property

    Public Property BackgroundColor() As String
        Get
            Return backgroundColor_value
        End Get
        Set(ByVal Value As String)
            backgroundColor_value = Value
        End Set
    End Property

    Public Property HighlightColor() As String
        Get
            Return highlightColor_value
        End Get
        Set(ByVal Value As String)
            highlightColor_value = Value
        End Set
    End Property

    Public Property DivFont() As String
        Get
            Return font_value
        End Get
        Set(ByVal Value As String)
            font_value = Value
        End Set
    End Property

    Public Property DivPadding() As String
        Get
            Return divPadding_value
        End Get
        Set(ByVal Value As String)
            divPadding_value = Value
        End Set
    End Property

    Public Property DivBorder() As String
        Get
            Return divBorder_value
        End Get
        Set(ByVal Value As String)
            divPadding_value = Value
        End Set
    End Property

#End Region

#Region "Public AjaxTextBox"

    Public Sub New()
        Me.Attributes.Add("AutoComplete", "off")
    End Sub

    Protected Overloads Overrides Sub Render(ByVal writer As HtmlTextWriter)
        MyBase.Render(writer)
        Page.RegisterStartupScript("LoadScript", "<script language='JavaScript' src='" + ScriptFile + "'></script>")
        Dim styles As String = String.Format("<script language='JavaScript'>var DIV_BG_COLOR = '{0}';var DIV_HIGHLIGHT_COLOR = '{1}';var DIV_FONT = '{2}';var DIV_PADDING = '{3}';var DIV_BORDER = '{4}';</script>", BackgroundColor, HighlightColor, DivFont, DivPadding, DivBorder)
        Page.RegisterStartupScript("LookupStyles", styles)
        Page.RegisterStartupScript("RegisterScript", "<script language='JavaScript'>InitQueryCode('" + Me.ClientID + "')</script>")
        Page.RegisterStartupScript("RegisterCallBack", "<script language='JavaScript'>mainLoop = function() {val = escape(queryField.value);if(lastVal != val){var response = " + CallBackFunction + "(val);showQueryDiv(response.value); lastVal = val;}setTimeout('mainLoop()', 100);return true;};</script>")
    End Sub

#End Region

End Class

Third step: Create a lookup.js
// 下拉区背景色
var DIV_BG_COLOR = "#EEE";
// 高亮显示条目颜色
var DIV_HIGHLIGHT_COLOR = "#C30";
// 字体
var DIV_FONT = "Arial";
// 下拉区内补丁大小
var DIV_PADDING = "2px";
// 下拉区边框样式
var DIV_BORDER = "1px solid #CCC";

// 文本输入框
var queryField;
// 下拉区id
var divName;
// IFrame名称
var ifName;
// 记录上次选择的值
var lastVal = "";
// 当前选择的值
var val = "";
// 显示结果的下拉区
var globalDiv;
// 下拉区是否设置格式的标记
var divFormatted = false;

/**
InitQueryCode函数必须在<body onload>事件的响应函数中调用,其中:
queryFieldName为文本框控件的id,
hiddenDivName为显示下拉区div的id
*/
function InitQueryCode (queryFieldName, hiddenDivName)
{
 // 指定文本输入框的onblur和onkeydown响应函数
 queryField = document.getElementById(queryFieldName);
 queryField.onblur = hideDiv;
 queryField.onkeydown = keypressHandler;

 // 设置queryField的autocomplete属性为"off"
 queryField.autocomplete = "off";

 // 如果没有指定hiddenDivName,取默认值"querydiv"
 if (hiddenDivName)
 {
  divName = hiddenDivName;
 }
 else
 {
  divName = "querydiv";
 }
 
 // IFrame的name
 ifName = "queryiframe";
 
 // 100ms后调用mainLoop函数
 setTimeout("mainLoop()", 100);
}

/**
获取下拉区的div,如果没有则创建之
*/
function getDiv (divID)
{
 if (!globalDiv)
 {
  // 如果div在页面中不存在,创建一个新的div
  
  if (!document.getElementById(divID))
  {
   var newNode = document.createElement("div");
   newNode.setAttribute("id", divID);
   document.body.appendChild(newNode);
  }

  // globalDiv设置为div的引用  
  globalDiv = document.getElementById(divID);

  // 计算div左上角的位置  
  var x = queryField.offsetLeft;
  var y = queryField.offsetTop + queryField.offsetHeight;
  var parent = queryField;
  while (parent.offsetParent)
  {
   parent = parent.offsetParent;
   x += parent.offsetLeft;
   y += parent.offsetTop;
  }

  // 如果没有对div设置格式,则为其设置相应的显示样式  
  if (!divFormatted)
  {
   globalDiv.style.backgroundColor = DIV_BG_COLOR;
   globalDiv.style.fontFamily = DIV_FONT;
   globalDiv.style.padding = DIV_PADDING;
   globalDiv.style.border = DIV_BORDER;
   globalDiv.style.width = "100px";
   globalDiv.style.fontSize = "90%";

   globalDiv.style.position = "absolute";
   globalDiv.style.left = x + "px";
   globalDiv.style.top = y + "px";
   globalDiv.style.visibility = "hidden";
   globalDiv.style.zIndex = 10000;

   divFormatted = true;
  }
 }

 return globalDiv;
}

/**
根据返回的结果集显示下拉区
*/
function showQueryDiv(resultArray)
{
 // 获取div的引用
 var div = getDiv(divName);
 
 // 如果div中有内容,则删除之
 while (div.childNodes.length > 0)
  div.removeChild(div.childNodes[0]);

 // 依次添加结果
 for (var i = 0; i < resultArray.length; i++)
 {
  // 每一个结果也是一个div
  var result = document.createElement("div");
  // 设置结果div的显示样式
  result.style.cursor = "pointer";
  result.style.padding = "2px 0px 2px 0px";
  // 设置为未选中
  _unhighlightResult(result);
  // 设置鼠标移进、移出等事件响应函数
  result.onmousedown = selectResult;
  result.onmouseover = highlightResult;
  result.onmouseout = unhighlightResult;

  // 结果的文本是一个span
  var result1 = document.createElement("span");
  // 设置文本span的显示样式
  result1.className = "result1";
  result1.style.textAlign = "left";
  result1.style.fontWeight = "bold";
  result1.innerHTML = resultArray[i];
  
  // 将span添加为结果div的子节点
  result.appendChild(result1);
  
  // 将结果div添加为下拉区的子节点
  div.appendChild(result);
 }

 // 如果结果集不为空,则显示,否则不显示
 showDiv(resultArray.length > 0);
}

/**
用户点击某个结果时,将文本框的内容替换为结果的文本,
并隐藏下拉区
*/
function selectResult()
{
 _selectResult(this);
}

// 选择一个条目
function _selectResult(item)
{
 var spans = item.getElementsByTagName("span");
 if (spans)
 {
  for (var i = 0; i < spans.length; i++)
  {
   if (spans[i].className == "result1")
   {
    queryField.value = spans[i].innerHTML;
    lastVal = val = escape(queryField.value);
    mainLoop();
    queryField.focus();
    showDiv(false);
    return;
   }
  }
 }
}

/**
当鼠标移到某个条目之上时,高亮显示该条目
*/
function highlightResult()
{
 _highlightResult(this);
}

function _highlightResult(item)
{
 item.style.backgroundColor = DIV_HIGHLIGHT_COLOR;
}

/**
当鼠标移出某个条目时,正常显示该条目
*/
function unhighlightResult()
{
 _unhighlightResult(this);
}

function _unhighlightResult(item)
{
 item.style.backgroundColor = DIV_BG_COLOR;
}

/**
显示/不显示下拉区
*/
function showDiv (show)
{
 var div = getDiv(divName);
 if (show)
 {
  div.style.visibility = "visible";
 }
 else
 {
  div.style.visibility = "hidden";
 }
 //adjustiFrame();
}

/**
隐藏下拉区
*/
function hideDiv ()
{
 showDiv(false);
}

/**
调整IFrame的位置,这是为了解决div可能会显示在输入框后面的问题
*/
function adjustiFrame()
{
 // 如果没有IFrame,则创建之
 if (!document.getElementById(ifName))
 {
  var newNode = document.createElement("iFrame");
  newNode.setAttribute("id", ifName);
  newNode.setAttribute("src", "javascript:false;");
  newNode.setAttribute("scrolling", "no");
  newNode.setAttribute("frameborder", "0");
  document.body.appendChild(newNode);
 }

 iFrameDiv = document.getElementById(ifName);
 var div = getDiv(divName);

 // 调整IFrame的位置与div重合,并在div的下一层 
 try
 {
  iFrameDiv.style.position = "absolute";
  iFrameDiv.style.width = div.offsetWidth;
  iFrameDiv.style.height = div.offsetHeight;
  iFrameDiv.style.top = div.style.top;
  iFrameDiv.style.left = div.style.left;
  iFrameDiv.style.zIndex = div.style.zIndex - 1;
  iFrameDiv.style.visibility = div.style.visibility;
 }
 catch (e)
 {
 }
}

/**
文本输入框的onkeydown响应函数
*/
function keypressHandler (evt)
{
 // 获取对下拉区的引用  
 var div = getDiv(divName);
 
 // 如果下拉区不显示,则什么也不做  
 if (div.style.visibility == "hidden")
 {
  return true;
 }

 // 确保evt是一个有效的事件 
 if (!evt && window.event)
 {
  evt = window.event;
 }
 var key = evt.keyCode;

 var KEYUP = 38;
 var KEYDOWN = 40;
 var KEYENTER = 13;
 var KEYTAB = 9;
 
 // 只处理上下键、回车键和Tab键的响应  
 if ((key != KEYUP) && (key != KEYDOWN) && (key != KEYENTER) && (key != KEYTAB))
 {
  return true;
 }

 var selNum = getSelectedSpanNum(div);
 var selSpan = setSelectedSpan(div, selNum);
 
 // 如果键入回车和Tab,则选择当前选择条目 
 if ((key == KEYENTER) || (key == KEYTAB))
 {
  if (selSpan)
  {
   _selectResult(selSpan);
  }
  evt.cancelBubble = true;
  return false;
 }
 else //如果键入上下键,则上下移动选中条目
 {
  if (key == KEYUP)
  {
   selSpan = setSelectedSpan(div, selNum - 1);
  }
  if (key == KEYDOWN)
  {
   selSpan = setSelectedSpan(div, selNum + 1);
  }
  if (selSpan)
  {
   _highlightResult(selSpan);
  }
 }

 // 显示下拉区
 showDiv(true);
 return true;
}

/**
获取当前选中的条目的序号
*/
function getSelectedSpanNum(div)
{
 var count = -1;
 var spans = div.getElementsByTagName("div");
 if (spans)
 {
  for (var i = 0; i < spans.length; i++)
  {
   count++;
   if (spans[i].style.backgroundColor != div.style.backgroundColor)
   {
    return count;
   }
  }
 }

 return -1;
}

/**
选择指定序号的结果条目
*/
function setSelectedSpan(div, spanNum)
{
 var count = -1;
 var thisSpan;
 var spans = div.getElementsByTagName("div");
 if (spans)
 {
  for (var i = 0; i < spans.length; i++)
  {
   if (++count == spanNum)
   {
    _highlightResult(spans[i]);
    thisSpan = spans[i];
   }
   else
   {
    _unhighlightResult(spans[i]);
   }
  }
 }

 return thisSpan;
}

Fourthly: Add httpHandlers request in web.config.
  <httpHandlers>
   <add verb="POST,GET" path="ajaxpro/*.ashx" type="AjaxPro.AjaxHandlerFactory, AjaxPro" />
  </httpHandlers>

Dont' forget download a AjaxPro.dll then add the dll to the project.

本页内容

	DTS 简介
	使用 DTS Designer
	保存 DTS 数据包的选项
	将 DTS 作为应用程序开发平台

DTS 简介

大部分公司的数据都具有多种存储格式和存储位置。为了支持决策制定、提高系统性能或升级现有系统，经常必须将数据从一个数据存储位置转移到另一个位置。

Microsoft SQL Server 2000 数据转换服务（DTS）为此提供了一系列的工具，您可以用来从不同来源将数据提取、转换和合并到单个或多个目标。通过使用DTS工具，您可以根据公司的特殊需求创建定制的数据移动解决方案，正如下面这些情形：

DTS 是什么?

DTS 是一组数据转换工具，您可以用来在一个或多个数据源（例如 Microsoft SQL Server、 Microsoft Excel 或 Microsoft Access）之间进行不同类型数据的导入、导出和转换。其中的连通性通过数据访问的开放式标准－OLE DB－来提供。ODBC（开放式数据库连接）数据源由 OLE DB Provider for ODBC 来支持。

您可以将 DTS 解决方案创建为一个或多个数据包。每个数据包中可以包含一组有序的任务，定义所要执行的工作，也可以包含数据和对象的转换、定义任务执行的工作流限制以及数据源和目标的连接等。DTS 数据包也提供记录数据包执行细节、控制事务以及处理全局变量等服务。

下列工具可以用于创建和执行 DTS 数据包：

您也可以使用 DTS 对象模型通过编程创建和运行数据包，构建定制任务以及构建定制转换。

DTS 中的新内容?

Microsoft SQL Server 2000 引入了许多 DTS 增强和新特性：

返回页首

使用 DTS Designer

DTS Designer 图形化地实施 DTS 对象模型，允许您图形化地创建 DTS 数据包。您可以使用 DTS Designer 来：

DTS Designer 界面由工作区域、工具栏和菜单组成。其中工作区域用于构建数据包，工具栏包含有数据包元素，您可以将它们拖动到设计页中，菜单中包含有工作流和数据包管理命令。

图1：DTS Designer 界面
查看大图。

在 DTS Designer 中，您可以将连接和任务拖动到设计页中，并指定工作流执行的顺序，从而轻松地创建功能强大的 DTS 数据包。下面的内容将定义任务、工作流、连接和转换，并介绍如何使用 DTS Designer 轻松地实施 DTS 解决方案。

任务：定义数据包中的步骤

DTS 数据包中通常包含一个或多个步骤。每个任务定义了一个可能在数据包执行过程中执行的工作项目。您可以使用任务来：

1 SQL Server 2000中新增。

2 仅适用于已安装 SQL Server 2000 分析服务的情形。

您可以程序化地创建定制任务，然后使用 Register Custom Task（注册定制任务）命令将它们集成到 DTS Designer 中。

为了说明这些任务的使用，在这里我们给出了一个包含两个任务的简单 DTS 数据包： Microsoft ActiveX Script 任务和 Send Mail 任务：

图2：具有两个任务的 DTS 数据包

ActiveX Script 任务可以驻留任何 ActiveX 脚本引擎，包括 Microsoft Visual Basic Scripting Edition (VBScript)、Microsoft JScript 或者 ActiveState ActivePerl（您可以从http://www.activestate.com [英文]下载）。 Send Mail 任务可以发送消息，指出该数据包已经运行。请注意，这些任务是没有顺序的。在执行数据包时，ActiveX Script 任务和 Send Mail 任务同时运行。

工作流：设置任务优先级

当您在定义一组任务时，通常任务的执行是应该有一定顺序的。如果这些任务拥有一定的顺序，那么每个任务将称为一个过程中的一个步骤。在 DTS Designer 中，您可以在 DTS Designer 设计页中对任务进行操作，使用优先级限制来控制任务执行的顺序。

优先级限制将数据包中的任务依次链接起来。下表给出了您可以在 DTS 中使用的优先级限制的类型。

下图给出了具有 On Completion 优先级限制的 ActiveX Script 任务和 Send Mail 任务。当 ActiveX Script 任务完成后（不论成功还是失败），Send Mail 任务都开始运行。

图3：具有 On Completion 优先级限制的 ActiveX Script 任务和 Send Mail 任务

您可以配置不同的 Send Mail 任务，一个用于 On Success 限制，另一个用于 On Failure 限制。这两个 Send Mail 任务可以根据 ActiveX Script 的成功或失败来发送不同的邮件。

图4：邮件任务

您也可以在一个任务上应用多个优先级限制。例如， Send Mail 任务"Admin Notification"可以具有来自脚本#1的 On Success 限制和来自脚本#2 的 On Failure 限制。在这种情况下，DTS 认为其使用逻辑"AND"关系。因此为了发送 Admin Notification 邮件，脚本#1必须成功执行，而脚本#2 必须失败。

图5：同一任务多个优先级限制的示例

连接：访问和移动数据

为了成功地执行复制和转换数据的 DTS 任务，DTS 数据包必须与其来源和目标之间建立有效的连接，同样需要连接到其他数据源（例如查询表）

在创建数据包时，您可以从有效 OLE DB 提供商和 ODBC 驱动程序列表中选择连接类型，对连接进行配置。可用的连接类型包括：

DTS 允许您使用任何 OLE DB 连接。连接工具栏中的图标为常用连接提供了方便的访问方式。

下图介绍了一个具有两个连接的数据包。数据被从一个 Access 数据库（来源连接）复制到 SQL Server 生产数据库（目标连接）。

图6：具有两个连接的数据包示例
查看大图。

这个数据包的第一步是一个执行 SQL 任务，该任务检查是否已经存在目标表。如果已经存在，这个表将被删除并重新创建。在成功的完成了执行 SQL 任务后，数据在第二步中被复制到 SQL Server 数据库。如果复制操作失败，则在第三步中发送一封电子邮件。

数据泵：转换数据

DTS 数据泵是一个 DTS 对象，用来驱动数据的导入、导出和转换。在转换数据、数据驱动的查询以及平行数据泵任务中将使用这个数据泵。这些任务将在来源和目标连接中创建数据行组，然后创建数据泵实例，将数据行在来源和目标之间移动。在数据行被复制时，对每一行进行数据转换。

下图的步骤 2 中，在 Access DB 任务和 SQL Production DB 任务之间使用了一个转换数据任务。转换数据任务是两个连接之间的灰色箭头。

图7：转换数据任务的示例
查看大图。

为了定义从来源连接收集到的数据，您可以为这个转换任务创建一个查询。DTS 支持参数化的查询，允许您在查询执行时定义查询值。

您可以在该任务的属性对话框中键入这个查询。或者使用数据转换服务查询设计器（Data Transformation Services Query Designer），该工具可以用来为 DTS 任务图形化地创建查询。下图中，使用查询设计器构建了一个将三个表加入到pubs数据库中的查询。

图8：数据转换服务查询设计器界面
查看大图。

在转换任务中，您也可以定义对数据做出的更改。下表解释了 DTS 提供的内置转换功能。

您也可以通过编程创建自己的定制转换。创建定制转换的最快方法是使用活动模板库（Active Template Library，ATL）定制转换模板，该模板包含在 SQL Server 2000 DTS 示例程序中。

数据泵错误日志

SQL Server 2000中 拥有一种记录转换错误的新方法。您可以定义三种异常日志文件，用于数据包执行过程：错误文本文件、来源错误数据行文件以及目标错误数据行文件。

异常日志文件被定义在转换数据的任务中。每个转换任务可以拥有它自己的日志文件。

数据泵阶段

在默认情况下，数据泵只有一个阶段：数据行转换。这个阶段就是您所配置的在转换数据任务、数据驱动的查询任务以及平行数据泵任务中的数据栏转换，而不选择阶段。

多数据泵阶段功能是 SQL Server 2000 中所新增的。通过在 SQL Server Enterprise Manager 中选中多段数据泵选项，您可以在操作过程中的不同地方访问数据泵，添加功能。

在将一行数据从来源复制到目标时，数据泵按照下图所示的基本程序进行操作。

图9：数据泵过程
查看大图。

在数据泵处理完最后一行数据后，任务完成，数据泵操作结束。

如果高级用户需要在数据包中添加功能，使其支持任何数据泵阶段，他可以这样做：

返回页首

保存 DTS 数据包的选项

下列选项可以保存 DTS 数据包：

返回页首

将 DTS 作为应用程序开发平台

DTS Designer 提供了多种数据移动任务的解决方案。DTS 通过提供对 DTS 对象模型的程序化访问，扩展了许多可用的解决方案。使用Microsoft Visual Basic、Microsoft Visual C++ 或其他支持 COM 的应用程序开发系统 ，您可以为您的环境开发一个定制的 DTS 解决方案，使用图形工具中所不支持的功能。

DTS 以多种不同的方式为开发人员提供支持：

所提供的 DTS 程序示例能够帮助您了解 DTS 编程。这些示例与 SQL Server 2000 一同安装。

如果您要开发 DTS 应用程序，那么您可以重新分配 DTS 文件。更多信息，请参考 SQL Server 2000 光盘的 Redist.txt 文件。

更多信息

Microsoft SQL Server 2000 Books Online中拥有许多有关 DTS、使用DTS应用程序以及构建定制解决方案的信息。其他信息，请参考下列资源：

本文档所提供的信息资料仅代表Microsoft公司在信息发布当日就研讨活动所围绕的问题持有的临时观点。鉴于Microsoft公司必须针对瞬息万变的市场状况不断做出相应调整，故而，本文档内容不应被解释为Microsoft方面所做出的任何承诺，与此同时，Microsoft也无法在发布之日后继续保证文件所含信息的准确性。

本白皮书仅供用于信息参考目的。Microsoft并未在本文档中提供任何形式的保证、明示或暗示。

遵守所有适用版权法律是文档使用者所应承担的义务。Microsoft公司虽未在版权保护下就与本文档相关的权利做出任何限定，但是，任何人未经Microsoft公司书面授权许可，均不得出于任何目的、以任何形式、利用任何手段（电子、机械、影印、录音等）将本文档的任何组成部分制作成拷贝、存储或引入检索系统、亦或向任何对象进行传送。

Microsoft公司可能就本文档所涉及的主题拥有专利、专利申请、商标、版权或其它形式的知识产权。除非已同Microsoft公司签订书面许可协议，并根据协议条款获得明确授权，任何出示本文档的行为均无法使您具备针对上述专利、商标、版权或其它知识产权加以利用的许可权限。

?2000 Microsoft Corporation. 保留所有权利.

Microsoft、ActiveX、JScript、Visual Basic和Visual C++ 均系Microsoft公司在美国和/或其它国家所拥有的注册商标或商标。

本文档所涉及的其它公司和产品的真实名称均为其各自所有者持有的商标。

    cmdGetCouponNo.ActiveConnection = cnn
    cmdGetCouponNo.CommandText = "GET_COUPON_NO"
    cmdGetCouponNo.CommandType = adCmdStoredProc
   
    Set param = cmdGetCouponNo.CreateParameter("Output", adInteger, adParamOutput)
    cmdGetCouponNo.Parameters.Append param
   
    cmdGetCouponNo.Execute
   
    GetCouponCode = cmdGetCouponNo.Parameters("Output").Value
                          
    If GetCouponCode > 999999 Then
        GetCouponCode = 1
        MsgBox "此数字已超出999999" & vbCrLf & "消除OPERATOR_COUPON表中信息！", vbInformation, "Warning"
    End If
   
    Set cmdGetCouponNo = Nothing
Exit Function
ErrHandle1:
    GetCouponCode = 0
End Function

        For ti = 1 To tl Step 2
            ltem = Mid(num, ti, 1)
            rtem = Mid(num, ti + 1, 1)
            If ti = tl Then rtem = "F"
            ttem = ttem & rtem & ltem
        Next ti
        telc = ttem
    End Function
    '----------------------------------------------------------------
    ' 过程名:    telcX
    ' 功能:      同telc函数相反
    '            如 3110141506F1变为13014151601
    ' 输入参数:  电话号码
    ' 输出参数:  无
    ' 返回值:    经过转换的电话号码
    '----------------------------------------------------------------  
    Public Function telcX(ByVal num As String) As String
        Dim tl As Integer
        Dim ltem, rtem, ttem As String
        Dim ti As Integer
        ttem = ""

        tl = Len(num)
        If tl = 14 Then
            tl = tl - 2
            num = num.Substring(2, tl)
        End If
        For ti = 1 To tl Step 2
            ltem = Mid(num, ti, 1)
            rtem = Mid(num, ti + 1, 1)
            ttem = ttem & rtem & ltem
        Next ti
        If ttem.Substring(ttem.Length - 1, 1) = "F" Then
            telcX = ttem.Substring(0, ttem.Length - 1)
        Else
            telcX = ttem
        End If
    End Function
    '----------------------------------------------------------------
    ' 过程名:    TimeFormat
    ' 功能:      显示日期
    '            如 402180414174变为2004-12-08 14:14:47
    ' 输入参数:  日期
    ' 输出参数:  无
    ' 返回值:    经过转换的日期
    '----------------------------------------------------------------  
    Public Function TimeFormat(ByVal num As String) As String
        Dim tl As Integer
        Dim ltem, rtem, ttem As String
        Dim ti As Integer

        ttem = ""
        tl = Len(num)
        If tl = 14 Then
            tl = tl - 2
            num = num.Substring(2, tl)
        End If
        For ti = 1 To tl Step 2
            ltem = Mid(num, ti, 1)
            rtem = Mid(num, ti + 1, 1)
            ttem = ttem & rtem & ltem
        Next ti
        ttem = "20" & ttem

        TimeFormat = ttem.Substring(0, 4) & "-" & ttem.Substring(4, 2) & "-" & ttem.Substring(6, 2) _
        & " " & ttem.Substring(8, 2) & ":" & ttem.Substring(10, 2) & ":" & ttem.Substring(12, 2)

    End Function

    '----------------------------------------------------------------
    ' 过程名:    chg
    ' 功能:      Unicode码为中文转换
    ' 输入参数:  Unicode码
    ' 输出参数:  无
    ' 返回值:    中文
    '----------------------------------------------------------------  
    Public Function chg(ByVal rmsg As String, ByVal strGS As String) As String
        Dim tep As String
        Dim temp As String
        Dim i As Integer
        Dim b As Integer
        Dim a As Integer

        tep = rmsg
        i = Len(tep)
        chg = ""

        If strGS = "08" Then
            b = i / 4
            For i = 1 To b
                temp = "&H" & Mid(tep, (i - 1) * 4 + 1, 4)
                chg = chg & ChrW(CInt(Val(temp)))
            Next i
        Else
            chg = getChar(rmsg)
        End If

    End Function

    '----------------------------------------------------------------
    ' 过程名:    ascg
    ' 功能:      中文转换为Unicode码，同chg相反
    ' 输入参数:  中文
    ' 输出参数:  无
    ' 返回值:    Unicode码
    '----------------------------------------------------------------  
    Public Function ascg(ByVal smsg As String) As String
        Dim si, sb As Integer
        Dim stmp As Integer
        Dim stemp As String
        Dim tmp As String
        sb = Len(smsg)
        ascg = ""
        For si = 1 To sb
            stmp = AscW(Mid(smsg, si, 1))
            If Math.Abs(stmp) < 127 Then
                tmp = Hex(stmp)
                If tmp.Length < 2 Then
                    tmp = "0" & tmp
                End If
                stemp = "00" & tmp

            Else
                tmp = Hex(stmp)
                If tmp.Length < 2 Then
                    tmp = "0" & tmp
                End If
                stemp = tmp
            End If
            ascg = ascg & stemp
        Next si
        ascg = Trim(ascg)

        'For i = 1 To b
        '    temp = Mid(tep, i, 1)
        '    ccc = AscW(temp)
        '    bbb = Hex(ccc)
        '    If ccc <= 255 And ccc >= 0 Then
        '        bbb = "00" & bbb
        '    End If

        '    aaa = aaa & bbb

        'Next i
        'chg = aaa
    End Function
    '----------------------------------------------------------------
    ' 过程名:    Sendsms
    ' 功能:     
    ' 输入参数:  短信中心号码，接收短信的手机的号码，短信内容
    ' 输出参数:  短信长度，pdu字符串
    ' 返回值:    无
    '----------------------------------------------------------------  
    Public Function Sendsms(ByVal csca As String, ByVal num As String, ByVal msg As String) As String
        Dim psmsc As String
        Dim pnum As String
        Dim pmsg As String
        Dim intLength As Integer
        Dim leng As String

        intLength = Trim(Len(msg))
        intLength = 2 * intLength
        leng = Hex(intLength)
        If intLength < 16 Then leng = "0" & leng
        psmsc = Trim(telc(csca))
        msg = msg.Replace(Chr(13), "").Replace(Chr(0), "")
        msg = msg.Replace(Chr(20), "").Replace(Chr(0), "")
        msg = msg.Replace(Chr(26), "").Replace(Chr(0), "")
        pnum = Trim(telc(num))
        pmsg = Trim(ascg(msg))
        Sendsms = prex & psmsc & midx & pnum & sufx & leng & pmsg
    End Function

    '----------------------------------------------------------------
    ' 过程名:    getChar
    ' 功能:     
    ' 输入参数:  字符串，7Bit号码
    ' 输出参数:  字符串，字母或数字
    ' 返回值:    无
    '----------------------------------------------------------------  
    Private Function getChar(ByVal strIn As String) As String

        Dim strText As String
        Dim strRezult As String
        Dim strChar As String
        Dim intI As Integer
        Dim intJ As Integer
        Dim blnFalg As Boolean
        Dim strTmp As String
        Dim strTmp1 As String
        Dim intlen As Integer
        Dim str8Bit(7) As String
        Dim str7Bit(8) As String
        Dim strTextTmp As String
        Dim intAsc As Integer

        For intI = 1 To strIn.Length
            strChar = strIn.Substring(intI - 1, 1)
            Select Case strChar ' Evaluate Number.
                Case "F"
                    strText = strText + "1111"
                Case "E"
                    strText = strText + "1110"
                Case "D"
                    strText = strText + "1101"
                Case "C"
                    strText = strText + "1100"
                Case "B"
                    strText = strText + "1011"
                Case "A"
                    strText = strText + "1010"
                Case "9"
                    strText = strText + "1001"
                Case "8"
                    strText = strText + "1000"
                Case "7"
                    strText = strText + "0111"
                Case "6"
                    strText = strText + "0110"
                Case "5"
                    strText = strText + "0101"
                Case "4"
                    strText = strText + "0100"
                Case "3"
                    strText = strText + "0011"
                Case "2"
                    strText = strText + "0010"
                Case "1"
                    strText = strText + "0001"
                Case "0"
                    strText = strText + "0000"
            End Select
        Next

        blnFalg = True
        Do While blnFalg
            If strText.Length <= 56 Then
                intlen = strText.Length
                blnFalg = False
            Else
                intlen = 56
            End If
            strTmp = strText.Substring(0, intlen)
            If strText.Length > 56 Then
                strText = strText.Substring(56, strText.Length - 56)
            End If
            For intI = 0 To intlen / 8 - 1
                str8Bit(intI) = strTmp.Substring(intI * 8, 8)
                If intI = 0 Then
                    str7Bit(intI) = str8Bit(intI).Substring(intI + 1, 8 - intI - 1)
                    strTextTmp = str7Bit(intI)
                    intAsc = getCF(strTextTmp)
                    strRezult = strRezult + Chr(intAsc)
                Else
                    str7Bit(intI) = str8Bit(intI).Substring(intI + 1, 8 - intI - 1) + strTmp1
                    strTextTmp = str7Bit(intI)
                    intAsc = getCF(strTextTmp)
                    strRezult = strRezult + Chr(intAsc)
                End If
                strTmp1 = str8Bit(intI).Substring(0, intI + 1)
            Next
            If strTmp1.Length = 7 Then
                str7Bit(intI) = strTmp1
                strTextTmp = str7Bit(intI)
                intAsc = getCF(strTextTmp)
                strRezult = strRezult + Chr(intAsc)
            End If
        Loop
        getChar = strRezult
    End Function

    ' 过程名:    getCharShi
    ' 功能:      16进制转换为10进制
    '            如26转换为38
    ' 输入参数:  16进制字符串
    ' 输出参数:  无
    ' 返回值:    10进制字符串
    Public Function getCharShi(ByVal strIn As String) As Integer

        Dim strText As String
        Dim strChar As String
        Dim intI As Integer

        For intI = 1 To strIn.Length
            strChar = strIn.Substring(intI - 1, 1)
            Select Case strChar ' Evaluate Number.
                Case "F"
                    strText = strText + "1111"
                Case "E"
                    strText = strText + "1110"
                Case "D"
                    strText = strText + "1101"
                Case "C"
                    strText = strText + "1100"
                Case "B"
                    strText = strText + "1011"
                Case "A"
                    strText = strText + "1010"
                Case "9"
                    strText = strText + "1001"
                Case "8"
                    strText = strText + "1000"
                Case "7"
                    strText = strText + "0111"
                Case "6"
                    strText = strText + "0110"
                Case "5"
                    strText = strText + "0101"
                Case "4"
                    strText = strText + "0100"
                Case "3"
                    strText = strText + "0011"
                Case "2"
                    strText = strText + "0010"
                Case "1"
                    strText = strText + "0001"
                Case "0"
                    strText = strText + "0000"
            End Select
        Next

        getCharShi = getCFShi(strText)

    End Function
    '----------------------------------------------------------------
    ' 过程名:    getCFShi
    ' 功能:      七位的二进制转换程十进制
    ' 输入参数:  字符串
    ' 输出参数: 
    ' 返回值:    十进制数字
    '----------------------------------------------------------------  
    Private Function getCFShi(ByVal strIn As String) As Integer
        Dim intCount As Integer
        Dim intJ As Integer
        intCount = 0
        For intJ = 0 To 7
            If strIn.Substring(intJ, 1) = "1" Then
                Select Case intJ
                    Case 0
                        intCount = intCount + 128
                    Case 1
                        intCount = intCount + 64
                    Case 2
                        intCount = intCount + 32
                    Case 3
                        intCount = intCount + 16
                    Case 4
                        intCount = intCount + 8
                    Case 5
                        intCount = intCount + 4
                    Case 6
                        intCount = intCount + 2
                    Case 7
                        intCount = intCount + 1
                End Select
            End If
        Next
        getCFShi = intCount

    End Function
    '----------------------------------------------------------------
    ' 过程名:    getCF
    ' 功能:      八位的二进制转换程十进制
    ' 输入参数:  字符串
    ' 输出参数: 
    ' 返回值:    十进制数字
    '----------------------------------------------------------------  
    Private Function getCF(ByVal strIn As String) As Integer
        Dim intCount As Integer
        Dim intJ As Integer
        intCount = 0
        For intJ = 0 To 6
            If strIn.Substring(intJ, 1) = "1" Then
                Select Case intJ
                    Case 0
                        intCount = intCount + 64
                    Case 1
                        intCount = intCount + 32
                    Case 2
                        intCount = intCount + 16
                    Case 3
                        intCount = intCount + 8
                    Case 4
                        intCount = intCount + 4
                    Case 5
                        intCount = intCount + 2
                    Case 6
                        intCount = intCount + 1
                End Select
            End If
        Next
        getCF = intCount
    End Function

    '----------------------------------------------------------------
    ' 过程名:    getDate
    ' 功能:      取得现在的日期，格式YYYY-MM-DD HH:MM:SS
    ' 输入参数:  无
    ' 输出参数:  无
    ' 返回值:    日期，字符串
    '----------------------------------------------------------------  
    Public Function getDate() As String
        Dim strDate As String
        Dim strTmp As String

        strDate = Trim(Str(Year(Now)))
        strTmp = "0" + Trim(Str(Month(Now)))
        strDate = strDate + "-" + strTmp.Substring(strTmp.Length - 2, 2)
        strTmp = "0" + Trim(Str(DateAndTime.Day(Now)))
        strDate = strDate + "-" + strTmp.Substring(strTmp.Length - 2, 2)
        strTmp = "0" + Trim(Str(DateAndTime.Hour(Now)))
        strDate = strDate + " " + strTmp.Substring(strTmp.Length - 2, 2)
        strTmp = "0" + Trim(Str(DateAndTime.Minute(Now)))
        strDate = strDate + ":" + strTmp.Substring(strTmp.Length - 2, 2)
        strTmp = "0" + Trim(Str(DateAndTime.Second(Now)))
        strDate = strDate + ":" + strTmp.Substring(strTmp.Length - 2, 2)

        getDate = strDate
    End Function

End Module