Рекомендуется: необходимо получить для обучения динамическим веб-страницам ASP: 38 Обычно используемые функции 1. Функциональный массив () Функция: Создайте формат переменной массивы: Аррейс (список). Параметр: список - это цифровой столбец в переменной массива, с примером расстояния с запятой: <% i = массив (1,2,3 & Quo
Поскольку мое пространство ограничено, я не могу генерировать все статические страницы одновременно, поэтому я написал небольшую программу, чтобы поделиться с вами. Программа довольно проста, так что не смейтесь над экспертами! Этот код является пустой тратой времени. Код выглядит следующим образом
<!-#Включите файл = conn.asp-> <html> <Head> <Title> Generate Page </title> <Meta http-equiv = content-type content = text/html; charset = gb2312> <Link href = style.css type = text/css rel = stylesheet> <Meta Content = MSHTML 6.00.2900.3020 Имя = Генератор> </Head> <Body bottommargin = 0 Levermargin = 0 topmargin = 0 rightmargin = 0> <Br Style = переполнение: скрыто; Линия-высота: 3PX> <% DIM ID id = cint (request.querystring (id)) Если id = then id = 1 еще id = cint (request.querystring (id)) конец, если DIM Общее количество SQL = SELECT ID из заказа таблицы по ID DESC Установить rs = server.createObject (adodb.recordset) Rs.open SQL, Conn, 1,1 Rs.MoveFirst Если не rs.eof, то TotalNumber = Rs.RecordCount конец, если Чтобы получить общее количество, вы можете использовать код вместо этого. Я считаю, что друзья могут решить эту проблему самостоятельно. Rs.close Установить RS = ничего Response.write <br> <br> & vbnewline Response.write <table width = '400' border = '0' align = 'center' cellpadding = '0' cellpacing = '0'> & vbnewline Response.write <tr> & vbnewline Response.write <td height = '50 '> total color =' blue '> <b> & totalnumber & </b> </font> Страницы генерируются ... </td> & vbnewline Response.write </tr> & vbnewline Response.write </table> & vbnewline Response.flush Если ID> TotalNumber, тогда Response.write Поздравляем с вашей успешной операцией! Response.flush Конец, если creat (id) ID = ID 1 Response.write <meta http-equiv = reforreh content = 1; url =? Id = & id &> %> </Body> </Html> <% Функция creat (id) sql = select * из таблицы, где id = & id Установить rs = conn.execute (sql) тусклое имя name = rs (имя) conn.execute (sql) Rs.close Установить RS = ничего Dim FSO Dim Znwl Dim Art Dim fw Установить fso = createObject (scripting.filesystemobject) set znwl = fso.opentextfile (server.mappath (страница шаблона)) Art = Znwl.Readall Znwl.close art = reply (art, {$ name $}, name) Установить fw = fso.createtextfile (server.mappath (сгенерированное место хранения страницы и имя страницы), true) FW.Writeline Art FW.Close Установить FSO = ничего Конечная функция %> |
Есть еще один метод, который быстрее, чем приведенный выше метод, но он занимает много процессора. У меня проблемы с пространством, используя следующий метод.
<!-#Включите файл = conn.asp-> <html> <Head> <Title> Generate Page </title> <Meta http-equiv = content-type content = text/html; charset = gb2312> <Link href = style.css type = text/css rel = stylesheet> <Meta Content = MSHTML 6.00.2900.3020 Имя = Генератор> </Head> <Body bottommargin = 0 Levermargin = 0 topmargin = 0 rightmargin = 0> <Br Style = переполнение: скрыто; Линия-высота: 3PX> <таблица границы = 1 ширина = 100% id = table1> <tr> <Td> <% DIM ALLID, PPP, ID, TotalNum SQL = SELECT * FROM TABLE ORDER BY ID DESC Установить rs = server.createObject (adodb.recordset) Rs.open SQL, Conn, 1,1 Если не rs.eof, то делать, пока не rs.eof Если allid = then allid = rs (id) else allid = allid &; & rs (id) Rs.movenext петля еще Если rs.bof и rs.eof, то Ответ. Написайте. Нет статей еще не найдено! Конец, если конец, если Rs.close Установить RS = ничего allid =; Аллид ppp = split (allid,;) TotalNum = Ubund (PPP) для ID = 1 до TotalNum Сеанс (id) = сеанс (ID) 1 creat (id) response.write генерирует Znwl_ & id & .htm ... <br> следующий %> </td> </tr> </table> </Body> </Html> <% Функция creat (id) sql = select * из таблицы, где id = & id Установить rs = conn.execute (sql) тусклое имя name = rs (имя) conn.execute (sql) Rs.close Установить RS = ничего Dim FSO Dim Znwl Dim Art Dim fw Установить fso = createObject (scripting.filesystemobject) set znwl = fso.opentextfile (server.mappath (страница шаблона)) Art = Znwl.Readall Znwl.close %> art = reply (art, {$ name $}, name) Установить fw = fso.createtextfile (server.mappath (сгенерированное место хранения страницы и имя страницы), true) FW.Writeline Art FW.Close Установить FSO = ничего Конечная функция |
Этот метод быстрый, но ваше пространство должно быть неограниченным!-Smart Network
Приведенный выше метод предназначен только для справки и не является последней версией, которую я изменил, но он определенно прост в использовании.
Поделиться: ASP Пример: несколько строк кода решают проблему предотвращения повторного представления форм Во многих случаях необходимо предотвратить подачу одной и той же формы несколько раз. Методы реализации многих людей относительно сложны (количество кода превышает десятки строк !!). Следующее содержит метод, который требует лишь нескольких строк кода, что легко предотвращает пользователям обновлять несколько представлений и использование кнопки Back для пересмотра формы.