Template

Hast du auch ein Gästebuch auf deiner Homepage?
Ich hab eins und eines der Probleme damit ist, woher weisst du ob jemand einen Eintrag hinterlassen hat?

evtl. schickt dir dein Gästebuch jedesmal eine Email.
oder du musst selbst auf deine Homepage gehen und eine Datei aufrufen z.B. view_guest_book.asp

Jedenfalls hier will ich dir zeigen, wie man mit RSS die jeweils 5 letzten Einträge aus dem Gästebuch mit deinem Lieblings RSS Reader lesen kann.

Schauen wir uns doch zunaechst einmal an, wie unser Gaestebuch von der Eingabeseite aus aussieht:

Quelltext (ASP)	Darstellung (HTML) Gästebuch Öffnen
' Quelltext entommen aus der ASP Hilfedatei und ein bisschen modifiziert. <%@ Language=VBScript %> <html> <head> <style> body { font:"MS Gothic"; } </style> <title>www.rss-asp.info Guestbook</title> </head> <body> <% If Not Request.QueryString("Nachricht") = "True" Then %> <h2>You wanna leave a message on my guestbook? Then do it.</h2> <FORM name="guestbook" METHOD="GET" ACTION="gb_append.asp"> <table> <tr><td>Who are you?</td><td><input type="text" name="Von"></td></tr> <tr><td>Your E-Mail():</td><td><input type="text" name="E-Mail-Adresse"></tr> <tr><td>Your Homepage:</td><td><input type="text" name="CC"></td></tr> <tr><td>Subject:</td><td><input type="text" name="Betreff" value="rss-asp.info"></td></tr> </table> <p> Message:<br><textarea name="Memo" rows=6 cols=70></textarea> </p> <p> <input type="hidden" name="Nachricht" value="True"> <input type="submit" value="Submit"> </p> </form> <p>()Your email address won't be published in the guestbook which you can view after you left a message soon.</p> <% Else dim strTB1, strTB2, strTB3, strTB4, strMB1, strCommand strTB1 = Server.HTMLEncode(Request.QueryString("Von")) strTB2 = Server.HTMLEncode(Request.QueryString("E-Mail-Adresse")) strTB3 = Server.HTMLEncode(Request.QueryString("CC")) strTB4 = Server.HTMLEncode(Request.QueryString("Betreff")) strMB1 = Server.HTMLEncode(Request.QueryString("Memo")) 'Mit dem MEMO-Datentyp in der Access-Datenbank können Sie die Feldgröße festlegen. If strMB1 = "" Then iLenMB1 = 255 Else iLenMB1 = Len(strMB1) End If rem strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\InetPub\Wwwroot\Tutorial\gästebuch.mdb;" rem den String strProvider musst du natuerlich deinen Beduerfnissen anpassen Set objConn = server.createobject("ADODB.Connection") objConn.Open strProvider Set cm = Server.CreateObject("ADODB.Command") cm.ActiveConnection = objConn cm.CommandText = "insert into guestbook (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES (?,?,?,?,?)" Set objparam = cm.CreateParameter(, 200, , 255, strTB1) cm.Parameters.Append objparam Set objparam = cm.CreateParameter(, 200, , 255, strTB2) cm.Parameters.Append objparam Set objparam = cm.CreateParameter(, 200, , 255, strTB3) cm.Parameters.Append objparam Set objparam = cm.CreateParameter(, 200, , 255, strTB4) cm.Parameters.Append objparam Set objparam = cm.CreateParameter(, 201, , iLenMB1, strMB1) ' fuer Memo Feld braucht man 201 cm.Parameters.Append objparam cm.Execute Response.Write("<h2>Thanks for leaving a message.</h2><br><h3>Now let's see if I like your message:</h3>") %><br> You are <%=strTB1%> and <%=strTB2%> is your email address.<br> <% If strTB3="" Then Response.Write("You don't have a private homepage! Why not, what a pity, you are an ASP Developper. You should have one.<br>") Else Response.Write("Your homepage is:"+strTB3) Response.Write(" I will visit it sooner or later.<br>") End If Response.Write("<p><table border=5><tr><th>"+strTB4+"</th></tr>") Response.Write("<tr><td>"+strMB1+"</td></tr></table>") Response.Write("<p>Honestly, I don't know yet if I like your message or not.</p>") %> <p>View <a href="gb_show.asp">guestbook</a>.</p> <% End If %> </body> </html>

Quelltext (ASP)

Darstellung (HTML) Gästebuch Öffnen

' Quelltext entommen aus der ASP Hilfedatei und ein bisschen modifiziert.
<%@ Language=VBScript %> 
<html> 
<head> 
<style>
body { font:"MS Gothic"; }
</style>
<title>www.rss-asp.info Guestbook</title> 
</head> 
<body> 
<% If Not Request.QueryString("Nachricht") = "True" Then  %> 
<h2>You wanna leave a message on my guestbook? Then do it.</h2> 
<FORM name="guestbook" METHOD="GET" ACTION="gb_append.asp"> 
<table> 
<tr><td>Who are you?</td><td><input type="text" name="Von"></td></tr>
<tr><td>Your E-Mail(*):</td><td><input type="text" name="E-Mail-Adresse"></tr>
<tr><td>Your Homepage:</td><td><input type="text" name="CC"></td></tr>
<tr><td>Subject:</td><td><input type="text" name="Betreff" value="rss-asp.info"></td></tr> 
</table> 
<p>
Message:<br><textarea name="Memo" rows=6 cols=70></textarea> 
</p> 
<p> 
<input type="hidden" name="Nachricht" value="True"> 
<input type="submit" value="Submit"> 
</p> 
</form>

<p>(*)Your email address won't be published in the guestbook which you can view after you left a message soon.</p>
<%  Else 
dim strTB1, strTB2, strTB3, strTB4, strMB1, strCommand 
strTB1 = Server.HTMLEncode(Request.QueryString("Von")) 
strTB2 = Server.HTMLEncode(Request.QueryString("E-Mail-Adresse")) 
strTB3 = Server.HTMLEncode(Request.QueryString("CC")) 
strTB4 = Server.HTMLEncode(Request.QueryString("Betreff")) 
strMB1 = Server.HTMLEncode(Request.QueryString("Memo"))

'Mit dem MEMO-Datentyp in der Access-Datenbank können Sie die Feldgröße festlegen. 
If strMB1 = "" Then 
	iLenMB1 = 255 
Else 
	iLenMB1 = Len(strMB1) 
End If

rem strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\InetPub\Wwwroot\Tutorial\gästebuch.mdb;" 
rem den String strProvider musst du natuerlich deinen Beduerfnissen anpassen

Set objConn = server.createobject("ADODB.Connection") 
objConn.Open strProvider 
Set cm = Server.CreateObject("ADODB.Command") 
cm.ActiveConnection = objConn 
cm.CommandText = "insert into guestbook (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES (?,?,?,?,?)"

Set objparam = cm.CreateParameter(, 200, , 255, strTB1) 
cm.Parameters.Append objparam

Set objparam = cm.CreateParameter(, 200, , 255, strTB2) 
cm.Parameters.Append objparam

Set objparam = cm.CreateParameter(, 200, , 255, strTB3) 
cm.Parameters.Append objparam

Set objparam = cm.CreateParameter(, 200, , 255, strTB4) 
cm.Parameters.Append objparam

Set objparam = cm.CreateParameter(, 201, , iLenMB1, strMB1) ' fuer Memo Feld braucht man 201
cm.Parameters.Append objparam

cm.Execute

Response.Write("<h2>Thanks for leaving a message.</h2><br><h3>Now let's see if I like your message:</h3>") 
%><br>
You are <%=strTB1%> and <%=strTB2%> is your email address.<br>
<%
If strTB3="" Then
Response.Write("You don't have a private homepage! Why not, what a pity, you are an ASP Developper. You should have one.<br>")
Else
Response.Write("Your homepage is:"+strTB3)
Response.Write("&nbsp;I will visit it sooner or later.<br>")
End If

Response.Write("<p><table border=5><tr><th>"+strTB4+"</th></tr>")
Response.Write("<tr><td>"+strMB1+"</td></tr></table>")
Response.Write("<p>Honestly, I don't know yet if I like your message or not.</p>")
%>
<p>View <a href="gb_show.asp">guestbook</a>.</p>
<% End If  %> 
</body> 
</html>

Jetzt stellt sich die Frage wie wir das am Besten machen

Machen wir doch mal ne liste von Alternativen

manuell schreiben
dynamisch erzeugen, so ähnlich wie bei dem datetime feed.
Ereignis gesteuert XML Datei schreiben.

Zu 1.
Glaube nicht, dass das ne gute Idee wäre.

Zu 2.
man könnt so etwas machen wie "select top 5 * from guestbook" und gibt das Ergebnis zur Laufzeit an den RSS Reader aus.

Zu 3.
Bei der ereignis gesteuerten Variante wird die RSS Datei nach jedem neuen Eintrag ins Gästebuch neu geschrieben. Also ASP schreibt und speichert die XML Datei statisch auf deinem Web Server. Diese Variante gefällt mir bis jetzt am Besten.

Voraussetzung fuer diese Variante ist allerdings, dass man schreibrechte auf seinem Web Server hat. Ich werde es feststellen, ob ich die habe oder nicht.

Fangen wir an

Unser Gästebuch besteht im Wesentlichen aus der Datei gb_append.asp (Quelltext siehe oben). Wir erweitern diese Datei um die Fähigkeit die letzten 5 Einträge in eine RSS Datei statisch zu schreiben.
Im Wesentlichen tun wir folgenden


1. FileSystemObject einbinden


2. Text-Datei erzeugen


3. XML Header schreiben.


4. Datenbankabfrage: select top 5 * from guestbook order by entrydate 

5. Datensätze in Datei schreiben


6. Text-Datei schließen

Das war's. Dann müssen wir nur noch testen, ob es auch klappt. Funktioniert alles? Ja, dann können wir den Feed unserem Lieblingsreader hinzufügen. So sieht der zusaetzliche Quelltext dann aus.

<p>View <a href="show.asp">guestbook</a>.</p> <% Dim fso, fld Set fso = CreateObject("Scripting.FileSystemObject") Set fld=fso.GetFolder(Server.MapPath(".")) %> <% Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 MyPath=fso.BuildPath(fld.Path, "myguests.xml") Dim ts Set ts = fso.OpenTextFile(MyPath, ForWriting, true, TristateUseDefault) ts.WriteLine("<?xml version=""1.0"" standalone=""no"" ?><rss version=""2.0"">") ts.WriteLine("<channel>") ts.WriteLine("<title>www.rss-asp.info Guestbook</title>") ts.WriteLine("<link>http://www24.brinkster.com/jungbauer/asp/samples/append.asp</link>") ts.WriteLine("<description>Displays last 5 entries of my Guestbook</description>")ts.WriteLine("<copyright><![CDATA[© Matthias Jungbauer]]></copyright>") ts.WriteLine("<webMaster>matjung@hotmail.com</webMaster>") ts.WriteLine("<managingEditor>matjung@hotmail.com</managingEditor>") ts.WriteLine("<language>en</language>") ts.Write("<lastBuildDate>") ts.Write(rfc822("EST")) ts.WriteLine("</lastBuildDate>") ts.WriteLine("<generator>EditPad 3.2.1 DE</generator>") ts.WriteLine("<category>Tutorial</category>") ts.WriteLine("<docs>http://blogs.law.harvard.edu/tech/rss</docs>") strQuery = "SELECT TOP 5 FDATE as [Date],FTIME, FTB1 as Guest, FTB3 as Homepage, FTB4 as Subject, FMB1 as Message FROM guestbook order by FDATE desc, FTIME desc" Set objRS = objConn.Execute(strQuery) if objRS.EOF then ts.WriteLine("<item><title>Gaestebuch ist leer</title><link>http://www24.brinkster.com/jungbauer/asp/samples/append.asp</link>") ts.WriteLine("<description>Das Gaestebuch ist leer.</description>") ts.Write("<pubDate>") ts.Write(rfc822("EST")) ts.WriteLine("</pubDate></item>") else While Not objRS.EOF ts.WriteLine("<item><title>" & objRs("guest") & " " & objRs("Subject") & "</title><link></link>") ts.WriteLine("<description>" & objRs("Message") & "</description>") ts.WriteLine("<pubDate>" & make_rfc822(objRs("DATE"), objRs("FTIME"),"EST") &"</pubDate></item>") objRS.MoveNext Wend end if ts.WriteLine("</channel></rss>") ts.Close set ts=Nothing %> <% set fld=Nothing set fso=Nothing %> <% End If %> <% function make_rfc822(Datum, UhrZeit, TimeZone) dim tag tag= Array("Mon","Tue","Wed","Thu","Fri","Sat","Sun") monat = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec") strTagname=tag(Weekday(Datum,2)-1) & "," strTag=" " & Day(Datum) strMonat=" " & monat(Month(Datum)-1) strJahr=" " & year(Datum) Zeit=UhrZeit strStunde=Hour(Zeit) if strStunde < 10 then strStunde=" 0" & strStunde else strStunde=" " & strStunde strMinute=Minute(Zeit) if strMinute < 10 then strMinute=":0" & strMinute else strMinute=":" & strMinute strSekunde=Second(Zeit) if strSekunde < 10 then strSekunde=":0" & strSekunde else strSekunde=":" & strSekunde make_rfc822=strTagname & strTag & strMonat & strJahr & strStunde & strMinute & strSekunde & " " & TimeZone end function Hier die wichtigsten Anmerkungen zum Quelltext.
In der Anweisung set fld=fso.getfolder(server.mappath(".")) wird das aktuelle Verzeichnis auf deinem Server zurueckgegeben.
Mit MyPath=fso.BuildPath(fld.Path, "myguests.xml") bestimmen wir den Pfad zu unserer Datei.
Wichtig: Unser Script braucht Schreibrechte für dieses Verzeichnis..
Neu ist auch die Verwendung der Tags copyright, webMaster, language und lastBuildDate in userer RSS Datei.
In der copyright Zeile achte man auf das <![CDATA[ ]]> Dieses CDATA braucht man immer dann, wenn man so etwas wie © oder ü ausgeben möchte.
Das lastBuildDate gibt an, zu welchem Zeitpunkt die RSS Datei geschrieben wurde.

Mein Gaestebuch als RSS. (statische XML Datei)

Gerade eben stellte ich fest, dass mein Brinkster meinem Script keine Schreibrecht gewährt.

Dann wenden wir uns wieder der 2. Alternative zu. Dynamisch mittels Datenbankabfrage.

Schau mer mal RSS: write_top5gb.asp RSS2HTML: RSS2HTML (live)

Geschrieben von Matthias Jungbauer am 24. Juli 2005, letzte Erweiterung am 4. August 2005.

Quellenverzeichnis:

RSS to HTML, RSS2HTML, 2005, (13. Juli 2005)