public class LogOut : IHttpHandler, IRequiresSessionState

在这里记一下，也希望对其它人有帮助。

ftp = new EnterpriseDT.Net.Ftp.FTPClient(ftpip, ftpport);
ftp.Login(ftpusername, ftppassword);
ftp.ConnectMode = EnterpriseDT.Net.Ftp.FTPConnectMode.ACTIVE;
ftp.TransferType = EnterpriseDT.Net.Ftp.FTPTransferType.BINARY;
ftp.Put(filename);
ftp.Quit();

源文件

set @shellSql = 'dtsrun /S "' + @serverip +'" /U "' + @user + '" /P "' + @pwd + '" /N "gz_ParseFile_City" /A "type_id":"19"="' + cast(@type_id  as varchar)
                + '" /A "filename":"8"="' + @file_name + '" /A "cityID":"19"="' + cast(@cityID as varchar) + '"'


exec master..xp_cmdshell @shellSql

具体参数如何使用请看下面从Sql Server帮助里复制过来的内容：

/*
    手机动作统计
*/
CREATE PROC usp_ActionCount
@planid int,
@updatetype varchar(50)
AS 
--------------------------------------------------------------------
CREATE TABLE #tempA (
    id int IDENTITY(1,1) NOT NULL ,
    mobile varchar(20) NOT NULL ,
    updatetype varchar(50)
)
CREATE TABLE #tempB(
    id int IDENTITY(1,1) NOT NULL,
    mobile varchar(20) NOT NULL ,
    updatetype varchar(20)     
)
INSERT INTO #tempA (mobile,updatetype) SELECT DISTINCT msisdn,'' FROM tb_PlanMsisdn WHERE plan_id=@planid
DECLARE @id int,@mobile varchar(20)
SELECT @id=COUNT(1) FROM #tempA ta
WHILE @id>0
    BEGIN
        SELECT @mobile=mobile FROM #tempA ta WHERE ta.id=@id
        TRUNCATE TABLE #tempB
        INSERT INTO #tempB(mobile,updatetype) SELECT DISTINCT msisdn,updatetype FROM tb_PlanMsisdn tpm WHERE tpm.msisdn=@mobile AND tpm.plan_id=@planid
        DECLARE @innerid int,@utype varchar(20),@innermobile varchar(20)
        SELECT @innerid=COUNT(1) FROM #tempB tb
        WHILE @innerid>0
            BEGIN
                SELECT @utype=updatetype,@innermobile=tb.mobile    FROM #tempB tb WHERE tb.id=@innerid
                IF charindex(@utype,@updatetype)>0
                    BEGIN
                        UPDATE #tempA SET updatetype =updatetype + CASE @utype
                        WHEN '1' THEN '周期更新 '    
                        WHEN '2' THEN '关机 '    
                        WHEN '3' THEN '开机 '    
                        WHEN '4' THEN '进入小区 '    
                        WHEN '5' THEN '寻呼响应 '    
                        WHEN '6' THEN '发短信 '    
                        WHEN '7' THEN '主叫 '    
                        WHEN '8' THEN '短信接收 '    
                        ELSE ''
                        END WHERE mobile=@innermobile    
                        
                    END                                    
                SET @innerid=@innerid-1
            END            
        SET @id=@id-1
    END
SELECT * FROM #tempA ta
DROP TABLE #tempB    
DROP TABLE #tempA
GO

Introduction

Everyone likes a confirmation that lets them know that a record is being deleted. In this article, I will show you how you can prompt confirmation boxes when you delete a record from the GridView control.

Implementing the Confirmation Feature

The first thing that you need to do is to attach the JavaScript confirmation code to the delete column of the GridView control. This can be done in the Row_DataBound event of the GridView control. The Row_DataBound event is fired whenever the row is attached to the GridView. Hence, this is fired when the GridView is building for the first time or even when the page is reloaded.

Let's see the HTML part of the GridView code:

<asp:GridView DataKeyNames="CategoryID" ID="GridView1" 
       runat="server" AutoGenerateColumns="False" 
       OnRowCommand="GridView1_RowCommand" 
       OnRowDataBound="GridView1_RowDataBound" 
       OnRowDeleted="GridView1_RowDeleted" OnRowDeleting="GridView1_RowDeleting">
  <Columns>
   <asp:BoundField DataField="CategoryID" HeaderText="CategoryID" />
   <asp:BoundField DataField="CategoryName" HeaderText="CategoryName" />
   <asp:TemplateField HeaderText="Select">
     <ItemTemplate>
       <asp:LinkButton ID="LinkButton1" 
         CommandArgument='<%# Eval("CategoryID") %>' 
         CommandName="Delete" runat="server">
         Delete</asp:LinkButton>
     </ItemTemplate>
   </asp:TemplateField>
  </Columns>
</asp:GridView>

As you can see from the above code, I have three columns in the GridView. Columns CategoryID and CategoryName are the bound columns, and the column Delete is a template column. The command argument is set as the CategoryID which means that whenever the LinkButton is clicked, it will pass CategoryID as an argument. The CommandName is set to "Delete".

The CommandName property is very important. If you have a LinkButton or a Button control inside the template column of the GridView control and the CommandName property is set to "Delete", then apart from GridView_RowCommand event, the GridView_Row_Deleting event is also fired.

Now, let's see the GridView_RowBound event where I attach the JavaScript code to every LinkButton.

protected void GridView1_RowDataBound(object sender, 
                         GridViewRowEventArgs e)
{
  if (e.Row.RowType == DataControlRowType.DataRow)
  {
    LinkButton l = (LinkButton)e.Row.FindControl("LinkButton1"); 
    l.Attributes.Add("onclick", "javascript:return " +
    "confirm('Are you sure you want to delete this record " +
    DataBinder.Eval(e.Row.DataItem, "CategoryID") + "')"); 
  }
}

In the above code, I checked whether the GridView row is a DataRow, and if it is, I simply attach some JavaScript code using the Attributes.Add method.

Catching the Primary Key of the Clicked Row

Now that you have successfully attached the JavaScript code to the GridView control, all that is left is to catch the primary key of the row which you have clicked so that you can perform further operations (like deleting the row). Remember what I said about a LinkButton or a Button control with the CommandName set to "Delete"? If you don't, read the text in the box again.

The CommandName property is very important. If you have a LinkButton or a Button control inside the template column of the GridView control and the CommandName property is set to "Delete", then apart from the GridView_RowCommand event, the GridView_Row_Deleting event is also fired.

Now, since our LinkButton's CommandName is set to "Delete", it means we have two choices of getting the primary key from the GridView. We can do this in the RowCommand event, or we can do this in the Row_Deleting event. I am going to show you both of them.

Catching the primary key in the RowCommand event

This is pretty simple. All you need to do is to get the value from the CommandArgument property which you have already set to the CategoryID.

protected void GridView1_RowCommand(object sender, 
                         GridViewCommandEventArgs e)
{
  if (e.CommandName == "Delete")
  {
    // get the categoryID of the clicked row
    int categoryID = Convert.ToInt32(e.CommandArgument);
    // Delete the record 
    DeleteRecordByID(categoryID);
    // Implement this on your own :) 
  }
}

e.CommandArgument returns object so you need to convert it to int as I have done above.

Catching the primary key in the Row_Deleting event

Let's see how we can catch the primary key of the clicked row in the Row_Deleting event.

<asp:GridView DataKeyNames="CategoryID" ID="GridView1" 
     runat="server" AutoGenerateColumns="False" 
     OnRowCommand="GridView1_RowCommand" 
     OnRowDataBound="GridView1_RowDataBound"
     OnRowDeleted="GridView1_RowDeleted" 
     OnRowDeleting="GridView1_RowDeleting">

protected void GridView1_RowDeleting(object sender, GridViewDeleteEventArgs e)
{
  int categoryID = (int) GridView1.DataKeys[e.RowIndex].Value;
  DeleteRecordByID(categoryID); 
}

In the above technique, you must set the DataKeyNames property of the GridView to "CategoryID". The GridView1.DataKeys[e.RowIndex].Value property gets the CategoryID out of the row which is clicked.

I hope you liked this article, happy coding!

注：
除了以上两种方法，还在网上看到了这种方法，不过我还没有测试：
<asp:GridView ID="GridView1" runat="server" DataKeyNames="id" DataSourceID="SqlDataSource1">

procedure TForm1.FormShow(Sender: TObject);
var
  i:Integer;
begin
  //当前程序的完整路径（包括文件名）
  lbl1.Caption:=ParamStr(0) + #13;
  //运行此程序时传入的参数
  for i:=1 to ParamCount do
  lbl1.Caption:=lbl1.Caption + ParamStr(i) + #13;
end; 

procedure TForm1.btn1Click(Sender: TObject);
var
  stm:TFileStream;
begin
  stm:=TFileStream.Create('c:\test.exe',fmCreate);
  http.Get('http://www.domain.com/test.exe',stm);
  stm.Free;
end; 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    mmo: TMemo;
    mmo1: TMemo;
    mmo2: TMemo;
    key: TEdit;
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function encryptstr(const s:string; skey:string):string;
    function decryptstr(const s:string; skey:string):string;
    function myStrtoHex(s:string):string; //原字符串转16进制字符串
    function myHextoStr(S: string): string;//16进制字符串转原字符串
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.myStrtoHex(s: string): string;
var tmpstr:string;
    i:integer;
begin
    tmpstr := '';
    for i:=1 to length(s) do
    begin
        tmpstr := tmpstr + inttoHex(ord(s[i]),2);
    end;
    result := tmpstr;
end;

function TForm1.myHextoStr(S: string): string;
var hexS,tmpstr:string;
    i:integer;
    a:byte;
begin
    hexS  :=s;//应该是该字符串
    if length(hexS) mod 2=1 then
    begin
        hexS:=hexS+'0';
    end;
    tmpstr:='';
    for i:=1 to (length(hexS) div 2) do
    begin
        a:=strtoint('$'+hexS[2*i-1]+hexS[2*i]);
        tmpstr := tmpstr+chr(a);
    end;
    result :=tmpstr;
end;

function TForm1.encryptstr(const s:string; skey:string):string;
var
    i,j: integer;
    hexS,hexskey,midS,tmpstr:string;
    a,b,c:byte;
begin
    hexS   :=myStrtoHex(s);
    hexskey:=myStrtoHex(skey);
    midS   :=hexS;
    for i:=1 to (length(hexskey) div 2)   do
    begin
        if i<>1 then midS:= tmpstr;
        tmpstr:='';
        for j:=1 to (length(midS) div 2) do
        begin
            a:=strtoint('$'+midS[2*j-1]+midS[2*j]);
            b:=strtoint('$'+hexskey[2*i-1]+hexskey[2*i]);
            c:=a xor b;
            tmpstr := tmpstr+myStrtoHex(chr(c));
        end;
    end;
    result := tmpstr;
end;

function TForm1.decryptstr(const s:string; skey:string):string;
var
    i,j: integer;
    hexS,hexskey,midS,tmpstr:string;
    a,b,c:byte;
begin
    hexS  :=s;//应该是该字符串
    if length(hexS) mod 2=1 then
    begin
        showmessage('密文错误！');
        exit;
    end;
    hexskey:=myStrtoHex(skey);
    tmpstr :=hexS;
    midS   :=hexS;
    for i:=(length(hexskey) div 2) downto 1 do
    begin
        if i<>(length(hexskey) div 2) then midS:= tmpstr;
        tmpstr:='';
        for j:=1 to (length(midS) div 2) do
        begin
            a:=strtoint('$'+midS[2*j-1]+midS[2*j]);
            b:=strtoint('$'+hexskey[2*i-1]+hexskey[2*i]);
            c:=a xor b;
            tmpstr := tmpstr+myStrtoHex(chr(c));
        end;
    end;
    result := myHextoStr(tmpstr);
end;


procedure TForm1.btn1Click(Sender: TObject);
begin
  mmo1.Text:=encryptstr(mmo.Text,key.Text);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  mmo2.Text:=decryptstr(mmo1.Text,key.Text);
end;

end.

如果你的升级过程比较简单（例如只需要下载更新一个主程序），那么本示例就比较适合你。

下载升级文件的程序这里就不再赘述，详细使用方法请参考http://www.cnblogs.com/Aricc/archive/2008/11/26/1341378.html

现在，我们只需要在主程序中加入一个很简单的Procedure就可以完成升级任务了。

假设下载回来的最新程序的完整路径是New，当前运行的程序的路径是Old。

那么，在程序一开始运行的时候加入一个版本判断的Procedure（用Tidhttp或者Socket都可以）。在确定需要升级时调用升级的Procedure（这里就叫它Updater吧）。

Updater(New,Old);

这样就可以了。

下面来看看Updater里是些什么东西：

ProcedureUpdater(new,old:string);
var
  f:Textfile;
begin
  AssignFile(f,'temp.bat');
  Rewrite(f);
  Writeln(f,'@set new=%1');
  Writeln(f,'@set old=%2');
  Writeln(f,'del %old%');
  Writeln(f,'copy %new% %old%');
  Writeln(f,'del %new%');
  Writeln(f,'%old%');
  Writeln(f,'del %0');
  CloseFile(f);
  Application.Terminate;
  WinExec(PChar('temp.bat "' + new +'" "' +old +'"'),SW_HIDE);
end;