La classe ASP de grand-mère est vraiment difficile à apprendre. Il semble simple, mais quand il est vraiment utile, les codes sur Internet sont tous indiqués de manière incorrecte! !
Déprimé, profitez-en! ! Cela fait 3 jours et l'a finalement débogué. Je n'ose pas l'apprécier seul. Je vais le retirer et le partager avec vous!
Ce travail appartient à Peng Peng, le webmaster China www.zzcn.net. Vous n'êtes pas autorisé à retirer le droit d'auteur lors de la copie, sinon toute la famille mourra! ! ! ! hehe. . :)
La copie de code est la suivante:
<% @ Lingots = "vbscript" codepage = "936"%>
<! Doctypehtmlpublic "- // w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<%
'Peng Peng Veuillez accepter une catégorie de nouvelles produite par lui [webmaster China] http: //www.zzcn.netqq: 76526211
ClassNewsClass
Privatezzcn, Conn, Cnnstr
privatetitle_p, id_p
'Initialisation des objets
PRIVATESUBCLASS_INITIALIZE ()
'Response.write "Initialisation <br>"
callnewsconnstart ()
Fin
'Destructor, exécuté automatiquement lors de la libération d'un objet en utilisant Setnothing
PRIVATESUBCLASS_TERMINE ()
'Response.Write "Release Object Event: class_terminate <br>"
callnewsconnend ()
fin
«Fonction de liaison de base de données
PrivatsUbNewSconnStart ()
SetConn = server.createObject ("adodb.connection")
cnnstr = "Driver = {Microsoft AccessDriver (*. MDB)};"
cnnstr = cnstr & "dbq =" & server.mappath ("admin / watavase /% 29to-dream.mdb")
Conn.Opennnnstr
'Response.writecnnstr & "<br>"
Fin
PrivaSeBnewSconnEnd ()
Conn.Close
setConn = rien
Fin
'===================================================================.
'Nom de la fonction getrs ()
'Obtenez un ensemble d'enregistrements pour une certaine colonne
'Nom de la colonne Lanmu
'Combien d'enregistrements par page k
'Quelle page
'Combien de disques sont
'Date Riqi1 est dans l'ordre inverse par date 0
'===================================================================.
PublicFunctionGetRS (ByVallanmu, ByValk, Byvalpage, Byvaln, Byvalriqi)
sql = "select * fromarticleclasswhereclassname = '" & lanmu & "' orderByClassidDesc"