我想把页面中的表格和里面的数据都导出到excel或者word里面，然后就可以打印，这该怎么实现呢？

没法实现，用XML好像可以

如果只是 自己搞搞, 那么选中 网页中的表格, 然后 复制,  粘贴到 EXCEL 或者 WORD 都可以,
EXCEL 只保留单元格关系
WORD 表格格式将会保留,粘贴时会有一段时间卡,耐心等待

不是自己搞搞啊，是要给客户端用的

你的意思，应该是把数据库里的东西导出到excel吧？？？

数据是从数据库里出来的啊，

asp生成excel 用FSO 生成文本 *.csv（excel 报表）单元格用,隔开 换行用chr(13) 基本如下 <%dim excelstring dim excelstr dim excelstr2 dim head excelstring = "" head = "Sn" & "," & "Reason" & "," & "Empid" & "," & "Empname" & "," & "Ext" & "," & "Depname" excel="creat" If excel<>"" Then Set rs2 = Server.CreateObject ("ADODB.Recordset") sql2 = "Select * from value_table " rs2.open sql2,conn,1,3 do while not rs2.eof excelstr =" " & rs2(0) & """,""" & rs2(1) & """,""" & rs2(2) & """,""" & rs2(3) & """,""" & rs2(4) & """,""" & rs2(5) & """" excelstr2 = excelstr2 & Chr(13) & excelstr rs2.movenext loop excelstring = head &Chr(13)& excelstr2 'response.Write(excelstring) 'rs2.close Set rs2=Nothing set fs = CreateObject("scripting.FileSystemObject") set exc = fs.OpenTextFile(server.MapPath("excel.csv"),2,True) exc.write(excelstring) if fs.FileExists(Server.MapPath("excel.csv")) then Response.Write("<a href="/excel.csv>";报表已经生成，点击查看</a>") 'Response.write(excelstring) else Response.Write("生成报表失败！") end if End if%>

excelstr = rs2(0) & "," & rs2(1) & "," & rs2(2) & "," & rs2(3) & "," & rs2(4) & "," & rs2(5) 根据内容适当调整

[CODE][CODE]<%dim excelstring dim excelstr dim excelstr2 dim head excelstring = "" head = "Sn" & "," & "Reason" & "," & "Empid" & "," & "Empname" & "," & "Ext" & "," & "Depname" excel="creat" If excel<>"" Then Set rs2 = Server.CreateObject ("ADODB.Recordset") sql2 = "Select * from value_table " rs2.open sql2,conn,1,3 do while not rs2.eof excelstr =" " & rs2(0) & """,""" & rs2(1) & """,""" & rs2(2) & """,""" & rs2(3) & """,""" & rs2(4) & """,""" & rs2(5) & """" excelstr2 = excelstr2 & Chr(13) & excelstr rs2.movenext loop excelstring = head &Chr(13)& excelstr2 'response.Write(excelstring) 'rs2.close Set rs2=Nothing set fs = CreateObject("scripting.FileSystemObject") set exc = fs.OpenTextFile(server.MapPath("excel.csv"),2,True) exc.write(excelstring) if fs.FileExists(Server.MapPath("excel.csv")) then Response.Write("<a href="/excel.csv>";报表已经生成，点击查看</a>") 'Response.write(excelstring) else Response.Write("生成报表失败！") end if End if%>[/CODE][/CODE]