博客园-Never give up - LEO

最新新闻：
· 蓝港CEO王峰谈3年开发感悟：有点唠叨像唐僧(2010-03-18 22:07)
· [视频]想做你的Code(2010-03-18 22:03)
· 东芝终止120年白炽灯生产历史(2010-03-18 21:13)
· 传手机社交网络Foursquare将再次融资(2010-03-18 21:10)
· Skype公开上市将带来什么？(2010-03-18 20:18)

推荐一个不错的ASP无组件上传类

lizhiwen — Mon, 21 Jan 2008 06:25:00 GMT

阅读: 280 评论: 1 作者: lizhiwen 发表于 2008-01-21 14:25 原文链接

<%
'----------------------------------------------------------
'*****************  风声无组件上传类 2.0  *****************
'作者：风声
'网站：http://www.17560.net http://www.54nb.com
'邮件：Rumor@17560.net
'版权：版权全体,源代码公开,各种用途均可免费使用
'**********************************************************
'----------------------------------------------------------
Class UpLoadClass

    Private p_MaxSize,p_FileType,p_SavePath,p_AutoSave,p_Error
    Private objForm,binForm,binItem,strDate,lngTime
    Public    FormItem,FileItem

    Public Property Get Version
        Version="Rumor UpLoadClass Version 2.0"
    End Property

    Public Property Get Error
        Error=p_Error
    End Property

    Public Property Get MaxSize
        MaxSize=p_MaxSize
    End Property
    Public Property Let MaxSize(lngSize)
        if isNumeric(lngSize) then
            p_MaxSize=clng(lngSize)
        end if
    End Property

    Public Property Get FileType
        FileType=p_FileType
    End Property
    Public Property Let FileType(strType)
        p_FileType=strType
    End Property

    Public Property Get SavePath
        SavePath=p_SavePath
    End Property
    Public Property Let SavePath(strPath)
        p_SavePath=replace(strPath,chr(0),"")
    End Property

    Public Property Get AutoSave
        AutoSave=p_AutoSave
    End Property
    Public Property Let AutoSave(byVal Flag)
        select case Flag
            case 0:
            case 1:
            case 2:
            case false:Flag=2
            case else:Flag=0
        end select
        p_AutoSave=Flag
    End Property

    Private Sub Class_Initialize
        p_Error       = -1
        p_MaxSize  = 153600
        p_FileType = "jpg/gif"
        p_SavePath = ""
        p_AutoSave = 0
        strDate       = replace(cstr(Date()),"-","")
        lngTime       = clng(timer()*1000)
        Set binForm = Server.CreateObject("ADODB.Stream")
        Set binItem = Server.CreateObject("ADODB.Stream")
        Set objForm = Server.CreateObject("Scripting.Dictionary")
        objForm.CompareMode = 1
    End Sub

    Private Sub Class_Terminate
        objForm.RemoveAll
        Set objForm = nothing
        Set binItem = nothing
        binForm.Close()
        Set binForm = nothing
    End Sub

    Public Sub Open()
        if p_Error=-1 then
            p_Error=0
        else
            Exit Sub
        end if
        Dim lngRequestSize,binRequestData,strFormItem,strFileItem
        Const strSplit="'"">"
        lngRequestSize=Request.TotalBytes
        if lngRequestSize<1 then
            p_Error=4
            Exit Sub
        end if
        binRequestData=Request.BinaryRead(lngRequestSize)
        binForm.Type = 1
        binForm.Open
        binForm.Write binRequestData

        Dim bCrLf,strSeparator,intSeparator
        bCrLf=ChrB(13)&ChrB(10)

        intSeparator=InstrB(1,binRequestData,bCrLf)-1
        strSeparator=LeftB(binRequestData,intSeparator)

        Dim p_start,p_end,strItem,strInam,intTemp,strTemp
        Dim strFtyp,strFnam,strFext,lngFsiz
        p_start=intSeparator+2
        Do
            p_end  =InStrB(p_start,binRequestData,bCrLf&bCrLf)+3
            binItem.Type=1
            binItem.Open
            binForm.Position=p_start
            binForm.CopyTo binItem,p_end-p_start
            binItem.Position=0
            binItem.Type=2
            binItem.Charset="gb2312"
            strItem=binItem.ReadText
            binItem.Close()

            p_start=p_end
            p_end  =InStrB(p_start,binRequestData,strSeparator)-1
            binItem.Type=1
            binItem.Open
            binForm.Position=p_start
            lngFsiz=p_end-p_start-2
            binForm.CopyTo binItem,lngFsiz

            intTemp=Instr(39,strItem,"""")
            strInam=Mid(strItem,39,intTemp-39)

            if Instr(intTemp,strItem,"filename=""")<>0 then
            if not objForm.Exists(strInam&"_From") then
                strFileItem=strFileItem&strSplit&strInam
                if binItem.Size<>0 then
                    intTemp=intTemp+13
                    strFtyp=Mid(strItem,Instr(intTemp,strItem,"Content-Type: ")+14)
                    strTemp=Mid(strItem,intTemp,Instr(intTemp,strItem,"""")-intTemp)
                    intTemp=InstrRev(strTemp,"\")
                    strFnam=Mid(strTemp,intTemp+1)
                    objForm.Add strInam&"_Type",strFtyp
                    objForm.Add strInam&"_Name",strFnam
                    objForm.Add strInam&"_Path",Left(strTemp,intTemp)
                    objForm.Add strInam&"_Size",lngFsiz
                    if Instr(intTemp,strTemp,".")<>0 then
                        strFext=Mid(strTemp,InstrRev(strTemp,".")+1)
                    else
                        strFext=""
                    end if
                    if left(strFtyp,6)="image/" then
                        binItem.Position=0
                        binItem.Type=1
                        strTemp=binItem.read(10)
                        if strcomp(strTemp,chrb(255) & chrb(216) & chrb(255) & chrb(224) & chrb(0) & chrb(16) & chrb(74) & chrb(70) & chrb(73) & chrb(70),0)=0 then
                            if Lcase(strFext)<>"jpg" then strFext="jpg"
                            binItem.Position=3
                            do while not binItem.EOS
                                do
                                    intTemp = ascb(binItem.Read(1))
                                loop while intTemp = 255 and not binItem.EOS
                                if intTemp < 192 or intTemp > 195 then
                                    binItem.read(Bin2Val(binItem.Read(2))-2)
                                else
                                    Exit do
                                end if
                                do
                                    intTemp = ascb(binItem.Read(1))
                                loop while intTemp < 255 and not binItem.EOS
                            loop
                            binItem.Read(3)
                            objForm.Add strInam&"_Height",Bin2Val(binItem.Read(2))
                            objForm.Add strInam&"_Width",Bin2Val(binItem.Read(2))
                        elseif strcomp(leftB(strTemp,8),chrb(137) & chrb(80) & chrb(78) & chrb(71) & chrb(13) & chrb(10) & chrb(26) & chrb(10),0)=0 then
                            if Lcase(strFext)<>"png" then strFext="png"
                            binItem.Position=18
                            objForm.Add strInam&"_Width",Bin2Val(binItem.Read(2))
                            binItem.Read(2)
                            objForm.Add strInam&"_Height",Bin2Val(binItem.Read(2))
                        elseif strcomp(leftB(strTemp,6),chrb(71) & chrb(73) & chrb(70) & chrb(56) & chrb(57) & chrb(97),0)=0 or strcomp(leftB(strTemp,6),chrb(71) & chrb(73) & chrb(70) & chrb(56) & chrb(55) & chrb(97),0)=0 then
                            if Lcase(strFext)<>"gif" then strFext="gif"
                            binItem.Position=6
                            objForm.Add strInam&"_Width",BinVal2(binItem.Read(2))
                            objForm.Add strInam&"_Height",BinVal2(binItem.Read(2))
                        elseif strcomp(leftB(strTemp,2),chrb(66) & chrb(77),0)=0 then
                            if Lcase(strFext)<>"bmp" then strFext="bmp"
                            binItem.Position=18
                            objForm.Add strInam&"_Width",BinVal2(binItem.Read(4))
                            objForm.Add strInam&"_Height",BinVal2(binItem.Read(4))
                        end if
                    end if
                    objForm.Add strInam&"_Ext",strFext
                    objForm.Add strInam&"_From",p_start
                    intTemp=GetFerr(lngFsiz,strFext)
                    if p_AutoSave<>2 then
                        objForm.Add strInam&"_Err",intTemp
                        if intTemp=0 then
                            if p_AutoSave=0 then
                                strFnam=GetTimeStr()
                                if strFext<>"" then strFnam=strFnam&"."&strFext
                            end if
                            binItem.SaveToFile Server.MapPath(p_SavePath&strFnam),2
                            objForm.Add strInam,strFnam
                        end if
                    end if
                else
                    objForm.Add strInam&"_Err",-1
                end if
            end if
            else
                binItem.Position=0
                binItem.Type=2
                binItem.Charset="gb2312"
                strTemp=binItem.ReadText
                if objForm.Exists(strInam) then
                    objForm(strInam) = objForm(strInam)&","&strTemp
                else
                    strFormItem=strFormItem&strSplit&strInam
                    objForm.Add strInam,strTemp
                end if
            end if

            binItem.Close()
            p_start = p_end+intSeparator+2
        loop Until p_start+3>lngRequestSize
        FormItem=split(strFormItem,strSplit)
        FileItem=split(strFileItem,strSplit)
    End Sub

    Private Function GetTimeStr()
        lngTime=lngTime+1
        GetTimeStr=strDate&lngTime
    End Function

    Private Function GetFerr(lngFsiz,strFext)
        dim intFerr
        intFerr=0
        if lngFsiz>p_MaxSize and p_MaxSize>0 then
            if p_Error=0 or p_Error=2 then p_Error=p_Error+1
            intFerr=intFerr+1
        end if
        if Instr(1,LCase("/"&p_FileType&"/"),LCase("/"&strFext&"/"))=0 and p_FileType<>"" then
            if p_Error<2 then p_Error=p_Error+2
            intFerr=intFerr+2
        end if
        GetFerr=intFerr
    End Function

    Public Function Save(Item,strFnam)
        Save=false
        if objForm.Exists(Item&"_From") then
            dim intFerr,strFext
            strFext=objForm(Item&"_Ext")
            intFerr=GetFerr(objForm(Item&"_Size"),strFext)
            if objForm.Exists(Item&"_Err") then
                if intFerr=0 then
                    objForm(Item&"_Err")=0
                end if
            else
                objForm.Add Item&"_Err",intFerr
            end if
            if intFerr<>0 then Exit Function
            if VarType(strFnam)=2 then
                select case strFnam
                    case 0:strFnam=GetTimeStr()
                        if strFext<>"" then strFnam=strFnam&"."&strFext
                    case 1:strFnam=objForm(Item&"_Name")
                end select
            end if
            binItem.Type = 1
            binItem.Open
            binForm.Position = objForm(Item&"_From")
            binForm.CopyTo binItem,objForm(Item&"_Size")
            binItem.SaveToFile Server.MapPath(p_SavePath&strFnam),2
            binItem.Close()
            if objForm.Exists(Item) then
                objForm(Item)=strFnam
            else
                objForm.Add Item,strFnam
            end if
            Save=true
        end if
    End Function

    Public Function GetData(Item)
        GetData=""
        if objForm.Exists(Item&"_From") then
            if GetFerr(objForm(Item&"_Size"),objForm(Item&"_Ext"))<>0 then Exit Function
            binForm.Position = objForm(Item&"_From")
            GetData=binFormStream.Read(objForm(Item&"_Size"))
        end if
    End Function

    Public Function Form(Item)
        if objForm.Exists(Item) then
            Form=objForm(Item)
        else
            Form=""
        end if
    End Function

    Private Function BinVal2(bin)
        dim lngValue,i
        lngValue = 0
        for i = lenb(bin) to 1 step -1
            lngValue = lngValue *256 + ascb(midb(bin,i,1))
        next
        BinVal2=lngValue
    End Function

    Private Function Bin2Val(bin)
        dim lngValue,i
        lngValue = 0
        for i = 1 to lenb(bin)
            lngValue = lngValue *256 + ascb(midb(bin,i,1))
        next
        Bin2Val=lngValue
    End Function

End Class
%>

评论: 1　查看评论　发表评论

Leo's 2007

lizhiwen — Sat, 29 Dec 2007 04:39:00 GMT

阅读: 77 评论: 1 作者: lizhiwen 发表于 2007-12-29 12:39 原文链接

今天是2007年的最后工作日拉，blog开了整整一年了，自己庆贺一下！！

都没来得及反应就又过了一年，仔细回想一下，今年的进展还是缓慢，浪费了一半的时间，看来明年要努力了。

从vs2003到vs2005，又有了vs2008，MS的脚步倒是挺快，老在后面追赶着，看来不是办法了，赶紧转型吧！

年初办了一张公园年票，结果就用了3次，还是陪别人去的。

一年下来感冒了不知道多少次，甚至有一月两次。。。哎，缺少运动，看来要多锻炼了。

明年要忙了，几乎没有闲时间，也好，不会再看电视了。。。。。

加油吧！我的2008！

评论: 1　查看评论　发表评论

网页设计基本配色参考色谱

lizhiwen — Tue, 25 Dec 2007 06:53:00 GMT

阅读: 108 评论: 0 作者: lizhiwen 发表于 2007-12-25 14:53 原文链接

在商业活动中，颜色搭配会受到仔细的评估，按一般流行的看法灰色或黑色系列可以象征“职业”，因为这些颜色较不具个人主义，有中庸之感。

　　灰色其实是鲜艳的红色或橘色最好的背景色。这些活泼的颜色加上低沉的灰色，可以使原有的热力稍加收敛、含蓄一些。

　　虽然灰色不具刺激感，却富有实际感。它传达出一种实在、严肃的气息，绝少幽默之感。

100

106

102

100

106

104

102

100

101

104

101

105

104

100

105

101

105

101

103

102

100

101

100

104

100

102

101

105

100

101

102

101

102

100

101

100

102

100

103

100

102

100

101

102

103

102

101

102

100

101

104

评论: 0　查看评论　发表评论

javascript正则表达式使用详解

lizhiwen — Wed, 12 Dec 2007 01:27:00 GMT

阅读: 362 评论: 0 作者: lizhiwen 发表于 2007-12-12 09:27 原文链接

简单的说，正则表达式是一种可以用于模式匹配和替换的强有力的工具。其作用如下：
测试字符串的某个模式。例如，可以对一个输入字符串进行测试，看在该字符串是否存在一个电话号码模式或一个信用卡号码模式。这称为数据有效性验证。
替换文本。可以在文档中使用一个正则表达式来标识特定文字，然后可以全部将其删除，或者替换为别的文字。
根据模式匹配从字符串中提取一个子字符串。可以用来在文本或输入字段中查找特定文字。

基本语法

在对正则表达式的功能和作用有了初步的了解之后，我们就来具体看一下正则表达式的语法格式。
正则表达式的形式一般如下：　　

/love/　　其中位于“/”定界符之间的部分就是将要在目标对象中进行匹配的模式。用户只要把希望查找匹配对象的模式内容放入“/”定界符之间即可。为了能够使用户更加灵活的定制模式内容，正则表达式提供了专门的“元字符”。所谓元字符就是指那些在正则表达式中具有特殊意义的专用字符，可以用来规定其前导字符（即位于元字符前面的字符）在目标对象中的出现模式。
较为常用的元字符包括： “+”， “*”，以及 “?”。

“+”元字符规定其前导字符必须在目标对象中连续出现一次或多次。

“*”元字符规定其前导字符必须在目标对象中出现零次或连续多次。

“?”元字符规定其前导对象必须在目标对象中连续出现零次或一次。

下面，就让我们来看一下正则表达式元字符的具体应用。

/fo+/　　因为上述正则表达式中包含“+”元字符，表示可以与目标对象中的 “fool”, “fo”, 或者 “football”等在字母f后面连续出现一个或多个字母o的字符串相匹配。

/eg*/　　因为上述正则表达式中包含“*”元字符，表示可以与目标对象中的 “easy”, “ego”, 或者 “egg”等在字母e后面连续出现零个或多个字母g的字符串相匹配。

/Wil?/　　因为上述正则表达式中包含“？”元字符，表示可以与目标对象中的 “Win”, 或者“Wilson”,等在字母i后面连续出现零个或一个字母l的字符串相匹配。

有时候不知道要匹配多少字符。为了能适应这种不确定性，正则表达式支持限定符的概念。这些限定符可以指定正则表达式的一个给定组件必须要出现多少次才能满足匹配。

{n} n 是一个非负整数。匹配确定的 n 次。例如，'o{2}' 不能匹配 "Bob" 中的 'o'，但是能匹配 "food" 中的两个 o。

{n,} n 是一个非负整数。至少匹配 n 次。例如，'o{2,}' 不能匹配 "Bob" 中的 'o'，但能匹配 "foooood" 中的所有 o。'o{1,}' 等价于 'o+'。'o{0,}' 则等价于 'o*'。

{n,m} m 和 n 均为非负整数，其中n <= m。最少匹配 n 次且最多匹配 m 次。例如，"o{1,3}" 将匹配 "fooooood" 中的前三个 o。'o{0,1}' 等价于 'o?'。请注意在逗号和两个数之间不能有空格。

除了元字符之外，用户还可以精确指定模式在匹配对象中出现的频率。例如，/jim {2,6}/ 上述正则表达式规定字符m可以在匹配对象中连续出现2-6次，因此，上述正则表达式可以同jimmy或jimmmmmy等字符串相匹配。
在对如何使用正则表达式有了初步了解之后，我们来看一下其它几个重要的元字符的使用方式。
代码

   1. \s：用于匹配单个空格符，包括tab键和换行符；
   2. \S：用于匹配除单个空格符之外的所有字符；
   3. \d：用于匹配从0到9的数字；
   4. \w：用于匹配字母，数字或下划线字符；
   5. \W：用于匹配所有与\w不匹配的字符；
   6. . ：用于匹配除换行符之外的所有字符。

（说明：我们可以把\s和\S以及\w和\W看作互为逆运算）
下面，我们就通过实例看一下如何在正则表达式中使用上述元字符。
/\s+/ 上述正则表达式可以用于匹配目标对象中的一个或多个空格字符。
/\d000/　如果我们手中有一份复杂的财务报表，那么我们可以通过上述正则表达式轻而易举的查找到所有总额达千元的款项。
除了我们以上所介绍的元字符之外，正则表达式中还具有另外一种较为独特的专用字符，即定位符。定位符用于规定匹配模式在目标对象中的出现位置。较为常用的定位符包括： “^”, “$”, “\b” 以及 “\B”。
代码

   1. “^”定位符规定匹配模式必须出现在目标字符串的开头
   2. “$”定位符规定匹配模式必须出现在目标对象的结尾
   3. “\b”定位符规定匹配模式必须出现在目标字符串的开头或结尾的两个边界之一
   4. “\B”定位符则规定匹配对象必须位于目标字符串的开头和结尾两个边界之内，
   5.       即匹配对象既不能作为目标字符串的开头，也不能作为目标字符串的结尾。

同样，我们也可以把“^”和“$”以及“\b”和“\B”看作是互为逆运算的两组定位符。举例来说： /^hell/　因为上述正则表达式中包含“^”定位符，所以可以与目标对象中以 “hell”, “hello”或“hellhound”开头的字符串相匹配。 /ar$/　因为上述正则表达式中包含“$”定位符，所以可以与目标对象中以 “car”, “bar”或 “ar” 结尾的字符串相匹配。 /\bbom/　因为上述正则表达式模式以“\b”定位符开头，所以可以与目标对象中以 “bomb”, 或 “bom”开头的字符串相匹配。/man\b/　因为上述正则表达式模式以“\b”定位符结尾，所以可以与目标对象中以 “human”, “woman”或 “man”结尾的字符串相匹配。
为了能够方便用户更加灵活的设定匹配模式，正则表达式允许使用者在匹配模式中指定某一个范围而不局限于具体的字符。例如：
代码

   1. /[A-Z]/　　上述正则表达式将会与从A到Z范围内任何一个大写字母相匹配。
   2. /[a-z]/　　上述正则表达式将会与从a到z范围内任何一个小写字母相匹配。
   3. /[0-9]/ 　上述正则表达式将会与从0到9范围内任何一个数字相匹配。
   4. /([a-z][A-Z][0-9])+/　上述正则表达式将会与任何由字母和数字组成的字符串，如 “aB0” 等相匹配。

这里需要提醒用户注意的一点就是可以在正则表达式中使用 “()” 把字符串组合在一起。“()”符号包含的内容必须同时出现在目标对象中。因此，上述正则表达式将无法与诸如 “abc”等的字符串匹配，因为“abc”中的最后一个字符为字母而非数字。
如果我们希望在正则表达式中实现类似编程逻辑中的“或”运算，在多个不同的模式中任选一个进行匹配的话，可以使用管道符 “|”。例如：/to|too|2/　上述正则表达式将会与目标对象中的 “to”, “too”, 或 “2” 相匹配。
正则表达式中还有一个较为常用的运算符，即否定符 “[^]”。与我们前文所介绍的定位符 “^” 不同，否定符 “[^]”规定目标对象中不能存在模式中所规定的字符串。例如：/[^A-C]/　上述字符串将会与目标对象中除A，B，和C之外的任何字符相匹配。一般来说，当“^”出现在 “[]”内时就被视做否定运算符；而当“^”位于“[]”之外，或没有“[]”时，则应当被视做定位符。
最后，当用户需要在正则表达式的模式中加入元字符，并查找其匹配对象时，可以使用转义符“\”。例如：/Th\*/ 　上述正则表达式将会与目标对象中的“Th*”而非“The”等相匹配。
在构造正则表达式之后，就可以象数学表达式一样来求值，也就是说，可以从左至右并按照一个优先级顺序来求值。优先级如下：
代码

   1. 1．\ 转义符
   2. 2．(), (?, (?=), [] 圆括号和方括号
   3. 3．*, +, ?, {n}, {n,}, {n,m} 限定符
   4. 4．^, $, \anymetacharacter 位置和顺序
   5. 5．|“或”操作

使用实例
在JavaScript 1.2中带有一个功能强大的RegExp()对象，可以用来进行正则表达式的匹配操作。其中的test()方法可以检验目标对象中是否包含匹配模式，并相应的返回true或false。
我们可以使用JavaScript编写以下脚本，验证用户输入的邮件地址的有效性。
代码

   1.
   2.
   3. 　
24. 　　
25. 　
26. 　　

30. 　　
31.

JS的正则表达式

//校验是否全由数字组成
代码

   1. function isDigit(s)
   2. {
   3. var patrn=/^[0-9]{1,20}$/;
   4. if (!patrn.exec(s)) return false
   5. return true
   6. }

//校验登录名：只能输入5-20个以字母开头、可带数字、“_”、“.”的字串
代码

   1. function isRegisterUserName(s)
   2. {
   3. var patrn=/^[a-zA-Z]{1}([a-zA-Z0-9]|[._]){4,19}$/;
   4. if (!patrn.exec(s)) return false
   5. return true
   6. }

//校验用户姓名：只能输入1-30个以字母开头的字串
代码

   1. function isTrueName(s)
   2. {
   3. var patrn=/^[a-zA-Z]{1,30}$/;
   4. if (!patrn.exec(s)) return false
   5. return true
   6. }
   7. }}
   8.
   9. //校验密码：只能输入6-20个字母、数字、下划线
10. [code]
11. function isPasswd(s)
12. {
13. var patrn=/^(\w){6,20}$/;
14. if (!patrn.exec(s)) return false
15. return true
16. }

//校验普通电话、传真号码：可以“+”开头，除数字外，可含有“-”
代码

   1. function isTel(s)
   2. {
   3. //var patrn=/^[+]{0,1}(\d){1,3}[ ]?([-]?(\d){1,12})+$/;
   4. var patrn=/^[+]{0,1}(\d){1,3}[ ]?([-]?((\d)|[ ]){1,12})+$/;
   5. if (!patrn.exec(s)) return false
   6. return true
   7. }

//校验手机号码：必须以数字开头，除数字外，可含有“-”
代码

   1. function isMobil(s)
   2. {
   3. var patrn=/^[+]{0,1}(\d){1,3}[ ]?([-]?((\d)|[ ]){1,12})+$/;
   4. if (!patrn.exec(s)) return false
   5. return true
   6. }

//校验邮政编码
代码

   1. function isPostalCode(s)
   2. {
   3. //var patrn=/^[a-zA-Z0-9]{3,12}$/;
   4. var patrn=/^[a-zA-Z0-9 ]{3,12}$/;
   5. if (!patrn.exec(s)) return false
   6. return true
   7. }

//校验搜索关键字
代码

   1. function isSearch(s)
   2. {
   3. var patrn=/^[^`~!@#$%^&*()+=|\\\][\]\{\}:;'\,.<>/?]{1}[^`~!@$%^&()+=|\\\]
   4.         [\]\{\}:;'\,.<>?]{0,19}$/;
   5. if (!patrn.exec(s)) return false
   6. return true
   7. }
   8.
   9. function isIP(s) //by zergling
10. {
11. var patrn=/^[0-9.]{1,20}$/;
12. if (!patrn.exec(s)) return false
13. return true
14. }

正则表达式
代码

   1. "^\\d+$"　　//非负整数（正整数 + 0）
   2. "^[0-9]*[1-9][0-9]*$"　　//正整数
   3. "^((-\\d+)|(0+))$"　　//非正整数（负整数 + 0）
   4. "^-[0-9]*[1-9][0-9]*$"　　//负整数
   5. "^-?\\d+$"　　　　//整数
   6. "^\\d+(\\.\\d+)?$"　　//非负浮点数（正浮点数 + 0）
   7. "^(([0-9]+\\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\\.[0-9]+)|([0-9]*[1-9][0-9]*))$"　
   8. //正浮点数
   9. "^((-\\d+(\\.\\d+)?)|(0+(\\.0+)?))$"　　//非正浮点数（负浮点数 + 0）
10. "^(-(([0-9]+\\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\\.[0-9]+)|([0-9]*[1-9][0-9]*)))$"　
11. //负浮点数
12. "^(-?\\d+)(\\.\\d+)?$"　　//浮点数
13. "^[A-Za-z]+$"　　//由26个英文字母组成的字符串
14. "^[A-Z]+$"　　//由26个英文字母的大写组成的字符串
15. "^[a-z]+$"　　//由26个英文字母的小写组成的字符串
16. "^[A-Za-z0-9]+$"　　//由数字和26个英文字母组成的字符串
17. "^\\w+$"　　//由数字、26个英文字母或者下划线组成的字符串
18. "^[\\w-]+(\\.[\\w-]+)*@[\\w-]+(\\.[\\w-]+)+$"　　　　//email地址
19. "^[a-zA-z]+://(\\w+(-\\w+)*)(\\.(\\w+(-\\w+)*))*(\\?\\S*)?$"　　//url
20. "^[A-Za-z0-9_]*$"

补充:
i   =   忽略大小写区别
g   =   匹配所有可能的字串
m   =   多行匹配

评论: 0　查看评论　发表评论

SQL Server 2008中四种DATETIME数据类型

lizhiwen — Mon, 10 Dec 2007 08:34:00 GMT

阅读: 1127 评论: 0 作者: lizhiwen 发表于 2007-12-10 16:34 原文链接

　SQL Server 2008中DATETIME功能的最大转变就是引入了四种DATETIME数据类型，分别为DATE、TIME、DATETIMEOFFSET和DATETIME2;此外还增加了新的DATETIME函数功能。

　　下面首先来讨论一下四种新数据类型的功能和用法。

　　DATE数据类型

　　在SQL Server 2005中，没有专门只用来存储日期(不包括时间)的特定数据类型，只能使用DATETIME或SMALLDATETIME数据类型来完成此操作。但是，当你输入日期之后，会显示还有一个时间的组分需要输入，其初始显示为12:00 AM。如果只想在输出结果中显示日期那一部分，就必须修改输出格式。大部分情况下，可以使用getdate()函数来存储当前日期。要在SQL Server 2005中的SMALLDATETIME或DATETIME列中保存getdate()的函数值，同时也会保存了当前的时间，而这可能会引发很多问题。举例而言，如果你使用以下的语句，想根据给定的日期来搜索记录：

　　SELECT * FROM tblDate Where [Date] = '2007-12-01'

　　由于Date列里含有时间组分，这个命令将无法正常执行，因此，你必须执行以下的查询操作：

　　SELECT * FROM tblDate Where datediff(d,[Date],‘2007-12-01’) =0

　　尽管上面的查询操作可以行得通，不过Date列中符合要求的索引很可能不会被使用。不过你还是可以使用上面的查询操作调出少量的记录。虽然可以利用工作区，但很明显有必要增加一种去掉时间值的DATE数据类型来减少潜在的错误。来看看以下的语法：

　　DECLARE @dt as DATE
　　SET @dt = getdate()
　　PRINT @dt

　　以上脚本的输出结果只有日期，不包括时间部分。DATE数据类型的取值范围从0001-01-01到9999-12-31。

　　TIME数据类型

　　就像日期数据类型一样，如果你只想存储时间数据而不需要日期部分就可以利用TIME数据类型。下面就是利用TIME数据类型进行查询的例子：

　　DECLARE @dt as TIME
　　SET @dt = getdate()
　　PRINT @dt

　　以上脚本输出结果只包含时间部分，其取值范围从00:00:00.0000000到23:59:59.9999999。

　　DATETIME2数据类型

　　新的DATETIME2数据类型也是一种数据时间混合的数据类型，不过其时间部分秒数的小数部分可以保留不同位数的值，比原来的DATETIME数据类型取值范围要广。用户可以根据自己的需要通过设置不同的参数来，设定小数位数，最高可以设到小数点后七位(参数为7)，也可以不要小数部分(参数为0)，以此类推。以下是利用DATETIME2的查询语句：

　　DECLARE @dt7 datetime2(7)
　　SET @dt7 = Getdate()
　　PRINT @dt7

　　该语句的输出结果中时间的秒数部分精确到小数点后第七位。
　DATETIMEOFFSET数据类型

　　如果把日期和时间数据保存在一列里，是不会提示该日期和时间属于哪一个时区的。时区的提示非常重要，特别是当你处理数据包含了多个不同时区的国家时。新的DATETIMEOFFSET数据类型可以定义一个日期和时间组合，其中时间以24小时制显示，并带有时区提示。下面的语句说明了DATETIMEOFFSET数据类型的用法：

　　DECLARE @dt DATETIMEOFFSET(0)
　　SET @dt = '2007-12-04 21:20:30 -1:00'
　　DECLARE @dt1 DATETIMEOFFSET(0)
　　SET @dt1 = '2007-12-04 21:20:30 +5:00'
　　SELECT DATEDIFF(hh,@dt,@Dt1)

　　DateTime函数

　　目前我们可以在SQL Server 2005和SQL Server 2000中使用GETDATE函数来查询当前的日期和时间。此外，在SQL Server 2005中，还有另外几个类似的日期时间函数，分别为：CURRENT_TIMESTAMP、DATEADD、DATEDIFF、DATENAME、DATEPART、GETUTCDATE、DAY、 MONTH和YEAR。而在SQL Server 2008中，除了上述这些函数外，又新增了五个函数，分别为SYSDATETIME、SYSDATETIMEOFFSET、SYSUTCDATETIME、SWITCHOFFSET和TODATETIMEOFFSET。其中SYSDATETIME函数返回目前系统的时间戳，不带时区提示，能够精确到毫秒级。SYSDATETIMEOFFSET函数和SYSDATETIME函数功能类似，不过包含了时区值。SYSUTCDATETIME返回以世界标准时间(又称协调世界时，也就是格林威治时间)表示的日期和时间，也精确到毫秒级，是根据当前SQL Server运行所在地服务器所设置的本地时间和时区得来的。SYSDATETIME和SYSUTCDATETIME两个函数返回的都是DATETIME2数据类型，而SYSDATETIMEOFFSET函数返回DATETIMEOFFSET数据类型。

　　SWITCHOFFSET函数

　　SWITCHOFFSET函数返回DATETIMEOFFSET数据类型的值，不再根据存储的时区偏移值取值，而是根据设定的新时区偏倚值来取值。看看下面这个语句：

　　SELECT SYSDATETIMEOFFSET(), SWITCHOFFSET (SYSDATETIMEOFFSET(), '-14:00')

　　该脚本返回两个列，第一列是根据世界标准时间得到的当前日期和时间值，第二列则是根据给定的时区偏移值返回的日期时间值。

　　TODATETIMEOFFSET函数

　　TODATETIMEOFFSET函数可以把本地日期或时间值以及特定的时区偏移值转变为一个datetimeoffset值。运行以下脚本，你会看到返回的结果中除了当前日期和时间外，还增加了时区值。

　　SELECT TODATETIMEOFFSET (GETDATE(),'+11:00')

　　转换函数

　　CONVERT函数可以从DATETIME数据类型的组成中抽取时间值或者日期值。运行以下脚本，返回结果的第一列为当前日期，第二列为当前时间。

　　SELECT CONVERT(date, GETDATE()),CONVERT(time, GETDATE())

　　使用新DATETIME数据类型进行转换的注意事项

　　如果你要增加DATE和TIME列，不能够像SMALLDATETIME数据类型一样加载，否则会返回以下的错误信息：Operand data type date is invalid for add operator。

　　你可以尝试把这两列设置为浮点型数据，一起存入，并把结果转换成SMALLDATETIME或DATETIME列。(记住，当SMALLDATETIME数据存储成浮点型时，日期值为整数部分而时间值为小数部分)不过，这也会返回一个错误信息：Explicit conversion from data type date to float is not allowed。

　　正确的做法是把两列都转换为SMALLDATETIME数据，并一起存入。例如使用以下脚本，你就可以得到输出结果：

　　Declare @dt as DATE
　　Set @dt = getdate()
　　Declare @dtt as TIME
　　Set @dtt = getdate()
　　Select cast(@dt as smalldatetime) + cast(@dtt as smalldatetime)

评论: 0　查看评论　发表评论

Microsoft SQL Server 2008 对 T-SQL 语言进行了进一步增强

lizhiwen — Mon, 10 Dec 2007 08:26:00 GMT

阅读: 133 评论: 0 作者: lizhiwen 发表于 2007-12-10 16:26 原文链接

Microsoft SQL Server 2008 对 T-SQL 语言进行了进一步增强。为了让开发人员尽快了解这些变化，我们针对 2007 年 6 月 CTP 版本的 SQL Server 2008 中的 T-SQL 语言的新增功能进行了分析和尝试。本文描述自 SQL Server 2008 CTP1 以来这些语言增强和变化。

　　本文包含如下内容：

　　· T-SQL 行构造器

　　· FORCESEEK 表提示

　　· GROUPING SETS

　　· 兼容性级别

　　· 用户自定义表数据类型

　　· 表值参数

　　· MERGE 语句

　　本文适用于：Microsoft)R) SQL Server(TM) 2008 Developer Edition June 2007 CTP

　　1、T-SQL 行构造器

　　T-SQL 行构造器(Row Constructors)用来在 INSERT 语句中一次性插入多行数据。例如：

以下是引用片段：
　　CREATE TABLE #a
　　(
　　Column1 nvarchar(max),
　　Column2 nvarchar(max)
　　);
　　GO
　　INSERT INTO #a
　　VALUES (
　　('1', '1'),
　　('2', '2')
　　);
　　SELECT * FROM #a;
　　GO
　　DROP TABLE #a;
　　GO

　　经过增强后的 INSERT 语句的语法结构如下。

以下是引用片段：
[ WITH  [ ,...n ] ]
INSERT
    [ TOP ( expression ) [ PERCENT ] ]
    [ INTO ]
    {  | rowset_function_limited
      [ WITH (  [ ...n ] ) ]
    }
{
    [ ( column_list ) ]
    [  ]
    { VALUES ( ( { DEFAULT | NULL | expression } [ ,...n ] ) [ ,...n ] )
    | derived_table
    | execute_statement
    |
    | DEFAULT VALUES
    }
}
[; ]
::=
{
    [ server_name . database_name . schema_name .
      | database_name .[ schema_name ] .
      | schema_name .
    ]
        table_or_view_name
}
::=
    SELECT
    FROM (  )
                      [AS] table_alias [ ( column_alias [ ,...n ] ) ]
        [ WHERE  ]
    [ OPTION (  [ ,...n ] ) ]

　　2. FORCESEEK 提示

　　FORCESEEK 是一个新的表提示(Table Hints)，它用来指定 SQL Server 查询优化程序如何更高效的执行查询。该提示指示优化程序对查询引用的表和视图通过索引检索来作为唯一的查询执行访问路径。也就是强制通过索引检索数据。例如：

以下是引用片段：
USE tempdb;
GO
DROP TABLE t;
GO
CREATE TABLE t(i int UNIQUE, j int, vc varchar(100));
CREATE INDEX t_vc ON t(vc);
GO
DECLARE @p1 int, @p2 int, @p3 int, @p4 int, @p5 int;
SELECT * FROM t WHERE i IN (@p1, @p2, @p3, @p4, @p5);
GO
DECLARE @p1 int, @p2 int, @p3 int, @p4 int, @p5 int;
SELECT * FROM t WITH (FORCESEEK) WHERE i IN (@p1, @p2, @p3, @p4, @p5);
GO
SELECT * FROM t WHERE vc LIKE 'Test%';
GO
SELECT * FROM t WITH (FORCESEEK) WHERE vc LIKE 'Test%';
GO
DECLARE @vc varchar(100);
SELECT * FROM t WHERE vc LIKE @vc;
GO
DECLARE @vc varchar(100);
SELECT * FROM t WITH (FORCESEEK) where vc like @vc;
GO

3. GROUPING SETS

　　新的 T-SQL 对 GROUP BY 子句增加了 GROUPING SETS, ROLLUP 和 CUBE 操作符。还有一个新的函数 GROUPING_ID()，它相比 GROUPING() 函数返回更多分组级别的信息。WITH ROLLUP, WITH CUBE 和 ALL 等非 ISO 标准语法已经不再有效。

　　4. 兼容性级别

　　新的 ALTER DATABASE SET COMPATIBILITY_LEVEL 语法替换了 sp_dbcomplevel 存储过程。它用来设置特定数据库的兼容性级别。其语法形式为：

以下是引用片段：
ALTER DATABASE database_name
SET COMPATIBILITY_LEVEL = { 80 | 90 | 100 }

　　您可以为 database_name 为名称的数据库设置特定兼容性级别。80、90 和 100 分别代表 SQL Server 2000、SQL Server 2005 和 SQL Server 2008。

　　5. 用户自定义表数据类型

　　现在，SQL Server 提供一种新的用户自定义数据类型——自定义表数据类型(User-defined Table Types)。它可以作为参数提供给语句、存储过程或者函数。您还可以为它创建唯一约束和主键。

　　请使用 CREATE TYPE 语句创建这种数据类型。如：

以下是引用片段：
USE AdventureWorks;
GO
/**//* Create a user-defined table type */
CREATE TYPE LocationTableType AS TABLE
( LocationName VARCHAR(50)
, CostRate INT );
GO

　　对于表类型，有如下约束：

　　1、用户自定义表类型不能作为表的列或者结构化用户自定义类型的域。
　　2、基于用户自定义表类型的别名类型。
　　3、不允许 NOT FOR REPLICATION 选项。
　　4、CHECK 约束需要一个计算列。
　　5、在计算列上的主键必须包含 NOT NULL 和 PERSISTED 约束。
　　6、不能在用户自定义表类型上创建非簇索引。除非索引是创建 PRIMARY KEY 或 UNIQUE 约束的返回值。
　　7、不能指定 DEFAULT 值。
　　8、一旦用户自定义表类型被创建，则它就无法更改。
　　9、如果没有定义用户自定义表类型上的计算列，则用户自定义函数无法调用。

　　6. 表值参数

　　数据库引擎现在支持一种新的参数类型来引用用户自定义表类型(参考 5)。表值参数可以发送更多的 SQL Server 数据。

　　下面的示例展示了如何使用表值参数。

以下是引用片段：
USE AdventureWorks;
GO
/**//* Create a table type. */
CREATE TYPE LocationTableType AS TABLE
( LocationName VARCHAR(50)
, CostRate INT );
GO
/**//* Create a procedure to receive data for the table-valued parameter. */
CREATE PROCEDURE usp_InsertProductionLocation
    @TVP LocationTableType READONLY
    AS
    SET NOCOUNT ON
    INSERT INTO [AdventureWorks].[Production].[Location]
           ([Name]
           ,[CostRate]
           ,[Availability]
           ,[ModifiedDate])
        SELECT *, 0, GETDATE()
        FROM  @TVP;
        GO
/**//* Declare a variable that references the type. */
DECLARE @LocationTVP
AS LocationTableType;
/**//* Add data to the table variable. */
INSERT INTO @LocationTVP (LocationName, CostRate)
    SELECT [Name], 0.00
    FROM
    [AdventureWorks].[Person].[StateProvince];
/**//* Pass the table variable data to a stored procedure. */
EXEC usp_InsertProductionLocation @LocationTVP;
GO

　　7. MERGE 语句

　这个新增的 Transaction SQL 语句在一个基于源数据连接结果集的目标表上执行 INSERT、UPDATE 和 DELETE 操作。该语法允许您将一个数据源连接到目标表或视图上。然后在连接后的结果集上执行多种操作。

　　MERGE 的语法为：

以下是引用片段：
[ WITH  [,...n] ]
MERGE
[ TOP ( expression ) [ PERCENT ] ]
[ INTO ] target_table [ [ AS ] table_alias ]
        [ WITH (  ) ]
USING
ON
[ WHEN MATCHED [ AND  ]
        THEN  ]
[ WHEN [TARGET] NOT MATCHED [ AND  ]
        THEN  ]
[ WHEN SOURCE NOT MATCHED [ AND  ]
        THEN  ]

[ OPTION (  [ ,...n ] ) ]
;
::=
        { [  [ ,...n ] ]
    [ [ , ] INDEX ( index_val [ ,...n ] ) ] }
::=
{
        table_or_view_name [ [ AS ] table_alias ] [  ]
                [ WITH ( table_hint [ [ , ]...n ] ) ]
    | rowset_function [ [ AS ] table_alias ]
                [ ( bulk_column_alias [ ,...n ] ) ]
    | user_defined_function [ [ AS ] table_alias ]
    | OPENXML
    | derived_table [ AS ] table_alias [ ( column_alias [ ,...n ] ) ]
    |
    |
    |
}
::=
                { UPDATE SET  | DELETE }
::=
    { column_name = { expression | DEFAULT | NULL }
  | { udt_column_name. { { property_name = expression
        | field_name = expression }
        | method_name ( argument [ ,...n ] ) } }
  | column_name { .WRITE ( expression , @Offset , @Length ) }
  | @variable = expression
    } [ ,...n ]
::=
        INSERT [ (  ) ]
                { VALUES (  )
             | DEFAULT VALUES }
::=
{
    [ OUTPUT  INTO { @table_variable | output_table }
        [ (column_list) ] ]
        [ OUTPUT  ]
}
::=
{  | scalar_expression } [ [AS] column_alias_identifier ]
     [ ,...n ]
::=
    { DELETED | INSERTED | from_table_name } . { * | column_name }
   | $ACTION

　　示例：在一条 SQL 语句中使用 WHERE 在一张表上执行 UPDATE 和 DELETE 操作

以下是引用片段：
USE AdventureWorks;
GO
MERGE Production.ProductInventory AS pi
USING (SELECT ProductID, SUM(OrderQty) FROM Sales.SalesOrderDetail sod
    JOIN Sales.SalesOrderHeader soh
    ON sod.SalesOrderID = soh.SalesOrderID
    AND soh.OrderDate = GETDATE()
    GROUP BY ProductID) AS src (ProductID, OrderQty)
ON (pi.ProductID = src.ProductID)
WHEN MATCHED AND pi.Quantity - src.OrderQty <> 0
    THEN UPDATE SET pi.Quantity = pi.Quantity - src.OrderQty
WHEN MATCHED AND pi.Quantity - src.OrderQty = 0
    THEN DELETE;

　　这个示例是一个非常典型的销售定货库存问题。这个示例很简单，表达的意思就是：如果某一个产品产生了销售定单数据，则将其对应的产品库存除去该销售定单所产生的数量，如果当前库存数量与该销售定单数量相同，则从库存表中删除该产品的库存纪录。

　　我们看到，利用 MERGE 语句可以将复杂的 SQL 语句简化。它比起 IF、CASE 等更加灵活和强大。

　　结论

　　Microsoft SQL Server 2008 对事务性 SQL 语言做了一些增强，提高了查询效率。使得 SQl Server 成为大中型企业数据库的首先产品。SQL Server 2008 将伴随 Visual Studio 2008 一起发布，开发人员提前了解这些信息有助于在 SQL Server 的新版本发布后快速建立基于该版本的企业级应用程序。

评论: 0　查看评论　发表评论

什么是Windows Server Core 服务器核心?

lizhiwen — Mon, 10 Dec 2007 08:21:00 GMT

阅读: 119 评论: 0 作者: lizhiwen 发表于 2007-12-10 16:21 原文链接

什么是Windows Server Core 服务器核心?

Windows Server Core 即服务器核心是Windows Server 2008新的默认，没有资源管理器（Windows 外壳程序），仅包含简单Console窗口和一些管理窗口，但是可以运行MMC。可以用作域控制器活动目录 ActiveDirectory、DNS域名解析服务器、FTP文件服务器、Print打印服务器、Streaming Media 流媒体服务器或Web服务器等，它的特点是高效占用内存小，相对安全高效，类似没有安装x-windows的Linux。不推荐普通用户使用。

评论: 0　查看评论　发表评论

Windows Server 2008新特性

lizhiwen — Mon, 10 Dec 2007 08:16:00 GMT

阅读: 540 评论: 0 作者: lizhiwen 发表于 2007-12-10 16:16 原文链接

1、Server Core

这才是微软真正的变化之处。如果你是Unix和Linux管理员，可能会对在受保护环境中扮演DHCP和DNS服务器角色的低能耗、虚拟化、无图形界、只需一个终端管理的服务器系统非常熟悉，但Windows也可以这么做了。作为服务器操作系统，Windows Server一直以来颇为诟病的地方就是，它是“Windows”，因为管理员根本不需要安装图形驱动、DirectX、ADO、OLE等东西，毕竟他们不需要运行用户程序；而且，图形界面一直是影响Windows稳定性的重要因素,Vista地带补充:精简了GUI可以减少内存资源占用增强稳定性和安全性。

从WS2K8开始，这些东西都将成为安装时的可选项。目前的RC0版本已经可以处理八个角色，最终正式版还会更多，比如文件服务器、域控制器、DHCP服务器、DNS服务器等等，其定位也非常清楚：安全稳定的小型专用服务器。另外，如果配置合理，管理员也可以远程管理无图形界面的Server Core安装，只需开启TCP 3389端口即可。

Windows PowerShell也可以在Server Core上运行，但很显然，图形界面程序都不行，.NET Framework也不会被支持，游戏自然就不用提了。

2、PowerShell命令行

PowerShell原计划作为Vista的一部分，但只是作为免费下载的增强附件，随后又成了Exchange Server 2007的关键组件，接下来又将是WS2K8不可或缺的一个成员。这个新的命令行工具可以作为图形界面管理的补充，也可以彻底取代它。

Windows Server部门总管Iain McDonald宣称：“如果一切可以由我决定，我很乐意把PowerShell设置成Windows的默认外壳。我太喜欢这东西了。”在下月初的TechEd 2007大会上，微软会对PowerShell的一些新应用进行展示。

3、虚拟化

尽管微软精简了其虚拟化软件“Viridian”，但这仍是企业的一个福音，可以有效减少总体成本。尽管VMware在虚拟机领域独树一帜，但Viridian得以让Intel和AMD都提供了对基于硬件的虚拟化的支持，从而提供虚拟硬件支持平台，而这是VMware所难以做到的。

据IDC统计，美国企业已经在根本用不到的处理器资源上浪费了千百亿美元，但这并不是他们的错，而是操作系统的管理问题导致最多85％的CPU资源就经常被闲置。WS2K8加虚拟化的一大目标就是加强闲置资源利用，减少浪费。Vista地带获取信息只有x64位版本才可以支持虚拟化技术。

4、Windows硬件错误架构(WHEA)

最终，微软决定将错误规范化，确切地说是应用程序向系统汇报发现错误的协议要实现标准化了。目前错误报告的一大问题就是设备报错的方式多种多样，各种硬件系统之间没有一种标准，因此编写应用程序的时候很难集合所有的错误资源，并统一呈现，这就意味着要编写许多特定代码，针对各种特定情况。

而在Windows Server2003中，所有的硬件相关错误都使用同样的界面汇报给系统，第三方软件就能轻松管理、消除错误，管理工具的发展也会更轻松。把错误报告功能真正有效利用。

5、随机地址空间分布(ASLR)

ASLR在64位Windows Vista里就已出现，它可以确保操作系统的任何两个并发实例每次都会载入到不同的内存地址上。微软表示，恶意软件其实就是一堆不守规矩的代码，不会按照操作系统要求的正常程序执行，但如果它想在用户磁盘上写入文件，就必须知道系统服务身在何处。在32位Windows XP SP2上，如果恶意软件需要调用KERNEL32.DLL，该文件每次都会被载入同一个内存空间地址，因此非常容易恶意利用。

但有了ASLR，每一个系统服务的地址空间都是随机的，因此恶意软件想要轻松找到它们，基本没戏。Vista地带提示这类似于DEP数据保护功能，可以减少一些缓冲区overflow溢出。

6、SMB2网络文件系统

很久很久以前，Windows就引入了SMB，作为一个网络文件系统，不过SMB现在已经太老了，历史使命已经完成，所以WS2K8采用了SMB2，以便更好地管理体积越来越大的媒体文件。在微软的内部测试中，SMB2媒体服务器的速度可以达到Windows Server 2003的四倍到五倍，相当于400％的效率提升。SMB2使得Windows Server2008和Linux、MAC OS的文件传输效率就大大提高。

7、核心事务管理器(KTM)

这项功能对开发人员来说尤其重要，因为它可以大大减少甚至消除最经常导致系统注册表或者文件系统崩溃的原因：多个线程试图访问同一资源。

在Windows Vista核心中也有KTM这一新组件，其中在服务管理器也会看到这个服务，KTM其目的是方便进行大量的错误恢复工作，而且过程几乎是透明的，而KTM之所以可以做到这一点，是因为它可以作为事务客户端接入的一个事务管理器进行工作。

8、快速关机服务

Windows的一大历史问题就是关机过程缓慢。在Windows XP里，一旦关机开始，系统就会开始一个20秒钟的计时，之后提醒用户是否需要手动关闭程序，而在Windows Server里，这一问题的影响会更加明显。

到了WS2K8，20秒钟的倒计时被一种新服务取代，可以在应用程序需要被关闭的时候随时、一直发出信号。开发人员开始怀疑这种新方法会不会过多地剥夺应用程序的权利，但现在他们已经接受了它，认为这是值得的。对于服务器的快速重启是十分重要，每秒都决定着...

9、并行Session创建

如果你有一个终端服务器系统，或者多个用户同时登陆了家庭系统，这些就是Session。在WS2K8之前，Session的创建都是逐一操作的，对于大型系统而言就是个瓶颈，比如周一清晨数百人返回工作的时候，不少人就必须等待Session初始化。

Windows Vista和Win2008加入了新的Session模型，可以同时发起至少4个，而如果服务器有四颗以上的处理器，还可以同时发起更多。举例来说，如果你家里有一个媒体中心，那各个家庭成员就可以同时在各自的房间里打开媒体终端、同时从Vista服务器上得到视频流，而且速度不会受到影响。Vista地带这样终端服务多人数在线的效率应该提高不少。

10、自修复NTFS文件系统

从DOS时代开始，文件系统出错就意味着相应的卷必须下线修复，而在WS2K8中，一个新的系统服务会在后台默默工作，检测文件系统错误，并且可以在无需关闭服务器的状态下自动将其修复。

有了这一新服务，在文件系统发生错误的时候，服务器只会暂时无法访问部分数据，整体运行基本不受影响，所以CHKDSK基本就可以退休了。这一点比Windows Vista是一个进步吧，作为服务器数据安全第一。

评论: 0　查看评论　发表评论

为何改动web.config中的theme对页面没有影响

lizhiwen — Fri, 23 Nov 2007 01:51:00 GMT

阅读: 828 评论: 2 作者: lizhiwen 发表于 2007-11-23 09:51 原文链接

我有个同事，最近在学习asp.net 2.0的一些新特性。也做了一些例子，可是他在学习中遇到了一个问题，为了演示theme的使用方法，他做了一个简单的例子，在页面放了一个按钮和一个下拉框，下拉框里是不同theme的名称，点击按钮时可以改变当前的theme。点击按钮所作的操作就是把web.config中的中的theme主题名字更换掉。我们先不讨论这种方法和使用Page_PreInit之间的区别或者是谁优谁劣。
问题是他的这种做法在开发模式下进行调试是可行的，可是发布后确行不通，无论你变成什么样的theme，都看不到任何效果。刚开始我们以为是缓存的原因，进行多次测试后还是发现问题依旧。
既然是发布前和发布后有区别，那是不是编译以后程序把主题写死在程序里了，在程序运行的时候便不再动态的去读web.config呢？这只是一种猜测，又没办法测试，想想像dataconnection这些其它配置，都会动态的读，不可能就偏偏这个节点属性不读吧？
接着我又把编译后的.aspx文件打开来看（我发布时选择勾选第一项，所以可以动态更改页面文件）。发现一个共同的现象，见如下：
<%@ page language="C#" autoeventwireup="true" inherits="_Default, App_Web_qya65c65" theme="Theme1" %>
编译后的.aspx中尽然自己添加了一个theme属性，看到这里终于明白了。theme主题的设置优先级是控件大于页面，页面大于web.config，如果每个页面都有自己的theme，无论你怎么改变web.config中的配置都是没有作用的。
为什么在开发状态下可以呢？很简单，开发状态下，每个页面并没有theme这个属性，这个属性只是编译的时候，根据web.config的配置自动加上去的，不知道MS为什么要这样设置？弄得这个咚咚很别扭。。

评论: 2　查看评论　发表评论