Код реализации asp для создания файла xls из таблицы. Скопируйте код кода следующим образом:
<%@LANGUAGE=КОДОВАЯ СТРАНИЦА VBSCRIPT=936%>
<%
если запрос(действие)=1, то
Response.ContentType=приложение/ms-excel
Response.AddHeader content-disposition,attachment;filename=www.xls
конец, если
%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<голова>
<meta http-equiv=Content-Type content=text/html; charset=gb2312 />
<title>Документ без названия</title>
<тип стиля=текст/css>
стол {
border-top:1px сплошной #003399;
граница слева: 1 пиксель сплошной # 003399;
}
тд {
правая граница: 1 пиксель сплошной #003399;
border-bottom:1px сплошной #003399;
}
голова {
цвет фона: # 000066;
вес шрифта: жирный;
отступ: 5 пикселей;
цвет:#FFFFFF;
}
</стиль>
<язык сценария=javascript>
функция tableToExcel(){
location.href='?action=1';
}
</скрипт>
</голова>
<тело>
<тип ввода=значение кнопки=Экспортировать данные onclick=tableToExcel() />
<%
КоннСтр=...
Установите conn = Server.CreateObject(ADODB.Connection)
conn.Open connstr
установите rs = server.CreateObject(adodb.recordset)
rs.open выберите топ-10 * из [название вашей таблицы],conn,1,1
если нет (rs.eof и rs.bof), то
столбец = rs.fields.count
response.Write(<table cellpadding='0' cellspace='0'>)
response.Write(<thead><td>серийный номер</td>)
для каждого f в rs.fields
response.Write(<td> & f.name & </td>)
следующий
ответ.Запись(</thead>)
для j = 1 до rs.recordcount
если j > 5, то «Скрыть данные в пятом элементе». Если после тестирования данные с отображением «нет» экспортируются, они не будут экспортированы.
response.Write(<tr style='display:none'>)
еще
ответ.Запись(<tr>)
конец, если
ответ.Write(<td> & j & </td>)
для i = 0 в столбец - 1
ответ.Write(<td> & rs(i) & </td>)
следующий
ответ.Запись(</tr>)
rs.movenext
следующий
ответ.Запись(</таблица>)
конец, если
RS.закрыть
setrs=ничего
конн.закрыть
установить соединение = ничего
%>
</тело>
</html>