Empfohlen: Muss zum Lernen von ASP Dynamic Webseiten: 38 häufig verwendete Funktionen 1. Funktion Array () Funktion: Erstellen Sie ein Array -Variablenformat: Array (List) Parameter: Die Liste ist jede numerische Spalte in der Array -Variablen, wobei der Comma -Abstand Beispiel: <% i = Array (1,2,3 & quo
Da mein Raum begrenzt ist, kann ich nicht alle statischen Seiten in Chargen gleichzeitig generieren, daher schrieb ich ein kleines Programm, das Sie mit Ihnen teilen können. Das Programm ist recht einfach, lache also nicht über Experten! Dieser Code ist Zeitverschwendung. Der Code ist wie folgt
<!-#include File = conn.asp-> <html> <kopf> <titels> Seite </title> generieren <Meta http-äquiv = content-type content = text/html; charSet = gb2312> <Link href = style.css type = text/css rel = styleSheet> <Meta content = MSHTML 6.00.2900.3020 Name = Generator> </Head> <Body bottommargin = 0 linksmargin = 0 topmargin = 0 rightmargin = 0> <Br style = Überlauf: versteckt; Zeilenhöhe: 3px> <% Dim id id = cint (request.queryString (id)) Wenn id = dann id = 1 anders id = cint (request.queryString (id)) Ende wenn Dunkelne Gesamtzahl SQL = ID aus der Tabelle Order by ID dessen auswählen Setzen Sie rs = server.createObject (adodb.Recordset) Rs.open SQL, Conn, 1,1 rs.movefirst wenn nicht rs.eof dann TotalNumber = Rs.RecordCount Ende wenn Um die Gesamtzahl zu erhalten, können Sie stattdessen einen Code verwenden. Ich glaube, dass Freunde dieses Problem selbst lösen können. rs.close Setzen Sie Rs = nichts Response.write <br> <br> & vbnewline Antwort. Response.write <tr> & vbnewline Antwort. Response.write </tr> & vbnewline Response.write </table> & vbnewline Antwort.Flush Wenn id> Totalnumber dann dann Antwort.Write Herzlichen Glückwunsch zu Ihrem erfolgreichen Betrieb! Antwort.Flush Ende wenn Kreat (id) id = id 1 Response.write <meta http-äquiv = aktualisiert Inhalt = 1; url =? Id = & id &> %> </Body> </Html> <% Funktion creat (id) SQL = SELECT * Aus der Tabelle, wobei ID = & ID Setzen Sie RS = Conn.Execute (SQL) schwacher Name Name = RS (Name) Conn.Execute (SQL) rs.close Setzen Sie Rs = nichts dim fso Dim Znwl Dim Art Dim fw Setzen Sie fso = createObject (scripting.filesystemObject) Setzen Sie znwl = fso.opentextFile (server.mappath (Vorlagenseite))) art = znwl.readall znwl.close art = ersetzen (art, {$ name $}, Name) Setzen Sie fw = fso.createTextfile (server.mappath (generierter Seitenspeicherort und Seitenname), true) FW.WriteLine Art fw.close Setzen Sie fso = nichts Endfunktion %> |
Es gibt eine andere Methode, die schneller als die obige Methode ist, aber es nimmt viel CPU ein. Ich habe Probleme mit meinem Raum mit der folgenden Methode.
<!-#include File = conn.asp-> <html> <kopf> <titels> Seite </title> generieren <Meta http-äquiv = content-type content = text/html; charSet = gb2312> <Link href = style.css type = text/css rel = styleSheet> <Meta content = MSHTML 6.00.2900.3020 Name = Generator> </Head> <Body bottommargin = 0 linksmargin = 0 topmargin = 0 rightmargin = 0> <Br style = Überlauf: versteckt; Zeilenhöhe: 3px> <Tabellenrand = 1 Breite = 100% id = Tabelle1> <tr> <td> <% Dim Allid, PPP, ID, Totalnum SQL = SELECT * aus Tabelle Order by ID Desc Desc Setzen Sie rs = server.createObject (adodb.Recordset) Rs.open SQL, Conn, 1,1 wenn nicht rs.eof dann tun, während nicht Rs.Eof Wenn Allid = dann Allid = RS (ID) sonst Allid = Allid &; & rs (id) Rs.Movenext Schleife anders Wenn Rs.Bof und rs.eof dann Antwort. Schreiben Sie noch keine Artikel, die noch nicht gefunden wurden! Ende wenn Ende wenn rs.close Setzen Sie Rs = nichts Allid =; Allid PPP = Split (Allid,;) Totalnum = Ubund (PPP) für id = 1 bis total num Sitzung (ID) = Sitzung (ID) 1 Kreat (id) response.write generiert znwl_ & id & .htm ... <br> nächste %> </td> </tr> </table> </Body> </Html> <% Funktion creat (id) SQL = SELECT * Aus der Tabelle, wobei ID = & ID Setzen Sie RS = Conn.Execute (SQL) schwacher Name Name = RS (Name) Conn.Execute (SQL) rs.close Setzen Sie Rs = nichts dim fso Dim Znwl Dim Art Dim fw Setzen Sie fso = createObject (scripting.filesystemObject) Setzen Sie znwl = fso.opentextFile (server.mappath (Vorlagenseite))) art = znwl.readall znwl.close %> art = ersetzen (art, {$ name $}, Name) Setzen Sie fw = fso.createTextfile (server.mappath (generierter Seitenspeicherort und Seitenname), true) FW.WriteLine Art fw.close Setzen Sie fso = nichts Endfunktion |
Diese Methode ist schnell, aber Ihr Raum muss unbegrenzt sein!-Smart Network
Die obige Methode dient nur als Referenz und ist nicht die letzte Version, die ich geändert habe, aber es ist definitiv einfach zu bedienen.
Teilen: ASP Tipp Beispiel: Mehrere Codezeilen lösen das Problem der Verhinderung der wiederholten Einreichung von Formularen In vielen Fällen ist es notwendig, dass das gleiche Formular mehrmals eingereicht wird. Die Implementierungsmethoden vieler Personen sind relativ kompliziert (die Anzahl der Code übersteigt Dutzende von Zeilen !!). Die folgende Methode bietet eine Methode, für die nur einige Codezeilen erforderlich sind, für die Benutzer problemlos mehrere Einreichungen auffrischen und die Back-Taste verwenden, um das Formular erneut zu untersuchen.