Empfohlen: Windows 2003 Installationseinstellungen IIS Installation Kapitel 2003: Standardinstallation ohne IIS. Zum Installieren klicken Sie auf Start -> Administrative Tools -> Konfigurieren Sie Ihren Server -Assistenten und dann Schritt für Schritt. Es ist Zeit, Elemente in der Liste auszuwählen. Wählen Sie den Anwendungsserver (IIS, ASP.NET) aus der Liste aus
Beispieldemonstration: Erstellen Sie zunächst eine einfache Datenbank, schreiben Sie eine Funktion zum Lesen und schreiben Sie eine dimen variable Temperatur:
ASP -Code
| Das Folgende ist der zitierte Inhalt: <% Funktion displayRecords () Dim SQL, Conn, Rs SQL = SELECT ID, [SZD_F], [SZD_T] aus Administrator Setzen Sie conn = server.createObject (adodb.Connection) Conn.open Driver = {Microsoft Access Treiber (*.mdb)}; Dbq = & server.mappath (db.mdb) Setzen Sie rs = server.createObject (adodb.Recordset) Rs.open SQL, Conn, 1, 3 Wenn nicht rs.eof dann Dim Temp temp = <Tabellenbreite = 90% Align = Center temp = temp & border = 1 borderColor = Silber temp = temp & cellpacing = 2 cellpadding = 0> temp = temp & <tr bgcolor =#ccddee> <td width = 5% temp = temp &> id </td> <td> operation </td> temp = temp & <td> Wert </td> </tr> Zwar nicht rs.eof temp = temp & <tr> <td bgcolor =#ccddee> temp = temp & rs (id) & </td> <td> & rs (SZD_F) temp = temp & </td> <td> & rs (SZD_T) temp = temp & </td> </tr> Rs.Movenext Wend temp = temp & </table> DisplayRecords = temp Anders DisplayRecords = Daten nicht verfügbar. Ende wenn rs.close conn.close Setzen Sie Rs = nichts Setzen Sie Conn = nichts Endfunktion 'Schreiben Sie in Cache Funktion displayCacheDrecords (SECs) Dim Retval, Datval, Temp1 retval = application (cache_demo) datval = application (cache_demo_date) Wenn datval = dann datval = datadd (s, secs, jetzt) Ende wenn temp1 = datiff (s, jetzt, datval) Wenn temp1> 0 und retval <> dann DisplayCacheDrecords = retVal 'Debugging -Code: Response.write <b> <font color = green> Daten mit Cache lesen Antwort.Write ... (& temp1 & Sekunden verbleiben) </font> </b> Response.write <br> <br> Anders Dim temp2 »Ändern Sie DisplayRecords () in die Funktion, deren 'Wert, den Sie zwischenspeichern möchten temp2 = displayRecords () Application.lock Application (cache_demo) = temp2 Application (cache_demo_date) = datadd (s, secs, jetzt) Application.unlock DisplayCacheDrecords = temp2 'Debugging -Code: Antwort.Write <B> <font color = rot> Cache -Anzeige aktualisieren ... Response.write </font> </b> <br> <br> Ende wenn Endfunktion %> <!- Response.write displayRecords () -> <html> <kopf> <title> Verwenden Sie Cache, um Daten aus der Datenbank zu lesen. </title> <Styles> Körper, p, td {Schriftfamilie: sans-serif; Schriftgröße: 8pt; } td {padding-links: 5; } </style> </head> <body> <% Dim T1, T2 T1 = Timer Antwort.Write DisplayCacheDrecords (20) T2 = Timer %> <P Align = Center> Verweilzeit: < %= links ((CDBL ((T2 - T1) * 1000,0), 5) %> MS </p> </body> </html> |
Teilen: Die Verwendung von ASP -Adrotatorkomponenten im Basis -ASP -Tutorial ASP -Adrotator -Komponente Wenn ein Benutzer eine Website eingibt oder eine Seite aktualisiert, erstellt die ASP -Adrotator -Komponente ein Adrotator -Objekt, um ein anderes Bild anzuzeigen. Syntax: Das Folgende ist der referenzierte Inhalt