asp導出xml,javascript導出excel

導出xml<%

Dim strXML
strxml="<?xml version=" + Chr(34) + "1.0" + Chr(34) + " encoding =" + Chr(34) + "BIG5" + Chr(34) + "?>"

strXML = strXML & vbCrLf  & "<rowdata>"
rs.MoveFirst
Do While NOT rs.EOF
 strXML = strXML & "<row>"
 For Each varItem In rs.Fields
  strXML = strXML & "<" & varItem.name & ">"
  strXML = strXML & varItem.value 
  strXML = strXML & "</" & varItem.name & ">"
 Next
 strXML = strXML & "</row>" & vbCrLf
 rs.MoveNext
Loop
strXML = strXML & "</rowdata>"
response.write strxml
Set rs = Nothing%>

javascript導出excel

function toexcel(filename)
{

  var mysheet=new ActiveXObject("OWC.Spreadsheet");       
  //Office 2000
  
  var fname=filename + ".xls" ;
      
  with(mysheet)
  {
 DataType = "HTMLData";
 HTMLData =so.outerHTML;
 try
  {
    ActiveSheet.Export(fname, 0);  
    //office 2000
  
   
    alert('已經成功導出為Excel表');
    };
 catch (e)
  {
  alert('導出Excel表失敗，請確認已安裝Excel2000(或更高版本)﹐并且沒打開同名xls文件');
     };
 }
 }
</script>

方法二:

<SCRIPT LANGUAGE="javascript">
function AutomateExcel()
{
  var oXL = new ActiveXObject("Excel.Application");
  var oWB = oXL.Workbooks.Add();
  var oSheet = oWB.ActiveSheet;
  var table = document.all.dd;
  var hang = table.rows.length;
  var lie = table.rows(0).cells.length;

  for (i=0;i<hang;i++)
  {
 for (j=0;j<lie;j++)
 {
 oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;
 }
  }
  oXL.Visible = true;
  oXL.UserControl = true;
}
</SCRIPT>