zoukankan      html  css  js  c++  java
  • tt1

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

    博客园配置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)

    不错的效果。

    image

    快乐-奋斗
  • 相关阅读:
    使用signalr不使用连接服务器和前台的js的方法
    signalR client属性中的大致方法
    创建一个简单的signalr项目
    设计模式之工厂模式
    VS2012下没有ADO.NET实体数据模型
    迷你极客主机Station M1 开箱体验
    制作Station M1主机的Armbian启动卡
    StationP1的Ubuntu上安装gedit
    Station OS播放网络共享文件夹的媒体资源
    体验StationOS的推荐应用功能
  • 原文地址:https://www.cnblogs.com/tt-player/p/3340405.html
Copyright © 2011-2022 走看看