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

    快乐-奋斗
  • 相关阅读:
    linux ls
    ExtJs 弹出窗口
    Redhat5 装中文
    Linux下配置JDK以及报cannot restore segment prot after reloc: Permission denied错解决方案
    工具
    得到剪切的图片
    label button等设置不同颜色的标题
    UITableView UITextField 键盘挡住
    给出颜色生成图片
    一个不错的学习网站
  • 原文地址:https://www.cnblogs.com/tt-player/p/3340405.html
Copyright © 2011-2022 走看看