Empfohlen: So verwenden Sie ASP, um drei höchste und drei niedrigste Punktzahlen zu entfernen Frage: Wie kann ich ASP verwenden, um die drei höchsten und drei niedrigsten Ergebnisse zu entfernen? Lösung: 1. Sortieren Sie das gesamte Array und löschen
Jeder weiß, dass die statischen HTML -Webseiten eher von Suchmaschinen indiziert werden. der Webseiten? Ich denke, jeder weiß es auch.
Zu diesem Zweck habe ich mich entschlossen, die vorherigen Methoden der Website -Konstruktion und des Webdesigns zu ändern.
Etikettersatzmethode: Dies ist die Definition, die ich persönlich verstehe.
Die Tag -Ersatzmethode besteht darin, die SET -Tags in die entworfene Webvorlage zu setzen und sie dann durch die Dinge zu ersetzen, die Sie anzeigen müssen. wie
Vorlagendatei 1
Wir speichern diese Vorlage in der Datenbanktabelle, die in Versuchbarkeit vorliegt
<html>
<kopf>
<title> {$ sitzename} </title>
</head>
<body>
{$ Arc_list $}
</body>
<html>
In der obigen Vorlage habe ich zwei Tags {$ siitename} Website -Name und {$ arc_list $} Artikelliste eingestellt und dann den folgenden Code ansehen
<%
Dim Rs, Sitename, Arc_List, FSO, MyFile, Filepath, Html
Sitzeame = meine erste dynamisch generierte HTML -Seite
Filepath = server.mappath (/html/index.html)
Setzen Sie rs = server.createObject (adodb.Recordset)
rs.openselect [temp] von Versuchbar, Conn, 1,1
HTML = RS (TEMP) 'Webseitenvorlage lesen
rs.close
html = ersetzen (html, {$ sistename}, sitename) 'ersetzen {$ sitzename} Tag mit einem benutzerdefinierten Sitename
html = html & ersetzen (html, {$ arc_list $}, get_arclist ()) 'Ersetzen Sie die {$ arc_list $} -Tag durch die benutzerdefinierte Get_arclist () -Funktion
Setzen Sie Rs = nichts
conn.close
Setzen Sie Conn = nichts
Setzen Sie fso = createObject (*** ing.FilesSystemObject) 'Erstellen Sie ein Dateisystemobjekt
Setzen Sie myFile = fso.createTextfile (filepath, true) 'Datei erstellen
MyFile.WriteLine (HTML) 'HTM -Code in Datei schreiben
MyFile.close 'close Datei
Setzen Sie myFile = nichts 'Veröffentlichen Sie das Dateiobjekt
Legen Sie FSO = Nothing 'Nicht' das Systemdateiobjekt los
response.write <*** Language = 'Java ***'> Fenster.alert ('Dateigenerierung war erfolgreich'); </***>
Antwort.end ()
Funktion get_arclist ()
Dim str, str1
str1 =
str = <ul> {list} </ul>
Rs.openselect -Titel, URL von ARC
zwar nicht rs.eof
STR1 = STR1 & <li> <a href = & rs (url) &> & rs (title) & </a> </li>
Rs.Movenext
Wend
rs.close
str = ersetzen (str, {list}, str1)
get_arclist = str
%>
Endfunktion
Ist die obige Methode sehr einfach? . . Haha, Yu arbeitet jetzt in einer Website -Konstruktion
Teilen: Verwenden Sie ASP, um die Funktion der Online -Artikelübersetzung zu realisieren Manchmal möchte ich unsere Webseiten mit mehreren Sprachen unterstützen. . Lan.htm