dim strHtmlFileName as string =Server.MapPath("../images/sohu.gif")
dim proc as System.Diagnostics.Process = new System.Diagnostics.Process()
proc.EnableRaisingEvents = false
dim strwvWareDirectory as string = Server.MapPath("./")
proc.StartInfo.FileName = strwvWareDirectory + "gif2swf.exe"
proc.StartInfo.Arguments = strHtmlFileName
proc.StartInfo.CreateNoWindow = true
proc.Start()
proc.WaitForExit()