BlogJava-飞艳小屋-文章分类-.nethttp://www.blogjava.net/songfei/category/4997.html程序--人生--哲学___________________欢迎艳儿的加入zh-cnThu, 28 Jun 2007 22:20:43 GMTThu, 28 Jun 2007 22:20:43 GMT60.net下程序的暴力修改http://www.blogjava.net/songfei/articles/126776.html天外飞仙天外飞仙Thu, 28 Jun 2007 04:53:00 GMThttp://www.blogjava.net/songfei/articles/126776.htmlhttp://www.blogjava.net/songfei/comments/126776.htmlhttp://www.blogjava.net/songfei/articles/126776.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/126776.htmlhttp://www.blogjava.net/songfei/services/trackbacks/126776.html
未处理的“System.NotSupportedException”类型的异常出现在 mscorlib.dll 中。

其他信息: 区域性“zh-CHS”是非特定区域性。它不能用于格式化和分析，因此不能设置为线程的当前区域性。

使用。Net反编译工具，打开主程序XTool.exe,找到主窗体，此软件没有綺过混淆，代码很清晰，在Form1种
public Form1()
{
CultureInfo info1;
Version version1;
string text1;
DialogResult result1;
DialogResult result2;
string text2;
string text3;
string[] array1;
int num1;
ListViewColumnSorter sorter1;
base..ctor();
CultureInfo.CurrentCulture.ClearCachedData();
info1 = CultureInfo.CurrentCulture;
if (info1.TwoLetterISOLanguageName == "zh")
{
 Thread.CurrentThread.CurrentCulture = new CultureInfo(info1.Parent.LCID);// //此部分出错
Thread.CurrentThread.CurrentUICulture = new CultureInfo(info1.Parent.LCID);// dl.bitsCN.com网管软件下载
 }
this.InitializeComponent();
 
}
就是Thread.CurrentThread.CurrentCulture = new CultureInfo(info1.Parent.LCID);将new 的
CultureInfo(info1.Parent.LCID)赋给Thread.CurrentThread.CurrentCulture，出现了异常，因此不能设置为线程的当前区域性的异常。可能是程序为了比较好的支持国际化，而这样写的带代码，看来有些多余。看来只要不让出错的语句运行即可，而这最好的实现方式就是修改比较条件。

可以使用两种方法进行修改
1．使用ildasm进行反汇编，得到中间代码，修改中间代码，然后重新编译即可。
使用ildasm进行反汇编后得到一大堆代码，下面仅仅列出相关的
// 相关的汇编代码
.maxstack 6
.locals (CultureInfo V_0, Version V_1, string V_2, Exception V_3, DialogResult V_4, DialogResult V_5, string V_6, string V_7, string[] V_8, int V_9, ListViewColumnSorter V_10)
.try L_0132 to L_014a catch object L_014a to L_014d
.try L_014d to L_0574 catch Exception L_0574 to L_0584
.try L_0739 to L_0754 catch object L_0754 to L_0768
L_0000: ldarg.0
L_0001: call Form..ctor
L_0006: call CultureInfo.get_CurrentCulture bitsCN全力打造网管学习平台
L_000b: callvirt CultureInfo.ClearCachedData
L_0010: call CultureInfo.get_CurrentCulture
L_0015: stloc.0
L_0016: ldloc.0
L_0017: callvirt CultureInfo.get_TwoLetterISOLanguageName
L_001c: ldstr "zh" ------------将此处的字符串改为aa


再使用ilasm 将修改后的相关代码进行编译得到新程序即可。重新编译后，生成的程序比訽来的小了（可能有部分资源没有编译进去），不知道什么訽因，但是没有发现影响使用的状况

2．简单的处理方式，一般的.net程序中使用的常量字符串，在.net程序中都有相应的储存位置（存储格式为unicode 形式），所以使用WinHex打开程序，查找字符串zh，选中unicode项，发现文件中仅能搜索到一次，毫无疑问，就是他了，直接将字符串
7A 00 68 00 改为其他的不同字节即可。存盘后，程序正常运行


小弟最近一直在做.net下串行通信方面的程序，.net下没有自带的串口控件，使用以前的com组件又不甘心，所以在网上找到了sax.net组件（破解）版本，使用的时候，比较满意，但是在使用的过程中，出现了

System.ArgumentOutOfRangeException: 长度不能小于 0。

参数名: newlength

 at System.Text.StringBuilder.set_Length(Int32 value)

 at Sax.Communications.SerialConnection.a(UInt32 A_0)

 at Sax.Communications.SerialConnection.a(IntPtr A_0, c& A_1)

 at Sax.Communications.SerialConnection.get_Available()

 at Sax.Communications.SerialConnection.b()

 

异常

尤其是使用ISP线与单片机通信的时候，几乎每次插拔ISP线都会出现异常。异常后，控件的串口数据监视线程退出以后再也不能收发数据，只能重新启动软件。綺过仔细调试，发现
异常出现在插拔数据线的时候，有数据收到，产生了DataAvailable事件中

private void serialConnection_DataAvailable(object sender, EventArgs e) //受到数据时的处理函数
  {
 //在这之前出现了异常
dl.bitsCN.com网管软件下载

 int length = serialConnection.Available;
// Debug.WriteLine(length.ToString());
 if(length<=0) return;
 
 Byte[] buffer = new byte[length]; //输入缓冲区有多少数据？
 serialConnection.Read(buffer,0,length);
 
 //分析数据
 if( length > 0 )
 {
  HandleDataReceive(buffer);
 }
  }


就是在发生事件之后，在int length = serialConnection.Available;之前发生了异常。根据VS.net
的提示信息，初步确定是在给一个StringBuilder对象builder设置其Length的时候，传入的参数<0导
致的。

好了，使用.net的反编译工具Reflector（我用的版本4.0.18）打开控件,找到SerialConnection类；由于此控件綺过混淆，所以在反编译后出现了大量的比如a，或者b这样的看不出作者意图的函数名。不过没有关系，因为异常出现在serialConnection.Available附近，直接找到Available的实现代码

public override int get_Available()

{

  z.c c1;

  this.c();
dl.bitsCN.com网管软件下载
  c1 = new z.c();

  this.a(this.a, ref c1);

  if (this.b != -1)

  {

  return ((int) (c1.b + 1));

  }

  return ((int) c1.b);

}
 

在里面寻找出错的函数
找到this.a(this.a, ref c1);这个

private string a(IntPtr A_0, ref z.c A_1)

{

  uint num1 = 0;

  z.ClearCommError(A_0, ref num1, ref A_1);

  if (num1 != 0)

  {

  return this.a(num1);

  }

  return null;

}
 

有追踪到return this.a(num1);

private string a(uint A_0)

{

  StringBuilder builder1 = new StringBuilder("UART Error:", 60);

  if (builder1.Length <= 0)

  {

  goto Label_005F;

  }

  goto Label_00D0; bitsCN.com中国网管联盟

Label_001B:

  builder1 = builder1.Append(" Parity,");

  goto Label_00B1;

Label_002C:

  builder1 = builder1.Append(" Receive Overflow,");

  goto Label_0069;

Label_003D:

  builder1 = builder1.Append(" Framing,");

  goto Label_0095;

Label_004E:

  builder1 = builder1.Append(" Transmit Overflow,");

  goto Label_00A3;

Label_005F:

  if ((A_0 & 8) == 0)

  {

  goto Label_0095;

  }

  goto Label_003D;

Label_0069:

  if ((A_0 & 4) == 0)

  {

  goto Label_00B1;

  }

  goto Label_001B;

Label_0073:

  builder1 = builder1.Append(" <Unknown>,");

  goto Label_00FA; bbs.bitsCN.com国内最早的网管论坛

Label_0084:

  builder1 = builder1.Append(" Overrun,");

  goto Label_00ED;

Label_0095:

  if ((A_0 & 1024) == 0)

  {

  goto Label_00E3;

  }

  goto Label_00BF;

Label_00A3:

  if ((A_0 & 1287) == 0)

  {

  goto Label_00FA;

  }

  goto Label_0073;

Label_00B1:

  if ((A_0 & 256) == 0)

  {

  goto Label_00A3;

  }

  goto Label_004E;

Label_00BF:

  builder1 = builder1.Append(" IO,");

  goto Label_00E3;

Label_00D0:

  builder1.Remove(0, builder1.Length);

  goto Label_005F;

Label_00E3:

  if ((A_0 & 2) != 0)

  { bitsCN.com中国网管联盟

  goto Label_0084;

  }

Label_00ED:

  if ((A_0 & 1) == 0)

  {

  goto Label_0069;

  }

  goto Label_002C;

Label_00FA:

  builder1.Length -= 1;//!!!!!!!!!!!!!!!!!!错误的来源

  return builder1.ToString();

}

我靠，也没有想细读为什么要将builder1.Length 减去1，节省内存，没有必要把？！！
反正是这句出错了，将后builder1.Length 小于0了

查看前面的代码，没有对builder1.Length 赋值的语句，看来将这句改掉就行了，

查看il代码，
最后的几句为
L_00fa: ldloc.0
L_00fb: ldloc.0
L_00fc: callvirt StringBuilder.get_Length
L_0101: ldc.i4.1 //装载常数1--将此处改为装载常数0，即可
L_0102: sub
L_0103: callvirt StringBuilder.set_Length
L_0108: ldloc.0
L_0109: callvirt StringBuilder.ToString
L_010e: ret

查找il的汇编指令
发现（格式指令 ---十六进制数）
ldloc.0 ----06 play.bitsCN.com累了吗玩一下吧
ldloc.0 ----06
callvirt StringBuilder.get_Length ---- 6F X X X X (X不知道具体的值，可以通过模糊匹配来确定要修改的指令在文件的位置)
ldc.i4.1 ---- 17



sub ----59
L_0103: callvirt---- StringBuilder.set_Length 6F X X X X
L_0108: ldloc.0---- 06
L_0109: callvirt---- StringBuilder.ToString 6F X X X X
L_010e: ret ----28


使用WinHEx打开文件，使用16进制搜索，对于上面的X 使用模糊匹配的訽则
找到偏移0x34B0处，在0x34BD处的将0x17 改为0x16(IL指令ldc.i4.0 ，就是将Length-0等于不减)
存盘退出，将修改好的dll文件覆盖訽来的dll,运行软件，怎么插拔ISP线都没有问题出现了！


参考资料
Ｉｎｓｉｄｅ　Ｍｉｃｒｏｓｏｆｔ．ｎｅｔ　ＩＬ　Ａｓｓｅｓｍｂｌｅｒ





天外飞仙 2007-06-28 12:53 发表评论
]]>应同学之邀,破解一个软件,学习逆向工程,文章如下http://www.blogjava.net/songfei/articles/126610.html天外飞仙天外飞仙Wed, 27 Jun 2007 07:55:00 GMThttp://www.blogjava.net/songfei/articles/126610.htmlhttp://www.blogjava.net/songfei/comments/126610.htmlhttp://www.blogjava.net/songfei/articles/126610.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/126610.htmlhttp://www.blogjava.net/songfei/services/trackbacks/126610.html阅读全文

天外飞仙 2007-06-27 15:55 发表评论
]]> C#基础全接触http://www.blogjava.net/songfei/articles/93800.html天外飞仙天外飞仙Sun, 14 Jan 2007 12:18:00 GMThttp://www.blogjava.net/songfei/articles/93800.htmlhttp://www.blogjava.net/songfei/comments/93800.htmlhttp://www.blogjava.net/songfei/articles/93800.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/93800.htmlhttp://www.blogjava.net/songfei/services/trackbacks/93800.html  C#基础全接触
 

引用类型是类型安全的指针，它们的内存是分配在堆（保存指针地址）上的。
String、数组、类、接口和委托都是引用类型。
强制类型转换与as类型转换的区别：当类型转换非法时，强制类型转换将抛出一个System.InvalidCastException异常，
而as不会抛出异常，它返回一个null值。
用using创建别名：using console = System.Console;
访问限定符：
public  该成员可以被其他任何类访问
protected 该成员只能被其派生类访问
private  该成员只能被本类的其他成员访问
internal 该成员只能在当前编译单元的其他成员访问
带参数列表和返回值的Main方法：
class Test
{
  public static int Main(string[] args)
  {
    foreach (string arg in args)
    {
    ...
    }
  }
}
构造函数（constructor）包括实例构造函数和静态构造函数。
构造函数与类名相同，且不能有返回值。例：
class TestClass
{
  TestClass()  //实例构造函数：可以访问静态成员和实例成员，用于初始化实例成员
  {
  ...
  }

  static TestClass() //静态构造函数：只能访问静态成员，用于初始化静态成员
  {
  ...
  }
}
类的静态成员属于类所有，不必生成实例就可以访问，它是在载入包含类的应用程序时创建的，
但静态方法不能访问类的实例变量和方法。通常，静态变量是在定义时就赋初始值的。
类的实例成员属于类的实例所有，不创建实例对象就无法对其进行访问，实例成员可以访问类的
静态成员和其它实例成员。
调用基类的析构函数：
class A
{
  public A()
  {
  ...
  }
}
class B
{
  public B(): base()  //调用基类的析构函数
  {
  ...
  }
}
常量：其值是在编译时设定的，必须是数值文字。默认状态下常量是静态的。例：
class A
{
  public const double pi = 3.1415;
}
常量是编译时就确定的值，只读字段是在运行才能确定的值。比如运行时才能确定的屏幕分辨率。
只读字段只能在类的析构函数中赋值。
静态只读字段：
class A
{
  public static readonly int ScreenWidth;  //静态只读字段
  static A()   //静态析构函数
  {
    ScreenWidth = 1024;  //在静态析构函数中初始化
  }
}
在类的继承中，类的析构函数是不会被继承的。
一个派生类只能从一个基类继承，不能同时从多个基类继承，但可以通过继承多个接口来
达到相同目的。实现多继承的唯一方法就是使用接口。例：
class MyFancyGrid: Control, ISerializable, IDataBound
{
...
}
密封类是不能继承的类，抽象类不能被定义为密封类，且密封类的私有成员不能用protected修饰，
只能用private。例：
sealed class A
{
...
}
关键字ref和out用于指定用引用方式传递方法的参数。
它们的区别是：ref参数必须初始化，而out参数不需要初始化。所以在方法处理代码依赖参数的
初始化值时使用ref，不依赖初始化值时使用out。
对out参数即使在传递前对其进行了初始化，其值也不会传递到方法处理函数内部。传递时系统
会将其设为未初始化。所以在方法内部必须对out参数进行初始化。
方法重载时，必须参数数目和参数类型其中之一不同，返回值不同不能作为重载。
C#不支持方法的默认值，只能通过方法重载来实现。例：
class A
{
  int Method(int a)
  {
  ...
  }

  void Method(int a, int b) //参数数目不同
  {    //返回值不同不能作为重载
  ...
  }
}
params参数用于一个不定数目参数的方法，一般后面跟一个数组。例：
class A
{
  public void Method(params int[] i)
  {
  ...
  }
}
方法的覆盖：指派生类覆盖基类的同名方法，有二种方法
1）第一种是在派生类要覆盖的方法前面加new修饰，而基类不需要作任何改动。
这种方法的缺点是不能实现多态。例：
class A
{
  public void Method()  //无需任何修饰
  {
  ...
  }
}

class B: A   //从基类继承
{
  new public void Method() //覆盖基类的同名方法
  {
  ...
  }
}

class TestClass
{
  A Instance = new B();
  Instance.Method();  //这时将调用类A的Method方法，而不是类B的Method方法
}

2）第二种是在派生类要覆盖的方法前面加override修饰，而基类的同名方法前面加virtual修饰。
这样就能实现多态，例：

class A
{
  virtual public void Method()   //基类定义虚方法
  {      //虚拟方法不能定义为private，因为private成员对派生类是无法访问的
  ...
  }
}

class B: A     //从基类继承
{
  override public void Method()   //派生类覆盖基类的同名虚方法
  {
  ...
  }
}

class TestClass
{
  protected void Test()
  {
    A Instance = new B();   //定义一个实例，类型为基类，从派生类创建
      //派生类总是能够向上转换为其基类
    Instance.Method();    //将调用派生类B的Method方法，而不是基类的，这就是多态
  }
}

说明：new修饰的方法覆盖不能实现多态的原因，是因为使用new时编译器只会实现早期绑定（early binding）。
即调用的方法在编译时就决定了：编译器看到Instance.Method()而Instance的类是A，就会调用类A的Method()方法。
override修饰的方法覆盖可以实现多态的原因，是因为实现了后期绑定（late binding）。
使用override时强制编译器在运行时根据类的真正类型正确调用相应的方法，而不是在编译时。
而基类的同名方法必须加virtual修饰。
类的静态方法可能通过 类名.静态方法名 这种格式来调用，不能使用 实例名.静态方法名 这种方法调用。
因为类的静态方法为类所有（是属于类本身的），而非实例所有（不是属于类的实例的）。
类的静态方法可以访问类的任何静态成员，但不能访问类的实例成员。
C#中类的变量称为字段。类的public变量称为类的公共字段。
类的属性由一个protected（也可以是private）字段和getter和setter方法构成：
class Address
{
  protected string zipCode; //protected字段，注意大小写
  public string ZipCode
  {
    get    //getter方法
    {
      return zipCode;
    }
    set    //setter方法
    {
      zipCode = value;  //被传递的值自动被在这个value变量中
    }
  };
}
只读属性是指省略setter方法的属性，只读属性只能读取，不能设置。
属性也可以用限定符virtual，override和abstract修饰，功能同其他类的方法。
属性有一个用处称为懒惰的初始化（lazy initialization）。即在需要类成员时才对它们进行
初始化。如果类中包含了很少被引用的成员，而这些成员的初始化又会花费大量的时候和系统
资源的话，懒惰的初始化就很有用了。
C#中数组对象共同的基类是System.Array。
将数组声明为类的一个成员时，声明数组与实例化数组必须分开，这是因为只能在运行时创建了
类的实例对象之后，才能实例化数组元素值。
声明：
int[] intArray;  //一维数组
int[,,] int3Array; //三维数组
初始化：
intArray = new int[3] {1,2,3};
int[,] int2Array = new int[2,3] {{1,2,3},{4,5,6}}; //声明时可以初始化
遍历：
1）一维数组
for (int i = 0; i < intArray.Length; i++); //Array.Length返回数组所有元素的个数
foreach (int i in intArray);
for (int i = 0; i < intArray.GetLength(0); i++);//Array.GetLength(0)返回数组第一维的个数
2）多维数组
for (int i = 0; i < int3Array.GetLength(0); i++) //遍历三维数组
  for (int j = 0; j < int3Array.GetLength(1); j++)
    for (int k = 0; k < int3Array.GetLength(2); k++)
    {
    ...
    }
数组的维数就是该数组的秩（Rank）。Array.Rank可以返回数据的秩。
锯齿数组（jagged Array）是元素为数组的数组，例：
int[][] jaggedArray = new int[2][]; //包含二个元素，每个元素是个数组
jaggedArray[0] = new int[2];  //每个元素必须初始化
jaggedArray[1] = new int[3];
for (int i = 0; i < jaggedArray.Length; i++) //遍历锯齿数组
  for (int j = 0; j < jaggedArray[i].Length; j++)
  {
  ...
  }
类的属性称为智能字段，类的索引器称为智能数组。由于类本身作数组使用，所以用
this作索引器的名称，索引器有索引参数值。例：
using System;
using System.Collections;
class MyListBox
{
  protected ArrayList data = new ArrayList();
  public object this[int idx]  //this作索引器名称，idx是索引参数
  {
    get
    {
      if (idx > -1 && idx < data.Count)
      {
        return data[idx];
      }
      else
      {
        return null;
      }
    }
    set
    {
      if (idx > -1 && idx < data.Count)
      {
        data[idx] = value;
      }
      else if (idx = data.Count)
      {
        data.Add(value);
      }
      else
      {
        //抛出一个异常
      }
    }
  }
}
接口是二段不同代码之间约定，通过约定实现彼此之间的相互访问。
C#并不支持多继承，但通过接口可实现相同功能。
当在接口中指定了实现这个接口的类时，我们就称这个类“实现了该接口”或“从接口继承”。
一个接口基本上就是一个抽象类，这个抽象类中除了声明C#类的其他成员类型——例如属性、
事件和索引器之外，只声明了纯虚拟方法。
接口中可以包含方法、属性、索引器和事件——其中任何一种都不是在接口自身中来实现的。例：
interface IExampleInterface
{
  //property declaration
  int testProperty { get; }

  //event declaration
  event testEvevnt Changed;

  //mothed declaration
  function void testMothed();

  //indexer declaration
  string this[int index] { get; set; }
}
说明：定义接口时，在方法、属性、事件和索引器所有这些接口成员都不能用public之类的访问限定符，
因为所有接口成员都是public类型的。
因为接口定义了一个约定，任何实现一个接口的类都必须定义那个接口中每一个成员，否则将编译失败。例：
using System;
public class FancyControl
{
  protected string data;
  public string Data
  {
    get {return this.data;}
    set {data = value;}
  }
}

interface IValidate
{
  bool Validate(); //接口方法
}

public class MyControl: FancyControl, IValidate
{
  public MyControl()
  {
    data = "my control data";
  }

  public bool Validate()  //实现接口
  {
    if (data == "my control data")
      return true;
    else
      return false;
  }
}
class InterfaceApp
{
  MyControl myControl = new MyControl();
 
  IValidate val = (IValidate)myControl;  //可以将一个实现某接口的类，转换成该接口
  bool success = val.Validate();  //然后可调用该接口的方法
}
也可以用：
bool success = myControl.Validate();
这种方法来调用Validate方法，因为Validate在类MyControl中是被定义成public的，如果去除public，Validate方法被隐藏，
就不能用这种方法调用了，这样隐藏接口方法称为名字隐藏（name hiding）。
可以用：类实例 is 接口名 来判断某个类是否实现了某接口，例：
myControl is IValidate  //MyControl类的实例myControl是否实现了IValidate接口
当然，也可用as来作转换，根据转换结果是否为null来判断某个类是否实现了某接口，例：
IValidate val = myControl as IValidate;
if (null == val)
{
...  //没有实现IValidate接口
}
else
{
...  //实现了IValidate接口
}

如果一个类从多个接口继承，而这些接口中如果定义的同名的方法，则实现接口的方法时，必须加接口名来区别，
写成 接口名.方法名。假设Test类从IDataStore和ISerializable二个接口继承，而这二个接口都有SaveData()方法，
实现SaveData()方法时必须写成：
class Test: ISerializable, IDataStore
{
  void ISerializable.SaveData()
  {
  ...
  }

  void IDataStore.SaveData()
  {
  ...
  }
}

如果一个类从多个接口继承，为了方便可以定义一个新的接口，这个接口继续多个接口，然后类直接从这个接口继承就
可以了，这个叫合并接口。例：
interface ISaveData: ISerializable, IDataStore
{  //不需要定义任何方法或成员，只是用作合并
}
class Test: ISaveData  //只要继承ISaveData就可以了
{
...
}
C# 操作符优先级（从高到低）
初级操作符 () x.y f(x) a[x] x++ x-- new typeof sizeof checked unchecked
一元操作符 + - | ~ ++x --x (T)x
乘除操作符 * / %
加减操作符 + -
位移操作符 << >>
关系操作符 < > <= >= is
等于操作符 ==
逻辑与  &
逻辑异或 ^
逻辑或  |
条件与  &&
条件或  ||
条件操作符 ?:
赋值操作符 = *= /= %= += -= <<= >>= &= ^= |=
所有的二元操作符除赋值符外都是左联合的，即从左到右计算。
typeof()运算符可以从一个类名得到一个System.Type对象，而从System.Object对象继承来的GetType()方法
则可从一个类实例来得到一个System.Type对象。例：
Type t1 = typeof(Apple); //Apple是一个类名
Apple apple = new Apple(); //apple是Apple类的一个实例
Type t2 = apple.GetType(); //t1与t2是相同的
通过反射得到一个类的所有成员和方法：
Type t = typeof(Apple);
string className = t.ToString(); //得到类名
MethodInfo[] methods = t.GetMethods(); //得到所有方法
foreach (MethodInfo method in methods)
{
//用method.ToString()得到方法名
}
MemberInfo[] members = t.GetMembers(); //得到所有成员
foreach (MemberInfo member in members)
{
//用member.ToString()得到成员名
}
sizeof()操作符用来计算值类型变量在内存中占用的字节数（Bytes），并且它只能在unsafe（非安全）
代码中使用。例：
static unsafe public void ShowSizes()
{
  int i, j;
  j = sizeof(short);
  j = sizeof(i);
}
尽可能使用复合赋值操作符，它比不用复合赋值操作符的效率高。
for语句的语法为：
for (initialization; Boolean-expression; step)
  embedded-statement
在initialization和step部份还可以使用逗号操作符，例：
for (int i = '0', j = 1; i <= '\xFF'; i++, j++)
for (int i = 1, j = 1; i < 1000; i += j, j = i - j) //输出斐波那契数列
 Console.Write("{0} ", i);
在switch语句中执行一个分支的代码后还想执行另一个分支的代码，可以用：
goto case 分支;
操作符重载是为了让程序更加自然，容易理解。想要为一个类重新定义一个操作符，使用以下语法：
public static 返回值 operator 操作符 (操作对象1[，操作对象2])
说明：
1)所有重载的操作符方法都必须定义为public和static
2)从技术上说返回值可以是任何类型，但通常是返回所定义方法使用的类型
3)操作对象的数目取决于重载是一元操作符还是二元操作符，一元操作符只要一个操作对象，二元操作符则需要二个。
4)不管重载是一元操作符还是二元操作符，第一个操作对象的类型都必须与返回值的类型一致；而对于二元操作符的第二个
操作对象的类型则可以是任何类型。
5)只有下列操作符可以被重载：
一元：+ - ! ~ ++ -- true false
二元：+ - * / % & | ^ << >> == != > < >= <=
赋值操作符（+=,-=,*-,/=,%=等等）无法被重载。
[]和()操作符也无法被重载。
6)操作符的优先级是无法改变的，运算优先级的规则是静态的。

例：假设一个Invoice发票类由多个InvoiceDetailLine类（成员只有一个Double类型的Amount金额属性）组成，
我们重载+操作符，使之可以将InvoiceDetailLine类的内容（注意不是金额合计）加在一起。
class Invoice
{
  public ArrayList DetailLine;
 
  public Invoice   //类的析构函数
  {
    DetailLine = new ArrayList(); //ArrayList存放多个InvoiceDetailLine类的实例
  }

  public static Invoice operator+ (Invoice Invoice1, Invoice Invoice2) //参数与返回值的类型一致
  {
    //Invoice1与Invoice2的内容合并
    Invoice ReturnInvoice = new Invoice();
    foreach(InvoiceDetailLine detailLine in Invoice1.DetailLines)
      ReturnInvoice.DetailLine.Add(detailLine);
    foreach(InvoiceDetailLine detailLine in Invoice2.DetailLines)
      ReturnInvoice.DetailLine.Add(detailLine);
    return ReturnInvoice;
  }
}

class InvoiceAddApp  //调用示例
{
  public static void main()
  {
    Invoice i1 = new Invoice();
    for(int i = 0; i < 3; i++)
      i1.DetailLine.Add(new InvoiceDetailLine(i + 1));

    Invoice i2 = new Invoice();
    for(int i = 0; i < 3; i++)
      i2.DetailLine.Add(new InvoiceDetailLine(i + 1));

    Invoice summaryInvoice = i1 + i2;  //调用重载的操作符+方法
  }
}


自定义类型转换可以编写代码实际二个不同的类、结构体之间的转换。
语法：public static implicite/explicite operator 输出类型 (输入类型)
说明：
1)转换方法必须是静态的。
2)implicite表示隐式转换，explicite表示显式转换。
3)输入类型和输出类型其中之一必须与包含转换的类或结构体类型。即转换必须与本类相关。
例：
struct Celisus
{
  public float t;

  public Celisus(float t)
  {
    this.t = t;   //this.t是结构体的字段,t是参数
  }

  public static implicite operator Celisus(float t) //float=>Celisus
  {
    return new Celisus(t);
  }

  public static implicite operator float(Celisus c) //Celisus=>float
  {
    return ((c.t - 32) / 9) * 5;
  }
}


代表的(delegate)目的与C++中的函数指针相同，代表不是在编译时被定义的，而是在运行时被定义的。
代表主要有二个用途：回调(Callback)和事件处理(event)
回调通常用于异步处理和自定义处理。例：
class DBManager
{
  static DBConnection[] activeConnections;
  //声明回调函数
  public void delegate EnumConnectionCallback(DBConnection connection);

  public static void EnumConnections(EnumConnectionCallback callback)
  {
    foreach (DBConnection connection in activeConnections)
    {
      callback(connection);  //执行回调函数
    }
  }
}

//调用
class DelegateApp
{
  public static void ActiveConncetionCallback(DBConnection connection) //处理函数
  {
  ...
  }

  public void main()
  {
    //创建指向具体处理函数的代表实例（新建一个代表，让它指向具体的处理函数）
    DBManager.EmnuConnectionCallback myCallback = new DBManager.EmnuConnectionCallback(ActiveConncetionCallback);
    DBManager.EnumConnections(myCallback);
  }
}

//使用静态代表，上面的调用改为
class DelegateApp
{
  //创建一个指向处理函数的静态代表
  public static DBManager.EmnuConnectionCallback myCallback
    = new DBManager.EmnuConnectionCallback(ActiveConncetionCallback);
  public static void ActiveConncetionCallback(DBConnection connection)
  {
  ...
  }

  public void main()
  {
    DBManager.EnumConnections(myCallback);
  }
}

//在需要时才创建代表，上面的调用改为
class DelegateApp
{
  //将创建代表放在属性的getter方法中
  public static DBManager.EmnuConnectionCallback myCallback
  {
    get
    {
      retun new DBManager.EmnuConnectionCallback(ActiveConncetionCallback);
    }
  }
  public static void ActiveConncetionCallback(DBConnection connection)
  {
  ...
  }

  public void main()
  {
    DelegateApp app = new DelegateApp(); //创建应用程序
    DBManager.EnumConnections(myCallback);
  }
}


可以将多个代表整合成单个代表，例：
class CompositeDelegateApp
{
  public static void LogEvent(Part part)
  {
  ...
  }

  public static void EmailPurchasingMgr(Part part)
  {
  ...
  }

  public static void Main()
  {
    //定义二个代表
    InventoryManager.OutOfStockExceptionMethod LogEventCallback
      = new InventoryManager.OutOfStockExceptionMethod(LogEvent);
    InventoryManager.OutOfStockExceptionMethod EmailPurchasingMgrCallback
      = new InventoryManager.OutOfStockExceptionMethod(EmailPurchasingMgr);
    //整合为一个代表，注意后加的代表先执行（这里是先执行LogEventCallback）
    InventoryManager.OutOfStockExceptionMethod onHandExceptionEventsCallback
      = EmailPurchasingMgrCallback + LogEventCallback;
    //调用代表
    InventoryManager mgr = new InventoryManager();
    mgr.ProcessInventory(onHandExceptionEventsCallback);
    //InventoryManager类的ProcessInventory方法的原型为：
    //public void ProcessInventory(OutOfStockExceptionMethod exception);
  }
}

可以根据需要将多个代表自由地组合成单个代表，例：
class CompositeDelegateApp
{
  //代表指向的处理函数（三个代表三个函数）
  public static void LogEvent(Part part)
  {
  ...
  }

  public static void EmailPurchasingMgr(Part part)
  {
  ...
  }

  public static void EmailStoreMgr(Part part)
  {
  ...
  }

  public static void Main()
  {
    //通过数组定义三个代表
    InventoryManager.OutOfStockExceptionMethod[] exceptionMethods
      = new InventoryManager.OutOfStockExceptionMethod[3];
    exceptionMethods[0] = new InventoryManager.OutOfStockExceptionMethod(LogEvent);
    exceptionMethods[1] = new InventoryManager.OutOfStockExceptionMethod(EmailPurchasingMgr);
    exceptionMethods[2] = new InventoryManager.OutOfStockExceptionMethod(EmailStoreMgr);

    int location = 1;
    //再定义一个代表（用于组合成单代表）
    InventoryManager.OutOfStockExceptionMethod compositeDelegate;
    //根据需要组合
    if (location = 2)
    {
      compositeDelegate = exceptionMethods[0] + exceptionMethods[1];
    }
    else
    {
      compositeDelegate = exceptionMethods[0] + exceptionMethods[2];
    }
    //调用代表
    InventoryManager mgr = new InventoryManager();
    mgr.ProcessInventory(compositeDelegate);
  }
}
C#的事件遵循“发布——预订”的设计模式。在这种模式中，一个类公布能够出现的所有事件，
然后任何的类都可以预订这些事件。一旦事件产生，运行环境就负责通知每个订户事件已经发生了。
当代表作为事件的处理结果时（或者说定义具有代表的事件），定义的代表必须指向二个参数的方法：
一个参数是引发事件的对象（发布者），另一个是事件信息对象（这个对象必须从EventArgs类中派生）。
例：
using System;

class InventoryChangeEventArgs: EventArgs //事件信息对象，从EventArgs类派生
{
... //假设定义二个public属性string Sku和int Change
}

class InventoryManager    //事件的发布者
{
  //声明代表
  public delegate void InventoryChangeEventHander(object source, InventoryChangeEventArgs e);
  //发布事件，event关键字可将一个代表指向多个处理函数
  public event InventoryChangeEventHandler onInventoryChangeHander;
 
  public void UpdateInventory(string sku, int change)
  {
    if (change == 0)
      return;
    InventoryChangeEventArgs e = new InventoryChangeEventArgs(sku, change);
    //触发事件
    if (onInventoryChangeHandler != null) //如果有预订者就触发
      onInventoryChangeHandler(this, e); //执行代表指向的处理函数
  }
}

class InventoryWatcher    //事件的预订者
{
  public InventoryWatcher(InventoryManager mgr) //mgr参数用于联结发布者
  {
    this.inventoryManager = mgr;
    //预订事件，用 += 调用多个处理函数
    mgr.onInventroyChangeHandler += new InventoryManager.InventoryChangeEventHandler(onInventoryChange);
    //事件处理函数
    void onInventroyChange(object source, InventroyChangeEventArgs e)
    {
    ...
    }

    InventoryManager inventoryManager;
  }
}

class EventsApp     //主程序
{
  public static void Main()
  {
    InventoryManager inventoryManager = new InventoryManager();
    InventoryWatcher inventoryWatcher = new InventoryWatcher(inventoryManager);

    inventoryManager.UpdateInventory("111 006 116", -2);
    inventoryManager.UpdateInventory("111 006 116", 5);
  }
}


Microsoft Windows NT和IBM OS/2等操作系统都支持占先型多任务。在占先型多任务执行中，处理器负责
给每个线程分配一定量的运行时间——一个时间片(timeslice)。处理器接着在不同的线程之间进行切换，
执行相应的处理。在单处理器的计算机上，并不能真正实现多个线程的同时运行，除非运行在多个处理器
的计算机上。操作系统调度的多线程只是根据分配给每个线程时间片进行切换执行，感觉上就像同时执行。

上下文切换(context switching)是线程运行的一部分，处理器使用一个硬件时间来判断一个指定线程的时间片
何时结束。当这个硬件计时器给出中断信号时，处理器把当前运行的线程所用的所有寄存器(registers)数据
存储到堆栈中。然后，处理器把堆栈里那些相同的寄存器信息存放到一种被称为“上下文结构”的数据结构中。
当处理器要切换回原来执行的线程时，它反向执行这个过程，利用与该线程相关的上下文结构，在寄存器里
重新恢复与这一线程相关的信息。这样的一个完整过程称为“上下文切换”。

多线程允许应用程序把任务分割为多个线程，它们彼此之间可以独立地工作，最大限度地利用了处理器时间。

using System;
using System.Threading;

class SimpleThreadApp
{
  public static void WorkerThreadMethod() //线程的执行体
  {
  ...      //执行一些操作
  }

  public static void Main()
  {
    //创建一个线程代表指向线程的执行体，ThreadStart是创建新线程必须用到的代表
    ThreadStart worker = new ThreadStart(WorkerThreadMethod);
    Thread t = new Thread(worker);  //用线程代表创建线程
    t.Start();     //执行线程
  }
}

可以通过两种方式来得到一个Thread对象：一种是通过创建一个新线程来得到，如上例；另一种在正在执行的线程调用
静态的Thread.CurrentThread方法。
静态方法Thread.Sleep(int ms)可以让当前线程（它自动调用Thread.CurrentThread）暂停指定毫秒的时间。
如果使用Thread.Sleep(0)那么当前线程将一直处于等待中，直到另一个线程调用这个线程的实例方法Thread.Interrupt方法，
等待才会结束。
使用Thread.Suspend方法也能挂起线程，Thread.Suspend方法可以被当前线程或其他线程调用，而Thread.Sleep(0)
只能由当前线程在执行体中调用。当线程用Thread.Suspend挂起时，必须用Thread.Resume方法恢复。不论Thread.Suspend
方法调用了多少次，只要调用Thread.Resume方法一次就可以线程恢复执行。用Thread.Suspend方法并不会阻塞线程，
调用立即返回。而Thread.Sleep(0)则会阻塞线程。所以确切地说Thread.Sleep(0)暂停线程，而不是挂起线程。
使用Thread.Abort方法可以终止正在执行的线程。当Thread.Abort方法被调用时，线程不会立即终止执行。运行环境将会
等待，直到线程到达文档中所描述的“安全点”。如果要确保线程已经完全停止，可以使用Thread.Join方法。这是一个同步
调用，同步调用意味着直到线程完全停止，调用才会返回。
Thread.Priority属性用于设置的线程的优先级。其值是Thread.ThreadPriority枚举值，可以设为Highest, AboveNormal,
Normal, BelowNormal, Lowest。缺省值是Thread.ThreadPriority.Normal。
线程的同步是为了解决多个线程同时使用同一对象产生的一些问题。通过同步，可以指定代码的临界区(critical section)，
一次只有一个线程可以进入临界区。
使用System.Monitor类（锁定与信号量）进行线程同步：
using System;
using System.Threading;

public void SaveData(string text) //线程执行函数或线程执行函数调用的对象的方法
{
  ...   //执行其他一些不需要同步的处理

  Monitor.Enter(this); //获取对象的Monitor锁
  ...   //执行需要同步的处理
  Monitor.Exit(this); //释放对象的Monitor锁

  ...   //执行其他一些不需要同步的处理
}
说明：当执行Monitor.Enter方法时。这个方法会试图获取对象上的Monitor锁，如果另一个线程已经拥有了
这个锁，这个方法将会阻塞(block)，直到这个锁被释放。
也可用C#的lock语句来获得和释放一个Monitor锁。上面同步写成：
public void SaveData(string text) //线程执行函数或线程执行函数调用的对象的方法
{
  ...   //执行其他一些不需要同步的处理

  lock(this)  //获取对象的Monitor锁，代码块执行完成后释放Monitor锁
  {
  ...   //执行需要同步的处理
  }

  ...   //执行其他一些不需要同步的处理
}

也可以使用System.Threading名称空间的Mutex类（互斥类）进行线程同步。与Monitor锁一样，一次只有一个线程
能获得一个给定的互斥。但Mutex要慢得多，但它增加了灵活性。例：
using System;
using System.Threading;
class Database
{
  Mutex mutex = new Mutex(false); //创建一个互斥，但不立即获得它
     //注意：创建互斥在需要同步的方法之外，实际上它只要创建一个实例
  public void SaveData(string text) //需要同步的方法
  {
    mutex.WaitOne();  //等待获得互斥
    ...    //需要同步的处理
    mntex.Close();  //释放互斥
  }
}

Mutex类重载了三个构造函数：
Mutex()       //创建并使创建类立即获得互斥
Mutex(bool initiallyOwned)    //创建时可指定是否要立即获得互斥
Mutex(bool initiallyOwned, string muterName)  //还可以指定互斥的名称
Mutex.WaitOne方法也重载了三次：
Mutex.WaitOne()      //一直等待
Mutex.WaitOne(TimeSpan time, bool exitContext)  //等待TimeSpan指定的时间
Mutex.WaitOne(int milliseconds, bool exitContext) //等待指定的毫秒
线程的用法：
1)并发操作：比如一个程序监视多个COM口，当每个COM接到信息时执行一段处理时。
2)复杂长时间操作：一个长时间的复杂操作可能会使界面停滞，停止用户响应，如果还允许用户停止它，
或者显示进度条、显示操作执行进程信息时。
反射(Reflection)就是能够在运行时查找类型信息，这是因为.NET编译的可执行(PE)文件中包括MSIL和元数据(metadata)。
反射的中心是类System.Type。System.Type是一个抽象类，代表公用类型系统(Common Type System, CTS)中的一种类型。
using System;
using System.Reflection; //反射命名空间，必须引用

public static void Main(string[] args)
{
  int i = 6;
  Type t = i.GetType();   //根据实例得到类型
  t = Type.GetType("System.Int32"); //根据类型的字符名称得到类型
}

通过Assembly类可以得到已经编译.NET Framework程序的中所有类型，例：
using System;
using System.Diagnostics;  //为了使用Process类
using System.Reflection;  //为了使用Assembly类

class GetTypesApp
{
  protected static string GetAssemblyName(string[] args)
  {
    string assemblyName;
    if (0 == args.Length) //如果参数为空，取当前进程的名称
    {
      Process p = Process.GetCurrentProcess();
      assemblyName = p.ProcessName + ".exe";
    }
    else
      assemblyName = args[0]; //取第一个参数，即当前运行程序名

    return assemblyName;
  }

  public static void Main(string[] args)
  {
    string assemblyName = GetAssemblyName(args);
    Assembly a = Assembly.LoadFrom(assemblyName); //调用编译程序集
    Type[] types = a.GetTypes();   //得到多个类型
    foreach (Type t in types)    //遍历类型数组
    {
    ...  //取得t.FullName,t.BaseType.FullName等类型信息
    }
  }
}
一个应用程序可以包括多个代码模块。若要将一个cs文件编译一个模块，只要执行下面的命令：
csc /target:module 要编译的模块.cs  //csc是C Sharp Compiler(C#编译器)
然后在应用程序中using编译的模块.cs中的NameSpace即可应用了。
要反射应用程序中所有代码模块(Module)，只要：
Assembly a = Assembly.LoadFrom(assemblyName); //应用程序的物理文件名
Module[] modules = a.GetModules();
foreach(Module m in modules)
{
... //显示m.Name等
}
后期绑定(latebinding),例：
string[] fileNames = Directory.GetFiles(Environment.CurrentDirectory, "*.dll");
foreach (string fileName in fileNames)
{
  Assembly a = Assembly.LoadFrom(fileName);
  Type[] types = a.GetTypes();
  foreach(Type t in types)
  {
    if (t.IsSubclassOf(typeof(CommProtocol)))  //判断是否有CommProtocol的派生类
    {
      object o = Activator.CreateInstance(t);  //生成实例
      MethodInfo mi = t.GetMethod("DisplayName");
      mi.Invoke(o, null);    //调用方法
    }
  }
}
//带参数的例子
namespace Programming_CSharp
{
  using System;
  using System.Reflection;
 
  public class Tester
  {
    public static void Main( )
    {
      Type t = Type.GetType("System.Math");
      Object o = Activator.CreateInstance(t);

      // 定义参数类型
      Type[] paramTypes = new Type[1];
      paramTypes[0]= Type.GetType("System.Double");

      MethodInfo CosineInfo = t.GetMethod("Cos", paramTypes);

      //设置参数数据
      Object[] parameters = new Object[1];
      parameters[0] = 45;

      //执行方法
      Object returnVal = CosineInfo.Invoke(o, parameters);
      Console.WriteLine("The cosine of a 45 degree angle {0}", returnVal);
    }
  }
}
动态生成代码和动态调用的完整例子：
//动态生成代码的部分
using System;
using System.Reflection;
using System.Reflection.Emit;  //动态生成代码必须引用

namespace ILGenServer
{
  public class CodeGenerator
  {
    public CodeGenerator()
    {
      currentDomain = AppDomain.CurrentDomain;  //得到当前域
      assemblyName = new AssemblyName();  //从域创建一个程序集
      assemblyName.Name = "TempAssembly";
      //得到一个动态编译生成器，AssemblyBuilerAccess.Run表示只在内存中运行，不能保存
      assemblyBuilder = currentDomain.DefineDynamicAssembly(assemblyName, AssemblyBuilerAccess.Run);
      //从编译生成器得到一个模块生成器
      moduleBuilder = assemblyBuilder.DefineDynamicModule("TempModule");
      //模块生成器得到类生成器
      typeBuilder = moduleBuilder.DefineType("TempClass", TypeAttributes.Public);
      //为类添加一个方法
      methodBuilder = typeBuilder.DefineMethod("HelloWord", MethodAttributes.Public, null, null);
      //为方法写入代码，生成代码必须使用到IL生成器
      msil = methodBuilder.GetILGenerator();
      msil.EmitWriteLine("Hello World");
      msil.Emit(OpCodes.Ret);
      //最后还需要编译(build)一下类
      t = typeBuilder.CreateType();
    }
    AppDomain currentDomain;
    AssemblyName assemblyName;
    AssemblyBuilder assemblyBuilder;
    ModuleBuilder moduleBuilder;
    TypeBuilder typeBuilder;
    MethodBuilder methodBuilder;
    ILGenerator msil;
    object o;
    Type t;
    public Type T
    {
      get
      {
        return this.t;
      }
    }
  }
}
//动态调用的部分
using System;
using System.Reflection;
using ILGenServer;  //引用动态生成代码的类
public class ILGenClientApp
{
  public static void Main(
  {
    CodeGenerator gen = new CodeGenerator(); //创建动态生成类
    Type t = gen.T;
    if (null != t)
    {
      object o = Activator.CreateInstance(t);
      MethodInfo helloWorld = t.GetMethod("HelloWorld"); //为调用方法创建一个MethodInfo
      if (null != helloWorld)
      {
        helloWorld.Invoke(o, null);  //调用方法
      }
    }
  }
}
调用DLL
using System;
using System.Runtime.InteropServices; //为了使用DLLImport特性

class PInvokeApp
{
  [DllImport("user32.dll", CharSet=CharSet.Ansi)] //CharSet.Ansi指定Ansi版本的函数(MessageBoxA),CharSet.Unicode指定Unicode版本的函数 (MessageBoxW)
  static extern int MessageBox(int hWnd, string msg, string caption, int type);  //声明DLL中的函数
 
  //[DllImport("user32.dll", EntryPoint="MessageBoxA")] //用这种方法使用不同的函数名
  //static extern int MsgBox(int hWnd, string msg, string caption, int type);
 
  //[DllImport("user32.dll", CharSet=CharSet.Unicode)]  //调用Unicode版的DLL函数
  //static extern int MessageBox(int hWnd, [MarshalAs(UnmanagedType.LPWStr)]string msg,
  // [MarshalAs(UnmanagedType.LPWStr)]string caption, int type); //将LPWStr翻译为string型，缺省情况系统只将LPStr翻译成string
  public static void Main()
  {
    MessageBox(0, "Hello, World!", "CaptionString", 0);  //调用DLL中的函数
  }
}
例2，使用回调：
class CallbackApp
{
  [DllImport("user32.dll")]
  static extern int GetWindowText(int hWnd, StringBuilder text, int count);

  delegate bool CallbackDef(int hWnd, int lParam);

  [DllImport("user32.dll")]
  static extern int EnumWindows(CallbackDef callback, int lParam);

  static bool PrintWindow(int hWnd, int lParam)
  {
    StringBuilder text = new StringBuilder(255);
    GetWindowText(hWnd, text, 255);
    Console.WriteLine("Window Caption: {0}", text);
    return true;
  }

  static void Main()
  {
    CallbackDef callback = new CallbackDef(PrintWindow);
    EnumWindows(callback, 0);
  }
}
关键字unsafe指定标记块在非控环境中运行。该关键字可以用于所有的方法，包括构造函数和属性，
甚至还有方法中的代码块。关键字fixed负责受控对象的固定(pinning)。Pinning是一种动作，向
垃圾收集器(Garbage Collector, GC)指定一些不能被移动的对象。为了不在内存中产生碎片，.NET
运行环境把对象四处移动，以便于最有效地利用内存。使用fixed后指定对象将不会被移动，所以就
可以用指针来访问它。
C#中只能得到值类型、数组和字符串的指针。在数组的情况下，第一个元素必须是值类型，因为C#
实际上是返回一个指向数组第一个元素的指针，而不是返回数组自身。
& 取一个变量的内存地址（即指向该变量的指针）
* 取指针所指变量的值
-> 取成员
例：
using System;
class UnsafeApp
{
  public static unsafe void GetValues(int* x, int* y)
  {
    *x = 6;
    *y = 42;
  }

  public static unsafe void Main()
  {
    int a = 1;
    int b = 2;
    GetValues(&a, &b);
  }
}
fixed语法为：fixed(type* ptr = expression) statements
其中type也可以为非控类型，也可是void；expression是任何产生一个type指针的表达式；
statements是应用的代码块。例：
fixed (int* f = &foo.x)  //foo是Foo类的一个实例，x是Foo类的一个int属性
{
  SetFooValue(f);  //SetFooValue方法的定义为unsafe static void SetFooValue(int* x)
}
传统的COM组件可以通过互操作层(COM Interop)与.NET运行环境交互。互操作层处理在托管运行环境和非托管区域
中的COM组件操作之间传递所有的消息。
要使COM组件能在.NET环境中使用,必须为COM组件生成元数据。.NET运行环境用元数据层业判断类型信息。在运行时刻
使用类型信息，以便生成RCW(Runtime Callable Wrapper,运行时可调用包装)。当.NET应用程序与COM对象交互时，
RCW处理对COM对象的装载和调用。RCW还完成许多其他的工作，如管理对象标识、对象生存周期以及接口缓冲区。
对象生存周期管理十分关键，因为.NET GC把对象到处移动，并且当对象不再使用时，自动处理这些对象。RCW服务告诉
.NET，应用程序正与托管.NET组件交互，同时又使非托管COM组件“觉得”COM对象是被传统的COM客户端调用的。
为了为COM组件生成元数据包装，必须使用tlbimp.exe(TypeLib Importer)工具：
tlbimp some_COM.tlb /out:som_COM.dll



天外飞仙 2007-01-14 20:18 发表评论
]]>VB中的Unicode 和 Ansi 格式 转换http://www.blogjava.net/songfei/articles/55780.html天外飞仙天外飞仙Thu, 29 Jun 2006 08:54:00 GMThttp://www.blogjava.net/songfei/articles/55780.htmlhttp://www.blogjava.net/songfei/comments/55780.htmlhttp://www.blogjava.net/songfei/articles/55780.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/55780.htmlhttp://www.blogjava.net/songfei/services/trackbacks/55780.html
Visual Basic 32-bit 版本的字串处理采用 Unicode，也就是说字串在 VB 内部是以Unicode 的格式来存放。何谓 Unicode？简单的说，就是每一个字符都是以 2-byte 的形式表示，而每个「实体字符」就是一个「字符」。因此，

Len("大家好")

Len("abc")

所返回的值都是 3，因为「大」和「a」都是一个字符。


但是这对一些中文字串处理，例如纯文字的数据文件，却是一个大灾难，因为你必须以byte 来定位每个字符，可是 Unicode 却把一切的处理全搞砸了。例如：

Len("Good Morning") 返回 12，而

Len("今天天气很好") 返回 6


对初学者而言，好不容易能使用 VB 来写程序已经是件了不起的事了，却马上在中文处理上挨了一记闷棍，所受到的打击实在不小。但是不要怕，事实上只要再多了解一些指令，就可以把中文处理的问题解决了。


是什么指令呢？最重要的莫过于 StrConv 了。StrConv 函数的语法为：StrConv(待转换字串, 转换格式)

其中转换格式在这里用到的是：

vbUnicode 将 Ansi 字串转换为 Unicode

vbFromUnicode 将 Unicode 字串转换为 Ansi

将字串转成 Ansi 之后，所有的字串处理指令都要加个 B，例如：LeftB, RightB,

MidB, ChrB, InstrB, LenB, InputB 等。例用这些指令来处理就行了。


当你处理完毕之后，你可以再将它再转回 Unicode，这样就可以使用一般的字串处理指令了。这样讲看得懂吗？如果还是不了解，看看下面的实例说明：

简易使用范例

看看下面的基本范例您应该就会对 VB 的字串处理方式有些概念。


Private Sub Command1_Click ()

Dim sUnicode As String

Dim sAnsi As String

' Unicode 运算

sUnicode = "王小明,A123456789,651023,上海市中山路100号,(02)2345678"

Debug.Print Len(sUnicode) ' 返回 44

Debug.Print Mid$(sUnicode, 5, 10) ' 返回 A123456789

Debug.Print Instr(sUnicode, "上海市") ' 返回 23

' 将 Unicode 字串转成 Ansi

sAnsi = StrConv(sUnicode, vbFromUnicode)

' Ansi 运算

Debug.Print LenB(sAnsi) ' 返回 54

Debug.Print MidB$(sAnsi, 8, 10) ' 返回 ?????，因为忘了转回 Unicode

Debug.Print StrConv(MidB$(sAnsi, 8, 10), vbUnicode) ' 返回 A123456789，请注意转回 Unicode 的动作一定要做


Debug.Print InStrB(sAnsi, StrConv("上海市", vbFromUnicode)) ' 返回 23, 不要忘了要把"上海市"也转成 Ansi，否则会找不到

End Sub

读入文本文件

在 VB 的小技巧中，有一个是快速读文件法：

Private Sub Command1_Click ()

Dim sFile As String

Open "C:\filename.txt" For Input As #1

sFile = Input$(LOF(1), #1)

Close #1

End Sub


但是很不幸地，如果你读取的文件内含中文字，那上面这段程序会出现 Input pastend of file 的错误。因为 LOF 返回的是文件的 byte 数，而 Input 函数读取的是字符数，由于文件内含中文，因此文件中的字符数将会小于 byte 数，于是就发生错误了。要解决这个问题，我们就要用到 StrConv 和 InputB 这两个函数了：

Private Sub Command1_Click ()

Dim sFile As String

Open "C:\filename.txt" For Input As #1

sFile = StrConv(InputB$(LOF(1), #1), vbUnicode)

Close #1

End Sub

上面修正程序先用 InputB 将文件读进来，不过使用 InputB 所读入的文件是 Ansi格式的，所以要再用 StrConv 转成 Unicode 才行。随机数据文件许多文字数据文件是以固定字节的位置来加以区格，例如下面的数据格式：王小民650110上海市中山路100号 (02)1234567

张大呆660824花莲县大甲镇广东街23号(03)9876543


像这种类型的文件要如何处理呢？这是就必须用到 Type 以及 byte array 了。

Private Type tagRecord

Username(5) As Byte ' 姓名 6 bytes

Birthday(5) As Byte ' 生日 6 bytes

Address(21) As Byte ' 地址 22 bytes

TEL(11) As Byte ' 电话 12 bytes

CrLf(1) As Byte ' 换行字符 2 bytes

End Type


Private Sub Command1_Click()

Dim uRecord As tagRecord

Open "C:\filename.dat" For Random As #1 Len = LenB(uRecord)

Get #1, 2, uRecord ' 取第二笔数据

With uRecord ' With ... End With 应该会用吧

Debug.Print .Username ' 返回 ???

Debug.Print StrConv(.Username, vbUnicode) ' 返回 "张大呆"

End With

Close #1

End Sub


在这个例子中，一定要用到 byte array，因为只有 byte array 才能正确地定位到每个 byte 的位置。以前使用字串来定位的方法已经不适用了，千万要记住！但是使用byte array 所读入的数据是 Ansi 格式，若要处理或是做运算的话，记得还要转成Unicode 格式才行。


[●] 使用 Byte Array

除了上面必须使用 byte 精确定位的例子之外，纯文字的处理基本上是用不到 bytearray 的。byte array 通常是用在处理 binary 数据。这方面的问题我们将另文讨论。看吧！只要熟悉使用 StrConv，你就可以在 Unicode 及 Ansi 格式之间自由自在地变来变去，相信当您看完这篇文章之后，对处理中文应该不再烦恼了吧！



天外飞仙 2006-06-29 16:54 发表评论
]]>从VB 6到VB.NET——窗体特殊应用http://www.blogjava.net/songfei/articles/55748.html天外飞仙天外飞仙Thu, 29 Jun 2006 06:49:00 GMThttp://www.blogjava.net/songfei/articles/55748.htmlhttp://www.blogjava.net/songfei/comments/55748.htmlhttp://www.blogjava.net/songfei/articles/55748.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/55748.htmlhttp://www.blogjava.net/songfei/services/trackbacks/55748.html阅读全文

天外飞仙 2006-06-29 14:49 发表评论
]]>C#与vb.net的区别 http://www.blogjava.net/songfei/articles/50774.html天外飞仙天外飞仙Tue, 06 Jun 2006 07:17:00 GMThttp://www.blogjava.net/songfei/articles/50774.htmlhttp://www.blogjava.net/songfei/comments/50774.htmlhttp://www.blogjava.net/songfei/articles/50774.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/50774.htmlhttp://www.blogjava.net/songfei/services/trackbacks/50774.html都说在.NET里，.NET framework和CLR是应用运行的基础。那么VB.NET和C#是不是就完全一样，只是语法不同吗？

一、C#

--- 像VB一样简单，像C++一样强大的新语
C#是第一流的面向组件的语言
由 Turbo Pascal, Delphi, and Visual J++的首席设计师Anders Hejlsberg 倾心3年设计
所有的语言元素都是真正的对象
开发强壮和可重用的软件
所有的.NET Framework中的基类库（Base Class Library）都由C# 编写


二、VB.NET

--- 完全面向对象的BASIC语言

1.新语言特性
完全面向对象–  继承(Inheritance), 重载(overloading), 共享的成员, 结构化异常处理
强壮的语言 –  严格的类型检查, 变量声明时初始化，支持垃圾收集(Garbage collection)
强大 –  支持委托(Delegates), free threading，Variant 数据类型被 Object 代替
2.与VB6一致的语法

三、2者的区别？
1.语法上的差异
        例如循环的写法

VB.NET

For I = 1 To 10
   ‘ for loop
Next I

C#

For (i=1;i<11;i++) {
// for loop
}
另外Visual Basic 对大小写不敏感，而C#是大小写敏感的。

2.C# 具有但 Visual Basic 不具有的特性
           指针, 移位操作符, 内嵌的文档(XML)
          重载操作符

3.Visual Basic具有但 C# 不具有的特性

更丰富的语法: Events, Try…Catch, Select…Case, 实现 Interface
后期绑定(Late binding), 动态数组, 模块(modules), 可选参数, 参数属性(parameterized properties)
后台编译


C#与VB.net间移植的技巧


按理说，这两种语言没有什么移植的必要，因为他们生成的代码可以完全通用。但是如果一个工程基本上是VB写成的，却需要少许已经存在的C#过程，用组件并不是一种效率很高的办法。就算是学习C#或VB，学会他们之间的移植可以双倍的利用已经存在的代码（如好玩的Donkey.net就只有VB版）。
  
  有人比较过这两种语言，得出的结论是他们很相似。但即便是这样，VB初学者看到诸如(（Button）sender).Text = “启动”;之类的语法不知道如何移植到VB，而C#初学者看到Handles Button1.Click等语法也会为移植而感到头痛。下面就看看他们最难移植的部分：
  
  1、Option语句。VB的Option语句可以打开或关闭变量声明检查和类型转换检查。尤其是Option Strict被关闭后，VB变成弱类型语言，很多类型转换都是自动的，移植到C#中会产生无数错误。因此，如果要将带有Option Strict Off语句的VB程序移植到C#，最好先在VB中将Option Strict打开，然后把所有类型转换出错的地方变成强类型转换，然后再进行移植。
  
  2、类型转换。VB提供了很多类型转换函数型运算符，如CInt(), CSng(), CStr()等，在C#中只要用(int) , (float), (String)即可。然而如果不是标准类型，如下面的C#语句：
  
  ((System.Button)sender).Text = “启动”;
  
  就要使用VB的函数型运算符CType来实现。上面的代码正确的移植方法是：
  
  CType(sender, System.Button).Text = “启动”
  
  千万不要使用某些人推荐的，将Option Strict关闭，然后用后期绑定调用sender对象的方法，这根本不符合程序移植不能改变本质的要求。
  
  3、修饰符和属性标签。VB和C#的修饰符是完全对等存在的，但是拼写往往不同，给移植带来了很多麻烦，尤其是表示相同意思的关键字从字面理解完全不同的时候。下面就给出了VB和C#对应的关键字：
  
  VB
   C#
   VB
   C#
  
  Inherits
   :
   Implements
   :
  
  MustInherit
   abstract
   NotInheritable
   sealed
  
  Overridable
   virtual
   NotOverridable
   sealed
  
  MustOverride
   abstract
   Overrides
   override
  
  [Overloads]
   无
   Shadows
   new
  
  Shared
   static
   Public
   public
  
  Protected
   protected
   Friend
   internal
  
  Protected Friend
   protected internal
   Private
   private
  
  Static
   用别的方法实现
   ByVal
   无
  
  ByRef
   ref
   Optional
   无
  
  ParamArray
   params
   无法实现
   unsafe
  
  无法实现
   fixed
  
  
  可以看出，VB的关键字比较长，而且使用上也比C#更加严格。从C#向VB移植的时候，要分外注意哪些VB有而C#没有的关键字以及在C#拼写相同，在VB中拼写不同的关键字（如MustOverride和MustInherit）。有些关键字如unsafe，如果C#使用了他们，将无法移植到VB中。好在这些关键字在商业应用中并不常用。
  
  属性标签在这两种语言中非常的相似，移植上应该没有任何难度，只要知道在C#中用方括号[]表示属性标签，而在VB中用的是尖括号<>。另外，如果要用名称结合传递参数，C#直接使用=号，而VB使用:=（冒号和等号）。
  
  4、委派类型。委派类型就是安全的函数指针类型。在C#中，难以分辨是函数指针在工作还是函数本身在工作，因为他们的语法相同。当要为一个委派类型的变量复制的时候，直接等于一个函数即可，如：
  
  public delegate void FuncType(Object e)
  
  ...
  
  FuncType func;
  
  func = new FuncType(this.SampleFunction1);
  
  //调用
  
  func(something);
  
  //换指向另外一个函数
  
  func = this.SampleFunction2
  
  然而VB中，委派类型就像是一般的对象，有它的方法，与函数本身明显不同。你不能将过程的名字直接赋给一个委派类型的对象，而必须使用AddressOf运算符，下面的例子就是上文C#程序的VB版，注意那些实现不同的地方：
  
  Public Delegate Sub FuncType(ByVal e As Object)
  
  ...
  
  Dim func As FuncType
  
  func = New FuncType(AddressOf Me.SampleFunc1)
  
  ‘ 调用
  
  func.Invoke(something)
  
  ‘ 换指向另外一个函数
  
  func = AddressOf Me.SampleFunction2
  
  5、事件处理。这是两种语言最大的差别之一，VB传承以前版本强大的事件处理机制，许多语法都比C#更加灵活。好在无论什么情况，他们之间都是可以互相移植的。
  
  对于事件定义，两种语言都是一个委派类型加一个事件属性，如：
  
  [C#]
  
  public delegate void MyEventHandler(Object sender, EventArgs e);
  
  public event MyEventHandler MyEvent;
  
  [Visual Basic]
  
  Public Delegate Sub MyEventHandler(ByVal sender As Object, ByVal e As EventArgs)
  
  Public Event MyEvent As MyEventHandler
  
  VB还支持另外一种更加紧凑的定义方法，只有一条语句：
  
  Public Event MyEvent(ByVal sender As Object, ByVal e As EventArgs)
  
  移植的时候，要把参数部分分离出来，成为一个委派类型，再按照普通方法定义事件即可。
  
  关于事件响应，C#与Delphi等语言一样，是动态绑定事件过程的，其语法类似于下：
  
  internal MyClass myobj;
  
  ...
  
  myobj = new MyClass();
  
  ...
  
  myobj.MyEvent += this.myobj_MyEvent;
  
  ...
  
  protected void myobj_MyEvent(Object sender, EventArgs e)
  
  {
  
   //语句
  
  }
  
  可以看到，C#是利用运算符连接事件过程和事件属性的。之后，还可以用-=运算符解除事件过程与事件属性的绑定。VB不支持运算符重载，但仍然支持这种动态绑定的事件过程，方法是使用AddHandler和RemoveHandler关键字。如上面黑体部分可以移植为：
  
  AddHandler myobj.MyEvent, AddressOf Me.myobj_MyEvent
  
  解除绑定的语法与此类似，只是关键字为RemoveHandler而已。一定不要忘记过程前面还有一个AddressOf关键字！
  
  动态绑定的事件过程工作起来比较慢，VB支持一种更快的静态绑定事件过程。一旦为对象设置了静态的事件过程，就不能解除绑定，一般大多数情况都是如此。语法如下：
  
  ‘ 定义变量时使用WithEvents关键字
  
  Friend WithEvents myobj As MyClass
  
  ‘ 直接书写事件过程，注意Handles的语法：
  
  Protected Sub myobj_MyEvent(ByVal sender As Object, ByVal e As EventArgs) _
  
  Handles myobj.MyEvent
  
   ‘ 语句
  
  End Sub
  
  它表示myobj_MyEvent这个过程仅仅响应myobj.MyEvent这个过程。如果一个过程要响应很多个事件，把他们列在Handles后面，用逗号隔开，如Handles Event1, Event2, ...
  
  遇到这种情况，要看清Handles后面的所有对象和事件，将它们一一改写成动态绑定的语句：
  
  Protected Sub XXX(...) Handles myobj1.MyEvent, myobj2.MyEvent
  
  ==>
  
  myobj1.MyEvent += this.XXX;
  
  myobj2.MyEvent += this.XXX;
  
  ...
  
  protected void XXX(...){}
  
  当事件比较多时，C#显著变得比较麻烦，幸好一个过程响应一大堆事件的情况也不太多（不过我就编写过一个过程相应8个事件，移植起来好麻烦！）。原则上说，将静态事件过程移植为动态事件过程并没有完全遵守移植的规定，但我估计他们实现的原理不会相差太多，所以也不用担心。
  
  6、异常处理。VB支持两种形式的异常，即.net框架的异常和VB自己的错误号码。而C#只支持第一种。用到VB自己的错误号码的程序几乎无法移植到C#中，所以应该尽量使用.net框架的异常，如下面VB语句：
  
  Try
  
   ‘ 发生错误的代码
  
  Catch When Err.Number = 52
  
   ‘ 解决错误的代码
  
  End Try
  
  这段代码无法直接移植到C#中，只有用Exception对象取代Err对象获得异常信息，才能顺利移植。另外VB的When语句带给Try语句十分灵活的用法，必须用很高的技巧才能在C#中实现，这就需要具体问题具体分析了。
  
  VB支持Exit Try语句，可以直接从Try块或Catch块跳转到Finally块。C#没有提供类似的语法，可以用以下技巧：
  
  [Visual Basic]
  
  Try
  
   ‘ 一些语句
  
   Exit Try
  
  Finally
  
   ‘ 一些语句
  
  End Try
  
  [C#]
  
  try
  
  {
  
   //一些语句
  
   goto __leave;
  
  }
  
  finally
  
  {
  
   //一些语句
  
  }
  
  __leave: //别忘了这里还有哦！
  
  总之是利用了finally块无法跳过的特征，用goto语句模拟了Exit Try语句。
  
  如果VB程序用的是VB特有的On Error GoTo语句实现的错误处理，问题就麻烦了。代码可能在过程中上下跳跃，无法预料语句的执行方式。这种代码理解起来就头痛，更不要说移植了。总体来说，把所有语句统统转移到try块中，然后用catch一一处理错误。遇到要返回（Resume语句）的时候，只好Copy代码了。反正不是一件容易的事情，慢慢改就是了。
  
  7、模块。VB支持模块，C#不支持。但也没有关系，只要在C#中制造一个abstract类，共享所有成员，就和模块一样了。当然不能像VB一样直接访问模块中的成员，需要用到“类名.成员名”的用法。
  
  8、接口。C#在接口方面也没有VB强大（怎么这么重要的功能也不做得好一点？），VB采用Implements语句结合接口的成员和类的实现成员，而C#是用名称结合。因此VB就可以随便修改实现成员的访问级别和名称，而C#就不能改名称。将C#移植为VB时，最好利用VB.net编辑器直接实现接口，比较简单。把VB移植为C#时，就必须把改过的名字都改回来，遇到名字冲突就更讨厌了（这时候我几乎不想再移植为C#了）。给一个例子：
  
  [Visual Basic]
  
  Public Class Class1 : Implements IMyInterface
  
   Public Sub DoSth() Implements IMyInterface.Method1
  
   End Sub
  
  End Class
  
  [C#]
  
  public class Class1 : IMyInterface
  
  {
  
   public void Method1()
  
  {
  
  }
  
  }
  
  9、运算符重载。这会遇到VB头痛了，既然VB不支持运算符重载，那么就必须用子程序和函数来模拟运算符。比如建立Plus和Minus方法模拟+和-的运算。当然还是有很多情况（比如遇上了explicit和implicit语句）就真的没有办法了，只好不移植了。运算符重载是一个很不错的功能，它能使很多操作简单地完成，如果VB支持它，就真的是完美语言了。
  
  好了，想必最麻烦的地方已经说完了，剩下的就是简单的Copy了。虽然有些地方还没有说清楚，但基本上阐明了两种语言的不同（一看，不同还挺多的吧），反正也不用移植大的工程，了解这些内容主要是为了利用双倍的利用已经存在的代码，但愿本文对你有用。



天外飞仙 2006-06-06 15:17 发表评论
]]>关于Ajax.Net的快速入门 http://www.blogjava.net/songfei/articles/41823.html天外飞仙天外飞仙Wed, 19 Apr 2006 02:24:00 GMThttp://www.blogjava.net/songfei/articles/41823.htmlhttp://www.blogjava.net/songfei/comments/41823.htmlhttp://www.blogjava.net/songfei/articles/41823.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/41823.htmlhttp://www.blogjava.net/songfei/services/trackbacks/41823.html 关于Ajax.Net的快速入门

现在的项目准备用ajax，用ajax.net实现，而不是atlas，所以先看下ajax.net，Ajax.Net现在的最新版本是AjaxPro5.11.4.2,下载地址是：www.schwarz-interactive.de

首先我们新建个项目，名字是AjaxPro,我用的是vs2005beta2版本。

右击站点名字点add reference添加对我们刚刚下载来的那个叫AjaxPro.2.dll的引用，如果你用的是vs2003，则添加对AjaxPro.dll的引用，然后我们在添加个web.config文件（很郁闷的是vs2005不再自动添加web.config文件拉），修改web.config如下： 

																										<system.web> <httpHandlers> 
<add verb="POST,GET" path="ajaxpro/*.ashx" 
type="AjaxPro.AjaxHandlerFactory, 
AjaxPro.2"/> </httpHandlers>

意思是所有的ajaxpro/*.ashx请求都由Ajax.PageHandlerFactory处理，而不是由默认的System.Web.UI.PageHandlerFactory处理程序工厂来处理。

我们现在给Default.aspx.cs文件添加个名字空间namespace MyDemo，这里更加郁闷的是为什么vs2005beta2怎么不给你自动添加名字空间啊？和2003怎么完全不同呢？

现在我们写个AjaxMethod服务器端方法，他和普通的服务器方法唯一不同的地方就是他必须要在方法的上面添加个[AjaxPro.AjaxMethod],代码如下： 

																										[AjaxPro.AjaxMethod]
public DateTime GetServerTime()
{
return DateTime.Now;
}
[AjaxPro.AjaxMethod]public int 
AddTwo(int firstInt, int secondInt)
{
return firstInt + secondInt;
}

我们还必须在Page_Load里面把这个类注册下，如下： 

																										protected void Page_Load
(object sender, EventArgs e)
{
AjaxPro.Utility.RegisterTypeForAjax
(typeof(_Default));
}

这个时候我们还必须修改aspx页面的指令行，因为我们在后台搞了个名字空间，如下：Inherits="MyDemo._Default"也就是要把名字空间也写上。我们再写客户端脚本来调用服务器方法。代码里有详细的注释，前台Default.aspx代码： 

																										<%@ Page Language="C#" 
AutoEventWireup="true"CodeFile="Default.aspx.cs" 
Inherits="MyDemo._Default" %>
<!DOCTYPE html PUBLIC "-
//W3C//DTD XHTML 1.1//EN" 
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server"><title>Untitled Page
</title></head><body><form id="form1"
runat="server"><div><input id="Button1"
type="button" value="获得服务器时间" 
onclick="getServerTime();" /><input 
id="Text1" type="text" /><input 
id="Text2" type="text" /><input
id="Button2" type="button" 
value="得到两个文本框的和" 
onclick="add(document.getElementById('Text1').
value,document.getElementById('Text2').value)" 
/></div></form><script 
type="text/javascript">
function getServerTime()
{
//MyDemo._Default.GetServerTime()
得到从服务器传来的数据是object，
要写.valuealert
(MyDemo._Default.GetServerTime().value);
}
function add(a,b)
{
//把文本框的值转换成intvar 
a1 = parseInt(a);var b1 = parseInt(b);
//第1、2参数为服务器方法所需要的参数，
后面一个是如果服务器返回数据
//客户端要处理这些数据的js函数名，
他有个参数就是从服务器传来的数据
MyDemo._Default.AddTwo(a1,b1,getAdd);
}
function getAdd(rel)
{
//要加上.valuealert(rel.value);
}
</script></body></html>
后台Default.aspx.cs代码：
using System;using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;using 
System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
namespace MyDemo
{
public partial class _Default : 
System.Web.UI.Page{protected void 
Page_Load(object sender, EventArgs e){AjaxPro.Utility.RegisterTypeForAjax
(typeof(_Default));
}
[AjaxPro.AjaxMethod]public 
DateTime GetServerTime()
{return DateTime.Now;
}[AjaxPro.AjaxMethod]public int AddTwo
(int firstInt, int secondInt)
{
return firstInt + secondInt;
}}} 
按F5运行结果如下，
firefox里面测试通过： 
using System;using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
namespace MyDemo
{
public partial class _Default :
System.Web.UI.Page
{
protected void Page_Load
(object sender, EventArgs e)
{AjaxPro.Utility.RegisterTypeForAjax
(typeof(_Default));}
[AjaxPro.AjaxMethod]public DateTime 
GetServerTime(){return DateTime.Now;
}
[AjaxPro.AjaxMethod]public 
int AddTwo(int firstInt, 
int secondInt)
{return firstInt + secondInt;}}}


天外飞仙 2006-04-19 10:24 发表评论
]]>编写高性能Web 应用程序的10 个技巧http://www.blogjava.net/songfei/articles/23039.html天外飞仙天外飞仙Thu, 08 Dec 2005 13:18:00 GMThttp://www.blogjava.net/songfei/articles/23039.htmlhttp://www.blogjava.net/songfei/comments/23039.htmlhttp://www.blogjava.net/songfei/articles/23039.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/23039.htmlhttp://www.blogjava.net/songfei/services/trackbacks/23039.html阅读全文

天外飞仙 2005-12-08 21:18 发表评论
]]>使用客户端脚本http://www.blogjava.net/songfei/articles/23037.html天外飞仙天外飞仙Thu, 08 Dec 2005 13:16:00 GMThttp://www.blogjava.net/songfei/articles/23037.htmlhttp://www.blogjava.net/songfei/comments/23037.htmlhttp://www.blogjava.net/songfei/articles/23037.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/23037.htmlhttp://www.blogjava.net/songfei/services/trackbacks/23037.html 使用客户端脚本 使用客户端脚本
发布日期： 9/20/2004 | 更新日期： 9/20/2004

Scott Mitchell

4GuysFromRolla.com

摘要：尽管 ASP.NET 在服务器上执行其大多数操作，但是某些操作在客户端进行处理可能会更好。Scott Mitchell 说明了 ASP.NET 页面和控件如何添加客户端代码。

*
本页内容 简介 简介 创建基类作为添加客户端脚本的基础 创建基类作为添加客户端脚本的基础 从代码隐藏类添加客户端脚本 从代码隐藏类添加客户端脚本 根据对用户操作的响应执行客户端代码 根据对用户操作的响应执行客户端代码 实现常用客户端功能 实现常用客户端功能 小结 小结 相关书籍 相关书籍
简介

当使用动态的、基于 Web 的脚本技术时，与传统 ASP 或 PHP 类似，开发人员必须对客户端和服务器间的逻辑、暂时和物理分隔有着敏锐的理解。例如，对于触发服务器端代码执行的用户操作，使用传统 ASP 的开发人员必须明确地使用户的浏览器将请求返回到 Web 服务器。创建这样的交互可能会轻易地占用大量开发时间，并且导致不易读的代码。

Microsoft ASP.NET 通过使用 Web 窗体，有助于减轻将用户事件绑定到特定服务器端代码执行的负担，这就模糊了客户端和服务器间的界线。使用 ASP.NET 和最少的工作，开发人员就可以快速地创建如下的网页，它具有大量的交互式用户界面元素按钮、下拉列表等，而这些都基于最终用户的操作，可以选择性地运行服务器端代码。例如，利用 ASP.NET 添加下拉列表，只要选定的下拉列表项目更改则执行某些操作，您只需添加 DropDownList Web 控件、将其 AutoPostBack 属性设置为 True，然后为该下拉列表创建一个 SelectedIndexChanged 事件处理程序。如果利用传统的 ASP 完成上述任务，则会要求编写许多复杂的 HTML、客户端 JavaScript 和服务器端脚本代码；利用 ASP.NET，则为您提供了必要的脚本代码和服务器端事件模型。

尽管在执行客户端操作时，ASP.NET 中的 Web 窗体极大地简化了运行服务器端脚本，但是，如果误用这种功能可能会导致无法接受的性能。尽管 Web 窗体隐藏了所涉及的复杂性，每次需要执行服务器端代码时，最终用户的浏览器必须通过重新提交窗体，将请求返回到 Web 服务器。当提交窗体时，所有窗体字段（文本框、下拉列表和复选框等）必须同时返回它们的值。此外，页面的视图状态也被返回到 Web 服务器。总而言之，每次回发网页时，几千字节的数据将需要潜在地发送回 Web 服务器。于是，经常回发可能很快就会导致 Web 应用程序不可使用，尤其是对于那些仍然使用拨号连接的用户。通过将功能推到客户端可以降低经常回发的需要。

注 ASP.NET Web 窗体发出一个标题为 VIEWSTATE 的隐藏窗体字段，它包含 Web 窗体中 Web 控件已更改状态的基于 64 位编码的表示。根据出现的 Web 控件，视图状态的范围可以从几十字节到几万字节。要学习有关视图状态的更多知识，请查阅我的文章 Understanding ASP.NET View State。

利用传统的 ASP，添加数据驱动、自定义客户端脚本非常简单，但并不是非常易读。例如，要在传统的 ASP 中显示根据某个 ID 字段加载 URL 的弹出窗口，您可以使用 语法来插入 ID 字段的值，在适当的客户端脚本中进行输入。ASP.NET 允许您利用 Page 类中的各种方法，创建这种数据驱动的客户端脚本。

本文分析了向 ASP.NET 网页添加客户端脚本的技术。客户端脚本是运行在访问者浏览器中的脚本代码，如其名字所示。我们将看到如何完成常见的客户端任务，例如显示警告、确认框和弹出窗口。（客户端脚本窗体字段验证的一个主要用途可能与 ASP.NET 主题有点不相关，因为验证程序 Web 控件提供了随取随用的客户端窗体验证。）本文的重点在于插入客户端脚本的服务器端类、方法和技术；我们不会详细地分析实际的客户端脚本，因为该信息涉及了围绕 Web 的众多其他文章和站点。

创建基类作为添加客户端脚本的基础

传统的 ASP 和 ASP.NET 之间的主要差别之一在于各自技术的编程模型。ASP 页面是原子的、程序上的脚本，解释每个页面的访问。然而，ASP.NET 完全是面向对象的编程技术。所有 ASP.NET 网页都是带有属性、方法和事件的类。所有网页直接或间接地派生自 System.Web.UI 命名空间中的 Page 类，Page 类包含了 ASP.NET 网页的基本功能。

面向对象编程的概念之一就是继承。继承使您可以创建一个扩展其他类功能的新类。（如果类 B 继承类 A，也可以说扩展了 A；类 A 被称为基类。）当使用代码隐藏模型来创建 ASP.NET 网页时，可以非常清楚地看到代码隐藏类继承了 Page 类：

Public Class WebForm1 Inherits System.Web.UI.Page ... End Class

通过使您的代码隐藏类继承 Page 类，它自动接收在 Page 类中继承的功能，例如 Request、Response、Session 和 ViewState 对象以及常见事件，如 Init、Load、Render 等等。我们将在本文中看到，如果您需要可用于所有 ASP.NET 网页的某个常见功能，一种方法是创建派生自 Page 类并具有完成这些所需增强功能的其他方法和属性的类。然后，要使 ASP.NET 网页利用这些增强功能，我们只需更新页面代码隐藏类中的 Inherits 语句，以使用扩展 Page 类的类。

在本文中，我们将创建一个名为 ClientSidePage 的类，它派生自 Page 类并提供额外的方法以协助执行常见的客户端任务。通过让代码隐藏类继承 ClientSidePage，而不是继承 Page，添加脚本代码将会像调用方法和传送几个参数那样简单。具体说来，该类包括用于下列用途的方法：

•

显示模式客户端对话框。

•

在页面加载时将焦点设置到特定的窗体字段。

•

使用模式确定对话框来确定用户是否希望回发该窗体。

•

显示弹出窗口。

在我们深入研究 ClientSidePage 类之前，首先让我们分析一下 Page 类中的有关方法，以便将客户端脚本插入到网页中。在我们讨论这些 Page 方法后，我们将开始利用 ClientSidePage 类扩展它们的功能，并且查看如何将所有内容结合在一起以及如何在 ASP.NET 网页中使用扩展的类。

从代码隐藏类添加客户端脚本

所有 ASP.NET 网页必须直接或间接地派生自 System.Web.UI 命名空间中的 Page 类。Page 类包含正常运行的网页所要求的方法、属性和事件的基本集合。在该类的众多方法中，一些方法旨在将客户端脚本插入到生成的 HTML 中。这些方法从代码隐藏类调用，因此可以用于发出数据驱动的客户端脚本。用于发出客户端脚本的相关 Page 类方法如下所示。

该基类派生自 System.Web.UI.Page 类，因此可以通过从代码隐藏类直接调用 Page 类的公共方法来访问它们。

注 要访问 Page 类的方法，您可以直接键入方法名，或者通过输入 MyBase.（对于 Microsoft Visual Basic .NET）、this. （对于 C#）或者 Page.（对于 C# 或 Visual Basic .NET），利用 Microsoft Visual Studio .NET 中的 IntelliSense 来实现。如果使用 Visual Basic .NET 作为选择的编程语言，请确保将 Visual Studio .NET 配置为不 隐藏高级成员，否则将无法看到这些客户端脚本方法。（要显示高级成员，请转到 Tools | Options | TextEditor | Basic，然后清除 Hide advanced members 复选框。）

RegisterClientScriptBlock(key, script)

在 Web 窗体已呈现的 <form> 元素之后，在包含于 Web 窗体中的任意 Web 控件之前，RegisterClientScriptBlock 方法会添加一个客户端脚本块。key 输入参数允许您指定与该脚本块相关联的唯一的密钥，而 script 参数包括要发出的完整的脚本代码。（这个 script 参数应该包括实际的 <script> 元素，同时还包括客户端 JavaScript 或 Microsoft VBScript。）

在通过 ASP.NET 网页的代码隐藏类发出客户端脚本时，通常情况下，key 参数的值就不是非常重要了。简单地选择一个说明性的密钥值。在通过自定义编译的服务器控件插入客户端脚本代码时，key 参数就更加适用。编译的控件有可能需要一组客户端函数。一个页面上服务器控件的多个实例可以共享这些公用客户端脚本函数，因此对于整个页面而言，这些函数只需要发出一次即可，不需要每个控件实例发送一次。例如，验证控件利用客户端代码来增强用户体验。如果页面上存在任意验证控件，这种客户端代码就必须存在，但是如果存在多个验证控件，那么全部控件都可以使用这个单个的共享函数的集合。

通过为脚本块提供一个密钥，利用公用客户端函数集合构建控件的控件开发人员可以检查所要求的公用函数集合是否已经被页面上控件的另一个实例添加。如果已添加，它不需要重新添加公用脚本。要检查脚本块是否已经使用相同的密钥添加，请使用 IsClientScriptBlockRegistered(key) 方法，它将返回布尔值，表示带有相同密钥的脚本块是否已经进行了注册。需要注意的是可以在不首先检查它是否注册的情况下添加脚本块。如果尝试利用已经注册的密钥添加脚本块，添加的脚本块将被忽略，并且原来的脚本将保持分配到该密钥。

注IsClientScriptBlockRegistered 方法在以下两种情况下尤为有用。第一，当添加相似但又独特的脚本块时它很方便，您需要确保每个脚本块都给予唯一的密钥。本文稍后分析的代码说明了“is registered”方法的实用性。第二个用途就是当构建需要某个公用脚本的控件时，尤其是如果特别的生成该脚本。通过使用 IsClientScriptBlockRegistered 方法，可以确保对页面上服务器控件的所有脚本通用的脚本在每次页面加载时只生成一次，而不是对页面上的每个控件实例都生成一次。

RegisterClientScriptBlock 方法对于添加客户端脚本非常有用，该脚本不依赖于 Web 窗体内出现的任意窗体字段。该方法的常见使用就是显示客户端警告框。例如，设想您具有一个带有一些 TextBox Web 控件和一个“Save”按钮的网页。TextBox 控件可能会具有来自数据库的特殊值。设想该页面允许用户修改这些值并通过单击“Save”按钮提交他们所做的更改。当单击“Save”时，网页将会回发，并且会触发按钮的 Click 事件。您可以为更新数据库的事件创建一个服务器端事件处理程序。要使用户知道他们的更改已经保存，您可能希望显示一个警告框“Your changes have been saved”。通过将以下代码行添加到按钮的 Click 事件处理程序中，可以实现这个任务：

RegisterClientScriptBlock("showSaveMessage", _ "<script language=""JavaScript""> _ alert('Your changes have been saved.'); _ </script>")

上述代码将会在页面的 <form> 内添加指定的脚本内容，但是在该窗体的内容前。当在用户浏览器中生成页面时，他们将会看到根据页面加载显示的客户端警告框，如图 1 所示。

<form method="post" ...> <script language="JavaScript"> alert('Your changes have been saved.'); </script> ... </form>

图 1. 客户端 JavaScript 的结果

注 上面示例中一个潜在地不需要的副作用就是，警告框将会在浏览器接收到 <form> 标记后立即显示。在用户单击警告框的“OK”按钮之前，浏览器将挂起网页的呈现。这意味着用户在单击“OK”之前，将看到一个空白的浏览器页面。如果希望在显示警告框之前完全显示该页面，您可以使用 RegisterStartupScript 方法（我们将在下面进行讨论），在 <form> 元素的结尾处插入 JavaScript。

RegisterStartupScript(key, script)

RegisterStartupScript 方法与 RegisterClientScriptBlock 方法非常相似。主要的区别在于发出客户端脚本的位置。在 <form> 元素开始后，在窗体的内容前，记住用 RegisterClientScriptBlock 发出脚本。另一方面，RegisterStartupScript 在窗体的结尾 处、在所有窗体字段后，添加指定的脚本。使用 RegisterStartupScript 来放置与呈现的 HTML 元素交互的客户端脚本。（稍后我将研究根据页面加载将焦点设置到窗体字段的示例；要完成这个操作，您将要使用 RegisterStartupScript 方法。）

与 RegisterClientScriptBlock 相似，由 RegisterStartupScript 添加的脚本块需要一个唯一的密钥值。同样，该密钥值主要由自定义控件开发人员使用。并不奇怪，还有一个 IsStartupScriptRegistered(key) 方法，它返回布尔值，表示带有指定密钥 的脚本块是否已经进行了注册。

注 有关使用 RegisterStartupScript 和 RegisterClientScriptBlock 来创建自定义编译的服务器控件的详细信息，请阅读我以前的文章： Injecting Client-Side Script from an ASP.NET Server Control.

RegisterArrayDeclaration(arrayName, arrayValue)

如果需要创建带有某些设置值的客户端 JavaScript Array 对象，请使用该方法向特定的数组添加值。例如，当使用 ASP.NET 网页中的验证控件时，就会构建 Array 对象 (Page_Validators)，以包含对页面上验证控件集合的引用。当提交窗体时，就会枚举该数组以检查各种验证控件是否有效。

要将值 1、2 和 3 添加到名为 FavoriteNumbers 的客户端 Array 对象，要使用以下服务器端代码：

RegisterArrayDeclaration("FavoriteNumbers", "1") RegisterArrayDeclaration("FavoriteNumbers", "2") RegisterArrayDeclaration("FavoriteNumbers", "3")

这段代码会发出以下客户端脚本：

<script language="javascript"> <!-- var FavoriteNumbers = new Array(1, 2, 3); // --> </script>

请注意，被传递的每个数组值都必须是字符串；但是，呈现的客户端脚本将 Array 对象的值设置为字符串的内容。也就是说，如果希望创建带有字符串值“Scott”和“Jisun”的 Array，要使用以下代码：

RegisterArrayDeclaration("FavoriteFolks", "'Scott'") RegisterArrayDeclaration("FavoriteFolks ", "'Jisun'")

请注意，第二个输入参数是包含 'Scott' 和 'Jisun' 的字符串 － 文本由单撇号分隔。这会显示以下客户端脚本：

<script language="javascript"> <!-- var FavoriteFolks = new Array('Scott', 'Jisun'); // --> </script>
RegisterHiddenField(hiddenFieldName, hiddenFieldValue)

在传统的 ASP 中，通常需要将各种信息从一个页面分发到另一个页面。完成这个操作的常用方法就是使用隐藏窗体字段。（隐藏窗体字段是不显示的窗体字段，但是它的值会根据窗体的提交而发送。创建隐藏窗体字段的语法是 。）在 ASP.NET 中，通过自定义隐藏窗体字段传递信息的需要会极大地减少，因为页面中的控件状态会自动保持。但是，如果您发现需要创建自定义隐藏窗体字段，可以通过 RegisterHiddenField 方法来完成。

RegisterHiddenField 方法接受两个输入参数。隐藏字段的名称和值。例如，要创建带有名称 foo 和值 bar 的隐藏窗体字段，请使用以下代码：

RegisterHiddenField("foo", "bar")

这会在页面的 <form> 元素中添加隐藏窗体字段，如下所示：

<form name="_ctl0" method="post" action="test.aspx" id="_ctl0"> <input type="hidden" name="foo" value="bar" /> ... </form>
理解客户端元素是如何呈现的

Page 类包含负责呈现在上面讨论的方法中注册的客户端脚本的两个 internal 方法：OnFormRender 和 OnFormPostRender。（标记为 internal 的方法只能被相同程序集中的其他类调用。因此，无法从 ASP.NET Web 应用程序中的代码隐藏类调用 Page 的 internal 方法。）这两个方法都在 HtmlForm 类的 RenderChildren 方法中进行调用。位于 System.Web.UI.HtmlControls 命名空间中的 HtmlForm 类表示 Web 窗体；也就是说，ASP.NET 网页中的服务器端窗体<form runat="server">...</form> 在页面的实例化阶段中作为 HtmlForm 类的实例加载。

因为由 Page 类的众多方法注册的客户端脚本是在 OnFormRender 和 OnFormPostRender 方法中呈现的，并且因为这些方法只能由 HtmlForm 类进行调用，所以通过这些方法以编程方式添加的客户端脚本，只有在网页包含 Web 窗体时才会呈现。也就是说，通过上面讨论的任意方法以编程方式添加的任意脚本元素，在 ASP.NET 网页包含服务器端窗体（<form runat="server">...</form>）时只会在页面的最后标记中发出。

通过首先添加开始 <form> 元素，会呈现 ASP.NET 网页上的 Web 窗体。之后，会调用 Web 窗体的 RenderChildren 方法，它包含三行代码：

Page.OnFormRender(...) MyBase.RenderChildren(...) Page.OnFormPostRender(...)

对 Page 类的 OnFormRender 方法的调用会添加以下标记：

•

通过对 RegisterHiddenField 进行调用而添加的任意隐藏窗体字段。

•

隐藏窗体字段中名为 __VIEWSTATE 的基于 64 位编码的视图状态。

•

通过对 RegisterClientScriptBlock 进行调用而添加的任意脚本块。

Web 窗体的 RenderChildren 方法中的第二行代码调用基类的 RenderChildren 方法，它会在 Web 窗体中呈现内容。在呈现所有窗体的内容后，对 Page 类的 OnFormPostRender 方法进行调用，这将会添加以下客户端内容：

•

由 RegisterArrayDeclaration 方法添加的任意 Array 对象。

•

通过对 RegisterStartupScript 进行调用而添加的任意脚本块。

最后，在 Web 窗体的 RenderChildren 方法完成后，则会呈现关闭窗体标记 ()。图 2 以图表形式说明了这个呈现过程。

注 图 2 假设您有些熟悉 ASP.NET 页面的生命周期。如果您对学习更多有关页面生命周期的知识感兴趣，请考虑阅读 Understanding ASP.NET View State，将重点放在标题为“The ASP.NET Page Life Cycle”的节上。


图 2. ASP.NET 中呈现的页面

分析脚本块的呈现顺序

乍看 Page 类的注册方法，在网页中呈现的已注册元素的顺序好像是对应于它们被添加到代码中的顺序。也就是说，设想 ASP.NET 网页的代码隐藏类中有以下两行代码：

RegisterClientScriptBlock("showSaveMessage", _ "<script language=""JavaScript"">var name='" & _ someDataDrivenValue & "'; </script>") RegisterClientScriptBlock("showSaveMessage", _ "<script language=""JavaScript"">alert('Hello, ' + name + '!'); </script>")

当发现页面呈现以下客户端脚本块（假设 someDataDriveValue 的值为 Sam）时，您不要太奇怪：

<script language="JavaScript">var name='Sam';</script> <script language="JavaScript">alert('Hello, ' + name + '!');</script>

访问该页面的用户将会看到一个警告框显示“Hello, Sam!”。

基于这个测试，您可能会认为这样的事实始终成立：在 HTML 页面中发出脚本块的顺序就是在服务器端代码中为它们指定的顺序。但是，这是一个不正确的假设，并且可以导致页面中断。例如，设想前面添加的脚本块在 HTML 页面中以相反的顺序发出。那么，您将会得到：

<script language="JavaScript">alert('Hello, ' + name + '!');</script> <script language="JavaScript">var name='Sam';</script>

这将会显示警告框“Hello, !”，因为变量 name 尚未分配值。显然，有些时候发出脚本块的顺序非常重要的。

Page 类的注册方法 － RegisterClientScriptBlock、RegisterStartupScript、RegisterArrayDeclaration 和 RegisterHiddenFields － 全部将提供的脚本内容写入到内部 HybridDictionary 中。HybridDictionary 是在 System.Collections.Specialized 命名空间中发现的数据结构，设计用于在有很多项目未知的字典中存储项目。对于小型的项目集合，ListDictionary 是最有效的数据结构，但是对于较大的字典，Hashtable 会更有效。HybridDictionary 分离差异 － 它通过使用 ListDictionary 存储项目来开始。当 ListDictionary 添加了它的第九个项目后，HybridDictionary 会从使用 ListDictionary 切换到使用 Hashtable。

尽管这种方法对于性能而言非常理想，但是如果您使用几个脚本块而且脚本块的顺序非常重要，那么它可能会带来严重的破坏。这是因为，ListDictionary 维护元素被添加的顺序，而 Hashtable 没有进行维护。因此，如果您将八个或更少项目添加到任意一个特定的注册方法中，项目将会以它们被添加的顺序发出。但是，如果添加了第九个项目，脚本发出的顺序看起来将是随机的。

注ListDictionary 使用 linked list 存储它的元素，而 Hashtable 将它的元素存储在数组中，该数组的内容按照字符串键的哈希值进行排序。有关链接列表和哈希表的完整讨论已经远远超出了本文所讨论的范围。有关详细信息，包括对其性能的分析，请考虑阅读 An Extensive Examination of Data Structures，尤其是 Part 2 和 Part 4。

如果您计划出现如下情况：可能会存在使用特殊注册方法添加的多于八个客户端元素，并且元素的出现顺序比较重要，那么您可能希望研究一下 Peter Blum 的免费的 RegisterScripts 库。对于所发出客户端元素的顺序，RegisterScripts 提供了更大的控制能力，并且还提供了无需手动添加 <script> 标记的选项，当利用 RegisterClientScriptBlock 或 RegisterStartupScript 方法包括客户端脚本时，您必须添加此标记。

根据对用户操作的响应执行客户端代码

对于插入页面加载时运行的客户端代码而言，Page 类的注册方法非常理想，但是在很多情况下，我们希望根据对最终用户操作的响应来运行代码。例如，我们可能希望当用户单击按钮时显示确认对话框，或者当下拉列表的选定项目发生变化时调用特殊的客户端 JavaScript 功能。

HTML 元素具有您可以点击的大量客户端事件，并且当触发事件时可以执行客户端代码。所要求的标记只是在 HTML 元素的标记中作为一个属性。例如，要在单击某个按钮时显示警告框，可以添加以下代码：

<input type="button" value="Click me to see an alert box!" onclick="alert('Here it is!');" />

要在客户端事件触发时运行客户端代码，可以将适当的属性添加到 HTML 元素中。对于 Web 控件，可以借助于编程方式使用 Attributes 集合添加客户端属性。例如，设想您具有一个 TextBox Web 控件，只要呈现的文本框获得焦点，您就希望它突出显示为黄色。要完成上述操作，您要将 TextBox Web 控件的呈现 HTML 添加如下所示的代码：

<input type="text" onfocus="this.style.backgroundColor='yellow';" onblur="this.style.backgroundColor='white';" />

要完成这个标记，我们可以借助编程方式通过 Attributes 集合设置 TextBox Web 控件的 onfocus 和 onblur 客户端属性，如下所示：

TextBoxControl.Attributes("onfocus") = "this.style.backgroundColor='yellow';" TextBoxControl.Attributes("onblur") = "this.style.backgroundColor='white';"

将客户端代码与客户端事件结合在一起的这种技术通常用于提供丰富的、交互式的用户体验。稍后，我们将会在本文中说明如何使用这种技术来显示基于用户操作的确认对话框。

实现常用客户端功能

在我们研究 ASP.NET 方法（涉及动态地将客户端脚本添加到网页）后，让我们将注意力转移到这个知识。本文的其余部分重点讲述常用客户端任务，例如显示警告框、确认框、弹出窗口等等。具体说来，我们将创建包含一组方法的类，这组方法可用在 ASP.NET 项目中，从而快速、便捷地提供这样的功能。

我们将要分析的、贯穿本文剩余部分的 Visual Basic .NET 代码可以在本文的代码下载中获得。

显示警告框

一个常用的客户端要求就是显示警告框。警告框是一个客户端模式对话框，通常用于为最终用户提供某些重要的信息。警告框的示例如图 1 所示。警告框是通过客户端 JavaScript alert 函数来进行显示的，该函数接受一个单个的参数，即要显示的消息。显示警告框相当简单和直接；实际上，本文前面已经显示了一个示例。

为了使页面开发人员尽可能简单的显示警告框，让我们创建一个名为 ClientSidePage 的类，其中包含一个名为 DisplayAlert(message) 的方法。这个类将会继承 Page 类。想要利用这些客户端 helper 方法的页面开发人员需要使他们的代码隐藏类继承这个 ClientSidePage 类，而不是继承默认的 Page 类。以下代码显示了带有其第一个方法 DisplayAlert 的 ClientSidePage 类。

Public Class ClientSidePage Inherits System.Web.UI.Page Public Sub DisplayAlert(ByVal message As String) RegisterClientScriptBlock(Guid.NewGuid().ToString(), _ "<script language=""JavaScript"">" & GetAlertScript(message) & "</script>") End Sub Public Function GetAlertScript(ByVal message As String) As String Return "alert('" & message.Replace("'", "\'") & "');" End Function End Class

请注意，这个类派生自 System.Web.UI.Page 类。DisplayAlert 方法只是使用 RegisterClientScriptBlock 方法，在警告框中显示提供的 message。由于这个方法可能会由单个页面多次调用，每个调用将使用其密钥的 GUID（是“全局唯一标识符”的首字母缩写）。传递到 alert 函数的字符串会使用撇号分隔，message 中的任意撇号都必须进行转义（JavaScript 将撇号转义为 \'）。

要将这段代码用于 ASP.NET Web 应用程序中，您需要将新类添加到 ASP.NET 应用程序中。在 Visual Studio .NET 中，右键单击解决方案资源管理器中的 ASP.NET Web 应用程序项目名，然后选择添加新类。然后，剪切上述代码并将其粘贴到该类中。接下来，在要利用该代码的 ASP.NET 网页中，您需要修改代码隐藏类，以便它从 ClientSidePage 类而不是从 Page 中继承。以下代码显示了派生自 ClientSidePage 并使用 DisplayAlert 方法的示例代码隐藏类。

Public Class WebForm1 Inherits ClientSidePage Private Sub Page_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load DisplayAlert("Hello, World!") End Sub ... End Class

请注意，ClientSidePage 类不仅具有可以生成完整客户端 <script> 元素的 DisplayAlert 方法，还具有可以返回客户端脚本无 <script> 标记的 GetAlertScript 方法。第二个方法可用于您希望基于某个客户端事件显示警告的情况中。例如，如果您希望在特定文本框接收到焦点的任意时间显示警告，可以将以下代码添加到服务器端代码隐藏类中：

TextBoxControlID.Attributes("onfocus") = GetAlertScript(message)
将焦点设置为页面加载时的窗体字段

您是否注意到当访问 Google 时，焦点自动设置在搜索文本框呢？这一点小的“功能”使得搜索 Google 更快 － 在访问 Google 时您不必再花费时间移动鼠标，然后单击文本框。更确切的说，您只需在页面加载时键入即可。将焦点设置到窗体字段（可以是文本框、单选按钮、复选框或下拉列表）只要求几行客户端 JavaScript 代码。让我们将方法添加到 ClientSidePage 类，该类将在页面加载时自动向指定的 Web 控件中添加焦点。这种方法需要发出如下所示的客户端脚本：

<script language="JavaScript"> function CSP_focus(id) { var o = document.getElementById(id); if (o != null) o.focus(); } </script> ... Form fields ... <input type="..." id="id of element to focus" ... /> ... Form fields ... <script language="JavaScript"> CSP_focus(id of element to focus); </script>

客户端函数 CSP_focus 接受字符串参数，窗体字段的 ID 被设置为焦点，并且从 DOM 中检索 HTML 元素。然后，调用检索元素的 focus() 函数。在网页的底部，在指定所有窗体字段后，我们需要调用 CSP_focus 方法，该方法在想要设置焦点的窗体字段的 ID 中传递。

下面的方法 GiveFocus(Control) 使用 RegisterClientScriptBlock 和 RegisterStartupScript 方法来生成所需要的客户端脚本。

Public Sub GiveFocus(ByVal c As Control) RegisterClientScriptBlock("CSP-focus-function", _ "<script language=""JavaScript"">" & vbCrLf & _ "function CSP_focus(id) {" & _ " var o = document.getElementById(id); " & _ "if (o != null) o.focus(); " & _ "}" & vbCrLf & _ "</script>") RegisterStartupScript("CSP-focus", _ "<script language=""JavaScript"">CSP_focus('" & _ c.ClientID & "');</script>") End Sub

要从其代码隐藏类继承 ClientSidePage 的 ASP.NET 网页中使用 GiveFocus 方法，可以简单地在 Page_Load 事件处理程序中调用 GiveFocus，并传递应该在页面加载时设置其焦点的 Web 控件。例如，要将焦点设置为 TextBox Web 控件 TextBoxControl，请使用以下 Page_Load 事件处理程序：

Private Sub Page_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load GiveFocus(TextBoxControl) End Sub
打开弹出窗口

尽管弹出窗口作为广告发布者的工具在 Internet 上早已臭名昭著，但是很多 Web 应用程序还是因为使用弹出窗口而得到了好处。例如，您想要某个页面在 DataGrid 中显示数据库项目的列表，同时带有可以编辑每个特定项目的链接。不再使用 DataGrid 的内联编辑功能，您可能希望在用户选择编辑 DataGrid 时打开弹出窗口，其中弹出窗口包含带有可编辑 DataGrid 字段的文本框列表。（您希望这么做的一个原因在于可能存在大量的可编辑字段，但是您只想显示 DataGrid 中最适当的字段，因此要消除使用 DataGrid 的内置编辑功能的可能性。）

要显示弹出窗口，请使用 JavaScript 函数 window.open()，它使用很多可选输入参数，其中三个密切相关的参数是：

•

加载弹出窗口的 URL。

•

弹出窗口的字符串名称。

•

弹出窗口的特性，例如高度和宽度、窗口是否可以调整大小等等。

window.open() 函数的完整讨论已经超出了本文的范围；要学习更多内容，请参阅技术文档。

与其他显示警告框的方法相似，ClientSidePage 类包含用于显示弹出窗口的两个方法 － 一个呈现显示窗口的自包含 <script> 块，另一个仅返回 JavaScript 脚本本身。除了打开弹出窗口的方法外，还有一组关闭当前窗口的方法。（可能会出现这样的情况，您希望以编程方式基于某些客户端或服务器端事件来关闭弹出窗口。）

Public Sub DisplayPopup(ByVal url As String, ByVal options As String) RegisterStartupScript(Guid.NewGuid().ToString(), _ "<script language=""JavaScript"">" & _ GetPopupScript(url, options) & _ "</script>") End Sub Public Function GetPopupScript(ByVal url As String, _ ByVal options As String) As String Return "var w = window.open(""" & _ url & """, null, """ & options & """);" End Function Public Sub CloseWindow(Optional ByVal refreshParent As Boolean = False) RegisterClientScriptBlock("CSP-close-popup", _ "<script language=""JavaScript"">" & _ GetCloseWindowScript(refreshParent) & "</script>") End Sub Public Function GetCloseWindowScript(Optional _ ByVal refreshParent As Boolean = False) As String Dim script As String If refreshParent Then script &= "window.opener.location.reload();" End If Return "self.close();" End Function

该代码的执行示例可以在本文的代码下载中找到。同时，您还将发现一个示例网页，它具有一个在与 ASP.NET 网页相同的目录中列出文件的 DataGrid。这个 DataGrid 具有两列：显示超级链接的 TemplateColumn，当单击时打开显示所选文件内容的弹出窗口；以及该文件的名称（如图 3 所示）。


图 3. 带有弹出窗口的 DataGrid

DataGrid 的标记利用 GetPopupScript 方法，如下所示：

<asp:DataGrid id="dgFiles" runat="server" ...> <Columns> <asp:TemplateColumn HeaderText="View"> <ItemTemplate> <a href='javascript:<%# GetPopupScript("ViewFile.aspx?FileName=" & DataBinder.Eval(Container.DataItem, "Name"), "scrollbars=yes,resizable=yes,width=500,height=400") %>'> View File</a> </ItemTemplate> </asp:TemplateColumn> <asp:BoundColumn DataField="Name" HeaderText="Filename"></asp:BoundColumn> </Columns> </asp:DataGrid>

ASP.NET 网页 ViewFile.aspx 打开其名称在 querystring 中指定的文件并显示其内容（如图 4 所示）。


图 4. 在弹出窗口中显示 Web.config 的内容

注 弹出窗口最适用于只有 Intranet 应用程序的情况，因为很多 Internet 用户利用某种弹出阻止软件，例如 Google 工具栏。实际上，利用 Microsoft Windows XP Service Pack 2，Microsoft Internet Explorer 将会在默认情况下配置为阻止弹出窗口。但是，当用户访问受信任站点或本地 Intranet 区域中的站点时，弹出窗口将仍然会出现。有关在 Windows XP Service Pack 2 中阻止 Internet Explorer 弹出窗口功能的详细信息，请务必阅读 Changes to Functionality in Microsoft Windows XP Service Pack 2。

在回发前确认

在本文的前面部分，我们研究了如何显示客户端警告框，这是带有“OK”按钮的模式对话框。JavaScript 提供被称为确认对话框的更具有交互风格的警告框。使用 confirm(message) 函数显示确认对话框并通过 message 输入参数与“OK”和“Cancel”按钮指定显示带有文本的对话框的效果。如果用户单击“OK”，confirm(message) 函数会返回 true；如果他们单击“Cancel”，则返回 false。

通常情况下，确认对话框用于确保用户在提交窗体之前希望继续。当单击 HTML 元素（例如提交按钮）提交窗体时，如果 HTML 元素触发返回 false 的客户端事件处理程序，窗体提交就被取消。通常，确认对话框用于网页中，如下所示：

<form ...> <input type="submit" value="Click Me to Submit the Form" onclick="return confirm('Are you sure you want to submit this form?');" /> </form>

当用户单击“Click Me to Submit the Form”按钮时，他们将会看到确认对话框，询问他们是否确实希望提交该窗体（如图 5 所示）。如果用户单击“OK”，confirm() 将返回 true，该窗体将被提交。但是，如果他们单击“Cancel”按钮，confirm() 将返回 false，该窗体提交将被取消。


图 5. 确认 JavaScript 的结果

设想您具有一个 DataGrid带有标签为“Delete”的一列按钮。在单击该按钮时，该窗体将会回发，并且选定的记录将被删除。在此例中，您可能希望复查用户是否确实希望删除该记录。此时，要使用客户端确认对话框将会非常理想。您可以用对话框提示用户，声明如下所示的内容：“This will permanently delete the record.Are you sure you want to continue?”如果用户单击“OK”，该窗体将会回发，并且记录将被删除；如果他们单击“Cancel”，该窗体将不会回发，而且记录也不会被删除。

要添加在单击按钮后显示确认对话框所必需的客户端 JavaScript，请简单地使用 Attributes 集合来添加客户端 onclick 事件处理程序。具体说来，要将 onclick 事件处理程序代码设置为：return confirm(message);。为了提供 DataGrid 的 ButtonColumn 的这种功能，您需要在 DataGrid 的 ItemCreated 或 ItemDataBound 事件处理程序中以编程方式引用 Button 或 LinkButton 控件，并且在那里设置 onclick 属性。有关详细信息，请参阅 http://aspnet.4guysfromrolla.com/articles/090402-1.aspx。

确认 AutoPostBack DropDownLists

尽管通常在单击按钮时使用确认对话框，但是还可以在更改下拉列表时使用它们。例如，您可能具有一个当特定的 DropDownList Web 控件发生更改时会自动回发的网页。（DropDownList Web 控件具有一个 AutoPostBack 属性，如果设置为 True，只要 DropDownList 的选定项目发生更改就会导致窗体回发。）

直观地讲，您可能认为对 DropDownList 添加确认对话框与对 Button Web 控件添加这种对话框相同。也就是说，简单地将 DropDownList 的客户端 onchange 属性更改为如下内容：return confirm(...);。使用：

DropDownListID.Attributes("onchange") = "return confirm(...);"

遗憾的是，这并不会按期望工作，因为 AutoPostBackDropDownList 的 onchange 属性将设置为会导致回发的 JavaScript，即对客户端 __doPostBack 函数的调用。当您自己借助编程方式设置 onchange 属性时，最后的结果是呈现的客户端 onchange 事件处理程序同时具有您的代码和对 __doPostBack 的调用：

<select onchange="return confirm(...);__doPostBack(...);"> ... </select>

记住，我们确实希望发生的情况是，如果确认返回 true，就调用 __doPostBack 函数，因为之后页面将会被回发。通过利用 Attributes 集合将 onchange 事件设置为：if (confirm(...))，我们可以完成这一操作，而该代码会生成以下标记，该标记正是我们所希望的：

<select onchange="if (confirm(...)) __doPostBack(...);"> ... </select>

乍看起来，这似乎会具有所期望的效果。如果用户从下拉列表中选择不同的项目，将会出现一个确认框。如果用户单击“OK”，该窗体将回发；如果用户单击“Cancel”，该窗体回发会暂停。尽管问题在于下拉列表维持用户选定的项目以启动下拉列表的 onchange 事件。例如，设想下拉列表加载正在进行选择的项目 x，然后用户选择项目 y。这将会触发下拉列表客户端 onchange 事件，它将会显示确认对话框。现在，设想用户点击“Cancel”－ 下拉列表将仍然选择项目 y。我们希望的是将选择转回到项目 x。

要实现此目的，我们需要做两件事情：

1.

编写一个“记住”选定下拉列表项目的 JavaScript 函数。

2.

在下拉列表的客户端 onchange 事件中，如果用户单击“Cancel”，您需要将下拉列表转换回“已记住的”值。

步骤 1 必须为下拉列表和函数（当页面加载时运行，并且记录下拉列表的值）创建全局脚本变量。步骤 2 要求为下拉列表的客户端 onchange 属性更改为如下所示内容：

if (!confirm(...)) resetDDLIndex(); else __doPostBack();

其中 resetDDLIndex 是 JavaScript 函数，它将下拉列表选定的值返回到“已记住的”值。用于此目的的客户端脚本应该如下所示：

<select id="ddlID" onchange="if (!confirm(...)) resetDDLIndex(); else __doPostBack(...);"> ... </select> <script language="JavaScript"> var savedDDLID = document.getElementById("ddlID").value; function resetDDLIndex() { document.getElementById("ddlID").value = savedDDLID; } </script>

通过在 ClientSidePage 类中创建 helper 方法，这个必要的脚本可以轻松地生成。

Public Sub ConfirmOnChange(ByVal ddl As DropDownList, ByVal message As String) 'Register the script block If Not IsStartupScriptRegistered("CSP-ddl-onchange") Then RegisterStartupScript("CSP-ddl-onchange", _ "<script language=""JavaScript"">" & _ "var CSP_savedDDLID = " & _ document.getElementById('" & _ ddl.ClientID & "').value;" & vbCrLf & _ "function resetDDLIndex() {" & vbCrLf & _ " document.getElementById('" & " & _ " ddl.ClientID & "').value = CSP_savedDDLID;" & vbCrLf & _ "}" & vbCrLf & _ "</script>") End If ddl.Attributes("onchange") = _ "if (!confirm('" & message.Replace("'", "\'") & _ "')) resetDDLIndex(); else " End Sub

要使用这段代码，简单地调用网页上每个 AutoPostBackDropDownList 的该方法，当网页上的选定项目发生更改时要在该网页上显示对话框。

未保存而退出时进行确认

在我所创建的大多数每个数据驱动的 Web 应用程序中，始终会有用户可以编辑数据库特定信息的特定页面。非常简单的一个示例是带有一系列 TextBox 和 DropDownList Web 控件的页面，而数据库数据填充在这些控件中。用户可以进行任何适当的修改，然后单击“Save”按钮将他们所做的更改保存到数据库。

当我创建这些页面时，通常会以两个 Button Web 控件来结束页面：“Save”按钮和“Cancel”按钮。“Save”按钮将任意更改保存回数据库，而“Cancel”按钮不保存任何更改退出页面。尽管两个按钮看起来可能是一个完美的设计，但有时用户会在他们想要单击“Save”按钮时意外地单击“Cancel”按钮，这样就会丢失了他们对数据所做的所有更改。为防止这种情况发生，可以在“Cancel”按钮上使用确认框，它只有在网页上的任意文本框或下拉列表发生更改时才会出现。也就是说，如果用户对数据进行了任意更改，然后单击“Cancel”，确认框将会提示他们是否确实要在不保存的情况下退出。（如果用户只是单击“Cancel”，而没有更改任何数据，将不会显示这样的确认框。）

这种用户体验可以通过少量客户端 JavaScript 来实现。基本上可以说，它需要一个 JavaScript 全局变量 isDirty，在初始时为 false，但只要触发窗体字段的 onchange 事件，它就会设置为 true。如果 isDirty 为 true，则还有一个显示确认对话框的 JavaScript 函数。“Cancel”按钮的 onclick 客户端事件处理程序限定为从该 JavaScript 函数返回结果。以下 HTML 说明了这个概念：

<script language="JavaScript"> var isDirty= false; function checkForChange(msg) { if (isDirty) return confirm(msg); else return true; } </script> Name: <input type="text" onchange="isDirty = true;" /> <input type="submit" name="btnSave" value="Save" id="btnSave" /> <input type="submit" name="btnCancel" value="Cancel" id="btnCancel" onclick="return checkForChange('You have made changes to the data since last saving. If you continue, you will lose these changes.');" />

可以通过将该脚本生成移动到 ClientSidePage 类，简单地生成这个脚本。具体说来，我们可以创建下列三个方法：

Protected Sub RegisterOnchangeScript() If Not IsClientScriptBlockRegistered("CSP-onchange-function") Then RegisterClientScriptBlock("CSP-onchange-function", _ "<script language=""JavaScript"">" & _ "var isDirty= false;" & vbCrLf & _ "function CSP_checkForChange(msg) {" & vbCrLf & _ " if (isDirty) return confirm(msg); " & _ "else return true;" & vbCrLf & _ "}" & vbCrLf & _ "</script>") End If End Sub Public Sub MonitorChanges(ByVal c As WebControl) RegisterOnchangeScript() If TypeOf c Is CheckBox Or TypeOf c Is CheckBoxList _ Or TypeOf c Is RadioButtonList Then c.Attributes("onclick") = "isDirty = true;" Else c.Attributes("onchange") = "isDirty = true;" End If End Sub Public Sub ConfirmOnExit(ByVal c As WebControl, ByVal message As String) RegisterOnchangeScript() c.Attributes("onclick") = _ "return CSP_checkForChange('" & message.Replace("'", "\'") & "');" End Sub

要创建表现这个行为的网页，我们只需要将其服务器端代码隐藏类派生自 ClientSidePage，并且在 Page_Load 事件处理程序中，为需要客户端 onchange 事件的每个 Web 控件对 MonitorChanges 进行调用，并且为在单击时应该显示警告用户是否进行更改并退出页面的每个 Button、LinkButton 和 ImageButton，对 ConfirmOnExit 进行调用。

注MonitorChanges 方法使用 onclick 客户端事件，而不是用于 CheckBox、CheckBoxList 和 RadioButtonList Web 控件的 onchange。这是因为这些控件将 <span> 标记或 <table> 限制在复选框或很多复选框或单选按钮附近。在我利用 Internet Explorer 进行测试时，我发现在应用到 <span> 或 <table> 时，选中复选框或单击单选按钮并没有选择 onchange 事件，但是却触发了 onclick 事件。

图 6 显示了带有两个 TextBox Web 控件、一个 DropDownList Web 控件和一个 CheckBox Web 控件的 ASP.NET 网页示例。如下面的 Page_Load 事件处理程序所示，所有这些 Web 控件都会被监视所做的更改。配置“Cancel”按钮 btnCancel，这样如果在进行更改后单击它，将显示一个确认对话框。


图 6. 带有确认的对话框

Public Class ConfirmOnExit Inherits ClientSidePage Private Sub Page_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load 'Specify what controls to check for changes MonitorChanges(name) MonitorChanges(age) MonitorChanges(favColor) MonitorChanges(chkSilly) ConfirmOnExit(btnCancel, _ "You have made changes to the data since last saving." & _ " If you continue, you will lose these changes.") End Sub ... End Class

注客户端 onchange 事件不能用于 Netscape 的旧版本中。同样，Internet Explorer 5.0 的 onchange 事件也具有一些已报告的问题（在 Internet Explorer 5.01 SP 1 中已经修复）。

而且，这种方法将不会像利用 DropDownList Web 控件那样将 AutoPostBack 设置为 True，而是回发将重置 isDirty 的值。这个问题有很多解决方案，例如使用隐藏窗体字段，指示出回发窗体数据是否以 dirty 开始。我将实现这个操作的过程作为练习留给读者。

创建客户端 MessageBox 控件

由于确认对话框是一种防止意外点击的非常好的方法，可以潜在地降低到 Web 服务器的回发数量，有几种特定方案您可能希望显示确认对话框，并且能够在服务器端确定用户是否单击了“OK”或“Cancel”。（记住，对于确认对话框，如果用户单击“Cancel”，该窗体则不会回发。）而且，JavaScript 中的警告和确认框在外观上非常受限。幸运的是，客户端 VBScript 通过其 MsgBox 函数提供了更丰富的消息框体验。

在过去的项目中，我需要客户端模式消息框，无论单击什么按钮，它都可以引起回发。作为响应，我构建了自定义编译的 ASP.NET 服务器控件来满足这些要求。此外，客户端消息框还使用 VBScript 的 MsgBox 函数来提供更丰富的消息框体验。

注 在 Microsoft Internet Explorer 浏览器中，VBScript 只作为客户端脚本编辑语言。要考虑到这一点，如果访问浏览器是 Internet Explorer，那么我的服务器控件只能使用 VBScript。如果是非 Internet Explorer 浏览器，则服务器端控件使用 JavaScript。

对这种自定义服务器控件深入的讨论可以完全保证整个文章的正确性，因此无需将重点放在控件的内部工作原理上，让我们分析如何在 ASP.NET 网页中使用 MessageBox 控件。（控件的完整资源以及使用该控件的示例 ASP.NET 网页都可以从本文的下载中获得。）

要在 ASP.NET 网页中使用 MessageBox 控件，首先要将 MessageBox 控件添加到 Visual Studio .NET 工具箱。通过右键单击工具箱、从工具箱中选择“Add/Remove Items”、然后浏览到 MessageBox 程序集可以实现上述任务。要将客户端消息框添加到网页，只要将其从工具箱拖动到该设计器即可。图 7 显示了 Visual Studio .NET 设计器中的 MessageBox 控件。


图 7. 显示模式消息框

MessageBox 类具有很多可以进行配置的属性，以调整消息框的外观：

•

Buttons. 指定要显示的按钮。ButtonOptions 枚举中定义的选项可以为：OkOnly、OkCancel、AbortRetryIgnore、YesNoCancel、YesNo 或 RetryCancel。

•

DisplayWhenButtonClicked. 点击后将显示客户端消息框的按钮 Web 控件的 ID。如果希望由于点击某个特定按钮而显示消息框，请使用这个属性。

•

Icon. 显示在消息框中的图标；选项定义于 IconOptions 枚举中。有效的值为：Critical、Question、Exclamation 和 Information。

•

Prompt. 显示在消息框中的文本。

•

Title. 消息框的标题。

一旦将 MessageBox 控件添加到 ASP.NET 网页，下一个挑战就是使其根据特定客户端操作进行显示。DisplayWhenButtonClicked 属性允许您指定页面上按钮 Web 控件的 ID点击后将会显示消息框。另外，您还可以通过调用客户端函数 mb_show(id) 来显示消息框，其中 ID 是 MessageBox 控件的 ID。

不管您选择在消息框中显示什么按钮配置，当单击任意按钮时，随后就会发生回发并且触发 MessageBox 控件的 Click 事件。通过在设计器中简单地双击 MessageBox，可以为此事件创建一个事件处理程序。事件处理程序的第二个输入参数是类型 MessageBoxClickedEventArgs，它包含一个返回用户单击消息框按钮的信息的 ButtonClicked 属性。

MessageBox 控件在如下情况下非常有用，当您希望快速为用户提供模式对话框，而不管用户的选择以及回发中的结果。要查看操作中的 MessageBox 控件，请签出源代码下载中的 MsgBoxDemo.aspx 页面。

小结

本文一开始就研究了网页中客户端脚本的常见使用，然后转向分析将客户端脚本插入到 ASP.NET 网页中的方法和技术。正如我们看到的那样，Page 类包含很多旨在借助编程方式从服务器端代码隐藏类插入客户端脚本块的方法。这些方法也常用于自定义编译的服务器控件，请参阅我以前文章中的讨论： Injecting Client-Side Script from an ASP.NET Server Control.

除了添加脚本块外，客户端功能通常必须与由某些 HTML 元素引发的客户端事件结合在一起。要借助编程方式通过服务器端代码隐藏类指定 Web 控件的客户端事件处理程序，请使用 Attributes 集合，它可用作所有 Web 控件的属性。

本文的后半部分应用了前半部分中涉及的内容，显示了如何在 ASP.NET 网页中实现常用客户端功能。我们看到了如何扩展 Page 类，这样我们可以利用代码隐藏类轻松地显示警告框、将页面加载上的焦点设置到特定 Web 控件、如何显示弹出窗口以及如何显示确认对话框。我们还研究了创建自定义服务器控件，它使用 VBScript 来提供更丰富的客户端消息框用户体验，而且无需考虑单击按钮就可以导致回发。

祝大家编程愉快！

特别感谢...

在我将文章提交给 MSDN 编辑之前，有很多志愿者帮助我对本文进行校对并为本文的内容、语法和目的提供了反馈。本文校对过程中的主要贡献者包括 Maxim Karpov、Carlos Santos、Milan Negovan 和 Carl Lambrecht。如果您有兴趣加入到不断增长的校对人员中，请给我发邮件 mitchell@4guysfromrolla.com。

相关书籍 • • •

关于作者

Scott Mitchell 著有五本书，他是 4GuysFromRolla.com 网站的创始人，过去五年来一直从事 Microsoft Web 技术方面的研究。Scott 是一位独立的顾问、培训师和作家。您可以通过 mitchell@4guysfromrolla.com 与作者进行联络，或者通过作者的 blog 进行联络，其网址是：http://ScottOnWriting.NET。

转到原英文页面



天外飞仙 2005-12-08 21:16 发表评论
]]>在Asp.net中如何关闭网页,另外如何使文本框获得焦点(只适用于C#)http://www.blogjava.net/songfei/articles/22980.html天外飞仙天外飞仙Thu, 08 Dec 2005 06:52:00 GMThttp://www.blogjava.net/songfei/articles/22980.htmlhttp://www.blogjava.net/songfei/comments/22980.htmlhttp://www.blogjava.net/songfei/articles/22980.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22980.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22980.html补充一下 开始先导入 nam......
补充一下 开始先导入
namespace
using System.Text;
using System.Web.UI;

在web 页面中
通过调用Focus类中的方法实现获取焦点的目的 可以放在Page_Load(，）中实现 也可以在Button_click事件中实现
我用的是Button_Click时间
代码如下
//TextBox1是要获得焦点的控件的ID
Focus.SetEnterControl(this.TextBox1);
Focus.SetFocus(TextBox1.Page,"TextBox1");

好了 你自己试试看吧


关闭网页调用javascrip......
关闭网页调用javascript
<script lang="text/javascript">
window.close();
</script>
获得焦点 在C＃中新建一个类
例如：
sing System;
using System.Text;
using System.Web;
using System.Web.UI;
namespace Application
{
/// <summary>
/// 获取焦点类
/// </summary>
public class Focus
{
public Focus()
{
}
//设置成一个静态的方法，这样在使用的时候不用创建一个实例对象，直接采用Focus.SetFocus(this, "Button2")的形式进行调用。
public static void SetFocus(System.Web.UI.Page page, String m_focusedControl)
{
//如果控件名称为空，则返回
if(m_focusedControl == "")
return;
//添加脚本以声明函数
StringBuilder sb = new StringBuilder("");
sb.Append("<script language=javascript>");
sb.Append("function ");
sb.Append("setFocusFunctionName");
sb.Append("(ctl) {");
sb.Append("if(document.forms[0][ctl] != null) ");//如果不为空，则设置焦点，这里调用的Javascript里面的方法
sb.Append(" document.forms[0][ctl].focus();" );
sb.Append("}");

//添加脚本以调用函数
sb.Append("setFocusFunctionName");
sb.Append("('");
sb.Append(m_focusedControl);
sb.Append("');");
sb.Append("</");
sb.Append("script>");

if (!page.IsStartupScriptRegistered("SetFocusScriptName")) 
page.RegisterStartupScript("SetFocusScriptName", sb.ToString());//将这段javascript代码写到页面中去
}
/// <summary> 
/// 设置在页面回车时触发事件的控件 
/// </summary> 
/// <param name="Ctrl">将触发事件的控件对象</param> 
public static void SetEnterControl(System.Web.UI.Control Ctrl) 
{ 
Page mPage = Ctrl.Page; 
string mScript; 
mScript = @"<script language=""javascript""> 
function document.onkeydown() 
{ 
var e = event.srcElement; 
var k = event.keyCode; 
if (k == 13 && e.type != ""textarea"") 
{ 
document.all." + Ctrl.ClientID + @".click(); 
event.cancelBubble = true; 
event.returnValue = false; 
} 
} 
</script>"; 
if(!mPage.IsClientScriptBlockRegistered("SetEnterControl")) 
mPage.RegisterClientScriptBlock("SetEnterControl",mScript); 
}
}
}

实际上就是在codebehide 调用javascript 来袮补C＃ 中不能获得焦点不足
请多指教啊  多多交流啊


天外飞仙 2005-12-08 14:52 发表评论
]]> Control study -> Drag拖放事件示例 http://www.blogjava.net/songfei/articles/22976.html天外飞仙天外飞仙Thu, 08 Dec 2005 06:25:00 GMThttp://www.blogjava.net/songfei/articles/22976.htmlhttp://www.blogjava.net/songfei/comments/22976.htmlhttp://www.blogjava.net/songfei/articles/22976.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22976.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22976.html 

(一).功能描述

   涉及到DragEnter DragDrop DragLeave DragOver QueryContinueDrag事件用法的一个例子

(二).代码

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;

namespace 拖放数据操作_按键事件_
{
 /// <summary>
 /// Form1 的摘要说明。
 /// </summary>
 public class Form1 : System.Windows.Forms.Form
 {
  private System.Windows.Forms.Button button1;
  private System.Windows.Forms.TextBox textBox1;
  /// <summary>
  /// 必需的设计器变量。
  /// </summary>
  private System.ComponentModel.Container components = null;

  public Form1()
  {
   //
   // Windows 窗体设计器支持所必需的
   //
   InitializeComponent();

   //
   // TODO: 在 InitializeComponent 调用后添加任何构造函数代码
   //
  }

  /// <summary>
  /// 清理所有正在使用的资源。
  /// </summary>
  protected override void Dispose( bool disposing )
  {
   if( disposing )
   {
    if (components != null)
    {
     components.Dispose();
    }
   }
   base.Dispose( disposing );
  }

  #region Windows 窗体设计器生成的代码
  /// <summary>
  /// 设计器支持所需的方法 - 不要使用代码编辑器修改
  /// 此方法的内容。
  /// </summary>
  private void InitializeComponent()
  {
   this.button1 = new System.Windows.Forms.Button();
   this.textBox1 = new System.Windows.Forms.TextBox();
   this.SuspendLayout();
   //
   // button1
   //
   this.button1.Location = new System.Drawing.Point(112, 72);
   this.button1.Name = "button1";
   this.button1.TabIndex = 0;
   this.button1.Text = "button1";
   this.button1.QueryContinueDrag += new System.Windows.Forms.QueryContinueDragEventHandler(this.button1_QueryContinueDrag);
   this.button1.MouseDown += new System.Windows.Forms.MouseEventHandler(this.button1_MouseDown);
   //
   // textBox1
   //
   this.textBox1.AccessibleDescription = "aaaaa";
   this.textBox1.AccessibleName = "bbbbbb";
   this.textBox1.AllowDrop = true;
   this.textBox1.Location = new System.Drawing.Point(64, 160);
   this.textBox1.Multiline = true;
   this.textBox1.Name = "textBox1";
   this.textBox1.Size = new System.Drawing.Size(168, 48);
   this.textBox1.TabIndex = 1;
   this.textBox1.Text = "";
   this.textBox1.DragOver += new System.Windows.Forms.DragEventHandler(this.textBox1_DragOver);
   this.textBox1.DragDrop += new System.Windows.Forms.DragEventHandler(this.textBox1_DragDrop);
   this.textBox1.DragEnter += new System.Windows.Forms.DragEventHandler(this.textBox1_DragEnter);
   this.textBox1.DragLeave += new System.EventHandler(this.textBox1_DragLeave);
   //
   // Form1
   //
   this.AutoScaleBaseSize = new System.Drawing.Size(6, 14);
   this.ClientSize = new System.Drawing.Size(292, 266);
   this.Controls.Add(this.textBox1);
   this.Controls.Add(this.button1);
   this.Name = "Form1";
   this.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen;
   this.Text = "Form1";
   this.ResumeLayout(false);

  }
  #endregion

  /// <summary>
  /// 应用程序的主入口点。
  /// </summary>
  [STAThread]
  static void Main()
  {
   Application.Run(new Form1());
  }

  private void button1_QueryContinueDrag(object sender, System.Windows.Forms.QueryContinueDragEventArgs e)
  {
   if(e.EscapePressed)
    e.Action=DragAction.Cancel;
  }

  private void button1_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e)
  {
   button1.DoDragDrop(button1.Text,DragDropEffects.Copy|DragDropEffects.Move);
  }

  private void textBox1_DragEnter(object sender, System.Windows.Forms.DragEventArgs e)
  {
   if(e.Data.GetDataPresent(DataFormats.Text))
    e.Effect=DragDropEffects.Copy;
   else
    e.Effect=DragDropEffects.None;
  }

  private void textBox1_DragDrop(object sender, System.Windows.Forms.DragEventArgs e)
  {
   //使用KeyState属性
   if((e.KeyState&(1<<3))!=0)
   {
    if((e.AllowedEffect&DragDropEffects.Copy)!=0)
    {
     e.Effect=DragDropEffects.Copy;
     textBox1.Text=e.Data.GetData(DataFormats.Text).ToString();
    }
   }
   else
   {
    e.Effect=DragDropEffects.Move;
    textBox1.Text=e.Data.GetData(DataFormats.Text).ToString();
   }
  }

  private void textBox1_DragLeave(object sender, System.EventArgs e)
  {
   textBox1.Text="执行 DragLeave";
  }

  private void textBox1_DragOver(object sender, System.Windows.Forms.DragEventArgs e)
  {
   textBox1.Text="执行 DragOver";
  }
 }
}
 



天外飞仙 2005-12-08 14:25 发表评论
]]>C#+ASP.NET+Oracle时积累的备忘点滴之二 http://www.blogjava.net/songfei/articles/22974.html天外飞仙天外飞仙Thu, 08 Dec 2005 06:18:00 GMThttp://www.blogjava.net/songfei/articles/22974.htmlhttp://www.blogjava.net/songfei/comments/22974.htmlhttp://www.blogjava.net/songfei/articles/22974.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22974.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22974.html阅读全文

天外飞仙 2005-12-08 14:18 发表评论
]]>正则表达的写法http://www.blogjava.net/songfei/articles/22973.html天外飞仙天外飞仙Thu, 08 Dec 2005 06:15:00 GMThttp://www.blogjava.net/songfei/articles/22973.htmlhttp://www.blogjava.net/songfei/comments/22973.htmlhttp://www.blogjava.net/songfei/articles/22973.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22973.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22973.html正则表达的写法是：
static bool IsNumeric(string str) 
{  
   System.Text.RegularExpressions.Regex reg1 
       = new System.Text.RegularExpressions.Regex(@"^[-]?\d+[.]?\d*$");  
   return reg1.IsMatch(str); 
} 



天外飞仙 2005-12-08 14:15 发表评论
]]>在.NET中获取一台电脑名，IP地址及当前用户名http://www.blogjava.net/songfei/articles/22972.html天外飞仙天外飞仙Thu, 08 Dec 2005 06:09:00 GMThttp://www.blogjava.net/songfei/articles/22972.htmlhttp://www.blogjava.net/songfei/comments/22972.htmlhttp://www.blogjava.net/songfei/articles/22972.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22972.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22972.html　在.NET中获取一台电脑名，IP地址及当前用户名是非常简单，以下是我常用的几种方法,如果大家还有其他好的方法，可以回复一起整理：
      　　1. 在ASP.NET中专用属性：
      　　获取服务器电脑名：Page.Server.ManchineName
      　　获取用户信息：Page.User
      　　获取客户端电脑名：Page.Request.UserHostName
      　　获取客户端电脑IP：Page.Request.UserHostAddress
      　　2. 在网络编程中的通用方法：
      　　获取当前电脑名：static System.Net.Dns.GetHostName()
      　　根据电脑名取出全部IP地址：static System.Net.Dns.Resolve(电脑名).AddressList
      　　也可根据IP地址取出电脑名：static System.Net.Dns.Resolve(IP地址).HostName
      　　3. 系统环境类的通用属性：
      　　当前电脑名：static System.Environment.MachineName
      　　当前电脑所属网域：static System.Environment.UserDomainName
      　　当前电脑用户：static System.Environment.UserName

              举例子来说明:

              using System.Net;
              private void ButtonIP_Click(object sender, System.EventArgs e)
              { 
                  System.Net.IPAddress[] addressList = Dns.GetHostByName(Dns.GetHostName()).AddressList;
                  if (addressList.Length>1)
                  {   
                      TextLIP.Text = addressList[0].ToString();
                      TextSIP.Text = addressList[1].ToString();
                  }
                 else
                 { 
                      TextLIP.Text = addressList[0].ToString();
                      TextSIP.Text = "没有可用的连接";
                 }
             }



天外飞仙 2005-12-08 14:09 发表评论
]]> ADO.NET 2.0 Dataset和Datatable 新功能新特性 http://www.blogjava.net/songfei/articles/22971.html天外飞仙天外飞仙Thu, 08 Dec 2005 06:05:00 GMThttp://www.blogjava.net/songfei/articles/22971.htmlhttp://www.blogjava.net/songfei/comments/22971.htmlhttp://www.blogjava.net/songfei/articles/22971.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22971.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22971.html1.新的索引引擎更快的执行效率
   下面这段代码在2003中需要157秒，在2005中只要11秒就可以完成：

DataSet ds = new DataSet();

            ds.Tables.Add("BigTable");
            ds.Tables[0].Columns.Add("ID", Type.GetType("System.Int32"));
            ds.Tables[0].Columns["ID"].Unique = true;
            ds.Tables[0].Columns.Add("Value", Type.GetType("System.Int32"));

            Cursor.Current = Cursors.WaitCursor;

            DateTime datBegin = DateTime.Now;

            Random rand = new Random();
            int i, intValue;
            DataRow dr;

            for (i = 1; i <= 500000; i++)
            {
                try
                {
                    intValue = rand.Next();

                    dr = ds.Tables[0].NewRow();

                    dr["ID"] = intValue;
                    dr["Value"] = intValue;

                    ds.Tables[0].Rows.Add(dr);
                }
                catch { }
            }

            Cursor.Current = Cursors.Default;

            MessageBox.Show("Elapsed Time: " + (DateTime.Now - datBegin).Seconds.ToString());
            MessageBox.Show("count = " + ds.Tables[0].Rows.Count.ToString());
2.Dataset可以序列化为二进制文件
 string connstr = "server=(local);database=northwind;integrated security=true;async=true";

            DataSet ds = new DataSet();
            SqlDataAdapter dadpt = new SqlDataAdapter("select * from [order details]", connstr);
            dadpt.Fill(ds);

            BinaryFormatter bf = new BinaryFormatter();
            FileStream fs = new FileStream(@"c:\xml1.txt",FileMode.OpenOrCreate);

            ds.RemotingFormat = SerializationFormat.Binary;

            bf.Serialize(fs,ds);     
3.更独立的Datatable
  DataTable Write XML
 string connstr = "server=(local);database=northwind;integrated security=true;async=true";
            SqlDataAdapter dadpt = new SqlDataAdapter("select * from [order details]", connstr);
            DataTable dt = new DataTable("Customer");
            dadpt.Fill(dt);

            dt.WriteXml(@"c:\DataTable.xml",true);
            dt.WriteXmlSchema(@"c:\DataTableSchema.xml");
   DataTable Read XML
 StreamReader sr = new StreamReader(@"C:\DataTableSchema.xml");

            DataTable dt = new DataTable();
            dt.ReadXmlSchema(sr);

            dt.ReadXml(new StreamReader(@"c:\dataTable.xml"));

            this.dataGridView1.DataSource = dt;
    DataTable Merge
 string connstr = "server=(local);database=northwind;integrated security=true;async=true";
            SqlDataAdapter dadpt = new SqlDataAdapter("select * from customers", connstr);
            DataTable dt = new DataTable("Customer");
            dadpt.Fill(dt);

            SqlDataAdapter dadpt1 = new SqlDataAdapter("select * from customers", connstr);
            DataTable dt1 = new DataTable("Customer1");
            dadpt1.Fill(dt1);

            dt.Merge(dt1);

            this.dataGridView1.DataSource = dt;
  DataTable Load DataReader
 string connstr = "server=(local);database=northwind;integrated security=true;async=true";
            SqlConnection conn = new SqlConnection(connstr);
            conn.Open();
            SqlCommand cmd = new SqlCommand("select * from [order details]", conn);
            SqlDataReader dr = cmd.ExecuteReader();

            DataTable dt = new DataTable("Customer");
            dt.Load(dr);

            this.dataGridView1.DataSource = dt;


天外飞仙 2005-12-08 14:05 发表评论
]]>ASP.NET程序中常用代码汇总http://www.blogjava.net/songfei/articles/22970.html天外飞仙天外飞仙Thu, 08 Dec 2005 05:56:00 GMThttp://www.blogjava.net/songfei/articles/22970.htmlhttp://www.blogjava.net/songfei/comments/22970.htmlhttp://www.blogjava.net/songfei/articles/22970.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22970.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22970.html阅读全文

天外飞仙 2005-12-08 13:56 发表评论
]]>操作Excelhttp://www.blogjava.net/songfei/articles/22968.html天外飞仙天外飞仙Thu, 08 Dec 2005 05:51:00 GMThttp://www.blogjava.net/songfei/articles/22968.htmlhttp://www.blogjava.net/songfei/comments/22968.htmlhttp://www.blogjava.net/songfei/articles/22968.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22968.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22968.html 

(一).内容

   在操作Excel的过程中遇到了一些问题. 比如： 访问Com组件权限，无法读取Excel等
   文章描述了怎样双向操作(读取和生成)Excel文件，以及怎样解决遇到的问题!

(二).代码
   开始时用了下面两个方法进行生成和读取 Excel:
   1.生成Excel文件方法一:
      ' <summary>
    '  下载Excel方法1(用流实现)
    ' </summary>
    ' <param name="dt">要转换为Excel文件的表</param>
    ' <param name="page">页面Page对象,用法: 将me.Page传递过来即可</param>
    Public Sub DownLoadExcelToClient1(ByVal dt As DataTable, ByVal FileName As String)
        Dim resp As HttpResponse
        resp = Page.Response
        resp.ContentEncoding = System.Text.Encoding.Default

'System.Text.Encoding.GetEncoding("GB2312")
        resp.AppendHeader("Content-Disposition", "attachment;filename=" + FileName)
        Dim colHeaders As String = "", ls_item = ""
        Dim i As Int16 = 0

        '取得数据表各列标题，各标题之间以\t分割，最后一个列标题后加回车符
        For i = 0 To dt.Columns.Count - 2
            colHeaders += dt.Columns(i).Caption.ToString() & Chr(9)
        Next
        colHeaders += dt.Columns(i).Caption.ToString() & Chr(13)
        '向HTTP输出流中写入取得的数据信息
        resp.Write(colHeaders)

        Dim row As DataRow
        '逐行处理数据  
        For Each row In dt.Rows
            '在当前行中，逐列获得数据，数据之间以\t分割，结束时加回车符\n
            For i = 0 To dt.Columns.Count - 2
                ls_item &= row(i).ToString() & Chr(9)
            Next i
            ls_item &= row(i).ToString() & Chr(13)

            '当前行数据写入HTTP输出流，并且置空ls_item以便下行数据    
            resp.Write(ls_item)
            ls_item = ""
        Next
        '写缓冲区中的数据到HTTP头文件中
        resp.End()
    End Sub
   2.读取Excel文件
     ' <summary>
    '  读取Excel文件
    ' </summary>
    ' <param name="dt">要转换为Excel文件的表</param>
    ' <param name="page">页面Page对象,用法: 将me.Page传递过来即可</param>
    ' <return>数据集DataSet</return>
    Public Function ReadExcelFileToDataSet(ByVal strFileName As String) As DataSet
        Try

            '建立一个专门存放Excel文件的目录
            If Directory.Exists(Page.Server.MapPath("ExcelFolder")) = False Then
                Directory.CreateDirectory(Page.Server.MapPath("ExcelFolder"))
            End If

            Dim strConn As String
            strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &

Page.Server.MapPath(".") & "\ExcelFolder\" & strFileName & ";" & "Extended

Properties=Excel 8.0;"
            Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(strConn)
            Dim strExcel As String = "select * from [sheet1$]"
            Dim ds As DataSet = New DataSet
            conn.Open()
            Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(strExcel, strConn)
            adapter.Fill(ds)
            Return ds
        Catch ex As Exception
            Throw ex
        End Try
    End Function

   生成是成功的，但读取不成功，提示:"数据源格式有误!"
   一直是认为:ReadExcelFileToDataSet方法有误,调试了半天，找了N多资料也不能成功!
   后来经过"时间的流逝",终久确认第二个方法没有错误，是完全正确的，是第一个方法
   生成格式的问题. 于是我将第一个方法换为下面的方法,读取和写入就OK了.
 
 3.生成Excel文件方法二:
     ' <summary>
    '  下载Excel方法2(用office-Excel-Com组件对象实现)
    ' </summary>
    ' <param name="dt">要转换为Excel文件的表</param>
    ' <param name="page">页面Page对象,用法: 将me.Page传递过来即可</param>
    Public Sub DownLoadExcelToClient2(ByVal dt As DataTable)
        '生成Excel操作相关对象
        Dim xlApp As Excel.Application
        Dim xlBook As Excel.Workbook
        Dim xlSheet As Excel.Worksheet
        xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
        xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
        xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet)


        'xlSheet.Range("A1:B1").Merge(0) '合并单元格
        'xlSheet.Cells(1, 1) = "员工资料信息:"

        '赋标题(Excel文件中的标题)
        Dim rowIndex As Integer = 2
        Dim colIndex As Integer = 0
        Dim Col As DataColumn
        Dim Row As DataRow
        For Each Col In dt.Columns
            colIndex = colIndex + 1
            xlApp.Cells(rowIndex, colIndex) = Col.ColumnName
        Next

        '将表dt的所有行写入xlApp对象(Excel文件中的内容)
        For Each Row In dt.Rows
            rowIndex = rowIndex + 1
            colIndex = 0
            For Each Col In dt.Columns
                colIndex = colIndex + 1
                xlApp.Cells(rowIndex, colIndex) = Row(Col.ColumnName)
            Next
        Next

        xlSheet.Application.Visible = True   '置为可见

        '建立一个专门存放Excel文件的目录
        If Directory.Exists(Page.Server.MapPath("ExcelFolder")) = False Then
            Directory.CreateDirectory(Page.Server.MapPath("ExcelFolder"))
        End If

        '删除服务端临时文件: download.xls
        If File.Exists(Page.Server.MapPath(".") & "\ExcelFolder\download.xls") = True Then
            File.Delete(Page.Server.MapPath(".") & "\ExcelFolder\download.xls")
        End If

        '在服务端保存download.xls
        xlSheet.SaveAs(Page.Server.MapPath(".") & "\ExcelFolder\download.xls")

        '杀死Excel进程
        Dim myproc As System.Diagnostics.Process = New System.Diagnostics.Process
        Dim proc As Process
        Dim procs() As Process = Process.GetProcessesByName("excel")   '得到所有打开的进程
        Try
            For Each proc In procs
                If Not proc.CloseMainWindow() Then
                    proc.Kill()
                End If
            Next
        Catch
        End Try

        '这里用到个goto语句,是因为: 线程是异步执行的,下面的代码要访问download.xls文件,但有

少数情况下上面的线程
        '未能及时释放download.xls文件的指针,那么下面代码执行语句时会抛出异常, 当发生异常时

需要等待资源释放后,
        '再重新访问该文件, 保证下载文件能够正确下载
again:  Try
            '输出到客户端()
            If File.Exists(Page.Server.MapPath(".") & "\ExcelFolder\download.xls") Then
                Dim TargetFile As FileInfo = New FileInfo(Page.Server.MapPath(".") &

"\ExcelFolder\download.xls")
                '清除缓冲区流中的所有内容输出.
                Page.Response.Clear()
                '向输出流添加HTTP头 [指定下载/保存 对话框的文件名]
                Page.Response.AppendHeader("Content-Disposition", "attachment; filename="

+ Page.Server.UrlEncode(TargetFile.Name))
                '向输出流添加HTTP头 [指定文件的长度,这样下载文件就会显示正确的进度
                Page.Response.AppendHeader("Content-Length", TargetFile.Length.ToString())
                '表明输出的HTTP为流[stream],因此客户端只能下载.
                Page.Response.ContentType = "application/octet-stream"
                '发送文件流到客户端.
                Page.Response.WriteFile(TargetFile.FullName)
                '停止执行当前页
                Page.Response.End()
            End If
        Catch
            Thread.Sleep(10)
            GoTo again
        End Try
    End Sub
这说明：
    a. 生成Excel文件后，用户经过修改，还要反向读取此Excel文件(比如:反向更新到数据库中)
       就只能用: 3 和 2方法结合使用. 
    b. 如果只是单向输出Excel文件，用1和2方法都可以. 不过用2的话还要安装Office-Excel,
       一般还要设置一下Com组件访问权限,添加对Com组件的引用: 添加: 引用->com->Microsoft Excel 11.0 object Library

(三).不能读取的原因 以及 权限问题解决

  a. 原因是:  方法 1 是用流的格式实现的,简单的说它不是真正的Excel格式，而 3 是调用的
     Excel Com组件，生成的是真正的Excel文档,所以能读取(1也可以读取，但也要用Stream类读取，

    如果数据有些复杂的话，会很麻烦).  用1和3方法生成的文件及文件图标一模一样，并且用Excel 

    应用程序打开后显示效果也是一样的.  但当用记事本分别打开1和3生成的*.xls文件时，就明
     显看到它们的不同了.(您可以下载一下本示例代码程序，分别生成两个文件，对比一下)

  b.在使用Excel com组件时除了装Office-Excel以外，一般还要设置一下Com的访问权限，步骤如下: 
     I.如果是Window2003 ->控制面版 -> 管理工具 -> 组件服务 ->
       打开树级目录找到子目录DCOM配置 -> Microsoft Excel 应用程序
       -> 右击选“属性” -> 在弹出对话窗口中选“安全”选项卡->
       -> 将启动和激活权限设为自定义->点击编辑按钮->
       ->在新窗口中将Everyone用户加入,选中复选框"启动权限",给予启动权限

     II.如果是WindowXP ->控制面版 -> 管理工具 -> 组件服务(繁体为"元件服务") ->
       打开树级目录找到子目录DCOM配置 -> Microsoft Excel 应用程序
       -> 右击选“属性” -> 在弹出对话窗口中选“安全”选项卡->
       -> 将启动和激活权限设为自定义->点击编辑按钮->
       ->在新窗口中将Everyone用户加入,选中复选框"远程启动",给予远程启动权限
(四).使用Excel模板
       虽然Com组件功能已经比较全面，可以对任意一个单元格设置和赋值.但是如果数据集DataSet比

   较复杂的话，全部用Com提供的方法实现就很麻烦了. 尤其是文档头和尾最难处理.
    这时可以这样处理:
    a.先用Excel应用程序建立一个Excel文件，设置好头/尾样式和以及所有单元格的布局和格式
      (这里就是作用office 家簇的 excel进行表格布局，可以任意操作)   
    b.将此文件保存到工程的一个文夹下面即可.
      用法:
      只需将2中的:
        xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
           改为: 
        xlBook = xlApp.Workbooks.Add(page.MapPath(".") + "ExcelTemplate.xls")'使用現有模板
      即可。 这样xlBook实际上是基于自己创建的模板的.
    这样操作，一般表头和标题列，表尾列一般不用设置，只显示DataSet中的主要数据(甚至也不用显

   示DataSet列名)

    最近给客户做一些Excel报表,我们是这样做的，直接把客户给的Excel需求文件作为了模板.
    非常简便，更爽的是这样做报表跟客户要求的完全相同。

(五).代码示例下载

   http://www.cnblogs.com/Files/ChengKing/OPExcel.rar

 此示例在配置环境:   WinXP(繁体) VS.net 2002    WinXP(简体) Vs.net 2003 

                                    Win2003 VS.net 2003  测试能够正确运行!

相关文章:

http://blog.joycode.com/ghj/archive/2005/01/12/42861.aspx
http://cnbie.net/print_146048m63657.html
http://blog.csdn.net/net_lover/archive/2004/06/08/6963.aspx
http://dotnet.aspx.cc/ShowDetail.aspx?id=4EB79F05-B9A4-4E8A-836F-864393F40405
http://dotnet.aspx.cc/ShowDetail.aspx?id=6AFBF00B-459D-4642-AD14-8A4765FFAFCC
http://dotnet.aspx.cc/ShowDetail.aspx?id=8A4CBF47-B888-4832-3389-ED3A3A3C8AAB
http://support.microsoft.com/kb/317881/EN-US/
http://study.99net.net/study/program/vb/1049955696.html


      



天外飞仙 2005-12-08 13:51 发表评论
]]>在vb.net中实现窗体上回车键代替TAB键http://www.blogjava.net/songfei/articles/22967.html天外飞仙天外飞仙Thu, 08 Dec 2005 05:47:00 GMThttp://www.blogjava.net/songfei/articles/22967.htmlhttp://www.blogjava.net/songfei/comments/22967.htmlhttp://www.blogjava.net/songfei/articles/22967.html#Feedback1http://www.blogjava.net/songfei/comments/commentRss/22967.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22967.html 

在vb.net中实现窗体上回车键代替TAB键，用如下方法：

首先设置窗体的 KeyPreview  属性为true

然后加入以下代码：

Private Sub FrmLogin_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        '用回车代替Tab
        If e.KeyChar = Chr(13) Then
            e.Handled = True
            SendKeys.Send("{TAB}")
        End If
    End Sub




天外飞仙 2005-12-08 13:47 发表评论
]]>VB代码word,excelhttp://www.blogjava.net/songfei/articles/22731.html天外飞仙天外飞仙Tue, 06 Dec 2005 07:51:00 GMThttp://www.blogjava.net/songfei/articles/22731.htmlhttp://www.blogjava.net/songfei/comments/22731.htmlhttp://www.blogjava.net/songfei/articles/22731.html#Feedback1http://www.blogjava.net/songfei/comments/commentRss/22731.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22731.html
8月3日
这些VBA代码会有用
QQ:有没有办法得到一个excle表的行的总数和列的总数？？
AA:
xlSheet.UsedRange.Rows.Count
xlSheet.UsedRange.Cols.Count

QQ:
如何打开一个word的模板！
最近做一个word的模板程序，打开word是Set NewDoc = MyWord.Documents.Add
这是一个新的doc,名字叫文档1（后面会累加，自动的），但是现在我希望直接新建打开一个我写好的模板程序，名字还是叫文档1。请问应该怎么写！
AA:
On Error Resume Next '忽略错误
Set Wrd = GetObject(, "Word.Application") '查找一个正在运行的Word拷贝
If Err.Number <> 0 Then '如果 Word 没有运行则
Set Wrd = CreateObject("Word.Application") '运行它
End If
Err.Clear '清除发生错误的 Err 对象
On Error GoTo 0 '保留普通错误进程

Dim dot As String
Dim doc As String
Wrd.Visible =true
dot = "C:\temp.dot"
doc = "c:\temp.doc"
Documents.Open FileName:=dot, _
ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
0
Wrd.ActiveDocument.Close
Wrd.Documents.Add Template:=dot, NewTemplate:=False

'结果系列操作
ActiveDocument.SaveAs FileName:=doc, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
'打印出来
ActiveDocument.PrintOut FileName:=doc, Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Wrd.ActiveDocument.Close

WORD中打字
Selection.TypeText Text:="您好，先生"

如何让Word的保存命令调用我自己编写的保存方法？
在doc文档被修改以后，在退出的时候当提示用户文档已经修改，问是否保存
和直接点击保存按钮的时候，能否让Word去调用我自己编写的SaveDoc方法，
如何实现？
创建名为“FileSave”的宏，把你的代码写入在这个宏中。当点击“保存”按钮或退出程序要求“保存”时，都会直接执行你的“FileSave”宏，而不再执行Word的内置命令。


怎么样判断Word文档中有没有图片?
Word里的图片包括两种（据我所知），楼上的漏掉了InlineShapes
If ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count > 0 Then
MsgBox "esit"
Else
MsgBox "Document doesn't contain a shape"
End If


QQ：怎样在程序中把图片写入到ｗｏｒｄ中。
AA：
功能是：在指定位置插入图片并设置图片的格式（包括设置为衬托于文字下　　　　方）
Sub 设置图片格式()
Selection.InlineShapes.AddPicture FileName:="D:\Mypicture\800x600.jpg", _
LinkToFile:=False, SaveWithDocument:=True
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InlineShapes(1).ConvertToShape.Select
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 361.4
Selection.ShapeRange.Width = 481.6
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
Selection.ShapeRange.PictureFormat.CropLeft = 0#
Selection.ShapeRange.PictureFormat.CropRight = 0#
Selection.ShapeRange.PictureFormat.CropTop = 0#
Selection.ShapeRange.PictureFormat.CropBottom = 0#
Selection.ShapeRange.RelativeHorizontalPosition = _
wdRelativeHorizontalPositionColumn
Selection.ShapeRange.RelativeVerticalPosition = _
wdRelativeVerticalPositionPage
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter
Selection.ShapeRange.LockAnchor = False
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapBoth
Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0)
Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32)
Selection.ShapeRange.WrapFormat.Type = 3
‘实际上真正有用的是下面的语句设置图片为衬托于文字下方
Selection.ShapeRange.ZOrder msoSendBehindText
End Sub

QQ：有没有方法，把一个word文件，按编号返回一段一段的段落文章。
比如
1 XXXX
1.1 YYYY
1.1.1 ZZZZ
QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
1.1.2 SSSS
PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP

能够返回 一个编号对应的一个标题和一段话。
谢谢
AA：
加载Microsoft Word 9.0 Object Library
Dim dcApp As Word.Application
Dim dcWd As Word.Document

Private Sub Form_Load()
Set dcApp = New Word.Application
Set dcWd = dcApp.Documents.Open("c:\rpt.doc")

For i = 1 To dcWd.Paragraphs.Count
Debug.Print dcWd.Paragraphs(i).Range.Text
Next


dcWd.Close
Set dcWd = Nothing
dcApp.Quit
Set dcApp = Nothing
End Sub

QQ：如何用vb实现在word的bookmark后插入字符
在word模版中指定了boolmark:a,
Dim wrdapp As Word.Application
Dim wrddoc As Word.Document
Dim strFileName As String
Dim i As Variant
dim s as string

s="要插入的字符"
Set wrdapp = CreateObject("Word.Application")
strFileName = App.Path & "\temp.dot"
Set wrddoc = wrdapp.Documents.Open(strFileName)
i = wrddoc.Range.GoTo(wdGoToBookmark, , , "a")
后面该如何写，才能将s插入到bookmark后面？另外我上面的代码正确吗？谢谢
？？？？？？？？？？？？？？


QQ： VBA:在word文档中搜索单词“审稿人”，将光标移到它后面，插入图片？怎么实现！！！
我现在可以打开文件和插入图片了，就是没有搜索单词、移动光标、插入指定大小的图片的功能，那位老大出来指点指点呀？

我的代码如下：
Option Explicit
Dim Doc As New Document
Dim Visi As Boolean
Dim wordApp As Word.Application
Dim docWord As Word.Document
Private Sub Command2_Click()
Set wordApp = New Word.Application
Set docWord = Word.Documents.Open("D:\test.doc")
ActiveDocument.Shapes.AddPicture ("d:\shan.jpg")
docWord.Save
docWord.Close
wordApp.Application.Quit（）
End Sub
AA：
wordApp.Find.ClearFormatting

wordApp.Find.Text = "审稿人"
wordApp.Find.Replacement.Text = ""
wordApp.Find.Forward = True
wordApp.Find.Wrap = wdFindContinue
wordApp.Find.Format = False
wordApp.Find.MatchCase = False
wordApp.Find.MatchWholeWord = False
wordApp.Find.MatchByte = True
wordApp.Find.CorrectHangulEndings = False
wordApp.Find.MatchAllWordForms = False
wordApp.Find.MatchSoundsLike = False
wordApp.Find.MatchWildcards = False
wordApp.Find.MatchFuzzy = False

wordApp.Find.Execute


QQ:请问如何将加载的菜单不是以悬浮的菜单形式出现？
AA:CommandBar的Position属

QQ: 在vb 中将word文件保存为纯文本
AA:
Private Sub Command1_Click()
Dim oW As Object, oD As Object, x As Object
Set oW = CreateObject("word.application")
Set oD = oW.documents.open("c:\aaa.doc")
'oW.Visible = True
For Each x In oD.words
Text1 = Text1 & x
Next x
Open "c:\bbb.txt" For Output As #1
Print #1, Text1
Close #1
oW.quit
End Sub


QQ:怎么在一个word文档的最后插入东西
AA:
WORD XP的VB帮助中有示例：
本示例在名为“Changes.doc”的文档末尾插入文本。“For Each...Next”语句用来判断此文档是否已打开。

For Each aDocument In Documents
If InStr(LCase$(aDocument.Name), "changes.doc") Then
Set myRange = Documents("Changes.doc").Content
myRange.InsertAfter "the end."
End If
Next aDocument

QQ:在WORD的宏里如何编写查询页数和行数，
AA:
ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)


QQ:请问网页考到word后，那个向下的箭头是什么标记，如何自动替换掉？手工替换很麻烦阿！但又不知道这是什么标记，无法下手阿。急用！！
AA:
手工换行符

可以用查找替换的，或者试试这个

Sub blankdel()
Dim i As Integer
For i = ActiveDocument.Paragraphs.Count To 1 Step -1
ActiveDocument.Paragraphs(i).Range.Select
a = Selection.Words.Count
If a = 1 Then
Selection.Delete
m = m + 1
End If
Next i
MsgBox "共删除空白段落" & m & "个"
End Sub


按ALT+F11,把代码COPY进去运行一下就行了


QQ:请问怎么样用word对象中控制word的分页？
AA:
我刚刚试出来的：此VB6下的代码可以解你问题

Set pword = CreateObject("Word.Application")
pword.Documents.Add dotName, False
pword.WindowState = 2 'wdWindowStateMinimize '2

pword.Selection.InsertBreak wdPageBreak


QQ:我想控制用户只能修改Word文件的部分内容，所以需要设置部分区域为只读，不知道该用什么方法，请大家赐教。
AA:
Selection.InsertBreak Type:=wdSectionBreakContinuous
ActiveDocument.Sections(1).ProtectedForForms = False
ActiveDocument.Sections(2).ProtectedForForms = True
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyFormFields


QQ:请问怎么插入图片的
AA:
Dim myShape As Shape
Dim MyInshape As InlineShape
'插入一个嵌入式图片对象
Set MyInshape = Selection.InlineShapes.AddPicture(FileName:="D:\pic001.jpg", _
LinkToFile:=False, SaveWithDocument:=True)
'将InlineShape对象转变为Shape对象
Set myShape = MyInshape.ConvertToShape
'使图片浮于文字上方
myShape.WrapFormat.Type = wdWrapNone


QQ:如何访问表格单元格内容
AA：
objWordDoc.Tables(3).Cell(1, 1).Range.Text


天外飞仙 2005-12-06 15:51 发表评论
]]>ASP导出Excel数据的四种方法 http://www.blogjava.net/songfei/articles/22712.html天外飞仙天外飞仙Tue, 06 Dec 2005 06:43:00 GMThttp://www.blogjava.net/songfei/articles/22712.htmlhttp://www.blogjava.net/songfei/comments/22712.htmlhttp://www.blogjava.net/songfei/articles/22712.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22712.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22712.html ASP导出Excel数据的四种方法
摘自：西部asp联盟                   人气：17370

一、使用OWC
　　什么是OWC？
　　OWC是Office Web Compent的缩写，即Microsoft的Office Web组件，它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中，如果可以假设客户机上存在特定的浏览器和一些功能强大的软件（如IE5和Office 2000），那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下，客户端工作站将在整个任务中分担很大的比重。
<%
Option Explicit
Class ExcelGen
Private objSpreadsheet
Private iColOffset
Private iRowOffset


Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
iRowOffset = 2
iColOffset = 2
End Sub


Sub Class_Terminate()
Set objSpreadsheet = Nothing "Clean up
End Sub


Public Property Let ColumnOffset(iColOff)
If iColOff ＞ 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property


Public Property Let RowOffset(iRowOff)
If iRowOff ＞ 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property Sub GenerateWorksheet(objRS)
"Populates the Excel worksheet based on a Recordset"s contents
"Start by displaying the titles
If objRS.EOF then Exit Sub
Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset
For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
objSpreadsheet.Columns(iCol).AutoFitColumns
"设置Excel表里的字体
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 "居中
iCol = iCol + 1
Next "objField
"Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = False
objSpreadsheet.Cells(iRow, iCol).Font.Size = 10
End If
iCol = iCol + 1
Next "objField
objRS.MoveNext
Loop
End Sub Function SaveWorksheet(strFileName)


"Save the worksheet to a specified filename
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet = (Err.Number = 0)
End Function
End Class


Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM xxxx", "Provider=SQLOLEDB.1;Persist Security


Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;"
Dim SaveName
SaveName = Request.Cookies("savename")("name")
Dim objExcel
Dim ExcelPath
ExcelPath = "Excel\" & SaveName & ".xls"
Set objExcel = New ExcelGen
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then
"Response.Write "＜html＞＜body bgcolor="gainsboro" text="#000000"＞已保存为Excel文件.


＜a href="" & server.URLEncode(ExcelPath) & ""＞下载＜/a＞"
Else
Response.Write "在保存过程中有错误!"
End If
Set objExcel = Nothing
objRS.Close
Set objRS = Nothing
%＞ 


二、用Excel的Application组件在客户端导出到Excel或Word
　　
注意：两个函数中的“data“是网页中要导出的table的 id


＜input type="hidden" name="out_word" onclick="vbscript:buildDoc" value="导出到word" class="notPrint"＞
＜input type="hidden" name="out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint"＞ 


导出到Excel代码
＜SCRIPT LANGUAGE="javascript"＞
＜!--
function AutomateExcel()
{
// Start Excel and get Application object.
var oXL = new ActiveXObject("Excel.Application");
// Get a new workbook.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var table = document.all.data;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;


// Add table headers going cell by cell.
for (i=0;i＜hang;i++)
{
for (j=0;j＜lie;j++)
{
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
//--＞
＜/SCRIPT＞ 


导出到Word代码
＜script language="vbscript"＞
Sub buildDoc
set table = document.all.data
row = table.rows.length
column = table.rows(1).cells.length
Set objWordDoc = CreateObject("Word.Document")
objWordDoc.Application.Documents.Add theTemplate, False
objWordDoc.Application.Visible=True
Dim theArray(20,10000)
for i=0 to row-1
for j=0 to column-1
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
next
next
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题


objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True //将标题设为粗体
.ParagraphFormat.Alignment = 1 //将标题居中
.Font.Name = "隶书" //设定标题字体
.Font.Size = 18 //设定标题字体大小
End With
Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)


for i = 1 to column


objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next
For i =1 to column
For j = 2 to row
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1
Next
Next
End Sub
＜/SCRIPT＞ 


三、直接在IE中打开，再存为EXCEL文件


　　把读出的数据用＜table＞格式，在网页中显示出来，同时，加上下一句即可把EXCEL表在客客户端显示。
＜%response.ContentType ="application/vnd.ms-excel"%＞ 
　　注意：显示的页面中，只把＜table＞输出，最好不要输出其他表格以外的信息。


四、导出以半角逗号隔开的csv
　　用fso方法生成文本文件的方法，生成一个扩展名为csv文件。此文件，一行即为数据表的一行。生成数据表字段用半角逗号隔开。（有关fso生成文本文件的方法，在此就不做介绍了）
　　CSV文件介绍 （逗号分隔文件）
　　选择该项系统将创建一个可供下载的CSV 文件； CSV是最通用的一种文件格式，它可以非常容易地被导入各种PC表格及数据库中。
　　请注意即使选择表格作为输出格式，仍然可以将结果下载CSV文件。在表格输出屏幕的底部，显示有 "CSV 文件"选项，点击它即可下载该文件。
　　如果您把浏览器配置为将您的电子表格软件与文本（TXT）/逗号分隔文件（CSV） 相关联，当您下载该文件时，该文件将自动打开。下载下来后，如果本地已安装EXCEL，点击此文件，即可自动用EXCEL软件打开此文件。



天外飞仙 2005-12-06 14:43 发表评论
]]>Word模板http://www.blogjava.net/songfei/articles/22685.html天外飞仙天外飞仙Tue, 06 Dec 2005 03:23:00 GMThttp://www.blogjava.net/songfei/articles/22685.htmlhttp://www.blogjava.net/songfei/comments/22685.htmlhttp://www.blogjava.net/songfei/articles/22685.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/22685.htmlhttp://www.blogjava.net/songfei/services/trackbacks/22685.html
曾有编程爱好者多次求我帮做Word模板，填写资料。当时也找不到资料。只告诉他
要写资料的那一页用EXCEL，因EXCEL的参考资料多。后见他在多个论坛求助，未见解决。
刚好闲点，花点时间研究了一下WORD，终于知道怎样如控制EXCEL一样来控制WORD。
写成例子贴出来与大家共享,都有两方法，一是直接用代码编程创建文档，另是在WORD或
EXCEL中作好模板，用模板创建，添写资料。我中意后者。
  另附 GRID 模仿DELPHI的显示

总结以下几点，就可更加发挥：

一、要实现的目的，先在WORD或EXCEL中录制宏。然后根据宏来修改做成VFP的代码。

二、对象的属性不同。
    a、WORD ,
      1、 凡有selection的为应用程序属性
          OleWord=CREATEOBJECT('word.application')  &&创建word目标
          OleWord.Selection
         **** Word多数用它**********
          OleWord.quit &&退出word
       2、OleWord.Documents
          OleWord.Documents.add() &&增加新的word文档，有路径文件名是以它作模板打开
          OleWord.Documents.open("D:\test.doc") &&打开指定的文件
          OleWord.Documents.close(.F.) &&关闭所有打开的文档不保存，不要.F.，调出对话框
       3、页面设置OleWord.ActiveDocument.PageSetup
       4、OleWord.ActiveDocument
          OleWord.ActiveDocument.Save &&保存
          OleWord.ActiveDocument.SaveAs("D:\test.doc")　&&最简单的另存
          OleWord.ActiveDocument.close &&关闭当前word文档

   b、EXCEL
      1、凡有selection的为应用程序属性
         XLApp=CREATEOBJECT('Excel.application')
         XLApp.Selection
         XLApp.quit  &&退出Excel
      2、XLApp.WorkBooks
         XLApp.WorkBooks.Add( ) &&增加新的EXCEL，加有路径文件名是以它作模板打开
         XLApp.Workbooks.Open("D:\test.xls")  && 打开指定工作簿
         XLApp.Workbooks.close(.F.)  &&关闭所有打开的工作簿不保存，不要.F.，调出对话框
      3、页面设置 XLApp.ActiveSheet.PageSetup
      4、XLApp.ActiveSheet
       ********Excel多数用它与Word不同**********
      5、XLApp.ActiveWorkbook
         XLApp.ActiveWorkbook.Save  &&保存　
         XLApp.ActiveWorkbook.SaveAs("D:\ABC\22.xls") &&另存为
         XLApp.ActiveWorkbook.close   &&关闭当前工作簿
三、WORD/EXCEL宏与VFP表示方法不同   

  a、WORD打开
   OleWord.Documents.open("D:\test.doc",.F.,.F.,.F.,'456','123',.F.,'','',.F.) &&根据宏函数改，与保存不同方式,456为打开密码，123为只读密码

*宏函数 Documents.Open FileName:="temp.doc", ConfirmConversions:=False, ReadOnly:= _
*        False, AddToRecentFiles:=False, PasswordDocument:="456", PasswordTemplate _
*        :="123", Revert:=False, WritePasswordDocument:="123", WritePasswordTemplate _
*        :="", Format:=wdOpenFormatAuto
  b、EXCEL只读保护
          XLApp.ActiveSheet.protect('123') &&用123密码锁起只读　
          XLApp.ActiveSheet.unprotect('123')  &&用123密码解锁   

*宏函数(用123密码只读锁)  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
* 用123密码解锁          ActiveSheet.Unprotect           

                                             
                                          徐 军        xj@meyerdyeing.com
                                    2005/11/06    

示例:
http://upload.programfan.com/upfile/20051122194626.rar

发表时间：2005-11-5 14:34:00   

　第 1 楼  

部分代码：
*用WORD创建新文档，再根据DBF的资料创建自几所需要的表格文档

Thisform.chnagedbf  &&转表查询生成新表、公用变量k,arrcolor[j,k],arrWash[1],arrCrock[1]
   WAIT windows("起动WORD制做文档，请稍等....") NOWAIT AT MROW(Thisform.Name,3),MCOL(Thisform.Name,3)
OleWord=CREATEOBJECT('word.application')  &&创建word目标
OleWord.Visible=.F.  &&word隐藏，为.F.可在后台操作
OleWord.Documents.add() &&增加新的word文档
*-- 页面设置
WITH OleWord.ActiveDocument.PageSetup
*1．设置顶边距为2厘米
      .TopMargin=2/0.035
*2．设置底边距为4厘米
      .BottomMargin=4/0.035
*3．设置左边距为2厘米
     .LeftMargin=2/0.035
*4．设置右边距为2厘米
     .RightMargin=2/0.035
*页面0为纵向，1为横向     
     .Orientation=1
   ENDWITH
**********************************************************************************
WITH OleWord.Selection
      .TypeParagraph  &&回车符
      .Text="致"  &&加完是选定状态
      .Font.size=20   &&字体大小
      .Moveright(3,1) &&加完是选定状态，移动一次才不覆盖,3是右移参数，左移1字节。
      .TypeParagraph  
      .insertafter(SPACE(4)+"兴启")    
      .Font.size=20  
      .Moveright(3,1)
      .TypeParagraph
      .Moveright(3,1)  
      .insertafter(SPACE(6)+"多谢贵公司的支持，贵公司在我厂所配COT样办牢度如下：")    
      .Font.size=14    
      .Moveright(3,1)     
      .TypeParagraph
ENDWITH       
******创建表格*******************************
  OleWord.Selection.TypeParagraph
  OleWord.Selection.TypeParagraph
  OleWord.Selection.Moveup(5,1)    &&第一个5是上移参数，第二个数字是上移1行,留一空行在格表下面
  otemp=OleWord.Selection.Range
  OleWord.ActiveDocument.Tables.Add(otemp,k+3,6,5,0) &&插入k+3行6列表格
  OleWord.Selection.SelectRow
  &&光标在第一格，要移动用Moveright() 等

WITH OleWord.Selection
     .Tables(1).Rows.Height=0.77/0.035  &&选定表格所有行高0.77CM     
     .Tables(1).Columns.PreferredWidth=2.5/0.035 &&选定表格所有列宽 1.9cm
     .Tables(1).Columns(1).PreferredWidth=4.73/0.035 &&选定表格第一列宽 4.73cm
    *添加数据,表格合并后就不能用此方法加资料
    .Tables(1).rows(3).cells(3).range.insertafter("颜色变化")
    .Tables(1).rows(3).cells(4).range.insertafter("颜色沾色")  
    .Tables(1).rows(3).cells(5).range.insertafter("干 擦")
    .Tables(1).rows(3).cells(6).range.insertafter("湿 擦")  
  FOR i=1 TO k   
    FOR j=1 TO 6
     .Tables(1).rows(i+3).cells(j).range.insertafter(arrcolor[i,j])    
    ENDFOR
  ENDFOR

     **选定合并  
     .MoveLeft(3,1)  &&左移去掉选定.第一个3是左移参数，第二个数字是左移1字节
     .MoveDown(5,2,1) &&下移两格，5是下移参数，2是移两格，1是按SHIFT,选择3格  
     .Cells.Merge  &&合并选定的三格

     .MoveRight(3,1) &&右移去掉选定.第一个3是右移参数，第二个数字是右移1格
     .MoveDown(5,2,1)
     .Cells.Merge  &&合并选定的三格

     .MoveRight(3,1) &&右移一格去掉选定
     .Moveright(3,2,1)   &&3是右移参数，右移1格,最后1是按SHIFT键，变成选定二格。
     .Cells.Merge  &&合并选定的两格

     .MoveDown(5,1)
     .Moveright(3,2,1)   &&3是右移参数，左移1格,最后1是按SHIFT键，变成选定二格。
     .Cells.Merge  &&合并选定的两格

     .Moveright(3,1) &&右移一格去掉选定
     .Moveright(3,2,1)   &&3是右移参数，左移1格,最后1是按SHIFT键，变成选定二格。
     .Cells.Merge  &&合并选定的两格     
     
     .Moveup(5,1) &&上移一格，5是下移参数，2是移两格，1是按SHIFT,选择3格  
     .Moveright(3,2,1)
     .Cells.Merge
     ***加入资料,因要合并不方便操作，所以合并后加放标题资料
     .insertafter("摩  擦")
     .MoveDown(5,1)
     .insertafter(arrCrock[1])  
     .MoveLeft(3,2)
     .insertafter(arrWash[1])
     .Moveup(5,1)
     .insertafter("耐  洗")
     .MoveLeft(3,2)
     .insertafter("颜 色")
     .MoveLeft(3,2)
     .insertafter("色 号")
     .MoveDown(5,k,1) &&5是下移参数，下移k+2格,最后1是按SHIFT键，变成选定多格。
     .MoveRight(3,5,1)  &&3是右移参数，右移5格,最后1是按SHIFT键，变成选定多格。
     .ParagraphFormat.Alignment=1  && 1居中　2左对齐，3右对齐，4分散对齐
     .MoveDown(5,1)
     .TypeParagraph
     .insertafter(SPACE(4)+"祝")  
     .MoveRight(3,1)  
     .TypeParagraph      
     .insertafter("生意兴隆！")  
     .MoveRight(3,1)  
     .TypeParagraph  
     .insertafter(SPACE(25)+"先科有限公司")   
     .Font.size=20  
     .Moveright(3,1)  
     .TypeParagraph  
     .insertafter(SPACE(30)+DTOC(DATE()))
     .Moveright(3,1)              
ENDWITH
  MESSAGEBOX("制作文档完毕!",64,"提示")

   OleWord.Visible=.T.


天外飞仙 2005-12-06 11:23 发表评论
]]>C#实现的18位身份证格式验证算法http://www.blogjava.net/songfei/articles/20278.html天外飞仙天外飞仙Thu, 17 Nov 2005 09:24:00 GMThttp://www.blogjava.net/songfei/articles/20278.htmlhttp://www.blogjava.net/songfei/comments/20278.htmlhttp://www.blogjava.net/songfei/articles/20278.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/20278.htmlhttp://www.blogjava.net/songfei/services/trackbacks/20278.html

C#实现的18位身份证格式验证算法

[日期：2004-11-07] 来源：CSDN  作者： [字体：大 中 小]
  18位身份证标准在国家质量技术监督局于1999年7月1日实施的GB11643-1999《公民身份号码》中做了明确的规定。 GB11643-1999《公民身份号码》为GB11643-1989《社会保障号码》的修订版，其中指出将原标准名称"社会保障号码"更名为"公民身份号码"，另外GB11643-1999《公民身份号码》从实施之日起代替GB11643-1989。GB11643-1999《公民身份号码》主要内容如下：
一、范围
     该标准规定了公民身份号码的编码对象、号码的结构和表现形式，使每个编码对象获得一个唯一的、不变的法定号码。
二、编码对象
     公民身份号码的编码对象是具有中华人民共和国国籍的公民。
三、号码的结构和表示形式
1、号码的结构
    公民身份号码是特征组合码，由十七位数字本体码和一位校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
2、地址码
    表示编码对象常住户口所在县(市、旗、区)的行政区划代码，按GB/T2260的规定执行。
3、出生日期码
    表示编码对象出生的年、月、日，按GB/T7408的规定执行，年、月、日代码之间不用分隔符。
4、顺序码
     表示在同一地址码所标识的区域范围内，对同年、同月、同日出生的人编定的顺序号，顺序码的奇数分配给男性，偶数分配给女性。
5、校验码
（1）十七位数字本体码加权求和公式
S = Sum(Ai * Wi), i = 0, ... , 16 ，先对前17位数字的权求和
Ai:表示第i位置上的身份证号码数字值
Wi:表示第i位置上的加权因子
Wi: 7 9 10 5 8 4 2 1 6 3 7 9 10 5 8 4 2

（2）计算模
Y = mod(S, 11)

（3）通过模得到对应的校验码
Y: 0 1 2 3 4 5 6 7 8 9 10
校验码: 1 0 X 9 8 7 6 5 4 3 2
四、举例如下：
北京市朝阳区: 11010519491231002X
广东省汕头市: 440524188001010014



以下是程序代码：
private string CheckCidInfo(string cid)
  {
   string[] aCity = new string[]{null,null,null,null,null,null,null,null,null,null,null,"北京","天津","河北","山西","内蒙古",null,null,null,null,null,"辽宁","吉林","黑龙江",null,null,null,null,null,null,null,"上海","江苏","浙江","安微","福建","江西","山东",null,null,null,"河南","湖北","湖南","广东","广西","海南",null,null,null,"重庆","四川","贵州","云南","西藏",null,null,null,null,null,null,"陕西","甘肃","青海","宁夏","新疆",null,null,null,null,null,"台湾",null,null,null,null,null,null,null,null,null,"香港","澳门",null,null,null,null,null,null,null,null,"国外"};
   double iSum=0;
   string info="";
   System.Text.RegularExpressions.Regex rg = new System.Text.RegularExpressions.Regex(@"^\d{17}(\d|x)$");
   System.Text.RegularExpressions.Match mc = rg.Match(cid);
   if(!mc.Success)
   {
    return "";
   }   
   cid = cid.ToLower();
   cid = cid.Replace("x","a");
   if(aCity[int.Parse(cid.Substring(0,2))]==null)
   {
    return "非法地区";
   }
   try
   {
    DateTime.Parse(cid.Substring(6,4)+"-"+cid.Substring(10,2)+"-"+cid.Substring(12,2));
   }
   catch
   {
    return "非法生日";
   }
   for(int i=17;i>=0;i--)
   {    
    iSum +=(System.Math.Pow(2,i)%11)*int.Parse(cid[17-i].ToString(),System.Globalization.NumberStyles.HexNumber);

   }
   if(iSum%11!=1)
    return("非法证号");
   
   return(aCity[int.Parse(cid.Substring(0,2))]+","+cid.Substring(6,4)+"-"+cid.Substring(10,2)+"-"+cid.Substring(12,2)+","+(int.Parse(cid.Substring(16,1))%2==1¡"男":"女"));
  
  }

调用测试：
Response.Write(CheckCidInfo("340524198002300019"));
Response.Write(CheckCidInfo("34052419800101001x"));

 

对于15位的身份验证可以先升至18位再进行验证，因为一直很忙，就没有写15－》18的方法
把规则公布一下：

 

    根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。

    地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。校验码是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。下面举例说明该计算方法。 

    15位的身份证编码首先把出生年扩展为4位，简单的就是增加一个19，但是这对于1900年出生的人不使用（这样的寿星不多了）

    某男性公民身份号码本体码为34052419800101001，首先按照公式⑴计算：

∑(ai×Wi)(mod 11)……………………………………(1)

公式(1)中：
i----表示号码字符从由至左包括校验码在内的位置序号；
ai----表示第i位置上的号码字符值；
Wi----示第i位置上的加权因子，其数值依据公式Wi=2（n-1）(mod 11)计算得出。

i       18 17 16 15 14 13 12 11 10  9  8  7  6  5  4  3  2  1

ai       3  4  0  5  2  4  1  9  8  0  0  1  0  1  0  0  1 a1

Wi       7  9 10  5  8  4  2  1  6  3  7  9 10  5  8  4  2  1

ai×Wi  21 36  0 25 16 16  2  9 48  0  0  9  0  5  0  0  2 a1

根据公式(1)进行计算：

∑(ai×Wi) =（21+36+0+25+16+16+2+9+48++0+0+9+0+5+0+0+2) = 189

189 ÷ 11 = 17 + 2/11

∑(ai×Wi)(mod 11) = 2

    然后根据计算的结果，从下面的表中查出相应的校验码，其中X表示计算结果为10：

∑(ai×WI)(mod 11)   0 1 2 3 4 5 6 7 8 9 10
校验码字符值ai       1 0 X 9 8 7 6 5 4 3  2
    根据上表，查出计算结果为2的校验码为所以该人员的公民身份号码应该为 34052419800101001X。




天外飞仙 2005-11-17 17:24 发表评论
]]>C#中通过使用ADO.NET读写BLOB数据http://www.blogjava.net/songfei/articles/20270.html天外飞仙天外飞仙Thu, 17 Nov 2005 09:03:00 GMThttp://www.blogjava.net/songfei/articles/20270.htmlhttp://www.blogjava.net/songfei/comments/20270.htmlhttp://www.blogjava.net/songfei/articles/20270.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/20270.htmlhttp://www.blogjava.net/songfei/services/trackbacks/20270.html

C#中通过使用ADO.NET读写BLOB数据

[日期：2005-02-12] [字体：大 中 小]
本文引用下面的 Microsoft .NET 框架类库名称空间：
• System.Data.SqlClient
• System.IO

本任务的内容

• 概要
 
• 要求
• 创建项目

概要

在 ADO.NET 中，DataReader 列、DataSet 列或 Command 参数不能使用 GetChunk 和 AppendChunk 方法。本文介绍如何使用 Visual C# .NET 读写二进制大对象 (BLOB) 字段。

返回页首

要求

下面的列表列出了推荐使用的硬件、软件、网络结构以及所需的 Service Pack：
• Microsoft Windows 2000 Professional、Windows 2000 Server、Windows 2000 Advanced Server 或 Windows NT 4.0 Server
• Microsoft Visual Studio .NET
• Microsoft SQL Server
返回页首

创建项目

1. 在您的 SQL Server 罗斯文数据库中添加一个名为 MyImages 的表。在该表中包含以下字段：
• 标识字段，名为"ID"，类型为 Int。
• 字段，名为"Description"，类型为 VarChar，长度为 50。
• 字段，名为"ImgField"，类型为 Image。

2. 启动 Visual Studio .NET，然后新建一个 Visual C# Windows 应用程序项目。
3. 将两个 Button 控件从工具箱拖到默认窗体 Form1 上。
4. 在"属性"窗口中，将 Button1 的 Text 属性更改为保存到数据库（从文件），将 Button2 的 Text 属性更改为保存到文件（从数据库）。
5. 将下面的代码添加到"代码"窗口顶部： 
using System.Data;
using System.Data.SqlClient;
using System.IO;
6. 双击 Button1，然后将以下代码添加到 Button1_Click 事件处理程序中： 
{
SqlConnection con = new SqlConnection("Server=Darkover;uid=sa;pwd=Password1;database=northwind");
SqlDataAdapter da = new SqlDataAdapter("Select * From MyImages", con);
SqlCommandBuilder MyCB = new SqlCommandBuilder(da);
DataSet ds = new DataSet("MyImages");

da.MissingSchemaAction = MissingSchemaAction.AddWithKey;
FileStream fs = new FileStream(@"C:\winnt\Gone Fishing.BMP", FileMode.OpenOrCreate, FileAccess.Read);

byte[] MyData= new byte[fs.Length];
fs.Read(MyData, 0, System.Convert.ToInt32(fs.Length));

fs.Close();

da.Fill(ds,"MyImages");

DataRow myRow;
myRow=ds.Tables["MyImages"].NewRow();

myRow["Description"] = "This would be description text";
myRow["imgField"] = MyData;
ds.Tables["MyImages"].Rows.Add(myRow);
da.Update(ds, "MyImages");

con.Close();

}
7. 双击 Button2，然后将以下代码添加到 Button2_Click 事件处理程序中： 
{
SqlConnection con = new SqlConnection("Server=Darkover;uid=sa;pwd=Password1;database=northwind");
SqlDataAdapter da = new SqlDataAdapter("Select * From MyImages", con);
SqlCommandBuilder MyCB = new SqlCommandBuilder(da);
DataSet ds = new DataSet("MyImages");

byte[] MyData= new byte[0];

da.Fill(ds, "MyImages");
DataRow myRow;
myRow=ds.Tables["MyImages"].Rows[0];

MyData =  (byte[])myRow["imgField"];
int ArraySize = new int();
ArraySize = MyData.GetUpperBound(0);

FileStream fs = new FileStream(@"C:\winnt\Gone Fishing2.BMP", FileMode.OpenOrCreate, FileAccess.Write);
fs.Write(MyData, 0,ArraySize);
fs.Close();
}
8. 按 F5 键编译并运行该应用程序。
9. 单击"保存到数据库（从文件）"，将位于 C:\WinNT\Gone Fishing.bmp 的图像加载到 SQL Server Image 字段。
10. 单击"保存到文件（从数据库）"，将 SQL Server Image 字段的数据保存回文件中。


天外飞仙 2005-11-17 17:03 发表评论
]]>VB C# 语法对比图 http://www.blogjava.net/songfei/articles/20268.html天外飞仙天外飞仙Thu, 17 Nov 2005 08:55:00 GMThttp://www.blogjava.net/songfei/articles/20268.htmlhttp://www.blogjava.net/songfei/comments/20268.htmlhttp://www.blogjava.net/songfei/articles/20268.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/20268.htmlhttp://www.blogjava.net/songfei/services/trackbacks/20268.html

VB C# 语法对比图 (代码实例)

[字体：大 中 小]

C#和VB.net的语法相差还是比较大的. 可能你会C#,可能你会VB.

将它们俩放在一起对比一下你就会很快读懂,并掌握另一门语言.

相信下面这张图会对你帮助很大.

 

Comments

VB.NET

 

'Single line only
Rem Single line only

 

C#

// Single line
/* Multiple
line */
/// XML comments on single line
/** XML comments on multiple lines */

Data Types

VB.NET

 

'Value Types
Boolean
Byte
Char (example: "A")
Short, Integer, Long
Single, Double
Decimal
Date 


'Reference Types
Object
String



Dim x As Integer
System.Console.WriteLine(x.GetType())
System.Console.WriteLine(TypeName(x)) 


'Type conversion
Dim d As Single = 3.5
Dim i As Integer = CType (d, Integer)
i = CInt (d)
i = Int(d)

 

C#

 

//Value Types
bool
byte, sbyte
char (example: 'A')
short, ushort, int, uint, long, ulong
float, double
decimal
DateTime 


//Reference Types
object
string



int x;
Console.WriteLine(x.GetType())
Console.WriteLine(typeof(int)) 


//Type conversion
float d = 3.5;
int i = (int) d

 

Constants

VB.NET

Const MAX_AUTHORS As Integer = 25
ReadOnly MIN_RANK As Single = 5.00

C#

const int MAX_AUTHORS = 25;
readonly float MIN_RANKING = 5.00;

Enumerations

VB.NET

Enum Action
  Start
  'Stop is a reserved word
[Stop]
  Rewind
  Forward
End Enum

Enum Status
   Flunk = 50
   Pass = 70
   Excel = 90
End Enum

Dim a As Action = Action.Stop 
If a <> Action.Start Then _
'Prints "Stop is 1" 
   System.Console.WriteLine(a.ToString & " is " & a)

'Prints 70
System.Console.WriteLine(Status.Pass)
'Prints Pass
System.Console.WriteLine(Status.Pass.ToString())

C#

enum Action {Start, Stop, Rewind, Forward};
enum Status {Flunk = 50, Pass = 70, Excel = 90};











Action a = Action.Stop;
if (a != Action.Start)
//Prints "Stop is 1"
  System.Console.WriteLine(a + " is " + (int) a); 

// Prints 70
System.Console.WriteLine((int) Status.Pass); 
// Prints Pass
System.Console.WriteLine(Status.Pass);

Operators

VB.NET

 

'Comparison
=  <  >  <=  >=  <> 


'Arithmetic
+  -  *  /
Mod
  (integer division)
^  (raise to a power) 


'Assignment
=  +=  -=  *=  /=  =  ^=  <<=  >>=  &= 


'Bitwise
And  AndAlso  Or  OrElse  Not  <<  >> 


'Logical
And  AndAlso  Or  OrElse  Not 


'String Concatenation
&

 

C#

 

//Comparison
==  <  >  <=  >=  != 


//Arithmetic
+  -  *  /
%  (mod)
/  (integer division if both operands are ints)
Math.Pow(x, y) 


//Assignment
=  +=  -=  *=  /=   %=  &=  |=  ^=  <<=  >>=  ++  -- 


//Bitwise
&  |  ^   ~  <<  >> 


//Logical
&&  ||   ! 


//String Concatenation
+

 

Choices

VB.NET

 

greeting = IIf(age < 20, "What's up?", "Hello") 


'One line doesn't require "End If", no "Else"
If language = "VB.NET" Then langType = "verbose" 


'Use: to put two commands on same line
If x <> 100 And y < 5 Then x *= 5 : y *= 2   


'Preferred
If x <> 100 And y < 5 Then
  x *= 5
  y *= 2
End If 




'or to break up any long single command use _
If henYouHaveAReally < longLine And _ 
itNeedsToBeBrokenInto2   > Lines  Then _
  UseTheUnderscore(charToBreakItUp) 


If x > 5 Then
  x *= y 
ElseIf x = 5 Then
  x += y 
ElseIf x < 10 Then
  x -= y
Else
  x /= y
End If 


'Must be a primitive data type
Select Case color   
  Case "black", "red"
    r += 1
  Case "blue"
    b += 1
  Case "green"
    g += 1
  Case Else
    other += 1
End Select

 

C#

 

greeting = age < 20 ? "What's up?" : "Hello"; 











if (x != 100 && y < 5)
{
  // Multiple statements must be enclosed in {}
  x *= 5;
  y *= 2;
} 








if (x > 5) 
  x *= y; 
else if (x == 5) 
  x += y; 
else if (x < 10) 
  x -= y; 
else 
  x /= y;



//Must be integer or string
switch (color)
{
  case "black":
  case "red":    r++;
   break;
  case "blue"
   break;
  case "green": g++;  
   break;
  default:    other++;
   break;
}

 

Loops

VB.NET

 

'Pre-test Loops:
While c < 10
  c += 1
End While Do Until c = 10
  c += 1
Loop 


'Post-test Loop:
Do While c < 10
  c += 1
Loop 


For c = 2 To 10 Step 2
  System.Console.WriteLine(c)
Next 



'Array or collection looping
Dim names As String() = {"Steven", "SuOk", "Sarah"}
For Each s As String In names
  System.Console.WriteLine(s)
Next

 

C#

//Pre-test Loops: while (i < 10)
  i++;
for (i = 2; i < = 10; i += 2)
  System.Console.WriteLine(i); 






//Post-test Loop:
do
  i++;
while (i < 10);








// Array or collection looping
string[] names = {"Steven", "SuOk", "Sarah"};
foreach (string s in names)
  System.Console.WriteLine(s);

 

Arrays

VB.NET

 

Dim nums() As Integer = {1, 2, 3}
For i As Integer = 0 To nums.Length - 1 
  Console.WriteLine(nums(i)) 
Next 

'4 is the index of the last element, so it holds 5 elements
Dim names(4) As String
names(0) = "Steven"
'Throws System.IndexOutOfRangeException
names(5) = "Sarah"


'Resize the array, keeping the existing
'values (Preserve is optional)
ReDim Preserve names(6)





Dim twoD(rows-1, cols-1) As Single 
twoD(2, 0) = 4.5


Dim jagged()() As Integer = { _
  New Integer(4) {}, New Integer(1) {}, New Integer(2) {} }
jagged(0)(4) = 5

 

C#

 

int[] nums = {1, 2, 3};
for (int i = 0; i < nums.Length; i++)
  Console.WriteLine(nums[i]);


// 5 is the size of the array
string[] names = new string[5];
names[0] = "Steven";
// Throws System.IndexOutOfRangeException
names[5] = "Sarah"


// C# can't dynamically resize an array.
//Just copy into new array.
string[] names2 = new string[7];
// or names.CopyTo(names2, 0);
Array.Copy(names, names2, names.Length); 



float[,] twoD = new float[rows, cols];
twoD[2,0] = 4.5; 


int[][] jagged = new int[3][] {
  new int[5], new int[2], new int[3] };
jagged[0][4] = 5;

 

Functions

VB.NET

 

'Pass by value (in, default), reference
'(in/out), and reference (out)
Sub TestFunc(ByVal x As Integer, ByRef y As Integer,
ByRef z As Integer)
  x += 1
  y += 1
  z = 5
End Sub 


'c set to zero by default

Dim a = 1, b = 1, c As Integer
TestFunc(a, b, c)
System.Console.WriteLine("{0} {1} {2}", a, b, c) '1 2 5 


'Accept variable number of arguments
Function Sum(ByVal ParamArray nums As Integer()) As Integer
  Sum = 0
  For Each i As Integer In nums
    Sum += i
  Next
End Function 'Or use a Return statement like C#

Dim total As Integer = Sum(4, 3, 2, 1) 'returns 10 


'Optional parameters must be listed last
'and must have a default value
Sub SayHello(ByVal name As String,
Optional ByVal prefix As String = "")
  System.Console.WriteLine("Greetings, " & prefix
& " " & name)
End Sub


SayHello("Steven", "Dr.")
SayHello("SuOk")

 

C#

// Pass by value (in, default), reference
//(in/out), and reference (out)
void TestFunc(int x, ref int y, out int z) {
  x++;
  y++;
  z = 5;
} 




int a = 1, b = 1, c; // c doesn't need initializing
TestFunc(a, ref b, out c);
System.Console.WriteLine("{0} {1} {2}", a, b, c); // 1 2 5 


// Accept variable number of arguments
int Sum(params int[] nums) {
  int sum = 0;
  foreach (int i in nums)
    sum += i;
  return sum;
} 


int total = Sum(4, 3, 2, 1); // returns 10 


/* C# doesn't support optional arguments/parameters.
Just create two different versions of the same function. */
void SayHello(string name, string prefix) {
  System.Console.WriteLine("Greetings, " 
	+ prefix + " " + name);
}

void SayHello(string name) {
  SayHello(name, "");
}

 

Exception Handling

VB.NET

 

'Deprecated unstructured error handling
On Error GoTo MyErrorHandler
...
MyErrorHandler: System.Console.WriteLine(Err.Description)

Dim ex As New Exception("Something has really gone wrong.")
Throw ex 


Try
  y = 0
  x = 10 / y
Catch ex As Exception When y = 0 'Argument and When is optional
  System.Console.WriteLine(ex.Message) 
Finally
  DoSomething() 
End Try

 

C#





Exception up = new Exception("Something is really wrong."); 
throw up; // ha ha 


try{
  y = 0;
  x = 10 / y;
}
catch (Exception ex) { //Argument is optional, no "When" keyword
  Console.WriteLine(ex.Message);
}
finally{
  // Do something
}

 

Namespaces

VB.NET

 

Namespace ASPAlliance.DotNet.Community
  ...
End Namespace 


'or 


Namespace ASPAlliance 
  Namespace DotNet
    Namespace Community
      ...
    End Namespace
  End Namespace
End Namespace 


Imports ASPAlliance.DotNet.Community

 

C#

 

namespace ASPAlliance.DotNet.Community {
  ...
} 


// or 


namespace ASPAlliance {
  namespace DotNet {
    namespace Community {
      ...
    }
  }
} 


using ASPAlliance.DotNet.Community;

 

Classes / Interfaces

VB.NET

 

'Accessibility keywords
Public
Private
Friend
Protected
Protected Friend
Shared 


'Inheritance
Class Articles
  Inherits Authors
  ...
End Class 


'Interface definition
Interface IArticle 
  ...
End Interface 


'Extending an interface
Interface IArticle
  Inherits IAuthor
  ...
End Interface 


'Interface implementation</span>
Class PublicationDate
  Implements</strong> IArticle, IRating
   ...
End Class

 

C#

 

//Accessibility keywords
public
private
internal
protected
protected internal
static 


//Inheritance
class Articles: Authors {
  ...
} 



//Interface definition
interface IArticle {
  ...
} 


//Extending an interface
interface IArticle: IAuthor {
  ...
} 



//Interface implementation
class PublicationDate: IArticle, IRating {
   ...
}

 

Constructors / Destructors

VB.NET

Class TopAuthor
  Private _topAuthor As Integer

  Public Sub New()
    _topAuthor = 0
  End Sub

  Public Sub New(ByVal topAuthor As Integer)
    Me._topAuthor = topAuthor
  End Sub

  Protected Overrides Sub Finalize()
   'Desctructor code to free unmanaged resources
    MyBase.Finalize() 
  End Sub
End Class

C#

 

class TopAuthor {
  private int _topAuthor;

  public TopAuthor() {
     _topAuthor = 0;
  }

  public TopAuthor(int topAuthor) {
    this._topAuthor= topAuthor
  }

  ~TopAuthor() {
    // Destructor code to free unmanaged resources.
    // Implicitly creates a Finalize method
  }
}

 

Objects

VB.NET

 

Dim author As TopAuthor = New TopAuthor
With author
  .Name = "Steven"
  .AuthorRanking = 3
End With

author.Rank("Scott")
author.Demote() 'Calling Shared method
'or
TopAuthor.Rank() 


Dim author2 As TopAuthor = author 'Both refer to same object
author2.Name = "Joe"
System.Console.WriteLine(author2.Name) 'Prints Joe 


author = Nothing 'Free the object 


If author Is Nothing Then _
  author = New TopAuthor 


Dim obj As Object = New TopAuthor
If TypeOf obj Is TopAuthor Then _
  System.Console.WriteLine("Is a TopAuthor object.")

 

C#

 

TopAuthor author = new TopAuthor();

//No "With" construct
author.Name = "Steven";
author.AuthorRanking = 3; 


author.Rank("Scott");
TopAuthor.Demote() //Calling static method 




TopAuthor author2 = author //Both refer to same object
author2.Name = "Joe";
System.Console.WriteLine(author2.Name) //Prints Joe 


author = null //Free the object 


if (author == null)
  author = new TopAuthor(); 


Object obj = new TopAuthor(); 
if (obj is TopAuthor)
  SystConsole.WriteLine("Is a TopAuthor object.");

 

Structs

VB.NET

 

Structure AuthorRecord
  Public name As String
  Public rank As Single

  Public Sub New(ByVal name As String, ByVal rank As Single) 
    Me.name = name
    Me.rank = rank
  End Sub
End Structure 


Dim author As AuthorRecord = New AuthorRecord("Steven", 8.8)
Dim author2 As AuthorRecord = author

author2.name = "Scott"
System.Console.WriteLine(author.name) 'Prints Steven
System.Console.WriteLine(author2.name) 'Prints Scott

 

C#

struct AuthorRecord {
  public string name;
  public float rank;

  public AuthorRecord(string name, float rank) {
    this.name = name;
    this.rank = rank;
  }
}



AuthorRecord author = new AuthorRecord("Steven", 8.8);
AuthorRecord author2 = author

author.name = "Scott";
SystemConsole.WriteLine(author.name); //Prints Steven
System.Console.WriteLine(author2.name); //Prints Scott

 

Properties

VB.NET

 

Private _size As Integer

Public Property Size() As Integer
  Get
    Return _size
  End Get
  Set (ByVal Value As Integer)
    If Value < 0 Then
      _size = 0
    Else
      _size = Value
    End If
  End Set
End Property 


foo.Size += 1

 

C#

private int _size;

public int Size {
  get {
    return _size;
  }
  set {
    if (value < 0)
      _size = 0;
    else
      _size = value;
  }
} 



foo.Size++;

 

Delegates / Events

VB.NET

 

Delegate Sub MsgArrivedEventHandler(ByVal message
As String) 


Event MsgArrivedEvent As MsgArrivedEventHandler 


'or to define an event which declares a
'delegate implicitly
Event MsgArrivedEvent(ByVal message As String) 


AddHandler MsgArrivedEvent, AddressOf My_MsgArrivedCallback
'Won't throw an exception if obj is Nothing
RaiseEvent MsgArrivedEvent("Test message")
RemoveHandler MsgArrivedEvent, AddressOf My_MsgArrivedCallback



Imports System.Windows.Forms 


'WithEvents can't be used on local variable
Dim WithEvents MyButton As Button
MyButton = New Button 


Private Sub MyButton_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyButton.Click
  MessageBox.Show(Me, "Button was clicked", "Info", _
    MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

 

C#

 

delegate void MsgArrivedEventHandler(string message); 


event MsgArrivedEventHandler MsgArrivedEvent; 


//Delegates must be used with events in C#


MsgArrivedEvent += new MsgArrivedEventHandler
  (My_MsgArrivedEventCallback);
//Throws exception if obj is null
MsgArrivedEvent("Test message");
MsgArrivedEvent -= new MsgArrivedEventHandler
  (My_MsgArrivedEventCallback); 



using System.Windows.Forms; 


Button MyButton = new Button();
MyButton.Click += new System.EventHandler(MyButton_Click); 


private void MyButton_Click(object sender, 
			System.EventArgs e) {
  MessageBox.Show(this, "Button was clicked", "Info",
    MessageBoxButtons.OK, MessageBoxIcon.Information);
}

 

Console I/O

VB.NET

 

'Special character constants
vbCrLf, vbCr, vbLf, vbNewLine
vbNullString
vbTab
vbBack
vbFormFeed
vbVerticalTab
""
Chr(65) 'Returns 'A' 


System.Console.Write("What's your name? ")
Dim name As String = System.Console.ReadLine()
System.Console.Write("How old are you? ")
Dim age As Integer = Val(System.Console.ReadLine())
System.Console.WriteLine("{0} is {1} years old.", name, age)
'or
System.Console.WriteLine(name & " is " & age & " years old.")

Dim c As Integer
c = System.Console.Read() 'Read single char
System.Console.WriteLine(c) 'Prints 65 if user enters "A"

 

C#

 

//Escape sequences
n, r
t

 


Convert.ToChar(65) 
//Returns 'A' - equivalent to Chr(num) in VB
// or
(char) 65 


System.Console.Write("What's your name? ");
string name = SYstem.Console.ReadLine();
System.Console.Write("How old are you? ");
int age = Convert.ToInt32(System.Console.ReadLine());
System.Console.WriteLine("{0} is {1} years old.", 
	name, age);
//or
System.Console.WriteLine(name + " is " + 
	age + " years old."); 


int c = System.Console.Read(); //Read single char
System.Console.WriteLine(c); 
//Prints 65 if user enters "A"

 

File I/O

VB.NET

 

Imports System.IO 


'Write out to text file
Dim writer As StreamWriter = File.CreateText
  ("c:myfile.txt")
writer.WriteLine("Out to file.")
writer.Close() 


'Read all lines from text file
Dim reader As StreamReader = File.OpenText
  ("c:myfile.txt")
Dim line As String = reader.ReadLine()
While Not line Is Nothing
  Console.WriteLine(line)
  line = reader.ReadLine()
End While
reader.Close() 


'Write out to binary file
Dim str As String = "Text data"
Dim num As Integer = 123
Dim binWriter As New BinaryWriter(File.OpenWrite
  ("c:myfile.dat"))
binWriter.Write(str)
binWriter.Write(num)
binWriter.Close() 


'Read from binary file
Dim binReader As New BinaryReader(File.OpenRead
  ("c:myfile.dat"))
str = binReader.ReadString()
num = binReader.ReadInt32()
binReader.Close()

 

C#

 

using System.IO; 


//Write out to text file
StreamWriter writer = File.CreateText
  ("c:myfile.txt");
writer.WriteLine("Out to file.");
writer.Close(); 


//Read all lines from text file
StreamReader reader = File.OpenText
  ("c:myfile.txt");
string line = reader.ReadLine();
while (line != null) {
  Console.WriteLine(line);
  line = reader.ReadLine();
}
reader.Close(); 


//Write out to binary file
string str = "Text data";
int num = 123;
BinaryWriter binWriter = new BinaryWriter(File.OpenWrite
  ("c:myfile.dat"));
binWriter.Write(str);
binWriter.Write(num);
binWriter.Close(); 


//Read from binary file
BinaryReader binReader = new BinaryReader(File.OpenRead
  ("c:myfile.dat"));
str = binReader.ReadString();
num = binReader.ReadInt32();
binReader.Close();

 



天外飞仙 2005-11-17 16:55 发表评论
]]>C# 中的 cookie 编程 http://www.blogjava.net/songfei/articles/19770.html天外飞仙天外飞仙Mon, 14 Nov 2005 13:36:00 GMThttp://www.blogjava.net/songfei/articles/19770.htmlhttp://www.blogjava.net/songfei/comments/19770.htmlhttp://www.blogjava.net/songfei/articles/19770.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/19770.htmlhttp://www.blogjava.net/songfei/services/trackbacks/19770.htmlC# 中的 cookie 编程
 
作者：邱燕菱    文章来源：本站原创    点击数：    更新时间：2005-11-8
 
Cookie就是所谓的“小甜饼“ ,他最早出现是在Netscape Navigator 2.0中。Cookie其实就是由Web服务器创建的、将信息存储在计算机上的文件。那么为什么Web服务器要在客户机上面创建如此文件？这是因为当客户机发送一个请求到WEB服务器时（譬如准备浏览页面时），无论此客户机是否是第一次来访，服务器都会把它当作第一次来对待，WEB服务器所做的工作只是简单的进行响应，然后就关闭与该用户的连接。这样处理过程所带来的缺点时显而易见的。自从网景公司开发出Cookie以后，就可以利用Cookie来保存用户的识别信息。Cookie的作用可以记录了您在该站点上曾经访问过的页面，由此帮助您下次访问该站点时自定义查看。Cookies 也可以存储个人可识别信息。个人可识别信息是可以用来识别或联系您的信息，例如姓名、电子邮件地址、家庭或工作地址，或者电话号码。然而，网站只能访问您提供的个人可识别信息。例如，除非您提供电子邮件名称，否则网站将不能确定您的电子邮件名称。另外，网站不能通过Cookie来访问计算机上的其他信息。当然除非你提供。那么Cookie到底存放在什么地方？如果机器的系统是视窗98且安装在“ C“ 盘中，那么Cookie存放在“ C:\Windows\Cookies“ 目录中；如果机器系统是视窗2000且安装在“ C“ 盘中，那么Cookie存放在“ C:\Documents and Settings\Administrator\Cookies“ 目录中。了解了Cookie这么多知识，我们还是来了解一下本文的重点-- C#是如何进行Cookie方面编程的。主要内容有二点：其一是 C#是如何写入Cookie；其二是 C#是如何访问自己写入的Cookie。

一、本文介绍的程序设计和运行的软件环境：

微软公司视窗2000服务器版
.Net FrameWork SDK Beta 2

C#进行Cookie方面编程是通过ASP.NET页面来实现的。

二、C#如何写入Cookie：

为了写入Cookie，他的步骤主要有三步，具体如下：

首先就要创建一个HttpCookie对象，通过这个对象来构造一个Cookie，这个对象的名称就是以后产生的Cookie名称。具体如下代码：
HttpCookie cookie = new HttpCookie ( “ 用户定义的Cookie名称“ ) ;

然后对创建的HttpCookie对象的“ Value“ 属性分配一个字符串值，“ Value“ 的值就是后来产生的Cookie的值。具体代码如下：
cookie.Value = “用户给Cookie赋值“ ; 如果你想写入的Cookie数值不是一个简单的字符串，而是一个复杂的数据类型，我们知道这些数据类型是不能直接存贮到Cookie中的，因为Cookie中只能存贮字符串。但你可以通过一个变通的方法，就是把这个复杂的数据类型转换成多个字符串，然后把这多个字符串同时赋值给产生的Cookie值，这样Cookie中的内容就丰富了，以后利用Cookie完成的功能也强大了。这时你可能就会明白为什么当你浏览Web服务器，Web服务器会知道你什么时候曾经浏览过，并且曾经待过多长时间等信息了。因为这些信息已经存储到你第一次浏览页面时，Web服务器产生的Cookie中去了。下列代码是把多个字符串存储到Cookie的例子：
cookie [ “ 姓名“ ] = “ 王天“;
cookie [ “ 性别“ ] = “ 男“;
cookie [ “ 年龄“ ] = “ 26“;

Cookie有临时的，也有永远的。永久 Cookie 以文件形式存储在计算机上，关闭 Internet Explorer 时仍然保留在计算机上。再次访问该站点时，创建该 Cookie 的网站可以读取。在具体的编程时候，是在写入此Cookie的时候，设定Cookie的生命周期，具体如下代码：
DateTime dtNow = DateTime . Now ;
TimeSpan tsMinute = new TimeSpan ( 0 , 1 , 0 , 0 ) ;
cookie . Expires = dtNow + tsMinute ;

以上代码是设定产生的Cookie的生命期为“ 一个小时“ ，你可以通过修改“ TimeSpan“ 属性来设定产生Cookie的具体生命期。
.最后调用“ Response.Cookies“ 对象的“ Add（）“ 方法，加入此对象，这样就可以产生一个Cookie了。具体代码如下：
Response . Cookies . Add ( cookie ) ;
下列代码就是在 C#写入Cookie的完整代码（Write.aspx）：
〈% @ language = “C#“ %〉
〈script runat = “server“ 〉
void WriteClicked ( Object Sender , EventArgs e )
{
//创建一个HttpCookie对象
HttpCookie cookie = new HttpCookie ( NameField . Text ) ;
//设定此cookies值
cookie . Value = ValueField . Text ;
//设定cookie的生命周期，在这里定义为一个小时
DateTime dtNow = DateTime . Now ;
TimeSpan tsMinute = new TimeSpan ( 0 , 1 , 0 , 0 ) ;
cookie . Expires = dtNow + tsMinute ;
cookie [ “姓名“ ] = “王天“ ;
cookie [ “性别“ ] = “男“ ;
cookie [ “年龄“ ] = “26“ ;
//加入此cookie
Response . Cookies . Add ( cookie ) ;
Response . Write ( NameField . Text + “Cookie创建完毕 〈br 〉 〈hr 〉 “ ) ;
}
〈/script 〉
〈html 〉
〈body 〉
〈h3 〉 在 C#页面中创建cookie 〈/h3 〉
此cookie的生命周期定义为一个小时
〈form runat=“server“〉
Cookie名称：〈asp:textbox id = “NameField“ runat = “server“ /〉 〈br 〉
Cookie的值：〈asp:textbox id = “ValueField“ runat = “server“ /〉 〈br 〉
〈asp:button text = “创建Cookie“ onclick = “WriteClicked“ runat = “server“ /〉 〈br 〉
〈/form 〉
〈/body 〉
〈/html 〉

当然上面的代码产生的Cookie在内容上面有点单调了。其实对于内容十分丰富的Cookie来说，他还有许多属性，充分的利用这些属性，才可以利用了Cookie的强大功能。下表是Cookie的一些常用的属性：

属性 描述
Domain 设定/获得Cookie应属于的域名。一旦设定了此属性，则只限定于此域名的Web服务器访问此Cookie。可以设定为“ccw.com.cn“
Path 设定/获得Cookie应属于的路径，如果设定后，则访问此Cookie的Web页面则被限定在此路径里面。其他路径的Web页面则不能访问。
Secure 设定/获得一个标识来表明利用HTTP协议是否能够安全的传输Cookie到客户端的浏览器。
HasKeys 表明是否此Cookie是否是多个字符串组成的。

在写入Cookie的时候，最大限度的利用这些属性，对于最大程度的利用写入的Cookie是十分重要的。

三、C#是如何读取已产生的Cookie：

读取指定的Cookie比起写入Cookie要来的容易的多了，只需要使用“ Request.Cookies“ 对象就可以完成。下面是读取指定Cookie名称的方法：

HttpCookie cookie = Request.Cookies [ “ Cookie的名称“ ] ;

下面是显示已经读取了的Cookie的数值：

Response.Write (cookie . Value . ToString ( ) ) ; 掌握了上面的要点，读取Cookie就显得非常容易了，下列是读取Cookie的程序代码（read.aspx）： 〈% @ language = “C#“ %〉
〈script runat = “server“ 〉
void ReadClicked ( Object Sender , EventArgs e )
{
//得到用户输入的cookie名称
String strCookieName = NameField . Text ;
//获得cookie
HttpCookie cookie = Request.Cookies [ strCookieName ] ;
//确定是否存在用户输入的cookie
if ( null == cookie ) {
Response.Write ( “没有发现指定的cookie 〈br 〉 〈hr 〉 “ ) ;
}
else {
//找到指定的cookie，显示cookie的值
String strCookieValue = cookie . Value . ToString ( ) ;
Response.Write ( strCookieName + “ cookie 的值为: 〈b 〉 “
+ strCookieValue + “ 〈/b 〉 〈br 〉 〈hr 〉 “ ) ;
}
}
〈/script 〉
〈html 〉
〈body 〉
在 C#页面中读取指定Cookie值〈br 〉
〈form runat = “server“ 〉
请输入要读取的Cookie名称：〈asp:textbox id = “NameField“ runat = “server“ /〉
〈asp:button text = “读取cookie“ onclick = “ReadClicked“ runat = “server“ /〉
〈/form 〉
〈/body 〉
〈/html 〉

四、总结：

至此我们已经介绍了用 C#进行Cookie编程的大部分内容。其实Cookie在互联网上有着比较大的作用。譬如它可让WEB站点跟踪特定访问者的访问次数、最后访问时间和访问者进入站点的路径等；还可告诉在线广告商广告被点击的次数，从而可以更精确的投放广告；它可让用户在不键入密码和用户名的情况下进入曾经浏览过的一些站点；最为重要的是它可帮助站点统计用户资料以实现个性化服务等等。掌握了 C#的Cookie编程，就可以在程序中充分利用Cookie来实现上面的这些功能了。不信你试一试。 



天外飞仙 2005-11-14 21:36 发表评论
]]>ASP.NET中利用cookies保持客户端信息http://www.blogjava.net/songfei/articles/19764.html天外飞仙天外飞仙Mon, 14 Nov 2005 12:54:00 GMThttp://www.blogjava.net/songfei/articles/19764.htmlhttp://www.blogjava.net/songfei/comments/19764.htmlhttp://www.blogjava.net/songfei/articles/19764.html#Feedback0http://www.blogjava.net/songfei/comments/commentRss/19764.htmlhttp://www.blogjava.net/songfei/services/trackbacks/19764.html

日期：2004-2-16 22:16:56
出处：统一教学网
作者：-

我当前所吃的东东都固定为食物，所以一点也不惊讶，这一周的主题为cookies。


Cookies用于存储特定用户信息，它提供了Web程序中一种有用的方式。多年以来，JavaScript开发人员已经进行了有关cookie的大量工作。同样，ASP.NET通过System.Web空间名称也提供了cookie的访问。虽然你不应该使用cookie来存储一些敏感性的数据，但是，它们是处理锁细数据的一个极好的选择，比如颜色参数选择或者最后一次访问日期。

传递cookies
cookie是存储在客户端计算机的一个小文件。如果你是一个Windows用户，可以在用户路径中查看Cookies路径，即为Documents And Settings路径。这一路径包含这一文件名称的文本文件：

username @ Web site domain that created the cookie

(用户名称@建立cookie的站点域名)

.NET System.Web空间名称包含三个类，你可以使用它们来处理客户端的Cookies：

HttpCookie：提供一个建立和操作独立HTTP cookies的安全类型的方式。

HttpResponse：Cookies属性允许客户端cookies被操作。

HttpRequest：Cookies属性允许访问客户端操作的cookies。

HttpResponse和HttpRequest对象的Cookies属性将返回一个HttpCookieCollection对象，它包含着，将单独的cookies添加到集合(collection)中，以及从集合(collection)获得一个单独的cookies。

HttpCookie类
HttpCookie类针对于客户存储之用而建立的单独cookies。一旦HttpCookie对象被建立，你可以涮砑拥紿ttpResponse对象的Cookies属性中。同样的，你可以通过HttpRequest对象访问现有的cookies。HttpCookie类包含以下的公有属性：

Domain(域名)：获得或设置与cookie有关的域名，可用于限制特定区域的cookie访问。

Expires(期限)：获得或设置cookie的终止日期和时间，你可以将其设置为一个过去的日期以自动终止或者删除cookie。

Names(名称)：获得或设置cookie名称。

Path(路径)：获得或设置cookie的虚拟路径。这一属性允许你限制cookie范围，也就是说，访问cookie只能限制于一个特定的文件夹或者路径。设置这一属性限制为只能访问特定路径和该路径下的所有文件。

Secure(安全)：发信号以表示是否使用Secure Sockets Layer (SSL)来发送cookie值。

Value(值)：获得或设置一个单独的cookie值。

Values(信息)：返回包含在cookie中的key/value的一个集合。

虽然这些还不是一个最详尽的列表，但它提供了处理cookies所需要的东西。对于这些属性的使用，以下VB.NET范例给予最好的理解：

Dim testCookie As New HttpCookie("LastVisited")

testCookie.Value = DateTime.Now.ToString

testCookie.Expires = DateTime.Now.AddDays(7)

testCookie.Domain = "builder.com"

Response.Cookies.Add(testCookie)

这一代码段建立了一个名为LastVisited的新的cookie，并赋予当前日期和时间的值。同样的，cookie终止期限设置为一个星期，相关的范围为populated。一旦建立对象，通过Response.Cookies对象的Add方法就可以将对象添加到客户端的cookies集合。HttpCookie构造函数中的方法有两种：

HttpCookie objectName = New HttpCookie("cookieName")

HttpCookie objectName = New HttpCookie("cookieName", "cookieValue")

同样，Response对象包含一个SetCookie方法，这一方法可以接受一个HttpCookie对象。

我的cookie在哪里？
一旦cookies被保存在客户端，有多种不同的方法以提供你访问它们。如果你知道cookie名称，可以使用HttpResponse对象很容易地访问它的值。以下VB.NET行显示了与cookie有关的值：


 

Response.Write(Request.Cookies("LastVisitied").Value)

 

除此之外，可以通过一个HttpCookieCollection对象访问cookies的完整列表。这就使得cookie列表可以用一个for循环来访问。以下C#代码说明了这样的例子：

HttpCookieCollection cookies;

HttpCookie oneCookie;

cookies = Request.Cookies;

string[] cookieArray = cookies.AllKeys;

for (int i=0; I < cookieArray.Length; i++) {

oneCookie = cookies[cookieArray[i]];

Response.Write(oneCookie.Name + " - " + oneCookie.Value);

}

 

VB.NET中相应的代码如下：

 

Dim i As Integer

Dim oneCookie As HttpCookie

For i = 0 To Request.Cookies.Count - 1

oneCookie = Request.Cookies(i)

Response.Write(oneCookie.Name + " - " + oneCookie.Value)

Next I

稳定也是一个观点
cookie文件存放在客户端机器，所以你的用户可以任意删除或更改。此外，用户还可以使cookies无效化。基于此原因，请记住不要依赖cookie数据。你应该将重要的信息保存在服务器──特别是一个数据库中。

在一个cookie中存储关键信息被认为是一种低级的程序设计，因为这些信息很容易被泄露，原因是这些信息位于客户机器的一个文件中。在这一点，一种方法就是使用SSL，这是一种可以避免敏感信息的更好方法。

 

我可以使用cookies吗？
用户可以在自己的浏览器上无效化cookie支持。你可以在自己的代码中访问这些设置以决定是否支持cookies。Request对象满足了这一想法，以下VB.NET代码显示了这一过程：

 

If Request.Browser.Cookies = True Then

' 使用cookies

Else

'没有cookie支持

End If

 

可以联合代码来使用cookie值。以下C#代码段对cookie支持进行了测试，并相应地将结果显示在一个文本框：

if (Request.Browser.Cookies == true)

{

if (Request.Cookies["LastVisited1"] == null)

{

HttpCookie newCookie = new HttpCookie("LastVisited1",DateTime.Now.ToString());

newCookie.Expires = DateTime.Now.AddYears(1);

Response.Cookies.Add(newCookie);

this.txtName.Text = "Is this your first time?";

} else {

this.txtName.Text = "We haven't seen you since " +

 Request.Cookies["LastVisited1"].Value;

}  }

 

你可以将这一代码段添加到ASP.NET页中的Page_Load事件。

保存数据的另一方式
ASP.NET提供了保存特定用户数据的多种方法。其中一个老方法就是cookies。对于敏感数据，虽然cookies不是最好的方法，但它是诸如颜色参数选择、最后一次访问日期等亲和力选项(benign items)的最佳选择。虽然这些敏感数据重要，但当用户的计算机崩溃时数据丢失，这也不是世界的末日。



天外飞仙 2005-11-14 20:54 发表评论
]]>