Omas ASP -Klasse ist wirklich schwer zu lernen. Es sieht einfach aus, aber wenn es wirklich nützlich ist, werden die Codes im Internet alle falsch gemeldet! !
Depressiv, genießen! ! Es ist 3 Tage her und debuggierte es schließlich. Ich wage es nicht, es alleine zu genießen. Ich werde es herausnehmen und mit Ihnen teilen!
Diese Arbeit gehört zu Peng Peng, dem Webmaster China www.zzcn.net. Sie dürfen das Urheberrecht beim Kopieren nicht entfernen, sonst stirbt die ganze Familie! ! ! ! hehe. . :)
Die Codekopie lautet wie folgt:
<%@Sprache = "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 Bitte akzeptieren Sie eine Nachrichtenkategorie, die von ihm [Webmaster China] produziert wurde.
KlasseNewsClass
Privatezzcn, conn, cnnstr
privatetitle_p, id_p
'Objektinitialisierung
PrivateSubclass_initialize ()
'response.write "Initialisierung <br>"
Rufen SieNewsconnstart () rufen
Ende
'Zerstörer, automatisch ausgeführt, wenn ein Objekt mit SetNothing veröffentlicht wird
PrivateSubclass_terminate ()
'response.write "Release -Objektereignis: class_terminate <br>"
Rufen SieNewsconnend () rufen
Ende
'Datenbankverbindungsfunktion
PrivateSubnewsconnstart ()
SetConn = server.createObject ("adodb.Connection")
cnnstr = "driver = {microsoft accessDriver (*. mdb)};"
cnnstr = cnstr & "dbq =" & server.mappath ("admin/watavase/%29to-dream.mdb")
Conn.Opencnnstr
'response.writeCnnstr & "<br>"
Ende
PrivateSubnewsconnend ()
conn.close
setConn = nichts
Ende
'========================================================
'Funktionsname getrs ()
'Holen Sie sich einen Datensatz für eine bestimmte Spalte
'Spaltenname Lanmu
'Wie viele Datensätze pro Seite k
'Welche Seite
'Wie viele Aufzeichnungen sind
'Date riqi1 ist in umgekehrter Reihenfolge nach Datum 0 ist aufsteigende Reihenfolge
'========================================================
PublicFunctiongetrs (Byvallanmu, Byvalk, Byvalpage, Byvaln, Byvalriqi)
SQL = "SELECT*FROMARTICLECLASSWHERECLASSNAME = '" & LANMU & "' OrderByClassidDesc"