如题:
      目前我的表格资料已经取得如下:
      <tr>
       <td bgcolor="#f000ff" align="center">名次</td>
       <td bgcolor="#f000ff" align="center">分数</td>
       <td bgcolor="#f000ff" align="center">部门</td>
       <td bgcolor="#f000ff" align="center">姓名</td>
       <td bgcolor="#f000ff" align="center">时间</td>
      </tr>
      <%
        dim countTel
        countTel = 1
        do while not rs.eof
      %>
      <tr>
       <td align="center"><%=countTel%></td>
       <td align="center"><%response.Write formatNumber(rs("shouldpay"))%></td>
       <td align="center"><%=rs("department")%></td>
       <td align="center"><%=rs("username")%></td>
       <td align="center"><%=rs("startdate")%></td>
      </tr>
      <%
      rs.movenext
      countTel=countTel+1
      loop
      %>
      <tr>
       <td bgcolor="#f0c0ff" align="right">.</td>
       <td bgcolor="#f0c0ff" align="center">分数合计:<%response.Write formatNumber(rs2("gshj"))%></td>
       <td bgcolor="#f0c0ff" align="right">.</td>
       <td bgcolor="#f0c0ff" align="right">.</td>
       <td bgcolor="#f0c0ff" align="right">.</td>      
      </tr>

现在.我想将这个表格中的内容DOWN为EXCEL文件.  不知道哪位前辈可以告知代码的写法.
小弟先跪谢了.

最好是在页面中给个超链接或按钮,当用户点击的时候,就进入另一页面开始下载.

继续求教,各位前辈,救命丫

＜SCRIPT  LANGUAGE="javascript"＞  
＜!--  
function  AutomateExcel()  
{  
//  Start  Excel  and  get  Application  object.  
var  oXL  =  new  ActiveXObject("Excel.Application");  
//  Get  a  new  workbook.  
var  oWB  =  oXL.Workbooks.Add();  
var  oSheet  =  oWB.ActiveSheet;  
var  table  =  document.all.data;  
var  hang  =  table.rows.length;  
var  lie  =  table.rows(0).cells.length;  



//  Add  table  headers  going  cell  by  cell.  
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＞   

二、用Excel的Application组件在客户端导出到Excel或Word  
　　
注意：两个函数中的“data“是网页中要导出的table的  id  


搜到这么个东东,看到type=hidden,怎么可以导出的呢,试试,没用
＜input  type="hidden"  name="out_word"  onclick="vbscript:buildDoc"  value="导出到word"  class="notPrint"＞  
＜input  type="hidden"  name="out_excel"  onclick="AutomateExcel();"  value="导出到excel"  class="notPrint"＞   



导出到Excel代码  
＜SCRIPT  LANGUAGE="javascript"＞  
＜!--  
function  AutomateExcel()  
{  
//  Start  Excel  and  get  Application  object.  
var  oXL  =  new  ActiveXObject("Excel.Application");  
//  Get  a  new  workbook.  
var  oWB  =  oXL.Workbooks.Add();  
var  oSheet  =  oWB.ActiveSheet;  
var  table  =  document.all.data;  
var  hang  =  table.rows.length;  
var  lie  =  table.rows(0).cells.length;  



//  Add  table  headers  going  cell  by  cell.  
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＞   



导出到Word代码  
＜script  language="vbscript"＞  
Sub  buildDoc  
set  table  =  document.all.data  
row  =  table.rows.length  
column  =  table.rows(1).cells.length  
Set  objWordDoc  =  CreateObject("Word.Document")  
objWordDoc.Application.Documents.Add  theTemplate,  False  
objWordDoc.Application.Visible=True  
Dim  theArray(20,10000)  
for  i=0  to  row-1  
for  j=0  to  column-1  
theArray(j+1,i+1)  =  table.rows(i).cells(j).innerTEXT  
next  
next  
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集")  //显示表格标题  



objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")  
Set  rngPara  =  objWordDoc.Application.ActiveDocument.Paragraphs(1).Range  
With  rngPara  
.Bold  =  True  //将标题设为粗体  
.ParagraphFormat.Alignment  =  1  //将标题居中  
.Font.Name  =  "隶书"  //设定标题字体  
.Font.Size  =  18  //设定标题字体大小  
End  With  
Set  rngCurrent  =  objWordDoc.Application.ActiveDocument.Paragraphs(3).Range  
Set  tabCurrent  =  ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)  



for  i  =  1  to  column  



objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter  theArray(i,1)  
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1  
next  
For  i  =1  to  column  
For  j  =  2  to  row  
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter  theArray(i,j)  
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1  
Next  
Next  
End  Sub  
＜/SCRIPT＞   

召唤传说中的高手

楼上的第二种方法说得太抽象了.能否详细相告?

哎,
我也搜索到不少这种帖子,但是试了就是解决不了什么问题丫

tang688,我的需求没有那么复杂:
我只是需要将页面中已有的表格资料下载为EXCEL文件.
我用＜%response.ContentType  ="application/vnd.ms-excel"%＞ 方式取出来的在繁体中文界面里面是乱码(非繁体中文的乱码).

终于用另外的方法搞定了,方法更简单.
THE END.本贴正式封贴!