http://www.accdb.net/ zh-cn PBlog2 v2.4 http://www.accdb.net/images/logos.gif http://www.accdb.net/ accdb.net 独特诠释 access 2007 的新格式 *.accdb http://www.accdb.net/default.asp?id=1602 access911@gmail.com(陈格) Fri,03 Sep 2010 12:29:57 +0800 http://www.accdb.net/default.asp?id=1602 2010-09-03 09:13 |  1939次阅读 |  来源：酷壳   【已有17条评论】发表评论

|  感谢陈秋歌的提供 |  收藏这篇资讯
David Veksler曾发表过一篇博文《Some lesser-known truths about programming》，列出了一些鲜为人知的编程事实，这些事实是什么呢？酷壳个人网站楼主陈皓对此文进行了翻译，全文如下：

我的程序员经历让我明白了一些关于软件开发的事情。下面是一些在编程中可能会让人感到诧异的事情：

1. 一个程序员用了大约只用了10%-20%的时间来编码，而且大多数程序员，无论他的水平如何，其平均每天只有10-12行的代码最终会进入最终的软件产品中。这是因为，优秀的程序员会花费90%的时间来思考、调查、研究最佳的设计。而糟糕的程序员则会花费90%的时间来调试代码，并随意地改动代码并尝试让代码工作起来。

“A great lathe operator commands several times the wage of an average lathe operator, but a great writer of software code is worth 10,000 times the price of an average software writer.” –Bill Gates

“一个优秀的车工其工资是一个普通车工的好几倍，但是一个优秀程序员写出来的代码比一个普通程序员要值钱一万倍。——比尔盖茨”

2. 一个好的程序员比一个普通的程序员多十倍的生产率。而一个优秀的程序员的生产率则比普通程序员多20-100倍。这并不是夸张（自从上世纪60年代的研究一直表明这是一个事实）。一个糟糕的程序员并不只是没有产出的——他们并不仅是完成不不工作，而且还会制造出大量的让别人头痛并要去解决的麻烦。

3. 优秀的程序员花少量的时间写代码——那些代码都会出现在最终的产品中。那些花大量的时间写代码的程序员其实是很懒惰、很无知，或是很自大的，以至于不能使用已经存在了的解决方案来解决已有的问题。优秀的程序员精通于对通用模式的识别和重用。好的程序员并不害怕持续地重构/重写自己的代码，直到达到最理想的方案。糟糕的程序员的代码基本上都缺少概念一致性，代码冗长，缺少层次和模式，所以，也就很难被重构。所以，重写他们的代码要比重构他们的代码要容易得多。

4. 软件和其它一切事物一样，都遵循着一致性规则。持续得更改只会让软件变成一潭烂泥，其破坏了原始设计的概念一致性。软件产品变成泥沼是不可避免的事情，但是因为程序员不考虑软件概念一致性而导致软件产品更为快速地成为泥沼，这种速度快得可能会在软件产品还没有完成时，软件产品已经变得没有价值。设计概念一致性的失败通常都会导致软件项目的失败（而第二大导致软件项目失败的原因则是发布的软件并不是用户想要的）。软件变成烂泥的速度正在呈指数级下降，太多的项目在被完结前都面临着激增的时间和成本。

5. 一个 2004 研究报告 指出，大多数的软件项目 (51%) 都会在关键环节出问题。而15%的项目则是完全失败，当然，这比1994年有了很大的进步，当时完全失败的项目是31%。

6. 虽然，几乎所有的软件产品都有些开发团队，但其并不是民主的。通常，只有一个人负责设计，而剩下的人去实现细节。

7. 编程是一个辛苦的工作。其实是一个剧烈的脑力劳动。好的程序员24×7地在思考他们的工作，他们一般都在洗澡和梦中编写软件中最重要的代码。因为最重要的工作只能在键盘之外完成，软件项目不可能因为加班或是加人来加快进度。

原文链接：http://dotmac.rationalmind.net/2010/08/some-lesser-known-truths-about-programming/

译文链接：http://coolshell.cn/articles/2909.html#more-2909
]]> http://www.accdb.net/default.asp?id=1601 access911@gmail.com(陈格) Thu,02 Sep 2010 18:42:21 +0800 http://www.accdb.net/default.asp?id=1601 MZ也通用
屏蔽LIVE方法
1.将360的网络先设置设为自动，然后再手动，主要DNS、次要DNS不改动的话，应该是0.0.0.0). IP地址设一个和电脑不冲突的即可，比如，如果电脑是192.168.0.150，360设为192.168.0.151即可，子网遮盖设为255.255.255.0。
2.在路由器里利用MAC过滤功能将360的MAC地址封掉，这个对路由器设置软件比较熟悉的可以用，也很简单。
屏蔽MAC地址详细教程：IE登入路由器（IE输入192.168.1.1或者192.168.0.1，提示用户名和密码都是admin，默认的话），安全设置-MAC地址过滤，添加上360的MAC地址即可，然后使其生效，他就被屏蔽了
记得在安全设置里的防火墙设置里开启MAC地址过滤功能
另外，安全起见不要使用live的用户档，而是离线用户档。不要去测试live线路。总之与live沾边的一概别碰。

KAI使用教程
小虚编写
KAI程序下载
http://www.teamxlink.co.uk/
download
最好选择7.0 上面最新的7.4是试用版，反正我用的问题多多，个人推荐下载老版
注册账号  进入KAI后，右下角应该能看到一个公文包样的图标，那个就是注册，需要邮箱激活
这里开始重点，对于群里很多朋友KAI自动关闭的情况说下
一般情况是KAI设置里自动关闭选项没有取消掉，还有种可能就是IP端的30000端口没有打开
开启30000端口好像对MZ也有帮助
开启30000端口教程，进入路由设置，一般都是用ie登入192.168.1.1或者192.168.0.1
然后会弹出一个要求你填写用户名和密码的窗口，默认的是admin 密码也是admin
转发规则里的虚拟服务器 后面填写你电脑的IP然后前面30000端口启用后就可以了
DMZ主机设定 这个也在路由里顺便提一下吧，DMZ主机后应该有利于PING的提高，这个是直接把你的PC直接暴露于外网
理论上是应该可以提高PING
KAI的configuration（设置）
Close engine after 选never
Close Engine when ui closes  前面的钩钩也去掉
然后Network Adapter里选择电脑的网卡
KAI PORT和KAI DEEP PORT  都填30000
MZ下载地址:www.mengzone.com   国内的傻瓜版联机软件，这个简单些，不过好像PING有点不稳
群里很多北京的哥们，只要和主机30PING以下，你也可以加入，没有LIVE，我们5元党依然活得精彩
我是安徽的，安徽离北京很远吧，我跟他们很多人能联起来，其实不必要同城，看缘分（PING值），跟主机30PING以下就可以，我们最多晚上COD6有过8V8哦
群号：95595073
自动掉线例子1：路由开了30000端口，KAI软件设置里没用30000端口
                      KAI的 configuration里 KAI PORT和KAI DEEP PORT都填30000即可解决]]> http://www.accdb.net/default.asp?id=1600 access911@gmail.com(陈格) Thu,02 Sep 2010 14:25:14 +0800 http://www.accdb.net/default.asp?id=1600
任我行 ERP 经常会出现无法登录的现象，是由于您本机的 COOKIES 设置造成，请按以下步骤操作

1、关闭所有 IE 窗口

2、重新打开一个空白的 IE 窗口

3、IE 窗口中 菜单 -> 工具 -> Internet 选项 -> 删除cookies







4、再次关闭所有的IE窗口，确定windows任务栏中没有任何 IE 窗口


5、再次打开 ERP V3 的登录页面，重新登录即可。
]]> http://www.accdb.net/default.asp?id=1599 access911@gmail.com(陈格) Wed,01 Sep 2010 18:46:10 +0800 http://www.accdb.net/default.asp?id=1599
Function CreateTestTable1()
    Dim strSql As String
On Error Resume Next
    With CurrentProject.Connection
        .Execute "drop table 表1"
        .Execute "drop table 表2"
        
        strSql = "create table 表1 (编号 AUTOINCREMENT(1,1),栏目 varchar(50),点击率 long)"
        .Execute strSql
        .Execute "insert into 表1(栏目,点击率) values('公告栏',25000)"
        .Execute "insert into 表1(栏目,点击率) values('新闻栏',56)"
        .Execute "insert into 表1(栏目,点击率) values('产品栏',556)"
        .Execute "insert into 表1(栏目,点击率) values('广告栏',698)"
        strSql = "create table 表2 (编号 AUTOINCREMENT(1,1),栏目 varchar(50),点击率 long)"
        .Execute strSql
        .Execute "insert into 表2(栏目,点击率) values('公告栏',0)"
        .Execute "insert into 表2(栏目,点击率) values('新闻栏',0)"
        .Execute "insert into 表2(栏目,点击率) values('产品栏',0)"
        .Execute "insert into 表2(栏目,点击率) values('宣传栏',0)"
    End With
    
End Function
Function RunTest1()
    Dim strSql As String
    With CurrentProject.Connection
        .Execute "update 表2 set 点击率=0"
        strSql = "update 表2 set 点击率=dlookup('点击率','表1','栏目=''' & 表2.栏目 & '''')"
        .Execute strSql
    End With
End Function
Function RunTest2()
    Dim strSql As String
    With CurrentProject.Connection
        .Execute "update 表2 set 点击率=0"
        '注意，与表2 与表1的关系必须是一对一，如果针对表2的某一条记录有多条表1的记录符
        '合条件，则以下语句会随机的取一条符合条件的记录更新上去，可能是按输入的顺序取，也可能不是。
        strSql = "update 表2 inner join 表1 on 表1.栏目=表2.栏目 set 表2.点击率=表1.点击率"
        .Execute strSql
    End With
End Function
Function RunTest3()
    Dim strSql As String
    With CurrentProject.Connection
        .Execute "update 表2 set 点击率=0"
        '注意，与表2 与表1的关系必须是一对一，如果针对表2的某一条记录有多条表1的记录符
        '合条件，则以下语句会随机的取一条符合条件的记录更新上去，可能是按输入的顺序取，也可能不是。
        strSql = "update 表2,表1 set 表2.点击率=表1.点击率 , 表2.栏目=表1.栏目 where 表1.栏目 = 表2.栏目"
        .Execute strSql
    End With
End Function

Function CreateTestTable2()
    Dim strSql As String
On Error Resume Next
    With CurrentProject.Connection
        .Execute "drop table 表1"
        .Execute "drop table 表2"
        
        strSql = "create table 表1 (编号 AUTOINCREMENT(1,1),栏目 varchar(50),点击率 long)"
        .Execute strSql
        .Execute "insert into 表1(栏目,点击率) values('公告栏',25000)"
        .Execute "insert into 表1(栏目,点击率) values('新闻栏',56)"
        '注意！这次生成的栏目数据重复了
        .Execute "insert into 表1(栏目,点击率) values('产品栏',5156)"
        .Execute "insert into 表1(栏目,点击率) values('产品栏',556)"
        .Execute "insert into 表1(栏目,点击率) values('广告栏',698)"
        strSql = "create table 表2 (编号 AUTOINCREMENT(1,1),栏目 varchar(50),点击率 long)"
        .Execute strSql
        .Execute "insert into 表2(栏目,点击率) values('公告栏',0)"
        .Execute "insert into 表2(栏目,点击率) values('新闻栏',0)"
        .Execute "insert into 表2(栏目,点击率) values('产品栏',0)"
        .Execute "insert into 表2(栏目,点击率) values('宣传栏',0)"
    End With
    
End Function

]]> http://www.accdb.net/default.asp?id=1598 access911@gmail.com(陈格) Wed,01 Sep 2010 07:52:17 +0800 http://www.accdb.net/default.asp?id=1598
关于XBOX360 IX固件问题的浅解析
来源：A9VG　作者：liruisheng　

1、什么是IX固件？
全称是I-Xtreme firmware。
简单来说，就是c4vea制作的这个IX固件就是要求刻录盘和原装光盘一模一样。也就是要求光盘里面含有SS/PFI/DMI等信息，做到与原装光盘一样，让微软认为你在使用原装正版来进行游戏。

2、什么压盘？什么是刻录盘？
压盘简单理解就是机器批量压出来的光盘。这些光盘做出来之后就不会再去修改的了……所以WINDOWS正版安装完之后需要立刻更新……刻录盘就是可烧录的光盘，你可以自己修改文件再刻录进去，所以有些老游戏刻录盘能正常运行IX固件上面就是这个道理（因为刻录盘已经打好了IX补丁）。

3、为什么IX固件不可以运行老游戏压盘（山脊赛车6或僵尸围城等几款老游戏）呢？
参考第一条就知道了。因为以前的技术还没完全到位，并不知道原装正版还有一些验证安全信息在里面，所以只是简单的采集一个ISO出来就发布了……而且作为制作压盘的厂家来说，他们也只会复制，所以才出现了老游戏压盘不能运行IX固件上面。当然啦，现在那些老游戏压盘已经买不到的了，所以也只能自己刻录。

4、为什么IX固件能运行老游戏原装正版呢？
不能运行正版游戏的XBOX360还有啥用处呢？这可是最基本的运行条件。

5、什么是IX安全信息补丁呢？
参考第三条就知道了，由一些好事者自行购买正版，并通过一些软件采集出里面的安全信息代码，并记录成文件。这些安全信息代码就是要让微软知道你在运行正版来达到最大化保护使用者的安全……呵呵

6、什么要为ISO添加IX安全信息补丁呢？
参考第三条就知道了，因为以前技术所制作出来的ISO并没有含有IX安全信息。所以有些好事者就自己采集出安全信息出来，并发布到网络上……这样下载者就可以通过一些软件*（比如XDVDMulleter）自己把这些安全信息加入到ISO里面并刻录。这样就有一张完整安全信息的游戏盘了。

7、什么是WAVE3呢？
之前一段时间，有个人发现了微软开始使用了新版光盘加密技术了，产生出了新轨WAVE3，其实这个轨道里面就是含有了微软新版操作系统NXE，其实微软的主意是要为了一些不能LIVE的游戏机也能升级到最新的操作系统，其实这个行为并没有什么问题，而且是一个无伤大雅的行为，还是一个很好的行为啊……只可惜……因为IX固件必须要求光盘安全信息一定完整，恰恰就是要求过于严格，轨道WAVE3的这些信息都不能识别出来，所以导致了WACE3的新版游戏无法运行在IX1.50上*（因为IX1.50固件认为这个光盘是一个含有不正常的安全信息游戏盘）。

8、什么是IX1.50兼容补丁呢？
可能是有一些人很懒惰或者是出于技术炫耀吧。就制作出了MOD DISK IX1.50（汗，我都不知道有没有拼错……），主旨是修改了新游戏的WAVE3轨道内容来达到让IX1.50运行起来。事实证明，这个MOD程序是可行的，真的让新游戏运行在了IX1.50之上。

9、IX1.50兼容补丁好用吗？安全吗？
好用？其实你真的不想刷机的话，就慢慢修改新游戏的WAVE3。的确能延缓你不想刷机的行为，只可惜日后全部游戏都是采取这种规格的了，除非你很喜欢这样……安全？其实站在修改角度来说，修改ISO的行为并不安全，而且根本不知道修改是否正常，如果发现有些新游戏修改之后出现了BUG或者无法运行了，就有可能是修改的毛病了……

10、IX安全信息和IX1.50兼容补丁是一样的吗？
呵呵，可能是最近大伙给解析的时候太过简单化了，就直接说IX补丁就算了……其实两者是不一样的，一个是完整的安全信息，一个是修改的程序……

11、那我该刷什么版本呢？
我个人愚见：能刷最新版本的都刷最新新版，跟随IX Team来刷机……谁叫我们是5元党呢？

12、我不想JS赚钱啊，我可以不刷机吗？或者是刷X固件？
这个……我只能说：请支持正版，正版会让你省去很多烦恼!
可能是X固件的开发者很懒吧，到目前还没有建兴光驱的X固件……除非你喜欢用一个二手的光驱*（到时候别说XBOX360读盘怎么那么差喔……。）

13、听说IX1.60能兼容老游戏压盘……这样我就可以玩老游戏了？
其实我不知道谁说IX1.60能玩没有安全信息的光盘，我看了一点xbsc上面的说明，也没有这样说过……而且IX一开始就提出安全信息这个概念，所以c4vea是不会放弃安全信息这个行为的……所以就别指望了，还是自己为老游戏加补丁刻录吧……（而且你还能买到老游戏的压盘吗？？？买不到的了……）

14、刷X固件的也不能玩新游戏吗？
X固件只要求最基本的光盘就可以了，也就是说X固件是不会去检查光盘的任何安全信息的。
所以才会有X固件通杀全部游戏的说法……事实上也是这样……只不过X固件并不安全，上LIVE很容易给微软知道你在玩刻录盘，不过你不上LIVE就是另外一回事了……而且建兴光驱没有X固件，只有三星，BENQ和日立才有X固件，所以只有换光驱才可以刷X固件……而且这个也只是适合那些只想玩游戏而不会想其他的人而已。

15、我是刻录党的，所以使用IX1.50兼容补丁并没有问题，真的吗？
目前所知道的信息中，IX1.60提出不给予运行使用了IX1.50兼容补丁的新游戏刻录盘，因为这些光盘不安全。如果日后的IX1.60真的是这样的话，你所刻录的游戏盘都是一堆废品了……
请爱护环境吧!塑料是难以分解的……。

16、请问一下，现在打了补丁了老游戏，是不是以后IX1.60出了，也一样能玩呢？我现在的主机是刷的ix1。51，是不是现在能玩的盘，刷了1。60之后还能玩呢？（目前手头上的盘非自己刻录，而是买市面上的d版光盘）？
老游戏打上安全补丁之后，是一个完整信息的游戏光盘，所以IX固件肯定会支持的，所以可以放心玩……
其实游戏光盘的安全信息完全正常的话，最新版本的IX固件都可以向下兼容运行的……所以刷了IX1。51或IX1.60都可以玩最新加密的游戏光盘（而IX1.60相对IX1。51来说，也是添加一点新功能而已……）

17、IX固件是不是100％防BAN呢？
其实理论上来说，含有安全信息的光盘是与原装正版是一模一样的，微软在LIVE过程中有可能是检查不到的。但到目前为止，还没有人知道微软是凭什么信息来进行BAN机行为，有可能是固件的信息改动，有可能是游戏数量，有可能是游戏时间等等……所以，能玩就玩……

18、自己升IX固件都要什么些硬件跟拆机工具呢？
www.google.com或者http://bbs.a9vg.com/read.php?tid=1060143&fpage=1

19、像我等被ban之徒就直接用X固件即可，省心了，是吗？
理论上是可以直接用X固件就可以了……完全不用考虑日后什么加密……只不过目前还没有建兴光驱的X固件，如果你喜欢用二手光驱的话……喜欢囖……

20、光驱和光盘都要打补丁？这两者之间有什么对应关系？
正确来说，光驱打的补丁是IX固件，这样我们才可以玩散装光盘游戏……而光盘的补丁是一种安全信息文件，目的就是让散装光盘看起来和正版一模一样……其实两者严格来说，有关联关系，就是IX固件会跟随着微软的安全信息的改动而更新的……所以，微软有光盘或光驱更新的动作，IX固件就会更新……也就是说，微软没有更新动作的话，IX固件就不会再更新的了……不过，微软会原谅我们吗？不知道了……

21、为何出现IX1.60提出不给予运行使用了IX1.50兼容补丁的新游戏刻录盘？
Mr。h：因为打IX1.50兼容补丁是旁门左道， 跟 IX 固件一向的追求安全是背道而驰。

22、单65机器刷的是1。50固件，老的LG光驱是X固件，我本地又没有能刷机的地方，所以两个光驱能直接互换吗？
先清楚一件事情……XBOX360有KEY这么一回事情……一个KEY对应着主机与光驱……两者相同才可以使用……如果你想换上旧光驱的话，也只能把新光驱的KEY刷入到旧光驱上面再替换才可以用……所以还是需要刷机这一步骤的……没地方刷机的话，就自己买套机来刷机……好好练练DIY……

23、到底如何区别游戏盘是什么加密格式的呢？
很简单，在<HAWX鹰击长空>就开始了WACE3新加密了，也就是说HAWX之后的游戏都基本上是新加密的了，已经不需要再考虑什么游戏是什么加密了（除了几张漏网之鱼，比如是生化危机5，有可能这个游戏是在新加密之前就已经制作完成的了……呵呵）

24、IX1。6出来之后，我以前打好IX安全信息补丁的游戏都可以正常运行吗？
参考第6条……完整打好IX安全信息的盘都是信息完整的游戏盘……IX肯定会运行的了……任何最新IX版本都可以运行之前的所识别出来的游戏光盘……不存在兼容性问题……IX拥有良好的向下兼容性……
屎波王 发表于 2009-5-29 03:57

有点复杂
kakadaisy 发表于 2009-5-29 16:54

比较复杂:L


页: [1] 查看完整版本: 关于XBOX360 IX固件问题的浅解析

Powered by 实况天下 Archiver 6.1.0  © 2001-2007 Comsenz Inc. 插件由手机迷设计

]]> http://www.accdb.net/default.asp?id=1597 access911@gmail.com(陈格) Mon,30 Aug 2010 22:43:54 +0800 http://www.accdb.net/default.asp?id=1597 关于编码的问题大家应该很了解了.但是在使用的使用不一定是按着我们自己的要求来实现编码.
使用有时需要转换一下.
extjs 是富客户端的UI库,在与服务器通讯的时候使用的是UTF-8的编码.最近写的网页代码使用的是GB2312的.使用要专业一下编码.负责在数据库里存放汉字的时候出现乱码.

extjs ajaxUTF-8编码转换
extjs默认使用UTF-8的编码,在服务器端我们经常使用GB2312之类编码.
在网上找了很多函数,经过测试修改.
实现了在服务器端编extjs ajaxUTF-8编码到GB2312编码的转变.

以下是用到的函数:
Function UTF2GB(UTFStr)
Dim Dig,GBStr
For Dig=1 to Len(UTFStr)
If mid(UTFStr,Dig,1)="%" Then
If len(UTFStr) >= Dig+8 Then
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
Dig=Dig+8
Else
GBStr=GBStr & Mid(UTFStr,Dig,1)
End If
Else
GBStr=GBStr & Mid(UTFStr,Dig,1)
End If
Next
UTF2GB=GBStr
End Function

Function URLEncoding(vstrIn)
Dim strReturn,i,innerCode,ThisChr,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 ConvChinese(x)
Dim A,i,j,DigS,Unicode
A = Split(Mid(x, 2), "%")
i = 0
j = 0

For i = 0 To UBound(A)
A(i) = c16to2(A(i))
Next

For i = 0 To UBound(A) - 1
DigS = InStr(A(i), "0")
Unicode = ""
For j = 1 To DigS - 1
If j = 1 Then
A(i) = Right(A(i), Len(A(i)) - DigS)
Unicode = Unicode & A(i)
Else
i = i + 1
A(i) = Right(A(i), Len(A(i)) - 2)
Unicode = Unicode & A(i)
End If
Next

If Len(c2to16(Unicode)) = 4 Then
ConvChinese = ConvChinese & ChrW(Int("&H" & c2to16(Unicode)))
Else
ConvChinese = ConvChinese & Chr(Int("&H" & c2to16(Unicode)))
End If
Next
End Function

Function c2to16(x)
Dim i
i = 1
For i = 1 To Len(x) Step 4
c2to16 = c2to16 & Hex(c2to10(Mid(x, i, 4)))
Next
End Function

Function c2to10(x)
Dim i
c2to10 = 0
If x = "0" Then Exit Function
i = 0
For i = 0 To Len(x) - 1
If Mid(x, Len(x) - i, 1) = "1" Then c2to10 = c2to10 + 2 ^ (i)
Next
End Function

Function c16to2(x)
Dim i,tempstr
i = 0
For i = 1 To Len(Trim(x))
tempstr = c10to2(CInt(Int("&h" & Mid(x, i, 1))))
Do While Len(tempstr) < 4
tempstr = "0" & tempstr
Loop
c16to2 = c16to2 & tempstr
Next
End Function

Function c10to2(x)
Dim mysign,DigS,tempnum,i
mysign = Sgn(x)
x = Abs(x)
DigS = 1
Do
If x < 2 ^ DigS Then
Exit Do
Else
DigS = DigS + 1
End If
Loop
tempnum = x

i = 0
For i = DigS To 1 Step -1
If tempnum >= 2 ^ (i - 1) Then
tempnum = tempnum - 2 ^ (i - 1)
c10to2 = c10to2 & "1"
Else
c10to2 = c10to2 & "0"
End If
Next
If mysign = -1 Then c10to2 = "-" & c10to2
End Function


具体使用方法是:
Name=UTF2GB(URLEncodingTrim(Request.QueryString("name"))))
=========================================================================================
一下为各种编码的测试代码.
asp程序:
<%
    Response.Addheader "Content-Type","text/html; charset=gb2312f"
     Response.Write Server.URLEncode("测试用户")
     Response.Write "<p>"

     Dim s
     s="%E6%B5%8B%E8%AF%95%E7%94%A8%E6%88%B7"
     Dim d
     d="测试用户"
     'Response.Write c2Toutf(d)
     'Response.Write ConvChinese(s)

Function c2Toutf(c2Str)
Dim i, temp
    For i = 1 To LenB(c2Str)
        temp = temp & CStr(MidB(c2Str, i, 1)) & "-"
    Next
c2Toutf = temp
End Function

Function ConvChinese(x)
Dim A, i, j, DigS, Unicode
A = Split(Mid(x, 2), "%")
i = 0
j = 0

For i = 0 To UBound(A)
A(i) = c16to2(A(i))
Next

For i = 0 To UBound(A) - 1
DigS = InStr(A(i), "0")
Unicode = ""
For j = 1 To DigS - 1
If j = 1 Then
A(i) = Right(A(i), Len(A(i)) - DigS)
Unicode = Unicode & A(i)
Else
i = i + 1
A(i) = Right(A(i), Len(A(i)) - 2)
Unicode = Unicode & A(i)
End If
Next

If Len(c2to16(Unicode)) = 4 Then
ConvChinese = ConvChinese & ChrW(Int("&H" & c2to16(Unicode)))
Else
ConvChinese = ConvChinese & Chr(Int("&H" & c2to16(Unicode)))
End If
Next
End Function

Function c2to16(x)
Dim i
i = 1
For i = 1 To Len(x) Step 4
c2to16 = c2to16 & Hex(c2to10(Mid(x, i, 4)))
Next
End Function

Function c2to10(x)
Dim i
c2to10 = 0
If x = "0" Then Exit Function
i = 0
For i = 0 To Len(x) - 1
If Mid(x, Len(x) - i, 1) = "1" Then c2to10 = c2to10 + 2 ^ (i)
Next
End Function

Function c16to2(x)
Dim i, tempstr
i = 0
For i = 1 To Len(Trim(x))
tempstr = c10to2(CInt(Int("&h" & Mid(x, i, 1))))
Do While Len(tempstr) < 4
tempstr = "0" & tempstr
Loop
c16to2 = c16to2 & tempstr
Next
End Function

Function c10to2(x)
Dim i, DigS, mysign, tempnum
mysign = Sgn(x)
x = Abs(x)
DigS = 1
Do
If x < 2 ^ DigS Then
Exit Do
Else
DigS = DigS + 1
End If
Loop
tempnum = x

i = 0
For i = DigS To 1 Step -1
If tempnum >= 2 ^ (i - 1) Then
tempnum = tempnum - 2 ^ (i - 1)

c10to2 = c10to2 & "1"
Else
c10to2 = c10to2 & "0"
End If
Next
If mysign = -1 Then c10to2 = "-" & c10to2
End Function
%>


本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/caozhenyu/archive/2008/10/07/3029847.aspx]]> http://www.accdb.net/default.asp?id=1596 access911@gmail.com(陈格) Mon,30 Aug 2010 22:32:11 +0800 http://www.accdb.net/default.asp?id=1596 因为ExtJS内部用的是UTF-8，所以与你项目用的GB2312或GBK编码冲突。我们要解决这个问题首先要保证我们的前后台编码一致，若是GB2312都用GB2312。

大体上有三个方面会出现中文乱码问题。
1、grid数据列表展示打开时会报错，可能在tomcat下不会报错，我遇到的情况是在websphere下报错了，解决方法是，后台输出前设定输出编码，java中是response.setCharacterEncoding("GB2312");这样就可以解决了。
2、store带参数加载数据，因为ext中的ajax用的是UTF-8，所以直接传的话会出现乱码，我们可以用Extjs的encodeURIComponent先把中文编码，然后在后台用java的java.net.URLDecoder再解码就可以解决，示例如下：
stroe加载：
store.baseParams={
euser:encodeURIComponent(euser)
batName:encodeURIComponent(batName)   //编码
};
store.load（）;
后台解码：
if(!Util.isEmpty(euser))
euser=URLDecoder.decode(euser,"UTF-8");   //解码转中文
if(!Util.isEmpty(batName))
batName=URLDecoder.decode(batName,"UTF-8"); //解码转中文
3、form表单提交，问题同上，解决方法也一样，我们要注意的就是给form表单中的中文何是编码，就是在form表单提交之前，示例如下：
form提交：
submit.on('click',function() {
var batName=ECardForm.getForm().findField('batName').getValue();
var userName=ECardForm.getForm().findField('userName').getValue();
if(!Ext.isEmpty(batName))
ECardForm.getForm().findField('batName').setValue(encodeURIComponent(batName));
if(!Ext.isEmpty(userName))
ECardForm.getForm().findField('userName').setValue(encodeURIComponent(userName))
ECardForm.getForm().submit({
success : function(form, action) {
Ext.Msg.alert('信息', action.result.msg);
},
failure : function() {
Ext.Msg.alert('错误', '系统出错，修改失败!');
}
});
});
后台解码同问题2.
这样就可以解决extjs的中文乱码问题了
]]> http://www.accdb.net/default.asp?id=1595 access911@gmail.com(陈格) Mon,30 Aug 2010 22:30:47 +0800 http://www.accdb.net/default.asp?id=1595 作者：vkvi 来源：千一网络（原创） 时间：2009-8-27 CodePage

ASP 中：
<%@ codepage=936%>简体中文
<%@ codepage=950%>繁体中文
<%@ codepage=65001%>UTF-8

ASP.NET 中示例：
<%@ Page CodePage=936 %>
CodePage 告诉 IIS 按什么编码来读取 QueryString，按什么编码转换数据库中的内容……

Response.ContentEncoding

获取或设置输出流的 HTTP 字符集。

Response.Charset

获取或设置输出流的 HTTP 字符集。微软对 ContentEncoding、Charset 的解释是一字不差，其实可以这样理解：ContentEncoding 是标识这个内容是什么编码的，而 Charset 是告诉客户端怎么显示的。

我们可以做一个实验来理解：

Response.ContentEncoding = System.Text.Encoding.GetEncoding("gb2312");
Response.Charset = "utf-8";
Response.Write("千一网络");
然后用浏览器打开网页，可以发现是乱码，可是用记事本查看源文件，又发现不是乱码。这就说明了：ContentEncoding 是管字节流到文本的，而 Charset 是管在浏览器中显示的。再继续观察：

Response.ContentEncoding = System.Text.Encoding.GetEncoding("gb2312");
通过 Fidller，发现 HTTP 头中是：text/html; charset=gb2312。说明没有指定 Charset 时，就用 ContentEncoding 的 Charset 作为 charset。

Response.ContentEncoding = System.Text.Encoding.GetEncoding("gb2312");
Response.Charset = "123-8";
HTTP 头中是：text/html; charset=123-8。网页显示正常，说明如果 charset 错误，仍然以 ContentEncoding 的 Charset 作为 charset。

Response.ContentEncoding = System.Text.Encoding.GetEncoding("gb2312");
Response.Charset = "";
HTTP 头中是：text/html;。HTTP 头中没有 charset，网页显示正常，说明 HTTP 头中没有 charset，仍然以 ContentEncoding 的 Charset 作为 charset。

Response.ContentType

获取或设置输出流中 HTTP 的 MIME 类型，比如：text/xml、text/html、application/ms-word。浏览器根据不同的内容启用不同的引擎，比如 IE6 及以上版本中就会自动将 XML 做成树状显示。

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />

这是 HTML 中的标签，不能用在 XML、JS 等文件中，它是告诉浏览器网页的 MIME、字符集。当前面的相关内容没有指定时，浏览器通过此来判断。
]]> http://www.accdb.net/default.asp?id=1594 access911@gmail.com(陈格) Mon,30 Aug 2010 22:29:29 +0800 http://www.accdb.net/default.asp?id=1594 作者：vkvi 来源：千一网络（原创） 时间：2009-10-20 URLEncode、URLDecode－ASP ANSI 版本
URLEncode、URLDecode－ASP UTF-8 版本
URLEncode、URLDecode－ASP.NET ANSI 版本
URLEncode、URLDecode－ASP.NET UTF-8 版本
URLEncode、URLDecode－JavaScript ANSI 版本
URLEncode、URLDecode－JavaScript UTF-8 版本

--------------------------------------------------------------------------------

Server.UrlEncode("千一网络")
HttpUtility.UrlEncode("千一网络")
这两段代码均是 UTF-8 输出的，不受文件存储编码的影响。

HttpUtility 名称空间：System.Web，程序集：System.Web（在 system.web.dll 中）。

URLDecode 类似。
]]> http://www.accdb.net/default.asp?id=1593 access911@gmail.com(陈格) Mon,30 Aug 2010 22:28:50 +0800 http://www.accdb.net/default.asp?id=1593 作者：vkvi 来源：千一网络（原创） 时间：2009-10-20 URLEncode、URLDecode－ASP ANSI 版本
URLEncode、URLDecode－ASP UTF-8 版本
URLEncode、URLDecode－ASP.NET ANSI 版本
URLEncode、URLDecode－ASP.NET UTF-8 版本
URLEncode、URLDecode－JavaScript ANSI 版本
URLEncode、URLDecode－JavaScript UTF-8 版本

--------------------------------------------------------------------------------

HttpUtility.UrlEncode("千一网络", System.Text.Encoding.Default)
System.Text.Encoding.Default 的作用是获取与系统区域设置中的默认 ANSI 代码页相关联的编码。

HttpUtility 名称空间：System.Web，程序集：System.Web（在 system.web.dll 中）。

URLDecode 类似。
]]>