原VB代码
Function InstallChatService(ServerFolder, port)
    Dim BatCommand, pId As Long, pHnd As Long
    BatCommand = ChatFolder & "\InstallServer\" & port & ".bat"
    Response.Write BatCommand & "<br>"
    pId = Shell(BatCommand)
    Response.Write pId
End Function经过测试,发现一是目录权限的问题,二是BAT文件参数的问题于是在ASP下重写如下代码:
<object runat="server" id="ws" scope="page" classid="clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"></object>
<object runat="server" id="ws" scope="page" classid="clsid:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B"></object>
<object runat="server" id="sa" scope="page" classid="clsid:13709620-C279-11CE-A49E-444553540000"></object>
<%
'sa执行
appName="TServer.exe"
appArgs="-install d:\TServer\port\port.ini"
appPath="d:\TServer\installserver\"sa.ShellExecute appName, appArgs, appPath, "", 0
response.end'ws执行
cmdPath="d:\TServer\TServer.exe -install d:\TServer\port\port.ini"
cmdStr="WScriptShell"cmdstr=cmdPath & " /c " & cmdStr
doWsCmdRun = ws.Exec(cmdStr).StdOut.ReadAll()
%>两种执行方式都可以执行文件(如notepad.exe),但是在执行TServer.exe的时候因为其中包含d:\TServer\port\port.ini参数,所以无法正常执行,求解决方法拜托拜托,急死我了