Es gibt häufig solche Anforderungen , Die Anforderung, dass die Dynamik der Datei in die <!
Die Datei muss existieren und wird vorkompiliert (unabhängig davon, ob die Bedingungen vorausgingen)
Es gibt häufig solche Anforderungen, einschließlich verschiedener Dateien nach verschiedenen Anforderungen
Wenn die Einstellungen jedes Einzelnen unterschiedlich sind, müssen Dateien dynamisch einbezogen werden.
Der Code ist wie folgt:
| Funktion umfassen (Dateiname) Dim Re, Inhalt, FSO, F, Aspstart, Aspend Setzen Sie fso = createObject (scripting.filesystemObject) Setzen Sie f = fso.opentextfile (server.mappath (Dateiname)) content = f.readall F.CLOSE Setzen Sie f = nichts Setzen Sie fso = nichts SET RE = New Regexp re.Pattern =^/s*= Aspend = 1 ASPStart = Instr (Aspend, Inhalt, <%)+2 Tun Sie während Aspstart> Aspend+1 Response.write Mid (Inhalt, Aspend, Aspstart-Aspend-2) Aspend = instr (Aspstart, Inhalt,%/>)+2 Execute (Re.Replace (Mid (Inhalt, Aspstart, Aspend-Aspstart-2), Response.write)) ASPStart = Instr (Aspend, Inhalt, <%)+2 Schleife Response.write Mid (Inhalt, Aspend) Setzen Sie Re = nichts Endfunktion |
Beispiel der Nutzung:
einschließen (youinc.asp) |