艾恩ASP学习BLOG文章列表

SEO-新站关键词的几个布局技巧

zhanghuiguoanlige@126.com — 2011-6-17 18:04:33

一个新站关键词的合理布局是十分重要的，特别是对于一个新手站长来说，对网站的关键词布局一直是一件头疼的事情，那么我们应该如何对一个新站进行关键词布局呢？下面我们就一起来探讨一下新站的关键词的布局。

在我们进行关键词布局之前应该了解金字塔原理，金字塔原理是由一个总的核心，在由这个核心像下面依次递增。那么我们对关键词进行进行布局的时候也应该遵循这个原理，就是把最重要的关键词做为网站的核心关键词，然后把次一点的关键词或者竞争小一点的关键词作为目录也的关键词，最后把竞争极小或者长尾关键词作为内容页的关键词来进行优化。这样就形成一个最简单的金字塔远离。

一，网站核心关键词布局
一般对于网站的核心关键词（也就是网站的主关键词）设置2-4个即可，如果核心关键词设置过多不利其他关键词的权重集中，也就不利于排名。并且我们在选择网站的主关键词的时候应该考虑到网站的内容建设，或者网站的内容根本就是围绕这些关键词而进行开展。而在这之前我们应该都关键词进行一个大致分析，关键词的分析可以使用百度指数和一些关键词分析工具等。这样可以大致了解关键词热度以及竞争度。

二，栏目页（目录页）的关键词布局
首先网站的各个栏目的建立是根据网站的内容或者针对关键词进行用户需求分析之后而展开的。而不是盲目的，随便的建立的，一定要考虑的用户的需求。那么我们知道，一个网站的权重基本都集中的网站首页，网站的栏目页面是网站权重集中的第二个地方。

栏目页的关键词一定要根据内容和用户需求而展开，要与栏目的内容具有充分的相关性，并且栏目页的关键词的热度应该小于首页关键词的热度，这样才有利于竞争和排名。栏目页的关键词一般布局2-4个即可。

三、文章页或者产品页关键词布局
栏目页或者产品页应该重复去挖掘网站的长尾关键词或者竞争相对较小的关键词来进行布局使用。那么我们就可以使用百度指数或者关键词挖掘工具等，大量的挖掘与网站相关的长尾关键词，并针对这些长尾关键词进行内容建设。并且在布局这些长尾关键词的时候不仅仅要与网站具有相关性，还应该与各个栏目具有充分的相关性。这样才有利于文章页（产品页）关键词排名和栏目页关键词排名。而且这样设置保证了文章页（产品页）的关键词与栏目也和首页的关键词环环相扣，与主题具有充分的相关性，还保证了长尾关键词的合理使用。

总结：在关键词的布局过程中应该保持一个清晰的思维或者计划，不能胡乱设置，文章页，栏目页和主题的关键词保持环环相扣，并具有充分的相关性，这样有利于整站权重的分配，并且有利于关键词在搜索引擎中的排名。

网站SEO优化要把握的核心元素

zhanghuiguoanlige@126.com — 2011-6-17 16:54:26

很多站长都在给自己的网站做SEO，都想竭尽全力的提升网站关键词的排名，但是这个过程是因不同的行业其困难程度是不同的，所以一些站长做起了以长尾词为关键词的网站，这类词的转化率较高，同时也较多人搜索，因此也不失为一种好办法。其实不论做什么类型的关键词，做SEO都必须把握其中几个最主要的元素，这些元素看似很简单，但是在实际中我们可能会疏忽或者忘记，下边一一和大家介绍。

文字与图片
文字多图片少并不是必须的，但是考虑到SEO的话，这个几乎是最好的选择。搜索引擎爬行的是文字而不是图片，用户搜索的词也是文字而不是图片，因此图片只是作为一个点缀（有些网站除外），有些网站在做站过程中不知不觉的就采用了大量的图片，这样其实并不友好搜索引擎，记得要把握这个大原则，尽量少用图片。

处理速度
Google已经明确表示了网站的打开速度会影响关键词排名，对于百度而言，我相信如果蜘蛛去爬行的话还要等半天的时间，那么肯定不会给予过高的权重。打开速度快另外一个好处就是对于用户，我们辛辛苦苦做推广，拉来一个客户的成本是非常高的，结果因为网速问题而把客户流失掉将是非常可惜的。

标签运用
标签的作用不容小觑，一个合理的标签对于搜索引擎而言就相当于一句温暖人心的话一样令人印象深刻，所以网站在各个位置使用标签产生的作用是非常大的，比如首页可以加粗，比如文章标题一定要使用H标签，比如一些长尾词记的使用斜体或者加深颜色，这样都可以一定程度上提醒用户和搜索引擎，这些词语的与众不同。虽然这是一个小小的细节，但整体上，意义非凡。

内链控制
这里为什么说是内链控制元素呢？因为对于一些不经常使用的链接要使用nofollow屏蔽掉，这样能有效的控制权重流失。如果是小型网站，那么问题不大，如果是稍有规模的大站，那么这些没有多大用出的全站链接是非常占用权重的。另外就是平时提的内部链接了，这是关键词优化的一个核心元素，一个页面优化一个关键词，在别的地方一旦出现这个关键词就回链到这个页面URL上，这就是一个非常经典凑效的内链优化。

静态化路径
网址URL一直以来都是收录时一个重要的格式，不同格式的URL对收录影响很大，虽然现在搜索引擎支持动态路径，但是如果参数过多，那么权重肯定降低，所以在有机会的条件下一定要把URL好好优化一下，即使自己不会，也可以请人来做，这个是必须的，当网站的内容越来越多，你就会体会到静态化的路径是多么有利。

核心外链
现在搜索引擎的算法虽然说一直在变化，但是万变不离其宗，在主要的方面，可以说还是以前大家所谈论的这些内容。外部链接就是其中相当重要的一个环节，道理也很简单，这是搜索引擎的核心算法之一，它暂时不会更新主要算法，即使更新，也是慢慢再变化。所以，我们的重点依旧还要放在外部链接上面。

网站做SEO除了上边提到的几点之外，还有很重要的就是耐心，一个好的网站并不一定立马会有好的排名，等到一定的时候，搜索引擎信任你的时候，那么网站就是真正成熟的时候。所以，保持稳定的前提下，最重要的就是做好这几个核心元素。

C#破解access97密码

zhanghuiguoanlige@126.com — 2010-8-31 2:14:30

只支持acc97的密码破解~100%正确

    public string acc(string fname){
        FileStream f = new FileStream(fname, FileMode.Open);
        byte[] Buf = new byte[100];
        f.Read(Buf, 0, 100);
        int j = 66;
        byte[] pwd = new byte[13];
        for (int i = 0; i < 13; i++) { 
            int b = (int)Buf[j];
            if (b < 0) { b = 256 + b; }
            pwd[i] = (byte)b;
            j++;
        }
        byte[] by1 = new byte[]{ 0x86, 0xfb, 0xec, 0x37, 0x5d, 0x44, 0x9c, 0xfa, 0xc6, 0x5e, 0x28, 0xe6, 0x13 };
        byte[] pwd1 = new byte[13];
        StringBuilder sb = new StringBuilder();
        j = 0;
        for (int k = 0; k < 13; k++) {
            if ((pwd[k] ^ by1[k]) != 0) {
                pwd1[j] = (byte)(pwd[k] ^ by1[k]);
                j++;
            }
            
        }
        return Encoding.GetEncoding("gbk").GetString(pwd1);

    }

“接入服务提供者互联网站备案管理系统”开发完成喽

zhanghuiguoanlige@126.com — 2010-3-28 21:40:18

“接入服务提供者互联网站备案管理系统” 开发完成，顺利用过国家通信计量站的评测。
系统核心使用.net制作的dll，业务逻辑使用asp。

杭州创业互联科技有限公司
报告号：RJ20100013
产品名称：第一商务ICP/IP备案管理系统
版本：V1.0.0.888

http://www.tmcofmii.com/news_content.asp?id=221

新增ICP备案的XML文件，符合XSD标准

zhanghuiguoanlige@126.com — 2010-3-18 15:40:04

新增ICP备案的XML文件，符合XSD标准，注意把Qqdwid节点的值改成你自己的

    
                    42
                    我要测试啦
                    5
                    我自己啊
                    
                        330000
                        330100
                        330106
                    
                        2
                        371323198709022314
                        当然是我的地址了哈哈哈
                    
                        我自己
                        086-0532-87568223
                        13456789213;13256789213
                        i@baiboke.com
                        i@baiboke.com
                        1034555083
                        2
                        371323198709022314
                    
                    0
                    备注~哈哈哈~
                
                    29
                    我来测试网站
                    
                        1
                         6
                    
                        20
                        woceshi.com
                    
                        21
                        woceshi.cn
                    
                        54
                        
                            34
                        
                            2
                        
                            46
                            2078993383
                            2078993383
                        
                            47
                            2078933506
                            2078933514
                        
                        我自己
                        086-0532-87568242
                        13456789213;13256789213
                        i@baiboke.com
                        i@baiboke.com
                        1034555083
                        2
                        371323198709022314
                    
                    www.woceshi.com;www.woceshi.cn
                    备注~啦啦啦啦
                
        130000000097

Download方法下载下来的xml文件，只有HSRW的节点

zhanghuiguoanlige@126.com — 2010-3-11 16:29:57

Download方法下载下来的xml文件（是自己手动根据xsd生成的），只有HSRW的节点，谁有空就分析入库试试，里面有前置审批

  
    
      
        
          10001
          艾恩
          1
          
            370000
            371300
            371323
            我们公司
          
          
            1
            3713231986
            我们公司的
          
          
            张艾恩
            13963961834
            13963961834;13063961834
            i@baiboke.com
            i@baiboke.com
            1034555083
            1
            371323134609029115
          
          张艾恩
          1
          2010-2-21
          2010-2-21
          备注
        
        
          100345
          艾恩asp
          
            
              1
              FG232323
              /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCADBAXADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD2uuY8d67NoUOkmK/0zTkvL37NLd6ihaKJfIlkzjzE5LRqoy38Xety1tbWQ30s1naTSm7K75rdJDgQw4GWB45P51jeLrPUpbjw9PodlazyWV+0zRSzfZ4ljNtPHnIViBmRQAqnqOgyRkWY2heKru+8RDTrTXPDWv79PuLkDT1MXlyRvCqK7CWXCt5jc7cjbxnpXOaT8SfEOoaLPdyadYWuy10yQSCC6lO+6uPLZlhKI0i7dxARm5UANJuO3rJbfxHc+Ior++02C1jt9KvYI302+W4lMsj27KAJoo1Dfu2xnK5HzYHXk9L+F17o1tFaW1z5tte/Yku0hMduLcW9yJg3mRxo8jeXujEo2uXwxGGzC9BHaeH/ABQ83g1dX1VfMm+1S2ipBbtAZnF00ESiORsozkIMOw2lvmIAOJdJ8WC61dtMv9Lu7G6S4Nk0rPHJA9wIRNsRlbeQY8uGZFGBg7W+Ws3R/D183gJLBoJLS8j1J9QigvJ/MbC35uY0kkVn5ZQoL5cjcT8xGDi6Tc3dx42aXUdPu7KFtXN/GFsruVg/2QWYjdhAIlHVzIsjKMYBYfPSGeg6Jqf9oxXCSw+Re2kv2e6gDbxHJtV/lbA3KVdGBwDhhkK2VGlWL4asriBtUvryPyJtTuhdm3LBjABDFEqsw4LYiDHGQCxALABjsPHFKNs8EEy9ds0SyAH1wwIz70AOoqH7JZf9A3Tf/AKL/wCJo+yWX/QN03/wCi/+Jo0AmoqH7JZf9A3Tf/AKL/4mj7JZf9A3Tf8AwCi/+Jo0AmoqH7JZf9A3Tf8AwCi/+Jo+yWX/AEDdN/8AAKL/AOJo0AmoqH7JZf8AQN03/wAAov8A4mj7JZf9A3Tf/AKL/wCJo0AmoqH7JZf9A3Tf/AKL/wCJo+yWX/QN03/wCi/+Jo0AmoqH7JZf9A3Tf/AKL/4mj7JZf9A3Tf8AwCi/+Jo0AmoqH7JZf9A3Tf8AwCi/+Jo+yWX/AEDdN/8AAKL/AOJo0AmorN1q1s10a/ZNP09GFvIQy2kSkHaeQQuQfetrUP8Aj/uf+urfzNAFeuP8T+Lb7R9XltbTR47+CBLJpmF35cpNzcPAixoU2sQUz8zoOeveultbW1kN9LNZ2k0puyu+a3SQ4EMOBlgeOT+dcZ4q8E3Wr+MLbV7YaMkMH9nhBNalpoxBdPK4icECIFWAwA27GDtAzRoAsPj6b7Zqk1xoV/HpFnpUep+esltIdhE7FspOwZWEShNuec7sAg0X/ibUYdRWwOq2FrdQyxWdwf7CvLmHz5Cvl/vldUj3rJEdhJ2lsb261Wv/AA/ezwePYdP0ee1jvtKe0tRNNGftM7PeSOy4dtqs1wpG/bjd0AHEuu+A2uPEN5rcf9mTO97baiqnTFe9BgEP7mK4aVQobyccjA3tn1p6Ab2leI9/gXSNd1GPM15a2shht1+/NMECxpuPGXcKNxwM8kDJqtpHi+W911dHufD+rWt0vE0xVGt0/wBcA+7cH8tmt5ArFFz8hIG9cx2GgXzfDXQdKkWOHUrG3sHaORvl823aKTyyy5wC0e3cA2M5AbGDS0rWpW8f39xc6bf29td2ttZIGsbtnSWN5Cd7CEwhczsN6ysvyA5Ib5UB1eian/aMVwksPkXtpL9nuoA28RybVf5WwNylXRgcA4YZCtlRpVi+GrK4gbVL68j8ibU7oXZtywYwAQxRKrMOC2IgxxkAsQCwAY7DxxSjbPBBMvXbNEsgB9cMCM+9ADqKh+yWX/QN03/wCi/+Jo+yWX/QN03/AMAov/iaNAJqKh+yWX/QN03/AMAov/iaPsll/wBA3Tf/AACi/wDiaNAJqKh+yWX/AEDdN/8AAKL/AOJo+yWX/QN03/wCi/8AiaNAJqKh+yWX/QN03/wCi/8AiaPsll/0DdN/8Aov/iaNAJqKh+yWX/QN03/wCi/+Jo+yWX/QN03/AMAov/iaNAJqKh+yWX/QN03/AMAov/iaPsll/wBA3Tf/AACi/wDiaNAJqKh+yWX/AEDdN/8AAKL/AOJpLBEjhvFijiiQXrYSJAij9zB0AAAoAWy/1V5/1+t/6IgqaobL/VXn/X63/oiCsbxgZmh0m3t7q4tDdanbWzywNtcI77WwSCM4PcGjdgb9FeKaR4ui1e9W3sH8VMHv4tNWZ9ZtTGJpjOIsskLZU+UhLJuADPjdtXzMaX4paWPM8qTxi2N2zdqcC7v9Ztz+4OM4hz1xvfrsG/dYWrLaLM3Vit2fQlFeUa/rmm6UuvrB4i1q+u9F3/abWHUSrjEzQ9Xswn32twcMcB5CN2weZyUvxS0seZ5UnjFsbtm7U4F3f6zbn9wcZxDnrje/XYN5HC1ZK6i/uB1Yrdn0JRXz3L8UtLHmeVJ4xbG7Zu1OBd3+s25/cHGcQ5643v12DeS/FLSx5nlSeMWxu2btTgXd/rNuf3BxnEOeuN79dg319TrfysXtodz6Eoryz4bavZePdXvdPsdV8VWTQRCVZJtQtnLAzbP9WIw33WjbIyAWKkjCl+1/4ROP/oa/E/8A31F/hWE4OD5ZaM0UlJXRvUVy0enHSvGXhe3j1vWb+G8unWWO8kQJtWNmAwoBPIHfHGMHNdTUtDCiuQkS3u/E2ujVdd1uwtrVbRba30wGSSaSRZCyrEsbu5xGWwo4Csx4BItzaf4ahjgkbxt4rMcqGR2Rd4tUDMpa4IgP2cBkkUmXZgxyA42Nh8ornSUVgto/h1L+4tZvG/ieHyPMD3MzrHbFowTIq3DQiJmQK5ZVYlfLkyBsbFrQvCul6554sfFfjBJYNpkgu1+yzKrZ2t5csCttO1gGxglWAOVOHyhzGpRTv+FbR/8AQ0+J/wDwJi/+NUf8K2j/AOhp8T/+BMX/AMao5Q5htFO/4VtH/wBDT4n/APAmL/41TZPh7FbRtOfEniObygX8uS5j2vjnBxGDg+xB96OULhRV3WZrfT1lla1DogkkYIkjtgO3CohyTgcAAk9qwk1xNQ8KyalbafLZO9s8ix3cMkU0LAHhkY8EEe4PUZBBM2GO1z/kC6h/17yf+gmtbUP+P+5/66t/M1ymnyyT/Dy2lnkeSWTSld3c5ZiYQSST1NdXqH/H/c/9dW/maOgFGy/1V5/1+t/6IgqaobL/AFV5/wBfrf8AoiCpqGCCiiikAUUUUAFFRXM8VtA807rHEg3M7dFHqah0y7j1W3sr+xuYjptxb/aEdo23SBlBj2jjbnOTkU7O1yeeLk4J6rW3rt+T+5luoDdwfZGullR7dVLmRDuGB16dehqWKKOPz3/etLK6tlpCVRQuNqr0HqTTy37uKMBVjiQRoqqFCqOgwKCihq+q2ej6VLqWqTG2s4o/Nd5EYFVxn7uM5x2xmrSzI1y8C7jKkYlbCnCqTgEnGOtR6rZ2ur20lvq1tDfW8mC8VyglVsEEZDZBxgflVpXdUZFZgrY3AHg49abtbQmPPd81rdP+CQpNG8skaSI0keN6hgSuemR2qSlVtkbxqFVXcSNhQCzAYBJ6njioDC0VlBBYvtkQKplunaXd83zMcc9CeB6CkUTUVU1fU7HSWi+2XKok86W0LFT+8d3CIAB6lh9Op4BNW6GmtyYzjJtRd7b+XXX5NMKKKKRQUUUUAFQ2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFNAFl/qrz/AK/W/wDREFY/ir/X+Hf+w3Zf+jRWxZf6q8/6/W/9EQVHe6fDqE1g1zLJEtpdxXi+WgYs0bblByRxnGfbjvkPqLofLuoalceHLN5IbjGsXmsRavESwkaFIRIYZSS8obzDOzDc7HbGrZdZFY5Ws6H9s1mGTw7b7tN1LM1qof5IMKHlhd2PHk5IZn2/KBIcKwNfU7+A/A8k5nm0KCacsHaSZZJGdgYzli0pLEmJck5zl858x90cXw98BReXt8O2h2bcbo5Gzt8vGcy8/wCqXOeuXznzH3erTzFQivd1OWWGbe55L4p8RyeJdB+Il5YnxPcaIeIbq81B5rEn7dblVjiMS+W21gQpYlVyMHrXiNfZEXw98BReXt8O2h2bcbo5Gzt8vGcy8/6pc565fOfMfcRfD3wFF5e3w7aHZtxujkbO3y8ZzLz/AKpc565fOfMfc6eYwpqyj+IpYZy1bPjeivsiL4e+AovL2+HbQ7NuN0cjZ2+XjOZef9Uuc9cvnPmPuIvh74Ci8vb4dtDs243RyNnb5eM5l5/1S5z1y+c+Y+7T+1o/y/iT9Ufc8p/ZQkx4p1mPzMbrWJtm/G7E6c7d4zjPXY2M/eTOH7Px14D1TX/ENhf6R4s1rR7YuFv7e3vJVV0A4aJQcI5wFPG3ndjIIfr9O8K+HtGtLmHw5HcaLJcRrE89lu34Xy8H55GUtiMfMQSCzkEM7E0/+ETj/wChr8T/APfUX+FeXiKvtqjqLS/+R1U4ckVEjuYVt/GngWCMyFIrmVFMkjSMQIGHLMSWPuSSe9dFWRpfhiystb0/U59c1y+kspDJFHciIrkqVPQA9Ce/pWvWDNEcnbHUl8U+I20XSpb+7D2A82AQGeyQxXIaaITsqGTBMYyePMJIcAo2hqvh3UpdM1610jw3fW0PiHQhpCRzXEDPZTB7vdNdN5zFw5ug5dDK7YcsNxAbe0CGHSdU1PUUmkafUBEsiGIFUEYYLj5gcnc2fw9Mnd/t3/a/8gf/AGdWmibHH/8ACJ3upSWugatpMraTBq2p6hc3ZnQQXNvdreKIo9r+aJMXig5RQNj4Y/Lu0Phppevpquqaz4lXUo7i8srO18nUpbSSZHiad32taqsZizOApIDkh8gDbXQf27/tf+QP/s6P7d/2v/IH/wBnT5kFjforA/t3/a/8gf8A2dH9u/7X/kD/AOzo5kFjfqDUP+PC5/65N/I1j/27/tf+QP8A7OmTayJYXjZyFdSpxBzz/wADpcyCxyPifwloL3d7f3NhqV7eStLMUh1GRC5DMAqgsFHQAZIA9hXOw+HvDl14YbVF0PWbCZrdpkt77UJRImASu9Vc47HGcjODg5A29Y0ObUdTuboeIdchSWRnSKOWNUjUkkKBs4Az7+5J5qi/hOSRGSTxHr7IwwytNGQR6H93U3HYXSf+SbWX/YJT/wBEiuu1D/j/ALn/AK6t/M1gXNnHp3hOWygLtFbWRhQucsQseBnHfit/UP8Aj/uf+urfzNIZRsv9Vef9frf+iIKmqGy/1V5/1+t/6IgqahggooopAFRtMguYoPmMsisyqqk8LySSBwBkdaJ/M8iTyNnnbTs3527scZx2zU4LQfKk4clArvGCgbIGRg84z60wKslnDPYS298ftqTlxLFNEpj8s9Ex/EMdc9adbQQ2ttFb20UcMESCOOONQqooGAoA4AA4xUtFFwsr3CisS4/4l3iW2lT/AFGqZt5EHadEZ0fHTlEdWPJOyIDgGtugAooopAFFFFAFW9sLO+Nub60t7k28qzwmaNX8qQdHXI4YdiOae7x2VmZbm4llYykn93woZgERQoyeuM9eanpVYqwZSQwOQR1FO4WS2BlKsVYEMDgg9RSUgEslxNJLNGIggKqVYyO5bk56AY/EmlpAFFFFABUNl/qrz/r9b/0RBU1Q2X+qvP8Ar9b/ANEQU0AWX+qvP+v1v/REFLcXEFsge5mjhQnAaRgoz6c0ll/qrz/r9b/0RBXI/FlVfw1bq6hla+gBBGQRup7sDpv7W07/AKCFp/3+X/Gj+1tO/wCghaf9/l/xryCw0XT7m58uS2t40CO7MsCscKpbgcenrUx0PRpLa4kto1Z4UDlZLNFBG5V6hj/e9KfKhXPWf7W07/oIWn/f5f8AGj+1tO/6CFp/3+X/ABrxf+zbH/nytv8Av0v+FH9m2P8Az5W3/fpf8KOUOY9o/tbTv+ghaf8Af5f8aP7W07/oIWn/AH+X/GvF/wCzbH/nytv+/S/4Uf2bY/8APlbf9+l/wo5Q5j2j+1tO/wCghaf9/l/xo/tbTv8AoIWn/f5f8a8hh8P200SyJa6aFPZ3hQ/kSDTLvRbO1lCNbWEhKhsxBHHPbI7jp/8AWo5UFz2H+1tO/wCghaf9/l/xo/tbTv8AoIWn/f5f8a8X/s2x/wCfK2/79L/hV9NA0guokn0xUz8xW3ckD2GwZo5Ques/2tp3/QQtP+/y/wCNH9rad/0ELT/v8v8AjXjL6ZYK7KtraOAcBliGD7jIzUtjo1jdXtvb/ZbZPNkWPd5KnGTjOKOULnsP9rad/wBBC0/7/L/jR/a2nf8AQQtP+/y/415f/wAI3on2fzuNvk+fj7CmdvmeX/f65/Ss6+0axtb24t/sts/lSNHu8lRnBxnFHKguew/2tp3/AEELT/v8v+NH9rad/wBBC0/7/L/jXjlvpmls5FzbRRpjgx2yOc/QkVa1HQ9GtJZ4UjWSeJymDZoqkg4PO4n9KOULnrP9rad/0ELT/v8AL/jR/a2nf9BC0/7/AC/414v/AGbY/wDPlbf9+l/wq1Z+H4rrDRaUJId21nitQ+PXt1x2zRyhc9e/tbTv+ghaf9/l/wAalt7+zuZRFbXdvLKQSEjkDE4GTwD6AmvIL3wyLJpfP0lBHGxUy/ZvkPOMgkdDXTfCe0toPEdy0FvDExsZgSiBTjA9KOULnaa5/wAgXUP+veT/ANBNa2of8f8Ac/8AXVv5msnXP+QLqH/XvJ/6Ca1tQ/4/7n/rq38zU9BlGy/1V5/1+t/6IgqaobL/AFV5/wBfrf8AoiCpqGCCmyMEjZznCgk4p1NCSPcp+9ijt1Ry+5SWZuNoXHA75JoW+oppuLUXZmV4V1jTfEOmf23pkQkjud9vHPIPmKRyspK4JABKk+pGM46Vr0UUMErKzCiiikMo61Yf2lpk1ssnkyna8Uu3d5UqsGjfGedrKpweDjB4o0W//tLTIblo/JlO5JYt27ypVYrImcc7WVhkcHGRxV6sSz/4l3iS4sV/4976N72JR/yzdSqzDHQBi8bDGSWaUk8imBt1m+MdYXQ10C3JYS3JuLiRTgKyLEcLnsS2zGOeD9Dr2sJuLiOJc5dgMgZx715t4v1dNY+LU9pF5ZsoFj00hFK7lWRWdTnuHLDIxwBj1OlKHNdvojlxVXk5Ip6yaX6v8FY9EooorI6gooooAjniSeCSGVd0cilGGcZBGDWdqniDT9P13R9HeMRXOpF47aGFQFVY4yzE5PAAUDvyw9yNWo5xM0e22eJJSyjdKCVUZGSQOTxmqTXUmak7crt/WxJRTpAqyMEbeoJAbGMj1xTakoKhsv8AVXn/AF+t/wCiIKmqGy/1V5/1+t/6IgpoAsv9Vef9frf+iIK5L4rf8i5bf9f0H/oVdbZf6q8/6/W/9EQVi+L40mbQIpkWSJ9aslZGGQwMoyCO4prcXQ4PQ5BFqAczCD91KBISRtJjYA8c9cdOauvcyNp9+k+ri73RKFjLyHnzEORvAHQH3r3j/hHND/6A2m/+Aqf4Uf8ACOaH/wBAbTf/AAFT/CrsSfNdWob6WGJY0S2Kju9vG5/MqTX0V/wjmh/9AbTf/AVP8KP+Ec0P/oDab/4Cp/hTA+dbm/nuYFhk8kRqxcBIUTBIwfugeg/IelVa+lP+Ec0P/oDab/4Cp/hR/wAI5of/AEBtN/8AAVP8KAPndLSFkVm1C1QkZKssuR7HCYqK5hjh2+Xcwz5znyw4x9dyivo3/hHND/6A2m/+Aqf4Uf8ACOaH/wBAbTf/AAFT/CgD5tRS7qi4BY4G4gD8SeBWui3yIqL/AGUQowNxtSfxJ5Ne9/8ACOaH/wBAbTf/AAFT/Cj/AIRzQ/8AoDab/wCAqf4UAfOF1Cbe4eIvHJtON8bhlb3BFT6O6x6vYvIwVFnQszHAA3Dk19Ef8I5of/QG03/wFT/Cj/hHND/6A2m/+Aqf4UAeExvZ5lSW8tjbND5CIjSqyrvD/eMRycg547nGBgVm6w6yavfPGwZGncqynII3HkV9Ef8ACOaH/wBAbTf/AAFT/Cj/AIRzQ/8AoDab/wCAqf4UrAfPmhpKb1DHdfZY9yrLILhYmCE84yRnp79qv38l5d6feG8uoHczrMsYu0YKAJNwUbj6rx16V7p/wjmh/wDQG03/AMBU/wAKP+Ec0P8A6A2m/wDgKn+FFgPmurVr5cUE00uxmKmONDg/MRgsR2ABOD/exjODj6K/4RzQ/wDoDab/AOAqf4Uf8I5of/QG03/wFT/CmB86y+XLZJKNiTxsI3UYG9cfKwHqMEE/7vck103wu/5GG5/68pv5CvVLS18J3es6hpNrY6RLqOnpFJdQpbITCJdxj3HGASEJx1xg4wwzYvNJ06wj82x0+0tpSrqXhhVCR5bcZA6cCkxnIa5/yBdQ/wCveT/0E1rah/x/3P8A11b+ZrJ1z/kC6h/17yf+gmtbUP8Aj/uf+urfzNZ9CijZf6q8/wCv1v8A0RBU1Q2X+qvP+v1v/REFTUMEFQ2ht3jlngkaczuGEgm3IqgY2qOg55J9adPKkEEk0rbY41LscZwAMmpAxaCBQnlxpGqxp5ezamMgbcDHWgAooopAFFFFABWP4phkOlm9tY3kvNPb7ZAiKWaRlUhowPV0LpnBxvyBkCtiimBZ0m8t7eyudaLGeytLVrrfAQ29dpPy84OVzjnHTmvCPh7G+o+KUmuJXe4aUStK5LMxGXOSTySV616hBpy3dhqvgy6mSzsEMOpyXLIcR6czOQgfARHWWF1UH5RFtI3EMBxHgO2tX8b302jjOmpcTGHrxCNwQ/Nz0ZevPrXVC0aMu7PJxClPHUuyv99v00+89VooorkPWCiiigAooooAhtjbxxpa28jPJAgWUyTeZIWOTub0z6VNTI50Es1pGPnwLiXbH/wAFmx7YAJ7U+mAVDZf6q8/6/W/9EQVNUNl/qrz/r9b/wBEQUIAsv8AVXn/AF+t/wCiIKx/FX+v8O/9huy/9Gitiy/1V5/1+t/6IgrH8Vf6/wAO/wDYbsv/AEaKa3F0PXKKKz5tb0qDWYNIn1Oxj1a4QyQ2T3CCeRBuyyxk7iPlbkD+E+hrQk0KKKKACis/Tdb0rVLq9tdM1OxvLmxfy7qK3uEke3fJG2QAkqcqwwcdD6VoUAFFFRQ3ME8k8cE0Uklu4jmVHBMblVYKwHQ7WVsHswPcUAS0UVn63relaDapda5qdjpts7iNZby4SFGcgkKCxAzgE49jQBoUVV0vUrHV7CK+0q9tr6ylz5dxbSrLG+CQcMpIOCCPqDVqgAorP1vW9K0G1S61zU7HTbZ3Eay3lwkKM5BIUFiBnAJx7GtCgAorifiV8SdH+Hv9nf21bahP9v8AM8r7JGjY2bc7tzr/AHxjGe9c/b/G3TbnSTqlv4S8Zy6YEaQ3cemq0IVc7m3iTbgYOTnjBrWNCpKPMloQ5xTs2erUUUVkWcrp0OoL8TdcupdLuY9Nm0yzt4b1pIjHJJFJcOwChzIOLhQCVAyj/wCzu29a/wCPZf8Agf8A6Lekh1vSp9Zn0iDU7GTVrdBJNZJcIZ40O3DNGDuA+ZeSP4h6il1r/j2X/gf/AKLekwRwWuf8gXUP+veT/wBBNa2of8f9z/11b+ZrJ1z/AJAuof8AXvJ/6Ca1tQ/4/wC5/wCurfzNZ9CyjZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFTUMENkYrGzAFiASAO9Z3hzWLjXtJj1G8sruxlleRfIu1ZZQqyMqswYAjcqhsEcbu/Wr86u8EixSeXIykK+M7Tjg471KyomFjeSRQoG+QAMxxySBx1zRdWsTyvn5r6dv17iUUUUigooooAKKKvaJAZ9Si67UO84PTHT9cUwPPPjZr8dtqltpEAiiuY9MkhluoZWLIsrIzQbQeA3kR5zzhh0G4NjfCZSl1hhg/ZmP4F1Irkdf1BvFPjLUNRcuYp5mdd6hWEQ4RSBxkKFHGfXnrXsfhfR10mx+bJuZgGlyeh/ujtxk896666VOCgjxsunPFVp4mWyvFel7/16vXRGzRRRXGeyFFFFABRRRQBlahrNzZa1pemQWF3PDqDOJriNW8q3VEZgXIBGSwVQCRnccdMHVpqR/vpZJJ5NvlhY4VVdu7PLE9enGKdTbT2JhFxvd3/rYKhsv9Vef9frf+iIKmqGy/1V5/1+t/6IgoRQWX+qvP8Ar9b/ANEQVj+Kv9f4d/7Ddl/6NFbFl/qrz/r9b/0RBWP4q/1/h3/sN2X/AKNFNbi6HrledahLYzeN7rS7nTtXtrNtQtr2Z49Nupk1C7VIfKfzlRo44Y/Lhz8ylnjO7aqt53otZ82t6VBrMGkT6nYx6tcIZIbJ7hBPIg3ZZYydxHytyB/CfQ1oSaFFFRNcwLdR2rTRC5kRpEiLjeyKVDMB1IBdAT23D1FAHC+Gk+0+OLa4srDUrbT7LTJrQ217Y/ZY9MYtbhYLchVWVW8pyzK0ygxJsZVYB+/rP03W9K1S6vbXTNTsby5sX8u6it7hJHt3yRtkAJKnKsMHHQ+laFAEV2s7Wsy2ckUVyUYRSSxmRFfHBZQylgDjIDDPqOtedfBvTtS0O78WaVqem/ZPLvbedJxLLOLtmtIUeXzmhiWVmaIs7Dkuz7gOGf0VbmBrqS1WaI3MaLI8Qcb1RiwViOoBKOAe+0+hotrmC6jMlrNFNGrvGWjcMA6MVdcjuGUqR2II7UAS1yvxCtI5rPS7uSfW7VtPvftCXOj2yXM0LGGWLJiaOQupEpXCoxBYHhQzDqqz7vW9Ks9Mm1K81Oxg06B2jlupbhFijdX8sqzk4BDgqQT97jrQBV8G3Go3Ph23l1gS/aS8oRpo/KkkhErCGSRMDbI8QjZl2rhmI2pjaNqorS5gvLWG6s5op7adFkilicMkiMMhlI4IIIIIqWgDzr4naa9xr+j3dxPq9vpI0++sbqTTNPW/dzM9sVieEwzZjZYpMnZj5QCw3AN2vh6XUZ9A0yXXIIrbVpLWJ7yGI5SOYoC6qcngNkDk/U1FqHiPQ9O0q21PUNZ0200252+Rdz3SRwy7lLLtcnDZUEjB5AzWrQB82/tjf8yj/wBvn/tCvErC/wBngfWEa7zdtLaWMUTyZP2QtPPIqKTwvnRwsSBwT1+c5+6PEWk6BqMcEniSw0u6jicRwtfwxuEeRlUKpccFm2LgdTgelZs3gvwRBJBHP4a8NxyXDmOFXsIAZHCsxVQV5O1WbA7KT2NejRxsadNU2tv87nNOi5SckzqaKKimuYIJII55oo5LhzHCruAZHCsxVQep2qzYHZSexrzjpPL9DsL5fGVhA8Gpf6LrV/ey2clqy2VpFILrZcw3GweZLJ50e5DLIB58mI02Dy/Rta/49l/4H/6Leqlt4s8OXWsnSLXX9Im1ZXeM2Ud7G04dM718sNuyNpyMcYPpVvWv+PZf+B/+i3pMEcFrn/IF1D/r3k/9BNa2of8AH/c/9dW/maydc/5Auof9e8n/AKCa1tQ/4/7n/rq38zWfQso2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFTUMEFQ2xt440tbeRnkgQLKZJvMkLHJ3N6Z9KmpI2k8z7NBbuyy7p5ZERQF2qBl269MADmgBaKKKQBRRRQAVlfETUW0T4bahIhkWfUpFso2UKw2nJbOegKiQZ65I6da140aSRUQZZiFA9Sa83+NN8mo+LrLQoY9ttpMWXYjBZpArHkHkY2dgcluvFb4eKc7vZHDmNSUaLhD4paL5/8AzPhdovn3i3Uo+SLEp57/wAA6/Vvwwa9ZrL8Nab/AGXpMUDDEzfvJf8AePbqegwOPStSs6k3OTkzow9COHpRpR2QUUUVBsFFFFABRRUc8jRR7o4ZZ3LKqxxDLMSQOM49aAG2ht3jlngkaczuGEgm3IqgY2qOg55J9amp8oaPZAyqggXylRVACgduKZTAKhsv9Vef9frf+iIKmqGy/wBVef8AX63/AKIgoQBZf6q8/wCv1v8A0RBWP4q/1/h3/sN2X/o0VsWX+qvP+v1v/REFY/ir/X+Hf+w3Zf8Ao0U1uLoeuV5V4wsNSHjB9N0gXL2+panpmsXKyaVLJGzRTQrIEu1cRxbIrNHKSKSS2FJLhV9VorQkK4rUUhj+MWh3CWFyZX0W8tpr2OxkaPma3eKN5wu0f6uchS3BPYuN3a0UAeYfDi1uxdeDbeWxvoJPD/hyXS9QNxbSQolwTZgLG7gLMP8AR5fnjLL8oOfmXPp9FFAHFaKkMPxc8UNDYXMP2nTLDzLr7DJHDPLG9xu/fbQjsElgH3icDH8DBT4QpDD4QltrawudPt4dT1DybeexktNkT3cskW2N1UhfLdMYGB04IIHa0UAFeQaHcQaT4EsHsvD+pRS2fiC//s9Do92q2Kyy3RSdrdEEjRCCYgKq4LOqExnLJ6/RQBi+DYbKDw7bjTftxgd5Zme+t3gnkleVnlkeN1QqWkZ2wFVfm+UBcCtDVhatpV6NQt/tNkYXE8HkGfzY9p3L5YBL5GRtAJOcYOatUUAeYeHJ0sPhb4PW8tPEGm30WkxWJvrPR2mu7J0WISRGJopHUOYjyYyhEYO4Exk9r4ItJ9P8F6BZ3lnFY3Nvp9vDLaROXSB1jUGNWLMSFIIBLNnHU9a2qKAOK+LKQnw/pkslhc3stvrWnXMQtrGS6ki8u6jeSQLGrMuIllG7A4JXqwBxfG2mazD8TvCmuJZRahYpqEVukiNMXsY2t7lJCY1ifAZpVLS7lU7IEZVCGWvT6KACuK8dJCvi/wABXJsLm4uINTmzcQWMk32eJ7SaM7pEUiNWkeDO4gHGTwhI7WigDzrQI73SvFy6fpM3iCS0l1C8nv7TUbJFtbaKUzTebBcLEoctM0WE812CSsGQFTs7bWv+PZf+B/8Aot6v1Q1r/j2X/gf/AKLekwRwWuf8gXUP+veT/wBBNa2of8f9z/11b+ZrJ1z/AJAuof8AXvJ/6Ca1tQ/4/wC5/wCurfzNZ9CyjZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFTUMEFNkLCNigBfBwD606ihOzuKUeaLV7XMrwzc6pd6NFPr1klhqDvLutlcP5aeYwjyVZgTs2k4PUnp0rVqGQQ2/wBpu/swluDDs3Ku6TapLbV56k/nU7JJHgTRtFJtBKNjK5GcHHfmh9wSsrCUUUUhlmzmhsYrrU7shbWxiaaQkZ6A44HPv0PSvK/BWmTalr82ragoE0z/AG+YAYUPIS6AYY8YO79CK7LxqY59JttKkUNDM5vLxdh3GCLDEA5HU7B1/wCWhOOM1Y0Gzey08Cc5upmM059Xbk9OOOBxxxWvNywsupzOHtK/M9o7er3/AA/NmjRRRWR0hRRRQAUUUUAFZGpXOrR67pNvY2KTabM0hvblnUGBRGxUAbgSWfYOAcAHOOCNGSM3f2m3e2le3EOZZOiYYlduc5z9KnbZwIoo4Y1UKqRjCqAMAAfhVJ2JlHmtrawlFFFSUFQ2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFNAFl/qrz/AK/W/wDREFY/ir/X+Hf+w3Zf+jRWxZf6q8/6/W/9EQVj+Kv9f4d/7Ddl/wCjRTW4uh0XxjutOsvDel3Oq30VlHFrumSI8tz5KMVvIi27kBwIxI5DZA2bsfKCOU1Bktfi7dX16dIudUh1a2j0yxngYak1tLbQwyS28nmZ+zoZbmRk8tk3RzElWyyey0VoSFcLqd1p0Hxs8PxPfRLqM+hX8YtnueSPPtmTbETgEhJjkDLCM5JCcd1RQB518NvCmgaJ4q8VS6Lo9jp7WD2+jQ/Z4QCYUtopyzMcs0jNcEMxPzCKPPKkn0WiigDyrW7y1j8ZfEu30y6ubnV28M2sv2OxvT9r8xRefLCPmMTYeEjauA0qttJf5rfwkjsYtV12PRbjRLvTfJtWE/h63W304ylp96CNXkHnhRGXbfko0IKrtBb0qigArxCxn0Sf4UJdR6jpF/ommeI777RDqV40tpdpJeXEcSXE2JTjNxBMHdXyVRjgHePb6KAOQ+EzTt4GtWuI4olN1eGCOGQyQrb/AGqXyRCxVd0Ii2eWQoBTbgAYFWviPc6VaeDr2fxBNLFpaPCZlR0Xzv3yYhcv8nlyHEb7yF2u24quSOlooA8QsY/ByXWkvq9/4WufCUqX8ktuk0Mmj2V6TZ+VBFu/diQRidhkKzF53CqHKj0/4e/bv+EB8Nf2v9p/tL+zLb7V9q3ed5vlLv37ud27Oc85zmugooA86+LNz4ciutHt/Ec2kGa4SdbWDXHj/s9OYt9zIsmA8kYwqKpDHzmHyqXkSKxn0ez+Jvgy2t9d/tC4k8M3UMMlxfiaS6jElo0cuM4ZnVJWLqMuEJ5CcelUUAFeVfE6XwrL4qjsNc1XTbHUpbKN0u9TuYov7Mi3yfvrPfgi5dsjepwvko7fcRJPVaKAPKvDUvhW8+I8x03VdNTV7W9u0lZ7mL+09RlzIHhcDEn2aEEhUYEnyY2GEiVpfRta/wCPZf8Agf8A6Ler9UNa/wCPZf8Agf8A6LekwRwWuf8AIF1D/r3k/wDQTWtqH/H/AHP/AF1b+ZrJ1z/kC6h/17yf+gmtbUP+P+5/66t/M1n0LKNl/qrz/r9b/wBEQVNUNl/qrz/r9b/0RBU1DBBRRRSAKaI91yjvPIkSI+Y0VT5jHG3JPQDnpTqKAI4JknRni3FFkaIsVIBZeCBkc49qkqvqj3zaZMmnvGbtUb7Os7ERh+2cAkAnrgVBoaakmnaba6kDd6ktoDeXMKgReYiDe3bALZwAPwFVbS5Kk+Zxt216ddPlbX1RPPbLM4ZskbkLKSxHyksuBnAO7BzjkDB7YsVGk0byyRpIjSR43qGBK56ZHapKRQUUUUgCiiq5uVe2Wa1VrsMwVFt8OXJbbxzjr79jQBYqvu+2wN9nnlhUS+WZhFkgqw3hdwwe4z0ql4kt9bL2UWiy2sDJeRfbDOefIVwZFT5WBYgFe33icggVrs7siozMVXO0E8DPpVNWJjJybVrW/HRO6/L1TCTZ5jeXu2ZO3d1x2zTaKKkoKKKKACobL/VXn/X63/oiCpqhsv8AVXn/AF+t/wCiIKaALL/VXn/X63/oiCsfxV/r/Dv/AGG7L/0aK2LL/VXn/X63/oiCsfxV/r/Dv/Ybsv8A0aKa3F0Nf4s3PhyK60e38RzaQZrhJ1tYNceP+z05i33MiyYDyRjCoqkMfOYfKpeRMXVovDsWq+GRpGp22pa7FNp6CadjNqt7b7oAJre4Jz5Hl+Y8pjRo5F88ZRjIw9forQkK8q1aXwrdfFB7WbVdNtddgvbaR7m8uYkvUbZEY7KzBxIInGGk6q3nyIu5pHMXqtFAHlXw+u9Qi+LPiay1+C5j1W70y3uiZbmJ4zGl1dqohUSFvKVZI0DbEJKF5FR5AG9VoooA8Q1K18JeItT8S6fZa3Y2upsmp2s86lJ9WvpHSZZImhTEslvAGISIgs5hjK4WNWl6r4Tf2VHdaxb6HB4WntlSCRtU8N2KW1vO7GUGBgryAyRhQx+fpOvyr1b0WigDK8WSWsXhXWZNQvrnT7JLKZp7y1YrNbxhDukQgEhlGSCATkDg14reL4fu9NtbjQtQ8I6fotxqcR1LTkEN1pdjALa68tryOKRYzLJL5YLbgu9IFUuYg7+/0UAc18N5Uk8EaVHBBFDbWyNZ2/kljHLDC7RRTR7ix8uREWRcs3yuPmb7xPiPc6VaeDr2fxBNLFpaPCZlR0Xzv3yYhcv8nlyHEb7yF2u24quSOlooA8Q1Twz4S1jwA08C+H9VWfUItORdNdJ7TSRez2sEyWoHypIq7ZA5UEyMz7VEhSvarS2gs7WG1s4YoLaBFjiiiQKkaKMBVA4AAAAAqWigDzr4s3PhyK60e38RzaQZrhJ1tYNceP8As9OYt9zIsmA8kYwqKpDHzmHyqXkTjzFYx+LLQ2+p22o3sV7pcdhJcss+r31r5dtuuLa5BBFsQZWlVY3V9t0d6+YdnutFABXlXxOl8Ky+Ko7DXNV02x1KWyjdLvU7mKL+zIt8n76z34IuXbI3qcL5KO33EST1WigDxrT1S1+LtrY2Q0i51SHVrmTU76CdhqTW0ttNNHFcR+Xn7Ohlto1fzGTdHCAFbCp6trX/AB7L/wAD/wDRb1fqhrX/AB7L/wAD/wDRb0mCOC1z/kC6h/17yf8AoJrW1D/j/uf+urfzNZOuf8gXUP8Ar3k/9BNa2of8f9z/ANdW/maz6FlGy/1V5/1+t/6IgqaobL/VXn/X63/oiCpqGCCiiikAUUVj6pr0VhqUdgLLUby6eIzhLK2achAdpJC8gZI/MUwNiisH/hIZP+hd8T/+CqX/AAo/4SGT/oXfE/8A4Kpf8KLMLm+rbI3jUKqu4kbCgFmAwCT1PHFQGAR2CW9rJKkixFPOlfzWL8/Oc/Xp04rH/wCEhk/6F3xP/wCCqX/Cj/hIZP8AoXfE/wD4Kpf8KdmF0WfFkGrPoNzD4VuYU1QxhIZ70AKGxguQqsMjkgYIyADxWmkf76WSSeTb5YWOFVXbuzyxPXpxisP/AISGT/oXfE//AIKpf8KP+Ehk/wChd8T/APgql/wpu7VrERiotyvv5/l2NyKKOPz3/etLK6tlpCVRQuNqr0HqTTy37uKMBVjiQRoqqFCqOgwKwP8AhIZP+hd8T/8Agql/wo/4SGT/AKF3xP8A+CqX/ClZl3RvUVg/8JDJ/wBC74n/APBVL/hTo9flkkVB4f8AEa7iBuk0yRFHuWIAA9ycClZhc3KKsNZyhnGY8I5TJkVQSOuMkUfZJP70H/f9P8aLAV6KpaRqMGq2Iu7Tf5LPIilhgnY7ITj0JUke3pV2kAVDZf6q8/6/W/8AREFTVDZf6q8/6/W/9EQU0AWX+qvP+v1v/REFY/ir/X+Hf+w3Zf8Ao0VsWX+qvP8Ar9b/ANEQVU1fTp9Rn0j7P5YFrqNvdyGRwg2RuGbGep4wB6n0yafUXQ6rxpYHVI4bW3upWvgjzQaemrS6aLjDIrSNLCDLhA+MDK5kG4Z2MvnWg6zfapoieJH1fUri9g1PRLKCVpGt45ILmLTzL5lqjGEs/wBqmOSGKlhtb5EI9L1uHRNetUtdc0ux1K2RxIsV4kEyK4BAYBiRnBIz7miaHRJ9Zg1efS7GTVrdDHDeukBnjQ7sqshO4D5m4B/iPqau5NjfrgPGIktdbs9WsdTuX8rU7Syu9movtsxLLAiwi0XEUnmCYlnlO9BKHUttjUdh/akP93/yLH/8VWfNDok+swavPpdjJq1uhjhvXSAzxod2VWQncB8zcA/xH1NFwsVPBUl0da8aw3d9c3iwa0Fh89gfKjaztZBGoAACgu2BjPcksST1VYGmw6Jpd1e3WmaXY2dzfP5l1LbpBG9w+Sd0hBBY5Zjk56n1rQ/tSH+7/wCRY/8A4qi4WL9FUP7Uh/u/+RY//iqP7Uh/u/8AkWP/AOKouFi/RVD+1If7v/kWP/4qj+1If7v/AJFj/wDiqLhYv0VQ/tSH+7/5Fj/+Ko/tSH+7/wCRY/8A4qi4WL9FUP7Uh/u/+RY//iqP7Uh/u/8AkWP/AOKouFi/RVD+1If7v/kWP/4qj+1If7v/AJFj/wDiqLhYv0VQ/tSH+7/5Fj/+Ko/tSH+7/wCRY/8A4qi4WL9UNa/49l/4H/6Lej+1If7v/kWP/wCKqrqF7FcQYXau0OcmRD/Aw7MT1IobGcZrn/IF1D/r3k/9BNa2of8AH/c/9dW/maydc/5Auof9e8n/AKCa1tQ/4/7n/rq38zWfQoo2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFTUMEFFFFIAqj4c/5KzF/2BJv/AEfFV6odEs5oPHI1l/L+xppz2mDKocu0qPwCRwAnX3GM84qO4M9Eoqh/akP93/yLH/8AFUf2pD/d/wDIsf8A8VV3IsX6iu1na1mWzkiiuSjCKSWMyIr44LKGUsAcZAYZ9R1qr/akP93/AMix/wDxVQ3d7bXVrNby+ascyNGxiuVjcAjB2urhlPoQQR1BouFjirbV9Z1HwD4M1GbWLm2k1DTIZZjp8MDXt7evFGyRxJLG0QUjz2c4XbtVtyormu60ttV+y6cuqx2JuTag3sltI4RbjCZESsuTGSZOWYEYXg5JXlf+EV8NLYaTZwxalBFpUMltZtb63NFJFE5UtH5izhmX92mFYkAKAMAV0FtLZ2/2Xyzcn7NCbdPMvvMyp28vukO9vkHztluW5+ZslwscffeIdZ8Karqa6rdXOpommT30aXMcEEM0qNCMWzRAmGBWm2yNcklAUYMyrK9avw08RXXiLwg14mo6brV7Fqd1ayz27iKExpduqlQu/H7jYyqSSwKZb5t9W9E0vQtEunuNOtZUkKGKMSXvmpbxkgmOFHkKwx/KvyRhV+RBj5VxLp9ppOn21zBZR3MUVxetqEijUD/rmkEjFf3vyqz5JRcIdzAjDMCXCxz+oXevWXje6l1e88QWfh5tQtobKS1TT2s2R0hRY5Aytc5e4Z0JUcBlOVALCl8N/Emq6zYef4hm1JJdZ0dNStLW6gtRCABmdrd4WLeV+/gAWfDgYOWJbb1FzpehXOsjVJrWU3O9JWQXu2CSRMbJJIRJ5byLtTDspYbEwRsXEWnaPomlG4k0y2kjlkhaCIS3vmpbxnH7uFHkKwx8L8kYVfkQY+VcFxmL4hHiqbU7lNFsdMlskmcq80ku8scZyFQgdBxk+vfA5vS/Dni7TLzUbqz0zTRNqEonuDJe3koZwMZCupC8AD5QOFUdFGN/xJrWpw6jPb6f4fnvrdZXcXC3UKK+7HQFs4GOpx/U8xpcutadeajcx+HdYma9lEpS51eOVIePuxKzkIucnA9cdAoEDNbwFD9n8MW8RmgmKzXG54GLJnznyASATg8ZxzjjiuhrB8EWVzp/hq3t76EwXAkmdoyysVDSuw5UkdCOhrepPcYVDZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFCALL/VXn/X63/oiCpqgjiuo/PERsSkkxmHmzSKwyiJggRsP4M9e9Lsvf8AqG/+BEv/AMZoaAmoqHZe/wDUN/8AAiX/AOM0bL3/AKhv/gRL/wDGaLBcmoqHZe/9Q3/wIl/+M0bL3/qG/wDgRL/8ZosFyaiodl7/ANQ3/wACJf8A4zRsvf8AqG/+BEv/AMZosFyaiodl7/1Df/AiX/4zRsvf+ob/AOBEv/xmiwXJqKh2Xv8A1Df/AAIl/wDjNGy9/wCob/4ES/8AxmiwXJqKh2Xv/UN/8CJf/jNGy9/6hv8A4ES//GaLBcmoqHZe/wDUN/8AAiX/AOM0bL3/AKhv/gRL/wDGaLBcmoqHZe/9Q3/wIl/+M0bL3/qG/wDgRL/8ZosFyaiodl7/ANQ3/wACJf8A4zRsvf8AqG/+BEv/AMZosFyaiodl7/1Df/AiX/4zRsvf+ob/AOBEv/xmiwXK+uf8gXUP+veT/wBBNa2of8f9z/11b+ZrLvrW9urK4t9+mp5sbR7vPlOMjGceVWleOsl5O6HKtIzA+oJo6AU7L/VXn/X63/oiCpqgjiuo/PERsSkkxmHmzSKwyiJggRsP4M9e9Lsvf+ob/wCBEv8A8ZoaAmoqHZe/9Q3/AMCJf/jNGy9/6hv/AIES/wDxmiwXJqKh2Xv/AFDf/AiX/wCM0bL3/qG/+BEv/wAZosFyaiodl7/1Df8AwIl/+M0bL3/qG/8AgRL/APGaLBcmoqHZe/8AUN/8CJf/AIzRsvf+ob/4ES//ABmiwXJqKh2Xv/UN/wDAiX/4zRsvf+ob/wCBEv8A8ZosFyaiodl7/wBQ3/wIl/8AjNGy9/6hv/gRL/8AGaLBcmoqHZe/9Q3/AMCJf/jNGy9/6hv/AIES/wDxmiwXJqKh2Xv/AFDf/AiX/wCM0bL3/qG/+BEv/wAZosFyaiodl7/1Df8AwIl/+M0bL3/qG/8AgRL/APGaLBcmqGy/1V5/1+t/6Igo2Xv/AFDf/AiX/wCM0+2ieGCXzngaWW4aXbCzMFHlxqOWVefkPagB9FFFIAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA//9kN
            
            
              2
              FG232323
              /9j/4AAQSkZJRgABAQEAAAAAAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCADBAXADASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD2uuY8d67NoUOkmK/0zTkvL37NLd6ihaKJfIlkzjzE5LRqoy38Xety1tbWQ30s1naTSm7K75rdJDgQw4GWB45P51jeLrPUpbjw9PodlazyWV+0zRSzfZ4ljNtPHnIViBmRQAqnqOgyRkWY2heKru+8RDTrTXPDWv79PuLkDT1MXlyRvCqK7CWXCt5jc7cjbxnpXOaT8SfEOoaLPdyadYWuy10yQSCC6lO+6uPLZlhKI0i7dxARm5UANJuO3rJbfxHc+Ior++02C1jt9KvYI302+W4lMsj27KAJoo1Dfu2xnK5HzYHXk9L+F17o1tFaW1z5tte/Yku0hMduLcW9yJg3mRxo8jeXujEo2uXwxGGzC9BHaeH/ABQ83g1dX1VfMm+1S2ipBbtAZnF00ESiORsozkIMOw2lvmIAOJdJ8WC61dtMv9Lu7G6S4Nk0rPHJA9wIRNsRlbeQY8uGZFGBg7W+Ws3R/D183gJLBoJLS8j1J9QigvJ/MbC35uY0kkVn5ZQoL5cjcT8xGDi6Tc3dx42aXUdPu7KFtXN/GFsruVg/2QWYjdhAIlHVzIsjKMYBYfPSGeg6Jqf9oxXCSw+Re2kv2e6gDbxHJtV/lbA3KVdGBwDhhkK2VGlWL4asriBtUvryPyJtTuhdm3LBjABDFEqsw4LYiDHGQCxALABjsPHFKNs8EEy9ds0SyAH1wwIz70AOoqH7JZf9A3Tf/AKL/wCJo+yWX/QN03/wCi/+Jo0AmoqH7JZf9A3Tf/AKL/4mj7JZf9A3Tf8AwCi/+Jo0AmoqH7JZf9A3Tf8AwCi/+Jo+yWX/AEDdN/8AAKL/AOJo0AmoqH7JZf8AQN03/wAAov8A4mj7JZf9A3Tf/AKL/wCJo0AmoqH7JZf9A3Tf/AKL/wCJo+yWX/QN03/wCi/+Jo0AmoqH7JZf9A3Tf/AKL/4mj7JZf9A3Tf8AwCi/+Jo0AmoqH7JZf9A3Tf8AwCi/+Jo+yWX/AEDdN/8AAKL/AOJo0AmorN1q1s10a/ZNP09GFvIQy2kSkHaeQQuQfetrUP8Aj/uf+urfzNAFeuP8T+Lb7R9XltbTR47+CBLJpmF35cpNzcPAixoU2sQUz8zoOeveultbW1kN9LNZ2k0puyu+a3SQ4EMOBlgeOT+dcZ4q8E3Wr+MLbV7YaMkMH9nhBNalpoxBdPK4icECIFWAwA27GDtAzRoAsPj6b7Zqk1xoV/HpFnpUep+esltIdhE7FspOwZWEShNuec7sAg0X/ibUYdRWwOq2FrdQyxWdwf7CvLmHz5Cvl/vldUj3rJEdhJ2lsb261Wv/AA/ezwePYdP0ee1jvtKe0tRNNGftM7PeSOy4dtqs1wpG/bjd0AHEuu+A2uPEN5rcf9mTO97baiqnTFe9BgEP7mK4aVQobyccjA3tn1p6Ab2leI9/gXSNd1GPM15a2shht1+/NMECxpuPGXcKNxwM8kDJqtpHi+W911dHufD+rWt0vE0xVGt0/wBcA+7cH8tmt5ArFFz8hIG9cx2GgXzfDXQdKkWOHUrG3sHaORvl823aKTyyy5wC0e3cA2M5AbGDS0rWpW8f39xc6bf29td2ttZIGsbtnSWN5Cd7CEwhczsN6ysvyA5Ib5UB1eian/aMVwksPkXtpL9nuoA28RybVf5WwNylXRgcA4YZCtlRpVi+GrK4gbVL68j8ibU7oXZtywYwAQxRKrMOC2IgxxkAsQCwAY7DxxSjbPBBMvXbNEsgB9cMCM+9ADqKh+yWX/QN03/wCi/+Jo+yWX/QN03/AMAov/iaNAJqKh+yWX/QN03/AMAov/iaPsll/wBA3Tf/AACi/wDiaNAJqKh+yWX/AEDdN/8AAKL/AOJo+yWX/QN03/wCi/8AiaNAJqKh+yWX/QN03/wCi/8AiaPsll/0DdN/8Aov/iaNAJqKh+yWX/QN03/wCi/+Jo+yWX/QN03/AMAov/iaNAJqKh+yWX/QN03/AMAov/iaPsll/wBA3Tf/AACi/wDiaNAJqKh+yWX/AEDdN/8AAKL/AOJpLBEjhvFijiiQXrYSJAij9zB0AAAoAWy/1V5/1+t/6IgqaobL/VXn/X63/oiCsbxgZmh0m3t7q4tDdanbWzywNtcI77WwSCM4PcGjdgb9FeKaR4ui1e9W3sH8VMHv4tNWZ9ZtTGJpjOIsskLZU+UhLJuADPjdtXzMaX4paWPM8qTxi2N2zdqcC7v9Ztz+4OM4hz1xvfrsG/dYWrLaLM3Vit2fQlFeUa/rmm6UuvrB4i1q+u9F3/abWHUSrjEzQ9Xswn32twcMcB5CN2weZyUvxS0seZ5UnjFsbtm7U4F3f6zbn9wcZxDnrje/XYN5HC1ZK6i/uB1Yrdn0JRXz3L8UtLHmeVJ4xbG7Zu1OBd3+s25/cHGcQ5643v12DeS/FLSx5nlSeMWxu2btTgXd/rNuf3BxnEOeuN79dg319TrfysXtodz6Eoryz4bavZePdXvdPsdV8VWTQRCVZJtQtnLAzbP9WIw33WjbIyAWKkjCl+1/4ROP/oa/E/8A31F/hWE4OD5ZaM0UlJXRvUVy0enHSvGXhe3j1vWb+G8unWWO8kQJtWNmAwoBPIHfHGMHNdTUtDCiuQkS3u/E2ujVdd1uwtrVbRba30wGSSaSRZCyrEsbu5xGWwo4Csx4BItzaf4ahjgkbxt4rMcqGR2Rd4tUDMpa4IgP2cBkkUmXZgxyA42Nh8ornSUVgto/h1L+4tZvG/ieHyPMD3MzrHbFowTIq3DQiJmQK5ZVYlfLkyBsbFrQvCul6554sfFfjBJYNpkgu1+yzKrZ2t5csCttO1gGxglWAOVOHyhzGpRTv+FbR/8AQ0+J/wDwJi/+NUf8K2j/AOhp8T/+BMX/AMao5Q5htFO/4VtH/wBDT4n/APAmL/41TZPh7FbRtOfEniObygX8uS5j2vjnBxGDg+xB96OULhRV3WZrfT1lla1DogkkYIkjtgO3CohyTgcAAk9qwk1xNQ8KyalbafLZO9s8ix3cMkU0LAHhkY8EEe4PUZBBM2GO1z/kC6h/17yf+gmtbUP+P+5/66t/M1ymnyyT/Dy2lnkeSWTSld3c5ZiYQSST1NdXqH/H/c/9dW/maOgFGy/1V5/1+t/6IgqaobL/AFV5/wBfrf8AoiCpqGCCiiikAUUUUAFFRXM8VtA807rHEg3M7dFHqah0y7j1W3sr+xuYjptxb/aEdo23SBlBj2jjbnOTkU7O1yeeLk4J6rW3rt+T+5luoDdwfZGullR7dVLmRDuGB16dehqWKKOPz3/etLK6tlpCVRQuNqr0HqTTy37uKMBVjiQRoqqFCqOgwKCihq+q2ej6VLqWqTG2s4o/Nd5EYFVxn7uM5x2xmrSzI1y8C7jKkYlbCnCqTgEnGOtR6rZ2ur20lvq1tDfW8mC8VyglVsEEZDZBxgflVpXdUZFZgrY3AHg49abtbQmPPd81rdP+CQpNG8skaSI0keN6hgSuemR2qSlVtkbxqFVXcSNhQCzAYBJ6njioDC0VlBBYvtkQKplunaXd83zMcc9CeB6CkUTUVU1fU7HSWi+2XKok86W0LFT+8d3CIAB6lh9Op4BNW6GmtyYzjJtRd7b+XXX5NMKKKKRQUUUUAFQ2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFNAFl/qrz/AK/W/wDREFY/ir/X+Hf+w3Zf+jRWxZf6q8/6/W/9EQVHe6fDqE1g1zLJEtpdxXi+WgYs0bblByRxnGfbjvkPqLofLuoalceHLN5IbjGsXmsRavESwkaFIRIYZSS8obzDOzDc7HbGrZdZFY5Ws6H9s1mGTw7b7tN1LM1qof5IMKHlhd2PHk5IZn2/KBIcKwNfU7+A/A8k5nm0KCacsHaSZZJGdgYzli0pLEmJck5zl858x90cXw98BReXt8O2h2bcbo5Gzt8vGcy8/wCqXOeuXznzH3erTzFQivd1OWWGbe55L4p8RyeJdB+Il5YnxPcaIeIbq81B5rEn7dblVjiMS+W21gQpYlVyMHrXiNfZEXw98BReXt8O2h2bcbo5Gzt8vGcy8/6pc565fOfMfcRfD3wFF5e3w7aHZtxujkbO3y8ZzLz/AKpc565fOfMfc6eYwpqyj+IpYZy1bPjeivsiL4e+AovL2+HbQ7NuN0cjZ2+XjOZef9Uuc9cvnPmPuIvh74Ci8vb4dtDs243RyNnb5eM5l5/1S5z1y+c+Y+7T+1o/y/iT9Ufc8p/ZQkx4p1mPzMbrWJtm/G7E6c7d4zjPXY2M/eTOH7Px14D1TX/ENhf6R4s1rR7YuFv7e3vJVV0A4aJQcI5wFPG3ndjIIfr9O8K+HtGtLmHw5HcaLJcRrE89lu34Xy8H55GUtiMfMQSCzkEM7E0/+ETj/wChr8T/APfUX+FeXiKvtqjqLS/+R1U4ckVEjuYVt/GngWCMyFIrmVFMkjSMQIGHLMSWPuSSe9dFWRpfhiystb0/U59c1y+kspDJFHciIrkqVPQA9Ce/pWvWDNEcnbHUl8U+I20XSpb+7D2A82AQGeyQxXIaaITsqGTBMYyePMJIcAo2hqvh3UpdM1610jw3fW0PiHQhpCRzXEDPZTB7vdNdN5zFw5ug5dDK7YcsNxAbe0CGHSdU1PUUmkafUBEsiGIFUEYYLj5gcnc2fw9Mnd/t3/a/8gf/AGdWmibHH/8ACJ3upSWugatpMraTBq2p6hc3ZnQQXNvdreKIo9r+aJMXig5RQNj4Y/Lu0Phppevpquqaz4lXUo7i8srO18nUpbSSZHiad32taqsZizOApIDkh8gDbXQf27/tf+QP/s6P7d/2v/IH/wBnT5kFjforA/t3/a/8gf8A2dH9u/7X/kD/AOzo5kFjfqDUP+PC5/65N/I1j/27/tf+QP8A7OmTayJYXjZyFdSpxBzz/wADpcyCxyPifwloL3d7f3NhqV7eStLMUh1GRC5DMAqgsFHQAZIA9hXOw+HvDl14YbVF0PWbCZrdpkt77UJRImASu9Vc47HGcjODg5A29Y0ObUdTuboeIdchSWRnSKOWNUjUkkKBs4Az7+5J5qi/hOSRGSTxHr7IwwytNGQR6H93U3HYXSf+SbWX/YJT/wBEiuu1D/j/ALn/AK6t/M1gXNnHp3hOWygLtFbWRhQucsQseBnHfit/UP8Aj/uf+urfzNIZRsv9Vef9frf+iIKmqGy/1V5/1+t/6IgqahggooopAFRtMguYoPmMsisyqqk8LySSBwBkdaJ/M8iTyNnnbTs3527scZx2zU4LQfKk4clArvGCgbIGRg84z60wKslnDPYS298ftqTlxLFNEpj8s9Ex/EMdc9adbQQ2ttFb20UcMESCOOONQqooGAoA4AA4xUtFFwsr3CisS4/4l3iW2lT/AFGqZt5EHadEZ0fHTlEdWPJOyIDgGtugAooopAFFFFAFW9sLO+Nub60t7k28qzwmaNX8qQdHXI4YdiOae7x2VmZbm4llYykn93woZgERQoyeuM9eanpVYqwZSQwOQR1FO4WS2BlKsVYEMDgg9RSUgEslxNJLNGIggKqVYyO5bk56AY/EmlpAFFFFABUNl/qrz/r9b/0RBU1Q2X+qvP8Ar9b/ANEQU0AWX+qvP+v1v/REFLcXEFsge5mjhQnAaRgoz6c0ll/qrz/r9b/0RBXI/FlVfw1bq6hla+gBBGQRup7sDpv7W07/AKCFp/3+X/Gj+1tO/wCghaf9/l/xryCw0XT7m58uS2t40CO7MsCscKpbgcenrUx0PRpLa4kto1Z4UDlZLNFBG5V6hj/e9KfKhXPWf7W07/oIWn/f5f8AGj+1tO/6CFp/3+X/ABrxf+zbH/nytv8Av0v+FH9m2P8Az5W3/fpf8KOUOY9o/tbTv+ghaf8Af5f8aP7W07/oIWn/AH+X/GvF/wCzbH/nytv+/S/4Uf2bY/8APlbf9+l/wo5Q5j2j+1tO/wCghaf9/l/xo/tbTv8AoIWn/f5f8a8hh8P200SyJa6aFPZ3hQ/kSDTLvRbO1lCNbWEhKhsxBHHPbI7jp/8AWo5UFz2H+1tO/wCghaf9/l/xo/tbTv8AoIWn/f5f8a8X/s2x/wCfK2/79L/hV9NA0guokn0xUz8xW3ckD2GwZo5Ques/2tp3/QQtP+/y/wCNH9rad/0ELT/v8v8AjXjL6ZYK7KtraOAcBliGD7jIzUtjo1jdXtvb/ZbZPNkWPd5KnGTjOKOULnsP9rad/wBBC0/7/L/jR/a2nf8AQQtP+/y/415f/wAI3on2fzuNvk+fj7CmdvmeX/f65/Ss6+0axtb24t/sts/lSNHu8lRnBxnFHKguew/2tp3/AEELT/v8v+NH9rad/wBBC0/7/L/jXjlvpmls5FzbRRpjgx2yOc/QkVa1HQ9GtJZ4UjWSeJymDZoqkg4PO4n9KOULnrP9rad/0ELT/v8AL/jR/a2nf9BC0/7/AC/414v/AGbY/wDPlbf9+l/wq1Z+H4rrDRaUJId21nitQ+PXt1x2zRyhc9e/tbTv+ghaf9/l/wAalt7+zuZRFbXdvLKQSEjkDE4GTwD6AmvIL3wyLJpfP0lBHGxUy/ZvkPOMgkdDXTfCe0toPEdy0FvDExsZgSiBTjA9KOULnaa5/wAgXUP+veT/ANBNa2of8f8Ac/8AXVv5msnXP+QLqH/XvJ/6Ca1tQ/4/7n/rq38zU9BlGy/1V5/1+t/6IgqaobL/AFV5/wBfrf8AoiCpqGCCmyMEjZznCgk4p1NCSPcp+9ijt1Ry+5SWZuNoXHA75JoW+oppuLUXZmV4V1jTfEOmf23pkQkjud9vHPIPmKRyspK4JABKk+pGM46Vr0UUMErKzCiiikMo61Yf2lpk1ssnkyna8Uu3d5UqsGjfGedrKpweDjB4o0W//tLTIblo/JlO5JYt27ypVYrImcc7WVhkcHGRxV6sSz/4l3iS4sV/4976N72JR/yzdSqzDHQBi8bDGSWaUk8imBt1m+MdYXQ10C3JYS3JuLiRTgKyLEcLnsS2zGOeD9Dr2sJuLiOJc5dgMgZx715t4v1dNY+LU9pF5ZsoFj00hFK7lWRWdTnuHLDIxwBj1OlKHNdvojlxVXk5Ip6yaX6v8FY9EooorI6gooooAjniSeCSGVd0cilGGcZBGDWdqniDT9P13R9HeMRXOpF47aGFQFVY4yzE5PAAUDvyw9yNWo5xM0e22eJJSyjdKCVUZGSQOTxmqTXUmak7crt/WxJRTpAqyMEbeoJAbGMj1xTakoKhsv8AVXn/AF+t/wCiIKmqGy/1V5/1+t/6IgpoAsv9Vef9frf+iIK5L4rf8i5bf9f0H/oVdbZf6q8/6/W/9EQVi+L40mbQIpkWSJ9aslZGGQwMoyCO4prcXQ4PQ5BFqAczCD91KBISRtJjYA8c9cdOauvcyNp9+k+ri73RKFjLyHnzEORvAHQH3r3j/hHND/6A2m/+Aqf4Uf8ACOaH/wBAbTf/AAFT/CrsSfNdWob6WGJY0S2Kju9vG5/MqTX0V/wjmh/9AbTf/AVP8KP+Ec0P/oDab/4Cp/hTA+dbm/nuYFhk8kRqxcBIUTBIwfugeg/IelVa+lP+Ec0P/oDab/4Cp/hR/wAI5of/AEBtN/8AAVP8KAPndLSFkVm1C1QkZKssuR7HCYqK5hjh2+Xcwz5znyw4x9dyivo3/hHND/6A2m/+Aqf4Uf8ACOaH/wBAbTf/AAFT/CgD5tRS7qi4BY4G4gD8SeBWui3yIqL/AGUQowNxtSfxJ5Ne9/8ACOaH/wBAbTf/AAFT/Cj/AIRzQ/8AoDab/wCAqf4UAfOF1Cbe4eIvHJtON8bhlb3BFT6O6x6vYvIwVFnQszHAA3Dk19Ef8I5of/QG03/wFT/Cj/hHND/6A2m/+Aqf4UAeExvZ5lSW8tjbND5CIjSqyrvD/eMRycg547nGBgVm6w6yavfPGwZGncqynII3HkV9Ef8ACOaH/wBAbTf/AAFT/Cj/AIRzQ/8AoDab/wCAqf4UrAfPmhpKb1DHdfZY9yrLILhYmCE84yRnp79qv38l5d6feG8uoHczrMsYu0YKAJNwUbj6rx16V7p/wjmh/wDQG03/AMBU/wAKP+Ec0P8A6A2m/wDgKn+FFgPmurVr5cUE00uxmKmONDg/MRgsR2ABOD/exjODj6K/4RzQ/wDoDab/AOAqf4Uf8I5of/QG03/wFT/CmB86y+XLZJKNiTxsI3UYG9cfKwHqMEE/7vck103wu/5GG5/68pv5CvVLS18J3es6hpNrY6RLqOnpFJdQpbITCJdxj3HGASEJx1xg4wwzYvNJ06wj82x0+0tpSrqXhhVCR5bcZA6cCkxnIa5/yBdQ/wCveT/0E1rah/x/3P8A11b+ZrJ1z/kC6h/17yf+gmtbUP8Aj/uf+urfzNZ9CijZf6q8/wCv1v8A0RBU1Q2X+qvP+v1v/REFTUMEFQ2ht3jlngkaczuGEgm3IqgY2qOg55J9adPKkEEk0rbY41LscZwAMmpAxaCBQnlxpGqxp5ezamMgbcDHWgAooopAFFFFABWP4phkOlm9tY3kvNPb7ZAiKWaRlUhowPV0LpnBxvyBkCtiimBZ0m8t7eyudaLGeytLVrrfAQ29dpPy84OVzjnHTmvCPh7G+o+KUmuJXe4aUStK5LMxGXOSTySV616hBpy3dhqvgy6mSzsEMOpyXLIcR6czOQgfARHWWF1UH5RFtI3EMBxHgO2tX8b302jjOmpcTGHrxCNwQ/Nz0ZevPrXVC0aMu7PJxClPHUuyv99v00+89VooorkPWCiiigAooooAhtjbxxpa28jPJAgWUyTeZIWOTub0z6VNTI50Es1pGPnwLiXbH/wAFmx7YAJ7U+mAVDZf6q8/6/W/9EQVNUNl/qrz/r9b/wBEQUIAsv8AVXn/AF+t/wCiIKx/FX+v8O/9huy/9Gitiy/1V5/1+t/6IgrH8Vf6/wAO/wDYbsv/AEaKa3F0PXKKKz5tb0qDWYNIn1Oxj1a4QyQ2T3CCeRBuyyxk7iPlbkD+E+hrQk0KKKKACis/Tdb0rVLq9tdM1OxvLmxfy7qK3uEke3fJG2QAkqcqwwcdD6VoUAFFFRQ3ME8k8cE0Uklu4jmVHBMblVYKwHQ7WVsHswPcUAS0UVn63relaDapda5qdjpts7iNZby4SFGcgkKCxAzgE49jQBoUVV0vUrHV7CK+0q9tr6ylz5dxbSrLG+CQcMpIOCCPqDVqgAorP1vW9K0G1S61zU7HTbZ3Eay3lwkKM5BIUFiBnAJx7GtCgAorifiV8SdH+Hv9nf21bahP9v8AM8r7JGjY2bc7tzr/AHxjGe9c/b/G3TbnSTqlv4S8Zy6YEaQ3cemq0IVc7m3iTbgYOTnjBrWNCpKPMloQ5xTs2erUUUVkWcrp0OoL8TdcupdLuY9Nm0yzt4b1pIjHJJFJcOwChzIOLhQCVAyj/wCzu29a/wCPZf8Agf8A6Lekh1vSp9Zn0iDU7GTVrdBJNZJcIZ40O3DNGDuA+ZeSP4h6il1r/j2X/gf/AKLekwRwWuf8gXUP+veT/wBBNa2of8f9z/11b+ZrJ1z/AJAuof8AXvJ/6Ca1tQ/4/wC5/wCurfzNZ9CyjZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFTUMENkYrGzAFiASAO9Z3hzWLjXtJj1G8sruxlleRfIu1ZZQqyMqswYAjcqhsEcbu/Wr86u8EixSeXIykK+M7Tjg471KyomFjeSRQoG+QAMxxySBx1zRdWsTyvn5r6dv17iUUUUigooooAKKKvaJAZ9Si67UO84PTHT9cUwPPPjZr8dtqltpEAiiuY9MkhluoZWLIsrIzQbQeA3kR5zzhh0G4NjfCZSl1hhg/ZmP4F1Irkdf1BvFPjLUNRcuYp5mdd6hWEQ4RSBxkKFHGfXnrXsfhfR10mx+bJuZgGlyeh/ujtxk896666VOCgjxsunPFVp4mWyvFel7/16vXRGzRRRXGeyFFFFABRRRQBlahrNzZa1pemQWF3PDqDOJriNW8q3VEZgXIBGSwVQCRnccdMHVpqR/vpZJJ5NvlhY4VVdu7PLE9enGKdTbT2JhFxvd3/rYKhsv9Vef9frf+iIKmqGy/1V5/1+t/6IgoRQWX+qvP8Ar9b/ANEQVj+Kv9f4d/7Ddl/6NFbFl/qrz/r9b/0RBWP4q/1/h3/sN2X/AKNFNbi6HrledahLYzeN7rS7nTtXtrNtQtr2Z49Nupk1C7VIfKfzlRo44Y/Lhz8ylnjO7aqt53otZ82t6VBrMGkT6nYx6tcIZIbJ7hBPIg3ZZYydxHytyB/CfQ1oSaFFFRNcwLdR2rTRC5kRpEiLjeyKVDMB1IBdAT23D1FAHC+Gk+0+OLa4srDUrbT7LTJrQ217Y/ZY9MYtbhYLchVWVW8pyzK0ygxJsZVYB+/rP03W9K1S6vbXTNTsby5sX8u6it7hJHt3yRtkAJKnKsMHHQ+laFAEV2s7Wsy2ckUVyUYRSSxmRFfHBZQylgDjIDDPqOtedfBvTtS0O78WaVqem/ZPLvbedJxLLOLtmtIUeXzmhiWVmaIs7Dkuz7gOGf0VbmBrqS1WaI3MaLI8Qcb1RiwViOoBKOAe+0+hotrmC6jMlrNFNGrvGWjcMA6MVdcjuGUqR2II7UAS1yvxCtI5rPS7uSfW7VtPvftCXOj2yXM0LGGWLJiaOQupEpXCoxBYHhQzDqqz7vW9Ks9Mm1K81Oxg06B2jlupbhFijdX8sqzk4BDgqQT97jrQBV8G3Go3Ph23l1gS/aS8oRpo/KkkhErCGSRMDbI8QjZl2rhmI2pjaNqorS5gvLWG6s5op7adFkilicMkiMMhlI4IIIIIqWgDzr4naa9xr+j3dxPq9vpI0++sbqTTNPW/dzM9sVieEwzZjZYpMnZj5QCw3AN2vh6XUZ9A0yXXIIrbVpLWJ7yGI5SOYoC6qcngNkDk/U1FqHiPQ9O0q21PUNZ0200252+Rdz3SRwy7lLLtcnDZUEjB5AzWrQB82/tjf8yj/wBvn/tCvErC/wBngfWEa7zdtLaWMUTyZP2QtPPIqKTwvnRwsSBwT1+c5+6PEWk6BqMcEniSw0u6jicRwtfwxuEeRlUKpccFm2LgdTgelZs3gvwRBJBHP4a8NxyXDmOFXsIAZHCsxVQV5O1WbA7KT2NejRxsadNU2tv87nNOi5SckzqaKKimuYIJII55oo5LhzHCruAZHCsxVQep2qzYHZSexrzjpPL9DsL5fGVhA8Gpf6LrV/ey2clqy2VpFILrZcw3GweZLJ50e5DLIB58mI02Dy/Rta/49l/4H/6Leqlt4s8OXWsnSLXX9Im1ZXeM2Ud7G04dM718sNuyNpyMcYPpVvWv+PZf+B/+i3pMEcFrn/IF1D/r3k/9BNa2of8AH/c/9dW/maydc/5Auof9e8n/AKCa1tQ/4/7n/rq38zWfQso2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFTUMEFQ2xt440tbeRnkgQLKZJvMkLHJ3N6Z9KmpI2k8z7NBbuyy7p5ZERQF2qBl269MADmgBaKKKQBRRRQAVlfETUW0T4bahIhkWfUpFso2UKw2nJbOegKiQZ65I6da140aSRUQZZiFA9Sa83+NN8mo+LrLQoY9ttpMWXYjBZpArHkHkY2dgcluvFb4eKc7vZHDmNSUaLhD4paL5/8AzPhdovn3i3Uo+SLEp57/wAA6/Vvwwa9ZrL8Nab/AGXpMUDDEzfvJf8AePbqegwOPStSs6k3OTkzow9COHpRpR2QUUUVBsFFFFABRRUc8jRR7o4ZZ3LKqxxDLMSQOM49aAG2ht3jlngkaczuGEgm3IqgY2qOg55J9amp8oaPZAyqggXylRVACgduKZTAKhsv9Vef9frf+iIKmqGy/wBVef8AX63/AKIgoQBZf6q8/wCv1v8A0RBWP4q/1/h3/sN2X/o0VsWX+qvP+v1v/REFY/ir/X+Hf+w3Zf8Ao0U1uLoeuV5V4wsNSHjB9N0gXL2+panpmsXKyaVLJGzRTQrIEu1cRxbIrNHKSKSS2FJLhV9VorQkK4rUUhj+MWh3CWFyZX0W8tpr2OxkaPma3eKN5wu0f6uchS3BPYuN3a0UAeYfDi1uxdeDbeWxvoJPD/hyXS9QNxbSQolwTZgLG7gLMP8AR5fnjLL8oOfmXPp9FFAHFaKkMPxc8UNDYXMP2nTLDzLr7DJHDPLG9xu/fbQjsElgH3icDH8DBT4QpDD4QltrawudPt4dT1DybeexktNkT3cskW2N1UhfLdMYGB04IIHa0UAFeQaHcQaT4EsHsvD+pRS2fiC//s9Do92q2Kyy3RSdrdEEjRCCYgKq4LOqExnLJ6/RQBi+DYbKDw7bjTftxgd5Zme+t3gnkleVnlkeN1QqWkZ2wFVfm+UBcCtDVhatpV6NQt/tNkYXE8HkGfzY9p3L5YBL5GRtAJOcYOatUUAeYeHJ0sPhb4PW8tPEGm30WkxWJvrPR2mu7J0WISRGJopHUOYjyYyhEYO4Exk9r4ItJ9P8F6BZ3lnFY3Nvp9vDLaROXSB1jUGNWLMSFIIBLNnHU9a2qKAOK+LKQnw/pkslhc3stvrWnXMQtrGS6ki8u6jeSQLGrMuIllG7A4JXqwBxfG2mazD8TvCmuJZRahYpqEVukiNMXsY2t7lJCY1ifAZpVLS7lU7IEZVCGWvT6KACuK8dJCvi/wABXJsLm4uINTmzcQWMk32eJ7SaM7pEUiNWkeDO4gHGTwhI7WigDzrQI73SvFy6fpM3iCS0l1C8nv7TUbJFtbaKUzTebBcLEoctM0WE812CSsGQFTs7bWv+PZf+B/8Aot6v1Q1r/j2X/gf/AKLekwRwWuf8gXUP+veT/wBBNa2of8f9z/11b+ZrJ1z/AJAuof8AXvJ/6Ca1tQ/4/wC5/wCurfzNZ9CyjZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFTUMEFNkLCNigBfBwD606ihOzuKUeaLV7XMrwzc6pd6NFPr1klhqDvLutlcP5aeYwjyVZgTs2k4PUnp0rVqGQQ2/wBpu/swluDDs3Ku6TapLbV56k/nU7JJHgTRtFJtBKNjK5GcHHfmh9wSsrCUUUUhlmzmhsYrrU7shbWxiaaQkZ6A44HPv0PSvK/BWmTalr82ragoE0z/AG+YAYUPIS6AYY8YO79CK7LxqY59JttKkUNDM5vLxdh3GCLDEA5HU7B1/wCWhOOM1Y0Gzey08Cc5upmM059Xbk9OOOBxxxWvNywsupzOHtK/M9o7er3/AA/NmjRRRWR0hRRRQAUUUUAFZGpXOrR67pNvY2KTabM0hvblnUGBRGxUAbgSWfYOAcAHOOCNGSM3f2m3e2le3EOZZOiYYlduc5z9KnbZwIoo4Y1UKqRjCqAMAAfhVJ2JlHmtrawlFFFSUFQ2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFNAFl/qrz/AK/W/wDREFY/ir/X+Hf+w3Zf+jRWxZf6q8/6/W/9EQVj+Kv9f4d/7Ddl/wCjRTW4uh0XxjutOsvDel3Oq30VlHFrumSI8tz5KMVvIi27kBwIxI5DZA2bsfKCOU1Bktfi7dX16dIudUh1a2j0yxngYak1tLbQwyS28nmZ+zoZbmRk8tk3RzElWyyey0VoSFcLqd1p0Hxs8PxPfRLqM+hX8YtnueSPPtmTbETgEhJjkDLCM5JCcd1RQB518NvCmgaJ4q8VS6Lo9jp7WD2+jQ/Z4QCYUtopyzMcs0jNcEMxPzCKPPKkn0WiigDyrW7y1j8ZfEu30y6ubnV28M2sv2OxvT9r8xRefLCPmMTYeEjauA0qttJf5rfwkjsYtV12PRbjRLvTfJtWE/h63W304ylp96CNXkHnhRGXbfko0IKrtBb0qigArxCxn0Sf4UJdR6jpF/ommeI777RDqV40tpdpJeXEcSXE2JTjNxBMHdXyVRjgHePb6KAOQ+EzTt4GtWuI4olN1eGCOGQyQrb/AGqXyRCxVd0Ii2eWQoBTbgAYFWviPc6VaeDr2fxBNLFpaPCZlR0Xzv3yYhcv8nlyHEb7yF2u24quSOlooA8QsY/ByXWkvq9/4WufCUqX8ktuk0Mmj2V6TZ+VBFu/diQRidhkKzF53CqHKj0/4e/bv+EB8Nf2v9p/tL+zLb7V9q3ed5vlLv37ud27Oc85zmugooA86+LNz4ciutHt/Ec2kGa4SdbWDXHj/s9OYt9zIsmA8kYwqKpDHzmHyqXkSKxn0ez+Jvgy2t9d/tC4k8M3UMMlxfiaS6jElo0cuM4ZnVJWLqMuEJ5CcelUUAFeVfE6XwrL4qjsNc1XTbHUpbKN0u9TuYov7Mi3yfvrPfgi5dsjepwvko7fcRJPVaKAPKvDUvhW8+I8x03VdNTV7W9u0lZ7mL+09RlzIHhcDEn2aEEhUYEnyY2GEiVpfRta/wCPZf8Agf8A6Ler9UNa/wCPZf8Agf8A6LekwRwWuf8AIF1D/r3k/wDQTWtqH/H/AHP/AF1b+ZrJ1z/kC6h/17yf+gmtbUP+P+5/66t/M1n0LKNl/qrz/r9b/wBEQVNUNl/qrz/r9b/0RBU1DBBRRRSAKaI91yjvPIkSI+Y0VT5jHG3JPQDnpTqKAI4JknRni3FFkaIsVIBZeCBkc49qkqvqj3zaZMmnvGbtUb7Os7ERh+2cAkAnrgVBoaakmnaba6kDd6ktoDeXMKgReYiDe3bALZwAPwFVbS5Kk+Zxt216ddPlbX1RPPbLM4ZskbkLKSxHyksuBnAO7BzjkDB7YsVGk0byyRpIjSR43qGBK56ZHapKRQUUUUgCiiq5uVe2Wa1VrsMwVFt8OXJbbxzjr79jQBYqvu+2wN9nnlhUS+WZhFkgqw3hdwwe4z0ql4kt9bL2UWiy2sDJeRfbDOefIVwZFT5WBYgFe33icggVrs7siozMVXO0E8DPpVNWJjJybVrW/HRO6/L1TCTZ5jeXu2ZO3d1x2zTaKKkoKKKKACobL/VXn/X63/oiCpqhsv8AVXn/AF+t/wCiIKaALL/VXn/X63/oiCsfxV/r/Dv/AGG7L/0aK2LL/VXn/X63/oiCsfxV/r/Dv/Ybsv8A0aKa3F0Nf4s3PhyK60e38RzaQZrhJ1tYNceP+z05i33MiyYDyRjCoqkMfOYfKpeRMXVovDsWq+GRpGp22pa7FNp6CadjNqt7b7oAJre4Jz5Hl+Y8pjRo5F88ZRjIw9forQkK8q1aXwrdfFB7WbVdNtddgvbaR7m8uYkvUbZEY7KzBxIInGGk6q3nyIu5pHMXqtFAHlXw+u9Qi+LPiay1+C5j1W70y3uiZbmJ4zGl1dqohUSFvKVZI0DbEJKF5FR5AG9VoooA8Q1K18JeItT8S6fZa3Y2upsmp2s86lJ9WvpHSZZImhTEslvAGISIgs5hjK4WNWl6r4Tf2VHdaxb6HB4WntlSCRtU8N2KW1vO7GUGBgryAyRhQx+fpOvyr1b0WigDK8WSWsXhXWZNQvrnT7JLKZp7y1YrNbxhDukQgEhlGSCATkDg14reL4fu9NtbjQtQ8I6fotxqcR1LTkEN1pdjALa68tryOKRYzLJL5YLbgu9IFUuYg7+/0UAc18N5Uk8EaVHBBFDbWyNZ2/kljHLDC7RRTR7ix8uREWRcs3yuPmb7xPiPc6VaeDr2fxBNLFpaPCZlR0Xzv3yYhcv8nlyHEb7yF2u24quSOlooA8Q1Twz4S1jwA08C+H9VWfUItORdNdJ7TSRez2sEyWoHypIq7ZA5UEyMz7VEhSvarS2gs7WG1s4YoLaBFjiiiQKkaKMBVA4AAAAAqWigDzr4s3PhyK60e38RzaQZrhJ1tYNceP8As9OYt9zIsmA8kYwqKpDHzmHyqXkTjzFYx+LLQ2+p22o3sV7pcdhJcss+r31r5dtuuLa5BBFsQZWlVY3V9t0d6+YdnutFABXlXxOl8Ky+Ko7DXNV02x1KWyjdLvU7mKL+zIt8n76z34IuXbI3qcL5KO33EST1WigDxrT1S1+LtrY2Q0i51SHVrmTU76CdhqTW0ttNNHFcR+Xn7Ohlto1fzGTdHCAFbCp6trX/AB7L/wAD/wDRb1fqhrX/AB7L/wAD/wDRb0mCOC1z/kC6h/17yf8AoJrW1D/j/uf+urfzNZOuf8gXUP8Ar3k/9BNa2of8f9z/ANdW/maz6FlGy/1V5/1+t/6IgqaobL/VXn/X63/oiCpqGCCiiikAUUVj6pr0VhqUdgLLUby6eIzhLK2achAdpJC8gZI/MUwNiisH/hIZP+hd8T/+CqX/AAo/4SGT/oXfE/8A4Kpf8KLMLm+rbI3jUKqu4kbCgFmAwCT1PHFQGAR2CW9rJKkixFPOlfzWL8/Oc/Xp04rH/wCEhk/6F3xP/wCCqX/Cj/hIZP8AoXfE/wD4Kpf8KdmF0WfFkGrPoNzD4VuYU1QxhIZ70AKGxguQqsMjkgYIyADxWmkf76WSSeTb5YWOFVXbuzyxPXpxisP/AISGT/oXfE//AIKpf8KP+Ehk/wChd8T/APgql/wpu7VrERiotyvv5/l2NyKKOPz3/etLK6tlpCVRQuNqr0HqTTy37uKMBVjiQRoqqFCqOgwKwP8AhIZP+hd8T/8Agql/wo/4SGT/AKF3xP8A+CqX/ClZl3RvUVg/8JDJ/wBC74n/APBVL/hTo9flkkVB4f8AEa7iBuk0yRFHuWIAA9ycClZhc3KKsNZyhnGY8I5TJkVQSOuMkUfZJP70H/f9P8aLAV6KpaRqMGq2Iu7Tf5LPIilhgnY7ITj0JUke3pV2kAVDZf6q8/6/W/8AREFTVDZf6q8/6/W/9EQU0AWX+qvP+v1v/REFY/ir/X+Hf+w3Zf8Ao0VsWX+qvP8Ar9b/ANEQVU1fTp9Rn0j7P5YFrqNvdyGRwg2RuGbGep4wB6n0yafUXQ6rxpYHVI4bW3upWvgjzQaemrS6aLjDIrSNLCDLhA+MDK5kG4Z2MvnWg6zfapoieJH1fUri9g1PRLKCVpGt45ILmLTzL5lqjGEs/wBqmOSGKlhtb5EI9L1uHRNetUtdc0ux1K2RxIsV4kEyK4BAYBiRnBIz7miaHRJ9Zg1efS7GTVrdDHDeukBnjQ7sqshO4D5m4B/iPqau5NjfrgPGIktdbs9WsdTuX8rU7Syu9movtsxLLAiwi0XEUnmCYlnlO9BKHUttjUdh/akP93/yLH/8VWfNDok+swavPpdjJq1uhjhvXSAzxod2VWQncB8zcA/xH1NFwsVPBUl0da8aw3d9c3iwa0Fh89gfKjaztZBGoAACgu2BjPcksST1VYGmw6Jpd1e3WmaXY2dzfP5l1LbpBG9w+Sd0hBBY5Zjk56n1rQ/tSH+7/wCRY/8A4qi4WL9FUP7Uh/u/+RY//iqP7Uh/u/8AkWP/AOKouFi/RVD+1If7v/kWP/4qj+1If7v/AJFj/wDiqLhYv0VQ/tSH+7/5Fj/+Ko/tSH+7/wCRY/8A4qi4WL9FUP7Uh/u/+RY//iqP7Uh/u/8AkWP/AOKouFi/RVD+1If7v/kWP/4qj+1If7v/AJFj/wDiqLhYv0VQ/tSH+7/5Fj/+Ko/tSH+7/wCRY/8A4qi4WL9UNa/49l/4H/6Lej+1If7v/kWP/wCKqrqF7FcQYXau0OcmRD/Aw7MT1IobGcZrn/IF1D/r3k/9BNa2of8AH/c/9dW/maydc/5Auof9e8n/AKCa1tQ/4/7n/rq38zWfQoo2X+qvP+v1v/REFTVDZf6q8/6/W/8AREFTUMEFFFFIAqj4c/5KzF/2BJv/AEfFV6odEs5oPHI1l/L+xppz2mDKocu0qPwCRwAnX3GM84qO4M9Eoqh/akP93/yLH/8AFUf2pD/d/wDIsf8A8VV3IsX6iu1na1mWzkiiuSjCKSWMyIr44LKGUsAcZAYZ9R1qr/akP93/AMix/wDxVQ3d7bXVrNby+ascyNGxiuVjcAjB2urhlPoQQR1BouFjirbV9Z1HwD4M1GbWLm2k1DTIZZjp8MDXt7evFGyRxJLG0QUjz2c4XbtVtyormu60ttV+y6cuqx2JuTag3sltI4RbjCZESsuTGSZOWYEYXg5JXlf+EV8NLYaTZwxalBFpUMltZtb63NFJFE5UtH5izhmX92mFYkAKAMAV0FtLZ2/2Xyzcn7NCbdPMvvMyp28vukO9vkHztluW5+ZslwscffeIdZ8Karqa6rdXOpommT30aXMcEEM0qNCMWzRAmGBWm2yNcklAUYMyrK9avw08RXXiLwg14mo6brV7Fqd1ayz27iKExpduqlQu/H7jYyqSSwKZb5t9W9E0vQtEunuNOtZUkKGKMSXvmpbxkgmOFHkKwx/KvyRhV+RBj5VxLp9ppOn21zBZR3MUVxetqEijUD/rmkEjFf3vyqz5JRcIdzAjDMCXCxz+oXevWXje6l1e88QWfh5tQtobKS1TT2s2R0hRY5Aytc5e4Z0JUcBlOVALCl8N/Emq6zYef4hm1JJdZ0dNStLW6gtRCABmdrd4WLeV+/gAWfDgYOWJbb1FzpehXOsjVJrWU3O9JWQXu2CSRMbJJIRJ5byLtTDspYbEwRsXEWnaPomlG4k0y2kjlkhaCIS3vmpbxnH7uFHkKwx8L8kYVfkQY+VcFxmL4hHiqbU7lNFsdMlskmcq80ku8scZyFQgdBxk+vfA5vS/Dni7TLzUbqz0zTRNqEonuDJe3koZwMZCupC8AD5QOFUdFGN/xJrWpw6jPb6f4fnvrdZXcXC3UKK+7HQFs4GOpx/U8xpcutadeajcx+HdYma9lEpS51eOVIePuxKzkIucnA9cdAoEDNbwFD9n8MW8RmgmKzXG54GLJnznyASATg8ZxzjjiuhrB8EWVzp/hq3t76EwXAkmdoyysVDSuw5UkdCOhrepPcYVDZf6q8/6/W/9EQVNUNl/qrz/AK/W/wDREFCALL/VXn/X63/oiCpqgjiuo/PERsSkkxmHmzSKwyiJggRsP4M9e9Lsvf8AqG/+BEv/AMZoaAmoqHZe/wDUN/8AAiX/AOM0bL3/AKhv/gRL/wDGaLBcmoqHZe/9Q3/wIl/+M0bL3/qG/wDgRL/8ZosFyaiodl7/ANQ3/wACJf8A4zRsvf8AqG/+BEv/AMZosFyaiodl7/1Df/AiX/4zRsvf+ob/AOBEv/xmiwXJqKh2Xv8A1Df/AAIl/wDjNGy9/wCob/4ES/8AxmiwXJqKh2Xv/UN/8CJf/jNGy9/6hv8A4ES//GaLBcmoqHZe/wDUN/8AAiX/AOM0bL3/AKhv/gRL/wDGaLBcmoqHZe/9Q3/wIl/+M0bL3/qG/wDgRL/8ZosFyaiodl7/ANQ3/wACJf8A4zRsvf8AqG/+BEv/AMZosFyaiodl7/1Df/AiX/4zRsvf+ob/AOBEv/xmiwXK+uf8gXUP+veT/wBBNa2of8f9z/11b+ZrLvrW9urK4t9+mp5sbR7vPlOMjGceVWleOsl5O6HKtIzA+oJo6AU7L/VXn/X63/oiCpqgjiuo/PERsSkkxmHmzSKwyiJggRsP4M9e9Lsvf+ob/wCBEv8A8ZoaAmoqHZe/9Q3/AMCJf/jNGy9/6hv/AIES/wDxmiwXJqKh2Xv/AFDf/AiX/wCM0bL3/qG/+BEv/wAZosFyaiodl7/1Df8AwIl/+M0bL3/qG/8AgRL/APGaLBcmoqHZe/8AUN/8CJf/AIzRsvf+ob/4ES//ABmiwXJqKh2Xv/UN/wDAiX/4zRsvf+ob/wCBEv8A8ZosFyaiodl7/wBQ3/wIl/8AjNGy9/6hv/gRL/8AGaLBcmoqHZe/9Q3/AMCJf/jNGy9/6hv/AIES/wDxmiwXJqKh2Xv/AFDf/AiX/wCM0bL3/qG/+BEv/wAZosFyaiodl7/1Df8AwIl/+M0bL3/qG/8AgRL/APGaLBcmqGy/1V5/1+t/6Igo2Xv/AFDf/AiX/wCM0+2ieGCXzngaWW4aXbCzMFHlxqOWVefkPagB9FFFIAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooAKKKKACiiigAooooA//9kN
            
          
          
            1
            2
          
          
            1234
            colala.cn
          
          
            2324
            dev.mo.cn
          
          
            2323
            
              2
              3
            
            
              1
              4
            
            
              122
              65444784
              65444784
            
            
              234
              65444782
              65444782
            
            1223
            1
          
          
            2334
            
              2
              3
            
            
              1
              4
            
            
              122
              65444784
              65444784
            
            
              234
              65444782
              65444782
            
            1223
            1
          
          
            张艾恩
            0571-87756824
            13963961834;13063961834
            i@baiboke.com
            i@baiboke.com
            1034555083
            1
            371323134609029115
          
          www.dev.mo.cn;www.colala.cn
          备注
          2009-9-18
          2009-12-18
        
      
    
  

C#版本的备案接口pwdHash生成代码(测试通过)

zhanghuiguoanlige@126.com — 2010-2-21 18:40:00

为了方便查看，代码放到类里面去了，关键的代码就是Hex2Bin函数和EncodeBase64,EncodeBase64直接接受的就是Hex2Bin生成的字节数组

using System;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Text;
/// 
///PWDHASH 的摘要说明
/// 
public class PWDHASH
{
    //测试函数
    public string Test()
    {
        string Password = "123";    //用户口令
        string RandStr = GetRandomString(20); //获取长度为20的随机字符串，即传递给省系统的randVal参数
        return pwdHash(Password, RandStr);    //获取Hash，即传递给省系统的pwdHash参数
    }


    //生成Hash的函数，参数为用户口令和随机字符
    public string pwdHash(string PassWord, string RndStr)
    {
        return EncodeBase64(Hex2Bin(MD5(PassWord + RndStr)));
    }

    //MD5，参数为字符串
    public string MD5(string str)
    {
        return MD5(str, 32);
    }

    //MD5重载
    public string MD5(string str, int code)
    {
        if (code == 16)
        {
            return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower().Substring(8, 16);
        }
        else
        {
            return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower();
        }
    }

    //16进制字符串转字节数组，参数为md5后的字符串
    public byte[] Hex2Bin(string str)
    {
        byte[] byt = new byte[16];
        int k = 0;
        for (int i = 0; i < 31; i++)
        {
            if (i % 2 == 0)
            {
                string HexCode = str.Substring(i, 2);
                byt[k] = (byte)Convert.ToInt16(HexCode, 16);
                k++;
            }
            i++;
        }
        return byt;
    }

    //base64编码，参数是字节数组
    public string EncodeBase64(byte[] bytes)
    {
        return Convert.ToBase64String(bytes).ToString();
    }

    //获取len长度的随机字符串
    public string GetRandomString(int len)
    {
        string Seed = "abcdefghijklmnopqrstuvwxyzABCDEFGHIGKLMNOPQRSTUVWXYZ0123456789";
        string ReturnStr = "";
        Random Rnd = new Random();
        for (int i = 1; i <= len; i++)
        {
            ReturnStr += Seed.Substring(Rnd.Next(62), 1);
        }
        return ReturnStr;
    }

}

PHP生成分页字符串（可以准备好鸡蛋和砖块）

zhanghuiguoanlige@126.com — 2009-12-10 16:17:14

//生成分页字符串
function createPage($url, $CurrentPage, $TotalRecord, $PageSize){
$pagecount = intval($TotalRecord / $PageSize) + (($TotalRecord % $PageSize == 0) ? 0 : 1);
$PageStr = "\n";
$PageStr .= "共[$pagecount]页当前[$CurrentPage/$pagecount] {$PageSize}条/页   ";
$PageStr .= $CurrentPage <= 1 ? "首页  " : "首页  ";
$PageStr .= $CurrentPage <= 1 ? "上一页  " : "上一页  ";
$PageStr .= $CurrentPage >= $pagecount ? "下一页  " : "下一页  ";
$PageStr .= $CurrentPage >= $pagecount ? "末页  " : "末页  ";
$PageStr .= "转向第";
$i = 1;
while($i <= $pagecount){
if($CurrentPage == $i){
$PageStr .= "" . $i . "";
}else{
$PageStr .= "" . $i . "";
}
$i++;
}
return $PageStr . "页\n";
}

企业网站中英文对照

zhanghuiguoanlige@126.com — 2009-10-18 11:56:43

公司简介：Company brief

产品展示 Product

企业荣誉 Enterprise honor

合作伙伴 Cooperation partner

质量认证 Quality certificate

企业文化 Enterprise Culture

成长历程 Development history

经营理念 Management ideas

经营理念 Operation philosophy

服务理念 Service philosophy

营销理念 Marketing philosophy

人才思略Talent policy

质量方针 Quality policy

以质求生存，以量求发展Quality for survival, and quantity for growth

企业理念 Company philosophy

企业宗旨 Company tenet

销售网络 Selling network

营销网络 Sales Network

企业荣誉 Enterprise honor/Glories

公司设备 Equipment

企业文化 Enterprise Culture

资质认证 Quality certification

企业规模 Scale

组织机构 Organization

合作加盟 Join in Cooperation

技术力量 Technology

经理致辞 Manager`s oration

发展历程 Development history

工程案例 Engineering Projects

业务范围 Business Scope

分支机构 Branches

供求信息 Supply & Demand

经营理念 Operation Principle

产品销售 SALES Sales

联系我们 Contact Us

信息发布 Information

返回首页 Back Homepage

在线订单 On-line Order

分类浏览 Browse by category

电子商务 E-Business

公司实力 Strength

版权所有 Copy right

友情连结 Hot link

应用领域 Application Fields

人力资源 Human Resource HR

领导致辞 Leader`s oration

企业资质 Enterprise qualification

行业新闻 Trade news

行业动态 Trends

客户留言 Customer Message

客户服务 Customer Service

新闻动态 News & Trends

公司名称 Company Name

销售热线 Sales Hot-line

联系人 Contact Person

您的要求 Your requirements

建设中 In construction

下载中心 Download center

会员登陆 Member Entrance

意见反馈 Feedback

常见问题 FAQ

中心概况 General Profile

教育培训 Education & Training

产品展厅 Product gallery

超越自我，追求卓越 Surpass selfhood,pursue excellence

建议使用1024x768分辨率浏览 Resolution of 1024*768 or higher is recommended.

工具 Tools

资源 Resources

常用中英文对照表：

证书 Certificate

地址 Add

邮编 CODE Zipcode

电话 Tel

分公司 Branch

推荐产品 Recommend products

Previous Page 上一页

Category 分类

网站导航 site map

诚征代理 Agents wanted

工程实例 Project cases

分类范畴 Categories

产品导航Products Guide

招聘：Recruitment

详细描述 Detail

传真 Fax

企业新闻 Enterprise news

行业新闻 Field news

市场行情 Market

流行时尚 Popular fashion

其他新闻 Other news

产品名称 Product Name

产品说明 Description

价格 Price

品牌 Brand

规格 Specification

尺寸 Size

生产厂家 Manufacturer

型号 Model

产品标号 Item No.

技术指标 Technique Data

产品描述 Description

产地 Production Place

销售信息 Sales Information

用途 Application

论坛 Forum

在线订购 On-line order

招商 Enterprise-establishing

招标 Bid inviting

综述 General

业绩 Achievements

招聘 Join Us

求贤纳士 Join Us

大事 Great Event

动态 Trends

服务 Service

投资 Investment

行业 Industry

规划 Programming

环境 Environment

发送 Delivery

提交 Submit

重写 Reset

登录 Login

注册 Register

全程无忧Worriless Whole-process

产品铺贴指导Guide for Paving & Sticking of Products

保养常识 Maintenance Common Sense

产品介绍 Product Introduction

工程目录 Project Content

企业信息 Enterprise Information

企业理念 Company philosophy

常用中英文对照表：

中国企业网技术支持 Powered by ce.net.cn

社区 Community

业务介绍 Business introduction

在线调查 Online inquiry Inquiry

游乐园 amusement park

在线交流 Online communication

专题报道 Special report

补丁：patch Previous

上一页下一页 Next Pages (7): ? 1 [2] 3 4 5 ? ... Last ?

给我们打电话或发邮件--Call or Write to Us Legal Information

法律声明

Forgotten your password? 忘记了你的密码？

设计与技术支持：Designed and supported by

技术支持：Technical Support

网站地图-Site Map

Service & Support

服务和支持如何购买

How To Buy

服务和维护合同

工程实例：Engineering Projects

实例：Projects

Congratulations, you can now access your personalized page from any computer using your email address and password. An email has been sent to you with your information. 祝贺,你现在可以从任何一页进入你的个人电脑使用的电子邮件地址和你的密码. 已发送电子邮件给你了,你的资料.

User Profile 用户信息

User register 用户注册

Username: * Must between 2 to 24 chars 用户名必须是2到24个字节

Password: * Must between 6 to 16 chars

密码 Confirm Password

重复密码: *Must match the password above

Gender 性别

Unkown 不知道

Male男的

Female 女的

Email: Hide my Email address :

Security Code: 验证码

Collapse all 收缩所有

Expand all 展开所有

Sign in 登入

I lost my password 我的密码丢失了

Existing User 已经存在的用于(已经注册的用的登录）

Sign up now 现在就注册

checking... 正在检验

Save my information 保存我的信息

第一辑

About us 关于我们

Products 产品/产品展示

Services 服务/售后服务/客户服务

Support 技术支持

Company 公司简介

News 新闻动态/公司新闻

Latest News 最近新闻

Privacy Policy 隐私声明

Legal Notices 法律条款

Contact us 联系我们

Home 主页/首页

Back 返回

Next 下一页/后一页

Prev/Previous 上一页/前一页

Pages 页

More 更多

Detail 详细

Help/Help Center 帮助/帮助中心

Email 邮箱

Tel 电话

PostCode 邮编/邮政编码

Search 搜索

Advanced search 高级搜索

Close 关闭/关闭窗口

Downloads 下载/下载中心

FAQ 问答中心

Photo Gallery 相册

View 查看

Submit 提交

Reg 注册

Login 登陆

Sign in 登陆

Sign out 退出

Username 用户名

Password 密码

New features 新特性

Settings 设置

Language 语言

Chinese 中文版

English 英文版

Enter 进入

Skip 跳过

Cancel 取消

save 保存

Delete 删除

Confirm 确定

save change 保存改变

send 发送

OK 确定

Partners 合作伙伴

Solutions 产品

Success Stories 成功案例

Company Everts 公司动态

Press Release 新闻发布

Press Room 新闻中心

Version/Ver 版本

Issue 出版物

Magazine 杂志/电子期刊/网络杂志

Projects 工程项目

Photography 影集展示/图片展示

Preview 预览

Cart 购物车

Order 订购

BBS 论坛/公告板

Forums 论坛

Club 俱乐部

site map 站点地图

web hosting 虚拟主机

clients 客户/案例

description 描述

technology 技术

image 图片

Links 友情链接

FeedBack 反馈

Keyword 关键词

shop 网上商店

register 注册

update 升级

prices 价格

title 标题/主题

content 内容

more info 更多信息

Guides 向导/指引

URLs 链接

photo album 相册

case 案例

casus 案例

第二辑

网站导航 SITE MAP | Site Map

公司简介 PROFILE or COMPANY | Profile or Company

公司设备 EQUIPMENT | Equipment

公司荣誉 GLORIES | Glories

企业文化 CULTURE | Culture

产品展示 PRODUCT | Product

资质认证 Quality Certification

企业规模 SCALE | Scale

营销网络 Sales Network

组织机构 ORGANIZATION | Organization

合作加盟 Join in Cooperation

技术力量 TECHNOLOGY | Technology

经理致辞 Manager`s oration

发展历程 Development history

工程案例 Engineering Projects

业务范围 Business Scope

分支机构 Branches

供求信息 Supply & Demand

经营理念 Operation Principle

产品销售 Sales

联系我们 CONTACT US

信息发布 INFORMATION Information

返回首页 HOMEPAGE | Homepage

产品定购 ORDER | order

分类浏览 Browse by category

电子商务 E-Business

公司实力 STRENGTH Strength

版权所有 Copy right

友情连结 Hot link

应用领域 Application Fields

人力资源 Human Resource HR

领导致辞 Leader`s oration

企业资质 Enterprise qualification

行业新闻 Trade news

行业动态 Trends

客户留言 Customer Message

客户服务 Customer Service

新闻动态 News & Trends

公司名称 Company Name

销售热线 Sales Hot-line

联系人 Contact Person

您的要求 Your requirements

建设中 In construction

证书 CERTIFICATE Certificate

地址 ADD | Add

邮编 POSTAL CODE Zipcode

电话 TEL | Tel

传真 FAX | Fax

产品名称 Product Name

产品说明 DEscriptION | Description

价格 Price

品牌 Brand

规格 Specification

尺寸 Size

生产厂家 MANUFACUTURER Manufacturer

型号 Model

产品标号 Item No.

技术指标 Technique Data

产品描述 Description

产地 Production Place

销售信息 Sales Information

用途 Application

论坛 Forum

在线订购 On-line order

招商 Enterprise-establishing

招标 Bid inviting

综述 General

业绩 Achievements

招聘 Join Us

求贤纳士 Join Us

大事 Great Event

动态 Trends

服务 Service

投资 Investment

行业 Industry

规划 Programming

环境 Environment

发送 Delivery

提交 Submit

重写 Reset

登录 Enter

注册 Login

中国企业网技术支持 Powered by ce.net.cn

社区 Community

业务介绍 Business introduction

在线调查 Online inquiry Inquiry

下载中心 Download

会员登陆 Member Entrance

意见反馈 Feedback

常见问题 FAQ

中心概况 General Profile

教育培训 Education & Training

游乐园 amusement park

在线交流 Online communication

专题报道 Special Repor

腾讯QQ、阿里旺旺、淘宝、MSN在线状态代码生成

zhanghuiguoanlige@126.com — 2009-10-8 13:08:00

QQ在线代码生成：http://is.qq.com/webpresence/code.shtml
阿里旺旺在线代码生成：http://www.taobao.com/help/wangwang/wangwang_0628_12.php
MSN在线代码生成:http://www.365groups.com/msnonlinecode.aspx
Skype在线代码生成：http://skype.tom.com/products/skypeme.htm
如何在网页上显示腾讯QQ/MSN/旺旺在线洽谈?
1.QQ在线咨询代码
(qq在线交谈代码/qq在线客服代码/qq在线状态代码/qq在线客服代码)
(将66757924换成你的号码,site后面换成你的网站就可以了)

更多的生成显示QQ在线状态的代码,请查看腾讯官方网站
http://imis.qq.com/webpresence/code.shtml
你只需要填写你的号码,网站名称以及提示就可以点击生成就可以生成QQ在线状态的代码,拷贝生成的代码加入网页即可

2.阿里巴巴旺旺在线状态代码生成,cardlanok改成你的ID就行了,还有alt改成你的内容

更多的阿里巴巴旺旺在线状态代码生成样式,请查看阿里巴巴官方网站
http://www.taobao.com/help/wangwang/wangwang_0628_04.php

3.skype在线状态代码生成
将yisung换成你的skype ID就可以了,需要在skype个人账户里设置对任何人显示状态

更多的skype在线状态代码生成样式,请查看skype的官方网站
http://www.skype.com/share/buttons/

4.如何生成MSN在线状态代码,可以设置自定义显示图片,不过检测速度有点慢,另外一部分人在ｍｓｎ的配置中，设置了不加好友就不显示在线。这是为了个人隐私保护，但这样会显示状态未知或者离线。如果你不介意别人看到你，就开启那个选项就好了。
msnim:chat?contact=用户帐号                 //建立对话
msnim:add?contact=用户帐号                 //添加好友
msnim:voice?contact=用户帐号               //语音聊天
msnim:video?contact=用户帐号               //视频聊天

建站宝(EBdiy)正式发布了，完全免费、绝对开源

zhanghuiguoanlige@126.com — 2009-7-20 22:38:06

    EBdiy企业建站宝官方发布网址：www.ebdiy.com，该系统所有的代码程序、企业网站模板免费开源下载，
欢迎大家下载使用，在发布之日，对提供优秀模板的用户，经EBdiy建站宝小组审核通过，我们将赠送空间和
域名，EBdiy建站宝开发团队欢迎大家踊跃下载和提供模板，空间域名数量有限，送完为止！

    EBdiy企业建站宝是一款开源免费的企业建站系统，该系统做到企业站动态模版化，代码界面分离，是一
套为网站用户提供无技术门坎、操作简单、维护方便、功能强大、安全可靠的建站工具。网站模版丰富，可
任您满意选择，让您在几分钟内快速掌握并拥有自己理想的网站。

    官方网站：www.ebdiy.com

    EBdiy建站宝开发团队联系方式：

    联系电话：0571-88276011        0571-88276022

     客服qq
         客服小喻:89931633          E_mial:yujc@eb.com.cn
         客服小沈:89931685          E_mial:shenyj@eb.com.cn
         客服小张:89931669          E_mial:zhanghg@eb.com.cn

安装注意事项:

请首先运行instal/index.asp进行安装，程序将安装到本目录，若程序未删除install文件夹，为了安全起见，请手动删除。

请尽量在不含有空格或中文的目录下安装，在安装之前要注意设置安装目录得权限，以允许程序的正常安装
否则可能会出现500错误
Microsoft VBScript runtime (0x800A0046)
Permission denied

安装完成后，一定要进入后台，选一套模板，否则会出现"读取模板错误"的错误信息

PJBlog介绍

zhanghuiguoanlige@126.com — 2009-6-19 11:44:19

560)this.width=560" />

　　PJBlog是由舜子（陈子舜，英文名字PuterJam，PJblog就是以他英文名字缩写命名的，他本人就职于腾讯公司QZONE开发组）所开发的一套开源免费的中文个人博客系统程序，采用asp+Access的技术，PJBlog同时支持简繁中文，UTF-8编码，相对于其他系统，PJBlog具有相当高的运作效能以及更新率，也支持目前Blog所使用的新技术。

    系统配置：
    服务器：Windows 2000及IIS5.0以上，需要ADO数据库、FSO、XMLDOM、ADODB.stream、VBScript 5.6以上脚本解释器等系统组件支持。
　　客户端：支持IE6.0及以上版本、Mozilla FireFox 1.0及以上版本、Opear 8及以上版本、Safari。客户端需要JavaScript脚本支持。原则上只要支持W3C网页标准的浏览器皆能正确浏览。

    主要功能和特点：
　　支持全静态化、半静态化、动态化三种页面生成模式；
　　多浏览器相容，能够相容IE、Firefox、Safari等主流浏览器；
　　功能强大的文章编辑器，同时兼容两种编辑方式，在线编辑器采用FCKEditor；
　　PJBlog3采用的UBB编辑器由Blog作者独立开发，支持自定义面板和CSS，内建HTML转换UBB代码功能；
　　自定义模块，可以自己修改页面上的的布局。可以让不懂制作网页的用户也能自己增加和修改页面上的版块；
　　自定义Skin功能，随时可以给自己的Blog换上新的CSS样式界面；
　　自定义分类，可以同时定制外部连接分类和Blog内置分类，可以自定义分类显示的位置，由用户自己定义顶部导航条和侧边导航条；
　　权限分组，管理员还可以对每个分组成员指定上传文件的权限等等；
　　Blog数据采用缓存方式保存，减轻服务器负担和增加运行速度；
　　用户密码用SHA1算法加密。

    PJblog3 版权申明
　　PJBlog3程序版权归作者陈子舜(PuterJam) 所有。使用者必须遵循创作共用（Creative Commons）协议你可以免费: 拷贝、分发、呈现和表演当前作品,制作派生作品,但是不得移除 PJBlog3 标识。非商业用途。你不可将当前作品用于商业目的。

    PJblog开发历程
　　PL-Blog 1.0b(L-blog 1.06的基础上修改) 2004-8-20 11:30 发布
　　PL-Blog 1.1 2004-09-13发布
　　PL-Blog V1.2 2004-09-13发布
　　PL-Blog 1.2 (SP2) 2004-12-01发布
　　PL-Blog 2 2005-02-16开始制作
　　L-Blog 1.2的升级(PL-Blog 2)正式更名为PJ-Blog2 2005-06-20
　　PJBlog2 2005-07-26发布
　　PJBlog2 2.1.0802 2005-08-02发布
　　PJBlog2 繁体中文发布站开通 2005-09-05
　　PJBlog2 v2.3.0905 2005-09-06发布
　　PJBlog2 v2.6 2006-07-02发布
　　PJBlog2 v2.7 Build05 2007-11-09发布
　　PJBlog3 v2.8.5.150 2008-08-25发布
　　PJBlog3.0 最终版 v3.0.6.170 发布 2009-2-24 发布
　　PJBlog3 3.1.6.227 公测版本发布 2009-5-26 发布
　　......

     PJblog3相关资源
　　随着PJBLOG3的开发，PJBLOG3项目已经架设到了Google Code上，项目所有进展情况及程序源码更新均会在Google Code和PJblog官方网站上及时公布。PJHOME BBS是PJblog的官方技术论坛，论坛汇集有PJblog基础使用教程及常用问题解决集、成千的PJblog皮肤、各种强大的功能扩展源码及绿色易用的后台插件，是pjblog用户使用交流的聚集地。
　　PJBlog3 最终版主要更新功能
　　1. 增加了'别名系统'，利于SEO。
　　以特定分类名作为目录名,比如
　　http://你的网址/article/分类目录自定义/生成页面自定义.html
　　后台操作FSO能准确移动删除更新文章
　　兼容日志加密功能
　　对SEO友好,使文章更容易本搜索引擎收录
　　2. 修复了Cookie不能保存的问题。
　　3. 修复了[mdown]标签在静态下失效的问题。
　　4. 对友情链接的批量删除。
　　5. snail.rison进行了部分BUG修复。
　　6. 建立Ajax模型。
　　7. 对代码进行优化。
　　8. 其他修正，修正以往版本中存在的已知问题，具体细节不再一一描述。
　　PJhome BBS官方论坛：http://bbs.pjhome.net
　　PuterJam个人官方博客：http://www.pjhome.net
　　PJblog Code：http://code.google.com/p/pjblog
　　PJblog3非官方资源站：http://www.pjblog3.com.cn

access与sqlserver的区别

zhanghuiguoanlige@126.com — 2009-3-4 20:58:46

后台数据库：
[Microsoft Access]
与
[Microsoft Sql Server]
更换之后，ASP代码应注意要修改的一些地方：

[一]连接问题（举例)
[Microsoft Access]
constr = "DBQ=c:\data\clwz.mdb; DRIVER={Microsoft Access Driver (*.mdb)}"
[Microsoft Sql Server]
constr = "DRIVER={SQL Server};SERVER=host;DATABASE=mydata;uid=sa;pwd="

[二]相似函数（举例）

[1]DATEDIFF(datepart, startdate, enddate)
其中“datepart”参数可选项如下：
设置描述
————————————
[Microsoft Access]
年 yyyy
季度 q
月 m
一年的日数 y
日 d
一周的日数 w
周 ww
小时 h
分钟 n
秒 s

[Microsoft Sql Server]
year yy, yyyy
quarter qq, q
month mm, m
dayofyear dy, y
day dd, d
week wk, ww
hour hh
minute mi, n
second ss, s
millisecond ms

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

基本上差不多，但注意的是在写的时候，
[Microsoft Access]要加引号，如：datediff('d',enddate,'2004/08/01')
[Microsoft Sql Server]则不需要，如：datediff(d,enddate,'2004/08/01')

[2][Microsoft Access]中可用如cstr等转数据类型函数，而
[Microsoft Sql Server]中则用convert或cast函数，如：
convert(varchar,[amount])等。

[3][Microsoft Sql Server]
取当前时间用getdate等等...

[三]语句
[Microsoft Sql Server]
可以用
CASE
WHEN THEN
WHEN THEN
...
ELSE
END
语句，而
[Microsoft Access]
不支持。
[Microsoft Access]也不支持between语句
[Microsoft Sql Server]则可以这样写：
[date] between @date1 and @date2
[四]查询表
[Microsoft Sql Server]
可三个及以上表join查询，而
[Microsoft Access]
好像只能两个表联接查询（待权威确认）,
而且[Microsoft Sql Server]可用“*=”和“=*”连接符。[五]除零问题
[Microsoft Access]
在碰到除数为零时，自动丢掉相关记录，而
[Microsoft Sql Server]
则会报错，且查询中止。删除代码：
[Microsoft Access]
可以这样写：delete * from [tablename]
[Microsoft SQL Server]
只能这样写：delete from [tablename]
多*会报错
_____________________________________
当前日期：
[Microsoft Access]
用date()
[Microsoft SQL Server]
用getdate()如果数据库可能会更换类型的话，可以
在ASP代码中加上如这样：
if inStr(constr,"Microsoft Access") > 0 then
sqlstr=[Microsoft Access][sql代码]
else
sqlstr=[Microsoft Sql Server][sql代码]
end if
(constr--连接字符串)
这样即使改了数据库，也不用改数据库查询更新代码了。
再加：access中有true、false的字段记录，而sql里只有smallint，对应如果在access里有“字段名=true”的，在sql里要改成“字段名=1”
网上大部分的免费asp程序使用的是access数据库。但是access数据库作为一个中小型的单机数据库系统，在承担访问量、数据量大的网站应用时，往往就不堪重负了。一般认为，超过50M的access数据库性能就开始明显下降，超过100M以后，出错、运行慢的问题会更加突出。尽管可以如动网 7.0以后那样，从程序的角度尽量优化以图提高性能，但是不能从根本上解决问题。
这时也许使用微软的SQL Server数据库就是最可能的办法，当然也可以使用其它的如Oracle、MySQL等等，但是作为改写来说，由于同为微软的产品，改写成SQL Server应该是最省力的办法。

一、改写前提：

系统已经安装好SQL Server2000并且打上了SP3补丁；安装好Office套件里面的Access；使用一个支持纯文本编辑并且带有行号显示的编辑器，推荐Ultra Edit，当然也可以使用FrontPage2003，不过以前的版本行号显示不太好用。

个人能力要求：会基本的asp语法、access数据库的操作、SQLServer企业管理器的基本操作。

二、数据库的准备

一般来说有两种情况：
1、程序提供了SQL数据库格式：有一个MDF文件，或者提供了创建SQL数据库的SQL脚本文件（后缀名为.sql）。
如果有mdf文件，可以用企业管理器直接附加上，如果提供的是sql脚本文件，那么就先用企业管理器自己创建一个sql数据库，然后数据库用企业管理器中的查询分析器运行这个脚本创建数据库表。
这样建立的数据库基本不用再去改写什么了。
2、更多的是没有提供SQL数据库或脚本文件的，这时，就要自己来做这一切了，这也是我们这个帖子主要解决的问题。一般这样的程序会提供一个access数据库，这样你就用企业管理器导入access数据库，导入后需要改写下面一些东西：
对照原来的access，改写下面的部分：
（1）sql数据库表是没有自动字段的，因此原来access中的自动字段被转换成了普通字段，需要手工改成标识类型，增量为1。
（2）所有的时间字段，如果定义了默认值，那么原来肯定是now()，需要改成getdate()
（3）原来字段的默认值一般都不会自动引入，需要对照原表的字段手工添加。
（4）由于数据库的不同，access和sql的字段类型很多转换后就变化了，比如原来的《是否》字段会被转换成bit或者int，备注字段被转换成 longtext，text字段转换成varchar等等，一般来说不会影响程序运行，如果有问题，我们在下面的程序改写部分再说。
（5）如果你要用一个For SQL的程序，里面用到了存储过程，那么你应该有这个程序本身建立SQL数据库的方法：有其本身的SQL数据库文件，或者 sql脚本；如果没有的话，采用导入access数据库的方式是无法建立存储过程的，这样你最好放弃这个For SQL的程序版本，使用同样版本的 For Access的程序，导入access数据库，然后用下面的改写方法自己改成SQL版本的程序。

三、连接字符串的改写

可参考动网的这段，分别是针对access和SQL的
Dim ConnStr
If IsSqlDataBase = 1 Then
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = ""
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将dvbbs6.mdb修改为dvbbs6.asp
'http://www.knowsky.com/
Db = "data/fengerqingqing.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
End If
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

当然你使用SQL的话，有关access的使用语句可以删除，就是else后面到on error resume next前面，变成这样：

Dim ConnStr
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dvbbs7"
SqlPassword = ""
SqlUsername = "dvbbs"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

也可以简洁一些，写成这样：
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider = Sqloledb; User ID = sa; Password = 1234567; Initial Catalog = dvbbs7; Data Source = (local);"
里面的数据库名称、数据源、用户、密码根据自己的实际情况改写一下。

四、程序的改写

这也有两种情况
1、如果你幸运，拿到的是For SQL的程序，那么如果上面的数据库建立过程没有遇到麻烦，程序基本上就可以运行了，出错的话，只是程序本身的bug，如何修改不是这个帖子讨论的内容，就不赘述了。
2、大多数情况，程序本身是For Access的，与For SQL的程序差别主要是程序中使用到的SQL查询语句。注意，SQL查询语句是数据库应用不可缺少的部分，不管是For SQL还是For Aceess的程序使用的语法大体差不多，但是有一些微妙的差别，正是这些差别，造成了程序的不通用，也是我们需要修改的主要内容。这样一般要修改的部分如下：
（1）时间函数的问题：SQL数据库的时间函数与access不同，最常见的是取现在时间的函数，access是now()，SQL是getdate ()。因此凡是在where子句中使用了now()的地方都要改成getdate();注意，now()函数在asp程序本身也要使用，凡是不在数据库查询或执行语句中使用的now()函数千万不要改。
（2）时间比较函数：datediff('d','时间1'，‘时间2’)这是access查询用的格式，SQl中这些引号都要去掉，同时时间格式的前后可能加上了#，这也要去掉。同样这也是指在sql语句中的，在asp语句中的要保持原样。
（3）空值的表示：在access中，判断空值一般用是否＝""来表示，但是这在SQL中往往出错，如果遇到出错的问题或者程序运行不正常，可以改成如这样判断：where (name is null)
（4）真假值判断：access中可以用＝true、＝false来判断，但是在SQL中就会出错，因此在SQL查询或执行语句中这类判断要分别改成＝ 1、＝0。注意一点：有些程序虽然写成＝“true”，但是由于有引号，所以这个字段是字符类型的，你不能改成＝1，保持原样即可。

以上是比较常见的改写的地方，还有一些不太常见，如果遇到了可以在此回帖讨论。

五、程序的调试

前面推荐使用带有行号的编辑器，是因为上述的改写不大可能是直接搜索程序源码来做，很难找全。
我采取的方式一般这样：数据库改写完成，直接调试程序，出错后，看看出错的提示，找到相应文件的代码行，但是根源往往不是那行，比如出错的语句是： conn.execute(sql)，但是这句本身是没有错的，错误原因是里面的这个sql字符串，那就向上看这个sql字符串是如何生成的，按照上面所说的程序修改办法修改。

数据库导入以后，自动增加字段需要重写，所有的数字类型需要增加长度，最好用decimal。

所有的默认值都丢失了。主要是数字类型和日期类型。

所有now()，time()，date()要改成getdate()。

所有datediff('d', time1, time2)要改成datediff(day, time1, time2)

有可能一些true/false类型不能使用，要变为1/0。

备注类型要通过cast(column as varchar)来使用。

CursorType要改成1,也就是打开数据库时要给出第一个数字参数为1，否则记录可能显示不完整。

isnull(rowname)要改成rowname = null

ACCESS的数据库中的自动编号类型在转化时，sql server并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！

转化时，跟日期有关的字段，SQL SERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime 型的范围比smalldatetime型大。有时用smalldatetime型时，转化失败，而用datetime型时，转化成功。

对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete * from user where id=10",而对SQL SERVER数据库进行删除是用："delete user where id=10".

日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对SQL SERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。

在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQL SERVER数据库处理中，却不能用。
下表比较了MicrosoftAccess数据库（MicrosoftAccess数据库：数据和对象（如表、查询或窗体）组成的集合，与特定的主题或用途有关。MicrosoftJet数据库引擎用于管理数据。）和MicrosoftAccess项目（MicrosoftAccess项目：与 MicrosoftSQLServer数据库连接且用于创建客户/服务器应用程序的Access文件。项目文件中不包含任何数据或基于数据定义的对象（如表或视图）。）的数据类型（数据类型：决定字段可拥有的数据类型的字段特征。数据类型包括Boolean、Integer、Long、Currency、 Single、Double、Date、String和Variant（默认））。

MicrosoftAccess数据类型SQLServer数据类型
是/否（“是/否”数据类型：一种字段数据类型，用于只有两种可能值（如是或否、True或False）的字段。不允许有Null值。）bit（bit数据类型：在Access项目中，一种存储值为1或0的数据类型。接受1和0以外的整数值，但总是将其解释为1。）
数字（“数字”数据类型：MicrosoftAccess数据库中的一种字段数据类型，用于将在数学运算中使用的数值数据。但是，若要显示或计算货币值，则应使用“货币”数据类型。）（字节）tinyint（tinyint数据类型：Access项目中的一种占一个字节（8位）的数据类型，用于存储从0到 255范围内的整数。）
数字（整型）smallint（smallint数据类型：Access项目中的一种2字节（16位）数据类型，存储位于-2^15(-32,768)与2^15-1(32,767)之间的数字。）
数字（长整型）int（int数据类型：Access项目中的一种4字节（32位）数据类型，存储位于-2^31(-2,147,483,648)与2^31-1(2,147,483,647)之间的数字。）
数字（单精度浮点型）real（real数据类型：在Access项目中，一种近似的数值数据类型，精度为7位，正值取值范围大致从1.18E-38到3.40E+38，负值取值范围大致从-1.18E-38到-3.40E+38，也可以取0。）
（无等价的数据类型）bigint（bigint数据类型：Access项目中的一种8字节（64位）数据类型，存储位于-2^63(- 9,223,372,036,854,775,808)与2^63-1(9,223,372,036,854,775,807)之间的数字。）
数字（双精度浮点型）float（float数据类型：在Access项目中，一种近似的数值数据类型，精度为15位。它所存储的正值范围大致是从2.23E-308到1.79E+308，负值范围大致是从-2.23E-308到-1.79E+308，也可以为0。）
货币（“货币”数据类型：MicrosoftAccess数据库中的一种数据类型，用于与货币有关的计算或其精确度极其重要的定点计算。）money （money数据类型：在Access项目中，用于存储货币值的数据类型，取值范围从-922,337,203,685,477.5707到 922,337,203,685,477.5807，精确度为万分之一个货币单位。）

smallmoney（smallmoney数据类型：Access项目中的一种存储货币值的数据类型，取值范围从-214,748.3648到214,748.3647，精确度为万分之一个货币单位。当显示smallmoney值时，会将它们四舍五入为两个小数位。）
小数/数值（decimal数据类型（Access数据库）：精确的数值数据类型，用于存储-10^38-1到10^38-1的值。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）decimal（decimal数据类型（Access项目）：精确的数值数据类型，用于存储-10^38 -1到10^38-1的值。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）

numeric（numeric数据类型：在Access项目中，一种精确的数值数据类型，取值从-10^38-1到10^38-1。可以指定数值范围（最大总位数）和精度（小数点右边的最大位数）。）
日期/时间（“日期/时间”数据类型：Access数据库的一种数据类型，用来存放日期和时间信息。）datetime（datetime数据类型：在 Access项目中，日期和时间的数据类型，范围从1753年1月1日到9999年12月31日，精确度为三百分之一秒，即3.33毫秒。）

smalldatetime（smalldatetime数据类型：Access项目中的一种日期和时间数据类型，精度不如datetime时间数据类型。数据取值范围从1900年1月1日到2079年6月6日，精确度为一分钟。）
自动编号（“自动编号”数据类型：MicrosoftAccess数据库中的一种字段数据类型，当向表中添加一条新记录时，这种数据类型会自动为每条记录存储一个唯一的编号。可以产生三种编号：顺序号、随机号和同步复制ID。）（递增）int（int数据类型：Access项目中的一种4字节（32位）数据类型，存储位于-2^31(-2,147,483,648)与2^31-1(2,147,483,647)之间的数字。）（定义了Identity属性）
文本（“文本”数据类型：MicrosoftAccess数据库中的一种字段数据类型。“文本”数据类型最多可以包含255个字符，或者是由 FieldSize属性指定的一个小一些的字符数。）(n)varchar(n)（varchar(n)数据类型：Access项目中的一种可变长度的数据类型，最大长度为8,000个ANSI字符。）

nvarchar(n)（nvarchar(n)数据类型：在Access项目中，一种可变长度的数据类型，最多可含4,000个Unicode字符。Unicode字符每字符占两个字节，而且支持所有国际字符。）
备注（“备注”数据类型：在MicrosoftAccess数据库中的一种字段数据类型。“备注”字段最多可以包含65,535个字符。）text （text数据类型：Access项目中的一种长度可变的数据类型，最多可存储2^31-1(2,147,483,647)个字符；默认长度为16。）
OLE对象（“OLE对象”数据类型：字段的数据类型之一，用于在其他应用程序中创建的、可链接或嵌入（插入）到Access数据库中的对象。） image（image数据类型：在Access项目中，一种长度可变的数据类型，最多可存储2^31-1(2,147,483,647)字节的二进制数据。image数据类型用来存储BLOB（二进制大对象），如图片、文档、声音和已编译代码。）
同步复制ID（又名全局唯一标识符（GUID：在Access数据库中，一种用于建立同步复制唯一标识符的16字节字段。GUID用于标识副本、副本集、表、记录和其他对象。在Access数据库中，GUID是指同步复制ID。）(GUID)）uniqueidentifier （uniqueidentifier数据类型：在Access项目中，16字节的全局唯一标识符(GUID)。）（仅适于SQLServer7.0或更高版本）
超链接（“超链接”数据类型：存储超链接地址的Access数据库字段的数据类型。地址最多可以包含四部分，用以下语法格式编写： displaytext#address#subaddress#。）char（char数据类型：在Access项目中，一种固定长度的数据类型，最多可含8,000个ANSI字符。）,

nchar（nchar数据类型：在Access项目中，一种固定长度的数据类型，最多可含4,000个Unicode字符。Unicode字符每字符占两个字节，而且支持所有国际字符。）,varchar,nvarchar（Hyperlink属性设为Yes）
（无等价的数据类型）varbinary（varbinary数据类型：Access项目中的一种可变长度的数据类型，最多可存储8,000字节的二进制数据。）
（无等价的数据类型）smallint（smallint数据类型：Access项目中的一种2字节（16位）数据类型，存储位于-2^15(-32,768)与2^15-1(32,767)之间的数字。）
（无等价的数据类型）timestamp（timestamp数据类型：在Access项目中，一种每插入或更新一行就会自动更新的数据类型。 timestamp列中的值不是datetime数据，而是binary(8)或varbinary(8)，标明了数据修改的顺序。）
（无等价的数据类型）charnchar
（无等价的数据类型）sql_variant（sql_variant数据类型：Access项目中的一种数据类型，存储除text、ntext、 image、timestamp和sql_variant类型以外的多种数据类型的值。在列、参数、变量或用户定义函数的返回值中使用。）
（无等价的数据类型）用户定义（用户定义的数据类型：在MicrosoftSQLServer数据库中，允许某列包含的数据的类型定义，由用户利用现有的系统数据类型定义。规则和默认值仅可以绑定到用户定义的数据类型。）

注释在Access项目或SQLServer数据库中，前缀“n”代表“国家/地区”，意思是这个数据类型是启用Unicode的。在Access数据库中，全部文本列在默认情况下都是启用Unicode的。
ACCESS转SQL需要注意的问题
2006-2-13 16:01:20
很多朋友想用SQL2000数据库的编程方法，但是却又苦于自己是学ACCESS的，对SQL只是一点点的了解而已，这里我给大家提供以下参考---将ACCESS转化成SQL2000的方法和注意事项
一，首先，我说的是在ACCESS2000，SQL2000之间转换，其他的我也还没有尝试过，希望大家多多试验，肯定是有办法的；
二，转换的方法
1，打开”控制面板“下”管理工具“中的”数据库源“；
2，按”添加“添加一个新的数据源，在选择栏里选”DriverdomicrosoftAccess
(*.mdb)”,完成后将出现一个框,

在”数据库源“里面输入你想写的名称，我取名叫“ABC”,说明不需要填，接着，按下面的选择，寻找你的数据库地址和选中（注意，请先备份自己的ACCESS数据库），然后确定。
数据源在这里建好了，剩下转换了。

3，打开SQL2000企业管理器，进入数据库，新建一个空的数据库“ABC”；
4，选择新建立的数据库，按鼠标右键，选择“所有任务”下“导入数据”，按“下一步”继续；
5，在数据库源下拉但中选择”DriverdomicrosoftAccess(*.mdb)“，在”用户/系统DSN“中，选种你刚才添加的”ABC“，按”下一步“；
6，“目的”不需要修改，选择服务器（一般下为自己的本机"local",也可以选择服务器地址或者局域网地址,确定你的权限是否可以操作,),"使用WINDOWS身份验证"指用自己的系统管理员身份操作,"使用SQL身份操作验证"可以用于网站的操作,推荐用后者;
7,选上"使用SQL身份操作验证"后,填写你的用户名和密码,我自己选择的是系统默认号码"sa","****",数据库选择刚新建的"ABC",按"下一步";
8,这一步的两个单项选择,"从数据源复制表和视图"与"用一条查询指令指定要传输的数据",选择前者,按"下一步"继续;
9,这里将出现你自己ACCESS数据库的表,按"全选"后,下一步;
10,"DTS导入/导出向导",看"立即运行"被选中按"下一步",
11,按"完成"继续;
12,这个步骤你将看到你的数据被导入SQL2000里面,当出现"已经成功把XXX个表导入到数据库"的字样,而且所有的表前面都有绿色的勾,就表示成功导入所有数据,如果中途出现问题或者表前面有红色的*的话,说明该表没有成功导入,这时就要回去查看自己的操作是否正确了.

三,数据修改
1,由于SQL2000里面没有"自动编号",所以你的以"自动编号"设置的字段都会变成非空的字段,这就必须手工修改这些字段,并把他的"标示"选择"是",种子为"1",增量为"1",
2,另外,ACCESS2000转换成SQL2000后,原来属性为"是/否"的字段将被转换成非空的"bit",这时候你必须修改成自己想要的属性了;
3,另外,大家要注意对时间函数的把握.ACCESS与SQL是有很多不同的.

四、相关的字段问题
1.ACCESS的数据库中的自动编号类型在转化时，sqlserver并没有将它设为自动编号型，我们需在SQL创建语句中加上identity，表示自动编号！
2.转化时，跟日期有关的字段，SQLSERVER默认为smalldatetime型，我们最好将它变为datetime型，因为datetime型的范围比smalldatetime型大。我遇见这种情况，用smalldatetime型时，转化失败，而用datetime型时，转化成功。
3.对此两种数据库进行操作的sql语句不全相同，例如：在对ACCESS数据库进行删除纪录时用："delete*fromuserwhereid=10",而对SQLSERVER数据库进行删除是用："deleteuserwhereid=10".
4.日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对SQLSERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。
5.在对ACCESS数据库处理中,sql语句中直接可以用一些VB的函数，像cstr()函数，而对SQLSERVER数据库处理中，却不能用。

五、相关语句问题
自动增加字段需要重写。在access中经常使用的自动编号字段，导入到mssql后，他并不是自增型的int，需要手工设置，把导入后的自动编号字段的标识的“否”改为“是”，“种子”和“递增量”都为“1”，才能成为自动编号

所有的默认值都丢失了。主要是数字类型和日期类型

所有now()，time()，date()要改成getdate()

所有datediff('d',time1,time2)要改成datediff(day,time1,time2)

所有datediff('ww',time1,time2)要改成datediff(week,time1,time2)

所有datediff('d',time1,time2)要改成datediff(day,time1,time2)

在mssqlserver中，有许多保留字，在access中是没有的，当你把数据导入到mssql的时候，问题就出来了。mssql在导入的时候，会自动给这些字段（包括数据库中的表名）加上“[字段名]”，因此，你必须修改你的脚本，把相应的字段名字（或者表名字）加上中括号，或改变字段名字为不是 mssql的保留字

在用access关于时间的使用，大家喜欢使用“select*fromaaaawhiletime="&now()”这样的sql语句，然而，在mssql中没有“now()”这个函数，而是使用“getdate()”，所以，所有的sql语句中的“now()”必须换成“getdate ()”。

日期函数不相同，在对ACCESS数据库处理中，可用date()、time()等函数，但对
SQLSERVER数据库处理中，只能用datediff,dateadd等函数，而不能用date()、time()等函数。

转化时，跟日期有关的字段，SQLSERVER默认为smalldatetime型，我们最好将它变为datetime型。

java初学者到精通需要掌握的知识

zhanghuiguoanlige@126.com — 2008-9-7 23:20:43

一、学习DreamWaveMX中文版的网页设计技术。

HTML网页设计，这是最基本的。学习XML的一些基本知识。初步掌握一些JSCRIPT的应用。

二、学习JAVA语言。

学习Java语言的第一步是安装好JDK，JDK的环境变量的配置，至于如何配置JDK的环境变量，网上关于这样的文章很多，你可以搜索一下，这里就不多说。配置好环境变量以后，写一个Hello World的小程序测试一下JDK是否已安装成功。

环境变量配置成功以后就可以着手学习Java的语法了，先找一本系统的java程序设计的书，开始最好不要用eclipse等之类的高度集成的IDE环境，用文本编辑器配合JDK就行了，这样助你理解下列几个基础概念：path，class_path，package ,并熟悉基本命令：

JDK的最重要命令行工具：

java：启动JVM执行class

javac： Java编译器

jar： Java打包工具

javadoc： Java文档生成器

这些命令行必须要非常熟悉。对于这些命令的学习，JDK Documentation上有详细的文档。下载和你的JDK版本一致的API帮助。

三、是学习Java的面向对象的编程语言的特性的地方，比如继承，构造器，抽象类，接口，方法的多态，重载，覆盖，Java的异常处理机制。可以参照《Thinking in java》这本书，对面向对象的讲解很透彻。

四、就是开始熟悉Java的类库，Java的基础类库非常多，但是真正对于我们来说最核心的只有4个，分别是

java.lang.*;

java.io.*;

java.util.*;

java.sql.*;

要知道包有哪些方面的类构成的，这些类的用途是什么，最核心的几个类分别是完成什么功能的。

五、JDK Documentation。通过上面的学习，如果学的比较扎实的话，就打好了Java的基础了，接着要学习Documentation里面除了上面4个包之外的其他一些比较有用处的类。相信进展到这一步，Java的自学能力已经被培养出来了，可以到了直接学习Documentation的水平了。除了要做GUI编程之外，JDK里面其他会有用处的包是这些：

java.text.*;

java.net.*;

javax.naming.*;

这些包里面真正用的比较多的类其实很少，只有几个，所以不需要花很多时间。

六、Java Web 编程

学习java web 编程之前要先下载安装应用服务器(App Server)，比较常用的应用服务器(App Server)有Tomcat 、BEA Weblogic、IBM Webshpere、Jboss 。

以Tomcat为例，下载安装Tomcat以后设置两个环境变量：

JAVA_HOME=C:\j2sdk1.4.2

CATALINA_HOME=D:\tomcat4 (你的Tomcat安装目录)

Java的Web应用至少需要安装JDK和一个web容器（例如Tomcat），以及一个多用户数据库，Web应用至少分为三层：

Browser层：浏览器显示用户页面

Web层：运行Servlet/JSP

DB层：后端数据库，向Java程序提供数据访问服务

七、学习J2EE的基本程序设计。

（1）首先学习JSP动态网页设计。掌握JSP、JAVABEANS、JDBC、JSTL等技术，最好以TOMCAT作为实验环境。因为它影响力大，虽然性能不怎么的，很多JSP技术讨论都是以它为背景。

（2）学习EJB的程序设计思想。在学习EJB之前要学习对象序列化和RMI，RMI是EJB的基础。接着学习JMS和EJB，对于EJB来说，最关键是要理解EJB是如何通过RMI来实现对远端对象的调用的，以及在什么情况下要用到EJB。

八、学习“设计模式”。

可以参照《java设计模式》，这本书学习。

九、学习一些经典框架的应用：

（1）struts1.1、webwork2

（2）Hibernate

（3）Ibatis/DAO框架

（4）Spring

十、分析一些经典的应用系统：

Jive、XPetstore、JPetstore等。

另外在java私塾的网站上有一套图书进销存项目的视频包括源码，从思路上引导学生如何去做项目，供各位自学的同学参考！大家可以到java私塾的网站上免费下载：www.javass.com

常用正则表达式集锦

zhanghuiguoanlige@126.com — 2008-7-20 18:41:27

常用正则表达式集锦

在使用RegularExpressionValidator验证控件时的验证功能及其验证表达式介绍如下:

只能输入数字：“^[0-9]*$”
只能输入n位的数字：“^\d{n}$”
只能输入至少n位数字：“^\d{n,}$”
只能输入m-n位的数字：“^\d{m,n}$”
只能输入零和非零开头的数字：“^(0|[1-9][0-9]*)$”
只能输入有两位小数的正实数：“^[0-9]+(.[0-9]{2})?$”
只能输入有1-3位小数的正实数：“^[0-9]+(.[0-9]{1,3})?$”
只能输入非零的正整数：“^\+?[1-9][0-9]*$”
只能输入非零的负整数：“^\-[1-9][0-9]*$”
只能输入长度为3的字符：“^.{3}$”
只能输入由26个英文字母组成的字符串：“^[A-Za-z]+$”
只能输入由26个大写英文字母组成的字符串：“^[A-Z]+$”
只能输入由26个小写英文字母组成的字符串：“^[a-z]+$”
只能输入由数字和26个英文字母组成的字符串：“^[A-Za-z0-9]+$”
只能输入由数字、26个英文字母或者下划线组成的字符串：“^\w+$”
验证用户密码:“^[a-zA-Z]\w{5,17}$”正确格式为：以字母开头，长度在6-18之间，

只能包含字符、数字和下划线。
验证是否含有^%&',;=?$\"等字符：“[^%&',;=?$\x22]+”
只能输入汉字：“^[\u4e00-\u9fa5],{0,}$”
验证Email地址：“^\w+[-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$”
验证InternetURL：“^http://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?$”
验证电话号码：“^($\d{3,4}$|\d{3,4}-)?\d{7,8}$”

正确格式为：“XXXX-XXXXXXX”，“XXXX-XXXXXXXX”，“XXX-XXXXXXX”，

“XXX-XXXXXXXX”，“XXXXXXX”，“XXXXXXXX”。
验证身份证号（15位或18位数字）：“^\d{15}|\d{}18$”
验证一年的12个月：“^(0?[1-9]|1[0-2])$”正确格式为：“01”-“09”和“1”“12”
验证一个月的31天：“^((0?[1-9])|((1|2)[0-9])|30|31)$”

正确格式为：“01”“09”和“1”“31”。

经典正则表达式应用收藏

zhanghuiguoanlige@126.com — 2008-6-5 4:22:00

正则表达式用于字符串处理，表单验证等场合，实用高效，但用到时总是不太把握，以致往往要上网查一番。我将一些常用的表达式收藏在这里，作备忘之用。本贴随时会更新。

匹配中文字符的正则表达式： [\u4e00-\u9fa5]

匹配双字节字符(包括汉字在内)：[^\x00-\xff]

应用：计算字符串的长度（一个双字节字符长度计2，ASCII字符计1）

String.prototype.len=function(){return this.replace([^\x00-\xff]/g,"aa").length;}

匹配空行的正则表达式：\n[\s| ]*\r

匹配HTML标记的正则表达式：/<(.*)>.*<\/\1>|<(.*) \/>/

匹配首尾空格的正则表达式：(^\s*)|(\s*$)

应用：javascript中没有像vbscript那样的trim函数，我们就可以利用这个表达式来实现，如下：

String.prototype.trim = function()
{
    return this.replace(/(^\s*)|(\s*$)/g, "");
}

利用正则表达式分解和转换IP地址：

下面是利用正则表达式匹配IP地址，并将IP地址转换成对应数值的javascript程序：

function IP2V(ip)
{
re=/(\d+)\.(\d+)\.(\d+)\.(\d+)/g  //匹配IP地址的正则表达式
if(re.test(ip))
{
return RegExp.$1*Math.pow(255,3))+RegExp.$2*Math.pow(255,2))+RegExp.$3*255+RegExp.$4*1
}
else
{
throw new Error("Not a valid IP address!")
}
}

不过上面的程序如果不用正则表达式，而直接用split函数来分解可能更简单，程序如下：

var ip="10.100.20.168"
ip=ip.split(".")
alert("IP值是："+(ip[0]*255*255*255+ip[1]*255*255+ip[2]*255+ip[3]*1))

匹配Email地址的正则表达式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*

匹配网址URL的正则表达式：http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?

利用正则表达式去除字串中重复的字符的算法程序：[注：此程序不正确：《]

var s="abacabefgeeii"
var s1=s.replace(/(.).*\1/g,"$1")
var re=new RegExp("["+s1+"]","g")
var s2=s.replace(re,"")
alert(s1+s2)  //结果为：abcefgi

我原来在CSDN上发贴寻求一个表达式来实现去除重复字符的方法，最终没有找到，这是我能想到的最简单的实现方法。思路是使用后向引用取出包括重复的字符，再以重复的字符建立第二个表达式，取到不重复的字符，两者串连。这个方法对于字符顺序有要求的字符串可能不适用。

得用正则表达式从URL地址中提取文件名的javascript程序，如下结果为page1

s="http://www.9499.net/page1.htm"
s=s.replace(/(.*\/){0,}([^\.]+).*/ig,"$2")
alert(s)

利用正则表达式限制网页表单里的文本框输入内容：

用正则表达式限制只能输入中文：onkeyup="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\u4E00-\u9FA5]/g,''))"

用正则表达式限制只能输入全角字符： onkeyup="value=value.replace(/[^\uFF00-\uFFFF]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\uFF00-\uFFFF]/g,''))"

用正则表达式限制只能输入数字：onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"

用正则表达式限制只能输入数字和英文：onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"

RegExp对象正则表达式功能用介绍

zhanghuiguoanlige@126.com — 2008-6-5 4:09:26

首先，让我们来了解一下究竟什么是VBScript的“正则表达式”对象，我们先来看一段程序：

Function CheckExp(patrn, strng)

Dim regEx, Match　　 ’ 建立变量。

Set regEx = New RegExp ’ 建立正则表达式。

regEx.Pattern = patrn ’ 设置模式。

regEx.IgnoreCase = true ’ 设置是否区分字符大小写。

regEx.Global = True ’ 设置全局可用性。

Matches = regEx.test(strng) ’ 执行搜索。

CheckExp = matches

End Function

我们现在就看看在数据校验方面正则表达式对象常用的方法和属性：

常用方法
Execute 方法
描述：对指定的字符串执行正则表达式搜索。

语法：object.Execute(string)　　Execute 方法的语法包括以下几个部分：

object：必需的。总是一个 RegExp 对象的名称。

string：必需的。要在其上执行正则表达式的文本字符串。

说明：正则表达式搜索的设计模式是通过 RegExp 对象的 Pattern 来设置的。Execute 方法返回一个Matches 集合，其中包含了在 string 中找到的每一个匹配的 Match 对象。如果未找到匹配，Execute 将返回空的 Matches 集合。

Test方法
描述：对指定的字符串执行一个正则表达式搜索，并返回一个 Boolean 值指示是否找到匹配的模式。

语法：object.Test(string)

Test 方法的语法包括以下几个部分：

object：必需的。总是一个 RegExp 对象的名称。

string：必需的。要执行正则表达式搜索的文本字符串。

说明：正则表达式搜索的实际模式是通过RegExp对象的Pattern属性来设置的。RegExp.Global属性对Test方法没有影响。如果找到了匹配的模式，Test方法返回True；否则返回False。

常用属性：
Global属性
描述：设置或返回一个 Boolean 值，该值指明在整个搜索字符串时模式是全部匹配还是只匹配第一个。

语法：object.Global [= True | False ]

object 参数总是 RegExp 对象。如果搜索应用于整个字符串，Global 属性的值为 True，否则其值为 False。默认的设置为 True。

IgnoreCase属性
描述：设置或返回一个Boolean值，指明模式搜索是否区分大小写。

语法：object.IgnoreCase [= True | False ]

object 参数总是一个 RegExp 对象。如果搜索是区分大小写的，则 IgnoreCase 属性为 False；否则为 True。缺省值为 True。

Pattern属性
描述：设置或返回被搜索的正则表达式模式。这是一个最重要的属性，我们主要是设置这个属性来实现数据校验的。

语法：object.Pattern [= "searchstring"]

Pattern 属性的语法包含以下几个部分：

object：必需的。总是一个 RegExp 对象变量。

searchstring：可选的。被搜索的正则字符串表达式。它可能包含设置部分表格中的各种正则表达式字符。

设置：在书写正则表达式的模式时使用了特殊的字符和序列。下表描述了可以使用的字符和序列，并给出了实例。

字符描述：

\：将下一个字符标记为特殊字符或字面值。例如"n"与字符"n"匹配。"\n"与换行符匹配。序列"\[code=vbscript\]"与"\"匹配，"$"与"("匹配。

^ ：匹配输入的开始位置。

$ ：匹配输入的结尾。

* ：匹配前一个字符零次或几次。例如，"zo*"可以匹配"z"、"zoo"。

+ ：匹配前一个字符一次或多次。例如，"zo+"可以匹配"zoo",但不匹配"z"。

? ：匹配前一个字符零次或一次。例如，"a?ve?"可以匹配"never"中的"ve"。

.：匹配换行符以外的任何字符。

(pattern) 与模式匹配并记住匹配。匹配的子字符串可以从作为结果的 Matches 集合中使用 Item [0]...[n]取得。如果要匹配括号字符(和 )，可使用"\(" 或 "$"。

x|y：匹配 x 或 y。例如 "z|food" 可匹配 "z" 或 "food"。"(z|f)ood" 匹配 "zoo" 或 "food"。

{n}：n 为非负的整数。匹配恰好n次。例如，"o{2}" 不能与 "Bob 中的 "o" 匹配，但是可以与"foooood"中的前两个o匹配。

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

{n,m} ：m 和 n 为非负的整数。匹配至少 n 次，至多 m 次。例如，"o{1,3}" 匹配 "fooooood"中前三个o。"o{0,1}"等价于"o?"。

[xyz] ：一个字符集。与括号中字符的其中之一匹配。例如，"[abc]" 匹配"plain"中的"a"。

[^xyz] ：一个否定的字符集。匹配不在此括号中的任何字符。例如，"[^abc]" 可以匹配"plain"中的"p".

[a-z] ：表示某个范围内的字符。与指定区间内的任何字符匹配。例如，"[a-z]"匹配"a"与"z"之间的任何一个小写字母字符。

[^m-z] ：否定的字符区间。与不在指定区间内的字符匹配。例如，"[m-z]"与不在"m"到"z"之间的任何字符匹配。

\b ：与单词的边界匹配，即单词与空格之间的位置。例如，"er\b" 与"never"中的"er"匹配，但是不匹配"verb"中的"er"。

\B ：与非单词边界匹配。"ea*r\B"与"never early"中的"ear"匹配。

\[code=vbscript\] ：与一个数字字符匹配。等价于[0-9]。

\D ：与非数字的字符匹配。等价于[^0-9]。

\f ：与分页符匹配。

\n ：与换行符字符匹配。

\r ：与回车字符匹配。

\s ：与任何白字符匹配，包括空格、制表符、分页符等。等价于"[ \f\n\r\t\v]"。

\S ：与任何非空白的字符匹配。等价于"[^ \f\n\r\t\v]"。

\t ：与制表符匹配。

\v ：与垂直制表符匹配。

\w ：与任何单词字符匹配，包括下划线。等价于"[A-Za-z0-9_]"。

\W ：与任何非单词字符匹配。等价于"[^A-Za-z0-9_]"。

\num ：匹配 num个，其中 num 为一个正整数。引用回到记住的匹配。例如，"(.)\1"匹配两个连续的相同的字符。

\n：匹配 n，其中n 是一个八进制换码值。八进制换码值必须是 1, 2 或 3 个数字长。

\xn：匹配n，其中n是一个十六进制的换码值。十六进制换码值必须恰好为两个数字长。例如，"\x41"匹配"A"。"\x041"等价于"\x04" 和 "1"。允许在正则表达式中使用 ASCII 码。

asp RegExp例子
我们想要对用户输入的电子邮件进行校验，那么，什么样的数据才算是一个合法的电子邮件呢？我可以这样输入：uestc95@263.net，当然我也会这样输入：xxx@yyy.com.cn,但是这样的输入就是非法的：xxx@@com.cn或者@xxx.com.cn，等等，所以我们得出一个合法的电子邮件地址至少应当满足以下几个条件：

1. 必须包含一个并且只有一个符号“@”

2. 必须包含至少一个至多三个符号“.”

3. 第一个字符不得是“@”或者“.”

4. 不允许出现“@.”或者.@

5. 结尾不得是字符“@”或者“.”

所以根据以上的原则和上面表中的语法，我们很容易的就可以得到需要的模板如下："(\w)+[@]{1}(\w)+[.]{1，3}(\w)+"

接下来我们仔细分析一下这个模板,首先“\w”表示邮件的开始字符只能是包含下划线的单词字符，这样，满足了第三个条件；“[@]{1}”表示在电子邮件中应当匹配并且只能匹配一次字符“@”,满足了条件一；同样的“[.]{1，3}”表示在电子邮件中至少匹配1个至多匹配3个字符“.” ，满足了第二个条件；模板最后的“(\w)+”表示结尾的字符只能是包含下划线在内的单词字符，满足了条件五；模板中间的“(\w)+”满足了条件四。

然后，我们就直接调用刚才的那个函数CheckExp("(\w)+[@]{1}(\w)+[.]{1}(\w)+",待校验的字符串)就好了，如果返回True就表示数据是合法的，否则就是不正确的，怎么样，简单吧。我们还可以写出来校验身份证号码的模板："([0-9]){15}"；校验URL的模板："^http://{1}((\w)+[.]){1,3}"等等；

正则表达式对象中最重要的属性就是：“Pattern”属性,只要真正掌握了这个属性，才可以自由的运用正则表达式对象来为我们的数据校验进行服务。

例如，"\11" 和 "\011" 都与一个制表符匹配。"\0011"等价于"\001" 与 "1"。八进制换码值不得超过 256。否则，只有前两个字符被视为表达式的一部分。允许在正则表达式中使用ASCII码。
在这段程序程序中，使用“New RegExp”来得到一个正则表达式对象，然后对这个对象进行正则匹配模板的赋值，也就是告诉正则表达式对象，你想要匹配一个什么样子的模板，然后使用方法Test来检测待处理的数据究竟和我们给出的模版是否相匹配，如果不匹配，那就表明待处理的数据不是合法的数据，从而也就实现了数据合法性的校验，我们可以看出，使用一个设计合理的匹配模板，我们可以轻松的校验一批格式类似的数据信息。

阳历转农历(VB)

zhanghuiguoanlige@126.com — 2008-6-3 16:55:13

[codd]

<%

Function Nongli()

Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)

Dim curTime, curYear, curMonth, curDay, curWeekday

Dim GongliStr, WeekdayStr, NongliStr, NongliDayStr

Dim i, m, n, k, isEnd, bit, TheDate

'获取当前系统时间

curTime = Date

'星期名

WeekName(0) = " * "

WeekName(1) = "星期日"

WeekName(2) = "星期一"

WeekName(3) = "星期二"

WeekName(4) = "星期三"

WeekName(5) = "星期四"

WeekName(6) = "星期五"

WeekName(7) = "星期六"

'天干名称

TianGan(0) = "甲"

TianGan(1) = "乙"

TianGan(2) = "丙"

TianGan(3) = "丁"

TianGan(4) = "戊"

TianGan(5) = "己"

TianGan(6) = "庚"

TianGan(7) = "辛"

TianGan(8) = "壬"

TianGan(9) = "癸"

'地支名称

DiZhi(0) = "子"

DiZhi(1) = "丑"

DiZhi(2) = "寅"

DiZhi(3) = "卯"

DiZhi(4) = "辰"

DiZhi(5) = "巳"

DiZhi(6) = "午"

DiZhi(7) = "未"

DiZhi(8) = "申"

DiZhi(9) = "酉"

DiZhi(10) = "戌"

DiZhi(11) = "亥"

'属相名称

ShuXiang(0) = "鼠"

ShuXiang(1) = "牛"

ShuXiang(2) = "虎"

ShuXiang(3) = "兔"

ShuXiang(4) = "龙"

ShuXiang(5) = "蛇"

ShuXiang(6) = "马"

ShuXiang(7) = "羊"

ShuXiang(8) = "猴"

ShuXiang(9) = "鸡"

ShuXiang(10) = "狗"

ShuXiang(11) = "猪"

'农历日期名

DayName(0) = "*"

DayName(1) = "初一"

DayName(2) = "初二"

DayName(3) = "初三"

DayName(4) = "初四"

DayName(5) = "初五"

DayName(6) = "初六"

DayName(7) = "初七"

DayName(8) = "初八"

DayName(9) = "初九"

DayName(10) = "初十"

DayName(11) = "十一"

DayName(12) = "十二"

DayName(13) = "十三"

DayName(14) = "十四"

DayName(15) = "十五"

DayName(16) = "十六"

DayName(17) = "十七"

DayName(18) = "十八"

DayName(19) = "十九"

DayName(20) = "二十"

DayName(21) = "廿一"

DayName(22) = "廿二"

DayName(23) = "廿三"

DayName(24) = "廿四"

DayName(25) = "廿五"

DayName(26) = "廿六"

DayName(27) = "廿七"

DayName(28) = "廿八"

DayName(29) = "廿九"

DayName(30) = "三十"

'农历月份名

MonName(0) = "*"

MonName(1) = "正"

MonName(2) = "二"

MonName(3) = "三"

MonName(4) = "四"

MonName(5) = "五"

MonName(6) = "六"

MonName(7) = "七"

MonName(8) = "八"

MonName(9) = "九"

MonName(10) = "十"

MonName(11) = "十一"

MonName(12) = "腊"

'公历每月前面的天数

MonthAdd(0) = 0

MonthAdd(1) = 31

MonthAdd(2) = 59

MonthAdd(3) = 90

MonthAdd(4) = 120

MonthAdd(5) = 151

MonthAdd(6) = 181

MonthAdd(7) = 212

MonthAdd(8) = 243

MonthAdd(9) = 273

MonthAdd(10) = 304

MonthAdd(11) = 334

'农历数据

NongliData(0) = 2635

NongliData(1) = 333387

NongliData(2) = 1701

NongliData(3) = 1748

NongliData(4) = 267701

NongliData(5) = 694

NongliData(6) = 2391

NongliData(7) = 133423

NongliData(8) = 1175

NongliData(9) = 396438

NongliData(10) = 3402

NongliData(11) = 3749

NongliData(12) = 331177

NongliData(13) = 1453

NongliData(14) = 694

NongliData(15) = 201326

NongliData(16) = 2350

NongliData(17) = 465197

NongliData(18) = 3221

NongliData(19) = 3402

NongliData(20) = 400202

NongliData(21) = 2901

NongliData(22) = 1386

NongliData(23) = 267611

NongliData(24) = 605

NongliData(25) = 2349

NongliData(26) = 137515

NongliData(27) = 2709

NongliData(28) = 464533

NongliData(29) = 1738

NongliData(30) = 2901

NongliData(31) = 330421

NongliData(32) = 1242

NongliData(33) = 2651

NongliData(34) = 199255

NongliData(35) = 1323

NongliData(36) = 529706

NongliData(37) = 3733

NongliData(38) = 1706

NongliData(39) = 398762

NongliData(40) = 2741

NongliData(41) = 1206

NongliData(42) = 267438

NongliData(43) = 2647

NongliData(44) = 1318

NongliData(45) = 204070

NongliData(46) = 3477

NongliData(47) = 461653

NongliData(48) = 1386

NongliData(49) = 2413

NongliData(50) = 330077

NongliData(51) = 1197

NongliData(52) = 2637

NongliData(53) = 268877

NongliData(54) = 3365

NongliData(55) = 531109

NongliData(56) = 2900

NongliData(57) = 2922

NongliData(58) = 398042

NongliData(59) = 2395

NongliData(60) = 1179

NongliData(61) = 267415

NongliData(62) = 2635

NongliData(63) = 661067

NongliData(64) = 1701

NongliData(65) = 1748

NongliData(66) = 398772

NongliData(67) = 2742

NongliData(68) = 2391

NongliData(69) = 330031

NongliData(70) = 1175

NongliData(71) = 1611

NongliData(72) = 200010

NongliData(73) = 3749

NongliData(74) = 527717

NongliData(75) = 1452

NongliData(76) = 2742

NongliData(77) = 332397

NongliData(78) = 2350

NongliData(79) = 3222

NongliData(80) = 268949

NongliData(81) = 3402

NongliData(82) = 3493

NongliData(83) = 133973

NongliData(84) = 1386

NongliData(85) = 464219

NongliData(86) = 605

NongliData(87) = 2349

NongliData(88) = 334123

NongliData(89) = 2709

NongliData(90) = 2890

NongliData(91) = 267946

NongliData(92) = 2773

NongliData(93) = 592565

NongliData(94) = 1210

NongliData(95) = 2651

NongliData(96) = 395863

NongliData(97) = 1323

NongliData(98) = 2707

NongliData(99) = 265877

'生成当前公历年、月、日 ==> GongliStr

curYear = Year(curTime)

curMonth = Month(curTime)

curDay = Day(curTime)

GongliStr = curYear & "年"

If (curMonth < 10) Then

    GongliStr = GongliStr & "0" & curMonth & "月"

Else

    GongliStr = GongliStr & curMonth & "月"

End If

If (curDay < 10) Then

    GongliStr = GongliStr & "0" & curDay & "日"

Else

    GongliStr = GongliStr & curDay & "日"

End If

'生成当前公历星期 ==> WeekdayStr

curWeekday = Weekday(curTime)

WeekdayStr = WeekName(curWeekday)

'计算到初始时间1921年2月8日的天数：1921-2-8(正月初一)

TheDate = (curYear - 1921) * 365 + Int((curYear - 1921) / 4) + curDay + MonthAdd(curMonth - 1) - 38

If ((curYear Mod 4) = 0 And curMonth > 2) Then

    TheDate = TheDate + 1

End If

'计算农历天干、地支、月、日

isEnd = 0

m = 0

Do

    If (NongliData(m) < 4095) Then

        k = 11

    Else

        k = 12

    End If

    n = k

    Do

        If (n < 0) Then

            Exit Do

        End If

    '获取NongliData(m)的第n个二进制位的值

    bit = NongliData(m)

    For q = 1 To n Step 1

        bit = Int(bit / 2)

    Next

    bit = bit Mod 2

    If (TheDate <= 29 + bit) Then

        isEnd = 1

        Exit Do

    End If

    TheDate = TheDate - 29 - bit

    n = n - 1

  Loop

  If (isEnd = 1) Then

      Exit Do

  End If

  m = m + 1

Loop

curYear = 1921 + m

curMonth = k - n + 1

curDay = TheDate

If (k = 12) Then

    If (curMonth = (Int(NongliData(m) / 65536) + 1)) Then

        curMonth = 1 - curMonth

    ElseIf (curMonth > (Int(NongliData(m) / 65536) + 1)) Then

        curMonth = curMonth - 1

    End If

End If

'生成农历天干、地支、属相 ==> NongliStr

NongliStr = TianGan(((curYear - 4) Mod 60) Mod 10) & DiZhi(((curYear - 4) Mod 60) Mod 12)

NongliStr = NongliStr & "(" & ShuXiang(((curYear - 4) Mod 60) Mod 12) & ")年"

'生成农历月、日 ==> NongljDayStr

If (curMonth < 1) Then

    NongliDayStr = "闰" & MonName(-1 * curMonth)

Else

    NongliDayStr = MonName(curMonth)

End If

NongliDayStr = NongliDayStr & "月"

NongliDayStr = NongliDayStr & DayName(curDay)

NongLi= NongliStr & "   " & NongliDayStr

end Function

%>

[/code]