地税城市维护建设税网站是什么个人网站引导页源码

当前位置： 首页 > news >正文

地税城市维护建设税网站是什么,个人网站引导页源码,wordpress支付方案解决,西安企业网站建站得益于com技术的支持#xff0c;WSH能提供比批处理(.bat)更强大的功能。说白了#xff0c;wsh不过是调用现成的“控件”作为一个对象#xff0c;用对象的属性和方法实现目的。 常用的对象有#xff1a; WScript Windows脚本宿主对象模型的根对象#xff0c;要使用WSH自然离…得益于com技术的支持WSH能提供比批处理(.bat)更强大的功能。说白了wsh不过是调用现成的“控件”作为一个对象用对象的属性和方法实现目的。 常用的对象有 WScript Windows脚本宿主对象模型的根对象要使用WSH自然离不开它。它提供多个子对象比如WScript.Arguments和WScript.Shell。前者提供对整个命令行参数集的访问后者可以运行程序、操纵注册表内容、创建快捷方式或访问系统文件夹。 Scripting.FileSystemObject 主要为IIS设计的对象访问文件系统。这个恐怕是大家遇到最多的对象了因为几乎所有的Windows脚本病毒都要通过它复制自己感染别人。 ADODB.Stream ActiveX Data Objects数据库的子对象提供流方式访问文件的功能。这虽然属于数据库的一部分但感谢微软ADO是系统自带的。 Microsoft.XMLHTTP 为支持XML而设计的对象通过http协议访问网络。常用于跨站脚本执行漏洞和SQL injection。 还有很多不常见的 活动目录服务接口(ADSI)相关对象 —— 功能涉及范围很广主要用于Windows域管理。 InternetExplorer对象 —— 做IE能做的各种事。 WordExcelOutlook对象 —— 用来处理word文档excel表单和邮件。 WBEM对象 —— WBEM即Web-Based Enterprise Management。它为管理Windows提供强大的功能支持。下一节提到的WMI服务提供该对象的接口。 很显然WSH可以利用的对象远远不止这些。本文挂一漏万谈一些较实用的对象及其用法。 先看一个支持断点续传下载web资源的例子它用到了上面说的4个常用对象。 if (lcase(right(wscript.fullname,11))wscript.exe) then判断脚本宿主的名称  die(Script host must be CScript.exe.) 脚本宿主不是CScript于是就die了 end if if wscript.arguments.count1 then至少要有一个参数  die(Usage: cscript webdl.vbs url [filename])麻雀虽小五脏俱全Usage不能忘 end if urlwscript.arguments(0) 参数数组下标从0开始 if url then die(URL cant be null.) 敢唬我空url可不行 if wscript.arguments.count1 then先判断参数个数是否大于1  filenamewscript.arguments(1) 再访问第二个参数 else 如果没有给出文件名就从url中获得  tinstrrev(url,/) 获得最后一个/的位置  if t0 or tlen(url) then die(Can not get filename to save.)没有/或以/结尾  filenameright(url,len(url)-t)获得要保存的文件名 end if if not left(url,7) http:// ; then url http:// ;url如果粗心把“ http://”忘了加上 set fsowscript.createobject(Scripting.FileSystemObject) FSOASOHTTP三个对象一个都不能少 set asowscript.createobject(ADODB.Stream) set httpwscript.createobject(Microsoft.XMLHTTP) if fso.fileexists(filename) then 判断要下载的文件是否已经存在  startfso.getfile(filename).size存在以当前文件大小作为开始位置 else  start0 不存在一切从零开始  fso.createtextfile(filename).close新建文件 end if wscript.stdout.write Connectting…好戏刚刚开始 currentstart当前位置即开始位置 do  http.open GET,url,true这里用异步方式调用HTTP  http.setrequestheader Range,bytesstart-cstr(start20480) 断点续传的奥秘就在这里  http.setrequestheader Content-Type:,application/octet-stream  http.send 构造完数据包就开始发送  for i1 to 120循环等待   if http.readystate3 then showplan() 状态3表示开始接收数据显示进度   if http.readystate4 then exit for 状态4表示数据接受完成   wscript.sleep 500等待500ms  next  if not http.readystate4 then die(Timeout.) 1分钟还没下完20k超时  if http.status299 then die(Error: http.status http.statustext) 不是吧又出错  if not http.status206 then die(Server Not Support Partial Content.) 服务器不支持断点续传  aso.type1数据流类型设为字节  aso.open  aso.loadfromfile filename 打开文件  aso.positionstart设置文件指针初始位置  aso.write http.responsebody 写入数据  aso.savetofile filename,2 覆盖保存  aso.close  rangehttp.getresponseheader(Content-Range) 获得http头中的Content-Range  if range then die(Can not get range.)没有它就不知道下载完了没有  tempmid(range,instr(range,-)1)Content-Range是类似123-456/789的样子  currentclng(left(temp,instr(temp,/)-1))123是开始位置456是结束位置  totalclng(mid(temp,instr(temp,/)1)) 789是文件总字节数  if total-current1 then exit do 结束位置比总大小少1就表示传输完成了  startstart20480 否则再下载20k loop while true wscript.echo chr(13)Download (total) Done.下载完了显示总字节数 function die(msg)函数名来自Perl内置函数die wscript.echo msg 交代遗言^_^ wscript.quit 去见马克思了 end function function showplan()显示下载进度 if i mod 3 0 then c/简单的动态效果 if i mod 3 1 then c- if i mod 3 2 then c/ wscript.stdout.write chr(13)Download (¤t) cchr(8)13号ASCII码是回到行首8号是退格 end function