Достаточно часто возникают ситуации, когда необходимо некоторые данные отобразить в броузер в формате 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.
Главная
Форум
Профиль
Шаблоны
Скрипты
Регистрация
Вход
