-
VBS基础教程
所属栏目：[Asp教程] 日期：2016-12-03 热度：89
VBScript(Microsoft Visual Basic Script Editon).，微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言. Microsoft Visual Basic是微软公司出品的一套可视化编程工具, 语法基于Basic. 脚本语言,[详细]
-
获取远程机器共享目录的物理路径的代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：186
第一：依靠135端口，用wmi。像下边的脚本是得到共享目录ttt的物理目录。 复制代码 代码如下: strPath ="192.168.1.55ttt" strPath = Replace(strPath, "", "") arrPath = Split(strPath, "") strComputer = arrPath(0) strShare = arrPath(1) Set ob[详细]
-
EXE2BAT(EXE转BAT)的vbs脚本
所属栏目：[Asp教程] 日期：2016-12-03 热度：92
exe2bat的脚本 复制代码 代码如下: fp=wscript.arguments(0) fn=right(fp,len(fp)-instrrev(fp,"")) with createobject("adodb.stream") .type=1:.open:.loadfromfile fp:str=.read:sl=lenb(str) end with sll=sl mod 65536:slh=sl65536 with createobject([详细]
-
vbscript的骨灰级写法计算1到100的和
所属栏目：[Asp教程] 日期：2016-12-03 热度：102
这篇日志完全是看了一篇日志后的启发，原文为：邪恶的eval和new Function。 很少使用new Array的方式来定义数组，没想到new Array有这么一个妙用，通过new Array(n)我们可以创建n个空元素，同时也就在n个元素中间存在n-1个空白，通过join,我们可以将一些东[详细]
-
使用脚本调用系统的关机对话框实现代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：149
以前有介绍如何使用命令行调用系统的关机对话框： 具体方法：开始／运行： 复制代码 代码如下: rundll32.exe shell32.dll #60 但是，上述方法会存在一问题，XP下无法正常使用该方法进行关机（感谢网友沐烨 发现该问题）。问题原因可能是：正常情况下，关机[详细]
-
获取外网IP并发送到指定邮箱的vbs代码[已测]
所属栏目：[Asp教程] 日期：2016-12-03 热度：75
复制代码 代码如下: ''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,"[",1)+1 sss=mid(ss,intStrA) intStrB =[详细]
-
使用脚本自动压缩指定目标下的所有文件的代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：118
为了解决这类问题，我使用Visual Basic Scripting设计了一个脚本，可以自动达到这个目标。在本脚本中，自动压缩所有文件。为了避免将脚本自己也压缩进去，使用了一些判断。 复制代码 代码如下: call main() Sub main() Dim fs '文件系统。 Dim f 'folder Di[详细]
-
Win2003里用命令行刷新硬件列表，以扫描硬件改动的实现代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：143
如果是想搜索新硬件，还真不知道该用什么命令。系统的PNP可以自动搜索到新硬件，所以估计也没必要手动刷新搜索。 如果是想查看设备的变动，倒是可以用命令行来实现。 方法一、使用WMIC（WMI命令行） 使用WMIC需要管理员权限，第一次运行会进行安装和配置。[详细]
-
用VBScript实现解压缩目录中的所有文件(Zip)
所属栏目：[Asp教程] 日期：2016-12-03 热度：114
复制代码 代码如下: On Error Resume Next Dim objFSO,sourcepath,targetpath Function GetZipFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目标文件夹不存在！" Else objFSO.CreateFolder targetp[详细]
-
VBScript压缩单个文件为zip格式
所属栏目：[Asp教程] 日期：2016-12-03 热度：88
复制代码 代码如下: On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystemObject") targetfile="D:tmp.zip" Set fp=fso.OpenTextFile(targetfile,2,True) fp.Write Chr(80) Chr(75) Chr(5) Chr(6) String(18,0)[详细]
-
用VBScript实现压缩目录中的所有文件(Zip)
所属栏目：[Asp教程] 日期：2016-12-03 热度：150
复制代码 代码如下: On Error Resume Next Dim objFSO,sourcepath,targetpath,targetfile Function GetSourceFile(path) Dim file,folder,sfolder,subfolder,files If Not objFSO.FolderExists(path) Then Msgbox "目标文件夹不存在！" Else objFSO.Create[详细]
-
VBS创建正则表达式对象的两种方法
所属栏目：[Asp教程] 日期：2016-12-03 热度：173
一直以来，我都是用 New RegExp 来创建正则表达式对象的： Set regex = New RegExp然而最新才发现 VBS 的正则表达式对象也可以这样创建： Set regex = CreateObject("VBScript.RegExp")貌似我看过的 VBScript 书籍没有一本介绍过这种写法，当然，书上没写的[详细]
-
VBS实现将字符串写入剪切板的实现代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：186
函数代码: 复制代码 代码如下: Sub CopyString(s) Set forms=WScript.CreateObject("forms.form.1") Set textbox=forms.Controls.Add("forms.textbox.1").Object With textbox .multiline=True .text=s .selstart=0 .sellength=Len(.text) .copy End With E[详细]
-
ASP/VBScript中CHR(0)的由来以及带来的安全问题分析
所属栏目：[Asp教程] 日期：2016-12-03 热度：144
该字符标识着字符串的结束，也称作null-terminated，这个给脚本编程尤其是ASP编程带来了一定的麻烦，很多人可能会问为什么要保留这个特殊字符，我们可以追溯到编写操作系统的语言之一C语言，学过C/C++的童鞋可能知道，在字符串中标识一个字符串结束靠的就是[详细]
-
国内首个大数据天使投资平台将上线
所属栏目：[Asp教程] 日期：2016-11-23 热度：165
海燕天使盟近日宣布，国内首个针对天使投资项目的天使投资项目披露版平台将于10月上旬正式上线，该平台的创新在于将传统的基于线下的风险投资模式，升级为借助大数据思维的线上交易模式。 海燕天使盟创始人闫新程告诉南都记者，平台的一端对接的是天使投资[详细]
-
网宿科技前三季业绩预增105%至135%
所属栏目：[Asp教程] 日期：2016-11-23 热度：52
中国IDC圈10月16日报道，网宿科技10月14日晚间披露三季报业绩预告，公司预计今年前三季业绩将增长105%135%. 公司称，2014年前三季度，公司净利润继续保持较快增长，主要原因在于公司凭借领先的技术实力、高标准的服务水平以及丰富的运营经验继续推进业务发[详细]
-
铁塔公司回应招聘非市场化质疑:初期为方便工作
所属栏目：[Asp教程] 日期：2016-11-23 热度：90
作者 吴丰恒 10月16日报道：铁塔公司表示，公司筹备期工作基本完成，即将进入正式运营阶段。今年7月，铁塔公司揭牌成立，进入公司组建阶段，启动从总部到省市分公司人员招聘。 铁塔公司一成立就被打上电信改革、市场化改革标签，不仅剥离运营商铁塔资产，[详细]
-
中国铁塔总经理佟吉禄：新建能力是吃饭的本钱
所属栏目：[Asp教程] 日期：2016-11-23 热度：159
中国IDC圈10月20日报道：中国铁塔股份有限公司总经理佟吉禄在河北省分公司调研时表示， 铁塔的新建能力就是竞争力，是吃饭的本钱，要着重提升新建能力。 铁塔河北省分公司总经理范福州向佟吉禄做了工作汇报。公司自9月25日完成中国铁塔股份有限公司河北省[详细]
-
腾讯上海数据中心建成
所属栏目：[Asp教程] 日期：2016-11-23 热度：142
中国IDC圈10月22日报道，作为腾讯公司数据中心布局的重要一环，腾讯上海云数据中心已经完成园区和土建建设，成功交付给合作伙伴上海电信。腾讯公司高级执行副总裁卢山和中国电信上海分公司总经理马益民出席了交付仪式。 腾讯上海云数据中心位于上海青浦经[详细]
-
中国联通宽带公司总监周志祥：发挥法治规范网络行为的主导作用
所属栏目：[Asp教程] 日期：2016-11-23 热度：185
全面推进网络空间法治化，是发挥法治对引领和规范网络行为的主导性作用，引导网民遵法守法，做中国好网民。 在今后的工作中，中国联通将进一步增强大局意识和信息安全观念，坚持在重大事件和公益活动中的正确舆论导向，努力使手机媒体成为大众获取各类有益[详细]
-
新疆电信申建离岸数据中心
所属栏目：[Asp教程] 日期：2016-11-23 热度：134
中国IDC圈10月20日报道，日前，记者从中国电信新疆公司获悉，该公司正在与相关机构一起申请在乌鲁木齐建立离岸数据中心，为境内外客户提供面向境外的互联网应用平台业务。 据中国电信新疆公司相关责任人透露，离岸数据中心可以在国内直接向境内外客户提供[详细]
-
大变革 新生态 IDC产业大典开幕在即
所属栏目：[Asp教程] 日期：2016-11-23 热度：67
近两年来，在移动互联网的大潮驱动下，IDC行业也发生了根本性的变化。市场规模每年都在以20%的速度递增，2013年中国IDC市场规模已达262.5亿元人民币，增速达到了24.7%。到今年以后，增速还将持续。另据《云计算白皮书》数据显示，2013年国内IaaS云市场增速[详细]
-
中国铁塔入驻两江新区 手机宽带费未来有望下降
所属栏目：[Asp教程] 日期：2016-11-23 热度：71
昨天，中国铁塔股份有限公司重庆市分公司在两江新区正式揭牌成立。它标志着我市信息通信基础设施建设进入新的发展阶段，因为今后移动、联通、电信三家的手机基站等通信基础设施建设，都将陆续交由该公司负责，以避免三家运营商通信设施重复建设。 据了解，[详细]
-
中国IDC圈独家探营：宝德数据中心
所属栏目：[Asp教程] 日期：2016-11-23 热度：127
中国IDC圈10月27日报道，乘我国云计算大规模发展的强劲东风，近几年来国内数据中心如雨后春笋般兴建起来，北上广地区表现尤为明显，2013年，宝德数据中心也毅然决然的投入到了这股热潮中。 宝德数据中心成立于2003年，是宝德集团的子公司之一，一直以来依[详细]
-
重庆铁塔公司成立 三大运营商将实现资源共享
所属栏目：[Asp教程] 日期：2016-11-23 热度：92
10月24日，中国铁塔股份有限公司重庆市分公司（下称重庆铁塔公司）在两江新区正式挂牌成立。这也是中国铁塔公司在国内设立的第3家省级分公司。 重庆铁塔公司下设9个区域性分公司。按照发展计划，该公司将通过专业化、市场化的模式，开展通信基础设施的建设[详细]
浙公网安备 33038102330484号