DIm
#include iostream.h
#include iostream.h
#
#include iostream.h

http://www.cnblogs.com/cmt/archive/2012/06/25/2560793.html 连接
# int a =10
 

博客园配置windows live writer,实现本地代码高亮 - Rollen Holt - 博客园  可以折腾折腾

Set objArgs = WScript.Arguments
if objArgs.Count < 1 then
call DisplaySimpleHelp
WScript.Quit(PARAM_MISSING)Set objArgs = WScript.Arguments
if objArgs.Count < 1 then
call DisplaySimpleHelp
WScript.Quit(PARAM_MISSING)
end ifSynatxHighlighter if ucase(objArgs(0)) = "HELP" thenSet objArgs = WScript.Arguments
if objArgs.Count < 1 then
call DisplaySimpleHelp
WScript.Quit(PARAM_MISSING)
end ifSet objArgs = WScript.Arguments
if objArgs.Count < 1 then
call DisplaySimpleHelp
WScript.Quit(PARAM_MISSING)
end ifSynatxHighlighter if ucase(objArgs(0)) = "HELP" thenSet objArgs = WScript.Arguments
if objArgs.Count < 1 then
call DisplaySimpleHelp
WScript.Quit(PARAM_MISSING)
end if if ucase(objArgs(0)) = "HELP" then
call DisplayHelp
WScript.Quit(NO_EXECUTION)
end if If ucase(objArgs(0)) = "UPDATE" Then
call VDirUpdate
WScript.Quit(0)
end if If ucase(objArgs(0)) = "CREATE" Then
call VDirCreate
WScript.Quit(0)
end if 'we can quit with an error message
call DisplayError("Unknown Paramter ("+objArgs(0)+")", UNKNOWN_PARAM, 0) call DisplayHelp
WScript.Quit(NO_EXECUTION)
end if If ucase(objArgs(0)) = "UPDATE" Then
call VDirUpdate
WScript.Quit(0)
end if If ucase(objArgs(0)) = "CREATE" Then
call VDirCreate
WScript.Quit(0)
end if 'we can quit with an error message
call DisplayError("Unknown Paramter ("+objArgs(0)+")", UNKNOWN_PARAM, 0)
if ucase(objArgs(0)) = "HELP" then
call DisplayHelp
WScript.Quit(NO_EXECUTION)
end if If ucase(objArgs(0)) = "UPDATE" Then
call VDirUpdate
WScript.Quit(0)
end if If ucase(objArgs(0)) = "CREATE" Then
call VDirCreate
WScript.Quit(0)
end if 'we can quit with an error message
call DisplayError("Unknown Paramter ("+objArgs(0)+")", UNKNOWN_PARAM, 0) call DisplayHelp
WScript.Quit(NO_EXECUTION)
end if If ucase(objArgs(0)) = "UPDATE" Then
call VDirUpdate
WScript.Quit(0)
end if If ucase(objArgs(0)) = "CREATE" Then
call VDirCreate
WScript.Quit(0)
end if 'we can quit with an error message
call DisplayError("Unknown Paramter ("+objArgs(0)+")", UNKNOWN_PARAM, 0)end ifSynatxHighlighter if ucase(objArgs(0)) = "HELP" thenSet objArgs = WScript.Arguments
if objArgs.Count < 1 then
call DisplaySimpleHelp
WScript.Quit(PARAM_MISSING)
end ifSet objArgs = WScript.Arguments
if objArgs.Count < 1 then
call DisplaySimpleHelp
WScript.Quit(PARAM_MISSING)
end ifSynatxHighlighter if ucase(objArgs(0)) = "HELP" thenSet objArgs = WScript.Arguments
if objArgs.Count < 1 then
call DisplaySimpleHelp
WScript.Quit(PARAM_MISSING)
end if if ucase(objArgs(0)) = "HELP" then
call DisplayHelp
WScript.Quit(NO_EXECUTION)
end if If ucase(objArgs(0)) = "UPDATE" Then
call VDirUpdate
WScript.Quit(0)
end if If ucase(objArgs(0)) = "CREATE" Then
call VDirCreate
WScript.Quit(0)
end if 'we can quit with an error message
call DisplayError("Unknown Paramter ("+objArgs(0)+")", UNKNOWN_PARAM, 0) call DisplayHelp
WScript.Quit(NO_EXECUTION)
end if If ucase(objArgs(0)) = "UPDATE" Then
call VDirUpdate
WScript.Quit(0)
end if If ucase(objArgs(0)) = "CREATE" Then
call VDirCreate
WScript.Quit(0)
end if 'we can quit with an error message
call DisplayError("Unknown Paramter ("+objArgs(0)+")", UNKNOWN_PARAM, 0)
if ucase(objArgs(0)) = "HELP" then
call DisplayHelp
WScript.Quit(NO_EXECUTION)
end if If ucase(objArgs(0)) = "UPDATE" Then
call VDirUpdate
WScript.Quit(0)
end if If ucase(objArgs(0)) = "CREATE" Then
call VDirCreate
WScript.Quit(0)
end if 'we can quit with an error message
call DisplayError("Unknown Paramter ("+objArgs(0)+")", UNKNOWN_PARAM, 0) call DisplayHelp
WScript.Quit(NO_EXECUTION)
end if If ucase(objArgs(0)) = "UPDATE" Then
call VDirUpdate
WScript.Quit(0)
end if If ucase(objArgs(0)) = "CREATE" Then
call VDirCreate
WScript.Quit(0)
end if 'we can quit with an error message
call DisplayError("Unknown Paramter ("+objArgs(0)+")", UNKNOWN_PARAM, 0)

不错的效果。

tt1的更多相关文章

  1. ubuntu 16.04(Windows 10双系统+grub引导)无法进入tt1~tt6(NVIDIA驱动安装相关-黑屏,login loop,分辨率)

    目录 前言回顾 最终解决: 0.关闭x服务 1.禁用nouveau 2.加入 3.更新 4.查找匹配驱动 5.选择推荐版本 6.等待安装后重启,nvidia-smi查看是否安装成功,或者lsmod | ...

  2. session实现购物车

    为实现简单的购物功能(购物车添加.账户查看.购物车商品删除.实时的购物商品数量及价格的计算显示.购物车商品数量可手动输入等),用session实现了一简单的以php语言为基础.连接MySQL数据库的购 ...

  3. dubbo 配置解析

    1.dubbo 常用配置 <dubbo:service/> 服务配置,用于暴露一个服务,定义服务的元信息,一个服务可以用多个协议暴露,一个服务也可以注册到多个注册中心.eg.<dub ...

  4. 页面局部跳转(iframe)

    <script type="text/javascript"> function show() { document.getElementById("ff&q ...

  5. Python 【第八章】:JavaScript 、Dom、jQuery

    JavaScript 放置位置 body内部最下面,这样可以避免javascript链接失效时,长时间加载不到页面html内容 变量: var a =123 局部变量 a = 123 全局变量 作用域 ...

  6. NFS服务器配置文档

    Server:192.168.1.206/WindowsClient:192.168.1.208/CentOS一.搭建windows NFS服务:1.安装NFS服务器:打开"服务管理器&qu ...

  7. SQL批量更新 关系表更新

    很多人在做数据的批量更新时..如果更新的内容是从其他表查出来的..很容易这么写.. UPDATE TABLE1 SET COLUMN1=(SELECT SUM(SOMETHING) FROM TABL ...

  8. java从基础知识(十)java多线程(上)

    线程,有时被称为轻量级进程(Lightweight Process,LWP),是程序执行流的最小单元.另外,线程是进程中的一个实体,是被系统独立调度和分派的基本单位,线程自己不拥有系统资源,只拥有一点 ...

  9. MySQL详解--锁

    http://blog.csdn.net/xifeijian/article/details/20313977 2014-03-06 23:45 66484人阅读 评论(17) 收藏 举报  分类: ...

随机推荐

  1. mysql安装及navicat连接

    1.下载mysql官方连接:https://dev.mysql.com/downloads/mysql/ 下载成功后,解压到自己想要的路径下并创建my.ini文件和配置环境变量 然后我们在根目录下创建 ...

  2. nginx搭建静态资源服务器

    nginx配置访问前端工程 1.前端工程目录 crm-view |-- view |-- user.html 2.工程位置 C:\Users\Administrator\Desktop\CRM系统\c ...

  3. 运用 node + express + http-proxy-middleware 实现前端代理跨域的 详细实例哦

    一.你需要准备的知识储备 运用node的包管理工具npm 安装插件.中间件的基本知识: 2.express框架的一些基础知识,知道如何建立一个小的服务器:晓得如何快速的搭建一个express框架小应用 ...

  4. [Python3网络爬虫开发实战] 3.1.3-解析链接

    前面说过,urllib库里还提供了parse这个模块,它定义了处理URL的标准接口,例如实现URL各部分的抽取.合并以及链接转换.它支持如下协议的URL处理:file.ftp.gopher.hdl.h ...

  5. mysql解决 ERROR 1045 (28000): Access denied for user 'root'@'localhost' (using password: YES)的报错

    一般这个错误是由密码错误引起,解决的办法自然就是重置密码. 假设我们使用的是root账户. 1.重置密码的第一步就是跳过MySQL的密码认证过程,方法如下: #vim /etc/my.cnf(注:wi ...

  6. web应用无法访问的原因之一以及如何设置数据库编码

    这篇随笔,本是应该是在前天晚上发的,但是因为事情太多,硬生生拖到了现在,当时,在我将web应用部署到服务器上时,在调用接口时,客户端没有任何反应,应该是又出异常了,查看了控制台的异常输出,提示requ ...

  7. c:foreach 标签 varStatus的使用

    <c:forEach items="${MedicalDoctoList }" var="medicalDoctor" varStatus="s ...

  8. 标准sqlserver连接语句

    sqlserver左右全内连接 原始链接http://www.cnblogs.com/youzhangjin/archive/2009/05/22/1486982.html      连接条件可在FR ...

  9. 原生js获取复选框的值

    ​​ obj = document.getElementsByName("dk_tj"); var longtxt = ""; for (k in obj) { ...

  10. jsp获取绝对路径----${pageContext.request.contextPath}

    JSP取得绝对路径 在JavaWeb开发中,常使用绝对路径的方式来引入JavaScript和CSS文件,这样可以避免因为目录变动导致引入文件找不到的情况,常用的做法如下: 一.使用${pageCont ...