La clase ASP de la abuela es realmente difícil de aprender. Parece simple, pero cuando es realmente útil, ¡los códigos en Internet se informan incorrectamente! !
¡Deprimido, disfruta! ! Han pasado 3 días y finalmente lo depuré. No me atrevo a disfrutarlo solo. ¡Lo sacaré y lo compartiré contigo!
Este trabajo pertenece a Peng Peng, el webmaster China www.zzcn.net. No se le permite eliminar los derechos de autor al copiarlo, ¡de lo contrario toda la familia morirá! ! ! ! jeje. . :)
La copia del código es la siguiente:
<%@Idioma = "vBscript" Codepage = "936"%>
<
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<%
'Peng Peng Por favor acepte una categoría de noticias producida por él [Webmaster China] http: //www.zzcn.netqq: 76526211
clase de clase
Privatezzcn, Conn, CNNSTR
privateTitle_p, id_p
'Inicialización de objetos
Privatesubclass_initialize ()
'Response.Write "Inicialización <br>"
CallNewSconnStart ()
Endsub
'Destructor, ejecutado automáticamente al liberar un objeto usando SetNothing
Privatesubclass_merminate ()
'Response.Write "Evento de objeto de lanzamiento: class_merminate <br>"
CallNewSconnend ()
Endsub
'Función de enlace de base de datos
Privatesubnewsconnstart ()
Setconn = server.createObject ("ADODB.Connection")
cnnstr = "controlador = {Microsoft AccessDriver (*. Mdb)};"
cnnstr = cnstr & "dbq =" & server.mappath ("admin/watavase/%29to-dream.mdb")
Conn.opencnnstr
'Response.Writecnnstr & "<br>"
Endsub
Privatesubnewsconnend ()
Conn.clar
setConn = nada
Endsub
'===========================================================
'Nombre de la función getrs ()
'Obtenga un conjunto de registro para una determinada columna
'Nombre de la columna Lanmu
'¿Cuántos registros por página K
'Que página
'¿Cuántos discos no están
'La fecha riqi1 está en orden inverso por fecha 0 es el orden ascendente
'===========================================================
PublicFunctionGetrs (Byvallanmu, Byvalk, Byvalpage, Byvaln, Byvalriqi)
sql = "Seleccionar*FromarticleClassWherecLassName = '" & lanmu & "' OrderByClassidDesc"