Следующий абзац - базовый код подкидки:
＜% sql = "Выберите …………………………… Страницы можно разделить на Total Page = request.QueryString ("page") 'Количество страниц, проходящих через оператор браузера' if, принадлежит основному процессу устранения неисправностей, если Isempty (Page) или Cint (Page) ＜ 1 Тогда Page = 1 Elseif Cint (Page) ＞ Allpages, затем Page = Allpages end vs.AbsOlUtePAGE = PAGE while rseOf page ＞ ne rs. Вывод здесь …………… ＜ % pages = pages - 1 Rs.movenext loop else ression.write («В базе данных нет контента!»Система уже нанесла на стражу данные. Давайте посмотрим на определение функции страниц, которая обсуждается на этот раз.
＜% sub pageurl (purl) dim eurl txts = request.servervariables ("url") txts = слева (txts, instrrev (txts, "/", len (txts))-1) eurl = "http: //"; & Request.servervariables ("server_name") & txts для i = 1 to allpages txt = "" txt = "＜ Strong>" txt = txt & "＜ href =" & eurl & purl & "page =" & i & ">" if i = cint (page), то txt & "＜ font color = 'bb0000' bb0000 'bb0000' bb0000. Cint (page) Txt = txt & "＜/font>" txt = txt & "＜/a> ∥ ＜/strong>" response.write (txt) Следующий End sub %>Сохраните вышеуказанный код функции страниц в файл ASP. Использование Включите, чтобы представить его на странице, которую нужно использовать, чтобы позвонить в нее всякий раз, когда вызов («/Имя файла, которое вы звонили?») - это в порядке. Например, если вы хотите позвонить на мою страницу новостей, это <%call ("/news.asp?")%>
То, что мы только что видели, ограничено, что означает, что в первом фрагменте кода, за исключением содержания запроса SQL и выходного контента, другие переменные, которые объявляют набор записей, не могут быть изменены, иначе они не смогут запустить. На самом деле, эта программа не имеет значения. Самое главное, что эта функция страниц может быть вызвана в любом листе ASP.