一、FckEditor2.5.1 程序瘦身，删除一些一般不会用到的文件
二、FckEditor2.5.1 基本设置，添加字体，大小，语言
三、FckEditor2.5.1 ASP上传配置，按日期方式存储上传的文件
四、FckEditor2.5.1 快速上传中文乱码处理
五、FckEditor一些安全相关设置

编号：1 显示所有应用程序池
编号：2 一个应用程序拆分为多个
编号：3 多个应用程序池合为一个
编号：4 所有关闭的站点放到Stop池里
编号：5 所有站点放到一个应用程序池里
编号：6 从X池里取出N个放到Y池里

现在杀毒的对vbs相当敏感，只要发现对注册表的xx作，或使用vbs运行命令（加用户） 就可能被杀。下面谈2方法可以简单解决：

1.使用连接符"&" 如：

Set CURObj = CreateObject("WScript.Shell")

mhk="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win..

'/*=========================================================================
' * Intro       VBS实现搜索引擎收录数查询－学VBS采集或正则表达式的可以看看
' * FileName    GetSearchCount.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/GetSearchCount.vbs.html
' * MadeTime    2008-01-01 11:54:04
' * LastModify  2008-01-01 11:54:04
' *==========================================================================*/

'/*=========================================================================
' * Intro       Base64编码解码函数,Base64加密解密函数
' * FileName    Base64Test.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/Base64Test.vbs.html
' * MadeTime    2007-12-31 23:44:36
' * LastModify  2007-12-31 23:44:36
' *==========================================================================*/

'/*=========================================================================
' * Intro       [简单]VBS实现添加IE工具栏按钮
' * FileName    AddIEBar.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/AddIEBar.vbs.html
' * MadeTime    2008-01-01 11:33:27
' * LastModify  2008-01-01 11:33:27
' *==========================================================================*/

Timer_Start=timer

response.write  "共用时：" & (timer-Timer_Start) & "秒"


使用方法：


页面前调用：Timer_Start=timer


页面最后调用：response.write  "共用时：" & (timer-Timer_Start) & "秒"

'/*=========================================================================
' * Intro       在服务器上运行此文件，5秒内会弹出一个窗口，显示内容为iis进程的PID及所在的应用程序池，以便与观察哪个应用程序池占资源大
' * FileName    GetAppPoolId.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/GetAppPoolId.vbs.html
' * CreateTime  2007-12-26 17:49:20
' * LastModify  2007-12-26 17:49:20
' *==========================================================================*/

呵呵，说到采集很多人可能都会说采过，用软件采过，也有人采出了名堂，最著名的就是google baidu yahoo qihoo.....,呵呵，也许有人会说，你是说yahoo google baidu也是采集，您说呢。


两年前的某一天，什么都不懂，天天有事没事就到asp群里讨论问题，其实都是我问别人，有一天，有个叫飞黄的家伙，给了我一段代码..

以前和别人交换程序，换了一个在本地不用登录baidu就可以把文章发布到baidu上的一个.net程序，感觉很好用，虽然对我来说也没有什么用。


但这个软件给了我一个启发，既然可以不用登录baidu就可以发文章，那我如果可以给别人留言，那不就更好，但事实上并没有我想像的那么容易，呵呵，一般我能想到的别人早想到了，最根本..

'==========================================================================
' 安装说明：
'              1. 放在任意目录中，直接双击脚本，即可完成安装。
'              2. 安装好之后，右键单击快捷方式，会出现一项“显示目标位置”。
'              3. 如果移动了脚本的位置，请再安装一次。
'              4. 脚本名字可以改变。改好之后，请再安装一次。
'==========================================================================

'/*=========================================================================
' * Intro       QQ自动登陆生成器多用户版，支持参数生成
'               参数使用方法：QQAutoLoginCreates.vbs "QQ路径,安装版QQ可以删除当前引号内的内容" "QQ1" "QQ1的密码" "QQ2" "QQ2的密码"
' * FileName    QQAutoLoginCreates.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/QQAutoLoginCreates.vbs
' * MadeTime    2007-12-23 20:29:06
' * LastModify  2007-12-23 20:29:06
' *==========================================================================*/

'/*=========================================================================
' * Intro       QQ自动登陆生成器单用户版，支持参数生成
' * FileName    QQAutoLoginCreate.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/QQAutoLoginCreate.vbs.html
' * MethodFrom  http://bbs.verybat.cn/viewthread.php?tid=7008
' * MadeTime    2007-12-23 16:11:07
' * LastModify  2007-12-23 16:11:07
' *==========================================================================*/

'/*=========================================================================
' * Intro       网上找了一圈，都不怎么好，有一个比较不错的，汉化作者汉化时加了个自己的介绍文件，这个文件比程序本身还大，感觉不爽，于是本人的VBS版MAC修改代码便诞生了,在使用过程中如果出现不能上网的情况得返回一下网卡驱动（有些机器比较特别），如果要返回以前的MAC可以：开始-->控制面板-->网络连接-->点击您的网卡(一般是"本地连接")-->点击常规里的属性-->配置..-->高级-->选中-->NetworkAddress-->右边选择"不存在"
' * FileName    ChangeMAC.vbs
' * Author      yongfa365
' * Version     v3.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/ChangeMAC.vbs.html
' * MadeTime    2007-12-09 22:17:58
' * LastModify  2007-12-13 18:35:58
' *==========================================================================*/

dim i,msg
i=5
msg=i & "<--函数外部定义" & vbCrLf
function a()
dim i
i=1
msg=msg & i & "<--函数内部定义" & vbCrLf
i=i+1
msg=msg & i & "<--函数内部改变" & vbCrLf
end function

a()
msg=msg & i & "<--函数外部调用后，外部的i还是没有变" & vbCrLf
msgbox msg


'5<--函数外部定义
'1<--函..