Question

asp中如何将数据库的内容导出到word？

Answer 1

写一个js，我回去找一下
function AllAreaWord()
{
var oWD = new ActiveXObject("Word.Application");
var oDC = oWD.Documents.Add("",0,1);
var oRange =oDC.Range(0,1);
var sel = document.body.createTextRange();
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
//window.close();
}

Answer 2

这个我做过，用asp的话，效率很低，慢得要死~~~而且很容易脚本超时。

后来我是用vb6.0写的dll，然后在asp中调用的。
不知道搂住的服务器可不可以安装dll？？？

下面是asp中的代码
=====================================================
Set rs2=Server.CreateObject("ADODB.recordset")
sql="select * from eq where eqbumen='"&dep&"' order by eqbumen desc"
rs2.open sql,conn,1,1
set objExcel=CreateObject("Excel.Application")
objExcel.Workbooks.Open(server.mappath("\test")&"\book1.xlt") '打开Excel模板
objExcel.Sheets(1).select '选中工作页
set sheetActive=objExcel.ActiveWorkbook.ActiveSheet
num=2 '从Excel的第2行开始
Do while not rs2.eof '循环直至数据集中的数据写完
strRange="b"&num&":k"&num '设定要填写内容的单元区域
sheetActive.range(strRange).font.size=10 '设定字体大小
sheetActive.range(strRange).WrapText=false '设定文字回卷
sheetActive.range(strRange).ShrinkToFit=true '设定是否自动适应表格单元大小
sheetActive.range(strRange).value=array(rs2("zcid"),rs2("eqname"),rs2("eqchangjia"),rs2("eqxinghao"),rs2("eqnengli"),rs2("eqweizhi"),rs2("eqxianzhuang"),rs2("eqno"),rs2("eqbumen"),rs2("eqchejian")) '把数据集中的数据填写到相应的单元中
num=num+1
rs2.MoveNext
loop
function getTemporaryFile(myFileSystem)
dim tempFile,dotPos
tempFile=myFileSystem.getTempName
dotPos=instr(1,tempFile,".")
getTemporaryFile=mid(tempFile,1,dotPos)&"xls"
end function
set myFs=createObject("scripting.FileSystemObject")
filePos=server.mappath("\test")&"\temp" '要存放打印临时文件的临时目录
fileName=getTemporaryFile(myFs) '取得一个临时文件名
'myFs.DeleteFile filePos&"*.xls" '删除该目录下所有原先产生的临时打印文件
set myFs=nothing
objExcel.ActiveWorkbook.saveas filePos&filename
objExcel.quit
set objExcel=Nothing

Answer 3

如果你使用的是 SQLSERVER 那么对着你的数据库点右键 有导出的选项 按照向导 操作 选择你导出的类型就ok了

Answer 4

到华军软件天地找找看

Answer 5

建议你使用pageoffice，网上有很多它的示例代码，你搜搜看。