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

    快乐-奋斗
  • 相关阅读:
    三维坐标变换习题
    1 Introduction and Roadmap
    快讯:2019 OOW 文档已提供下载
    过了35岁,90%以上DBA都在迷茫:未来要何去何从?
    深度学习入门笔记(五):神经网络的编程基础
    《算法图解》学习笔记(十):K 最近邻算法(附代码)
    LNMP环境搭建之php安装
    LNMP环境搭建之php安装
    LNMP环境搭建之php安装
    (PSO-BP)结合粒子群的神经网络算法以及matlab实现
  • 原文地址:https://www.cnblogs.com/tt-player/p/3340405.html
Copyright © 2011-2022 走看看