<![CDATA[飞扬的口袋 2010 - ms.net]]> http://www.koodai.com.cn/ PJBlog3 2010-03-01T21:04:46+08:00 <![CDATA[一种信息化的学习策略探讨]]> admin http://www.koodai.com.cn/ kisscb@126.com 2010-03-01T21:04:46+08:00 2010-03-01T21:04:46+08:00 前言

考研时一门非常艰苦的工作，尤其是选择一流院校的时候，更是面临着无数的困难，因此考前的复习工作没有一定的策略是无法收到比较满意的效果的！而且，我希望以下的思考方法能够在以后其他的工作中被渗透和贯穿。

目标

利用计算机软件技术，结合项目管理、GTD知识、3G应用技术等多项技术，根据各自思想来组织和指导复习工作的方方面面：如1、资料收集；2、信息综合整理；3、进入实际复习阶段；4、新信息的组织和消化；5、时间管理；6、快速学习方法……

关于时间管理

一，时间段的分割

在经过一系列的了解后我大致把考研分为：

1、考研信息的收集整理阶段。该阶段主要是完成对于考研的决心，考研的前景，考研目标学校，就业情况等各个方面的信息收集，首先当然是要决断是否考研；其次是要决定考哪个专业那所学校；再次是复习课程有哪些，使用那些教材和复习资料，学长推荐的资料和共享的计划；最后是对考研的复习时间根据自身情况做一个整体的设计和把握。

2、复习阶段。该阶段可以根据复习计划分为几个不同的部分，这个根据个人的实际情况决定，假如外语和高数是弱项，而专业科比较扎实，那么结合复习时间长短，就应该对公共基础课做深入的学习。我大概做了如下的设想：高数基础差，所以报专业选择了考察数二的科目，外语基础不好，短期内目标是突破词汇。所以：第一阶段，数学课本整个要细致的过一遍——结合李永乐的书；第二阶段是李永乐的书开始看一遍，先对容易的认认真真的做一遍，难的不浪费时间。第三阶段，和第二阶段交叉一起，看课本！第四阶段再复习辅导书，第五，进行真题实战，第六，综合各类讲座等信息，开始对考点做研究。英语的复习，第一是词汇突破，第二真题训练，第三和第二交叉，加强阅读，第四，辅导书从第二阶段开始贯穿始终。第五，作文类题型的模式化分析与记忆。专业科比较简单，政治也无需多言。

3、考点研究和讲座信息的收集阶段。善于捕捉各类考试相关的信息，并迅速做出消化。要善于“押题、猜题”——这是建立在信息海量收集消化的基础上的！

4、冲刺调整阶段。

5、考试。

6、准备复试~

——————流程图略

二、时间利用法则

1、化零为整。时间的集中和成块化（block）比零散的复习更容易出成果！

2、见缝插针。要对每天的生活规律做一个细致的了解，然后分析出每天还有哪些时间没有被充分利用，要将生活的每一个细节细化到分钟、秒钟、毫秒级！善于利用个人PDA和软件开发技术做出实际有意义的东西来利用事件——制作工具的过程不会耽误学习，所谓磨刀不误砍柴工！

3、结构化和量化——掌握作息规律的基础上要对复习计划进行量化的设计，结构化的组织！要形成必要的任务系统，每天做哪些事情，在那些时间做完，要达到什么效果或者目标，对之后事务的影响级别（淤塞、关键、重要、次要、常规、加强），截止日期，相关影响因素的考虑，和最后的解决方案（解决、挂起、放弃、其他）等要素。

4、记住要做的事情！总是有很多事情在心里一念而过，还有些计划在执行的时候也总是出现偏差，记住要做的工作，强调执行力，像闹钟一样时刻提醒和帮助打理时间规划——只需要一个有效的个人时间管理工具！

5、讲究效率，不打疲劳战！

========

关于信息收集

考研不仅仅是死读书，信息收集和整理也是一个很重要的部分！掌握准确的消息可以是复习过程事半功倍。而有效个信息收集手段则是必须的。

信息的规律

考研信息也许是一篇长篇大论的复习方法，也有可能是一句话几个字而已，还有可能是一篇英语词汇速记方法。有真也有假。因此信息具有杂乱性、辩证性等特性。有效的组织和过滤，提取有用信息，消除冗余和错误显得非常重要。

信息的收集方法

必须要形成一个可以随时访问到的信息仓库！可以随时的新增、查询各项信息。信息是随时随地都可能获取到的，有用的东西必须及时的记录，定期做整理和精炼。{建立一个在线的信息库}

而且信息要分门别类，按照学科、方法论、综合门类等方式分别组织和整理，各类不同的信息不可以混合在一起。

信息的记录追求简洁、准确无误。

结论：做一个在线的，电脑和手机都能应用的数据库系统，作为信息收集器。

====================

恩，以上主要是这两天对于时间管理和信息收集的感悟和思考，先记录一下。以后如果有其他思考会继续写续篇。

插图：我的好帮手ThinkPad T61 and HTC Magic

打开这么多网页，而且是后台开启着iis+SqlServer应用服务器和数据库服务器，还有Apache+Mysql服务，WPS+Visio，电脑速度狂飙，丝毫没有不流畅的感觉！非常满意~~ 唯一遗憾的就是T61是商务机型，08年那时候人理解的商务机型的屏幕比例是4：3，所以不是宽屏，遗憾！！！

 

联通3g的网速测试，实际速度800多K，很好啦！不过可惜，在公司的时候只能用2G网络，再次诅咒联通的破网络！我在市区竟然还不能用。。。

]]> http://www.koodai.com.cn/default.asp?id=807 <![CDATA[软件测试NUnit工具的使用教程]]> admin http://www.koodai.com.cn/ kisscb@126.com 2009-12-16T14:58:27+08:00 2009-12-16T14:58:27+08:00 Bill Gates

Technorati 标签:

是在.net开发中用于做单元测试的极好工具，它的开发者甚至包含写了设计模式的四人帮GOF中的两位大神。就是这样的工具，完全开源且免费。你可以在http://www.nunit.org下载到该工具，中文的使用博客园中有热心人Confach也做了翻译，具体地址是：http://www.36sign.com/nunit.

具体教程可以参考NUnit2.0详细使用方法  下载: 1)NUnit的应用文档 下载  2)本文的PDF版 下载 ；

这里讲一下我遇见的一个问题，就是web.config中写了数据库字符串，在测试中如何取得这个字符串的问题：

其实很简单，就是把这个文件从项目文件中拷贝到你的测试编译好的dll所在的目录下，重新命名为 xxxxx.dll.config 即可。

目录对应关系：

..\ClassLibrary1\ClassLibrary1\Class1.cs

..\ClassLibrary1\ClassLibrary1\ClassLibrary1.csproj

..\ClassLibrary1\ClassLibrary1\bin\Debug\ClassLibrary1.dll

..\ClassLibrary1\ClassLibrary1\bin\Debug\ClassLibrary1.dll.Config

 

Nunit中文版一般都是自己编译来的，我找到一个ZOL的下载地址。

XDown也有，不过最好小心病毒~

 

其实测试关键还是在于用例的设计，其余的勉强可以算作是体力劳动而已。

要面面俱到的做完测试，不是一件容易的事情~

]]> http://www.koodai.com.cn/default.asp?id=790 <![CDATA[软件测试的几篇文章]]> admin http://www.koodai.com.cn/ kisscb@126.com 2009-12-15T19:17:28+08:00 2009-12-15T19:17:28+08:00 收集整理的一些关于软件测试方面的专业文章，具体目录如下：

未命名

 

Windows Live Writer很好用！感觉非常好！

点击下载此文件 PDF

]]> http://www.koodai.com.cn/default.asp?id=789 <![CDATA[ASP跟PHP对URL ENCODE编码后不同的解释]]> admin http://www.koodai.com.cn/ kisscb@126.com 2009-10-19T22:04:10+08:00 2009-10-19T22:04:10+08:00      昨日在分析SongTatse的歌曲地址的时候，先是用ASP调试的，其中有首歌《念残》，真实的文件地址中文件名是：%E5%BF%B5%E6%AE%8B ，但是ASP用server.urlencode("念残")之后的结果却是%C4%EE%B2%D0 。 不过当复制地址进迅雷的时候，迅雷都可以正确识别出来文件名为：念残。奇哉怪哉！百思不得其解。  

ASP/Visual Basic代码
  1. <%   
  2. str=server.urlencode("念残"):response.write str   
  3. '%C4%EE%B2%D0   
  4. %>  
PHP代码
  1. <?php   
  2. echo urlencode("念残");   
  3. //%E5%BF%B5%E6%AE%8B   
  4. ?>  

      其实这也不是什么问题，主要是因为太粗心，忽略了文件编码的问题！当把ASP文件修改为UTF8编码后，一切就会变得相同！

ASP/Visual Basic代码
  1. <%   
  2. response.Charset="utf-8"  
  3. str=server.urlencode("念残"):response.write str   
  4. '%E5%BF%B5%E6%AE%8B   
  5. %>  

       前后这两个ASP文件不同之处在于前者：

 

       也就是说前者是GBK后者是UTF。

       ~~ 囧

       附件： JavaScript 和 Php 对中文进行编码  ← 在AJAX尤其重要！

]]> http://www.koodai.com.cn/default.asp?id=762 <![CDATA[AspMvc框架 Demo]]> admin http://www.koodai.com.cn/ kisscb@126.com 2009-10-19T01:25:34+08:00 2009-10-19T01:25:34+08:00      今天发现的一个ASP mvc框架，一直以来都抱怨ASP做MVC不方便，即使NET也实现的不是很好，这个框架瞄了几眼，感觉代码可以控制的很精练，具体的实现没顾得上的看呢，不过技术的探索总是好事情，我发现这个网站刚发现，我就找到它了哈哈。

AspMvc简介:

    AspMvc是一个快速、简单的面向对象的轻量级Asp开发框架,是为了简化企业级应用开发和敏捷WEB应用开发而诞生的。

    借鉴了国内外很多优秀的(Java Ssh/Net NetMvc3.5 ThinkPhp)框架和模式，使用面向对象的开发结构和MVC模式，RoR的ORM映射，封装了CURD和丰富的工具集等，在缓存机制、认证机制和扩展性方面均有独特的表现。 使用AspMvc，你可以更方便和快捷的开发和部署应用,任何Asp应用开发都可以从AspMvc的简单、兼容和快速的特性中受益。简洁、快速和实用是AspMvc发展秉承的宗旨，为此AspMvc会不断吸收和融入更好的技术以保证其新鲜和活力，提供WEB应用开发的最佳实践.

环境要求:

    AspMvc可以支持具有IIS服务器环境，支持Access,Mssql2000,Mssql2005,Mysql等多种数据库，其中Access为免费版本,但应保留版权声明.Mssql2000,Mssql2005,Mysql不提供免费版本.请购买商业版本

目录结构:

XML/HTML代码
  1. 目录结构   
  2. AspMvc的目录结构非常清晰和容易部署。大致的目录结构如下，以项目为基础进行部署。   
  3.   
  4. ┎━网站根目录   
  5.   
  6. ┃┝ Admin 管理员文件夹   
  7. ┃┝ Com 商家文件夹   
  8. ┃┝ User 用户文件夹   
  9.   
  10. ┃┝ DataBase 数据库文件夹   
  11.   
  12. ┃┝ Model Model层文件夹   
  13.     ┝ DataBaseOBject 数据库对像文件夹   
  14.     ┗ DataBase 跨数据库兼容文件夹   
  15.   
  16. ┃┝ Control 控制层文件夹   
  17.   
  18. ┃┝ Resources 网站资源文件夹   
  19.     ┝ Code 验证码文件夹   
  20.     ┝ Css 样式文件夹   
  21.     ┝ DataTip 时间控制   
  22.     ┝ Editor Web编辑器   
  23.     ┝ Images 图片文件夹   
  24.     ┝ Js 脚本文件夹   
  25.     ┝ Md5 Md5文件夹   
  26.     ┝ PublicFile 网站公用文件夹   
  27.     ┗ Swf 动画文件夹   
  28.   
  29. ┃ ┝ Tool 工具集    
  30.     ┝ AspValidate 服务端验证   
  31.     ┝ Cache 缓存   
  32.     ┝ Config 配置   
  33.     ┝ Creater 代码生成器   
  34.     ┝ Form 常用表单生成器   
  35.     ┝ Language 多语言生成器   
  36.     ┝ Log 日志工具   
  37.     ┝ Mail Jmail邮件调用   
  38.     ┝ Page 分页   
  39.     ┝ Pay 第三方支付   
  40.     ┝ PoJo 数据库映射存放文件   
  41.     ┝ Rbac 权限控制器   
  42.     ┝ Session 会话控制   
  43.     ┝ Sn 序号生成器   
  44.     ┗ Upload 无组件上传   
  45.   
  46.   
  47. ┃ ┝ Upload 文件上传文件夹   
  48.   
  49.   
  50. ┗ ┗ Index.asp 项目开发指南   

AspMvc Demo下载     AspMvc v1.1下载   官方网站：http://www.aspmvc.com.cn/

]]> http://www.koodai.com.cn/default.asp?id=761 <![CDATA[获取SongTaste上音乐的真实地址]]> admin http://www.koodai.com.cn/ kisscb@126.com 2009-10-19T01:17:27+08:00 2009-10-19T01:17:27+08:00

   因为边分析边测试着写的，太过凌乱，看着有点费事，暂时放上来，但是不建议下载阅读，等我有时间了把变量规范命名后再上传。

    这个程序实现了从SongTatse的歌曲地址分析出存放在RayFile网络硬盘上的音乐文件，可以在线试听。

    更多的设想：

    1、Ajax查询

    2、整合Flash播放器试听，提供外链至博客的代码

    3、根据专辑进行分析

    4、性能！更优的性能！防止恶意提交，数据堵塞。

    5、缓冲

    6、最热的查询、最新的几次查询

    7、更多……

点击下载此文件            

]]> http://www.koodai.com.cn/default.asp?id=760 <![CDATA[AspJpeg图片组件的使用方法]]> admin http://www.koodai.com.cn/ kisscb@126.com 2009-09-23T20:01:31+08:00 2009-09-23T20:01:31+08:00      甘肃家教网虽则是一个完全公益的站点，不过好歹也是需要投入服务器和域名的，服务器的选择上自然不可能是使用多好的东西，用的是新誉的虚拟主机，一直以来也算过得去，奈何最近发现总是有人上传证件照片的时候上传2M左右大小的东西，郁闷！这么大的东西不但拖累网速而且浪费空间，我可没有打算往这里再增加投入的。只好自己解决了，想想还是要翻翻ASPJPEG图片处理组件的使用方法，图片自动压缩到一定大小，这样才能控制空间增长。

    1、为图片加入水印功能

Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName  ' 图片所在位置
Jpeg.Canvas.Font.Color = &H000000 ' 颜色,这里是设置成:黑
Jpeg.Canvas.Font.Family = "方正隶变简体"  ' 设置字体
Jpeg.Canvas.Font.Bold = False '是否设置成粗体
Jpeg.Canvas.Font.Size = 26 '字体大小
Jpeg.Canvas.Font.Quality = 4 ' 文字清晰度
Jpeg.Canvas.Print Jpeg.OriginalWidth/2-170,Jpeg.OriginalHeight-30, "www.gsjiajiao.com"   '水印文字
Jpeg.Save BlogPath & "/upload/" & FileName  ' 保存文件
Set Jpeg = Nothing

　　2、为图片制作缩略图

Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg")  ' 建立对象
Jpeg.Open BlogPath & "/upload/" & FileName  ' 图片所在位置
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
' 设置缩略图大小（这里比例设定为50%），也可以给他准确的数值，比如Jpeg.Width=120
Jpeg.Save BlogPath & "/upload/" & FileName  ' 保存文件
Set Jpeg = Nothing
 

        月光博客找到的两段代码，非常好用，具体的还有个地方可以读读。

在网站前台产品展示时，一般用缩略图，点击进入然后看到大图。
缩略图带来了两个烦劳：
1.如果后台只传一张大图，显示缩略图时只是将大图固定宽度和高度，这样不但造成缩略图变形，而且使得页面访问速度缓慢。
2.如果后台每次上传时，都上传两张图片，一张大图，一张缩略图。这样的话，没有1中的问题，但是给后台人员造成很大麻烦。因为后台人员并不一定知道处理生成缩略图；即使知道并能快速处理，也浪费掉一些时间。

下面的代码可以帮您用AspJpeg组件，按宽高比例，真正生成缩略图
AspJpeg组件下载：http://www.aspjpeg.com/download.html
AspJpeg组件使用：http://www.mydw.cn/tech/1/766.html
注册码：48958-77556-02411

ASP/Visual Basic代码
  1. Dim sOriginalPath   
  2. sOriginalPath = "images/1.gif"  
  3. '原图片路径一般上传完毕后获取，或者从数据库获取   
  4.   
  5. Dim sReturnInfo, sSmallPath '函数返回信息, 缩略图路径   
  6. sReturnInfo = BuildSmallPic(sOriginalPath, "images", 100, 100)   
  7.   
  8. Response.Write "返回信息:" & sReturnInfo & "<br/>"  
  9. If InStr(sReturnInfo, "Error_") <= 0 Then  
  10.     sSmallPath = sReturnInfo '返回信息就是    
  11.     '将sSmallPath写入数据库   
  12.        
  13. Else  
  14.     Response.Write "详细错误:"    
  15.     Select Case sReturnInfo   
  16.     Case "Error_01"  
  17.         Response.Write "<font color=red>创建AspJpeg组件失败,没有正确安装注册该组件</font>" & "<br/>"  
  18.     Case "Error_02"  
  19.         Response.Write "<font color=red>原图片不存在,检查s_OriginalPath参数传入值</font>" & "<br/>"  
  20.     Case "Error_03"       
  21.         Response.Write "<font color=red>缩略图存盘失败.可能原因:缩略图保存基地址不存在,检查s_OriginalPath参数传入值;对目录没有写权限;磁盘空间不足</font>" & "<br/>"  
  22.     Case "Error_Other"  
  23.         Response.Write "<font color=red>未知错误</font>" & "<br/>"  
  24.     End Select  
  25.     Response.End  
  26. End If  

原文件名：<%=sOriginalPath%><br/>
缩略图文件名：<%=sSmallPath%><br/>
原图片：<img src=<%=sOriginalPath%> border=0><br/><br/>
缩略图：<img src=<%=sSmallPath%> border=0>

ASP/Visual Basic代码
  1. 'Author：laifangsong QQ:25313644   
  2. '功能：按照指定图片生成缩略图   
  3. '注意：以下提到的“路径”都是值相对于调用本函数的文件的相对路径   
  4. '参数：   
  5. '    s_OriginalPath:        原图片路径 例:images/image1.gif   
  6. '    s_BuildBasePath:    生成图片的基路径,不论是否以“/”结尾均'可 例:images或images/   
  7. '    n_MaxWidth:            生成图片最大宽度   
  8. '                        如果在前台显示的缩略图是 100*100,这里 'n_MaxWidth=100,n_MaxHeight=100.   
  9. '    n_MaxHeight:        生成图片最大高度   
  10. '返回值：   
  11. '    返回生成后的缩略图的路径   
  12. '错误处理：   
  13. '    如果函数执行过程中出现错误,将返回错误代码,错误代码以 “Error”开头   
  14. '        Error_01:创建AspJpeg组件失败,没有正确安装注册该组件   
  15. '        Error_02:原图片不存在,检查s_OriginalPath参数传入值   
  16. '        Error_03:缩略图存盘失败.可能原因:缩略图保存基地址不存在,检查s_OriginalPath参数传入值;对目录没有写权限;磁盘空间不足   
  17.  '       Error_Other:未知错误   
  18. '调用例子:   
  19.  '   Dim sSmallPath 缩略图路径   
  20. '    sSmallPath = BuildSmallPic'("images/image1.gif", "images", 100, 100)       
  21. '================================================================   
  22. Function BuildSmallPic(s_OriginalPath, s_BuildBasePath, n_MaxWidth, n_MaxHeight)   
  23.     Err.Clear   
  24.     On Error Resume Next  
  25.        
  26. '    检查组件是否已经注册   
  27.     Dim AspJpeg   
  28.     Set AspJpeg = Server.Createobject("Persits.Jpeg")   
  29.     If Err.Number <> 0 Then  
  30.         Err.Clear   
  31.         BuildSmallPic = "Error_01"  
  32.         Exit Function  
  33.     End If  
  34.   
  35. '    检查原图片是否存在   
  36.     Dim s_MapOriginalPath   
  37.     s_MapOriginalPath = Server.MapPath(s_OriginalPath)   
  38.     AspJpeg.Open s_MapOriginalPath '打开原图片   
  39.     If Err.Number <> 0 Then  
  40.         Err.Clear   
  41.         BuildSmallPic = "Error_02"  
  42.         Exit Function  
  43.     End If  
  44.   
  45. '    按比例取得缩略图宽度和高度   
  46.     Dim n_OriginalWidth, n_OriginalHeight '原图片宽度、高度   
  47.     Dim n_BuildWidth, n_BuildHeight '缩略图宽度、高度   
  48.     Dim div1, div2   
  49.     Dim n1, n2   
  50.     n_OriginalWidth = AspJpeg.Width   
  51.     n_OriginalHeight = AspJpeg.Height   
  52.     div1 = n_OriginalWidth / n_OriginalHeight   
  53.     div2 = n_OriginalHeight / n_OriginalWidth   
  54.     n1 = 0   
  55.     n2 = 0   
  56.     If n_OriginalWidth > n_MaxWidth Then  
  57.         n1 = n_OriginalWidth / n_MaxWidth   
  58.     Else  
  59.         n_BuildWidth = n_OriginalWidth   
  60.     End If  
  61.     If n_OriginalHeight > n_MaxHeight Then  
  62.         n2 = n_OriginalHeight / n_MaxHeight   
  63.     Else  
  64.         n_BuildHeight = n_OriginalHeight   
  65.     End If  
  66.     If n1 <> 0 Or n2 <> 0 Then  
  67.         If n1 > n2 Then  
  68.             n_BuildWidth = n_MaxWidth   
  69.             n_BuildHeight = n_MaxWidth * div2   
  70.         Else  
  71.             n_BuildWidth = n_MaxHeight * div1   
  72.             n_BuildHeight = n_MaxHeight   
  73.         End If  
  74.     End If  
  75.   
  76. '    指定宽度和高度生成   
  77.     AspJpeg.Width = n_BuildWidth   
  78.     AspJpeg.Height = n_BuildHeight   
  79.        
  80. '    --将缩略图存盘开始--   
  81.     Dim pos, s_OriginalFileName, s_OriginalFileExt 
  82. '位置、原文件名、原文件扩展名   
  83.     pos = InStrRev(s_OriginalPath, "/") + 1   
  84.     s_OriginalFileName = Mid(s_OriginalPath, pos)   
  85.     pos = InStrRev(s_OriginalFileName, ".")   
  86.     s_OriginalFileExt = Mid(s_OriginalFileName, pos)   
  87.   
  88.     Dim s_MapBuildBasePath, s_MapBuildPath, s_BuildFileName 
  89. '缩略图绝对路径、缩略图文件名   
  90.     Dim s_EndFlag    
  91. '小图片文件名结尾标识 例: 如果大图片文件名是“image1.gif”,结尾标识是“_small”,那么小图片文件名就是“image1_small.gif”   
  92.     If Right(s_BuildBasePath, 1) <> "/" Then s_BuildBasePath = s_BuildBasePath & "/"  
  93.     s_MapBuildBasePath = Server.MapPath(s_BuildBasePath)   
  94.     s_EndFlag = "_small" '可以自定义,只要能区别大小图片即可   
  95.     s_BuildFileName = Replace(s_OriginalFileName, s_OriginalFileExt, "") & s_EndFlag & s_OriginalFileExt   
  96.     s_MapBuildPath = s_MapBuildBasePath & "\" & s_BuildFileName  
  97.       
  98.     AspJpeg.Save s_MapBuildPath '保存  
  99.     If Err.Number <> 0 Then  
  100.         Err.Clear  
  101.         BuildSmallPic = "Error_03"  
  102.         Exit Function  
  103.     End If  
  104.  '   --将缩略图存盘结束--  
  105.  
  106.   '  注销实例  
  107.     Set AspJpeg = Nothing  
  108.     If Err.Number <> 0 Then  
  109.         BuildSmallPic = "Error_Other"   
  110.         Err.Clear   
  111.     End If  
  112.     BuildSmallPic = s_BuildBasePath & s_BuildFileName   
  113. End Function  

 ASPJPEG精确生成缩略图,先裁切再缩略

ASP/Visual Basic代码
  1. Const CurrDomain="http://net.todo.net.cn/"    '程序所在域   
  2. Const SysSmallFix="TodoSmall_"                '缩略图的后缀，注意保持全局一致Function MakeSL (BasePic,NewPic,SL_Width,SL_Height)   
  3. Dim ToDoJpeg   
  4. Dim SJ_Width,SJ_Height,YG_Width,YG_Height,ZZ_Width,ZZ_Height,CQ_Type   
  5. Dim x,y,w,h   
  6. Dim BaseFolder,BaseFile    
  7. '第一步，建立ASPJPEG组件，打开原图   
  8. Set ToDoJpeg = Server.CreateObject("Persits.Jpeg")   
  9. ToDoJpeg.Open Server.mappath(BasePic)    
  10. '第二步，并给出图片高宽   
  11. SJ_Width=ToDoJpeg.Width   
  12. SJ_Height=ToDoJpeg.Height   
  13. response.write "原图宽："&SJ_Width   
  14. response.write "<br>"    
  15. response.write "原图高："&SJ_Height   
  16. response.write "<br>"    
  17. '第三步，根据轮显图片的宽高，裁切图片   
  18. '只裁切比缩略图大的，如果有一个边小于缩略图，返回原图    
  19. '有五种形式：等高等宽；等宽大高；等高大宽；大宽小高；大高小宽   
  20. YG_Width=((SL_Width*SJ_Height)/SL_Height)   
  21. YG_Height=((SL_Height*SJ_Width)/SL_Width)   
  22. response.write "放大图应该宽："&YG_Width   
  23. response.write "<br>"    
  24. response.write "放大图应该高："&YG_Height   
  25. response.write "<br>"    
  26. if SJ_Width>YG_Width then        '横向裁切   
  27.    ZZ_Width=YG_Width   
  28.    ZZ_Height=SJ_Height   
  29.    CQ_Type=-1   
  30. elseif SJ_Width=YG_Width then '不裁切   
  31.    ZZ_Width=YG_Width   
  32.    ZZ_Height=YG_Height   
  33.    CQ_Type=0   
  34. elseif SJ_Width<YG_Width then '竖向裁切   
  35.    ZZ_Width=SJ_Width   
  36.    ZZ_Height=YG_Height   
  37.    CQ_Type=1   
  38. end if   
  39. response.write "最终确定裁切宽："&ZZ_Width   
  40. response.write "<br>"    
  41. response.write "最终确定裁切高："&ZZ_Height   
  42. response.write "<br>"  
  43.   
  44. x=0   
  45. y=0   
  46. w=ZZ_Width   
  47. h=ZZ_Height if CQ_Type=-1 then   
  48.    x=Cint((SJ_Width-YG_Width)/2)   
  49. elseif CQ_Type=1 then   
  50.    y=Cint((SJ_Height-YG_Height)/2)   
  51. end if   
  52. response.write "X点："&x   
  53. response.write "<br>"    
  54. response.write "Y点："&y   
  55. response.write "<br>"  
  56. ToDoJpeg.Crop x,y,x+w,y+h       '裁切    
  57. '第四步,缩略   
  58. ToDoJpeg.Width=SL_Width   
  59. ToDoJpeg.Height=SL_Height   
  60. ' 第五步，保存结果   
  61. BasePic=Replace(BasePic,"/","\")  
  62. BaseFolder=Left(BasePic,InstrRev(BasePic,"\"))  
  63. BaseFile=Right(BasePic,Len(BasePic)-InstrRev(BasePic,"\"))  
  64.  
  65. if BaseFolder<>"" then  
  66. NewPic=BaseFolder&SysSmallFix&BaseFile  
  67. else  
  68. NewPic=SysSmallFix&BaseFile  
  69. end if  
  70. ToDoJpeg.save Server.mappath(NewPic)   
  71. '第六步，释放组件对象  
  72. Set ToDoJpeg = Nothing   
  73. '第七步，返回缩略图路径  
  74. MakeSL=NewPic  
  75. End Function  
  76. Response.write("<img src='"&CurrDomain&"\sl/"&MakeSL ("test.jpg","",120,90)&"'>")   

代码自动高亮好像有点问题，不过程序是没错误的

]]> http://www.koodai.com.cn/default.asp?id=746 <![CDATA[陷入极度崩溃的：C#”标准表达式中数据类型不匹配"]]> admin http://www.koodai.com.cn/ kisscb@126.com 2009-03-25T00:56:48+08:00 2009-03-25T00:56:48+08:00 今天使用的是ACCESS数据库，不同于sql数据库，所以遇见了很多问题！
刚开始的时候还是没有引入命名空间，必须要加上：
复制内容到剪贴板程序代码 程序代码
using System.Data.OleDb;

我在web.config中使用的连接字符串是：
复制内容到剪贴板程序代码 程序代码
    <appSettings>
    <add key="provider" value="Provider=Microsoft.Jet.OLEDB.4.0;data source=" />
  <add key="database" value="~/database/database.mdb" />
</appSettings>

提示provider，直觉应该是没有引入正确的命名空间，果然是没有引入：
复制内容到剪贴板程序代码 程序代码
using System.Data.ProviderBase;

编码的时候使用惯了sql的那套，结果，SqlConnection要改作OleDbConnection，还有OleDbCommand和OleDbDataReader等处。真是郁闷！！！不顺手啊~~~

而且
复制内容到剪贴板程序代码 程序代码
OleDbCommand com = new OleDbCommand(Sql,conn);
这句中Sql要写成是：
复制内容到剪贴板程序代码 程序代码
string Sql = string.Format("select * from products where id = {0}", id);

原来你大可以写成：
复制内容到剪贴板程序代码 程序代码
String Sql = "select * from products where id='" + id +"'";
当然前提是要定义id，
复制内容到剪贴板程序代码 程序代码
public partial class Product : System.Web.UI.Page
{
    public string  id=null;
    protected void Page_Load(object sender, EventArgs e)
    {
        //定义参数输入量
        id =  Request["id"].ToString();

另外还要做好ID的数据合法检查工作哦~

部分代码：
复制内容到剪贴板程序代码 程序代码
        id =  Request["id"].ToString();

        //定义数据库连接字符串和sql查询语句
        String connString=System.Configuration.ConfigurationManager.AppSettings["provider"].ToString() + System.Web.HttpContext.Current.Server.MapPath(ConfigurationManager.AppSettings["database"]) + ";";
        string Sql = string.Format("select * from products where id = {0}", id);

        //String Sql = "select * from products where id='" + id +"'";
        OleDbConnection conn = new OleDbConnection(connString);
        //SqlConnection conn = new SqlConnection(connString);
        conn.Open();

        OleDbCommand com = new OleDbCommand(Sql,conn);
       // SqlCommand com = new SqlCommand(Sql,conn);
        //SqlDataReader dr = null;
        OleDbDataReader dr = null;
        dr = com.ExecuteReader();

        if (dr.Read())
        {
            this.t1.Text = dr["Product"].ToString();
        }
        else
        {
            Response.Write("cuowu");
        }
        dr.Close();
        conn.Close();  
]]> http://www.koodai.com.cn/default.asp?id=656 <![CDATA[ASP验证码程序实例]]> admin http://www.koodai.com.cn/ kisscb@126.com 2009-03-15T02:03:56+08:00 2009-03-15T02:03:56+08:00 在会话(Session)中产生一个随机量，然后在需要屏蔽机器人提交暴力破解的地方加入一个文本框(Input box)，在前台使用ajax验证输入是否正确或者在提交表单后在服务器端验证。根据验证结果决定操作是否有效。

一般情况下，客户端的随机量展示不能在源码里，主要是因为html格式的文档要获取固定位置的字符易如反掌。故一般用组件生成图片。

以下内容就是ASP产生验证码的一段很简洁的程序，在验证时将输入值跟Session("safenum")比较即可：
复制内容到剪贴板程序代码 程序代码

<%
Response.Buffer = True
With Response
.Expires = -1
.AddHeader "Pragma","no-cache"
.AddHeader "cache-ctrol","no-cache"
End With
Dim a(10,10)
a(0,1) = "0x3c" '数字0
a(0,2) = "0x66"
a(0,3) = "0xc3"
a(0,4) = "0xc3"
a(0,5) = "0xc3"
a(0,6) = "0xc3"
a(0,7) = "0xc3"
a(0,8) = "0xc3"
a(0,9) = "0x66"
a(0,10)= "0x3c"

a(1,1) = "0x18" '数字1
a(1,2) = "0x1c"
a(1,3) = "0x18"
a(1,4) = "0x18"
a(1,5) = "0x18"
a(1,6) = "0x18"
a(1,7) = "0x18"
a(1,8) = "0x18"
a(1,9) = "0x18"
a(0,10)= "0x7e"

a(2,1) = "0x3c" '数字2
a(2,2) = "0x66"
a(2,3) = "0x60"
a(2,4) = "0x60"
a(2,5) = "0x30"
a(2,6) = "0x18"
a(2,7) = "0x0c"
a(2,8) = "0x06"
a(2,9) = "0x06"
a(2,10)= "0x7e"

a(3,1) = "0x3c" '数字3
a(3,2) = "0x66"
a(3,3) = "0xc0"
a(3,4) = "0x60"
a(3,5) = "0x1c"
a(3,6) = "0x60"
a(3,7) = "0xc0"
a(3,8) = "0xc0"
a(3,9) = "0x66"
a(3,10)= "0x38"

a(4,1) = "0x38" '数字4
a(4,2) = "0x3c"
a(4,3) = "0x36"
a(4,4) = "0x33"
a(4,5) = "0x33"
a(4,6) = "0x33"
a(4,7) = "0xff"
a(4,8) = "0x30"
a(4,9) = "0x30"
a(4,10)= "0xfe"

a(5,1) = "0xfe" '数字5
a(5,2) = "0xfe"
a(5,3) = "0x06"
a(5,4) = "0x06"
a(5,5) = "0x3e"
a(5,6) = "0x60"
a(5,7) = "0xc0"
a(5,8) = "0xc3"
a(5,9) = "0x66"
a(5,10)= "0x3c"

a(6,1) = "0x60" '数字6
a(6,2) = "0x30"
a(6,3) = "0x18"
a(6,4) = "0x0c"
a(6,5) = "0x3e"
a(6,6) = "0x63"
a(6,7) = "0xc3"
a(6,8) = "0xc3"
a(6,9) = "0x66"
a(6,10) ="0x3c"

a(7,1) = "0xff" '数字7
a(7,2) = "0xc0"
a(7,3) = "0x60"
a(7,4) = "0x30"
a(7,5) = "0x18"
a(7,6) = "0x18"
a(7,7) = "0x18"
a(7,8) = "0x18"
a(7,9) = "0x18"
a(7,10)= "0x18"

a(8,1) = "0x3c" '数字8
a(8,2) = "0x66"
a(8,3) = "0xc3"
a(8,4) = "0x66"
a(8,5) = "0x3c"
a(8,6) = "0x66"
a(8,7) = "0xc3"
a(8,8) = "0xc3"
a(8,9) = "0x66"
a(8,10)= "0x3c"

a(9,1) = "0x3c" '数字9
a(9,2) = "0x66"
a(9,3) = "0xc3"
a(9,4) = "0xc3"
a(9,5) = "0x66"
a(9,6) = "0x3c"
a(9,7) = "0x18"
a(9,8) = "0x0c"
a(9,9) = "0x06"
a(9,10)= "0x03"
Dim num
Randomize
num = Int(7999 * Rnd + 2000)
Session("safenum") = num
Dim Image
Dim Width, Height
Dim digtal
Dim Length
Dim sort
Dim hc
Length = 4
hc = chr(13) & chr(10)
Redim sort(Length)
digital = ""
For I = 1 To Length - Len(num)
digital = digital & "0"
Next
For I = 1 To Len(num)
digital = digital & Mid(num, I, 1)
Next
For I = 1 To Len(digital)
sort(I) = Mid(digital, I, 1)
Next
Width = 8 * Len(digital)
Height = 10
Response.ContentType = "image/x-xbitmap"
Image = "#define counter_width " & Width & hc
Image = Image & "#define counter_height " & Height & hc
Image = Image & "static unsigned char counter_bits[] = {" & hc
For I = 1 To Height
For J = 1 To Length
Image = Image & a(sort(J),I) & ","
Next
Next
Image = Left(Image, Len(Image) - 1)
Image = Image & "};" & hc
Response.Write Image
%>

]]> http://www.koodai.com.cn/default.asp?id=653 <![CDATA[asp中利用数组实现数据库记录的批量录入方法 ]]> admin http://www.koodai.com.cn/ kisscb@126.com 2008-10-16T16:25:47+08:00 2008-10-16T16:25:47+08:00 两个方案，都写的不错，第一个更为实用些，涉及到了表单的动态设计，第二个写的也好，看看：

包括两个文件
1。allneeddj.asp：实现表单的生成
2. allneeddjresult.asp 处理表单批量录入
3.hbedu.mdb :数据库文件
其数据库结构如下
provinceid:省份编号 数值型
dytaocount:打样套数 数值型
papertaocount:纸样套数 数值型
cpcontent:出片内容 数值型
filename:文件名 文本型
beizhu:备注 备注型

本例子中以10条记录，每条记录6个字段说明.

1。allneeddj.asp

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>需求登记</title>
</head>

<body>
<%
set conn=server.createobject("adodb.connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("hbedu.mdb")
%>
<form method="POST" action="allneeddjresult.asp">
<table border="1" width="700" bordercolorlight="#FFFFFF">
    <tr align="center"> 
      <td width="660" colspan="6">需求登记</td>
</tr>
<tr>
<td width="54" align="center">省份</td>
<td width="66" align="center">打样张数</td>
<td width="66" align="center">纸样张数</td>
<td width="66" align="center">出片内容</td>
<td width="80" align="center">文件名</td>
<td width="328" align="center">备注</td>
</tr>
<%
rem 通过循环动态生成不同名称表单域
for i=1 to 10 
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from provinceinfo "
rs.open sql,conn,1,1




set rs1=server.createobject("adodb.recordset")
sql1="select * from filename "
rs1.open sql1,conn,1,1
%>
<tr>
<td width="54"><select name="<% response.write"data1"&i %>" size="1">
<%
do while not rs.eof
if province=cstr(rs("id")) then
sel="selected"
else
sel=""
end if 
response.write "<option " & sel & " value='"+CStr(rs("id"))+"'>"+rs("province")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
set rs=nothing
%> </select></td>
<td width="66"><input type="text" name="<% response.write"data2"&i %>" size="8"></td>
<td width="66"><input type="text" name="<% response.write"data3"&i %>" size="8"></td>
<td width="66"><select size="1" name="<% response.write"data4"&i %>">
<option value="1">改动部分</option>
<option value="2">全部内容</option>
</select></td>
<td width="80"><select name="<% response.write"data5"&i %>" size="1">
<%
do while not rs1.eof
if filename=cstr(rs1("filename")) then
sel="selected"
else
sel=""
end if 
response.write "<option " & sel & " value='"+CStr(rs1("filename"))+"'>"+rs1("filename")+"</option>"+chr(13)+chr(10)
rs1.movenext
loop

set rs1=nothing
%> </select>　</td>
<td width="328"><textarea rows="2" name="<% response.write"data6"&i %>" cols="46"></textarea></td>
</tr>
<% next %>
    <tr align="center"> 
      <td width="660" colspan="6">
<input type="submit" value="提交" name="B1">
      </td>
</tr>
</table>
</form>

</body>

</html>

2.allneeddjresult.asp

<%
rem 定义二维数组存放从表单获取的值
dim data(10,6)
for i= 1 to 6
for j= 1 to 10
mydata="data"+cstr(i)+cstr(j)
data(j,i)=request.form(mydata)
next
next
%>

<%
rem 输出表单输入的值
for i= 1 to 10
for j= 1 to 6
response.write data(i,j)
next
response.write""
next
'response.end
%>
<% 
dim conn,rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & _
Server.MapPath("hbedu.mdb")


for i= 1 to 10
rem 循环批量入库

Set rs=SERVER.CreateObject("ADODB.Recordset")
rs.Open "hbedu",conn,1,3
rs.AddNew
rs("beizhu")=data(i,6)
rs("filename")=data(i,5)
rs("cpcontent")=data(i,4)
rs("papertaocount")=data(i,3)
rs("dytaocount")=data(i,2)
rs("provinceid")=data(i,1)
rs.Update
rs.close
set rs=nothing
response.write"ok"
next
%>
 

批量录入在数据库的应用中比较广泛的，关于批量录入的方法也有好多种。
　　下面我就结合我实际中的应用，谈一下儿我是怎么实现的。
　　主要用到的是form的集合的概念，通过循环取的所有的集合内数据。
　　考虑到大家看着方便，我把它集成到了一个页面。
　　下面是具体的代码：
batchInput.asp
<%
'#####################################
'File Function:批量录入数据
'Author:Myhon
'Date:2003-8-19
'#####################################

'向数据库写入数据
SUB writeData()
dim recCnt,i
dim fieldName1,fieldName2,fieldName3
dim conn
dim sqlStr,connStr
connStr="Provider=SQLOLEDB.1;Initial Catalog=myDatabase;Data Source=myhon;User Id=sa;PASSWORD="
set conn=Server.CreateObject("ADODB.Connection")
conn.open connStr '建立数据库连接

recCnt=request.form("stu_num").count '取得共有多少条记录
'批量录入数据
for i=1 to recCnt
fieldName1=trim(request.form("fieldName1")(i))
fieldName2=trim(request.form("fieldName2")(i))
fieldName3=trim(request.form("fieldName3")(i))
sqlStr="insert into myTable(fieldName1,fieldName2,fieldName3) values('"
sqlStr=sqlStr & fieldName1 & "','"
sqlStr=sqlStr & fieldName2 & "','"
sqlStr=sqlStr & fieldName3 & "')"
'response.write sqlStr
conn.execute(sqlStr)
next
END SUB

'显示成批录入的界面
SUB InputData()
dim recCnt,i
%>
<form name="bathInputData" action="" method="post">
<%
recCnt=cint(request.form("recCnt"))
for i=1 to recCnt
%>
<input type="text" name="fieldName1">
<input type="text" name="fieldName2">
<input type="text" name="fieldName3">
<%
next
%>
<br>
<input type="submit" name="action" value="提交">
</form>
<%
END SUB

'指定要批量录入多少条记录
SUB assignHowMuch()
%>

<!------指定要录入多少条记录-------------->
<form name="form1" action="" method="post">
您要录入的记录的条数：<input type="text" name="recCnt">
<input type="submit" name="action" value="下一步>>">
</form>
<%
END SUB

if request.form("action")="下一步>>" then
Call InputData() '显示成批录入界面
elseif request.form("action")="提交" then Call writeData() '向数据库批量写入数据
else
Call assignHowMuch() '显示指定录入多少条记录的界面
end if
%>

]]> http://www.koodai.com.cn/default.asp?id=594