f2.SaveToFile currentPath&"\adminpass_"&rs("bPort")&".txt",2
f2.Close
Set f2=Nothing
tempCommand=currentPath&"\bchat.exe "&targetFile
Set wsh=Server.CreateObject("WScript.Shell")
wsh.Run tempCommand,0,false
Set wsh=Nothing
rs.MoveNext
Loop
Application("Bchat_Status")="running"
End Sub
%＞
第四步：在浏览器中输入
http://localhost/bchat/index.asp
看到结果了吗？
