关闭边栏(ESC)打开边栏(ESC)
今天在测试把ASP查到的数据导出到EXCEL，VB中导出挺方便，在ASP中好久没写的，都有点陌生，有很多种方式可以导出，但最终以下面的这种方式比较方便，记录下：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
<% dim sql,ExeResult,FiledObj sql="ERP_手工导入货位格式化 '"&request("hw")&" '" set ExeResult=Conn.ExeCute(sql) '关键是下面这二句，就行 Response.ContentType = "application/excel" Response.AddHeader "Content-Disposition", "attachment;filename="&request("hw")&".xls" %> <table class="table table-responsive table-hover table-bordered"> <tr> <% For Each FiledObj In ExeResult.Fields %> <td nowrap ><div align="center"><% = FiledObj.name %></div></td> <%next%> </tr> <%do while Not ExeResult.Eof%> <tr> <%For Each FiledObj In ExeResult.Fields%> <td nowrap align="center"> <% if IsNull(FiledObj.value) then Response.Write(" ") else Response.Write(FiledObj.value) end if %> </td> <%next%> </tr> <% ExeResult.MoveNext loop ExeResult.close set ExeResult=nothing conn.close set conn=nothing %> </table> |
