asp°ÑaccessÊý¾Ý¿âÄÚÈݵ¼³öµ½excelµÄ´úÂë

ÎÒдÁËÒ»¶Î£¬µ«ÊÇÓеãÎÊÌâ¡£°ïæ¿´¿´¡£
<% 
  action=request("action") 
  if  action="make_excel"  then'Ö»ÓлñÈ¡Ö¸Áî²Å½øÐвÙ×÷ 
  dim  conn,ConnStr 
  ConnStr="DBQ="+server.mappath("../db/#sdoa.asa")+";DRIVER={Microsoft Access Driver (*.mdb)};"
  set  conn=server.CreateObject("adodb.connection") 
  conn.Open  ConnStr 
  dim  rs,sql,filename,fs,myfile,x 
  Set  fs  =  server.CreateObject("scripting.filesystemobject") 
  '¶¨ÒåÎļþ·¾¶£¬Ö±½ÓΪµ±Ç°Ä¿Â¼ 
  filepath=Request.ServerVariables("APPL_PHYSICAL_PATH") 
  '¶¨ÒåÎļþÃû£¬ÒÔµ±Ç°Ê±¼ä×÷ÎļþÃû£¬²»»áÖظ´ 
  filename  =  filepath&year(now)&month(now)&day(now)&".xls" 
  response.Write(filepath&"sss <br>")
  response.Write(filename)
  if  fs.FileExists(filename)  then 
  fs.DeleteFile(filename) 
    end  if 
  set  myfile  =  fs.CreateTextFile(filename,true) 
  Set  rs  =  Server.CreateObject("ADODB.Recordset") 
  sql&nbs