[ASP] Code aus tabelle ausführen

Hussl · 26.01.2005, 19:31

Ich schreib dir mal bissl wie ich so was ähnliches auf meiner hp gelöst habe:

Code:

public p_FuncText

Function ParseContent(strContent)
	Dim regEx, Match, Matches
	
	Dim strOut : strOut = strContent
	Set regEx = New RegExp
	
	regEx.Pattern = "={.+?}"
	regEx.IgnoreCase = True
	regEx.Global = True
	
	Set Matches = regEx.Execute(strOut)
	
	For Each Match in Matches
		Execute(Mid(match.value, 3, InStr(match.value,"}") - 3))
		strOut = Replace(strOut, Match.Value, p_FuncText)
	Next

	ParseContent = strOut
End Function

Function Exec(page)
	server.execute page
End Function

der content kommt aus der datenbank und schaut z.B. so aus:

Code:

={Exec("/vote.asp")}

die .asp-seite sieht folgendermaßen aus:

Code:

<% connection zu datenbank %>
<html>
... bla bla ...
... ParseContent(content_aus_db)
</html>

du musst halt dein skript in einer extra asp-datei speichern und nicht in der datenbank direkt.

Ich hoffe du verstehst das ein bissl, was da durch meine gehirnwindungen wanderte. ich müsste nämlich selbst wieder nachdenken

26.01.2005, 19:31	#5
Hussl Veteran Registriert seit: 08.02.2001 Alter: 41 Beiträge: 320	Ich schreib dir mal bissl wie ich so was ähnliches auf meiner hp gelöst habe: Code: public p_FuncText Function ParseContent(strContent) Dim regEx, Match, Matches Dim strOut : strOut = strContent Set regEx = New RegExp regEx.Pattern = "={.+?}" regEx.IgnoreCase = True regEx.Global = True Set Matches = regEx.Execute(strOut) For Each Match in Matches Execute(Mid(match.value, 3, InStr(match.value,"}") - 3)) strOut = Replace(strOut, Match.Value, p_FuncText) Next ParseContent = strOut End Function Function Exec(page) server.execute page End Function der content kommt aus der datenbank und schaut z.B. so aus: Code: ={Exec("/vote.asp")} die .asp-seite sieht folgendermaßen aus: Code: <% connection zu datenbank %> <html> ... bla bla ... ... ParseContent(content_aus_db) </html> du musst halt dein skript in einer extra asp-datei speichern und nicht in der datenbank direkt. Ich hoffe du verstehst das ein bissl, was da durch meine gehirnwindungen wanderte. ich müsste nämlich selbst wieder nachdenken ____________________________________ Nein, ich bin nicht die Signatur, ich putz hier nur. http://www.chili-it.at

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Zur Linear-Darstellung wechseln Zur Hybrid-Darstellung wechseln Baum-Darstellung

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)