Клиенту требуется, чтобы серверная часть генерировала большой объем данных (каждый раз десятки тысяч элементов) номеров членских карт, паролей, сумм и т. д. Сгенерированный номер членской карты и пароль должны быть напечатаны на карте и выданы участникам. В базе данных генерируется большой объем данных. Что должен делать производитель карточной печати, если он хочет получить данные для печати?
Поэтому я подумал об использовании кода для создания таблицы Excel и экспорта данных в доступ. Разве недостаточно просто распечатать это? Поиск соответствующей информации в Интернете не увенчался успехом, поэтому я написал эту программу сам. Теперь выпущено для всех желающих!
Ниже приведен код:
| Ниже приводится цитируемое содержание: <!--#include file=../conn.asp--> <% если сеанс (china_admin) =, то ответ.перенаправление входа в систему.asp dbpath=../ dblink dim имя файла,fs,myfile,x,m,n,o,link Установите fs = server.CreateObject(scripting.filesystemobject) Установите rs = Server.CreateObject(ADODB.Recordset) сеанс (sql) = выберите * из china_car rs.Open сеанс (sql), conn, 1,1 п=1 '============================================== = ================= '============================================== = =============Создать файловую систему Excel filename = Server.MapPath(car/CarTable&n&.xls) 'Это сделано для удобства. Создайте новую папку CAR. Вы можете установить это самостоятельно. if fs.FileExists(filename) then'Если файл существует, перезапишите его. fs.DeleteFile(имя файла) конец, если установите myfile = fs.CreateTextFile(имя файла, true) '============================================== = ====================== dim strLine,responsestr стрЛина= тусклая работа, дж, я str=серийный номер|номер карты|пароль|количество баллов|сумма' Это значение устанавливается в соответствии с полем таблицы данных доступа. работа = разделить (строка, |) j=ubound(работа) я = 0 о=0 делай, пока не i>j strLine= strLine & работа(i) & chr(9) я=я+1 петля myfile.writeline строка Делай, пока не rs.EOF о=о+1 м=20000 стрЛина= для каждого x в rs.Fields strLine= strLine & x.value & chr(9) если o>=m*n тогда п=п+1 filename = Server.MapPath(car/CarTable&n&.xls) 'Вы можете установить это самостоятельно if fs.FileExists(filename) then'Если файл существует, перезапишите его. fs.DeleteFile(имя файла) конец, если установите myfile = fs.CreateTextFile(имя файла, true) конец, если следующий myfile.writeline строка rs.MoveNext петля rs.Close setrs=ничего конн.закрыть установить соединение = ничего установить мойфайл = ничего Установить fs=Ничего ExcelPath=car/CarTable&n&.xls ответ. Запись успешно экспортирована response.write(<a href=' & server.URLEncode(ExcelPath) & '><font=red>Загрузить</font></a>) %> |