内容列表页
 
2008-4-24 13:09:15
'/*=========================================================================
' * Intro       .txt文本切割器,默认为8000个字符切为一个文件。支持拖动。
' * FileName    SplitFile.vbs
' * Author      yongfa365
' * Version     v1.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa36..
 
2008-4-1 17:12:52
'/*=========================================================================
' * Intro       PHP安装脚本,您所要做的操作是:保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)
' *             (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名),然后双击运行这个文件,
' * FileName    PHPFirstInstall.vbs
' * Author      yongfa365
' * Version     v1.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-04-01 15:55:41
' *==========================================================================*/
 
2008-3-29 16:25:55
Set objHTML=CreateObject("htmlfile")  'xmlfile、mhtmlfile都可以
ClipboardText=objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText
 
2008-3-24 10:51:26
已经第二次了,上班后没把电话解除,总记不起这件事。做了个备忘录,放在启动项里,每次启动系统后都会执行,弹出相关事项,即便自己没有记住也可以给个提醒了
 
msg = Array("解除电话 #57#", "服务器处理", "流量图看有没有大流量", "今天要完成哪些任务")
'msgbox jo..
 
2008-3-22 12:31:55
这个是用来操作ACCESS数据库的东西,遍历表,遍历表的所有字段及字段的属性都会用到这个,
首先给个完全版的地址,如果您机器上装过OFFICE应该可以打开的:ADOX 对象模型,地址是:"C:\Program Files\Common Files\Microsoft Shared\OFFICE11\2052\ADO210.CHM",ADOX对象模型图:
1、ADOX 概述
Micros..
 
2008-1-31 15:55:42
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
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..
 
2008-1-29 21:15:25
研究网页编码很长时间了,因为最近要设计一个友情链接检测的VBS脚本,而与你链接的人的页面很可能是各种编码,以前采取的方法是:如果用GB2312查不到再用UTF-8查,再找不到证明对方没有给你做链接虽然不是100%正确,但也差不多了,这两种编码用的人比较多,偶然间在收藏夹里的一个地址看到的一个思路,终于可以在采集文章时自动判断网页的编码了。因为研究过程中这个问题困扰很久,虽然现在觉得简单了,想必很多人还在找,所以把这三个函数贴出来。
 
2008-1-28 18:14:09
'/*=========================================================================
' * 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
' *==========================================================================*/
 
2008-1-22 20:56:19
'/*=========================================================================
' * 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
' *==========================================================================*/
 
2008-1-15 9:17:44
看看功能:分页程序首先读取每页预置的记录条数,在此是5条,其它将在下页中显示,同时提示当前页数、总页数、总记录数,当显示的页数为第一页时,“首页”、“上一页”链接失效,当显示的页数为最后页时,“下一页”、“尾页”链接失效。

接下来,以实例的方式告诉大家怎么一步步的做出这种分页效果。
 
2008-1-14 22:42:04
'遍历一个文件夹下的所有文件夹文件夹
    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
 
2008-1-14 22:34:44
'网上看到的,适用与没有禁用shell.application的服务器
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
 
2008-1-7 19:27:43
'关键字生成系统
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
 
2008-1-3 18:23:25
编号:1 显示所有应用程序池
编号:2 一个应用程序拆分为多个
编号:3 多个应用程序池合为一个
编号:4 所有关闭的站点放到Stop池里
编号:5 所有站点放到一个应用程序池里
编号:6 从X池里取出N个放到Y池里
 
2008-1-1 22:55:27
现在杀毒的对vbs相当敏感,只要发现对注册表的xx作,或使用vbs运行命令(加用户) 就可能被杀。下面谈2方法可以简单解决:

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

Set CURObj = CreateObject("WScript.Shell")

mhk="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win..
 
   
 
 
文章分类
 
 
专题(3)
 
ASP+VBS(141)
 
 
 
 
Linux(10)
 
 
SQL(55)
 
web 2.0(21)
 
 
 
 
 
 
心程(48)
 
生活(70)
 
创业(5)
 
   

power by :柳永法(yongfa365)'Blog | model by :hibaidu | css by:众网友 | 京ICP备07011491号   我要统计  

本空间赞助商:北京中科兴联信息技术有限公司

QQ:64049027    E-mail:64049027<at>qq.com