柳永法－ASP+VBS柳永法(yongfa365)'Blog RSShttp://www.yongfa365.com/ASP/(C) 2007 http://www.yongfa365.com 硬盘整数分区FAT32/NTFS正确方法 ' * Intro 硬盘整数分区FAT32/NTFS正确方法
' * FileName Disk-Int-NTFS-FAT32
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/Disk-Int-NTFS-FAT32.vbs.html
' * From http://www.slyar.com/blog/disk-int-ntfs-fat32.html
' * MadeTime 2009-09-12 15:48:18
' * LastModify 2009-09-12 15:48:18
' *==========================================================================*/]]> http://www.yongfa365.com/Item/Disk-Int-NTFS-FAT32.html Sat, 12 Sep 2009 15:51:44 GMT 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs '/*=========================================================================
' * Intro 主要是解决在使用WebBrowser打印时，得先设置IE安全性的问题
' * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs
' * Author yongfa365
' * Version v1.0
' * WEB ..]]> http://www.yongfa365.com/Item/Set-IE-ActiveX-Prompted.vbs.html Sat, 20 Jun 2009 09:32:12 GMT 定时自动备份文件夹AutoBackUpFolder.vbs ' * Intro 定时自动备份文件夹到一个以时间命名的新目录，设置好后加到启动项里，只要一启动机器程序就会自动运行，占系统资源可以不计
' * FileName AutoBackUpFolder.VBS
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/AutoBackUpFolder.vbs.html
' * MadeTime 2009-05-14 17:18:33
' * LastModify 2009-05-14 17:18:33
' *==========================================================================*/]]> http://www.yongfa365.com/Item/AutoBackUpFolder.vbs.html Thu, 14 May 2009 17:27:41 GMT PHP安装脚本 PHPInstall.vbs V3.1 ' * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)
' * (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名)，然后双击运行这个文件,<?phpinfo()?>
' * FileName PHPInstall.vbs
' * Author yongfa365
' * Version v3.1
' * WEB http://www.yongfa365.com
' * Email yongfa365@qq.com
' * FirstWrite http://www.yongfa365.com/Item/PHPInstall.vbs.html
' * From http://www.yongfa365.com/Item/PHPFirstInstall.vbs.html
' * MadeTime 2008-04-01 15:55:41
' * LastModify 2009-05-04 12:21:48
' *==========================================================================*/]]> http://www.yongfa365.com/Item/PHPInstall.vbs.html Sun, 03 May 2009 18:57:33 GMT VBS读网页 strURL = InputBox("请输入要读的网址", "朗读网页", "http://www.yongfa365.com/Item/ZhiXingLiBiChuangYiGengZhongYao.html")

If strURL = "" Then
Wscript.quit
End If

Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = True
ie.navigate strURL
Do
Wscript.Sleep ..]]> http://www.yongfa365.com/Item/VBS-Du-Wang-Ye.html Wed, 08 Apr 2009 09:12:38 GMT 启用IIS6的GZIP功能，提高网站打开速度，减少带宽占用 http://www.yongfa365.com/Item/IIS6-Enable-Web-GZIP.html Sat, 21 Mar 2009 10:16:11 GMT VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP ' * Intro VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP
' * FileName VBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-MetaBase.xml.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/ADSI-IIS-Add-Deny-Grant-IP.vbs.html
' * From http://blog.csdn.net/linyu/archive/2008/11/14/3300454.aspx
' * MadeTime 2008-12-08 23:10:45
' * LastModify 2008-12-08 23:10:45
' *==========================================================================*/]]> http://www.yongfa365.com/Item/ADSI-IIS-Add-Deny-Grant-IP.vbs.html Mon, 08 Dec 2008 23:32:32 GMT 使用WMI切换或改变IE代理(Use WMI Change IE Proxy) IPS = CreateObject("Scripting.FileSystemObject").OpenTextFile("IP.txt", 1, True).ReadAll
IPS = Split(IPS, vbCrLf)

For Each IP in IPS
IPTemp = Split(IP, ":")
ChangeProxy IPTemp(0), IPTemp(1)
Wscript.echo I..]]> http://www.yongfa365.com/Item/ChangeProxy.vbs.html Thu, 06 Nov 2008 14:16:36 GMT 让SendKeys可以发送中文
'让SendKeys可以发送中文,clip.exe在windows2003里有
Set WshShell=CreateObject("WScript.Shell")
code="让SendKeys可以发送中文"
WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide
app=WshShell.Run ("notepad")
WScript.Sleep 1000
WshShell.AppActivate app
WshShell.SendKeys "^v{BS}"
Wsc..]]> http://www.yongfa365.com/Item/SendKeys-Chinese.html Thu, 06 Nov 2008 09:22:08 GMT VBScript 可以做什么的简单说明 http://www.yongfa365.com/Item/VBScript.Intro.html Sun, 19 Oct 2008 17:36:16 GMT VbsEdit：VBScript最佳编辑器 http://www.yongfa365.com/Item/VBScriptZuiJiaBianJiQi.html Sun, 19 Oct 2008 12:38:02 GMT VBScript生成Word,并添加表格及书签 ' * Intro VBScript生成Word,并添加表格及书签
' * FileName VBScript-Word-Table-Bookmarks.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/VBScript-Word-Table-Bookmarks.vbs.html
' * MadeTime 2008-10-18 22:15:40
' * LastModify 2008-10-18 22:15:40
' *==========================================================================*/]]> http://www.yongfa365.com/Item/VBScript-Word-Table-Bookmarks.vbs.html Sat, 18 Oct 2008 22:20:24 GMT 我的会说话的机器人终于诞生了 Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)
'Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Sam").Item(0)]]> http://www.yongfa365.com/Item/Microsoft.SAPI.SpVoice.html Mon, 22 Sep 2008 23:32:56 GMT EmEditor自定义工具执行cscript C:\WINDOWS\system32\cmd.exe
/k cscript $(Path)
$(Dir)
C:\WINDOWS\system32\cscript.exe]]> http://www.yongfa365.com/Item/EmEditor-Tools-Run-CScript.html Fri, 19 Sep 2008 22:45:40 GMT 让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的 ' * Intro 让IIS建立的站点默认是.net 2.0的,而不是.net 1.1的,没有使用WMI,所以在操作前先得停止IIS相关服务
' * FileName ChangeMetaBaseScriptMaps.vbs
' * Author yongfa365
' * Version v2.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/ChangeMetaBaseScriptMaps.vbs.html
' * MadeTime 2008-07-24 17:38:20
' * LastModify 2008-08-11 20:36:00 上次发时出错了，现在修正一下
'另：我发的文章在网上搜索时只找到了转载我文章的人的地址，而我的地址根本就没有，很是郁闷
' *==========================================================================*/
]]> http://www.yongfa365.com/Item/ChangeMetaBaseScriptMaps.vbs.html Thu, 24 Jul 2008 20:18:43 GMT VBS定时提醒脚本 Remind.vbs ' * Intro 定时提醒，格式：时间|提示语，具体使用方法可以参考例子
' * FileName Remind.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/Remind.vbs.html
' * MadeTime 2008-06-18 19:26:32
' * LastModify 2008-06-18 19:26:32
' *==========================================================================*/
]]> http://www.yongfa365.com/Item/Remind.vbs.html Wed, 18 Jun 2008 19:45:07 GMT txt文本切割器 SplitFile.vbs 支持拖动 ' * Intro       .txt文本切割器，默认为8000个字符切为一个文件。支持拖动。
' * FileName    SplitFile.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa36..]]> http://www.yongfa365.com/Item/SplitFile.vbs.html Thu, 24 Apr 2008 13:09:15 GMT php安装脚本 PHPFirstInstall.vbs ' * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)
' * (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名)，然后双击运行这个文件,<?phpinfo()?>
' * FileName PHPFirstInstall.vbs
' * Author yongfa365
' * Version v2.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/PHPFirstInstall.vbs.html
' * MadeTime 2008-04-01 15:55:41
' * LastModify 2008-05-28 20:20:20
' *==========================================================================*/]]> http://www.yongfa365.com/Item/PHPFirstInstall.vbs.html Tue, 01 Apr 2008 17:12:52 GMT VBS如何察看或获得剪切板内容 ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText]]> http://www.yongfa365.com/Item/VBSRuHeChaKanHuoHuoDeJianQieBanNeiRong.html Sat, 29 Mar 2008 16:25:55 GMT #57# 呀，为什么就记不住呢，做个VBS备忘录放在启动项里  
msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务")
'msgbox jo..]]> http://www.yongfa365.com/Item/57YaWeiShiMeJiuJiBuZhuNeZuoGeVBSBeiWangLuFangZaiQiDongXiangLi.html Mon, 24 Mar 2008 10:51:26 GMT ADOX.Catalog相关介绍,中文帮助,详细说明chm文档 首先给个完全版的地址，如果您机器上装过ＯＦＦＩＣＥ应该可以打开的：ADOX 对象模型，地址是："C:\Program Files\Common Files\Microsoft Shared\OFFICE11\2052\ADO210.CHM"，ADOX对象模型图：
1、ADOX 概述
Micros..]]> http://www.yongfa365.com/Item/ADOX.CatalogXiangGuanJieShaoZhongWenBangZhuXiangXiShuoMingchmWenDang.html Sat, 22 Mar 2008 12:31:55 GMT VBS脚本使用WMI操作注册表 oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
oReg.SetBinaryValue HKEY_LO..]]> http://www.yongfa365.com/Item/VBSJiaoBenShiYongWMICaoZuoZhuCeBiao.html Thu, 31 Jan 2008 15:55:42 GMT 柳永法：vbs或asp采集文章时网页编码问题 http://www.yongfa365.com/Item/GetWebCodePage.vbs.html Tue, 29 Jan 2008 21:15:25 GMT 柳永法:北京公交车2008年最新数据库终于获取了 ' * Intro       一直想弄呢,可是不知从何下手,还好,学习了数据获取技术,现在容易了.只提供程序,数据库自己弄,呵呵
' * FileName    yongfa365.机器人.获取北京最新公交路线.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/Get.www.bjbus.com.vbs.html
' * CreateTime  2008-01-28 18:13:08
' * LastModify  2008-01-28 18:13:08
' *==========================================================================*/]]> http://www.yongfa365.com/Item/Get.www.bjbus.com.vbs.html Mon, 28 Jan 2008 18:14:09 GMT xmldom初次实战-QQ签名获取 ' * Intro       用XMLDOM分析QQ签名文档
' * FileName    QQ_QianMing.vbs
' * Author      yongfa365
' * Version     v2.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/QQ_QianMing.vbs.html
' * MadeTime    2008-01-22 20:55:25
' * LastModify  2008-02-22 20:55:25
' *==========================================================================*/]]> http://www.yongfa365.com/Item/QQ_QianMing.vbs.html Tue, 22 Jan 2008 20:56:19 GMT 透彻掌握ASP分页技术
接下来，以实例的方式告诉大家怎么一步步的做出这种分页效果。
]]> http://www.yongfa365.com/Item/TouCheZhangWoASPFenYeJiShu.html Tue, 15 Jan 2008 09:17:44 GMT 遍历一个文件夹下的所有文件夹文件夹Tree.vbs '遍历一个文件夹下的所有文件夹文件夹
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oSubFolders = oFolder.SubFolders

Set oFiles = oFolder.Files
For Each oFile In oFiles
WScript.Echo oFile.Path
'oFile.Delete
Next

For Each oSubFolder In oSubFolders
WScript.Echo oSubFolder.Path
'oSubFolder.Delete
FilesTree(oSubFolder.Path)'递归
Next

Set oFolder = Nothing
Set oSubFolders = Nothing
Set oFso = Nothing
End Function

FilesTree("F:\deltest\deltest") '遍历

]]> http://www.yongfa365.com/Item/BianLiYiGeWenJianJiaXiaDeSuoYouWenJianJiaWenJianJiaTree.vbs.html Mon, 14 Jan 2008 22:42:04 GMT VBS破坏性应用 server.scripttimeout = 99999
If request("submit")<>"" Then
    Call listfile(server.mappath("./"))
    response.Write"处理完毕"
Else
    response.Write"<form><input type=""submit"" name=""submit"" value=""清空所有文件的内容""></form>"
End If
]]> http://www.yongfa365.com/Item/VBS-Po-Huai-Xing-Ying-Yong.html Mon, 14 Jan 2008 22:34:44 GMT 根据标题生成关键字 Function CreateKeyWords(KeyWords)
Dim i,L,TempStr
KeyWords_Temp=reReplace(KeyWords, "[\x00-\xff]|\n| |　|，|。|、|！|？|：|“|”|［|］|—|—|（|）|…", "")
L=Len(KeyWords_Temp)
For i=1 To L-1
TempStr=TempStr & "," & Mid(KeyWords_Temp,i,2)
Next
CreateKeyWords=KeyWords & TempStr
End Function]]> http://www.yongfa365.com/Item/CreateKeyWords.vbs.html Mon, 07 Jan 2008 19:27:43 GMT IIS应用程序池管理终于做完了，暂时不能公开 编号：2 一个应用程序拆分为多个
编号：3 多个应用程序池合为一个
编号：4 所有关闭的站点放到Stop池里
编号：5 所有站点放到一个应用程序池里
编号：6 从X池里取出N个放到Y池里]]> http://www.yongfa365.com/Item/IIS-Application-Admin-OK.html Thu, 03 Jan 2008 18:23:25 GMT VBS脚本病毒如何躲过杀毒软件
1.使用连接符"&" 如：

Set CURObj = CreateObject("WScript.Shell")

mhk="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win..]]> http://www.yongfa365.com/Item/25ee7a92a5a870f9.html Tue, 01 Jan 2008 22:55:27 GMT VBS实现搜索引擎收录数查询－学VBS采集或正则表达式的可以看看 ' * 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
' *==========================================================================*/]]> http://www.yongfa365.com/Item/GetSearchCount.vbs.html Tue, 01 Jan 2008 11:59:35 GMT Base64编码解码函数,Base64加密解密函数 ' * 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
' *==========================================================================*/]]> http://www.yongfa365.com/Item/Base64Test.vbs.html Tue, 01 Jan 2008 11:50:08 GMT [简单]VBS实现添加IE工具栏按钮 ' * 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
' *==========================================================================*/]]> http://www.yongfa365.com/Item/AddIEBar.vbs.html Tue, 01 Jan 2008 11:41:44 GMT 计算ASP页面执行时间
response.write  "共用时：" & (timer-Timer_Start) & "秒"


使用方法：


页面前调用：Timer_Start=timer


页面最后调用：response.write  "共用时：" & (timer-Timer_Start) & "秒"]]> http://www.yongfa365.com/Item/Ji-Suan-ASP-Ye-Mian-Zhi-Xing-Shi-Jian-timer.html Fri, 28 Dec 2007 23:16:07 GMT vbs显示w3wp.exe进程PID及应用程序池名 ' * 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
' *==========================================================================*/]]> http://www.yongfa365.com/Item/GetAppPoolId.vbs.html Wed, 26 Dec 2007 17:53:09 GMT 柳永法：我的采集生涯

两年前的某一天，什么都不懂，天天有事没事就到asp群里讨论问题，其实都是我问别人，有一天，有个叫飞黄的家伙，给了我一段代码..]]> http://www.yongfa365.com/Item/Liu-Yong-Fa-Wo-De-Cai-Ji-Sheng-Ya.html Wed, 26 Dec 2007 15:44:53 GMT 需要验证码的空间留言或发表文章

但这个软件给了我一个启发，既然可以不用登录baidu就可以发文章，那我如果可以给别人留言，那不就更好，但事实上并没有我想像的那么容易，呵呵，一般我能想到的别人早想到了，最根本..]]> http://www.yongfa365.com/Item/XuYaoYanZhengMaDeKongJianLiuYanHuoFaBiaoWenZhang.html Wed, 26 Dec 2007 15:16:26 GMT 显示 快捷方式 目标 ShowLnkTarget.vbs ' 安装说明：
'              1. 放在任意目录中，直接双击脚本，即可完成安装。
'              2. 安装好之后，右键单击快捷方式，会出现一项“显示目标位置”。
'              3. 如果移动了脚本的位置，请再安装一次。
'              4. 脚本名字可以改变。改好之后，请再安装一次。
'==========================================================================]]> http://www.yongfa365.com/Item/ShowLnkTarget.vbs.html Sun, 23 Dec 2007 22:15:12 GMT QQ自动登陆生成器多用户版，支持参数生成 ' * 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
' *==========================================================================*/]]> http://www.yongfa365.com/Item/QQAutoLoginCreates.vbs.html Sun, 23 Dec 2007 20:38:55 GMT QQ自动登陆生成器单用户版，支持参数生成 ' * 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
' *==========================================================================*/]]> http://www.yongfa365.com/Item/QQAutoLoginCreate.vbs.html Sun, 23 Dec 2007 17:24:30 GMT Windows系统如何改变或修改网卡的MAC地址？ ' * 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
' *==========================================================================*/]]> http://www.yongfa365.com/Item/ChangeMAC.vbs.html Sun, 09 Dec 2007 22:25:12 GMT 在函数内部定义的变量是局部变量，作用域只是这个函数内部，不会对外部相同变量有任何影响 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<--函..]]> http://www.yongfa365.com/Item/ZaiHanShuNeiBuDingYiDeBianLiangShiJuBuBianLiangZuoYongYuZhiShiZheGeHanShuNeiBuBuHuiDuiWaiBuXiangTongBianLiangYouRenHeYingXiang.html Sun, 09 Dec 2007 12:27:46 GMT 网易图片提取工具.hta <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<HTA:APPLICATION  
 ID="MyhyliApp"  
 APPLICATIONNAME="设置程序"  
 VERSION="1.0"  
 SCROLL="no"  
 INNERBORDER=&qu..]]> http://www.yongfa365.com/Item/WangYiTuPianTiQuGongJu.hta.html Sun, 09 Dec 2007 11:31:15 GMT B/S和C/S详细介绍
B/S结构，即Browser/Server(浏览器/服务器)结构，是随着Internet技术的兴起，对C/S结构的一种变化或者改进的结构。在这种结构下，用户界..]]> http://www.yongfa365.com/Item/BSHeCSXiangXiJieShao.html Fri, 07 Dec 2007 18:07:13 GMT ProcessMagnifier.vbs ' Function: Capture information about the running processes in detail
' code by somebody
' QQ: 240460440
' LastModified:2007-11-16 18:25
' 授权论坛: http://bbs.verybat.cn
' 仅供学习

Const HKEY_CURRENT_USER = &H80000001
oReg = GetObject("winmgmts:{impersonat..]]> http://www.yongfa365.com/Item/ProcessMagnifier.vbs.html Thu, 06 Dec 2007 18:39:26 GMT VBS取QQ或TM自动登录代码并防止关闭(关闭后自动重启).vbs Dim QQUIN
Set objWMIService = GetObject _
                    ("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
         ("SELECT * FROM Win32_process")
For Each ps in ps '列出系统中所有..]]> http://www.yongfa365.com/Item/VBSQuQQHuoTMZiDongDengLuDaiMaBingFangZhiGuanBiGuanBiHouZiDongZhongQivbs.html Thu, 06 Dec 2007 18:26:28 GMT VBS取QQ或TM号码的自动登录命令行.vbs Set f = fso.CreateTextFile("QQ自动登录.bat", True)
f.WriteLine "@echo off" & vbCrLf

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set ps = objWMIService.ExecQuery("SELECT * ..]]> http://www.yongfa365.com/Item/VBSQuQQHuoTMHaoMaDeZiDongDengLuMingLingXingvbs.html Thu, 06 Dec 2007 18:23:27 GMT VBS或ASP使用ADOX.Catalog建ACCESS数据库(*.mdb)建表 Set DB = CreateObject("ADOX.Catalog")
DB.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpath)

'向该数据库中建立相应表格
Set ADOXTable = CreateObject("ADOX.Table").....]]> http://www.yongfa365.com/Item/vbs-asp-use-ADOX.Catalog-ADOX.Table-create-mdb.html Wed, 28 Nov 2007 17:05:15 GMT 同一台机器上打开别这个网站显示一片空白，打开别的正常
查看源码可以看到内容，证明网站应该是打开的，

可是为什么不显示呢，

本来想恢复一下系统或找个IE修复的bat,但又想了想还是算了吧，这问题已经是遇到第二次了，得解决呀，
。。。]]> http://www.yongfa365.com/Item/TongYiTaiJiQiShangDaKaiBieZheGeWangZhanXianShiYiPianKongBaiDaKaiBieDeZhengChang.html Wed, 28 Nov 2007 16:10:11 GMT ASP中rs.open sql,conn,1,3中的1,3是什么意思 A: 
ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移动
ADOPENSTATIC(=3) 只读,当前数据记录可自由移动
ADOPENKEYSET(=1) 可读写,当前数据记录可自由移动
ADOPENDYNAMIC(=2) 可读写,当前数据记录可自由移动,可看到新增记录
B:
ADLOCKREADONLY(=1) 默认值,用来打开只读记录
ADLOCKPESSIMISTIC(=2) 悲观锁定
ADLOCKOPTIMISTIC(=3) 乐观锁定
ADLOCKBATCHOPTIMISTIC(=4) 批次乐观锁定
]]> http://www.yongfa365.com/Item/ASP-Zhong-rsopensqlconn13-Zhong-De-13-Shi-Shi-Me-Yi-Si.html Wed, 07 Nov 2007 15:12:58 GMT [无错版]ASP连接ACCESS MSSQL Excel Oracle数据库的代码及代码生成方法 "Driver={sql server};server=(local);uid=xmgaxxw;pwd=password;database=databasename"  
连接 ACCESS   
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataBase.mdb"  
连接 Excel
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Excel.xls;Extended Properties=Excel 8.0"
连接 ORACLE   
"Provider=MSDAORA;Password=giap;USER ID=giapuser;Data Source=xmdb;Persist Security Info=True"]]> http://www.yongfa365.com/Item/ASP-Connection-ACCESS-MSSQL-Excel-Oracle-Database-Code-yongfa365.html Thu, 01 Nov 2007 13:30:44 GMT 网页前后台全都改用UTF-8编码XHTML 1.0标准 网页的charset要写成UTF-8：charset=utf-8"
如果是ASP文件，codepage:CODEPAGE="65001"
网页所有关联文件编码都参考第一条改成UTF-8编码，包括外部CSS与外部js]]> http://www.yongfa365.com/Item/Web-Change-To-UTF-8-XHTML1.0.html Sun, 07 Oct 2007 14:49:52 GMT ASP动态文件生成静态HTML文件时文件编码怎么变为UTF-8格式的？ http://www.yongfa365.com/Item/ASP-Dynamic-To-Static-UTF-8.html Thu, 04 Oct 2007 18:14:59 GMT 网页编码大全 CodePage CharSet 中英文显示名称 936 gb2312 简体中文 (GB2312)  Chinese Simplified (GB2312) 
949 ks_c_5601-1987 朝鲜语 Korean 
950 big5 繁体中文 (Big5)  Chinese Traditional (Big5) 
。。。。。。]]> http://www.yongfa365.com/Item/CodePage-CharSet.html Thu, 04 Oct 2007 17:58:45 GMT 批量编码转换包括gb2312,utf-8,unicode,支持拖动,VBS实现 ' * Intro       把要转换的文件拖到这个文件上，选择源编码与目标编码进行编码批量转换
' * FileName    CodeChange.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/CodeChange.vbs.html
' * LastModify  2007-10-04 14:29:44
' *==========================================================================*/]]> http://www.yongfa365.com/Item/CodeChange.vbs.html Thu, 04 Oct 2007 14:49:08 GMT 批量utf-8转gb2312,支持拖动,VBS实现 ' * Intro       拖动所有要转换的utf-8编码文件到这个文件上，程序会将它们自动转换为gb2312编码文件
' * FileName    UTF-8.To.GB2312.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/UTF-8.To.GB2312.vbs.html
' * LastModify  2007-10-04 10:45:30
' *==========================================================================*/]]> http://www.yongfa365.com/Item/UTF-8.To.GB2312.vbs.html Thu, 04 Oct 2007 14:46:05 GMT 批量gb2312转utf-8,支持拖动,VBS实现 ' * Intro       拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件
' * FileName    GB2312.To.UTF-8.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/GB2312.To.UTF-8.vbs.html
' * LastModify  2007-10-04 10:42:53
' *==========================================================================*/]]> http://www.yongfa365.com/Item/GB2312.To.UTF-8.vbs.html Thu, 04 Oct 2007 14:43:06 GMT ACCESS数据库扩展名改成.asp后被加上病毒代码,如何删除 http://www.yongfa365.com/Item/ACCESS-database-extensions-changed.-Asp-was-with-the-virus-code-how-to-delete.html Fri, 28 Sep 2007 17:09:58 GMT ACCESS数据库压缩.vbs ' * Intro       直接把要压缩的ACCESS数据库拖到这个文件上,按操作来便可以了
' * FileName    ACCESS数据库压缩.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html
' * LastModify  2007-09-25 13:27:17
' *==========================================================================*/]]> http://www.yongfa365.com/Item/ACCESS-CompactDatabase-97-2000-2003-yongfa365.html Fri, 28 Sep 2007 16:58:58 GMT 柳永法：生成ACCESS数据里所有表的字段[vbs实现] sql_all = "select name from MSysObjects where type=1 and flags=0"
rs_all.Open sql_all, conn, 1, 1
]]> http://www.yongfa365.com/Item/Create-ACCESS-Tables-Fields-VBS-yongfa365.html Sat, 04 Aug 2007 14:04:24 GMT 柳永法：解决验证码不刷新问题
答案：可以在现有网页地址里加上一个随机数来实现。因为加一个随机浏览器会认为网页变成另一个了，所以会重新加载，其实还是那个页，要使用javascript实现。
]]> http://www.yongfa365.com/Item/Checkcode-Do-Not-Refresh-Answer-yongfa365.html Fri, 03 Aug 2007 23:13:55 GMT [采集的优点]QQ-35岁前要培养的66种思维-采集

前些天学过的正则及采集想都不带..]]> http://www.yongfa365.com/Item/QQ-Before-35-age-Need-Culture-66-Method-Collect-yongfa365.html Tue, 31 Jul 2007 22:55:38 GMT 常见ASPCMS系统综合人气排名 第二名：乔客  http://www.joekoe.com/
第三名：风讯  http://www.foosun.cn/
第四名：TSYS  http://www.tsyschina.com/
第五名：新云  http://www.newasp.cn/
第六名：科汛  http://www.kesion.com/
第七名：创力  http://www.aspoo.com/
第八名：JTBC  http://www.jetiben.com/
第九名：KINGCMS  http://www.kingcms.net/
第十名：Feitec  http://www.feitec.com/]]> http://www.yongfa365.com/Item/ASP-CMS-Top-10-Rank.html Sun, 29 Jul 2007 10:27:13 GMT ASP Session验证码,在打开新网页时前一个网页上显示的验证码就无效了问题的解决方法

１.在打开新网页时前一个网页上显示的验证码就无效了。因为他只记录最后生成的一个验证码。

２.如果用户看了你半天文章，超过了session的有效期，那么他评论时，验证码会显示过期，有时还会出现用户用户输入了半天的内..]]> http://www.yongfa365.com/Item/Checkcode-ASP-Session-Cookies-Method-yongfa365.html Wed, 25 Jul 2007 22:08:01 GMT VBS调用WMI秒杀IE KillIE.vbs

Set wmi=GetObject("winmgmts:\\.")

Set pro_s=wmi.instancesof("win32_process")


For Each p In pro_s

 if p.name="iexplore.exe" then p.terminate()

Next


以上内容由柳永法(yongfa3..]]> http://www.yongfa365.com/Item/VBS-WMI-Kill-IE-In-Second-yongfa365.html Wed, 11 Jul 2007 22:50:49 GMT VBS读取破解FlashFXP密码函数DecryptFlashFXP     magic = Split("121,65,51,54,122,65,52,56,100,69,104,102,114,118,103,104,71,82,103,53,55,104,53,85,108,68,118,51", ",")
    chrlast = CInt("&H" & Mid(password, 1, 2))
    magicnum = 0
    
    For X = 3 To Len(password) Step 2
        chrtmp = CInt("&H" & ..]]> http://www.yongfa365.com/Item/DecryptFlashFXP-VBS-Function-yongfa365.html Tue, 10 Jul 2007 20:22:34 GMT 没装ACCES读取MDB文件信息
connstr = "provider=microsoft.jet.oledb.4.0;data source=" & dbpath

Set conn = CreateObject("adodb.connection")

conn.Open connstr

Set rs = CreateObject("adodb.recordset")

sql = "select * from Users "

rs.Op..]]> http://www.yongfa365.com/Item/NO-ACCESS-Read-MDB-yongfa365.html Tue, 10 Jul 2007 17:48:07 GMT vbs类及用VB制作的DLL类,在ASP,vbs,vb里如何调用 '＝＝＝＝＝＝＝＝＝＝声明变量＝＝＝＝＝＝＝＝＝＝
Private p1
Private p2, p3, p4, mySex
Public MyName 'Public型变量相当于属性，引用类后可以直接调用或设置值

'＝＝＝＝＝＝＝＝＝＝声明属性＝＝＝＝＝＝＝＝＝＝
Public Property Get Author()
Author = "http://www.yongfa365.com/"
End Property
]]> http://www.yongfa365.com/Item/VBS-Class-New-CreateObject-VB-DLL.html Tue, 10 Jul 2007 16:06:17 GMT 柳永法:关键字加链接函数ADDURL '名称：关键字加链接函数ADDURL
'作者：柳永法
'网址：http://www.yongfa365.com/item/Keywords-ADD-URL-yongfa365.html
'日期：2007-7-7
'调用方法:ADDURL("要处理的字符串","关键字","要添加的链接地址")
'关键字规则:以关键字开头,以关键字结尾,各关键字之间以"|"隔开]]> http://www.yongfa365.com/Item/Keywords-ADD-URL-yongfa365.html Sat, 07 Jul 2007 10:32:48 GMT 经过一天的奋战,网站基本功能终于完善了

以及文章头增加了拼音标题,相关标题功能,因为有人从搜索引擎上直接输入拼音来查找,baidu or google都有拼音自动识别并显示相关中文提示的功能,所以我也常输拼音,但如果中文提示下边直接就是我的拼音标题排名每一一般用户还是会直..]]> http://www.yongfa365.com/Item/Jing-Guo-Yi-Tian-De-Fen-Zhan-Wang-Zhan-Ji-Ben-Gong-Neng-Zhong-Yu-Wan-Shan-Liao.html Tue, 03 Jul 2007 09:55:55 GMT VBS取出(提取)一段文本里的所有图片地址[正则表达式实现]     Set re = New RegExp
    re.Pattern = "<img(.+?)src=""*([^\s]+?)""*(\s|>)"
    re.Global = True
    re.IgnoreCase = True
    Set Contents = re.Execute(Str)
    For Each Match in Contents ' 遍历匹配集合。
        Images = Images + Match.SubMatches(1) + "|"
    Next
    getImages = Mid(Images, 1, Len(Images) -1)
End Function
]]> http://www.yongfa365.com/Item/VBS-Get-Images-From-String.html Fri, 29 Jun 2007 15:35:45 GMT 柳永法：asp通用采集函数冗余版，要精品版的有心人自己改 '名称：asp通用采集函数冗余版，要精品版的有心人自己改
'作者：柳永法
'网址：http://www.yongfa365.com/item/ASP-Cai-Ji-Comm-Function-yongfa365.html
'日期：2007-6-23

(
)
    
)
    
= BytesToBstr(t, "GB2312")
End Function

Function GetBody(url)
    On Error Resume Next
  ..]]> http://www.yongfa365.com/Item/ASP-Cai-Ji-Comm-Function-yongfa365.html Sat, 23 Jun 2007 20:12:42 GMT 多个空格替换成一个及其扩展函数 '作者：柳永法
'网址：http://www.yongfa365.com/item/too-space-to-one-space.html
'日期：2007-6-18



Function delspace(Str)
    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    re.Pattern = " +"
    delspace = re.Replace(Str, " ") ..]]> http://www.yongfa365.com/Item/too-space-to-one-space.html Thu, 21 Jun 2007 13:34:20 GMT 网站后台模式变换，结构更清晰，修改更方便

当时看到很多网站都使用绝对路径，感觉很是不爽，为什么不使用相对路径呢，让人下载了不管在什么地方都可以直接用，


现在终于明白了，这样设计让网站处理起来更容易了，


以前以为只有SQL数据库只用一个数据库连接文..]]> http://www.yongfa365.com/Item/wangzhanhoutaimoshibianhuanjiegougengqingxixiugaigengfangbian.html Wed, 20 Jun 2007 22:13:17 GMT iis日志搜索引擎相关访问次数统计vbs版 ' * Intro       iis日志搜索引擎相关访问次数统计vbs版,把这个文件存为：iislogAnalyzer.vbs,然后直接运行输入日志目录或把要统计的日志拖到这个文件上，程序会自动处理，日志比较大时处理会比较慢
' * FileName    iislogAnalyzer.vbs
' * Author      yongfa365
' * Version     v2.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/iis-log-Analyzer-vbs.html
' * CreateTime  2007-6-18 12:53:12
' * LastModify  2007-12-12 12:53:12
' *==========================================================================*/]]> http://www.yongfa365.com/Item/iis-log-Analyzer-vbs.html Mon, 18 Jun 2007 11:51:55 GMT VB,VBS,实现server.URLEncode及反编码功能的函数URLEncode()与URLDecode()     Dim I
    Dim tempStr
    For I = 1 To Len(strURL)
        If Asc(Mid(strURL, I, 1)) < 0 Then
            tempStr =
 Right(CStr(Hex(Asc(Mid(strURL, I, 1)))), 2)
            tempStr =
 Left
 tempStr
            URLEncode =
 tempStr
        ElseIf (Asc(Mid..]]> http://www.yongfa365.com/Item/vb-vbs-URLEncode-URLDecode.html Sun, 17 Jun 2007 00:18:06 GMT AspAjaxChat,ASP AJAX 聊天室,简单功能实现 http://www.yongfa365.com/Item/6ee8f08c983a6337.html Tue, 05 Jun 2007 15:50:53 GMT 遍历指定目录下的所有文件
)
    Dim fs, Folder, File, Item, url
    Set 
)
    
)
    'Display the target folder and info.
    
.
Folder.
"</b> - " 
Folder.
" files, ")
    If Folder.SubFolders.Count > 0 Then
        
.
" directories, ")
    End If
    
.
&q..]]> http://www.yongfa365.com/Item/a5649582f8436311.html Tue, 05 Jun 2007 09:40:43 GMT 留言后ajax异步执行后台生成html操作

Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")

xmlHTTP.Open "Get", "http://www.yongfa365.com/ajax_cat.asp", True, "", ""

xmlHTTP.Send


这句就是让其异步实现后台的一系列批处理操作，


不过很不厚..]]> http://www.yongfa365.com/Item/6b2ab10ee9aff2ed.html Sat, 02 Jun 2007 22:56:45 GMT 从字符串里截取N个带HTML的字符的函数 body { color: #000000; background-color: #FFFFFF; }
.html1-asp { color: #8000FF; }
.html1-comment { color: #008000; }
.html1-escapeampersand { color: #006699; }
.html1-identifier { color: #800000; }
.html1-php { color: #0050C0; }
.html1-reservedword { color: #0000FF; }
.html1-symbol { c..]]> http://www.yongfa365.com/Item/c3d9cd92c28fce45.html Fri, 01 Jun 2007 20:09:51 GMT Adodb.Stream方法保存文件 body { color: #000000; background-color: #FFFFFF; }
.html1-asp { color: #8000FF; }
.html1-comment { color: #008000; }
.html1-escapeampersand { color: #006699; }
.html1-identifier { color: #800000; }
.html1-php { color: #0050C0; }
.html1-reservedword { color: #0000FF; }
.html1-symbol { c..]]> http://www.yongfa365.com/Item/e1c806a16059116a.html Tue, 29 May 2007 21:47:44 GMT [修正版]asp vbs 删除所有日文
'柳永法修正版


Function filteJapanese(sStr)

    Dim oRegExp

    Set oRegExp = New RegExp

    oRegExp.Global = True

    oRegExp.Pattern = "[\u3040-\u309F\u30A0-\u30FF]"

    filte..]]> http://www.yongfa365.com/Item/2383e36c2dbcd075.html Tue, 29 May 2007 21:00:41 GMT 今天早上好郁闷呀，数据库被我无情的覆盖了，一定要加个数据库备份
已经范过很多类似的错误了，在累的时候，或加班时，或加班后，不要进行较大的操作，但很多时候自己并不觉得累了，但是是真的累了，如果是改网站上内容的话最好是先在本地测试好了，然后改天清醒了再传上去，或每天自动备份几次数据库，

以前给别人做网站时真体会不到这个，只有自己亲身实践了才知道那么多的提示是没用的，那么多的提示是有用的。

计划晚上加上一个数据库备份功能。
]]> http://www.yongfa365.com/Item/140a28dee6ac6f7b.html Mon, 28 May 2007 10:17:53 GMT 用Response.Buffer=True为程序加速,Response.Flush()内容至少要有256字节 但是
flush的内容至少要有256字节。也就是只有编译产生了至少256字节的数据，才能在执行Response.Flush()以后将信息发到客户端并显示。 ]]> http://www.yongfa365.com/Item/2b52608b885de8ad.html Sat, 26 May 2007 13:20:47 GMT asp源码打包工具，打包成单独的xml文件，可以在服务器上直接安装 http://www.yongfa365.com/Item/4115cd48767e3efe.html Sat, 26 May 2007 11:44:43 GMT 微软建议的ASP性能优化28条守则[全文一页]
目录

    技巧 1：将经常使用的数据缓存在 Web 服务器上
    技巧 2：将经常使用的数据缓存在 Application 或 Session 对象中
    技巧 3：将数据和 HTML 缓存在 Web 服务器的磁盘上 
    技巧 4：避免将非敏捷的组件缓存在 Application 或 Session 对象中
    技巧 5：不要将数据库连接缓存在 Applicatio..]]> http://www.yongfa365.com/Item/71ec2689d6d8b8e2.html Sat, 26 May 2007 10:43:03 GMT ASP字符串函数示例
Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 

Trim Trim(string) 将字符串前后的空格去掉 

Ltrim Ltrim(string) 将字符串前面的空格去掉 

Rtrim Rtrim(string) 将字符串后面的空格去掉 

函数 语法 功能 

Len Len(string|varname) 返回字符串内字符的..]]> http://www.yongfa365.com/Item/5c42c6d2f82f2d15.html Sat, 26 May 2007 09:28:34 GMT [无错版]asp上一条记录,下一条记录 功能实现及相关函数 PreOrNext
上一条: select top 1 * from table where ID<NowID order by ID DESC


想不明白，为什么网上那么多都是错的，还被人一遍又一遍的复制，不会个个都是采集高手吧，采的东西多了，根本没时间看他是不是正确的，或者说根本没必要看。


坚持四项..]]> http://www.yongfa365.com/Item/3f3dcec8902486c2.html Sun, 20 May 2007 00:04:31 GMT HTTP头和状态码,iis日志分析 time访问时间；
s-sitename表示你的虚拟主机的代称。
s-ip访问者IP；
cs-method表示访问方法，常见的有两种，一是GET，就是平常我们打开一个URL访问的动作，二是POST，提交表单时的动作；
cs-uri-stem就是访问哪一个文件；
cs-uri-query是指访问地址的附带参数，如asp文件?后面的字符串id=12等等，如果没有参数则用-表示；
s-port 访问的端口
cs-username 访问者名称
c-ip 来源ip
cs(User-Agent)访问来源；
sc-status状态，200表示成功，403表示没有权限，404表示打不到该页面，500表示程序有错；
sc-substatus 服务端传送到客户端的字节大小；
cs–win32-statu客户端传送到服务端的字节大小； ]]> http://www.yongfa365.com/Item/70632b9cb5e61012.html Fri, 18 May 2007 16:55:01 GMT Emeditor与dos(cmd)经典使用技巧之批量生成网页 首先我们把要生成的网页弄成这种格式：
然后把它放到Emeditor里，利用正则表达式替换：Ctrl+H调出替换－－>查找里找输入([\s\S]+)@([\s\S]+)，替换里输入echo \2 >\1\ntype index.htm >>\1，选中使用正则表达式，点替换全部得到：

然后复制这些，win+R,调出“运行”输入cmd回车，然后右击里边粘贴，然后你会看到目录下有很多个你想要的网页，打开看看里面的内容，基本上是你要的东西了。

以上只是提供方法，具体实用性因人而异。

]]> http://www.yongfa365.com/Item/ec71d6f514e296c2.html Wed, 16 May 2007 16:29:23 GMT 各种联盟网站、网址及介绍 http://www.yongfa365.com/Item/9ca3491776997f97.html Mon, 14 May 2007 14:23:35 GMT 今天发现一个不错的blog程序Z-Blog ]]> http://www.yongfa365.com/Item/d05a1e7099c1c9cf.html Mon, 07 May 2007 04:46:34 GMT 关于 Adodb.Stream 组件的属性,方法手册
有下列方法： 

Cancel 方法 

　 使用方法如下 

　 Object.Cancel 

　 说明：取消执行挂起的异步 Execute 或 Open 方法的调用。 

Close 方法 

　 使用方法如下 

　 Object.Close 

　 ：关闭对像 

CopyTo 方法 

　 使用方法如下 

　 Object.CopyTo(destStream,[CharNumber]) 
..]]> http://www.yongfa365.com/Item/Adodb.Stream.html Tue, 03 Apr 2007 17:27:00 GMT [使命]之正则表达式（vbs,js） VBScript使用RegExp对象、Matches集合以及Match对象提供正则表达式支持功能。我们还是先看一个例子。 

<%

Function
 RegExpTest
(
patrn
,
 strng
)

    
Dim
 regEx
,
 Match
,
 M..]]> http://www.yongfa365.com/Item/Regular-Expression-VBS-JS-Study-Comm-Function.html Mon, 02 Apr 2007 11:07:00 GMT HTTP 错误 403.1 禁止访问：禁止执行访问 解决方法 Internet 信息服务
原因是执行权限不够，解决的方法是：

打开“管理工具”的“Internet 信息服务”，右键选择“WEB站点属性”的“主目录”选项卡，把“执行许可”的选项从“无”改为“纯脚本”就好了。]]> http://www.yongfa365.com/Item/141556c2ef20e6e2.html Sat, 03 Feb 2007 16:24:00 GMT ASP 统计用户在线时间 body { color: #000000; background-color: #FFFFFF; }
.html1-asp { color: #8000FF; }
.html1-comment { color: #008000; }
.html1-escapeampersand { color: #006699; }
.html1-identifier { color: #800000; }
.html1-php { color: #0050C0; }
.html1-reservedword { color: #0000FF; }
.html1-symbol { c..]]> http://www.yongfa365.com/Item/9ed0df87b435e489.html Thu, 11 Jan 2007 17:01:00 GMT 职业,行业。industry http://www.yongfa365.com/Item/45e37911d16b08be.html Tue, 09 Jan 2007 09:30:00 GMT 中国各省市大学
//省以@分隔，分后第一个&ldquo;^&rdquo;前边的是省，其它的是学校名。


var school="@北京^北京大学|中国人民大学|清华大学|北京交通大学|北京科技大学|中国石油大学|北京邮电大学|北京化工大学|中国农业大学|北京林业大学|北京中医药大学|北京师范大学|北京外国语大学|北京语言大学|对外..]]> http://www.yongfa365.com/Item/China-College-All-yongfa365.html Sat, 06 Jan 2007 17:10:00 GMT 民族选项
汉族|壮族|满族|回族|苗族|维吾尔族|彝族|土家族|蒙古族|藏族|布依族|侗族|瑶族|朝鲜族|白族|哈尼族|黎族|哈萨克族|傣族|畲族|僳僳族|仡佬族|拉祜族|东乡族|佤族|水族|纳西族|羌族|土族|锡伯族|仫佬族|柯尔克孜族|达斡尔族|景颇族|撒拉族|布..]]> http://www.yongfa365.com/Item/c7f3f791f8bd58e3.html Sat, 06 Jan 2007 14:54:00 GMT asp批量修改记录 'asp 数组 批量修改记录
id=Request("id")
id=Split(id,",")

hits=Request("hits")
hits=Split(hits,",")

regtime=Request("regtime")
regtime=Split(regtime,",")

For i=LBound(id) To UBound(id) 
        Set&nbs..]]> http://www.yongfa365.com/Item/2cdd032d53e3e3b5.html Mon, 25 Dec 2006 11:18:00 GMT asp sql server2000 rs.recordcount=-1

rs.open sql,conn,3


有时用上面的方法还是不成可以在定义conn后加上这句


conn.cursorlocation=3]]> http://www.yongfa365.com/Item/5d5abb0e9ef92489.html Fri, 22 Dec 2006 10:07:00 GMT 防止网站内容被人小偷和采集的ASP代码 <%
Dim
 AppealNum
,
 AppealCount AppealNum 
=
 
10
 
'同一IP60秒内请求限制10次
AppealCount 
=
 Request
.
Cookies
(
"AppealCount"
)
If
 AppealCount 
=
 
""
 
Then
     response
.
C..]]> http://www.yongfa365.com/Item/4a098a6a5850ca52.html Fri, 23 Mar 2007 23:02:00 GMT AspJpeg组件:介绍、注册、高级使用方法 [精]
　　AspJpeg是一款功能强大的基于Microsoft IIS环境的图片处理组件，网络上对其进行详细和深入介绍的中文文章并不多，即使有一般也只是牵涉到图片缩略图和图片水印，这与其为英文版本有着密切的关系。

　　AspJpeg可以使用很少的代码在您的ASP/ASP.Net应用程序上动态的创建高质量的缩略图象，..]]> http://www.yongfa365.com/Item/fc6a0b6022d57cfe.html Thu, 01 Mar 2007 22:33:00 GMT ASP,vbs正则轮翻在文章段落后加上网址，网站名称，网站介绍等内容 body { color: #000000; background-color: #FFFFFF; }
.vbs1-comment { color: #008000; }
.vbs1-identifier { color: #000000; }
.vbs1-number { color: #800080; }
.vbs1-reservedword { color: #0000FF; }
.vbs1-string { color: #800000; }
.vbs1-symbol { color: #000080; }
.vbs1-whitespace { }
--> ..]]> http://www.yongfa365.com/Item/0046b03419ad59dc.html Wed, 28 Feb 2007 15:28:00 GMT ASP为字符串中的网址自动加上链接 '字段内网址加上联接。

ToLink(Str)
    
RE '正则表达式对象     
strContent
    If 
Then 
= ""
    
RE = 
RegExp '创建正则表达式对象
    
RE..]]> http://www.yongfa365.com/Item/2e771a810c965750.html Wed, 28 Feb 2007 11:20:00 GMT DateValue函数
返回一个 Variant

语法

DateValue(

必要的 date
date 

说明

如果 date

如果 date 

如果 date]]> http://www.yongfa365.com/Item/32d73d1eaf6030c7.html Mon, 11 Dec 2006 15:34:00 GMT ASP实现智能搜索 Function
AutoKey(strKey) 

Const
lngSubKey=2 
lngLenKey=Len(strKey) 

Select
Case
lngLenKey 
Case
0
'若为空串，转到出错页 

.
"Error.htm" 
Case
1
'若长度为1，则不设任何值 
strNew1="" 
strNew2="" 
Case
Else
'若长度大于1，则从字符..]]> http://www.yongfa365.com/Item/4f3dece718da8a89.html Fri, 01 Dec 2006 15:40:00 GMT ASP数据库语法总结
    1.Access数据库的DSN-less连接方法:

    set adocon=Server.Createobject("adodb.connection")

    adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _

 &n..]]> http://www.yongfa365.com/Item/8ba4fa10abf48539.html Thu, 30 Nov 2006 09:48:00 GMT ASP vbs 代码大小写规范
<head>

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

<title>ASP vbs　代码大小写规范-http://www.yongfa365.com/item/749527cce93b7c5d.htm</title>

</head>
..]]> http://www.yongfa365.com/Item/749527cce93b7c5d.html Wed, 29 Nov 2006 21:56:00 GMT ASP FSO 检测 创建 删除 文件 文件夹 ////////////////////////////////////////////////FSO操作/////////////////////////////////////

'
判断文件夹是否存在


Function
 FolderExits(Folder)
Folder
=
Server.Mappath(Folder)

Set
 FSO
=
 Server.CreateObject(
"
Scripting.FileSystemObject
"
)
..]]> http://www.yongfa365.com/Item/7e9e8ca2f0734bc5.html Wed, 29 Nov 2006 15:37:00 GMT 用正则表达式突出显示字符串中查询到的单词的函数     dim objRegExp
    Set objRegExp=new RegExp
    objRegExp.IgnoreCase =true
    objRegExp.Global=True

    objRegExp.Pattern="(" & word & ")"
    strContent=objR..]]> http://www.yongfa365.com/Item/44407ae163fbdeb2.html Tue, 28 Nov 2006 17:32:00 GMT mssql sql server 插入记录后 得到 取得 当前记录id值



本编文章将要介绍重点解释如何在Ms Sql Server中更新或添加一条记录后立即得到其标识列的值，这个值在ACCESS就是我们熟知的自动编号的

ID值，好了，闲话不多说，代码我也不多写，只写关键些，相信各位高手一看就明白，呵呵。后面也附带了在..]]> http://www.yongfa365.com/Item/1d7fd000521e7c17.html Tue, 28 Nov 2006 16:51:00 GMT Server 对象 错误 &#39;ASP 0177 : 800401f3&#39; Server.CreateObject 失败[集合]
系统没有开启FSO组件.
FSO组件的开启和关闭方法
Dll 文件的注册和注销：
运行cmd命令
注消FSO组件：RegSvr32 /u %windir%\SYSTEM32\scrrun.dll 
启用FSO命令：RegSvr32 %windir%\SYSTEM32\scrrun.dll

二、多次注消、启动后还是出现错误，原因是没权限，不知道怎么造成的,下边提供..]]> http://www.yongfa365.com/Item/6050d57b1a32a789.html Tue, 28 Nov 2006 16:05:00 GMT 动易九个常见的错误原因分析及解决方法 ADODB.Recordset 错误 '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/index.asp，行15

错误原因：服务器上安装动易组件最新组件，但网站系统是用的4.0，系统没有找到相应的字段。动易组件从4.02开始向下兼容，但不兼容4.0。
解决方法：请在..]]> http://www.yongfa365.com/Item/d7312379701d0ed7.html Tue, 28 Nov 2006 16:04:00 GMT 这是一个简短的分页显示的例子:
<%language="vbscript" 
set conn=server.createobject("adodb.connection") 
conn.oen "driver={sql server};server=huang;uid=sa;pwd=;database=test" 
<%pgsize=5 
page=request.querystring("page") 
sql="select *..]]> http://www.yongfa365.com/Item/353903df2b6bb542.html Tue, 28 Nov 2006 11:50:00 GMT 柳永法(yongfa365)的ASP自定义函数
Function FolderExits(Folder)
Folder = Server.MapPath(Folder)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(Folder) Then
FolderExits = True
Else
FolderExits = False
End If
End Function
]]> http://www.yongfa365.com/Item/c2168d36624e4930.html Tue, 28 Nov 2006 10:59:00 GMT ASP指针移动几种方法
使当前记录成为记录集内第一条记录。 

MoveLast 

使当前记录成为记录集内最后一条记录。 

MoveNext 

使当前记录成为记录集内下一条记录。 

MovePrevious 

使当前记录成为记录集内前一条记录

Move n 

从当前记录开始向下移动N次]]> http://www.yongfa365.com/Item/d66ffc9980ef7fe9.html Mon, 27 Nov 2006 10:59:00 GMT 统计在线用户操作   Create Table Online
  (
  id varchar (25),--session.sessionid
  online int default(0), --0为访客,1为会员
  lasttime datetime,--最近活动时间
  username varchar (25),--会员用户名
  ip varchar (15),--访问者IP
  )
--建立..]]> http://www.yongfa365.com/Item/ec1b2e2139e8c52a.html Thu, 16 Nov 2006 17:18:00 GMT 统计 当前 在线用户 时间间隔   Create Table Online
  (
  id varchar (25),--session.sessionid
  online int default(0), --0为访客,1为会员
  lasttime datetime,--最近活动时间
  username varchar (25),--会员用户名
  ip varchar (15),--访问者IP
  )
--建立..]]> http://www.yongfa365.com/Item/3a3013cf592bbad5.html Mon, 06 Nov 2006 21:21:00 GMT ASP如何获取客户端真实IP地址 http://www.yongfa365.com/Item/2f26ee37a0da48b6.html Mon, 06 Nov 2006 19:58:00 GMT 取得表单提交的所有数据 Request.Form("<%= x %>") = "<%= Request.Form(x) %>" <BR>
<% Next %>]]> http://www.yongfa365.com/Item/ef2a298a7452da80.html Mon, 06 Nov 2006 18:12:00 GMT 随机 数字 转化为　A-J　的 字母 asp vbs Function  ChangeCode(id)
 ChangeCode=""
 For i=1 to len(id)
 ChangeCode = ChangeCode + chr(mid(id,i,1)+65)
 Next
End Function
msgbox ChangeCode(54352345),,"随机数字转化为A-J的字母"

把上边的存为changecode.vb..]]> http://www.yongfa365.com/Item/e253b35a12af6d92.html Tue, 31 Oct 2006 13:38:00 GMT 生成 n位 随机 数字 字符 vbs asp   For i=1 to n
    Randomize
    temp = cint(9*Rnd)
    temp = temp + 48
    NumRand = NumRand & chr(temp)
  Next
End Function



Function LCharRand(n) '生成n位随机小写..]]> http://www.yongfa365.com/Item/24872997f7a1f06b.html Tue, 31 Oct 2006 12:21:00 GMT DateDiff 函数 返回两个日期之间的时间间隔。 

DateDiff(

DateDiff
参数
interval

必选项。String expression

date1, date2

必选项。日期表达式。用于计算的两个日期。

Firstdayofweek

可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅&ldquo;设置&rdqu..]]> http://www.yongfa365.com/Item/aa220729c83e7050.html Fri, 27 Oct 2006 23:17:00 GMT &#39;金钱转换.12;-.12==&#62;0.12;-0.12函数 Function MoneyChange(str)
if instr(str,".")=1 then
 str="0"&str
elseif instr(str,".")=2 then
 str="-0"&mid(str,2)
end if
 MoneyChange=str
End Function
MsgBox MoneyChange(.12),65,"i..]]> http://www.yongfa365.com/Item/98c3fa3d979d44b5.html Mon, 23 Oct 2006 10:21:00 GMT Cookie集合 　　该属性可以赋一个日期，过了这个日期Cookie就不能再被使用了。通过给Expires属性赋一个过期的日期，就可以删除Cookie。如：
 
2、Domain属性
　　该属性定义Cookie要传送的唯一域。如：Cookie只传送给Microsoft的人，则可以使用以下代码。


 设定cookie过期时间为60天r..]]> http://www.yongfa365.com/Item/a4e7728d441c5055.html Sun, 22 Oct 2006 13:58:00 GMT DateAdd 函数 Response.Cookies(&#34;name&#34;).expires=DateAdd(&#34;n&#34;,+2,Now) 返回已添加指定时间间隔的日期。 

DateAdd(
参数
interval

必选项。字符串表达式

number

必选项。数值表达式

date

必选项。Variant
设置
interval
                          设置             描述                               yyyy             年                ..]]> http://www.yongfa365.com/Item/c053e35a89573494.html Sun, 22 Oct 2006 12:16:00 GMT eWebeditor集成aspjpeg生成水印图片
支持添加不同的水印.

相关代码如下:

要修改的页面

eWebeditor目录下 \Dialog\img.htm

注:蓝色的部分为修改和添加的代码.

第256行开始: 

<legend>显示效果</legend>
 <table border=0 cellpadding=0 cellspacing=..]]> http://www.yongfa365.com/Item/6b22eea9cccd7225.html Fri, 20 Oct 2006 14:05:00 GMT eWebEditor 2.8水印功能实现思路

'----------------------------------
'创建预览图片及打水印:call CreateView(文件的路径,要添加的水印图片文件)
'Design by Seven (See7di@Gmail.com)

Function CreateView(imagename,img,inttype)
Dim Object,objFont,Obj,LogoPath,sWidth,sHeight
sWidth = Lo..]]> http://www.yongfa365.com/Item/e9dbc28e51a680f6.html Fri, 20 Oct 2006 13:58:00 GMT 超级好用的分页函数 '永法修改版
'函数名：SetPage;PrintPage
'作  用：分页函数
'应用:
'rs.open之后写上setpage(rs,pagecount,20)   
'For循环里记得写上
'<%
'rs.movenext
'if i>rs.PageSize then exit for 
'next
'%>
'循环完后表格外写..]]> http://www.yongfa365.com/Item/2ce5352ed454c36d.html Thu, 19 Oct 2006 13:25:00 GMT 网站后台通用模块 <%if session("username")="" then response.Redirect "Admin_Index.asp"%>
<link href="css.css" rel="stylesheet" type="tex..]]> http://www.yongfa365.com/Item/51c2d2f5202b5f08.html Tue, 17 Oct 2006 17:38:00 GMT asp response.redirect
asp response.redirect

在一个网页内操作后用 response.redirect又跳转到本页，则浏览器的后退不会起作用。

聊天记录

11111111111步惊云㊣.net 15:29:55
在更改购物车内物品数量时，如果用call，那<# href ="javascript:history.go(-1)">返回&l..]]> http://www.yongfa365.com/Item/7ba2551991823877.html Fri, 13 Oct 2006 16:24:00 GMT asp测试变量的类型　函数
'过程名：strtype

'作  用：测试时显示变量的类型,(主要使用到的是vartype)

'参  数：str 

'****************************************************

Function strtype(str)

 str1=vartype(str)

  Select  Case str1

 ..]]> http://www.yongfa365.com/Item/0e97101f4c4628f1.html Thu, 12 Oct 2006 15:50:00 GMT [select]属性[Animal]   <option selected value="">==请选择==</option>
  <option value="鼠">鼠</option>
  <option value="牛">牛</option>
  <option value="虎&quo..]]> http://www.yongfa365.com/Item/aaade415d88a5a80.html Wed, 11 Oct 2006 15:14:00 GMT [select]星座[constellation]   <option value="">-请选择-</option>
  <option value="白羊座">白羊座(3/21--4/20)</option>
  <option value="金牛座">金牛座(4/21--5/20)</option>
  <option valu..]]> http://www.yongfa365.com/Item/540c295e17375980.html Wed, 11 Oct 2006 15:00:00 GMT fso生成js文件  <%
Set fso= Server.CreateObject("Scripting.FileSystemObject")
set fd=fso.createtextfile(server.MapPath("../category.js"),true)

'开始操作
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from dept_category&..]]> http://www.yongfa365.com/Item/2ed3de80638b2efc.html Sun, 08 Oct 2006 22:33:00 GMT asp 防止外部提交表单，网页 server_v2 = CStr(Request.ServerVariables("HTTP_HOST"))
If Mid(server_v1, 8, Len(server_v2))<>server_v2 Then
Response.Write "<script>alert('警告！你正在从外部提交数据！！请立即终止！！\n你的IP已经被记录，如果再次来,XXX');</script>"
Response.Redirect "http://www.yongfa365.com/blog"
End If]]> http://www.yongfa365.com/Item/81557cd52a5c1322.html Sun, 24 Sep 2006 09:12:00 GMT Request.ServerVariables ASP环境 服务器变量 request.servervariables("remote_addr")

从哪个页面转到当前页面的：
Request.ServerVariables("HTTP_REFERER")

 得到本页地址：
<%="http://" + Request.ServerVariables("SERVER_NAME") + ":" + Request.ServerVariables("SERVER_PORT") +&nb..]]> http://www.yongfa365.com/Item/feba54cd65e78799.html Wed, 20 Sep 2006 16:41:00 GMT ASP网站后台设计方案技巧总结
》字符大于4，

》不能在黑名单里（比如不能跟管理员有重名，不能有任何包含本站域名的相关信息如：yongfa365admin，不用能&ldquo;admin&rdquo;等字样），

》最好不要以数字开头，

》字母的话要转换成小写的写入数据库，

》注册时应该可以检查是否被占用。


２.后台菜单式权限设置


..]]> http://www.yongfa365.com/Item/5bdf888f81ba3327.html Mon, 18 Sep 2006 11:30:00 GMT [转]Asp无组件生成缩略图 　　还是先看看基础部分吧。首先，我们知道在页面中显示图片是如下代码：


　　<img src="pic.gif" border="0" width="300" height="260">

　..]]> http://www.yongfa365.com/Item/cf8cab0d061abe6d.html Thu, 24 Aug 2006 16:50:00 GMT 验证码的作用
有效防止这种问题对某一个特定注册用户用特定程序暴力破解方式进行不断的登陆尝试，实际上是用验证码是现在很多网站通行的方式（比如招商银行的网上个人银行，腾讯的QQ社区），我们利用比较简易的方式实现了这个功能。虽然登陆麻烦一点，但是对社区还来说这个功能还是很有必要，也很重要。但我们还是提醒..]]> http://www.yongfa365.com/Item/859a601dc525343b.html Wed, 16 Aug 2006 10:08:00 GMT asp,将变量中内容中的http地址自动加上连接
<%

strContent ="老大，给我加个链接吧http://www.yongfa365.com哈哈哈哈，这是我家娘子的网址：http://hi.baidu.com/chenmanxia,好了，加链接吧" 

Set re=new RegExp 

re.IgnoreCase =true 

re.Global=True 

re.Pattern = "^(http://[A-Za..]]> http://www.yongfa365.com/Item/69f3787eca1ab30b.html Wed, 09 Aug 2006 08:04:00 GMT IIS 6.0浏览asp动态内容时 &#34; HTTP 错误 404 - 文件或目录找到 &#34; 错误信息
Internet 信息服务管理-->Web 服务扩展-->选择Active Server Pages为允许]]> http://www.yongfa365.com/Item/2c985d796c074aaa.html Tue, 08 Aug 2006 23:29:00 GMT admin-->7a57a5a743894a0e
后台密码替换:16位7a57a5a743894a0e

后台密码替换: 32位21232f297a57a5a743894a0e4a801fc3

admin 经md5加密后：7a57a5a743894a0e
]]> http://www.yongfa365.com/Item/3e24a1aae55780d2.html Tue, 08 Aug 2006 21:28:00 GMT [原]图片自适应表格[完美解决方案]
Function fileexits(filename)
set FSO=Server.CreateObject("Scripting.FileSystemObject") 
If FSO.FileExists(filename) Then
   fileexits=true
Else
   fileexits=false
End If 
end Function

'得到文件的width 和height

     &nbs..]]> http://www.yongfa365.com/Item/d13917bd7aac9504.html Wed, 02 Aug 2006 10:31:00 GMT ASP 编程中20个非常有用的例子 答：使用Mappath方法
< p align="center" >< font size="4" face="Arial" >< b >
The Physical path to this virtual website is:
< /b >< /font >
< font color="#FF0000" size="6" face="Arial" >
< %= Server.MapPath("\")% >
..]]> http://www.yongfa365.com/Item/0d736b56263c6ba5.html Thu, 27 Jul 2006 14:55:00 GMT ASP一个网页处理所有问题(添加,修改,删除,列表)框架
<!--#include file="conn.asp"-->
<%'本页配置
lanmusort="链接"

%>
<link href="css/style.css" rel="stylesheet" type="text/css">
<%
 ID=int(request("ID"))
 action=request("action")


 select case acti..]]> http://www.yongfa365.com/Item/0dfdd46bd1e09a2f.html Wed, 19 Jul 2006 00:50:00 GMT 删除文件
<%
set fso=server.CreateObject("scripting.filesystemobject")
filename1=server.MapPath("Pic")
if fso.fileexists(filename1) then
fso.deletefile filename1
end if 
%>]]> http://www.yongfa365.com/Item/853a80692564e193.html Wed, 19 Jul 2006 00:16:00 GMT JMail发送邮件函数SendMail  
msgbox SendMail("64049027@qq.com","收件人", "测试", "柳永法test","发件人", "yongfa365@cbdcn.com")
Function SendMail(MailtoAddress, MailtoName, Subject, MailBody, FromName, MailFrom)
 '函数..]]> http://www.yongfa365.com/Item/SendMail-JMail-Function-yongfa365.html Tue, 18 Jul 2006 23:35:00 GMT [原]数据库链接标准无错版(SQL+ACCESS) conn connstr SQL Server ACCESS
dbpath=server.mappath("../db/#%20yongfa.mdb")  

connstr= "provider=microsoft.jet.oledb.4.0;data source=" & dbpath 

set conn=server.createobject("adodb.connection")  

conn.open co..]]> http://www.yongfa365.com/Item/b354e65e41c75ae9.html Tue, 18 Jul 2006 15:28:00 GMT [转]Session对象的清空
Contents.Remove("变量名"): 从Session.contents集合中删除指定的变量 
Contents.Removeall() : 删除Session.contents集合中的所有变量 
Abandon() : 结束..]]> http://www.yongfa365.com/Item/ae3d776004c5de46.html Tue, 18 Jul 2006 13:54:00 GMT [原]asp防SQL注入函数 Function SafeRequest(ParaValue) 
ParaValue=Trim(Request(ParaValue))
If ParaValue = "" Then
SafeRequest = ""
Exit Function
End If
...]]> http://www.yongfa365.com/Item/64b203bfb37ef51a.html Tue, 18 Jul 2006 13:53:00 GMT [原]BBS过滤不干净,非法字符
'名称:BBS过滤
'调用:guolv(str)
'参数:str为要过滤的内容;
'作用:删除一些为了推广自己公司在论坛里发布的大量的网址信息,过滤原则是去掉网址及前10个字符,
'          把一些不健康的字符替换成*


Function guolv(Words)
..]]> http://www.yongfa365.com/Item/f298ef488e3fca90.html Tue, 18 Jul 2006 13:51:00 GMT [转-改]遍历目录以及目录下文件的函数- 从网上找的不过都用不了,自己用Emeditor修正了一下 <% 
 '遍历目录以及目录下文件的函数 

    Set Fso=server.createobject("scripting.filesystemobject")   

    On Error Resume Next 
    Set Objfolder=fso.getfolder(path) 
     
&n..]]> http://www.yongfa365.com/Item/b33132d14c6be528.html Tue, 18 Jul 2006 13:47:00 GMT [原]数据库连接,有时会出错在conn.open connstr这地方的问题,及联接查询调用rs("user.id")的问题

使用下列这个连接字符串时情况如下



connstr="DBQ="+server.mappath("db/#kehumsg.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

set conn=server.createobject("ADODB.CONNECTION")

conn.ope..]]> http://www.yongfa365.com/Item/b1b2f24850352473.html Tue, 18 Jul 2006 13:43:00 GMT [转]asp备份,还原SQL数据库--非常好用   选择操作：
  <input type="radio" name="act" id="act_backup"value="backup">
  <label for=act_backup>备份</label>
  <input type="radio" name="act" id="act_restore" value="restore"&gt..]]> http://www.yongfa365.com/Item/16affd3326b1ac1f.html Tue, 18 Jul 2006 13:42:00 GMT [转]图片自适应表格,目前最佳解决方案! 2.用VBSCRIPT里的一个函数 loadpicture
picurl'图片地址
'取出高宽

使用图片前选调出来并取得图片大小
set myImg = loadpicture(server.mappath(picurl)) 
 iWidth = round(myImg.width / 26.4583) 
 iHeight =..]]> http://www.yongfa365.com/Item/7fafc909f20f842a.html Tue, 18 Jul 2006 13:41:00 GMT [转]如何取日期7月6日为0706的最简单方法 http://www.yongfa365.com/Item/a8e1fbfe85324f93.html Tue, 18 Jul 2006 13:38:00 GMT