tt1-CSDN博客

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)

不错的效果。

•