ASP -программа реализует функцию странификации значений сохранения параметров

Ниже приведено цитируемое содержание:

<%''

'' Пример звонка

'Dim int_rpp, int_start, int_shownumberlink_, str_nonlinkcolor_, tof_, top10_, top1_, top1_, ton1_, ton10_, tol_, showmorepagego_type_, cpageno

'int_rpp = 2' Установите количество отображений на страницу

'int_shownumberlink_ = 8' Номер numbername.

'showmorepagego_type_ = 1' это раскрывающееся меню или прыжок входного значения, можно выбрать только 1, когда вызываются несколько вызовов

'str_nonlinkColor _ =#9999999' Нетоловый цвет ссылки

'tof _ = <font face = webdings> 9 </font>' Home

'top10_ = <font face = webdings> 7 </font>' на десять

'top1_ = <font face = webdings> 3 </font>'

'ton1_ = <font face = webdings> 4 </font>' Далее

'ton10_ = <font face = webdings> 8 </font>' Следующая десять

'tol _ = <font face = webdings>: </font>' Последняя страница

'====================================================================

'Этот код должен быть между vclass_rs.open и for loop

'Set vclass_rs = createObject (g_fs_rs)

'Vclass_rs.open this_fun_sql, user_conn, 1,1

'Если не vclass_rs.eof, тогда

'Vclass_rs.pagesize = int_rpp

'cpageno = nosqlhack (request.querystring (page))

'Если cpageno = то Cpageno = 1

'Если не является расточительным (cpageno), то Cpageno = 1

'cpageno = clng (cpageno)

'Если cpageno <= 0, то Cpageno = 1

'Если cpageno> vclass_rs.pagecount, то cpageno = vclass_rs.pagecount

'Vclass_rs.absolutepage = cpageno

'For int_start = 1 к Int_rpp

''

'Добавьте корпус петли для отображения данных

''

'Vclass_rs.movenext

'Если vclass_rs.eof или vclass_rs.bof, тогда выходит для

' СЛЕДУЮЩИЙ

'End if

'====================================================================

'response.write <p> & fpagecount (vclass_rs, int_shownumberlink_, str_nonlinkcolor_, tof_, top10_, top1_, top1_, ton1_, ton10_, tol_, showmorepage_type_, cpageno)

''

'*****************************************************

«Цель: сохранить параметры страницы страниц

'Последовательность запроса отправки

'Ввод: MoveParam: параметры страниц

'Removelist: параметр, который должен быть удален

'Возврат: URL -

'*****************************************************

Функция Pageurl (MoveParam, RemoveList)

Dim StrName

Dim Keepurl, Keepform, KeepMove

RemoveList = Removelist & & MovParam

Сохранить форму =

Для каждого имени strNAME в reffer.form

'Судья отправит и пустые значения в параметрах формы

Если не Instrrev (, & removelist & ,,,, & strname & ,, -1, 1)> 0 и request.form (strname) <> Тогда

Hearpform = heapform &&& strname & = & server.urlencode (request.form (strname))

конец, если

RemoveList = Removelist & & Strname

Следующий

Keepurl =

Для каждого имени strNAME в запросе.

Если нет (instrrev (, & removelist & ,,,, & strname & ,, -1, 1)> 0) тогда

Keepurl = keepurl & & & strname & = & server.urlencode (request.querystring (strname))

Конец, если

Следующий

KeepMove = Keepform & Keepurl

If (KeepMove <>), тогда

KeepMove = right (KeepMove, Len (KeepMove) - 1)

KeepMove = server.htmlencode (KeepMove) & &

Конец, если

'Pageurl = replace (request.servervariables (url),/search.asp,/search.html) &? & KeepMove & MoveParam & =

Pageurl =? & KeepMove & MoveParam & =

Конечная функция

Функция fpageCount (page_rs, showmberlink_, nonlinkcolor_, tof_, top10_, top1_, top1_, ton1_, ton10_, tol_, showmorepagego_type_, page)

Dim this_func_get_html_, topage_, p_, sp2_, i, tpagecount

Dim Navilength, StartPage, EndPage

This_func_get_html_ =: i = 1

Vavilength = shineburslink_

Если iSempty (showmorepagego_type_), то Showmerparepage_type_ = 1

tpageCount = page_rs.pagecount

Если tpageCount <1, то tpageCount = 1

Если не page_rs.eof или нет page_rs.bof then

topage_ = pageurl (страница, отправить, getType, без качания, _)

Если Page = 1 then

This_func_get_html_ = this_func_get_html_ & <font color = & nonlinkcolor_ & title = home> & tof _ & </font> & vbnewline

Еще

This_func_get_html_ = this_func_get_html_ & <a href = & topage_ & 1 title = home> & tof_ & </a> & vbnewline

Конец, если

Если Page <avilength, тогда

Startpage = 1

еще

StartPage = fix (page / vavilength) * vavilength

конец, если

EndPage = StartPage NaVilength-1

Если конечная страница> tpageCount, то Endpage = tpageCount

Если Startpage> 1, тогда

This_func_get_html_ = this_func_get_html_ & <a href = & topage_ & page - navilength & title = & int_shownumberlink_ & page> & top10_ & </a> & vbnewline

Еще

This_func_get_html_ = this_func_get_html_ & <font color = & nonlinkcolor_ & tit

Конец, если

Если страница <> 1 и страница <> 0, тогда

This_func_get_html_ = this_func_get_html_ & <a href = & topage _ & (page-1) & title = предыдущая страница> & top1_ & </a> & vbnewline

Еще

This_func_get_html_ = this_func_get_html_ & <font color = & nonlinkcolor_ & title = предыдущая страница> & top1 _ & </font> & vbnewline

Конец, если

Для i = Startpage to Endpage

Если я = страница, тогда

This_func_get_html_ = this_func_get_html_ & <b> & i & </b> & vbnewline

Еще

This_func_get_html_ = this_func_get_html_ & <a href = & topage_ &> &> & </a> & vbnewline

Конец, если

Если я <> tpageCount, то это_func_get_html_ = this_func_get_html_ & vbnewline

Следующий

Если страница <> page_rs.pagecount и page <> 0 тогда

This_func_get_html_ = this_func_get_html_ & <a href = & topage _ & (page 1) & title = следующая страница> & ton1_ & </a> & vbnewline

Еще

This_func_get_html_ = this_func_get_html_ & <font color = & nonlinkcolor_ & title = следующая страница> & ton1 _ & </font> & vbnewline

Конец, если

Если конечная страница <tpageCount, то

This_func_get_html_ = this_func_get_html_ & <a href = & topage_ & page vavilength & title = & int_shownumberlink_ & page> & ton10_ & </a> & vbnewline

Еще

This_func_get_html_ = this_func_get_html_ & <font color = & nonlinkcolor_ & tit

Конец, если

Если page_rs.pagecount <> page then

This_func_get_html_ = this_func_get_html_ & <a href = & topage_ & page_rs.pagecount & title = последняя страница> & tol_ & </a> & vbnewline

Еще

This_func_get_html_ = this_func_get_html_ & <font color = & nonlinkcolor_ & tit

Конец, если

Если showmorepagego_type_ = 1, тогда

Dim show_page_i

Show_page_i = page 1

Если show_page_i> tpagecount, то Show_page_i = 1

This_func_get_html_ = this_func_get_html_ & <input type = text size = 4 maxlength = 10 name = func_input_page onmouseover = this.focus (); onfocus = this.value = '& show_page_i &'; OnKeyUp = value = value.Replace (/[^1-9]/g, '') onbeforePaste = boopboarddata.setData ('text', bulfboarddata.getData ('text'). Заменить (/[^1-9]/g, '))> & vbnewline _

& <input type = кнопка значение = onmouseover = func_input_page.focus (); onclick = javascript: var js_jumpvalue; js_jumpvalue = document.all.func_input_page.value; if (js_jumpvalue == ''! isnan (js_jumpvalue)) location = '& overage_ &' js_jumpvalue; else location = '& topage_ & 1';> & vbnewline

Еще

This_func_get_html_ = this_func_get_html_ & Jump: <select name = menu1 onchange = var js_jumpvalue; js_jumpvalue = this.options [this.selectedIndex].

для i = 1 до tpageCount

This_func_get_html_ = this_func_get_html_ & <vitue value = & topage_ & i

if page = i then this_func_get_html_ = this_func_get_html_ & selected style = 'color:#0000ff'

This_func_get_html_ = this_func_get_html_ &> & cstr (i) & page </option> & vbnewline

следующий

This_func_get_html_ = this_func_get_html_ & </select> & vbnewline

Конец, если

This_func_get_html_ = this_func_get_html_ & p_ & sp2 _ && nbsp; <b> & page_rs.pagesize & </b> записи на страницу, теперь: <b> <span class = tx> & sp2_ & page & </span>/& tpagecount & </b>, общая страница <b> и </span>/& tpagecount & </b>. id = 'recordcount'> & sp2_ & page_rs.recordcount & </b> записи.

еще

'Нет записи

конец, если

fpageCount = this_func_get_html_

Конечная функция

%>