2004年9月4日
Visual Studio 2008 Service Pack 1 中文版终于有了
不用多说了：
Microsoft Visual Studio 2008 Service Pack 1 (iso)
http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=27673c47-b3b5-4c67-bd99-84e525b5ce61

Visual Studio 2008 Team Foundation Server Service Pack 1(iso)
http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=9e40a5b6-da41-43a2-a06d-3cee196bfe3d

Microsoft .NET Framework 3.5 Service Pack 1
http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=ab99342f-5d1a-413d-8319-81da479ab0d7
posted @ 2008-08-13 11:47 七月(Lost) 阅读(192) | 评论 (2) | 编辑
看完了奋斗。收集了一些经典语录
一个人，一生中可能做过很多好事，他都会忘记。但等他到老的时候，真正记起来的是他做过的坏事。
什么叫坏事？
坏事就是那些，你怎么忘也忘不了的事儿，不管是出于什么原因，我们不得不犯下一些必须犯的错误，那些错误无法补救，也不会被忘记，而那些错误会令人忧伤，也许人生就是这样子啊。

女人喜欢你，有好坏两个方面，我希望你以后能够慎重对待，一个人能干成一件事，但同时，也能毁掉一件事，特别是女人，他们用另一种方式去思考，这你是没法把握的，而你能把握她们的原则，那就是向她们提供安全感与舒适感。
 
你对女人的爱护不会白白流走，她们真正的本事是给你生个孩子，那是人生最后的安慰。
 
一个生意人，一个成功的生意人，选择一个稳定的女人那是最重要的。
 
每个人，都只能年轻一次，这是人生最邪恶的地方。
 
有一天，你变老了，你可以不再轻信自己或者别人，你就可以逃过很多伤害，但你也因此失去了活力，失去猛地撞向尖刀的那种切切实实的SUO痛，没错，最终你是得到了平安，世故，那是逃避永恒痛苦的唯一方式
 
你不觉得这像鬼迷心窍吗？不错啊，如果换成是我的话，我也喜欢夏琳，很难找到不喜欢她的理由，是吗？
但是，别为她改变你自己，我希望你成功，叫她跟着你的生活节奏走，不然，你会因为失去自我而被她控制。

如果，你还在这个世界存在着，那么，这个世界无论什么样，对我都是有意义的；但如果你不在了，无论这个世界有多么好，它在我眼里也只是一片荒漠，而我就像是一个孤魂野鬼。

posted @ 2008-07-21 03:06 七月(Lost) 阅读(28) | 评论 (0) | 编辑
为幸福让道
        那天早上，一辆公交车正在行驶着，车上都是去上班的人。忽然，从一旁的马路上冲出一辆车，公交车一个急刹后停住了。只见那是一辆婚礼的摄像车，它的后面是一列长长的迎亲队伍，行驶得很缓慢。乘客开始抱怨上班要迟到了。公交车司机静静地坐在位子上，不时的按着喇叭。
        有人对司机说：“你关按喇叭不行，他们不可能给你让道的，倒不如从车队的空隙中冲过去。”
        司机回过头来，笑着说：“我按喇叭不时催他们给我退让，我是为他们祝福呢！”
        顿了顿，他又说：“别人结婚是件幸福的事。我们有机会为别人的幸福让一次道，这不也是一件幸福的事吗？”
        满车的乘客霎时安静下来了。
        给别人的幸福让道，是一件幸福的事----有这种心情的人，必定也是一个幸福的人。

今日文摘 2007年4月期62页
posted @ 2007-04-14 21:27 七月(Lost) 阅读(63) | 评论 (0) | 编辑
SQL取每课程前两名学生名单
有表
CREATE TABLE 成绩表
(
学号 varchar(50) NULL,
课号 varchar(50) NULL,
成绩 decimal(18, 1) NULL
)

取每课号前两名的学号和成绩并按课号和成绩排序：
select 课号,学号,成绩 from 成绩表 as t1 where (select count(*) from成绩表 as t2 where t1.课号=t2.课号 and t1.成绩>t2.成绩)<2 order by 课号,成绩 desc
posted @ 2007-04-12 00:20 七月(Lost) 阅读(70) | 评论 (0) | 编辑
sql server行转列问题终极解决
网络文章，做个笔记

主要应用case语句来解决行转列的问题
行转列问题主要分为两类
1)简单的行转列问题:
示例表:
id  sid           course  result
1   2005001 语文     80.0
2   2005001 数学     90.0
3   2005001 英语     80.0
4   2005002 语文     56.0
5   2005002 数学     69.0
6   2005002 英语     89.0
执行
select sid,语文=isnull(sum(case course when '语文' then result end),0),
   数学=isnull(sum(case course when '数学' then result end),0),
   英语=isnull(sum(case course when '英语' then result end),0)
   from result
   group by sid
   order by sid
得出结果
sid           语文 数学 英语
2005001 80.0  90.0  80.0
2005002 56.0  69.0  89.0

2)较为复杂的行转列
表1:course
id name
1 语文
2 数学
3 英语
表2:result
id sid          course  result
1 2005001 语文      80.0
2 2005001 数学      90.0
3 2005001 英语      80.0
4 2005002 语文      56.0
5 2005002 数学      69.0
6 2005002 英语      89.0

declare @sql varchar(8000)
set @sql='select sid'
select @sql=@sql+','+course.name+'=isnull(sum(case course when '''+course.name+''' then result end),0)'
 from course order by id
set @sql=@sql+' from result group by sid order by sid'
print @sql
exec(@sql)

得出结果
sid           语文 数学 英语
2005001 80.0  90.0  80.0
2005002 56.0  69.0  89.0

文章来源：http://www.chinahtml.com/databases/2/2007/mssql117046784310795.shtml

posted @ 2007-04-11 13:42 七月(Lost) 阅读(253) | 评论 (0) | 编辑
使用C#验证台湾地区身份证号码
     摘要: 使用C#驗證臺灣地區的身份證號碼。  阅读全文
posted @ 2007-04-06 19:33 七月(Lost) 阅读(971) | 评论 (3) | 编辑
CF.NET 2.0 通过cmwap访问外部webService
     摘要:

这个帖子本16号放在首页，不知道为何不见了，也许是我误删除了吧，重新补上，放在我自己的首页。

最近在做手机上一程序，需要通过移动cmwap访问外部的webservice,但使用wsdl生成的代理类通过cmwap网关访问会出现"Client found response content type of 'text/vnd.wap.wml',but expected 'text/xml' ".的异常信息，换用cmnet网络则正常。
应该是通过cmwap网关请求返回的数据被转化为wml类型了，wsdl代理类只认xml；
把google翻了也找不到解决方案，只好自己用最笨的办法，用HttpWebRequest和HttpWebResponse实现访问soap协议。


代码如下：

  阅读全文
posted @ 2007-02-21 18:18 七月(Lost) 阅读(1042) | 评论 (4) | 编辑
OpenNetCF.Rss 最简单使用。
     摘要: OpenNetCF.Rss 最简单使用。  阅读全文
posted @ 2007-02-20 15:53 七月(Lost) 阅读(275) | 评论 (0) | 编辑
web combo 的CSS实现方式
HTML代码

效果如下：
posted @ 2006-03-21 01:48 七月(Lost) 阅读(437) | 评论 (1) | 编辑
微软为顶级域名用户提供了免费邮局了。

微软开始为顶级域名用户提供免费的邮局。
支持创建60个邮箱账号。

有问题可以联系我MSN:bigway@5dz.net

Bring Your Own Domain

Already own your own Internet domain name?

Have us host e-mail and IM for you in a domain you already own.
  • Create up to 60 e-mail accounts within your domain
  • Get a 250 MB inbox for each account*
  • Check your e-mail from any Web-enabled PC
  • Junk e-mail filter protection using Microsoft SmartScreen technology
  • Virus scanning and cleaning of e-mail
  • Seamless access with MSN Messenger, MSN Spaces, etc.

    *250MB inbox available only in the 50 United States, District of Columbia, and Puerto Rico. Eligible Hotmail users will first receive 25MB at sign-up. Please allow at least 30 days for activation of your 250MB storage to verify your e-mail account and help prevent abuse. Microsoft Corporation reserves the right to provide 250MB inbox to free Hotmail accounts at its discretion.

    Click     here to setup e-mail for an existing domain today!

    • posted @ 2006-03-01 20:38 七月(Lost) 阅读(333) | 评论 (0) | 编辑
    整理修改网上流传的C#农历类
    项目用到，所以做了下修改，全由属性输出农历结果，使用方便多了。。

    最简单可以这样:Console.Write((new LunarDate(DateTime.Now)).ToString());

    演示

    代码如下


    这里的编辑器的代码着色功能好难用，IE死了好几次。。
    posted @ 2006-02-26 22:18 七月(Lost) 阅读(1071) | 评论 (5) | 编辑
    简繁转换如此简单

    发现一个蛮爽的方法：

    Public Function StrConv(ByVal str As String, ByVal Conversion As Microsoft.VisualBasic.VbStrConv, Optional ByVal LocaleID As Integer = 0) As String
         成员属于: Microsoft.VisualBasic.Strings

    摘要:
    返回按照指定转换的 String。

    参数:
    Str: 要转换的 String 表达式。
    Conversion: Microsoft.VisualBasic.VbStrConv。指定要执行的转换类型的枚举值。
    LocaleID: LocaleID 值（如果与系统 LocaleID 值不同）。（系统 LocaleID 值为默认值。）

    实现简体繁体转换就如此简单：
    简体转繁体：Microsoft.VisualBasic.Strings.StrConv(InputStr as String, VbStrConv.TraditionalChinese)
    繁体转简体：Microsoft.VisualBasic.Strings.StrConv(InputStr as String, VbStrConv.SimplifiedChinese)

    posted @ 2005-07-07 17:29 七月(Lost) 阅读(1772) | 评论 (11) | 编辑
    生成数据分页SQL语句
            最近做几个项目全使用ACCESS数据库，少了存储过程，对数据分页处理有些不太习惯，查了一些资料，设计了一个数据分页类，分四种情况对SQL语句分别处理，自己做个纪录，代码如下：
    Public Class DataHelper

            ''' <summary>SQL语句处理数据分页</summary>
        ''' <param name="pageSize">分量，每页纪录数量</param>
        ''' <param name="pageIndex">当前页</param>
        ''' <param name="recordCount">纪录总数</param>
        ''' <param name="tableName">选取的数据表</param>
        ''' <param name="Fields">选取的数据字段</param>
        ''' <param name="primaryKey">字段主键</param>
        ''' <param name="ascending">是否正向排序</param>
        ''' <param name="condition">选取条件，Where字句</param>
        ''' <returns>返回SQL语句</returns>
        Public Shared Function Paging(ByVal pageSize As Integer, ByVal pageIndex As Integer, ByVal recordCount As Integer, ByVal tableName As String, ByVal Fields As String, ByVal primaryKey As String, ByVal ascending As Boolean, ByVal condition As String) As String
                Dim sb As System.Text.StringBuilder = New System.Text.StringBuilder
                Dim pageCount As Integer = GetPageCount(recordCount, pageSize)
                Dim middleIndex As Integer = GetMidPageIndex(pageCount)
                Dim firstIndex As Integer = 0
                Dim lastIndex As Integer = pageCount - 1

                If pageIndex <= firstIndex Then
                    Dim sql As String = "SELECT TOP {0} {1} FROM {2} WHERE {3} ORDER BY {4} {5}"
                sb.AppendFormat(sql, pageSize, Fields, tableName, condition, primaryKey, GetSortType(ascending))
                ElseIf pageIndex > firstIndex AndAlso pageIndex <= middleIndex Then
                    Dim sql As String = "SELECT TOP {0} {1} FROM {2} WHERE {3} < (SELECT MIN({3}) FROM (SELECT TOP {4} {3} FROM {2} WHERE {5} ORDER BY {3} DESC) ta) ORDER BY {3} DESC"
                If ascending Then sql = "SELECT TOP {0} {1} FROM {2} WHERE {3} > (SELECT MAX({3}) FROM (SELECT TOP {4} {3} FROM {2} WHERE {5} ORDER BY {3} ASC) ta) ORDER BY {3} ASC"
                sb.AppendFormat(sql, pageSize, Fields, tableName, primaryKey, pageSize * pageIndex, condition)
                ElseIf pageIndex > middleIndex AndAlso pageIndex < lastIndex Then
                    Dim sql As String = "SELECT * FROM (SELECT TOP {0} {1} FROM {2} WHERE {3} > (SELECT MAX({3}) FROM (SELECT TOP {4} {3} FROM {2} WHERE {5} ORDER BY {3} ASC ) ta) ORDER BY {3} ASC) tb ORDER BY {3} DESC"
                If ascending Then sql = "SELECT * FROM (SELECT TOP {0} {1} FROM {2} WHERE {3} < (SELECT MIN({3}) FROM (SELECT TOP {4} {3} FROM {2} WHERE {5} ORDER BY {3} DESC) ta) ORDER BY {3} DESC)  tb ORDER BY {3} ASC"
                sb.AppendFormat(sql, pageSize, Fields, tableName, primaryKey, recordCount - pageSize * (pageIndex + 1), condition)
                ElseIf pageIndex >= lastIndex Then
                    Dim sql As String = "SELECT * FROM (SELECT TOP {0} {1} FROM {2} WHERE {3} ORDER BY {4} {5}) ta ORDER BY {4} {6}"
                sb.AppendFormat(sql, recordCount - pageSize * lastIndex, Fields, tableName, condition, primaryKey, GetSortType(Not ascending), GetSortType(ascending))
                End If
                Return sb.ToString
            End Function

            Public Shared Function GetPageCount(ByVal recordCount As Integer, ByVal pageSize As Integer) As Integer
                Return CType(Math.Ceiling(CType(recordCount, Double) / pageSize), Integer)
            End Function

            Public Shared Function GetMidPageIndex(ByVal pageCount As Integer) As Integer
                Return CType(Math.Ceiling(CType(pageCount, Double) / 2), Integer) - 1
            End Function

            Public Shared Function GetSortType(ByVal ascending As Boolean) As String
                Return (Microsoft.VisualBasic.IIf(ascending, "ASC", "DESC"))
            End Function

    End Class

    PS:在ACCESS下我比较喜欢使用查询代替直接使用复杂的SQL语句，觉得设计方便，使用也方便，不知道对性能有什么影响。
    posted @ 2005-05-23 00:31 七月(Lost) 阅读(821) | 评论 (0) | 编辑
    Asp.Net 控件 PopComboBox
    Asp.Net 控件 類似WinForm 的 ComboBox
    Demo and Src:http://www.aiyao.net/filedownload/PopComboBox/
    PicPriview:
     

    注:js代码参照 海洋工作室 的 PopMenu2.01
    posted @ 2004-12-13 22:03 七月(Lost) 阅读(1112) | 评论 (7) | 编辑
    Web 站点文件管理
    源码已丢失，请不要再问我下载








    posted @ 2004-10-22 11:05 七月(Lost) 阅读(1649) | 评论 (18) | 编辑
    Some Client Script
    client vbscript:
    Function postXMLData(PostData,targetUrl)
            Dim oXml,oData,oUrl
            Set oXml = CreateObject("Microsoft.XMLHTTP")
        oData     =PostData
        oUrl    =targetUrl
        oXml.Open(    "post",oUrl,false)
        oXml.setrequestheader(    "content-length",len(oData))
        oXml.setrequestheader(    "content-type","application/x-www-form-urlencoded")
        oXml.send(oData)
        postXMLData = oXML.responseText 
    End Function

    Function URLEncoding(vstrIn)
            Dim strReturn,ThisChr,innerCode,Hight8,Low8
        strReturn     = ""
        For i = 1 To Len(vstrIn)
            ThisChr     = Mid(vStrIn,i,1)
                If Abs(Asc(ThisChr)) < &HFF Then
                strReturn     = strReturn & ThisChr
                Else
                innerCode     = Asc(ThisChr)
                    If innerCode < 0 Then
                    innerCode     = innerCode + &H10000
                    End If
                Hight8     = (innerCode  And &HFF00) &HFF
                Low8     = innerCode And &HFF
                strReturn     = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
                End If
            Next
        URLEncoding     = strReturn
    End Function

    Function bytes2BSTR(vIn)
            Dim strReturn,ThisCharCode,NextCharCode
        strReturn     = ""
        For i = 1 To LenB(vIn)
            ThisCharCode     = AscB(MidB(vIn,i,1))
                If ThisCharCode < &H80 Then
                strReturn     = strReturn & Chr(ThisCharCode)
                Else
                NextCharCode     = AscB(MidB(vIn,i+1,1))
                strReturn     = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
                i     = i + 1
                End If
            Next
        bytes2BSTR     = strReturn
    End Function
    posted @ 2004-09-04 18:31 七月(Lost) 阅读(1254) | 评论 (4) | 编辑