#APS/Basic

用于修改 DNS IP 地址的 VB Shell 脚本

' This script changes the DNS servers for a network device in Windows ' to a defined IP or…

#APS/Basic

WshShell对象常用方法介绍

　　 1．Wscript对象：Windows Script Host object model 　　首先了解Wscript根对象，简单地说，Wscript对象就是一个Windows…

#APS/Basic

用VBS解压缩ZIP文件

Sub UnZip(ByVal myZipFile, ByVal myTargetDir) If NOT fso.FolderExists(myTargetDir) Then fs…

#APS/Basic

VBScript测试SQL Server 2005数据库连接

Dim conn Set conn = CreateObject("ADODB.Connection") conn.connectionString = "Provider = S…

#APS/Basic

桌面助手 DATOOLS，可以自定义的工具箱

#APS/Basic

ASP 格式化时间函数

'格式化时间函数 public function formatdate(dateandtime,para) on error resume next dim y, m, d, h,…

#APS/Basic

欧姆龙 PLC 串行口

Do Do str_in = str_in & Link.ReadExisting Loop While ((str_in.Length < length_predi…

#APS/Basic

按指定数量字节分块读取文件

Option Explicit Private Const OFS_MAXPATHNAME = 128 Private Type OFSTRUCT cBytes As Byte f…

#APS/Basic

Luhn算法

<% ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California ' 9…

#APS/Basic

getFileSize 获得文件大小

<% ' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved. ' ' This work…

#APS/Basic

ASP 分页时计算页面总数的几种算法

' HTMer_RecordCount为要计算的页面总数 ' HTMer_RecordCount为记录集数 ' HTMer_PageSize为每页记录数 If HTMer_Reco…

#APS/Basic

恶搞小程序

Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set …