Empfohlen: So verwenden Sie die ASP -Skripttechnologie In VB -Skripten müssen Sie keine Variablen definieren oder ihre Typen in anderen Skriptsprachen explizit definieren. Wenn Sie sie zum ersten Mal verwenden, existiert eine Variable. Mit dieser Funktion kann Ihr Code jedoch in Typenkripten existieren. Wenn Sie einen Variablennamen im Code fälschlicherweise definieren, wird eine neue Variable erstellt. Ihr Skript funktioniert möglicherweise nicht richtig.
Wie generiere ich HTML in ASP? Es gibt bereits viele Nachrichtensysteme, die HTML generieren, aber alle verwenden Vorlagen. Diese Funktion speichert den von der ASP -Seite generierten HTML -Code in einer HTML -Datei, sodass die Originalseite nicht ändern muss, um ein Nachrichtensystem zu vervollständigen, das HTML generiert. ^_^
Da der Code kurz ist, werde ich hier nicht kommentieren
Das Folgende ist der zitierte Inhalt: <% 'Wenn die Zielseite die Datei enthält, d. H. Die Seite #include, gibt es ein Problem mit diesem Programm. HINWEIS: Diese Datei muss in demselben Verzeichnis platziert werden wie die Datei bis 20041227111723.htm Dim Hughchiu_rtcode Funktion get_exe_code (20041227111723.htm) Dim Execode Dim tmp_str Dim Re, RE1, Inhalt, FSO, F, Aspstart, Aspend Dim MS, m execode = Setzen Sie fso = createObject (scripting.filesystemObject) SET F = FSO.OPENTEXTFILE (server.mappath (20041227111723.htm)) 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*/#include/s*file/s*=/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 (20041227111723.htm) Dimer Code code = ersetzen (ersetzen (ersetzen (get_exe_code (20041227111723.htm), 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: Setzen Sie fso = createObject (scripting.filesystemObject) Setzen Sie f = fso.createTextFile (server.mappath (youPage.htm), true) F.WriteLine (ASP2HTML (youPage.asp)) F.CLOSE Setzen Sie f = nichts fso = nichts setzen |
Teilen: So beginnen Sie mit ASP -Variablen Variablen werden verwendet, um Informationen zu speichern. Wenn eine Variable außerhalb der Unterroutine deklariert wird, kann die Variable durch jedes Skript in der ASP -Datei geändert werden. Wenn eine Variable in einer Unterroutine deklariert wird, wird sie jedes Mal erstellt und widerrufen, wenn das Unterprogramm ausgeführt wird. Beispiel: Deklarieren Sie die Variable wie folgt: HTML Body % Dim Name Name Name = Donald Duck -Antwort.