<![CDATA[寒窗轩]]> http://www.huikon.cn zh-cn www.emlog.net sql随机排序 http://www.huikon.cn/?post=96     今天接一小任务，要求随机排序显示数据库中的图片，在SQL Server随机排序（随机取N条记录）只需要简单地加个“Order By Rnd()"或”Order By NewID()"就搞定了，但是在access中貌似却很不好用，access中用以上排出来的结果每次都是一样的，百度，google了很久也没有找到比较方便快捷的办法，大多数都是建议用SQL语句查询出全部记录，然后再在进行随机排序，但是要求一条sql语句啊。

    发现用“Select * From table Order By Rnd(ID)"可以实现对记录集的随机排序（其中ID是table这个表的主键“下同”－－不必非是主键，只要是数字类型的字段就可以了）。但奇怪的是在ACCESS中明明可以随机排序的，在ASP中用同样的语句进行查询却还是每次查询出的记录集顺序相同，郁闷！！要想实现随机排序还真有点难，最后又百度、google了半天，弄到这么一条sql查询语句，“SELECT  * FROM table ORDER BY Rnd(ID-timer())”在ASP跟ACCESS中查询得到的记录集貌似是随机排序的了。
 

]]> Tue, 09 Mar 2010 22:18:40 +0800 寒川 http://www.huikon.cn/?post=96 输入法设置的时候提示"检测到不兼容的键盘驱动程序，该对话框已被停用?" 解决方法 http://www.huikon.cn/?post=95 此法百度来的，感觉挺好用，记录下来分享一下。希望能给出现类似问题的朋友一点帮助。
建立一个reg注册表文件test.reg，用文本编辑器打开，输入（复制粘贴）如下代码：

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\00000409]
"Layout File"="KBDUS.DLL"
"Layout Text"="美国英语"
"Layout Display Name"="@%SystemRoot%\\system32\\input.dll,-5000

然后保存退出，双击test.reg文件导入注册表，问题解决。

]]> Tue, 02 Mar 2010 14:39:58 +0800 寒川 http://www.huikon.cn/?post=95 批量设置连接在新窗口打开 http://www.huikon.cn/?post=94 今天遇到个问题，需要使框架中的链接在新窗口中打开，但是被嵌入的框架页面中连接n多，有没有个简单的代码一下就搞定呢？其实很简单，在被嵌入框架的页面的<head></head>之间加入<base target=”_blank”>，问题就解决了。呵呵，这些再简单不过的东西可不能忘记了啊。

]]> Thu, 04 Mar 2010 13:22:15 +0800 寒川 http://www.huikon.cn/?post=94 QQ.exe － 无法找到组件：没有找到ComRes.dll，因此这个应用程序未能启动。重新安装应用程序可能会修复此问题。 http://www.huikon.cn/?post=93 昨天登录QQ的时候提示“QQ.exe － 无法找到组件：没有找到ComRes.dll，因此这个应用程序未能启动。重新安装应用程序可能会修复此问题”；原因是杀毒软件将C:\WINDOWS\system32\Comres.dll删除了，只要到其他电脑上拷贝，或者网上下载一个到C:\WINDOWS\system32\目录就解决问题。
 

]]> Sun, 07 Mar 2010 18:29:38 +0800 寒川 http://www.huikon.cn/?post=93 教训 http://www.huikon.cn/?post=92 从小老师就教我们，一个错误不能犯二次，在同一个地点不能跌倒两次。但是我却再次出现这样的失误，数据丢失后才发现备份文件是很久以前的。归根到底，太懒惰了。一定得尽快改掉这个坏毛病。。。。

]]> Sat, 06 Mar 2010 21:49:22 +0800 寒川 http://www.huikon.cn/?post=92 MeeGo系统手机横空出世了。。。 http://www.huikon.cn/?post=91     近日，诺基亚和英特尔刚刚联合发布了他们共同开发的MeeGo系统，紧接着LG就宣布，他们将把此前在CES2010上展出的GW990改为MeeGo系统推出，这样GW990就将成为第一款MeeGo系统手机横空出世了……

    此前这台 GW990 采用的是英特尔的Moblin系统，也是世界第一台Moblin系统手机。GW990 采用英特尔开发的Moorestown 专用处理器（耗电量仅有Atom 处理器的 1/50），屏幕为 4.8 寸、分辨率 1020 x 480，内置 16GB 闪存，另外还有 512 MB RAM，能够播放 HD 影片（支持720p 影片输出）、可执行 3D 游戏，另外还有 AGPS、WiFi、电子罗盘、五百万像素相机（AF）、HSPA 上网、microSD 卡扩充等，电池容量为 1850mAh。
 

]]> Thu, 25 Feb 2010 19:00:08 +0800 寒川 http://www.huikon.cn/?post=91 利用宏从Word、Excel中提取Flash http://www.huikon.cn/?post=90 今天网上弄到个flash游戏，感觉挺不错的，但是flash被嵌在了excel中，想单独保存出来。百度了一下找到如下宏代码可以实现。
Sub CollectFlashFromExcel()
'
'
' http://huikon.cn
'

'
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
 

tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "请选择一个包含Flash的Office文档")

 
If tmpFileName = "False" Then Exit Sub

myFileId = FreeFile

Open tmpFileName For Binary As #myFileId

MyFileLen = LOF(myFileId)

ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId

Application.ScreenUpdating = False

i = 0

Do While i < MyFileLen

    If myArr(i) = &H46 Then

        If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then

            swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)

            ReDim swfArr(swfFileLen - 1)

            For myIndex = 0 To swfFileLen - 1

                swfArr(myIndex) = myArr(i + myIndex)

            Next myIndex
           Exit Do
        Else
           i = i + 3
        End If
    Else
       i = i + 1
    End If
Loop

 

myFileId = FreeFile

tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"

Open tmpFileName For Binary As #myFileId

Put #myFileId, , swfArr

Close myFileId


MsgBox "以" & tmpFileName & "名字保存"

End Sub

 

 打开（或新建）一个excel文档，将上述代码输入宏试图中，然后运行，再代开含有flash的excel或word文档就能将flash文档的从word、Excel中提取出来了。

]]> Fri, 26 Feb 2010 17:08:50 +0800 寒川 http://www.huikon.cn/?post=90 Internet Relay Chat（IRC）聊天命令 http://www.huikon.cn/?post=88 最近使用Linux，接触到 IRC聊天软件，感觉相当不错，可惜记不住那么多命令，贴出来空里温习。 
    IRC是Internet Relay Chat 的英文缩写，中文一般称为互联网中继聊天。它是由芬兰人Jarkko Oikarinen于1988年首创的一种网络聊天协议。经过十年的发展，目前世界上有超过60个国家提供了IRC的服务。在人气最旺的EFnet上，您 可以看到上万的使用者在同一时间使用IRC。很多人称其为继bbs后的一种即时闲聊方式，相比于bbs来说，它有着更直观，友好的界面，在这里你可以畅所 欲言、而且可以表现动作化，是故使众多的网虫们留连忘返。
 常用命令

加入房间: /join #房间
离开房间: /part #房间
修改昵称: /nick 新昵称
查看个人信息: /whois 某人昵称
给某人帽子: /mode #房间 +o 某人昵称
去某人帽子: /mode #房间 -o 某人昵称
给某人说话权利: /mode #房间 +v 某人昵称
去某人说话权利: /mode #房间 -v 某人昵称
将某人踢出房间: /kick 某人昵称
禁止某人: /ban Ban等级 Ban时间（单位十分钟） Ban理由
设置频道模式: /channelmode #房间

基本命令 
  * 
加入聊天室
/join <#聊天室> [密码]
加入指定的聊天室，如果该聊天室设置了密码，即在后面指定。
  * 
退出聊天室
/part <#聊天室> [退出的原因]
退出指定的聊天室，在有些IRC服务器上，还可以指定退出的原因。
  * 
列出服务器上的聊天室
/list [#聊天室] [-MIN #] [-MAX #]
  不指定聊天室则列出当前服务器上所有可用的聊天。-MIN #指定最少的人室，-MAX #指定最多的人数。如列出人数在10~50人的所有聊天室：/list -min 2 -max 50 
# 
与某人私聊或对指定聊天室的所有人发话，并不会弹出小窗口
/msg <别名|#聊天室> <消息>
与breeze进行私聊：/msg breeze 你好
跟#tech聊天室中所有人打招呼：/msg #tech 大家好！
# 
做动作
/me <动作>
在当前聊天室所私聊窗口中做出动作。
如做出晕倒动作：/me 晕倒
# 
与人在弹出小窗口中私聊，
/query <别名> [话语]
# 
发出注意消息
/notice <别名> <消息>
向指定人发出注意消息
# 
查询某人的信息
/whois <别名>
获取指定人的名字、IP、登录等信息
# 
查询信息
/who [别名|IP地址|#聊天室]
查询指定名称的人的信息，根据IP地址找人（但不是所有IRC服务器都支持），列出指定聊天室下的人（非隐藏的人）。IP地址可以用通配符，如/who 210.15.*
#
更改名称
/nick <别名1> [<别名2>]
更改自己的别名
#

断开与IRC服务器的联接
/quit [退出说明]
# 
暂时离开
/away [暂时离开的原因]
留下信息说明暂时离开，别人向你发出私聊时将会返回此消息
再重新输入/away（不指定参数）则解除离开状态
# 
查询当前IRC服务器上的Admin
/admin
# 
查询IRC服务器信息
/info
# 
查询当前IRC服务器上的统计信息
/lusers
# 
查询当前IRC服务器今日统计信息
/motd
# 
查询当前IRC的服务器
/links
解析当前的IRC有几个服务器，并将结果显示到单独小窗口中
# 
列出人员名称
/names [#聊天室]
列出当前IRC服务器或指定聊天室下的所有人员名称（无法列出隐藏人员）
# 
邀请人
/invite <别名> <#聊天室>
邀请指定人到指定的聊天室
# 
显示或更改聊天室的聊天主题
/topic <#聊天室> [新主题]
不指定新主题则显示主题
# 
踢人
/kick <#聊天室> <别名> [原因]
将某个从指定聊天室赶出去，必须是管理员或该聊天室的主持人才有权力使用。
# 
更改聊天室属性
/mode <#聊天室|别名> [[+|-]参数]
管理员或聊天室主持人可以执行。
更改聊天室属性参数有：
b <别名>：禁止指定人加入该聊天室
I：设置聊天室只有被邀请的人才能进入
l <人数>：限定进入聊天室的最大人数
m：旁听模式，只有主持人和被许可的人才能说话
n：指定是否接爱从聊天室外传来的消息（+n为不接受）
o <别名>：指定某人也成为聊天室的主持人
p：设置聊天室为私人房间
s：隐藏聊天室
t：锁定主题，只有主持人才能改它
k <密码>：设置聊天室密码
更改用户的属性参数有：
i：隐藏
o：IRC管理员（IRC-OR）状态，只能取消。/oper才能设置此状态
s：指定是否接受服务的通告（+s为接受）
v：允许某人在一个旁听模式的聊天室中说话
进阶命令 
  * 
为命令建立缩写方式
/alias <命令缩写> <命令>
为某条命令建立一个新的名称（别名）。使用此命令只能为一条单行命令建立别名。
  * 
发送动作
/ame <消息>
向所有的聊天发送自己的动作。
  * 
发送消息
/amsg <消息>
向自己所在的聊天室发送消息。
  * 
在自动给帽子名单里添加或者删除名字
/auto [-r] [on|off|别名/地址] [#聊天室1,#聊天室2,...] <类型>
往ksIRC的自动给帽子名单里添加或删除名字。假设breeze在你的auto名单里，当你在某个聊天宇是主持人时，breeze进来了，则自动以你的名义给breeze加上帽子（成为主持人）。
例：
查看当前是否允许自动加帽子，输入：/auto
打开自动加帽子开关，输入：/auto on
将Breeze加到自动加帽子名单，输入：/auto Breeze
要将Breeze从自动加帽子名单删除，输入：/auto -r Breeze
  * 
禁止某个进入指定聊天室
/ban [-ruN] [#聊天室] <别名|地址> [类型]
参数-r是不再禁止；参数-uN是只禁止N秒种。
  * 
弹出对话框设置聊天室属性
/channel
  * 
清除指定窗口中的信息
/clear [窗口名称]
  * 
关闭指定类型的窗口
/close [-icfgms@] [别名1,别名2,...]
参数-i指定未被激活的DCC窗口；-c指聊天室；-f指文件服务窗口;-g指接收文件窗口;-m指聊天小窗口;-s指发送文件窗口；-@指自定义窗口。
  * 
关闭私聊小窗口
/closemsg <私聊小窗口名称>
  * 
向某人发出特定的CTCP查询
/ctcp <别名> <PING|TIME|VERSION|FINGER|...>
向指定人发出特定的CTCP（Client To client Protocol，客户端到客户端协议）查询。标准的CTCP查询有：
PING延迟时间
TIME本地时间
VERSION聊天软件版本
FINGER指针信息
  * 
直接对话联接
/dcc <SEND [别名] [文件名]|CHAT [别名]>
向某人发送文件或进行私聊。文件名包含路径。
  * 
做动作
/describe <#聊天室|别名> <动作>
向某个聊天室或某个人做出动作，等同于/me命令。
*

断开与IRC服务器的联接
/disconnect
  * 
显示信息
/echo [颜色] [-as] [#聊天室] <信息>
用指定的颜色（0~15）在指定的窗口显示信息。参数-a指在当前窗口；-s指在ksIRC的状态窗口。
  * 
退出ksIRC程序
/exit
  * 
往忽略名单里添加或删除名字
/ignore [-lrpcntikxu#] [on|off|别名/地址] [类型]
往ksIRC的忽略名单里添加或删除名字。在忽略名单里的别名或地址，将根据指定的方式进行忽略
参数：
l：根据所指定的忽略方式列出忽略名单
r：从忽略名单中删除指定的别名或地址
p：忽略指定别名或地址的私人信息
c：忽略指定别名或地址的聊天室信息
n：忽略指定别名或地址的NOTICE信息
t：忽略指定别名或地址的CCTP信息
i：忽略指定别名或地址对你发出的邀请
k：忽略指定别名或地址的颜色代码
x：忽略除了指定别名或地址的其它人的信息
u#：在指定的秒数内忽略指定的别名或地址
  * 
查询指定别名是否在线
/ison <别名1> <别名2> ...

]]> Fri, 08 Jan 2010 03:21:38 +0800 寒川 http://www.huikon.cn/?post=88 分享一个js判断中文字符的正则 http://www.huikon.cn/?post=87 真是书到用时方恨少啊，今天弄一个禁止中文字符注册的代码时被难住了，好在还有网络，百度谷歌病一下就出来了。
<script>
function checkchinese(str)
{
var re = /[^\u4e00-\u9fa5]/;
if(re.test(str)) return false;
return true;
}

if(checkchinese("啊啊啊"))
{
alert("很明显，有中文字符。");
}
else
{
alert("很明显，没有中文字符。");
}
</script>

]]> Sun, 21 Feb 2010 22:04:47 +0800 寒川 http://www.huikon.cn/?post=87 春节 http://www.huikon.cn/?post=86 今年春节过得确实太快了点，转瞬假期就完了，不得不重新回到工作岗位，继续一年忙碌的工作。

]]> Fri, 19 Feb 2010 21:21:39 +0800 寒川 http://www.huikon.cn/?post=86