*/ ------------------------------------------------ ------------------------------------------ -------- -------------------------------------------------- -------------------------------------------------- -------------------
*/De: Jianzheng State http://www.jzxue.com
*/ Autor: Tianya Escuche el correo electrónico de lluvia: [email protected]: 809252803
*/ Tiempo: Forum de programación 2007-10-6 Primer lanzamiento
*/ Declaración: Respeta el trabajo del autor, por favor mantenga el texto en este párrafo
*/ ------------------------------------------------ ------------------------------------------ -------- -------------------------------------------------- -------------------------------------------------- -------------------
<%
'Nombre: Millones de práctica de datos
'Autor: Tianya escucha la lluvia
'Tiempo: 6 de octubre de 2007
'Plataforma: Win2000+IIS5.0+SQL2000
'Aspirador: Úselo tan simple como la primera vez.
'------------------------------------------------- --------------------------------------- --------- Conecte el base de datos
Respuesta.Buffer = True
Dim sqllocalname, sqlusername, sqlpassword, sqldatabas
Dim Connstr, Conn
'' '' '' '' '' '' '' '' '' '' '' '' '' ''
SqllocalName = (local) 'Conectando IP [local (local) IP IP IP]
SQLUSERNAME = SA 'Nombre de usuario de la base de datos
Sqlpassword = xxxxxxx 'contraseña de usuario
Sqldatabasename = news2008 'Nombre de la base de datos
Connstr = Provider = SQLoledB;
'' '' '' '' '' '' '' '' '' '' '' '' ''
En el currículum de error siguiente
Establecer conn = server.createObject (ADODB.Connection)
Conn.open Connstr
Si err entonces
Err.Clear
Establecer conn = nada
Response.Write <Div style = 'Font-Size: 14px;
Respuesta.
Final si
'------------------------------------------------- --------------------------------------- --------- Conecte el base de datos para completar
'Defina variables
'Nombre de campo TblName;
'Declaración de ejecución de Strsql-Total;
Dim Tblname, Fldname, FieldName, PageSizex, PageCountx, Pageno, OrdreType, Strwhere
Dim STRSQL, FIELDCOUNT, STRTMP, Strororder, Topfield
'
Pageno = trim (request.querystring (pageno))
if isNumérico (pageno) o pageno = entonces 'Si no hay valor de página, el valor de inicialización
Pageno = ABS (Pageno)
Si pageno = 0 entonces pageno = 1
demás
Pageno = 1
final si
Tblname = tableNews
Fldname = id 'muestra que el valor del campo de clasificación no se puede repetir en la base de datos: se recomienda que la clave principal
FieldName = id, título, addtime
PageSizex = 30
Ordenype = 1 '0-es el orden 1 litro
Strwhere = (código = '0101') y (golpes> 100) 'Nota: Si se usa una condición () doble paréntesis
Topfield = (Pageno-1)*PageSizEx'top
Si Orderyype = 0 entonces
Strtmp = <(seleccione Min
Stroreder = orden por [& fldname &] Desc
demás
Strtmp => (seleccione Max
Stroreder = orden por [& fldname &] asc
final si
'Defina las declaraciones SQL
Strsql = seleccione Top & Clng (PageSizex) y FieldName & From & tblname &
Si pageno = 1, entonces 'si es la primera página, ejecute el siguiente código para verificar la biblioteca rápidamente
Si Strwher <> entonces
Strsql = strsql & where & strwher & strording &
demás
Strsql = strsql & strorder
final si
demás
Si Strwher <> entonces
Strsql = strsql & where & fldname & strtmp & (& fldname &) de (seleccione Top & Clng (Topfield) & Fldname & frm & Tblname & Strwhere & Str. Order &) como TBltmp) y Strwhere & Stroreder & Stroreder & Stroreder &
demás
Strsql = strsql & where & fldname & strtmp & (& fldname &) from (seleccione Top & Clng (Topfield) & Fldname & Tblname & Strrener & As Tbltmp) & Strong más
final si
final si
Establecer rs = const.execute (strsql) 'ejecutar consulta
Si Rs.Bof y Rs.Eof entonces
Conn.close: establecer conn = nada
Response.write <script language = 'javascript'> alert ('En la actualidad, no se encuentran registros, por favor regrese a la reoperación! "); History.go (-1); </script>
respuesta.
final si
Si Strwhere <> entonces 'busca registros totales
FieldCount = conn.execute (select Count (& fldname &) de & tblname & strwhere &) (0) (0)
demás
FieldCount = conn.execute (select Count (& fldname &) from & tblname &) (0)
final si
if (FieldCount Mod npagesize)> 0 Entonces 'busque el número de página total PAGECOUNTX
PageCountx = (FieldCount- (FieldCount Mod Mod PageSizex))/ PageSizex +1
demás
PageCountx = (FieldCount / PageSizex)
final si
'Mostrar datos
haz mientras no rs.eof
Response.Write & RS (Título) && NBSP;
Rs.Movenext
bucle
'Desactivar y liberar recursos relacionados con
Rs.
Conn.close: establecer conn = nada
'Paging de visualización
Si pageno <= 1 entonces
Response.write <font color = '#ff0000'> [página de inicio] [anterior] </font>
demás
Response.write [<a href = '?
Response.write [<a href = '? >]
final si
si pageno> = pageCountx entonces
Response.write <font color = '#ff0000'> [página siguiente] [página de cola] </font>
demás
Response.write [<a href = '? ]
Response.write [<a href = '?
final si
Response.Write [Page Order <Font Color = Red> & Pageno & </font> Page/Common <Font Color = Red> & PageCountx & </font> Page]
Response.Write [Total <Font Color = Red> & FieldCount & </font> Entry <Font Color = Red> & PageSizex & </font> Strip/Page]
Response.write to: <select name = 'page' size = '1' onchange = javascript : window.location = '?
para i = 1 a PayCountx
Respuesta.Write <Option Value = & i &
si pageno = i entonces respuesta.write selectd
Response.Write (> No.- & I & -Page </opción>))
próximo
Response.write </selectd>
%>