Jeg vil foreslå dig bare at bruge en almindelig textfil('guestbook.txt') til at gemme gæstebogen i - medmindre I forstiller jer at gæstebogen bliver fyldt med mange mange tusinde tegn!
ASP-delen:
Til at læse i gæstebogen laver du en aspfil der hedder 'readguestbook.asp' med følgende kode:
<%
Dim fso, f, filespec
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../dindatamappe/guestbook.txt")
Set f = fso.OpenTextFile(filespec,1)
Response.write f.ReadLine
f.Close
%>
Til at skrive i gæstebogen laver du en aspfil der hedder 'writeguestbook.asp' med følgende kode:
<%
Dim fso, f, filespec
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("../dindatamappe/guestbook.txt")
Set f = fso.OpenTextFile(filespec,2)
f.WriteLine "tekst=" & request("tekst")
f.Close
Response.Write "success=true"
%>
Flash-delen:
For at hente teksten ind i flash laves et textfield med instancename 'dittextfield' og i samme frame ligges actionscriptkoden:
loadtext = new LoadVars();
loadtext.sendAndLoad("readguestbook.asp", loadtext, "POST");
loadtext.onLoad=function(success){
if(success) {
dittextfield.text=loadtext.tekst;
}
}
For at gemme ny tekst via flash laves der 4 inputfields med instancename 'navn','mail', 'www' og 'besked':
Der Laves desuden en knap med koden:
savetext = new LoadVars();
savetext.tekst=loadtext.tekst+"\n"+navn.text+"\n"+mail.text+"\n"+besked.text;
savetext.sendAndLoad("writeguestbook.asp", savetext, "POST");
savetext.onLoad=function(success){
if(success) {
gotoAndStop(?);
}
}
Det er ikke efterprøvet, så måske er der fejl, men det grundlæggende skulle være iorden ;)
/Alexander
Ps. spørgsmålet har været oppe et par gange før, men de fleste tutorials(i hvert fald dem på dansk) er forsvundet fra nettet!
Hvis du ikke kan få ovenstående til at virke, så prøv følgende link:
http://www.flashkit.com/search.php?term=guestbook&per=10&cat=tutorials&page=1
