De todos modos, he usado esto para hacer muchos sitios web ahora, y creo que todavía es muy útil, así que lo compartiré contigo. Admite tres tipos de conexiones de bases de datos: MSSQL2000, MSSQL2005, Acceso
Tres métodos:
select_table (SQL)
Consulta de tabla, devolver verdadero o falso
Devolver falso cuando una declaración de SQL errores o un registro vacío, de lo contrario, verdadero
update_table (SQL)
Actualización de la tabla, incluida la actualización, eliminar
Devuelve verdadero si es exitosa ejecución, de lo contrario, devuelva falso si se actualiza y el número de filas afectadas después de la ejecución.
insert_table (sql, tabla, id_column)
La tabla es el nombre de la tabla, id_column es el número automático en la tabla, y el campo se incrementa por sí mismo.
Devuelve Verdadero cuando la ejecución exitosa, de lo contrario, retroceda falso, especifique la tabla e id_column, se devolverá el ID de auto-incremento generado por el último registro agregado.
Select_table () Método relacionado select_page (página, psize)
Pagination Processing, Page es la página actual y Psize es el número de filas grabadas por página.
Durante todas las operaciones, el enlace de la base de datos y RS se detectan automáticamente si está abierto, y el enlace de la base de datos se cerrará automáticamente después de la ejecución.
Ejemplo:
setdb = newadoDB_Class
ifdb.select_table ("Seleccionar*deNewsOrSorderByIdDesc") entonces
Page = request ("Página")
Select_page (página, 20) '20 elementos por página
fori = 1to a 20
Response.Writedb.rs ("Título") 'La clase es incorporada y es inmutable
db.rs.movenext
ifdb.rs.eofthenexitfor
próximo
endif
db.rSpage = número total de páginas, db.nowpage = la página actual después del procesamiento, db.rScounts contará el número total de registros.
ifdb.update_table ("DeleteFromNeWswhereSiseSiss = 1") entonces 'Update lo mismo
Response.Write "Eliminar" y DB.Updated & "Row" en total
endif
calldb.insert_table ("Insertintonews (Título, Contenido) Valores ('" & Title & "', '" & Content & "')", "News", "Id")
Response.Write "Se agregó la ID como" & db.insertd
Al final de la página, puede emitir db.ReadCounts como el número de veces que se consulta la base de datos.
--------------------------------------------
La ventaja de esta clase es que no tiene que preocuparse por olvidarse de cerrar el enlace de la base de datos, no necesita setrs = server.RecordSet ("ADODB.RecordSet") con frecuencia, no necesita setRS = nada
La desventaja es la forma tradicional de realizar páginas. rs.absolutePage = rs.pagesize
----------------------------------------------------------
<%
'/****** kshop *******/
'ADODB_CLASS.ASP Clase de operación de la base de datos
'Versión1.0
'Copyright [correo electrónico] [email protected] [/correo electrónico]
'Correo electrónico [correo electrónico] [email protected] [/correo electrónico]