Это пример прямой загрузки данных из базы данных сервера в клиентский файл. Имя и расширение файла можно прописать по мере необходимости. new/temp.htm требует реального существования. На самом деле это просто руководство. В противном случае данные Stram не могут быть записаны.
В Интернете ходит много вещей из этой области, но большинство из них копируются. Очень простые вещи делаются такими сложными. Очень мало вещей, которые действительно были реализованы на практике. Поэтому я написал его сам. Хотя он прост и имеет некоторые проблемы, его можно использовать после копирования. Друзья, у которых есть вопросы, могут связаться со мной, чтобы мы могли учиться вместе.
filemystream=server.mappath("новый") & "temp.htm"
Установить MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
МойПоток.Режим=3
MyStream.Открыть
MyStream.LoadFromFile(filemystream)
Response.ContentType="application/octet-stream"
Response.AddHeader "Content-Disposition:","attachment; filename=" & "bk.txt"
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
response.write "Имя"
response.write "Аккаунт"
ответ.напишите "адрес"
response.write "Описание"
кр=хр(13)&хр(10)
response.write(cr)
, а не rs.eof
response.write rs("имя")
response.write rs("accno")
response.write rs("адрес")
response.write rs("примечание")
ответ.писать (кр)
RS.MoveNext
перейти
rs.близко
установить rs=ничего
Конн.Закрыть
Установить соединение=Ничего
Мойстрим.закрыть
установите Mystream=ничего