Empfohlen: kurze Analyse von ASP AJAX -Such -Tipps ähnlich wie Google Die Hauptdateien sind: Index.html -Implementierungsfunktion, ein Textfeld, Inhalt in Eingabe und die Eingabeaufforderungssuche.asp -Abfragefunktion, lassen
Es gibt viele Nachrichtensysteme, die HTML generieren, aber alle verwenden Vorlagen. Diese Funktion speichert den von der ASP -Seite generierten HTML -Code in einer HTML
Vervollständigen Sie ein Nachrichtensystem, das HTML generiert. ^_^
Da der Code kurz ist, werde ich hier nicht kommentieren
<%
'Wenn die Zielseite die Datei enthält, d. H. Die Seite #include, gibt es ein Problem mit diesem Programm.
HINWEIS: Diese Datei muss im selben Verzeichnis wie die Datei durch Dateiname angezeigt werden
| Das Folgende ist der zitierte Inhalt: Dim Hughchiu_rtcode Funktion get_exe_code (Dateiname) Dim Execode Dim tmp_str Dim Re, RE1, Inhalt, FSO, F, Aspstart, Aspend Dim MS, m execode = 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 Setzen Sie Re = New Regexp re.Innorecase = true re.global = true re.Pattern = <%@[^%]%> content = re.Replace (Inhalt,) re.global = false re.Pattern = <!-S*#enthält*Dateien*= S*([^]) S*-> Tun Setzen Sie ms = re.execute (Inhalt) Wenn ms.count <> 0 dann Setzen Sie M = MS (0) tmp_str = get_exe_code (m.submatches (0)) content = re.Replace (Inhalt, TMP_STR) anders Ausgang tun Ende wenn Schleife Setzen Sie M = nichts ms ms = nichts re.pattern =^s*= Aspend = 1 ASPStart = Instr (Aspend, Inhalt, <%) 2 Setzen Sie RE1 = New Regexp re1.Innorecase = true re1.global = false re1.pattern = response.write (.) Tun Sie während Aspstart> Aspend 1 execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && ersetzen (ersetzen (Mid (Inhalt, Aspend, Aspstart-Aspend-2) ,,), VBCRLF, & vbcrlf &) && vbcrlf Aspend = instr (Aspstart, Inhalt,%>) 2 TMP_STR = MID (Inhalt, Aspstart, Aspend-Aspstart-2) Tun Setzen Sie ms = re1.execute (tmp_str) Wenn ms.count <> 0 dann Setzen Sie M = MS (0) tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0)) anders Ausgang tun Ende wenn Schleife Setzen Sie M = nichts ms ms = nichts execode = execode & re.Replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &) ASPStart = Instr (Aspend, Inhalt, <%) 2 Schleife Setzen Sie re1 = nichts Setzen Sie Re = nichts execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && ersetzen (ersetzen (Mid (Inhalt, Aspend),), VBCRLF & VBCRLF &) && vbcrlf get_exe_code = <%& execode &%> Endfunktion Funktion ASP2HTML (Dateiname) Dimer Code code = ersetzen (ersetzen (ersetzen (get_exe_code), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %), %>,) 'response.write (Code) ausführen (Code) 'response.write (hughchiu_rtcode) ASP2HTML = Hughchiu_rtcode Endfunktion %> |
Beispiel der Nutzung:
| Das Folgende ist der zitierte Inhalt: F.WriteLine (ASP2HTML (youPage.asp)) F.CLOSE Setzen Sie f = nichts fso = nichts setzen |
Teilen: Wahrnehmen die Kraft von ASP durch Startskripte Wie bei den meisten Sprachskripten besteht der beste Weg, ASP zu lernen, ASP selbst und die Installation von PWS oder IIS mit Ihrem eigenen System. Sie können ASP -Komponenten und Funktionen auf Ihrem eigenen Server beim Lernen testen. Um das Lernen zu erleichtern, haben wir einige Ficks zusammengestellt