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

    快乐-奋斗
  • 相关阅读:
    Lookup Method
    ReLocated Record in Grid
    Call Form By FormString
    Send Mail
    十大已亡或正在灭亡的电脑技术
    一个程序员的内心自白摘录
    数据库中null和''具体的区别
    gridview 横向显示
    Exchange2007获取OWA邮箱容量的代码
    owa实现清空邮箱的代码
  • 原文地址:https://www.cnblogs.com/tt-player/p/3340405.html
Copyright © 2011-2022 走看看