程序显示的结果不稳定,有时要按几次才能得到我要显示的内容

程序显示的结果不稳定，用的是asp调用vb  dll，此结果是靠一个javascript触发打开新窗口，在里面每次根据不同的id显示不同情况的数据
有时要反复按几次才能出来正确，前几次出来的结果都是call aspexcel()的输出结果,而且每次生成的文件除了本生正常的文件名以外，还会多一个比这个名字多一秒的文件名，内容和此文件是相同的，（如有文件名http://localhost/a/csv/2007-03-14-09-44-19.xls和http://localhost/a/csv/2007-03-14-09-44-20.xls)程序如下
vb  
Public  str  As  String  
Public  Property  Let  strOutPath(s  As  Variant)  
       str  =  s  
   Call  aspexcel("select  I_OBJECT  from  T_STOCK_TRACE_TR  where  1=2  order  by  I_UPDATE_DATE  desc")  
       End  Property  
 
Public  Property  Get  getOutPath()  
 getOutPath  =  str  
End  Property  
 
Public  Function  aspexcel(ByVal  SQLStr  As  String)  As  Boolean  
Set  cnn  =  New  ADODB.Connection  
cnn.Open  =  略  
 Dim  sfilename  As  String  
   sfilename  =  CStr(FormatDateTime(Now,  0))  
sfilename  =  Replace(sfilename,  "  ",  "-")  
           str  =  sfilename  
   sfilename  =  App.Path  &  "\"  &  sfilename  &  ".xls"  
     Set  xlBook  =  xlApp.Workbooks.Add  
             Set  xlSheet  =  xlBook.Sheets(1)  
略  
cnn.Close  
xlBook.SaveAs  (sfilename)  
     Set  xlSheet  =  Nothing  
     aspexcel  =  True  
           Exit  Function  
End  Function  
 
asp  
<%set  Myobj=server.CreateObject("projectexcel.classexcel")      
Myobj.strOutPath=Server.Mappath("csv")  
sfilename=Myobj.getOutPath  
sfilename=sfilename&".xls"  
Myobj.aspexcel("select语句")  
set  Myobj=nothing%>  
<html>  
   <script>  
               window.location="http://localhost/a/csv/<%=sfilename%>";  
           </script>