网客blog

做生意就好象下山的猴子看到10只兔子

gududao2002@163.com(admin) — Thu,15 Jul 2010 17:31:14 +0800

　　马云经典语录：“看见10只兔子，你到底抓哪一只？有些人一会儿抓这个兔子，一会儿抓那个兔子，最后可能一只也抓不住。CEO 的主要任务不是寻找机会而是对机会说NO。机会太多，只能抓一个。我只能抓一只兔子，抓多了，什么都会丢掉。”

　　“一个公司在两种情况下最容易犯错误，第一是有太多的钱的时候，第二是面对太多的机会，一个ＣＥＯ看到的不应该是机会，因为机会无处不在，一个ＣＥＯ更应该看到灾难，并把灾难扼杀在摇篮里。”

选片归来，摄影师就是比我强哈哈

gududao2002@163.com(admin) — Wed,14 Jul 2010 23:41:21 +0800

　　老婆在团购网上购买的格林童趣摄影馆的套餐票，158元一个小相册加一七寸水晶加一二十寸水晶，送１０张底片，周末带我闺女去拍的今日去选片。

　　摄影师拍出来就是不一样，一来人家有场景，相机也比我的好，二来人家有专业知识。哪像我这二把刀拿个佳能８６０随便拍呀呵呵。

　　选来选去就多了，一共选了将近３０张，多一张加１５还不算贵，不过要等半个月以上才能去拿相册和底片，他们时候要送到总部然后再送到厂家去制作，这周期可够长的。

　　等等吧，过两天吧把我闺女的照片贴上来，５周岁啦越来越漂亮了哈！

网站用户体验--该不该听用户的

gududao2002@163.com(admin) — Wed,07 Jul 2010 11:25:15 +0800

１．＂网站用户体验的核心”是指以用户的方式注重用户的需求去做产品，但绝不等于”必须要听用户的”。
特别是在做创新设计的时候，用户是告诉不了你他们的真正需求的。做设计不是纯粹的制作，设计的灵魂是思想是创意, 首先你通过客户的话来分析客户的想法在结合你自己的专业知识来设计，这样达到商业价值跟艺术设计的统一，这就是做网站的精髓！大家结合自身体验一下吧

２．＂50年代的时候，在美国问任何一个人，家电设计应是什么样子？所有人都会说，家电必须放在一个柜子里面，必须跟家具是一样的。而日本人却发现，其实家电应该有它自己独特的一个东西，它有金属的外观，很轻巧，很好用。日本人的设计理念，使他们一举占领了市场。这说明，设计师要做一些创新的东西，用户的一些潜在的思维慢慢会被引导“。这是百度联盟第二期郭宇演讲的内容。

3、”以用户为核心”所指的”用户”是”大多数的典型用户”或者说是”产品的目标用户”，而不一定是”跳出来说话的那些用户”，这里包括了老用户也包括新用户。

豆瓣的确在每次的改动都会惹来众多用户的哭爹喊娘，都会说”你们又要商业化了，你们是不是没钱了呀，…”。比如，在书的具体页，原来”我想读”"我在读”"我读过”在右侧，”在那儿买这本书”在左侧书的下面，现在给两者交换了位置。用户的投诉很多，但”我想读”"我在读”"我读过”在新老用户的点击数据都有了大的提高。

一些关于沉默大多数的说法我还是比较赞成的。

4、拿到用户反馈的手段太多太多。真正需要考察产品设计人员能力的不是怎么去拿，而是拿到后怎么去分析和筛选这些反馈，然后得到合理的结论。

和”老婆永远是对的”不同，用户不一定总是对的。
momo现在很不喜欢睡在自己的小床上，总是喜欢睡在妈妈的大床上，因为小床硬大床软；还很不喜欢可以固定他头型的小枕头和盖在肚子上的棉布，因为那样他就不能睡觉的时候乱动了；
可我不可能让他从小就睡那么软的床更不能让他的肚子着凉，所以他必须自己睡自己的小床必须睡觉盖着肚子。

5、不赞成”完全的以数据为依据”。不只相信数据库里反应出来的现象，也不只相信用户告诉的情况。

数据统计的结果能代表整体的状况，但典型反馈的结果也同样能说明真正的典型问题。数据统计跟用户调研是相辅相成的，缺一不可。

所以，
当发现数据有异常的时候，先尝试分析问题所在，然后找用户来搞清楚到底是什么问题、或者去验证你的分析结果是否正确；
当用户告诉你某种你不能肯定的情况时，去想办法看一下数据的反应。

6、每个产品都会有自己的”功能需求库”。
这个库有产品设计人员添加进去的，也有用户提出需求并经过产品设计人员判断以后添加进去的。
库里面的每个项都有自己的优先级和排期，用户的意见只能一部分影响这个排期。

　　不是客户要怎么改我们就怎么改，客户要我们怎么做我们就怎么做，那样只会让客户觉得你的设计没有主见，没有想法创意，做设计就是要达到客户的效果，又来简化我们的工作来达到商业跟艺术的完美结合统一......这次客户让你这么改，你就照他说的改了，那么他会觉得你没有主见，也证明了他说的修改意见是对的，那么一些似懂非懂的客户以专业的眼光来挑剔你的作品，所以修改意见一直不断回有，造成工作量的加大。如果你善于跟客户沟通，有自己独到的见解和思维能力，能说服客户来听你的意见，设计师不是为了设计而设计，这才是一个优秀设计师该做达到的终极目标！

什么是网站用户体验

gududao2002@163.com(admin) — Wed,07 Jul 2010 11:23:51 +0800

　　网站用户体验其实就是将网站容易使用,最重要的内容要放在两次点击之内.

　　web设计师应该尽量做到,当网上用户看到一个页面时,它应该是不言而喻,一目了然,自我解释的.

　　页面应该有这样的功能:用户能明白它,它是什么?怎样使用它?--也就是说不需要花费精力进行思考.

　　说起来就是当用户看到一个网站时,不需要思考,就能知道:"这是____,那是____我想要的是____在这里"让页面不言而喻就像是商场里的布局很规类,而且商场的光线布置的也很好,这样也会让所有的商品看起来更好.访问一个不需要我们思考的重要理由是,大多数人会花比我们想象中少得多的时间来浏览网页.

　　如果要让网页有效,它们必须在用户第一眼看到时将自己展示出,而要做到这一点,最好的方法是创建不言而喻的网页,或者至少也要做到自我解释.

不用额外组件的ASP在线打包程序

gududao2002@163.com(admin) — Wed,30 Jun 2010 00:24:58 +0800

方式一（荐）：
ZipAndUnZip.asp
<%
Sub AddToMdb(thePath)
On Error Resume Next
Dim Rs, Conn, Stream, ConnStr, adoCatalog, FsoX
Set FsoX = CreateObject(“Scripting.FileSystemObject”)
If FsoX.FileExists(Server.MapPath(“HYTop.mdb”)) Then
   FsoX.DeleteFile(Server.MapPath(“HYTop.mdb”))
End If
Set Rs = Server.CreateObject(“Adodb.RecordSet”)
Set Stream = Server.CreateObject(“Adodb.Stream”)
Set Conn = Server.CreateObject(“Adodb.Connection”)
Set adoCatalog = Server.CreateObject(“ADOX.Catalog”)
ConnStr = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Server.MapPath(“HYTop.mdb”)
adoCatalog.Create ConnStr
Conn.Open ConnStr
Conn.Execute(“Create Table FileData(Id int IDENTITY(0,1) Primary Key Clustered, thePath VarChar, fileContent Image)”)
Stream.Open
Stream.Type = 1
Rs.Open “FileData”, Conn, 3, 3
fsoTreeForMdb thePath, Rs, Stream
Rs.Close
Conn.Close
Stream.Close
Set Rs = Nothing
Set Conn = Nothing
Set Stream = Nothing
Set adoCatalog = Nothing
End Sub

Sub fsoTreeForMdb(ThePath, Rs, Stream)
Dim Item, TheFolder, Folders , Files, SysFileList, FsoX
Set FsoX = Server.CreateObject(“Scripting.FileSystemObject”)
SysFileList = “$HYTop.mdb$HYTop.ldb$”

If FsoX.FolderExists(ThePath) = False Then
   Response.write(ThePath + ” 目录不存在或不允许访问!”)
End If
Set TheFolder = FsoX.GetFolder(ThePath)
Set Files = TheFolder.Files
Set Folders = TheFolder.SubFolders
For Each Item In Folders
   fsoTreeForMdb Item.Path, Rs, Stream
Next
For Each Item In Files
   If InStr(SysFileList, “$” & Item.Name & “$”) <= 0 Then
    Rs.AddNew
    Rs(“thePath”) = Mid(Item.Path, Len(Request(“thePath”)) + 1)
    Stream.LoadFromFile(Item.Path)
    Rs(“fileContent”) = Stream.Read()
    Rs.Update
   End If
Next
Set Files = Nothing
Set Folders = Nothing
Set TheFolder = Nothing
Set FsoX = Nothing
End Sub

Sub unPack(thePath)
On Error Resume Next
Server.ScriptTimeOut = 5000
Dim Rs, Ws, Str, Conn, Stream, ConnStr, theFolder, FsoX
Str = Server.MapPath(“.”) & “\”
Set FsoX = CreateObject(“Scripting.FileSystemObject”)
Set Rs = CreateObject(“Adodb.RecordSet”)
Set Stream = CreateObject(“Adodb.Stream”)
Set Conn = CreateObject(“Adodb.Connection”)
ConnStr = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & thePath & “;”
Conn.Open ConnStr
Rs.Open “Select * from FileData”, Conn, 1, 1
Stream.Open
Stream.Type = 1
Do Until Rs.Eof
   TheFolder = Left(Rs(“thePath”), InStrRev(Rs(“thePath”), “\”))
   If FsoX.FolderExists(Str & theFolder) = False Then
    CreateFolder(Str & theFolder)
   End If
   Stream.SetEos()
   Stream.Write Rs(“fileContent”)
   Stream.SaveToFile Str & Rs(“thePath”) , 2
   Rs.MoveNext
Loop
Rs.Close
Conn.Close
Stream.Close
Set Ws = Nothing
Set Rs = Nothing
Set Stream = Nothing
Set Conn = Nothing
Set FsoX = Nothing
End Sub

Sub CreateFolder(thePath)
Dim i, FsoX
Set FsoX = CreateObject(“Scripting.FileSystemObject”)
i = Instr(thePath, “\”)
Do While i >0
   If FsoX.FolderExists(Left(thePath, i)) = False Then
    FsoX.CreateFolder(Left(thePath, i – 1))
   End If
   If InStr(Mid(thePath, i + 1), “\”) Then
    i = i + Instr(Mid(thePath, i + 1), “\”)
   Else
    i = 0
   End If
Loop
End Sub

If Trim(Request(“Zip”)) <> “” Then
AddToMdb(Request(“thePath”))
Response.Write(“压缩文件完毕! “)
Response.Write(“下载压缩文件”)
End If
If Trim(Request(“UnZip”)) <> “” Then
unPack(Request(“theFile”))
Response.Write(“解压完毕!”)
End If
%>

方式二：

index.asp文件

   复制全部代码
   <% Option Explicit %>

<%
Response.charset=”gb2312″
Response.Buffer = True
Response.Clear
Dim Co,Temp,T,x,i,fsoBrowse,theFolder,TheSubFolders,FilePath,s,PH,objTar
Co=0
PH=”../zip” ‘文件路径 ‘压缩父目录下zip目录的所有文件
    Set objTar = New Tarball
    objTar.TarFilename=”打包.rar”   ‘打包的名称
    objTar.Path=PH
    set fsoBrowse=CreateObject(“Scripting.FileSystemObject”)
    Set theFolder=fsoBrowse.GetFolder(Server.Mappath(PH))
    Set theSubFolders=theFolder.SubFolders
    GetFileList theFolder,”"

    If Co<1 Then
       Response.Write “暂时没有可更新的文件下载”
    ‘objTar.AddMemoryFile “Sorry.txt”,”Not File!”
    Else
       Temp=Left(Temp,Len(Temp)-1)
       FilePath=Split(Temp,”|”)
       For s=0 To Ubound(FilePath)
         objTar.AddFile Server.Mappath(PH & “/” & FilePath(s))
       Next
    If Response.IsClientConnected Then
         objTar.WriteTar
         Response.Flush
    End If
    End If
    Set ObjTar = Nothing
    Set fsoBrowse= Nothing
    Set theFolder = Nothing
    Set theSubFolders = Nothing
Sub GetFileList(Folderobject,path)
Dim y,m
For Each y in Folderobject.Files
If Path <>”" Then
Temp= Temp &   path & y.Name&”|”
Else
Temp= Temp & y.Name&”|”
End If
     Co=Co+1
Next
Dim NewPath
For Each m In Folderobject.SubFolders
If path=”" Then
NewPath=M.name &”/”
Else
NewPath=path & M.name &”/”
End If
GetFileList m,NewPath
Next
End Sub
%>
asptar.asp文件

   复制全部代码
<%

Class Tarball
Public TarFilename    ‘ Resultant tarball filename

Public UserID     ‘ UNIX user ID
Public UserName     ‘ UNIX user name
Public GroupID     ‘ UNIX group ID
Public GroupName    ‘ UNIX group name

Public Permissions    ‘ UNIX permissions

Public BlockSize    ‘ Block byte size for the tarball (default=512)

Public IgnorePaths    ‘ Ignore any supplied paths for the tarball output
Public BasePath     ‘ Insert a base path with each file
Public Path

‘ Storage for file information
Private objFiles,TmpFileName
Private objMemoryFiles

‘ File list management subs, very basic stuff
Public Sub AddFile(sFilename)
   objFiles.Add sFilename,sFilename
End Sub

Public Sub RemoveFile(sFilename)
   objFiles.Remove sFilename
End Sub

Public Sub AddMemoryFile(sFilename,sContents)
   objMemoryFiles.Add sFilename,sContents
End Sub

Public Sub RemoveMemoryFile(sFilename)
   objMemoryFiles.Remove sFilename
End Sub

Public Sub WriteTar()
   Dim objStream, objInStream, lTemp, aFiles
   Set objStream = Server.CreateObject(“ADODB.Stream”) ‘ The main stream
   Set objInStream = Server.CreateObject(“ADODB.Stream”) ‘ The input stream for data
   objStream.Type = 2
   objStream.Charset = “x-ansi” ‘ Good old extended ASCII
   objStream.Open

   objInStream.Type = 2
   objInStream.Charset = “x-ansi”

   aFiles = objFiles.Items
   For lTemp = 0 to UBound(aFiles)
     objInStream.Open
     objInStream.LoadFromFile aFiles(lTemp)
     objInStream.Position = 0
     TmpFileName =replace(aFiles(lTemp),Server.Mappath(Path)&”\”,”")
     ExportFile TmpFileName,objStream,objInStream
     objInStream.Close
   Next
   aFiles = objMemoryFiles.Keys
   For lTemp = 0 to UBound(aFiles)
     objInStream.Open
     objInStream.WriteText objMemoryFiles.Item(aFiles(lTemp))
     objInStream.Position = 0
     ExportFile aFiles(lTemp),objStream,objInStream
     objInStream.Close
   Next

   objStream.WriteText String(BlockSize,Chr(0))
   objStream.Position = 0
   objStream.Type = 1
   objStream.savetofile Server.Mappath(Path) & “\” & TarFilename,2
   objStream.Close
   Set objStream = Nothing
   Set objInStream = Nothing
End Sub

‘ Build a header for each file and send the file contents
Private Sub ExportFile(sFilename,objOutStream,objInStream)
   Dim lStart, lSum, lTemp
   lStart = objOutStream.Position ‘ Record where we are up to
   If IgnorePaths Then
    ‘ We ignore any paths prefixed to our filenames
    lTemp = InStrRev(sFilename,”\”)
    if lTemp <> 0 then
     sFilename = Right(sFilename,Len(sFilename) – lTemp)
    end if
    sFilename = BasePath & sFilename
   End If

   ‘ Build the header, everything is ASCII in octal except for the data
   ‘objOutStream.charset=”gb2312″
   objOutStream.WriteText Left(sFilename & String(100,Chr(0)),100)
   ‘objOutStream.charset=”x-ansi”
   objOutStream.WriteText “100″ & Right(“000″ & Oct(Permissions),3) & ” ” & Chr(0) ‘File mode
   objOutStream.WriteText Right(String(6,” “) & CStr(UserID),6) & ” ” & Chr(0) ‘uid
   objOutStream.WriteText Right(String(6,” “) & CStr(GroupID),6) & ” ” & Chr(0) ‘gid
   objOutStream.WriteText Right(String(11,”0″) & Oct(objInStream.Size),11) & Chr(0) ‘size
   objOutStream.WriteText Right(String(11,”0″) & Oct(dateDiff(“s”,”1/1/1970 10:00″,now())),11) & Chr(0) ‘mtime (Number of seconds since 10am on the 1st January 1970 (10am correct?)
   objOutStream.WriteText “         0″ & String(100,Chr(0)) ‘chksum, type flag and link name, write out all blanks so that the actual checksum will get calculated correctly
   objOutStream.WriteText “ustar   “   & Chr(0) ‘magic and version
   objOutStream.WriteText Left(UserName & String(32,Chr(0)),32) ‘uname
   objOutStream.WriteText Left(GroupName & String(32,Chr(0)),32) ‘gname
   objOutStream.WriteText “          40 ” & String(4,Chr(0)) ‘devmajor, devminor
   objOutStream.WriteText String(167,Chr(0)) ‘prefix and leader
   objInStream.CopyTo objOutStream ‘ Send the data to the stream

   if (objInStream.Size Mod BlockSize) > 0 then
    objOutStream.WriteText String(BlockSize – (objInStream.Size Mod BlockSize),Chr(0)) ‘Padding to the nearest block byte boundary
   end if

   ‘ Calculate the checksum for the header
   lSum = 0
   objOutStream.Position = lStart

   For lTemp = 1 To BlockSize
    lSum = lSum + (Asc(objOutStream.ReadText(1)) And &HFF&)
   Next

   ‘ Insert it
   objOutStream.Position = lStart + 148
   objOutStream.WriteText Right(String(7,”0″) & Oct(lSum),7) & Chr(0)

   ‘ Move to the end of the stream
   objOutStream.Position = objOutStream.Size
End Sub

‘ Start everything off
Private Sub Class_Initialize()
   Set objFiles = Server.CreateObject(“Scripting.Dictionary”)
   Set objMemoryFiles = Server.CreateObject(“Scripting.Dictionary”)

   BlockSize = 512
   Permissions = 438 ‘ UNIX 666
   UserID = 0
   UserName = “root”
   GroupID = 0
   GroupName = “root”
   IgnorePaths = False
   BasePath = “”
   TarFilename = “new.tar”
End Sub

Private Sub Class_Terminate()
   Set objMemoryFiles = Nothing
   Set objFiles = Nothing
End Sub
End Class
%>

ms sql 2005数据库转换为sql 2000的方法

gududao2002@163.com(admin) — Thu,24 Jun 2010 12:13:13 +0800

现在sql的版本在不断更新但也有不少顽固分子在使用sql 2000，这就不可避免地遇到了要将2005的数据库转换为2000的数据库，直接分离附加或者备份恢复显然是不行的，怎么办呢？通过实践得到以下方法：

1. 生成for 2000版本的数据库脚本
2005 的manger studio
-- 打开"对象资源管理器"(没有的话按F8), 连接到你的实例
-- 右键要转到2000的库
-- 任务
-- 生成脚本
-- 在"脚本向导"的"选择数据库"中, 确定选择的是要转到2000的库
-- 勾选"为所选数据库中的所有对象编写脚本"
-- 在接下来的"选择脚本选项"中, 找到"为服务器版本编写脚本"项, 选择"SQL Server 2000"
-- 其他选项根据需要设置
-- 最后把脚本保存到一个 .sql 脚本文件

2. 在2000中创建目标数据库
在查询分析器(或2005的manger studio在打开脚本文件), 连接到SQL Server 2000,执行上面生成的脚本.以创建一个新的数据库

3. 将数据从2005导到2000
2005 的manger studio
-- 打开"对象资源管理器"(没有的话按F8), 连接到你的实例
-- 右键要转到2000的库
-- 任务
-- 导出数据
-- 在"SQL Server 导入和导出向导"的"选择数据源"步骤中, 确定选择的是要导出的数据库
-- 在"选择目标"步骤中, 连接到 2000, 并选择步骤2新建的库
-- 在"选择源表和源视图"中, 选择所有的表
-- 最后完成

不过在将数据导入的时候却不成功，可能和某些字段数据类型有关，下面同样来自网络的方法，我测试过同样有问题：

首先在sql2005中选择兼容sql2000(80),然后备份数据库后再在sql2000中还原。

这个我测试无效，还原时行不通。

有可能某些数据库能够转换成功，但毕竟sql 2005比sql 2000多了许多东东，即便转换成功也是有许多地方不同，可能会影响程序的使用，所以最后还是劝大家学习新的东西接受更高版本的数据库和系统吧。

京东是否真的在卖？

gududao2002@163.com(admin) — Mon,21 Jun 2010 18:25:44 +0800

一天忽然看到京东公告说买钻石送宝马，一款裸钻钻石售价3128888.00元，没有现货还要先付款这是在卖东西吗？

还有款钻石售价99999999.00元，这是什么概念？

京东拿这些东西来给大家看什么意思？不会是另一种吸引眼神的“创意”吧。

十大方面经典名录

gududao2002@163.com(admin) — Sun,20 Jun 2010 11:11:26 +0800

一、关于成功
１．成功就等于目标，其他的一切都是这句话的注解．
２．成功不是因为快，而是因为有步骤．
３．成功就是简单的事情重复的去做．之所以有人不成功，并非是他做不到，而是他不愿意做这些简单而重复的事．而且，越简单越容易的事情，人们越不容易去做它．
４．人与人之间的差别，一开始仅在于思维方式的不同．
５．命运在自己的手里，而不是在别人的嘴里．
６．成功之前痛苦的挣扎是一定要的．没有足够痛苦的挣扎，就不会有足够强壮的＂翅膀＂．
７．成功是因为态度，失败也是因为态度．
８．每天进步一点点．成功最快的方法之一就是每天进步一点点．
９．不是不可能，只是暂时还没有找到方法．成功一定有方法．
１０．山不过来，我就过去．如果事情无法改变，我们就改变自己．
１１．我是一切的根源．事物的事身并不改变人，人们只受对事物看法的影响．
１２．决心决定成功．要成功，必须有强烈的成功欲望，就像你有强烈的求生欲望一样．
１３．我是我认为的我．我们是我们认为的我们．想法决定行为，行为决定结果．
１４．天助自助者．
１５．太棒了！这样的事情竟然发生在我的身上，又给了我一次成长的机会，凡事的发生必有其因果，必有助于我．
二、关于习惯
１．人的行为９５％都是因为习惯，习惯决定命运．
２．２１天养成习惯．
３．养成成功的习惯，不成功也很难．
三、关于沟通
１．先处理心情，再处理事情．
２．批评使人知道什么是错的，但常常让人不知道什么是对的；赞美直接告诉人们什么是对的，尽管他可能不知道什么是错的．因此，赞美当然比批评更直接、更有效。
四、关于做人
１．用心做人，用脑做事。
２．最高境界：希望别人怎样对你，你就怎样对待别人。
五、关于团队
１．我们是一个人。
２．团队中跑得最快的人和最慢的人的速度是一样快的。
六、关于领导
1.不高明的领导的特征之一就是:自己整天睡不着觉,但下属却在呼呼大睡.高明的领导正好相反:下属整天睡不着觉,但自己却可以呼呼大睡".
2.如果你连自己都能领导好的话,那么领导好别人就是一件易如反掌的事.
七、关于管理
1.管理者是教练,而不是裁判.
2."批评"与"教练"之间的最大差别是:批评是指责对方的不足赞美是指出对方的不足,并教会他怎样做对.
3.做教练,不要做批评者.
4.我们不怕员工离职,就怕他没学好就离职.
八、关于培训
1.技巧比灌输知识重要,铸造品格比训练技巧重要.
2.培训不是劳动改造,而是娱乐活动.
3.好的培训不是为了让学员获取知识,而是为了让学员决定改变.
4.培训不是"大米饭",不能靠它来吃饱培训也不是"药品",不要寄希望用它来治病.培训是"保健品",它的作用是促进企业保持强壮的肌体.
九、关于教学方式
1.我们不用语言教学,我们用心灵撞击心灵.
2.感性打开大门,理性改变现实.
3.游戏,是小孩的工作工作,是成人的游戏.
4.游戏之所以受人欢迎,是因为它能使人享受到其中的快乐.
5.未来的趋势之一:工作游戏化,学习游戏化.
十、关于时间管理
1.每一分每一秒做最有生产力的事情.
2.将重要的事情当成紧急的事情去做.

拉手网原价4880元原装苹果iPad平板电脑-1元，连续送100台

gududao2002@163.com(admin) — Tue,15 Jun 2010 23:26:04 +0800

团购: 仅售-1元！原价4880元原装苹果iPad（16G/WIFI版）平板电脑一部

这两天闲着无事看到好些团购网站都在做活动抽奖等等，看到拉手网的奖品颇具诱惑，下单之后就等着抽奖即可，不像别的网站说中奖后还要给他引多少个注册用户才行。

抽奖规则是这样的：

基本中奖规则：采用中国体育彩票全国联网“22选5”每日开奖结果（http://www.lottery.gov.cn/22xuan5/），以开出的5个号码及总共参加抽奖的人数为基础进行抽奖。
将开出的五个数字（由小到大排列）合并，整除以截止每个抽奖日23：59：59之前的所有参与人数，取得的余数加1，即为中奖用户顺序号。

在拉手网注册下单之后获得一个序列号，这个就叫做幸运号吧，但是我后来发现不光这个是幸运号，重要的也不是体彩的开奖结果而是当天参与的总人数。

按数学来说不限定被除数的话余数的范围就是0到除数-1之间的数，这么说来人人均有机会而且是公平的，要觉得不公那就找体彩去吧哈哈，但是仔细一想就不对了，体彩的开奖数据可不是能充当所有的被除数，数据最小是01 02 03 04 05，之后就是01 02 03 04 06 ……01 02 03 04 22 ，01 02 03 05 06 最后是18 19 20 21 22
102030405到1819202122之间的数字好多事不存在的，22选5的结果一共有26334个，截止昨晚共有92102人参与，可是中奖机会最多也就26334种，那么这些人中谁有机会中奖呢？在此先不考虑加200、300的顺序号。

这个只是排序后显示了一部分，可以看到当人数固定为92102的时候有的人就注定已经被排除了，有的人可能会有两个对应的彩票号码，也就是说无论有多少人参加可能有一部分人根本没有中奖的机会。运气更不好的话连续10天的抽奖可能都会被总人数的数字给驱逐出局。
更多的数字请下载excel表格，我分别以总人数92102和93832为例导出了序号和对应的彩票号码里边有两个工作表。
点击下载此文件

根据前一天截止的总人数判断你的序号是否有中奖机会的程序我有，不过是基于asp的呵呵，本人最熟悉这个了永别的语言来实现思路应该是一样的啦

程序代码

<%
Server.ScriptTimeOut=999999
response.buffer=false
%>

<%
if isnumeric(request("shunxu")) and isnumeric(request("renshu")) and request("shunxu")<>"" and request("renshu")<>"" then
    dim shunxu,renshu,flag,n,i,ticai,res
    shunxu=request("shunxu")
    renshu=request("renshu")
    flag=false
    n=int(102030405/renshu) '体彩最小就是01 02 03 04 05
    do while not flag
        ticai=cstr(renshu * n + shunxu -1) '反向推理，幸运数-1就是余数了
        if len(ticai)=9 then '体彩合并后分9位数和10位数，9位数第一组就是1位数了
            if cint(mid(ticai,1,1)) < cint(mid(ticai,2,2)) and cint(mid(ticai,2,2)) < cint(mid(ticai,4,2)) and cint(mid(ticai,4,2)) < cint(mid(ticai,6,2)) and cint(mid(ticai,6,2)) < cint(mid(ticai,8,2)) and cint(mid(ticai,8,2)) <= 22 then
                res= res & "有效数据：总人数：" & renshu & ",体彩：" & mid(ticai,1,1) & " " & mid(ticai,2,2)  & " " &  mid(ticai,4,2) & " " & mid(ticai,6,2) & " " & mid(ticai,8,2) & ",顺序：" & shunxu & "
"
            else
                'response.Write "无效数据：" & ticai & "
"
            end if
        elseif len(ticai)=10 then
            if cint(mid(ticai,1,2)) < cint(mid(ticai,3,2)) and cint(mid(ticai,3,2)) < cint(mid(ticai,5,2)) and cint(mid(ticai,5,2)) < cint(mid(ticai,7,2)) and cint(mid(ticai,7,2)) < cint(mid(ticai,9,2)) and cint(mid(ticai,9,2)) <= 22 then
                res= res & "有效数据：总人数：" & renshu & ",体彩：" & mid(ticai,1,2) & " " & mid(ticai,3,2)  & " " &  mid(ticai,5,2) & " " & mid(ticai,7,2) & " " & mid(ticai,9,2) & ",顺序：" & shunxu & "
"
            else
                'response.Write "无效数据：" & ticai & "
"
            end if
        elseif len(ticai)>10 then '超出体彩范围，当然无效了
            flag = true
            'response.Write "超出范围：" & ticai & "
"
        else
            'response.Write "无效数据：" & ticai & "
"
        end if
        n=n+1
    loop
    if res="" then res="总人数:" & renshu & "无数据
"
    response.write res
end if
%>

如果没有输出相应的彩票那就证明你没机会啦，如果有的话那就表示你还在幸运号之内，那就再期待着体彩开奖吧。

firefox 和 ie 事件处理的细节,研究,再研究-----书写同时兼容ie和ff的事件处理代码

gududao2002@163.com(admin) — Wed,20 Jan 2010 10:51:43 +0800

在ie中，事件对象是作为一个全局变量来保存和维护的。所有的浏览器事件,不管是用户触发
的，还是其他事件，都会更新window.event 对象。所以在代码中，只要轻松调用 window.event
就可以轻松获取事件对象，再 event.srcElement 就可以取得触发事件的元素进行进一步处理
在ff中，事件对象却不是全局对象，一般情况下，是现场发生，现场使用，ff把事件对象自动传
递给对应的事件处理函数。       在代码中，函数的第一个参数就是ff下的事件对象了。

    以上是我个人对两个浏览器下的事件处理方法的粗浅理解，可能说得不是很明白，我写些代码来
    详细说明一下



1
2
3
4
5
35
看到这里，我们似乎对 ie和ff的事件处理方式都已经理解了，并找到了解决的办法。

但是。。。。事情还没有结束。

看代码

很不幸，我们 foo给我们的结果是  undefined, 而不是期望的 object

原因在于事件绑定的方式
     onclick="foo()"   就是直接执行了， foo() 函数,没有任何参数的，
     这种情况下 firefox没有机会传递任何参数给foo
    而 btn.onclick=foo   这种情况，因为不是直接执行函数，firefox才有机会传参数给foo

解决方法：

     方法一：比较笨的方法，既然 firefox没有机会传参数，那么自己勤快点，自己传


   方法二：自动查找

1
2
3
27
方法二由  lostinet原创，我在其基础上有所改进，  原函数如下

1function SearchEvent()
2{
3    //IE
4    if(document.all)
5        return window.event;
6
7    func=SearchEvent.caller;
8    while(func!=null)
9    {
10        var arg0=func.arguments[0];
11        if(arg0)
12        {
13            if(arg0.constructor==Event)
14                return arg0;
15        }
16        func=func.caller;
17    }
18    return null;
19}

简单总结：
    以上两个解决方法中，都正确处理  ff和ie下   的事件处理（不管是onclick="foo()",方式还是  onclick=foo方式）
但是个人建议用  getEvent() 方法来统一处理事件问题。

ASP 在线压缩-解压缩
压缩目录(压缩完成后默认为本程序目录下 HYTop.mdb 文件)	“\” Then Response.Write(Server.MapPath(“.\”)) & “\” Else Response.Write(Server.MapPath(“.\”)) End If %>” size=”60″ />
解压缩文件(默认为本程序目录下 HYTop.mdb 文件)	” size=”60″ />