Достаточно часто возникают ситуации, когда необходимо некоторые данные отобразить в броузер в формате MS Excel. Создать отчет такого рода можно "на лету", установив соответствующее свойство ContentType. Сделать это можно таким образом: <%Response.ContentType = "application/vnd.ms-excel"%> Попробуем создать простой отчет из ASP:
Создаем страницу sample.asp: <% response.expires = "0"%> <%Response.ContentType = "application/vnd.ms-excel"%> <% Dim rs,sql,conn set conn = server.createobject("adodb.connection") conn.open "asp", "scott", "tiger" Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from emp" rs.Open sql,conn,3 %> <html> <body> <table BORDER="1" align="center"> <tr> <% for i = 0 to rs.fields.count -1 %> <td><%=rs.fields(i).name</td> <%next%> </tr> <% rs.MoveFirst while not rs.EOF %> <tr> <% for i = 0 to rs.fields.count -1 %> <td><%=rs.fields(i).value</td> <%next%> </tr> <% rs.MoveNext Wend %> </table> </body> </html> <% rs.Close Set rs=nothing %> При вызове этой страницы получим выборку из базы данных, отображаемую в броузере как лист MS Excel. |
