<![CDATA[工作相关 - 艺风在线 - Power By CSZI.com]]> http://max.cszi.com zh-cn zhouyu@69sea.com(一线风) CSBlog v2.0.1 <![CDATA[工作相关 - 艺风在线 - Power By ]]> /App_Themes/Love/Images/ http://max.cszi.com http://max.cszi.com/Blog/Blog.aspx?Id=739 <![CDATA[延时至调用时获取被反序列化数据的类型的实现]]> 一线风 工作相关 2010-4-7 15:43:13 http://max.cszi.com/Blog/Blog.aspx?Id=739 /Blog/Blog.aspx?Id=739#commentbox 应用场景：
  设计一个任务调度系统，配置信息以XML行式保存在Tasks.config的配置文件里，该配置里不止一个任务。不同的任务，会有不同配置信息与设定。
 
解决方案1：使用XPath直接读
 优点：1. 直接；2. 灵活(配置可以千变万化)
 缺点：1. 不友好，要写一堆的读取XML数据的方法，每次有新的任务时都要重写不同的XML片断；2. 容易出错，很有可能因为写了一个错误的节点属性名称而得不到数据
 
解决方案2：使用对象序列化成XML文档
 缺点：1. 反序列化配置时必须有定义好的类型。
 优点：1. 友好，XML里的数据直接反序列化成对象的属性；2. 不容易出错，为什么呢？你肯定要先定义好类型序列化后使用，你别告诉我你是手写XML的；
 

 现在的问题是设计一个方法，解决它的缺点。就算有不同的配置我也能给你反序列化出来。那么抽出相同的部分，这部分不是我们关注的重点了。我们关注的是，如何重现不同的配置XML为实例。因为所有的对象都是继承自object的，那么，我们把扩展部分的类型就设定为object好了。经过测试发现，反序列化后的object是XmlNode[]数组。那我们要做的就是把这个XmlNode[]数组给转换为文本，然后再客户端使用的时候，将文本与定义好的类型进行反序列化。
 
代码原型：

 

C#代码
  1. [Serializable,   
  2.   XmlRoot(ElementName = "configuration")]    
  3.   public class XmlConfig   
  4.   {   
  5.   
  6.       /// <summary>   
  7.       /// 扩展   
  8.       /// </summary>   
  9.       [XmlElement("extend")]   
  10.       public object Extend { get; set; }   
  11.   
  12.       /// <summary>   
  13.       /// 获取已设定的扩展类型实例   
  14.       /// </summary>   
  15.       /// <typeparam name="T">扩展的类型</typeparam>   
  16.       /// <returns>扩展类实例</returns>   
  17.       public T GetExtend<T>() where T:class    
  18.       {   
  19.           return Serializer.XmlDeserializerFormText<T>(ExtendRawXml);   
  20.       }   
  21.   
  22.       /// <summary>   
  23.       /// Extend扩展的Xml片断   
  24.       /// </summary>   
  25.       /// <returns></returns>   
  26.       protected string ExtendRawXml   
  27.       {   
  28.           get  
  29.           {   
  30.               var nodes = Extend as XmlNode[];   
  31.               if (nodes == null || nodes.Length == 0)   
  32.                   return "<extend />";   
  33.               var w = new StringWriter();   
  34.               XmlWriter writer = new XmlTextWriter(w);   
  35.               writer.WriteStartElement("extend");   
  36.               foreach (var node in nodes)   
  37.                   writer.WriteRaw(node.OuterXml);   
  38.   
  39.               writer.WriteEndElement();   
  40.               writer.Close();   
  41.               return w.ToString();   
  42.           }   
  43.       }   
  44.   
  45.   }   
  46.   
  47.   [Serializable,   
  48.   XmlRoot("extend")]   
  49.   public class MyExtend   
  50.   {   
  51.       public int Id { get; set; }   
  52.       public string Name { get; set; }   
  53.   }  
]]> http://max.cszi.com/Blog/Blog.aspx?Id=731 <![CDATA[今天用别人的webform分页控件，遇到的一个怪问题。]]> 一线风 工作相关 2009-12-3 17:00:01 http://max.cszi.com/Blog/Blog.aspx?Id=731 /Blog/Blog.aspx?Id=731#commentbox 控件的当前页PageIndex是在控件的PageChanged事件后改变的，所以传入底层时，不能在Page_Load里写，在这儿写的时候PageChanged方法还没有执行。是获取不到正确的PageInddex的。但是我把底层的查询置于PageChanged后又发现PageIndex始终是1 ，死也不变，搞了一两个小时，最后还是问老黄，他看了会儿才说这个控件是必须不能在所在form里使用enableviewstate属性的，不管是true还是false，而我是一开始就关闭了这个viewstate，最不喜欢的就是这个东东了。

]]> http://max.cszi.com/Blog/Blog.aspx?Id=727 <![CDATA[更改配置app.Config里的值]]> 一线风 工作相关 2009-11-17 17:53:37 http://max.cszi.com/Blog/Blog.aspx?Id=727 /Blog/Blog.aspx?Id=727#commentbox
C#代码
  1.  System.Configuration.Configuration config =   
  2.      ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None);   
  3.   
  4.  AppSettingsSection appSetcion = config.GetSection("appSettings") as AppSettingsSection;   
  5.  appSetcion.Settings["AutoRun"].Value = "this is  a test";   
  6.   
  7. // ConfigurationManager.AppSettings["Save"] = isCheck.ToString();   
  8.  txtMessage.Text += ConfigurationManager.AppSettings["AutoRun"];   
  9.  config.Save();   
更改自动定义配置的C#代码
  1. bool isCheck = chkAutoRun.Checked;   
  2.             System.Configuration.Configuration config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None);   
  3.             CoreSection core = config.GetSection("coreSection") as CoreSection;   
  4.             if (core != null) core.AutoRun = isCheck;   
  5.             config.Save();  

 

注意：要使用Section操作才行。直接用Appsettting["somekey"]是不行的

]]> http://max.cszi.com/Blog/Blog.aspx?Id=726 <![CDATA[简历更新，更新对Xhtml，DIV，CSS的一些认识]]> 一线风 工作相关 2009-11-11 17:31:24 http://max.cszi.com/Blog/Blog.aspx?Id=726 /Blog/Blog.aspx?Id=726#commentbox 今天对简历进行了更新，因为女朋友最近在学习DIV+CSS，我也跟着一块学了学，刚好，把学到的差不多都用上了。修正了一些原先的错误观念，修改过后还是有点心得的，呵！

总结：
-------------------------
1. CSS应用了float属性后要同时申请宽度定义,widht:auto，这个是标准问题
2. CSS应用了float后在下面要应用clear:both;清除，否则float元素会脱离上一级元素
3. W3C很变态，target="_blank" 不符合规范了
4. 想让固定尺寸的DIV居中于屏幕的话，除了最上层的DIV的texta-align:center;外还要在其下层的DIV里写上margin-Right: auto; margin-Left: auto;才行

]]> http://max.cszi.com/Blog/Blog.aspx?Id=724 <![CDATA[使用Oracle提供的Oracle.DataAccess 返回包里的记录集游标，含Oralce里的分页包代码]]> 一线风 工作相关 2009-11-4 17:41:02 http://max.cszi.com/Blog/Blog.aspx?Id=724 /Blog/Blog.aspx?Id=724#commentbox C#里的调用代码

C#代码
  1. [Test]   
  2.         public void Page1Test()   
  3.         {   
  4.             using(Database db = DBFactory.Create())   
  5.             {   
  6.                 const string sql = " select * from test_temp where ID < 1000 order by id asc ";   
  7.   
  8.                 OracleCommand cmd = new OracleCommand("PAGESPLIT_PKG.PAGESPLIT_SP",db.Connection);   
  9.                 cmd.CommandType = CommandType.StoredProcedure;   
  10.                 OracleParameter p1 = new OracleParameter("pagesize", OracleDbType.Int32);   
  11.                 p1.Direction = ParameterDirection.Input;   
  12.                 p1.Value = 20;   
  13.                 OracleParameter p2 = new OracleParameter("pageindex", OracleDbType.Int32);   
  14.                 p2.Direction = ParameterDirection.Input;   
  15.                 p2.Value = 2;   
  16.                 OracleParameter p3 = new OracleParameter("sqltext", OracleDbType.Varchar2);   
  17.                 p3.Direction = ParameterDirection.Input;   
  18.                 p3.Value = sql;   
  19.                   
  20.                 OracleParameter p4 = new OracleParameter("Records_out", OracleDbType.Int32,DBNull.Value,ParameterDirection.Output); //就算是空值也要写，否则是会出错的   
  21.                 OracleParameter p5 = new OracleParameter("table_out", OracleDbType.RefCursor,DBNull.Value, ParameterDirection.Output);   
  22.                    
  23.                 cmd.Parameters.Add(p1);   
  24.                 cmd.Parameters.Add(p2);   
  25.                 cmd.Parameters.Add(p3);   
  26.                 cmd.Parameters.Add(p4);   
  27.                 cmd.Parameters.Add(p5);   
  28.   
  29.                 OracleDataAdapter da = new OracleDataAdapter(cmd);   
  30.   
  31.   
  32.                 DataSet ds = new DataSet();   
  33.                 da.Fill(ds);   
  34.   
  35.                 Console.WriteLine(ds.Tables.Count);   
  36.                 Console.WriteLine(ds.Tables[0].TableName);   
  37.                 Console.WriteLine(ds.Tables[0].Rows.Count);   
  38.                 Console.WriteLine("结果:" + cmd.Parameters["Records_out"].Value.ToString());   
  39.   
  40.                 foreach(DataRow  row in ds.Tables[0].Rows)   
  41.                 {   
  42.                     Console.WriteLine(row[1]);   
  43.                 }   
  44.             }   
  45.         }   

Oracle里的包内容：

SQL代码
  1. create or replace package PageSplit_PKG as  
  2. -----------------------------------------------------------------------   
  3. -- 分页模块PageSplitPackage4Oracle V0.01   
  4. -- Author : zhouyu  Eamil:atwind@cszi.com   
  5. -- 2009-11-4   
  6. -----------------------------------------------------------------------/   
  7.   
  8.     type DataTable is REF CURSOR;  --游标类型定义，用于返回数据集   
  9.        
  10.     procedure PageSplit_SP(PageSize int,PageIndex int,SqlText string,Records_out out int,Table_out out DataTable); --申明包里的SP1   
  11.        
  12.     procedure PageSplit_SP(PageSize int,PageIndex int,SqlText string,Records_out out int,Pages_out out int,Table_out out DataTable); --申明包里的SP2   
  13.        
  14.     procedure PageSplit_SP(PageSize int,PageIndex int,SqlText string,SqlTextCount string,Records_out out int,Table_out out DataTable); --申明包里的SP3   
  15.        
  16.     procedure PageSplit_SP(PageSize int,PageIndex int,SqlText string,Table_out out DataTable); --申明包里的SP3   
  17.        
  18. end;   
  19.   
  20. create or replace package body PageSplit_PKG as  
  21.        
  22. -- 以下方法来自于网络修改   
  23. --------------------------------------------------------------------------------------------   
  24. --功能描述: 大数据量分页通用存储过程,超过100W数据的表，尽量加上索引上的条件   
  25. --创建时间: 2009-11-4   
  26. --------------------------------------------------------------------------------------------/   
  27.     procedure PageSplit_SP   
  28.     (   
  29.         PageSize int,       --每页记录数   
  30.         PageIndex int,         --当前页码,从 1 开始   
  31.         SqlText string,     --查询语句,含排序部分   
  32.         Records_out out int,--返回总记录数   
  33.         Table_out out DataTable  ----返回当前页数据记录   
  34.     ) as  --对包中定义的SP1的实现   
  35.     v_sql varchar2(8000);  -- 不要超过32767个字符,不可以使用nvarchar2型,下面用的是to_char()   
  36.     v_count int;   
  37.     v_maxRownum int;   
  38.     v_minRownum int;   
  39.      begin  
  40.         --取记录总数   
  41.         v_sql := 'select count(*) from (' || SqlText || ')';    --拼接统计Sql   
  42.         execute immediate v_sql into v_count; --执行统计   
  43.         Records_out := v_count;   
  44.            
  45.          --行位置判断   
  46.         v_maxRownum := PageIndex * PageSize;   
  47.         v_minRownum := v_maxRownum - PageSize + 1;   
  48.            
  49.         --拼接查询语句   
  50.         v_sql := 'SELECT *  
  51.               FROM (  
  52.                   SELECT A.*, rownum rn  
  53.                   FROM  ('|| SqlText ||') A  
  54.                   WHERE rownum <= '|| to_char(v_maxRownum) || '  
  55.               ) B  
  56.               WHERE rn >= ' || to_char(v_minRownum) ;   
  57.               --注意对rownum别名的使用,第一次直接用rownum,第二次一定要用别名rn   
  58.            
  59.         open Table_out for  v_sql;   
  60.   
  61.      end;   
  62.   
  63.   
  64. /*****************************************************************   
  65.  *功能描述: 大数据量分页通用存储过程(重载1,直接返回分页数量)   
  66.  *创建时间: 2009-11-3   
  67.  *****************************************************************/   
  68.     procedure PageSplit_SP   
  69.     (   
  70.         PageSize int,       --每页记录数   
  71.         PageIndex int,         --当前页码,从 1 开始   
  72.         SqlText string,     --查询语句,含排序部分   
  73.         Records_out out int,--返回总记录数   
  74.         Pages_out out int,  --返回分出的页数   
  75.         Table_out out DataTable  ----返回当前页数据记录   
  76.     )   
  77.     as  
  78.         v_sql varchar2(8000);   
  79.         v_count int;   
  80.         v_maxRownum int;   
  81.         v_minRownum int;   
  82.     begin  
  83.       ----取记录总数   
  84.       v_sql := 'select count(*) from (' || SqlText || ')';  --生成统计字符串   
  85.       execute immediate v_sql into v_count; --执行统计   
  86.       Records_out := v_count;   
  87.          
  88.       --行位置判断   
  89.       v_maxRownum := PageIndex * PageSize;   
  90.       v_minRownum := v_maxRownum - PageSize + 1;   
  91.          
  92.       --拼接查询语句   
  93.       v_sql := 'SELECT *  
  94.                 FROM (  
  95.                       SELECT A.*, rownum rn  
  96.                       FROM  ('|| SqlText ||') A  
  97.                       WHERE rownum <= '|| to_char(v_maxRownum) || '  
  98.                      ) B  
  99.                 WHERE rn >= ' || to_char(v_minRownum) ;   
  100.                 --注意对rownum别名的使用,第一次直接用rownum,第二次一定要用别名rn   
  101.   
  102.         OPEN Table_out FOR  v_sql;   
  103.   
  104.     end;   
  105.   
  106.   
  107. /*****************************************************************   
  108.  *功能描述: 大数据量分页通用存储过程(重载2，自定义统计查询，推荐使用)   
  109.  *创建时间: 2009-11-3   
  110.  *****************************************************************/   
  111.     procedure PageSplit_SP   
  112.     (   
  113.         PageSize int,        --每页记录数   
  114.         PageIndex int,      --当前页码,从 1 开始   
  115.         SqlText string,    --查询语句,含排序部分   
  116.         SqlTextCount string,     --获取记录总数的查询语句   
  117.         Records_out out int,    --返回总记录数   
  118.         Table_out out DataTable)   
  119.     as  
  120.         v_sql varchar2(8000);   
  121.         v_count int;   
  122.         v_maxRownum int;   
  123.         v_minRownum int;   
  124.     begin  
  125.       ----取记录总数   
  126.       execute immediate SqlTextCount into v_count;   
  127.       Records_out := v_count;   
  128.       ----执行分页查询   
  129.       v_maxRownum := PageIndex * PageSize;   
  130.       v_minRownum := v_maxRownum - PageSize + 1;   
  131.   
  132.       v_sql := 'SELECT *  
  133.                 FROM (  
  134.                       SELECT A.*, rownum rn  
  135.                       FROM  ('|| SqlText ||') A  
  136.                       WHERE rownum <= '|| to_char(v_maxRownum) || '  
  137.                      ) B  
  138.                 WHERE rn >= ' || to_char(v_minRownum) ;   
  139.                 --注意对rownum别名的使用,第一次直接用rownum,第二次一定要用别名rn   
  140.   
  141.       OPEN Table_out FOR  v_sql;   
  142.   
  143.     end ;   
  144.   
  145. /*****************************************************************   
  146.  *功能描述: 大数据量分页通用存储过程(重载3，不输出总记录数，适用于外部分页计算，内部直选记录集，DB计算压力最小)   
  147.  *创建时间: 2009-11-3   
  148.  *****************************************************************/   
  149.     procedure PageSplit_SP   
  150.     (   
  151.         PageSize int,        --每页记录数   
  152.         PageIndex int,      --当前页码,从 1 开始   
  153.         SqlText string,  --查询语句,含排序部分   
  154.         Table_out out DataTable   
  155.     )   
  156.     as  
  157.         v_sql varchar2(8000);   
  158.         v_maxRownum int;   
  159.         v_minRownum int;   
  160.     begin  
  161.   
  162.       ----执行分页查询   
  163.       v_maxRownum := PageIndex * PageSize;   
  164.       v_minRownum := v_maxRownum - PageSize + 1;   
  165.   
  166.       v_sql := 'SELECT *  
  167.                 FROM (  
  168.                       SELECT A.*, rownum rn  
  169.                       FROM  ('|| SqlText ||') A  
  170.                       WHERE rownum <= '|| to_char(v_maxRownum) || '  
  171.                      ) B  
  172.                 WHERE rn >= ' || to_char(v_minRownum) ;   
  173.                 --注意对rownum别名的使用,第一次直接用rownum,第二次一定要用别名rn   
  174.   
  175.       OPEN Table_out FOR  v_sql;   
  176.   
  177.     end;   
  178.   
  179.   
  180. end;  

 

在Toad里编译能通过，PLSQL Developer里则有问题。不知啥原因，知道的高人回答一下。呵~~~

]]> http://max.cszi.com/Blog/Blog.aspx?Id=718 <![CDATA[decimal(numeric )、float 和 real 数据类型的区别]]> 一线风 工作相关 2009-10-29 13:40:04 http://max.cszi.com/Blog/Blog.aspx?Id=718 /Blog/Blog.aspx?Id=718#commentbox float你不能规定它精度。  decimal可以。

decimal(numeric )             同义，用于精确存储数值

float 和 real                      不能精确存储数值


decimal数据类型最多可存储 38 个数字，所有数字都能够放到小数点的右边。decimal数据类型存储了一个准确（精确）的数字表达法；不存储值的近似值。

定义decimal的列、变量和参数的两种特性如下：

p   小数点左边和右边数字之和，不包括小数点。如 123.45,则 p=5，s=2。
指定精度或对象能够控制的数字个数。

s
指定可放到小数点右边的小数位数或数字个数。

p 和 s 必须遵守以下规则：0 <=s<=p<= 38。

numeric和decimal数据类型的默认最大精度值是 38。在 Transact-SQL 中，numeric与decimal数据类型在功能上等效。

当数据值一定要按照指定精确存储时，可以用带有小数的decimal数据类型来存储数字。

float 和 real 数据
float和real数据类型被称为近似的数据类型。在近似数字数据类型方面，float和real数据的使用遵循 IEEE 754 标准。

 

近似数字数据类型并不存储为多数数字指定的精确值，它们只储存这些值的最近似值。在很多应用程序中，指定值与存储值之间的微小差异并不明显。但有时这些差异也值得引起注意。由于float和real数据类型的这种近似性，当要求精确的数字状态时，比如在财务应用程序中，在那些需要舍入的操作中，或在等值核对的操作中，就不使用这些数据类型。这时就要用integer、decimal、money或smallmone数据类型。

在 WHERE 子句搜索条件中（特别是 = 和 <> 运算符），应避免使用float或real列。最好限制使用float和real列做> 或 < 的比较。

IEEE 754 规格提供了四种舍入模式：舍入到最接近的值、上舍入、下舍入和舍入到零。Microsoft® SQL Server™ 使用上舍入。所有的数值必须精确到确定的精度，但会产生细小的浮点值变化。因为浮点数字的二进制表示法可以采用很多合法舍入规则中的任意一条，因此我们不可能可靠地量化一个浮点值。

转换 decimal 和 numeric 数据
对于decimal和numeric数据类型，Microsoft® SQL Server™ 将精度和小数位数的每个特定组合看作是不同的数据类型。例如，decimal(5,5) 和decimal(5,0) 被当作不同的数据类型。

在 Transact-SQL 语句中，带有小数点的常量自动转换为numeric数据值，且必然使用最小的精度和小数位数。例如，常量 12.345 被转换为numeric值，其精度为 5，小数位为 3。

从decimal或numeric向float或real转换会导致精度损失。从int、smallint、tinyint、float、real、money或smallmoney向decimal或numeric转换会导致溢出。

默认情况下，在将数字转换为较低精度和小数位数的decimal或numeric值时，SQL Server 使用舍入法。然而，如果 SET ARITHABORT 选项为 ON，当发生溢出时，SQL Server 会出现错误。若仅损失精度和小数位数，则不会产生错误。

]]> http://max.cszi.com/Blog/Blog.aspx?Id=716 <![CDATA[用System.Net.Mail给Gmail发信时出现 服务器要求安全连接或客户端未通过身份验证 的解决办法]]> 一线风 工作相关 2009-10-28 14:48:45 http://max.cszi.com/Blog/Blog.aspx?Id=716 /Blog/Blog.aspx?Id=716#commentbox 上午建了一个测试的新账号：demo@xxx.com用来测试邮件发送的，可是测试的时候一直提示：

用System.Net.Mail给Gmail发信时：System.Net.Mail.SmtpException: SMTP 服务器要求安全连接或客户端未通过身份验证。 服务器响应为: 5.5.1 Authentication Required. Learn more at       

 

网上查的时候也没有找到。后来在邮件账号的POP设置里对从现在起所收到的邮件启用 POP 启用一下就OK了。

]]> http://max.cszi.com/Blog/Blog.aspx?Id=695 <![CDATA[Session在安全性上基本上是等同于Cookie的.]]> 一线风 工作相关 2009-8-11 16:38:47 http://max.cszi.com/Blog/Blog.aspx?Id=695 /Blog/Blog.aspx?Id=695#commentbox 因为一个客户的网站所在的虚拟主机对内存进行了限制,结果就是后台进去后再操作一下就会被弹出.好不恼人,正在把CMS改成双模认证,和Slitghtboy聊了一下,才反映过来,如果Cookie设为与浏览器进程相关的话和Session就一样了. 有些东西,我们需要点醒,一点就醒,不点就晚醒.哈哈哈!

]]> http://max.cszi.com/Blog/Blog.aspx?Id=650 <![CDATA[用Windows计划任务定时执行某一Url地址]]> 一线风 工作相关 2009-4-10 9:51:01 http://max.cszi.com/Blog/Blog.aspx?Id=650 /Blog/Blog.aspx?Id=650#commentbox 结合计划任务与VBS就能实现,注意,VBS间隔的时间要小于计划任务间隔的时间

 

VBS代码
  1. Randomize   
  2. d = Rnd()   
  3. Dim ie   
  4. Set ie = CreateObject("InternetExplorer.Application")   
  5. ie.navigate("http://t.test.com/service/GameServer.aspx?rand="&d)   
  6. ie.menubar=0   
  7. ie.visible=1   
  8. ie.ToolBar=0   
  9. ie.StatusBar=0   
  10. ie.Height=360   
  11. ie.Width=500   
  12. Wscript.sleep 6000 '10秒后关闭   
  13. ie.quit   
  14. Set IE = Nothing  

 

]]> http://max.cszi.com/Blog/Blog.aspx?Id=621 <![CDATA[C#实现的锤子剪刀布算法]]> 一线风 工作相关 2009-3-12 11:24:39 http://max.cszi.com/Blog/Blog.aspx?Id=621 /Blog/Blog.aspx?Id=621#commentbox 除平局外，不是赢就是输。

C#代码
  1. /// <summary>   
  2. /// 游戏结果判断   
  3. /// </summary>   
  4. /// <param name="playerA">发起游戏者[一定是人]</param>   
  5. /// <param name="playerB">被挑战者[可能是系统]</param>   
  6. /// <returns>平/赢/输</returns>   
  7. GameResultType JudgeGame(GameType playerA, GameType playerB)   
  8. {   
  9.     if (playerA == playerB)   
  10.         return GameResultType.Draw;   
  11.   
  12.     if ((playerA == GameType.Hammer && playerB == GameType.Scissors) || (playerA == GameType.Scissors && playerB == GameType.Cloth) || (playerA == GameType.Cloth && playerB == GameType.Hammer))   
  13.         return GameResultType.Win;   
  14.     else  
  15.         return GameResultType.Lose;   
  16. }   
]]> http://max.cszi.com/Blog/Blog.aspx?Id=535 <![CDATA[winxpsp3下的asp.Net2.0IIS无法正常运行的解决办法]]> 一线风 工作相关 2008-12-4 17:49:51 http://max.cszi.com/Blog/Blog.aspx?Id=535 /Blog/Blog.aspx?Id=535#commentbox 由于公司的新地点里不能布线,全部用的都是无线网卡,结果就是这个杂牌子[Tenda]的无线网卡在我原来的WIndows2003系统上直接就蓝屏.哎~~~ 没办法只好安到WinXp了.哎~~~ 结果就是安了VS2005再安IIS后页面根本就打不开.事件信息里给出的信息是:

事件类型: 错误
事件来源: ASP.NET 2.0.50727.0
事件种类: 无
事件 ID: 1088
日期:  2008-12-4
事件:  17:37:57
用户:  N/A
计算机: CZINTEL-032
描述:
由于无法创建应用程序域，因此未能执行请求。错误: 0x80131902

有关更多信息，请参阅在 http://go.microsoft.com/fwlink/events.asp 的帮助和支持中心。


在网上一查可能是因为没有正常注册Asp.Net2.0的原因.

解决办法：
C:\windows\microsoft.net\framework\v2.0.50727\aspnet_regiis.exe -i

如果还是错误重启IIS试一下,反正我是一下子就好了! 嘿~~~~

]]> http://max.cszi.com/Blog/Blog.aspx?Id=487 <![CDATA[为了兼容FireFox ]]> 一线风 工作相关 2008-8-7 15:23:39 http://max.cszi.com/Blog/Blog.aspx?Id=487 /Blog/Blog.aspx?Id=487#commentbox 最后在做一个新后台的样式，可是发现在FireFox下好多事情不是如IE下的一样！

margin:-5 效果等同于IE里的 margin:0px;  不然是会有右移5像素左右的效果

在进行DOM操作时。FireFox不支持children而是对应的childNodes

JavaScript代码
  1. function ChgStyle(t)   
  2. {   
  3.  var obj= $("NavMenu");   
  4.   
  5.  var agt = navigator.userAgent.toLowerCase();   
  6.  var ie = ((agt.indexOf("msie") != -1) && (agt.indexOf("opera") == -1) && (agt.indexOf("omniweb") == -1));   
  7.   
  8.  if(ie)   
  9.  {   
  10.   for(i=0;i<obj.children.length;i++)   
  11.   {   
  12.    obj.children[i].id = "";   
  13.    obj.children[i].id =(obj.children[i]==t) ? "Menu_On" : "";   
  14.   }   
  15.  }   
  16.  else  
  17.  {   
  18.   for(i=0;i<obj.childNodes.length;i++)   
  19.   {   
  20.    obj.childNodes[i].id = "";   
  21.    obj.childNodes[i].id =(obj.childNodes[i]==t) ? "Menu_On" : "";   
  22.   }   
  23.  }   
  24.   
  25. }   
]]> http://max.cszi.com/Blog/Blog.aspx?Id=482 <![CDATA[在工作线程里调用UI线程控件的实现方法]]> 一线风 工作相关 2008-8-1 12:25:20 http://max.cszi.com/Blog/Blog.aspx?Id=482 /Blog/Blog.aspx?Id=482#commentbox 工作线程里修改UI线程的控件是不安全的，那么如何做呢？

 

C#代码
  1. public delegate void ChangeTipDelegate(string s,Color color);   
  2.   
  3.        /// <summary>   
  4.        /// 修改提示信息   
  5.        /// </summary>   
  6.        /// <param name="s"></param>   
  7.        public void TaskTip(string s,Color color)   
  8.        {   
  9.            labMessage.Text = s;   
  10.            labMessage.ForeColor = color;   
  11.        }   
  12.   
  13.        /// <summary>   
  14.        /// 即时修改提示 ,  UI线程直接调用而非UI线程封送   
  15.        /// </summary>   
  16.        /// <param name="s"></param>   
  17.        public void ChangeTip(string s,Color color)   
  18.        {   
  19.            if (this.InvokeRequired)   
  20.                this.BeginInvoke(new ChangeTipDelegate(TaskTip), s,color);   
  21.            else  
  22.                TaskTip(s,color);   
  23.        }   
  24.   
  25.        public void ChangeTip(string s)   
  26.        {   
  27.            ChangeTip(s, Color.Blue);    //设定默认色   
  28.        }  
]]> http://max.cszi.com/Blog/Blog.aspx?Id=477 <![CDATA[Asp.Net(C#) XML+Xslt转Excel的解决方案]]> 一线风 工作相关 2008-7-4 11:36:26 http://max.cszi.com/Blog/Blog.aspx?Id=477 /Blog/Blog.aspx?Id=477#commentbox 1. 新建一个Excel文档，并填写表头与两行左右的内容，然后另存为XML表格 格式 并修改成Xslt模板;
2. 将要导入的数据生成XML格式文档;
3. 通过Xslt模板将数据生成，并设定Response.ContentType = "application/vnd.ms-excel";
4. 刷新输出页保存文件即为Excel格式的文档

ExportCards.xsl模板代码

XML/HTML代码
  1. <?xml version="1.0" encoding="utf-8"?>  
  2. <xsl:stylesheet version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:fn="http://www.w3.org/2005/xpath-functions" xmlns:xdt="http://www.w3.org/2005/xpath-datatypes" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns="urn:schemas-microsoft-com:office:spreadsheet">  
  3. <xsl:output method="xml" version="1.0" encoding="utf-8" indent="yes"/>  
  4. <xsl:template match="BitLab.Xml">  
  5.   
  6. <xsl:param name="Collection" select="Cards/Card" />  
  7.   
  8. <?mso-application progid="Excel.Sheet"?>  
  9. <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"  
  10.  xmlns:o="urn:schemas-microsoft-com:office:office"  
  11.  xmlns:x="urn:schemas-microsoft-com:office:excel"  
  12.  xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"  
  13.  xmlns:html="http://www.w3.org/TR/REC-html40">  
  14.  <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">  
  15.   <Created>1996-12-17T01:32:42Z</Created>  
  16.   <LastSaved>2008-07-04T02:10:38Z</LastSaved>  
  17.   <Version>11.6360</Version>  
  18.  </DocumentProperties>  
  19.  <OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">  
  20.   <RemovePersonalInformation/>  
  21.  </OfficeDocumentSettings>  
  22.  <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">  
  23.   <WindowHeight>4530</WindowHeight>  
  24.   <WindowWidth>8505</WindowWidth>  
  25.   <WindowTopX>480</WindowTopX>  
  26.   <WindowTopY>120</WindowTopY>  
  27.   <AcceptLabelsInFormulas/>  
  28.   <ProtectStructure>False</ProtectStructure>  
  29.   <ProtectWindows>False</ProtectWindows>  
  30.  </ExcelWorkbook>  
  31.  <Styles>  
  32.   <Style ss:ID="Default" ss:Name="Normal">  
  33.    <Alignment ss:Vertical="Bottom"/>  
  34.    <Borders/>  
  35.    <Font ss:FontName="宋体" x:CharSet="134" ss:Size="12"/>  
  36.    <Interior/>  
  37.    <NumberFormat/>  
  38.    <Protection/>  
  39.   </Style>  
  40.   <Style ss:ID="s28">  
  41.    <Font ss:FontName="宋体" x:CharSet="134"/>  
  42.   </Style>  
  43.   <Style ss:ID="s29">  
  44.    <Font ss:FontName="宋体" x:CharSet="134"/>  
  45.    <NumberFormat ss:Format=""￥"#,##0.00;"￥"\-#,##0.00"/>  
  46.   </Style>  
  47.   <Style ss:ID="s30">  
  48.    <Font ss:FontName="Verdana" x:Family="Swiss"/>  
  49.   </Style>  
  50.   <Style ss:ID="s31">  
  51.    <Font ss:FontName="Verdana" x:Family="Swiss"/>  
  52.    <NumberFormat ss:Format=""￥"#,##0.00;"￥"\-#,##0.00"/>  
  53.   </Style>  
  54.   <Style ss:ID="s32">  
  55.    <Font ss:FontName="Verdana" x:Family="Swiss"/>  
  56.    <NumberFormat ss:Format="General Date"/>  
  57.   </Style>  
  58.  </Styles>  
  59.  <Worksheet ss:Name="Cards">  
  60.   <Table ss:ExpandedColumnCount="7" ss:ExpandedRowCount="{1+count($Collection)}" x:FullColumns="1"  
  61.    x:FullRows="1" ss:StyleID="s30" ss:DefaultColumnWidth="54">  
  62.    <Column ss:StyleID="s30" ss:Width="45.75" ss:Span="1"/>  
  63.    <Column ss:Index="3" ss:StyleID="s30" ss:Width="129.75" ss:Span="1"/>  
  64.    <Column ss:Index="5" ss:StyleID="s31" ss:Width="54.75"/>  
  65.    <Column ss:Index="7" ss:StyleID="s30" ss:Width="127.5"/>  
  66.    <Row>  
  67.     <Cell ss:StyleID="s28"><Data ss:Type="String">标识列</Data></Cell>  
  68.     <Cell ss:StyleID="s28"><Data ss:Type="String">批次号</Data></Cell>  
  69.     <Cell ss:StyleID="s28"><Data ss:Type="String">卡序列号</Data></Cell>  
  70.     <Cell ss:StyleID="s28"><Data ss:Type="String">卡密码</Data></Cell>  
  71.     <Cell ss:StyleID="s29"><Data ss:Type="String">面额</Data></Cell>  
  72.     <Cell ss:StyleID="s28"><Data ss:Type="String">状态</Data></Cell>  
  73.     <Cell ss:StyleID="s28"><Data ss:Type="String">创建时间</Data></Cell>  
  74.    </Row>  
  75.   
  76. <xsl:for-each select="$Collection">  
  77.   
  78.    <Row>  
  79.     <Cell><Data ss:Type="Number"> <xsl:value-of select="@ID" /> </Data></Cell>  
  80.     <Cell><Data ss:Type="Number"> <xsl:value-of select="@BatchID" /> </Data></Cell>  
  81.     <Cell ss:StyleID="s30"><Data ss:Type="String"> <xsl:value-of select="@SN" /> </Data></Cell>  
  82.     <Cell ss:StyleID="s30"><Data ss:Type="String"> <xsl:value-of select="@Password" /> </Data></Cell>  
  83.     <Cell ss:StyleID="s31"><Data ss:Type="Number"> <xsl:value-of select="@Par" /> </Data></Cell>  
  84.     <Cell ss:StyleID="s30"><Data ss:Type="String"> <xsl:value-of select="@State" /> </Data></Cell>  
  85.     <Cell ss:StyleID="s32"><Data ss:Type="String"> <xsl:value-of select="@CreateDate" /> </Data></Cell>  
  86.    </Row>  
  87.   
  88. </xsl:for-each>  
  89.   
  90.  </Table>  
  91.   <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">  
  92.    <Selected/>  
  93.    <Panes>  
  94.     <Pane>  
  95.      <Number>3</Number>  
  96.     </Pane>  
  97.    </Panes>  
  98.    <ProtectObjects>False</ProtectObjects>  
  99.    <ProtectScenarios>False</ProtectScenarios>  
  100.   </WorksheetOptions>  
  101.  </Worksheet>  
  102. </Workbook>  
  103.   
  104.  </xsl:template>  
  105. </xsl:stylesheet>  



导出代码：

C#代码
  1. public partial class ExportCardForm : Czintel.Moodou.UI.ManagePage   
  2. {   
  3.     protected void Page_Load(object sender, EventArgs e)   
  4.     {   
  5.         this.Components.Remove(ServerContext.User);   
  6.   
  7.         Response.ContentType = "application/vnd.ms-excel";   
  8.         this.StyleSheet = "ExportCards.xsl";   
  9.         ComponentCollection<Card> cards = Cards.LoadCards();   
  10.         this.Components.Add(cards);   
  11.            
  12.     }   
  13.   
  14. }  


具体转换过程在基类里，这儿就不写了！

]]> http://max.cszi.com/Blog/Blog.aspx?Id=407 <![CDATA[用System.Web.Mail发信类。]]> 一线风 工作相关 2008-1-29 10:47:48 http://max.cszi.com/Blog/Blog.aspx?Id=407 /Blog/Blog.aspx?Id=407#commentbox
C#代码
       using System;    
       using System.Collections.Generic;    
       using System.Text;    
       using System.Web;    
       using System.Web.Mail;    
         
         
       namespace CS.Common.Mail    
       {    
           /// <summary>    
           /// 发送电子邮件类    
           /// </summary>    
           public class WebMail    
           {    
               //服务器设置相关    
               private static string _serverDomain = "smtp.163.com";    
               private static string _serverUserName = itwind@163.com;    
               private static string _serverPassword = "xxxxxxx";    
         
               private  string _title = "邮件标题";   //邮件标题 &n

...

 

C#代码
  1. using System;   
  2. using System.Collections.Generic;   
  3. using System.Text;   
  4. using System.Web;   
  5. using System.Web.Mail;   
  6.   
  7.   
  8. namespace CS.Common.Mail   
  9. {   
  10.     /// <summary>   
  11.     /// 发送电子邮件类   
  12.     /// </summary>   
  13.     public class WebMail   
  14.     {   
  15.         //服务器设置相关   
  16.         private static string _serverDomain = "smtp.163.com";   
  17.         private static string _serverUserName = itwind@163.com;   
  18.         private static string _serverPassword = "xxxxxxx";   
  19.   
  20.         private  string _title = "邮件标题";   //邮件标题   
  21.         private  string _body = "邮件正文";     //邮件内容   
  22.         private  string _replayTo;    //发信人,用来接收回复的电子邮件的   
  23.         private  string _bcc;      //密送邮件列表   
  24.         private  string _to;   
  25.   
  26.   
  27.         public WebMail()   
  28.         { }   
  29.   
  30.   
  31.         public void Send()   
  32.         {   
  33.             //邮件内容   
  34.             MailMessage mail = new MailMessage();   
  35.             mail.From = _serverUserName;   
  36.             mail.Subject = _title;   
  37.             mail.Body = _body;   
  38.             mail.BodyFormat = MailFormat.Html;   
  39.             mail.Priority = MailPriority.High;   
  40.             mail.To = _to;     
  41.             mail.Bcc = "478779122@qq.com"; //密抄   
  42.   
  43.             mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1");   
  44.             mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", _serverUserName);   
  45.             mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", _serverPassword);   
  46.   
  47.   
  48.             //发送邮件    
  49.             SmtpMail.SmtpServer = _serverDomain;   
  50.             SmtpMail.Send(mail);   
  51.                
  52.         }   
  53.   
  54.   
  55.         //静态属性，发信服务器设置   
  56.         public static string ServerDomain   
  57.         {   
  58.             set { _serverDomain = value; }   
  59.         }   
  60.   
  61.         public static string ServerUserName   
  62.         {   
  63.             set { _serverUserName = value; }   
  64.         }   
  65.   
  66.         public static string ServerPassword   
  67.         {   
  68.             set { _serverPassword = value; }   
  69.         }   
  70.   
  71.   
  72.         //实例属性，   
  73.         public string Title   
  74.             {   
  75.                 set { _title = value; }   
  76.         }   
  77.   
  78.         public string Body   
  79.         {   
  80.             set { _body = value; }   
  81.         }   
  82.   
  83.         public string Bcc   
  84.         {   
  85.             set { _bcc = value; }   
  86.         }   
  87.   
  88.         public string To   
  89.         {   
  90.             set { _to = value; }   
  91.         }   
  92.   
  93.         public string ReplayTo   
  94.         {   
  95.             set { _replayTo = value; }   
  96.         }   
  97.   
  98.     }   
  99. }   

 

]]> http://max.cszi.com/Blog/Blog.aspx?Id=405 <![CDATA[用System.Net.Mail发送电子邮件.]]> 一线风 工作相关 2008-1-28 15:00:18 http://max.cszi.com/Blog/Blog.aspx?Id=405 /Blog/Blog.aspx?Id=405#commentbox
C#代码
  1. //邮件内容   
  2.            MailMessage mail = new MailMessage("itwind@163.com", "478779122@qq.com", "测试", "正文文");   
  3.            mail.IsBodyHtml = true;   
  4.            mail.Priority = MailPriority.High;   
  5.            mail.ReplyTo = new MailAddress("itwind@163.com","zy");  //邮件回复地址   
  6.            //mail.Bcc.Add("itwind@163.com,478779122@qq.com");    //密抄   
  7.      
  8.   
  9.            //发送邮件    
  10.            SmtpClient smtp = new SmtpClient();   
  11.            smtp.Host = "smtp.163.com";   
  12.            smtp.Credentials = new NetworkCredential("itwind@163.com", "xxxxxxx");   
  13.            //smtp.EnableSsl = true;      //Gmail时使用   
  14.               
  15.            smtp.Send(mail);  


注意红色的地方一定要一样,不然发不出去的.

还有一点就是,如果提示:sorry, that domain isn't in my list of allowed 那么基本上来说,用System.Net.Mail里的类是发不出去的. 改用System.Web.Mail就可以了,不过也过期了.



使用System.Web.Mail的发信方法，不过这个过期了。

 

C#代码
  1. //邮件内容   
  2.             MailMessage mail = new MailMessage();   
  3.             mail.From = _serverUserName;   
  4.             mail.Subject = _title;   
  5.             mail.Body = _body;   
  6.             mail.BodyFormat = MailFormat.Html;   
  7.             mail.Priority = MailPriority.High;   
  8.             mail.To = _to;     
  9.             mail.Bcc = "max@69sea.com,478779122@qq.com"; //密抄   
  10.   
  11.             mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1");   
  12.             mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", _serverUserName);   
  13.             mail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", _serverPassword);   
  14.   
  15.   
  16.             //发送邮件    
  17.             SmtpMail.SmtpServer = _serverDomain;   
  18.             SmtpMail.Send(mail);  

 

]]> http://max.cszi.com/Blog/Blog.aspx?Id=397 <![CDATA[轻量级分页类，目前有两种算法]]> 一线风 工作相关 2007-11-21 10:31:01 http://max.cszi.com/Blog/Blog.aspx?Id=397 /Blog/Blog.aspx?Id=397#commentbox '  ---------------------------------  Author  information  -------------------------------------------------------------
'  File                        :                LitePage
'  Version                :                0.20.2007-11-20b
'  Revision        :                2007-11-20  11:22:28
'  Author                :                Atwind[周宇]        MSN:max@69sea.com      BLoghttp://max.69sea.com      QQ:478779122
'  Description:                通用轻量级分页类  只适用于10W以下，切记
''                                                一定要有OrderBy输入，不然分页结果不会变化
'  -----------------------------------------------------------------------------------------------------------------

'''----------------设置相关数据-----------------------
''#.Conn                                获取边接对象
''#.Records                        Count                0时自已内部统计,,>0时为外部取值[主要来自于Cookie]
''#.PageName                传参名        default:        "page"               
''#.PageSize                每页数        default:        10               
''#.DbType                        分页算法        default:        0       
'~~'#.Pkey="id"                统计主键        default:        "ID"                       
''#.Field                                字段名        default:        "  *  "       
''#.Condition                条件                default:        "  "                        ''不需要where
''#.Table                                表名               
''#.OrderBy                        排序                default:        "  "                        ''不需要order  by,需要asc或者desc       

'''----------------返回相关数据------------------------
''#.DataTable()        返回DataTable  <即Rs对象记录集,以二维数组方式>
''#.ShowPage(i)        返回分页，传参为样式代码
''~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Class  LitePage

        Private  myConn                                '连接对象
        Private  myRecords                        'RecType  取记录总数(>0为赋值或者固定值,0执行count设置存cookies,-1执行count不设置cookies)
        Private  myPageSize                        '每页记录数
        Private  myPageName                '地址栏页数参数名
        Private  myDbType                        '分页算法：0最原始的算法(全部适用,但不适于数据多于5000的);  1绝对定位算法(适用单表,或非常简单的表连接时,条件排序里不能要表别名，1W~10W级别)  2MSSQLSP
        Private  myField                                '字段名
        Private  myTable                                '表名
        Private  myCondition                        '条件,不需要where
        Private  myOrderBy                        '排序,不需要order  by,需要asc或者desc
        Private  myPkey                                '主键,必写
        Private  myPageIndex                        '当前第几页数
        Private  myPages                                '总页数

        Private  myIsDebug        ''是否调试


        Private  Sub  Class_Initialize
                myRecords  =  0
                myPageSize  =  10
                myDbType  =  0
                myPageName="page"
                myField="  *  "
        End  Sub

        Public  Property  Set  Conn(ByRef  o)                                ''----引用连接对象
                Set  myConn  =  o
        End  Property

       
        Public  Property  Let  IsDebug(ByVal  i)
                myIsDebug  =  i
        End  Property 

        Public  Property  Let  DbType(ByVal  i)
                myDbType  =  i
        End  Property 

        Public  Property  Let  PKey(ByVal  s)                                ''----设置主键
                myPkey=s
        End  Property

        Public  Property  Let  Field(ByVal  s)                                ''----设置字段
                myField=IIf(Len(s)<1,myField,s)
        End  Property

        Public  Property  Let  Table(ByVal  s)                                ''----设置表
                myTable=s
        End  Property

        Public  Property  Let  Condition(ByVal  s)                        ''----设置条件
                myCondition=IIf(Len(s)>2,"  WHERE  "  &  s,"")
        End  Property

        Public  Property  Let  OrderBy(ByVal  s)                        ''----设置排序
                myOrderBy=IIf(Len(s)>4,"  ORDER  BY  "  &  s,"")
        End  Property

        public  property  Get  PageIndex()                                        ''----        返回当前页
                PageIndex  =  myPageIndex
        End  Property
       
        Public  Property  Let  PageName(ByVal  s)
                myPageName=IIf(Len(s)<1,myPageName,s)
        End  Property

        Public  Property  Let  PageSize(ByVal  i)
                myPageSize=CheckNum(i,0,0,myPageSize,0) 
        End  Property


        Public  Property  Let  Records(ByVal  value)                        ''----设置统计的类型 
                myRecords  =  CheckNum(value,0,0,myRecords,0) 
        End  Property
        Public  Property  Get  Records()
                Records  =  myRecords
        End  Property


        Public  Property  Get  DataTable()
                Dim  Rs,arrRs,sql
               
                ''---  无输入总数，自已统计
                If  myRecords  =  0  Then 
                        sql  =  "  select  count(1)  from  "  &  myTable  &  myCondition
                        If  myIsDebug  Then          Response.write  "CountSql:<br>"&  sql&  "<br>"
                        rs  =  myConn.execute(sql)
                        myRecords  =  rs(0)
                End  If 

                myPages=(myRecords  +  myPageSize-1)  \  myPageSize                ''----总页数
                myPageIndex  =  CheckNum(Request.QueryString(myPageName),1,1,1,myPages)                        ''----当前页数
               
                ''---  算法微调
                If  myPageIndex  =  1  Then  myDbType  =  1


                If  myRecords  >  0  Then  ''---  有数据时才能查询，不然就无意义了
                       
                        ''--  0最原始的算法(全部适用,但不适于数据多于1W的)
                        If  myDbType  =  0  Then 
                                Sql="SELECT  "  &  myField  &  "  FROM  "  &  myTable  &  "  "  &  myCondition  &  "  "  &  myOrderBy
                                If  myIsDebug  Then  Response.write  "<br>Datasetsql:<br>"&sql  &"<br>"
                                Set  Rs  =  Server.CreateObject  ("Adodb.RecordSet")
                                Rs.Open  Sql,myConn,1,1,&H0001
                                'Set  rs  =  myConn.execute(sql)
                                Rs.AbsolutePosition  =  (myPageIndex  -  1)  *  myPageSize  +  1
                                arrRs  =  rs.getrows(myPageSize)
                        End  If 
                       
                        ''--  1绝对定位算法(适用单表,或非常简单的表连接时,条件排序里不能要表别名，1W~10W级别) 
                        If  myDbType  =  1  Then 
                                Dim  tempOrderBy
                                tempOrderBy  =    Replace(Replace(myOrderBy,"asc",  "[asc]"),"desc",  "[desc]")
                                tempOrderBy  =    Replace(Replace(tempOrderBy,"[asc]",  "desc"),"[desc]",  "asc")     
                                Dim  sonTop
                                sonTop  =  myRecords  -  (myPageIndex-1)*  myPageSize
                                If  myPageIndex  =  1  Then 
                                        sql  =  "  select  top  "&  myPageSize  &"    "  &  myField  &  "  from      "  &myTable&  "  "  &myCondition  &  "  "  &  myOrderBy
                                Else
                                        sql  =  "  select  top  "&myPageSize&"    "  &  myField  &  "  from  (  select  top    "  &  sonTop  &  "  *  from    "  &  myTable  &  myCondition  &  tempOrderBy  &  "  )  as  Temp  "&  myOrderBy
                                        'sql  =  "  select  top  "&myPageSize&"    "  &  myField  &  "  from  (  select  top    "  &  sonTop  &  "  "&myField&"  from    "  &  myTable  &  myCondition  &  tempOrderBy  &  "  )  as  Temp  "&  myOrderBy
                                End  If 
                                If  myIsDebug  Then  Response.write  "<br>Datasetsql:<br>"&sql  &"<br>"
                                Set  Rs  =  myConn.Execute(sql)
                                arrRs  =  rs.getrows(-1)
                        End  If 

                        Rs.close:Set  Rs=Nothing
                End  If
                DataTable  =  arrRs
                arrRs  =  null
        End  Property


        Private  Sub  Class_Terminate()
                If  IsObject(myConn)  Then  myConn.Close:Set  myConn=Nothing
        End  Sub

        '  输入:检查字符,是否有最小值,是否有最大值,最小值(默认数字),最大值
        Private  Function  CheckNum(ByVal  s,ByVal  b1,ByVal  b2,ByVal  i1,ByVal  i2)
                Dim  i
                s=Left(Trim(""  &  s),32)
                If  IsNumeric(s)  Then
                        i=CDbl(s)
                        i=IIf(b1=1  And  i<i1,i1,i)
                        i=IIf(b2=1  And  i>i2,i2,i)
                Else
                        i=i1
                End  If
                CheckNum=i
        End  Function

        '  输入:简化条件判断
        Private  Function  IIf(ByVal  b,ByVal  s1,ByVal  s2)
                IIf=s2
                If  b  Then  IIf=s1
        End  Function

        ''~~~~~~~显示分页~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        Public  Function  ShowPage(byval  strStyle)
                Dim  i
                'Response.write  "记录总数:"&iRecCount&"每页数："&myPageSize
                Dim  QueryStr,EveryQuery,StartP,EndP,CurRecord:QueryStr="?"

                CurRecord=myPageSize*myPageIndex
                If  CurRecord>iRecCount  Then  CurRecord=iRecCount
                If  Request.QueryString.Count>0  Then
                                For  Each  EveryQuery  In  Request.QueryString
                                        If  EveryQuery  <>  myPageName  Then  QueryStr  =  QueryStr&EveryQuery&"="&Request.QueryString(EveryQuery)&"&amp;"
                                Next
                End  If

                '''--------------------------------------------------选择样式
                Select  case  strStyle
                case  0               
                        ''------------------------------------------------数字分页样式
                        Dim  strHTML
                        ''strHTML  以后也可以用来替换时用！不过第一版就先不用了吧！就用一个基本样式得了！
                        strHTML=  "<div  style='font-size:12px;font-family:verdana;'>"&vbnewline
                        strHTML=strHTML&  ""
                        If  myPageIndex<>1  Then
                                strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"=1""><span  style='font-family:Webdings;'  title=""首页"">9</span></a>    "&vbnewline)
                                strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"="&myPageIndex-1&"""><span  style='font-family:Webdings;'  title=""上一页"">7</span></a>    ")
                        End  If
                        If  myPages  >  10  Then
                                If  myPageIndex<5  Then
                                        StartP=1:EndP=9
                                ElseIf  myPageIndex+5>myPages  Then
                                        StartP=myPages-8:EndP=myPages
                                Else
                                        StartP=myPageIndex-4:EndP=myPageIndex+4
                                End  If
                        Else
                                StartP=1:EndP=myPages
                        End  If
                        For  i=StartP  To  EndP
                                If  i=myPageIndex  Then
                                        strHTML=strHTML&("<span  style='color:#a90a08;  font-weight:  bold;font-size:16px;'>"&i&"</span>    ")
                                Else
                                        strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"="&i&""">"&i&"</a>    ")
                                End  If
                        Next
                        If  myPageIndex<>myPages  Then
                                strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"="&myPageIndex+1&"""  ><span  style='font-family:Webdings;'  title=""下一页"">8</span></a>    ")
                                strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"="&myPages&"""  ><span    style='font-family:Webdings;'  title=""未页"">:</span></a>  ")
                        End  If
                        ''strHTML=strHTML&  "共"&iRecCount&"条    第"&myPageIndex&"/"&myPages&"页      每页"&myPageSize&"条"
                        strHTML=strHTML&  "共"&myRecords&"条        "&myPageIndex&"/"&myPages&"页"
                        strHTML=strHTML&  "  </div>"
               
                case  1
                        ''-----------------------------------------------上下页分页方式
                        strHTML=""        ''strHTML    初始化分页模板
                        strHTML=  "<div  id=""PageNormal"">"
                        strHTML=strHTML&  ""
                        If  myPageIndex<>1  Then
                                strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"=1""  title=""First  page"">首页</a>      ")
                                strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"="&myPageIndex-1&"""  title=""Previous  page"">上一页</a>      ")
                        End  If
                        If  myPageIndex<>1  and  not  (myPageIndex<>myPages)  Then  strHTML=strHTML&"下一页        "
                        If  not(myPageIndex<>1)  and  (myPageIndex<>myPages)  Then  strHTML=strHTML&"  上一页        "
                        If  myPageIndex<>myPages  Then
                                strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"="&myPageIndex+1&"""  title=""Next  page"">下一页</a>      ")
                                strHTML=strHTML&("<a  href="""&QueryStr&myPageName&"="&myPages&"""  title=""Last  page"">尾页</a>  ")
                        End  If

                        strHTML=strHTML&  "总数:"&iRecCount&"      共"&myPages&"页"
                        strHTML=strHTML&  "  </div>"

                case  Else
                        ''空分页样式
                End  Select

                ShowPage  =  strHTML
                'Response.write  strHTML

        End  Function

End  Class

%>

－－－－－－－－－－－－－－－－－－
调试方法：


<!--#include  file="Inc/Conn.asp"-->
<!--#include  file="Lib/LitePage.asp"-->


<%
Dim  page,arrRs,i
opendataconn  99
Set  page  =  new  LitePage
Set  page.Conn  =    conn
'Response.write  conn.Provider 

With  page
        .PageSize  =  20
        .Field="  *  "
        .Table="[T]"
        .Condition=""                               
        .OrderBy="  id  desc    "       
        .IsDebug  =  1
        .DbType  =  1
End  With

arrRs  =  page.DataTable

For  i  =  0  To  UBound(arrRs,2)

        Response.write  "<li>:"  &  arrRs(1,i)  &  vbCrLf  &  "<br>"

Next 

'Response.write  "<br>OutPageIndex:"&Page.PageIndex

arrRs  =  null
Response.write  page.ShowPage(0)

Set  page  =  Nothing 

%>
]]> http://max.cszi.com/Blog/Blog.aspx?Id=390 <![CDATA[二级联动菜单Js 0.10版本.]]> 一线风 工作相关 2007-9-24 15:15:13 http://max.cszi.com/Blog/Blog.aspx?Id=390 /Blog/Blog.aspx?Id=390#commentbox Dim  sortF,sortS
sortF        =        request("firstsort")
sortS  =  request("secondsort")
response.write  "一级:"&sortF&"<br>二级:"&sortS&""
%>

<!DOCTYPE  HTML  PUBLIC  "-//W3C//DTD  HTML  4.0  Transitional//EN">
<HTML>
<HEAD>
<TITLE>  New  Document  </TITLE>
<META  NAME="Generator"  CONTENT="EditPlus">
</HEAD>
<BODY  onLoad="initSortList(sort.firstsort,sort.secondsort,1);">

<FORM  name="sort"  METHOD=POST  ACTION="">

<SELECT  NAME="firstsort"    onChange="getSecondMenu(this,secondsort,true)">             
</SELECT>

<SELECT  NAME="secondsort"  >                     
</SELECT>

<INPUT  TYPE="submit">

</FORM>

<script  language="JavaScript"  type="text/javascript">
/*  -----------------------------------------------------------------------------------------------------
File                        :        Sort_V010.js
Verion                :        0.10  beta
Author                :        zhouyu(2007-9-24)
Description        :        二级联动菜单,一级大类值可为字符串可为数值,下一版将能初始化分类上次被选中的值
-----------------------------------------------------------------------------------------------------    */
//定义了分类数组的二维数组，通过selectedIndex获得一级分类的下标值来得到相应的二级分类数据
var  arrSort=[
        ["请选择分类","请先选择大类"],
        ["玄幻","东方玄幻","转世重生","魔法校园","王朝争霸","异术超能","远古神话","变身情缘","异世大陆","吸血家族"],
        ["奇幻","西方奇幻","转世重生","魔法校园","王朝争霸","异术超能","远古神话","变身情缘","异世大陆","吸血家族"],
        ["武侠","传统武侠","历史武侠","谐趣武侠","浪子异侠"],
        ["仙侠","古典仙侠","奇幻修真","现代修真"],
        ["言情","千千心结","浪漫言情","宫闱情仇","快意江湖","菁菁校园","爱在职场","西方传奇","冒险推理","灵异恐怖","奇幻架空","纯爱耽美","品味人生"],
        ["都市","都市生活","商海沉浮","青春校园","白领生涯","恩怨情仇","宦海风云","都市重生","都市异能"],
        ["历史","历史传记","架空历史","三国梦想"],
        ["军事","现代战争","战争幻想","特种军旅"],
        ["游戏","游戏生涯","电子竞技","虚拟网游"],
        ["竞技","体育竞技","篮球运动","足球运动","弈林生涯"],
        ["科幻","科幻世界","星际战争","机器时代","数字生命","骇客时空"],
        ["灵异","灵异神怪","恐怖惊悚","推理侦探"],
        ["美文","休闲美文","杂文笔札","童话寓言","诗词散曲","短篇小说"],
        ["同人","动漫同人","武侠同人","小说同人"],
        ["剧本","影视剧本","动漫剧本","网游剧本"],
        ["图文","漫画连载","配图小说","原画插画","四格幽默"],
        ["出版","玄幻","奇幻","都市","言情","历史","军事","其他"]
];

var  arrFirstValue  =  [0,1,1,2,2,3,4,5,6,7,8,9,10,11,12,13,14,30];

var  sltedSecondItem;        //被选中的二级分类项
var  sltedFirstItemS;                //初选中的一级分类项,字符串
var  sltedFirstItemN  =  9;                //值
//initSortList(sort.firstsort,sort.secondsort);

//初始化一级,二级分类 
function  initSortList(sltFisrt,sltSecond,sortType)
{
        if  (!isNaN(sortType))
        {
                for(var  i  =  0;i  <  arrSort.length  ;  i++  )
                {
                        sltFisrt[i]  =  new  Option(arrSort[i][0],arrFirstValue[i]);                //按SortId值
                }
        }else{
                for(var  i  =  0;i  <  arrSort.length  ;  i++  )
                {
                        sltFisrt[i]  =  new  Option(arrSort[i][0],arrSort[i][0]);                        //按分类名称值
                }
        }
       
        sltSecond[0]  =  new  Option(arrSort[0][1],"");
}

//载入对应的二级分类(一级下拉对象,二级下拉对象)
function  getSecondMenu(sltFM,sltSM)
{
        var  arrSM  =  arrSort[sltFM.selectedIndex];                                //得到对应省份的城市数组
        sltSM.length=0;                                                                                                //清空城市下拉框，仅留提示选项

        var  optionIndex;
        for(var  i  =  1  ;  i  <  arrSM.length  ;  i++)
        {
                optionIndex  =  i  -  1;
                sltSM[optionIndex]=  new  Option(arrSM[i],arrSM[i]);
        }

}


</script>
</BODY>
</HTML>

<br><br>
说明:<br>
1.  select对象的option列表是和对应的数组的0开始算起的,就算没有值还是会列出.<br>
2.  sltSM[i-1]    是select对象的option列,必须是从0开始,如果0没有对应的值就会是空白的<br>

3.          var  firstIndex  =  sltFM.selectedIndex;                //一级大类的二维数组索引<br>
        var  arrSM  =  arrSort[firstIndex];                                //得到对应省份的城市数组<br>

4.          var  optionIndex;                Option项索引位<br>

<br><br><br><br><br><br>

下一版做成能初始化被选中的项.]]> http://max.cszi.com/Blog/Blog.aspx?Id=379 <![CDATA[用Js，DHTML控制表格的某一列的显示与隐藏]]> 一线风 工作相关 2007-8-2 14:16:45 http://max.cszi.com/Blog/Blog.aspx?Id=379 /Blog/Blog.aspx?Id=379#commentbox <!DOCTYPE  HTML  PUBLIC  "-//W3C//DTD  HTML  4.0  Transitional//EN">
<HTML>
<HEAD>
<TITLE>  New  Document  </TITLE>
<META  NAME="Generator"  CONTENT="EditPlus">
<META  NAME="Author"  CONTENT="">
<META  NAME="Keywords"  CONTENT="">
<META  NAME="Description"  CONTENT="">
</HEAD>

<!DOCTYPE  HTML  PUBLIC  "-//W3C//DTD  HTML  4.0  Transitional//EN">
<HTML>
<HEAD>
<TITLE>  New  Document  </TITLE>
<META  NAME="Generator"  CONTENT="EditPlus">
<META  NAME="Author"  CONTENT="">
<META  NAME="Keywords"  CONTENT="">
<META  NAME="Description"  CONTENT="">
</HEAD>

<BODY>
<SCRIPT  LANGUAGE="JavaScript">
<!--
//初始化时一定要隐一列
function  initHide(cell)
{
        obj  =  document.getElementById("showTb");
        for(i=0;i<obj.rows.length;i++)
        {
                        obj.rows[i].cells[cell].style.display  =  "none";
        }
}


//隐列
function  hide(cell)
{
        obj  =  document.getElementById("showTb");
        //obj.style.display        =        "none";
        //obj.rows[0].style.display  =  "none";        //隐藏第一行
        for(i=0;i<obj.rows.length;i++)
        {
                        obj.rows[i].cells[cell].style.display  =  "none";
        }
}


//  显列
function  show(cell)
{
        obj  =  document.getElementById("showTb");
        for(i=0;i<obj.rows.length;i++)
        {
                obj.rows[i].cells[cell].style.display  =  "block";
        }
}

//-->
</SCRIPT>
[BookCase:<a  onClick="hide(2)"  style="cursor:hand">隐</a>|<a  onClick="show(2)"  style="cursor:hand">显</a>]

<BR>
<TABLE  id="showTb"  name=  "showTb"  border=1>
<TR>
        <TD>11BookId</TD>
        <TD>12Hits</TD>
        <TD>13BookCase</TD>
        <TD>14BookS</TD>
        <TD>15Collect</TD>
</TR>
<TR>
        <TD>21</TD>
        <TD>22</TD>
        <TD>23</TD>
        <TD>24</TD>
        <TD>25</TD>
</TR>
<TR>
        <TD>31</TD>
        <TD>32</TD>
        <TD>33</TD>
        <TD>34</TD>
        <TD>35</TD>
</TR>
<TR>
        <TD>41</TD>
        <TD>42</TD>
        <TD>43</TD>
        <TD>44</TD>
        <TD>45</TD>
</TR>
</TABLE>


</BODY>
</HTML>


－－－－－－－－－－－－－－－－－－－

哈哈哈，刚刚外面下了一阵暴雨，好喜欢。  ^_^


]]> http://max.cszi.com/Blog/Blog.aspx?Id=373 <![CDATA[现在的问题是怎样选出每一大类（NClass）的最佳销售？]]> 一线风 工作相关 2007-7-12 13:36:19 http://max.cszi.com/Blog/Blog.aspx?Id=373 /Blog/Blog.aspx?Id=373#commentbox TBA
PId        NClass        price                sellcount
1        1                1                145       
2        2                2                124
3        1                2                5454
4        5                5                45
5        1                1                451
6        5                5                454
.........
现有一产品表如下
TBA
PId        NClass        price                sellcount
1        1                1                145       
2        2                2                124
3        1                2                5454
4        5                5                45
5        1                1                451
6        5                5                454
.........

select  NClass  ,buycount  from    tba  order  by  buycount  desc

现在的问题是怎样选出每一大类（NClass）的最佳销售？

CSDN答案：
(只验证了第一个，并且用的也是第一个，其它的没有验证。)
1.select  NClass,max(sellcount)  sellcount  from  TBA  group  by  NClass
2.select  *  from  TBA  T  where  not  exists(select  1  from  TBA  where  NClass=T.NClass  and  sellcount>T.sellcount)

----方法1:
select  *  from  表  as  a  where  not  exists(select  1  from  表  where  NClass=a.NClassand  sellcount>a.sellcount)
----方法2:
select  *  from  表  as  a  where  sellcount  =  (select  max(sellcount)  from  表  where  NClass=  a.NClass)
order  by  PID
----方法3:
select  a.*  from  表  as  a  inner  join  (select  PID,max(sellcount)  as  GetQty  from  表  group  by  sellcount)  as  b
on  b.NClass=  a.NClass  and  a.GetQty  =  b.GetQty  order  by  a.NClass

select  *  from  TBA    a 
where  sellcount  =  (select  max(sellcount)  from  TBA  where  NClass=  a.NClass)

]]>