急救: 在ASP中读出EXCEL文件,动态生成网页

[zhangbo21th]

各位大侠,我要在ASP中把EXCE文件读出,动态生成网页,
要用SAVEAS 函数,文件名是C:\TEST.HTM,执行为乱码,
是不是FILEFORMAT没设置?
如果是,能不能提供FILEFORMAT的参数,我查不到.

多谢!

[孟子E章]

<%
Dim objRS, strProvider, strDriver, strDBQ, strSQLCmd

Response.Write "<h1 align=center>ADO 連接 XLS 檔案</h1>"
Set objRS = Server.CreateObject("ADODB.Recordset")

strProvider="Provider=MSDASQL;"
strDriver="DRIVER={Microsoft Excel Driver (*.xls)};"
strDBQ="DBQ=c:\Inetpub\wwwroot\dream\excel\sale.xls"
strSQLCmd="SELECT * FROM pen"
objRS.Open strSQLCmd, strProvider & strDriver & strDBQ

' Rs2Table 是一個可以 HTML 表格顯示 Recordset 內容的副程式
' Rs2Table 副程式放在 routin.inc，讓其它的 ASP 程式也可以呼叫

Rs2Table(objRS)

objRS.Close
Set objRS = Nothing
%>

然后保存
<input onclick="document.execCommand('SaveAs')">

[zhangbo21th]

对不起,您没听懂我的意思,
我要直接把已经写入模板的格式,
直接生成HTML文件,
然后要连接.
请多多教导!!!!!!!

[zhangbo21th]

可不可以不给分

[possible_Y]

adodb + fso

[cowboy2323]

xlCurrentPlatformText

xlDBF2

xlDBF3

xlDBF4

xlDIF

xlExcel2

xlExcel2FarEast

xlExcel3

xlExcel4

xlExcel4Workbook

xlExcel5

xlExcel7

xlExcel9795

xlHTML

xlIntlAddIn

xlIntlMacro
xlSYLK
xlTemplate

xlTextMac

xlTextMSDOS

xlTextPrinter

xlTextWindows

xlUnicodeText

xlWJ2WD1

xlWK1

xlWK1ALL

xlWK1FMT

xlWK3

xlWK4

xlWK3FM3

xlWKS

xlWorkbookNormal

xlWorks2FarEast

xlWQ1

xlWJ3

xlWJ3FJ3

[williamtom]

同意possible_Y