*/ ------------------------------------------------ -------------------------------------- -------- ------------------------------------------------------ ------------------------------------------------------ -------------------
*/Из: штат Цзяньчжэн http://www.jzxue.com
*/ Автор: Tianya послушайте Rain E-mail: [email protected]: 809252803
*/ Время: 2007-10-6 Форум программирования первый запуск
*/ Заявление: Уважайте труд автора, пожалуйста, сохраните текст в этом абзаце
*/ ------------------------------------------------ -------------------------------------- -------- ------------------------------------------------------ ------------------------------------------------------ -------------------
<%
'Имя: Миллион данных практики данных
'Автор: Тинья послушает дождь
«Время: 6 октября 2007 г.
'Платформа: Win2000+IIS5.0+SQL2000
'Affiller: Используйте его так же просто, как в первый раз.
'------------------------------------------------- --------------------------------------- --------- Подключить база данных
Response.buffer = true
Dim SQLLOCALNAME, SQLUSERNAME, SQLPASSWORD, SQLDATABAS
Dim Connstr, Conn
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
Sqllocalname = (local) 'подключение IP [локальный (локальный) IP ip ip]
Sqlusername = sa 'база данных Имя пользователя
SQLPassword = XXXXXX 'Пользовательский пароль
Sqldatabasename = news2008 'Имя базы данных
Connstr = SQLOLEDB;
'' '' '' '' '' '' '' '' '' '' '' '' '' ''
При ошибке резюме следующим
Установить conn = server.createObject (adodb.connection)
Conn.Open Connstr
Если ошибка, тогда
err.clear
Установить conn = ничего
Response.write <div style = 'font-size: 14px;
Response.end
Конец, если
'------------------------------------------------- --------------------------------------- --------- Подключить база данных для завершения
'Определите переменные
'TBLNAME TABLE;
'Стремировательный оператор исполнения;
Dim tblName, fldName, FieldName, PageSizex, PageCountx, Pageno, Ordretype, Strhane
Dim Strsql, FieldCount, Strtmp, Stororder, Topfield
'
Pageno = trim (request.querystring (pageno))
Если isNumeric (pageno) или pageno = then 'Если нет значения страницы, значение инициализации
Pageno = abs (pageno)
Если pageno = 0, то pageno = 1
еще
Pageno = 1
конец, если
TBLNAME = TABLENEWS
Fldname = id 'показывает, что значение поля сортировки не может быть повторена в базе данных: рекомендуется, чтобы первичный ключ
FieldName = ID, заголовок, addTime
PageSizex = 30
Ordortype = 1 '0-is order 1-литр
Strwhere = (code = '0101') и (хиты> 100) 'Примечание: если условие используется () двойные скобки
Topfield = (pageno-1)*pagesizex'top
Если orderype = 0, тогда
Strtmp = <(выберите min
Strioner = order by [& fldname &] desc desc
еще
Strtmp => (выберите макс.
Strioner = order by [& fldname &] asc
конец, если
'Определите заявления SQL
Strsql = select top & clng (pagesizex) и fieldname & from & tblname &
Если Pageno = 1, то, если это первая страница, выполните следующий код, чтобы быстро проверить библиотеку
Если Str Whene <> Then Then
Strsql = strsql & где и strhere & strorder &
еще
Strsql = strsql & strorder
конец, если
еще
Если Str Whene <> Then Then
Strsql = strsql & where & fldname & strtmp & (& fldname &) из (Select top & clng (topfield) & fldname & frm & tblname & strhere & str. Порядок
еще
Strsql = strsql & where & fldname & strtmp & (& fldname &) из (Select top & clng (topfield) & fldname & tblname & strrrener & as tbltmp) и Strogner &
конец, если
конец, если
Установить rs = const.execute (strsql) 'execute Query
Если rs.bof и rs.eof, то
Conn.close: установить conn = ничего
response.write <script language = 'javascript'> alert ('В настоящее время записи не найдены, пожалуйста, вернитесь к повторному операции! »);
response.end
конец, если
Если Str Whengh
FieldCount = conn.execute (выберите Count (& fldname &) из & tblname & strha и) (0) (0)
еще
FieldCount = conn.execute (выберите count (& fldname &) из & tblname &) (0)
конец, если
if (fieldcount mod npagesize)> 0, тогда «Найдите общий номер страницы pagecountx
PageCountx = (FieldCount- (FieldCount MOD MOD PAGESIZEX))/ PAGESIZEX +1
еще
PageCountx = (FieldCount / PageSizex)
конец, если
'Отображение данных
делать, пока не rs.eof
Response.write & rs (title) && nbsp;
Rs.movenext
петля
'Выключите и выпустите связанные ресурсы
Rs.close
Conn.close: установить conn = ничего
'Дисплей пейджинг
Если pageno <= 1, то тогда
Response.write <font color = '#ff0000'> [HomePage] [Предыдущий] </font>
еще
Response.write [<a href = '?
Response.write [<a href = '? >]
конец, если
Если pageno> = pagecountx, тогда
Response.write <font color = '#ff0000'> [Следующая страница] [хвостовая страница] </font>
еще
Response.write [<a href = '? ]
Response.write [<a href = '?
конец, если
Response.write [Порядок страницы <font color = red> & pageno & </font> page/common <font color = red> & pagecountx & </font> page]
Response.write [total <font color = red> & fieldCount & </font> inpit <font color = red> & pagesizex & </font> strip/page]
Response.write to: <select name = 'page' size = '1' onchange = javascript : window.location = '?
для i = 1 для paycountx
Response.write <vitor value = & i &
Если pageno = i, тогда ответ. Selectd
Response.write (> №- & i & -Page </option>)
следующий
Response.write </selectd>
%>