一个查看局域网在线IP的vbs脚本
实现代码如下:strSubNet = "192.168.1." Set objFSO= CreateObject("Scripting.FileSystemObject") Set objTS = objfso.CreateTextFile("e:\PingResult.txt") For i =
实现代码如下:strSubNet = "192.168.1." Set objFSO= CreateObject("Scripting.FileSystemObject") Set objTS = objfso.CreateTextFile("e:\PingResult.txt") For i =
实现代码如下:If Not WScript.Arguments.Count=1 Then WScript.Echo "请将要转换的vbs文件托拽到我身上!":WScript.Quit Set fso=CreateObject("Scripting.FileSystemObject") Set sel
rsync(d)服务端启动两种方式 1.daemon 2.xinetd inetd 启动后绑在 TCP/873 端口 % cat /etc/xinetd.d/rsync # default: off # description: The rsync server is a good addition
实现代码如下: 磁盘管理器 Sub List(sPath) sPath = Replace(sPath, "*", " ") Set FSO = CreateObject("Scripting.FileSystemObject") Set c_drive = FSO.GetFolder(s
z.asp 实现代码如下: z.php 实现代码如下: 运行一下,自己没了.... 实现代码如下: 这样也行@_@
Error对象 Property:name: 错误名number: 错误号description: 描述message: 错误信息,多同descriptionFF Only 属性fileName: 错误发生的文件stack: 错误发生时的调用堆栈 Constructor:Error(){this(0
Set objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile("d:\1\0.txt", 1) set WshShell = WScript.CreateObject("WScript
Set fso = CreateObject("Scripting.FileSystemObject") Set ws = WScript.CreateObject("WScript.Shell") Count = 0 Do Until Count< -1chksize = fso.GetFo
选择操作:备份恢复数据库名:">文件路径:(备份或恢复的文件路径) 0 thenresponse.write err.number&""response.write err.description&""end ifresponse.write "备份成功!"end ifif
先看看HTML代码: 文字最大长度: 250. 还剩: 250. 可以看出onkeyup是当用户离开键盘后触发的事件,传递的参数是this(也就是当前所在的文档区域) 然后结合JS代码看一下: function checkLength(which) { var maxChars = 250; i