0和1的世界

win 7下使用sql server 2000

rumusanfen@gmail.com(libra) — Sat, 20 Mar 2010 00:10:16 +0000

Libra's Blog ( http://blog.librado.name/ ) :

一般来说win 7下正常能用的sql server版本要到2005以上，但是我的小本装了sql server 2008后，有查询的时候那个cpu占用太吓人，于是想办法装sql server 2000。

正常装2000个人版，需要打补丁，打了补丁后还不稳定，无奈之下把脑筋动到了绿色版上。

在多特找了个绿色版，把主控台执行文件和sqlserver执行文件的运行兼容设置为xp sp3模式，一试之下，惊喜...体积小，使用方便，无报错0.0

唯一发现的问题就是我的应用软件新建数据库时提示错误，不过用控制台执行文件内的新建设置没有问题，新建之后数据库操作也一切正常。

接下来的几天我继续测试，如果没有其他问题，那么很多人苦恼的win 7装sql server 2000的问题就有一个不错的解决方案了~

grub设置笔记

rumusanfen@gmail.com(libra) — Wed, 05 Mar 2008 09:00:04 +0000

Libra's Blog ( http://blog.librado.name/ ) :

1- 引导windows
这是一个典型的windows启动段落：

title        Microsoft Windows XP Professional
root        (hd0,0)
savedefault
makeactive
chainloader    +1

2 - 隐藏菜单
将“hiddenmenu"写入menu.lst，启动时Grub就会只显示一行倒计时提示，当用户按下ESC之后才会显示启动菜单。

3 - 密码和加锁
在menu.lst中使用“password”命令可以给Grub加锁，例如：

password topsecret

那么开机时必须按提示输入密码“topsecret”之后，才允许打开Grub的命令行模式。这样就可以避免Grub的命令行引起安全问题。
另外还可以使用MD5加密你所设置的密码，以免他人查看menu.lst时泄露密码，假设密码仍设为“topsecret”，在终端下操作：

al@Alexander:~$ grub-md5-crypt
Password:
Retype password:
$1$0W/7X1$2GDNa7bXeAt.ASHAq01zp1
al@Alexander:~$

输入两遍密码后，显示的“$1$0W/7X1$2GDNa7bXeAt.ASHAq01zp1” 就是对应到“topsecret”的MD5密文。需要注意的是，对同一个密码进行MD5加密之后得到的结果会不一样，这样的特性使MD5加密方法更安全。在menu.lst里“password”命令需要对应地改为：

password --md5 $1$0W/7X1$2GDNa7bXeAt.ASHAq01zp1

    这样设置密码的最终效果和前面的方法是相同的。
    你还可以利用这里设置的密码，限制他人使用某些引导段落。只要在需要限制的引导段落的“title”行下面添加一行“lock”，这个引导选项就只能在输入了正确的密码后启动。

4 - 背景图像
    首先要将需要设为背景的图片进行转换，Grub可以接受14色640＊480像素XPM图像。例如你找到的图片叫做“splashimage.jpg”，用convert命令进行转换：

$ convert -resize 640x480 -colors 14 splashimage.jpg splashimage.xpm

之后还要进行适当的压缩：

$ gzip splashimage.xpm

把处理好的图片移到grub的目录下：

$ mv splashimage.xpm.gz /boot/grub

在menu.lst里添加图片的路径（注意boot所在的磁盘，可以用fd命令查看分区的挂载点）：

splashimage=(hd0,0)/boot/grub/splashimage.xpm.gz

这时重启就可以看到效果了。

vmware配置笔记

rumusanfen@gmail.com(libra) — Thu, 11 Oct 2007 09:35:43 +0000

Libra's Blog ( http://blog.librado.name/ ) :

关于本本装vmware，自动降频的cpu所产生的频率报警提示问题的解决方法...

在文件C:\Documents and Settings\All Users\Application Data\VMware\VMware Workstation\config.ini中添加：

host.cpukHz = 1862000（替换为你的CPU频率）
host.noTSC = TRUE
ptsc.noTSC = TRUE

痛苦的mysql升级

rumusanfen@gmail.com(libra) — Sat, 01 Sep 2007 11:16:20 +0000

Libra's Blog ( http://blog.librado.name/ ) :

昨天服务器升级php5，mysql5，升得郁闷...
本来mysql同时运行了4.1和5.0，数据同步完成之后，一切正常，但是在卸载4.1之后，问题出现了，服务器一重启，mysql服务就再也启动不了...
查了n多资料，没有一个有用的，后来想到换一个目录重装mysql试一下，结果启动服务成功...但是好像还是有后遗症，就是系统重启之后，mysql无法自启，无奈之下，做了一个批处理延时自启来启动服务...先暂时这样吧...唉...升级一次mysql就重装一次系统...想死...

转义字符表

rumusanfen@gmail.com(libra) — Fri, 18 May 2007 20:37:56 +0000

Libra's Blog ( http://blog.librado.name/ ) :

字符	十进制	转义字符
"	"	"
&	&	&
<	<	<
>	>	>
不断开空格(non-breaking space)

其他字符

字符	十进制	转义字符	字符	十进制	转义字符	字符	十进制	转义字符
?	¡	¡	Á	Á	Á	á	á	á
￠	¢	¢	Â	Â	ˆ	â	â	â
￡	£	£	Ã	Ã	Ã	ã	ã	ã
¤	¤	¤	Ä	Ä	Ä	ä	ä	ä
￥	¥	¥	Å	Å	˚	å	å	å
\|	¦	¦	Æ	Æ	Æ	æ	æ	æ
§	§	§	Ç	Ç	Ç	ç	ç	ç
¨	¨	¨	È	È	È	è	è	è
©	©	©	É	É	É	é	é	é
a	ª	ª	Ê	Ê	Ê	ê	ê	ê
?	«	«	Ë	Ë	Ë	ë	ë	ë
?	¬	¬	Ì	Ì	Ì	ì	ì	ì
\x7f			Í	Í	Í	í	í	í
®	®	®	Î	Î	Î	î	î	î
ˉ	¯	¯	Ï	Ï	Ï	ï	ï	ï
°	°	°	Ð	Ð	Ð	ð	ð	&ieth;
±	±	±	Ñ	Ñ	Ñ	ñ	ñ	ñ
2	²	²	Ò	Ò	Ò	ò	ò	ò
3	³	³	Ó	Ó	Ó	ó	ó	ó
′	´	´	Ô	Ô	Ô	ô	ô	ô
μ	µ	µ	Õ	Õ	Õ	õ	õ	õ
?	¶	¶	Ö	Ö	Ö	ö	ö	ö
·	·	·	×	×	×	÷	÷	÷
?	¸	¸	Ø	Ø	Ø	ø	ø	ø
1	¹	¹	Ù	Ù	Ù	ù	ù	ù
o	º	º	Ú	Ú	Ú	ú	ú	ú
?	»	»	Û	Û	Û	û	û	û
?	¼	¼	Ü	Ü	Ü	ü	ü	ü
?	½	½	Ý	Ý	Ý	ý	ý	ý
?	¾	¾	Þ	Þ	Þ	þ	þ	þ
?	¿	¿	ß	ß	ß	ÿ	ÿ	ÿ
À	À	À	à	à	à

boblog-2转sablog-x笔记

rumusanfen@gmail.com(libra) — Tue, 22 Aug 2006 06:24:39 +0000

Libra's Blog ( http://blog.librado.name/ ) : 能够顺利转换到sablog-x...一切都有赖于4ngel给我的那个一直未发布的转换程序...在此，再次感谢4ngel：多么伟大的小a啊~啊哈哈~
继续说正题...上面说是顺利，其实还是有点小插曲滴，如果完全顺利，我也没有什么好写的了，是吧？
话说那天拿到小a发过来的转换程序，兴高采烈地上传全新安装包和转换程序，用转换程序进行转换安装过程，确认，确认，再确认，一切ok，我很感动，很兴奋...但就在我兴奋了1/3分钟后，我发现，评论和文章错位了...去小a那里叫嚷了一番后，还是无法平息我的郁闷，我是个没耐心的人-_-#，于是决定自己研究一下小a的转换程序。
打开php文件一看，小a写的程序真是清楚明了，就是我这个没学过php的菜鸟也能大概地知道哪段代码是用来执行哪些操作的。看到这里：
if ($cate_autoid) {$cate['cateid'] = $cate['cateid']+1;}
时，我想起来去看数据表结构，两者的文章ID字段属性果然不同...所以在文章数据转换中，小a做了如上处理。于是我猜测是小a在评论数据转换中忘了文章ID有增量1，于是评论数据错位...
猜测归猜测，试一试才知道，于是我在：
$comment['reproperty'] = $comment['reproperty'] ? '0' : '1';
下面加上这样一行：
$comment['blogid'] = $comment['blogid']+1;
重新转换，ok...成功，瞎猫碰上死耗子了，啊哈哈~至于我又跑到小a那里说丢失第一个评论，完全是眼睛不好使，再次鄙视自己一记...

求圆周率π的C程序分析

rumusanfen@gmail.com(libra) — Mon, 14 Aug 2006 14:56:56 +0000

Libra's Blog ( http://blog.librado.name/ ) : long a=10000, b, c=2800, d, e, f[2801], g;
main(){ for(;b-c;) f[b++]=a/5;
for(;d=0,g=c*2;c-=14,printf("%.4d",e+d/a),e=d%a)
for(b=c; d+=f[b]*a, f[b]=d%--g, d/=g--, --b; d*=b); scanf("%s");}

简短的4行代码，就可以精确计算机出800位的PI（圆周率）值。
实在太震撼人心了。这样的程序也能运行，竟然还能能完成这样让人难以置信的任务，真是太神了。

这是某一年The International Obfuscated C Code Contest（国际模糊C代码大赛）上的获奖作品（努力了，但是没有找到一个确切的时间）。这是属于C大师的盛会，因为这是一件极具挑战的活儿。

一、源程序
本文分析下面这个很流行的计算PI的小程序。下面这个程序初看起来似乎摸不到头脑，不过不用担心，当你读完本文的时候就能够基本读懂它了。程序一：很牛的计算Pi的程序
#include
int a=10000,b,c=2800,d,e,f[2801],g;
main()
{
for(;b-c;)
    f[b++]=a/5;
for(;d=0,g=c*2;c -=14,printf("%.4d",e+d/a),e=d%a)
    for(b=c; d+=f[b]*a,f[b]=d%--g,d/=g--,--b; d*=b);
}

二、数学公式
数学家们研究了数不清的方法来计算PI,这个程序所用的公式如下：

pi = 2 + ¹/₃* (2 + ²/₅ * (2 + ³/₇ * (2 + ... (2 + ^k/_2k+1 * (2 + ... ))...)))

至于这个公式为什么能够计算出PI，已经超出了本文的能力范围。
下面要做的事情就是要分析清楚程序是如何实现这个公式的。
我们先来验证一下这个公式：
程序二：Pi公式验证程序
#include
void main()
{
   float pi=2;
   int i;
   for(i=100;i>=1;i--)
      pi=pi*(float)i/(2*i+1)+2;
   printf("%f\n",pi);
   getchar();
}
上面这个程序的结果是3.141593。

三、程序展开
在正式分析程序之前，我们需要对程序一进行一下展开。我们可以看出程序一都是使用for循环来完成计算的，这样做虽然可以使得程序短小，但是却很难读懂。根据for循环的运行顺序，我们可以把它展开为如下while循环的程序：

程序三：for转换为while之后的程序
#include
int a=10000,b,c=2800,d,e,f[2801],g;
main() {
int i;
for(i=0;i     f[i]=a/5;
while(c!=0)
     {
         d=0;
         g=c*2;
         b=c;
         while(1)
            {
                d=d+f[b]*a;
                g--;
                f[b]=d%g;
                d=d/g;
                g--;
                b--;
                if(b==0) break;
                d=d*b;
            }
         c=c-14;
         printf("%.4d",e+d/a);
         e=d%a;
    }
}

注：
for([1];[2];[3]) {[4];}的运行顺序是[1],[2],[4],[3]。如果有逗号操作符，例如：d=0,g=c*2，则先运行d=0,然后运行g=c*2,并且最终的结果是最后一个表达式的值，也就是这里的c*2。

下面我们就针对展开后的程序来分析。

四、程序分析
要想计算出无限精度的PI，我们需要上述的迭代公式运行无数次，并且其中每个分数也是完全精确的，这在计算机中自然是无法实现的。那么基本实现思想就是迭代足够多次，并且每个分数也足够精确，这样就能够计算出PI的前n位来。上面这个程序计算800位，迭代公式一共迭代2800次。
int a=10000,b,c=2800,d,e,f[2801],g;
这句话中的2800就是迭代次数。

由于float或者double的精度远远不够，因此程序中使用整数类型（实际是长整型），分段运算（每次计算4位）。我们可以看到输出语句printf("%.4d",e+d/a); 其中%.4就是把计算出来的4位输出，我们看到c每次减少14（ c=c-14;），而c的初始大小为2800，因此一共就分了200段运算，并且每次输出4位，所以一共输出了800位。

由于使用整型数运算，因此有必要乘上一个系数，在这个程序中系数为1000，也就是说，公式如下：

1000*pi = 2K+ ¹/₃ * (2K+ ²/₅ * (2K+ ³/₇ * (2K+ ... (2K+ ^k/_2k+1 * (2K+ ... ))...)))

这里的2K表示2000，也就是f[2801]数组初始化以后的数据,a=10000,a/5=2000,所以下面的程序把f中的每个元素都赋值为2000：
for(i=0;if[i]=a/5;

你可能会觉得奇怪，为什么这里要把一个常数储存到数组中去，请继续往下看。

我们先来跟踪一下程序的运行：
while(c!=0) //假设这是第一次运行，c=2800，为迭代次数
     {
         d=0;
         g=c*2; //这里的g是用来做k/(2k+1)中的分子
         b=c; //这里的b是用来做k/(2k+1)中的分子
         while(1)
         while(1)
            {
                d=d+f[b]*a; //f中的所有的值都为2000，这里在计算时又把系数扩大了a=10000倍。这样做的目的稍候介绍，你可以看到输出的时候是d/a,所以这不影响计算
                g--;
                f[b]=d%g; //先不管这一行
                d=d/g; //第一次运行的g为2*2799+1，你可以看到g做了分母
                g--;
                b--;
                if(b==0) break;
                d=d*b; //这里的b为2799，可以看到b做了分子。
            }
         c=c-14;
         printf("%.4d",e+d/a);
         e=d%a;
    }

只需要粗略的看看上面的程序，我们就大概知道它的确是使用的那个迭代公式来计算Pi的了，不过不知道到现在为止你是否明白了f数组的用处。如果没有明白，请继续阅读。
d=d/g,这一行的目的是除以2k+1，我们知道之所以程序无法精确计算的原因就是这个除法。即使用浮点数，答案也是不够精确的，因此直接用来计算800位的Pi是不可能的。那么不精确的成分在哪里？很明显：就是那个余数d%g。程序用f数组把这个误差储存起来，在下次计算的时候使用。现在你也应该知道为什么d=d+f[b]*a;中间需要乘上a了吧。把分子扩大之后，才好把误差精确的算出来。
d如果不乘10000这个系数，则其值为2000，那么运行d=d/g；则是2000/(2*2799+1)，这种整数的除法答案为0，根本无法迭代下去了。
现在我们知道程序就是把余数储存起来，作为下次迭代的时候的参数，那么为什么这么做就可以使得下次迭代出来的结果为接下来的数字呢？
这实际上和我们在纸上作除法很类似：

　　　0142
　　/———
　7/　1
　　　10
　　　 7
——————
　　　 30
　　　 28
——————
　　　　20
　　　　14
——————
　　　　 6
.....

我们可以发现，在做除法的时候，我们通常把余数扩大之后再来计算，f中既然储存的是余数，而f[b]*a;则正好把这个余数扩大了a倍，然后如此循环下去，可以计算到任意精度。
这里要说明的是，事实上每次计算出来的d并不一定只有4位数，例如第一次计算的时候，d的值为31415926，输出4位时候，把低四位的值储存在e中间，e=d%a，也就是5926。

最后，这个c=c-14不太好理解。事实上没有这条语句，程序计算出来的仍然正确。只是因为如果迭代2800次，无论分数如何精确，最后Pi的精度只能够达到800。
你可以把程序改为如下形式尝试一下：

for(i=0;i<800;i++)
     {
     {
         d=0;
         g=c*2;
         b=c;
         while(1)
            {
                d=d+f[b]*a;
                g--;
                f[b]=d%g;
                d=d/g;
                g--;
                b--;
                if(b==0) break;
                d=d*b;
            }
       //c=c-14; //不要这句话。
         printf("%.4d",e+d/a);
         e=d%a;
    }

最后的答案仍然正确。
不过我们可以看到内循环的次数是c次，也就是说每次迭代计算c次。而每次计算后续位数的时候，迭代次数减少14，而不影响精度。为什么会这样，我没有研究。另外最后的e+d/a,和e=d/a的作用就由读者自己考虑吧。

leadbbs数据库维护常用语句

rumusanfen@gmail.com(libra) — Mon, 22 May 2006 03:15:29 +0000

Libra's Blog ( http://blog.librado.name/ ) : 最近要经常维护学校论坛数据库...比较懒...
粘点sql语句上来...

代码:

DELETE FROM [LeadBBS_SpecialUser] WHERE UserID=
UPDATE [checkpass] SET [check]='0' WHERE xuehao=''
SELECT * FROM [LeadBBS_SpecialUser] where UserID=

update语句后面的字段也要加"[]"，以前不知道...怎么弄都出错...真是疯了...上CSDN逛了一下才查到...好地方啊...以后要常去...

传说中引用网易像册图片的asp代码...

rumusanfen@gmail.com(libra) — Fri, 14 Apr 2006 10:37:47 +0000

Libra's Blog ( http://blog.librado.name/ ) : ...如果是给别人用...那么就把下面这段去掉

代码:

''盗链判断
Dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,len(server_v2))<>server_v2 Then
Response.Write "非法的盗链"
Response.End
End If

下面是完整代码:

代码:

<%
''盗链判断
Dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If Mid(server_v1,8,len(server_v2))<>server_v2 Then
Response.Write "非法的盗链"
Response.End
End If

Dim url, body, myCache

url = Request.QueryString("url")

Set myCache = new cache
myCache.name = "picindex"&url
If myCache.valid Then
body = myCache.value
Else
body = GetWebData(url)
myCache.add body,dateadd("d",1,now)
End If

If Err.Number = 0 Then
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite body
Response.Flush
Else
Wscript.Echo Err.Description
End if

''取得数据
Public Function GetWebData(ByVal strUrl)
Dim curlpath
curlpath = Mid(strUrl,1,Instr(8,strUrl,"/"))
Dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", strUrl, False,"",""
.setRequestHeader "Referer", curlpath
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
End Function

''cache类

class Cache
private obj ''cache内容
private expireTime ''过期时间
private expireTimeName ''过期时间application名
private cacheName ''cache内容application名
private path ''url

private sub class_initialize()
path=request.servervariables("url")
path=left(path,instrRev(path,"/"))
end sub

private sub class_terminate()
end sub

public property get blEmpty
''是否为空
if isempty(obj) then
blEmpty=true
else
blEmpty=false
end if
end property

public property get valid
''是否可用(过期)
if isempty(obj) or not isDate(expireTime) then
valid=false
elseif CDate(expireTime)valid=false
else
valid=true
end if
end property

public property let name(str)
''设置cache名
cacheName=str & path
obj=application(cacheName)
expireTimeName=str & "expires" & path
expireTime=application(expireTimeName)
end property

public property let expires(tm)
''重设置过期时间
expireTime=tm
application.lock
application(expireTimeName)=expireTime
application.unlock
end property

public sub add(var,expire)
''赋值
if isempty(var) or not isDate(expire) then
exit sub
end if
obj=var
expireTime=expire
application.lock
application(cacheName)=obj
application(expireTimeName)=expireTime
application.unlock
end sub

public property get value
''取值
if isempty(obj) or not isDate(expireTime) then
value=null
elseif CDate(expireTime)value=null
else
value=obj
end if
end property

public sub makeEmpty()
''释放application
application.lock
application(cacheName)=empty
application(expireTimeName)=empty
application.unlock
obj=empty
expireTime=empty
end sub

public function equal(var2)
''比较
if typename(obj)<>typename(var2) then
equal=false
elseif typename(obj)="Object" then
if obj is var2 then
equal=true
else
equal=false
end if
elseif typename(obj)="Variant()" then
if join(obj,"^")=join(var2,"^") then
equal=true
else
equal=false
end if
else
if obj=var2 then
equal=true
else
equal=false
end if
end if
end function
end class
%>

...难道又有人品问题

rumusanfen@gmail.com(libra) — Sat, 28 Jan 2006 07:09:29 +0000

Libra's Blog ( http://blog.librado.name/ ) : 放广告出问题...咨询中...尽快解决...

下列代码在bo-blog内引用出错...

开博日志

rumusanfen@gmail.com(libra) — Sat, 28 Jan 2006 05:52:50 +0000

Libra's Blog ( http://blog.librado.name/ ) : addon domains时...因操作不慎，发现一个CP的bug...
难道真的是人品问题？啊哈哈~~~

今天回家看外婆咯~就要过年了，这个就当自己送自己的礼物吧...
any way，还有自己爱自己！