Hallo,
so, das Gästebuch besteht aus 5 Dateien.
Ich hoffe das, das so richtig ist.
xml.swf
xml.fla
myxml.xml
myxml.asp
xml.asp
xml.asp
<%Response.Expires = 0%>
<HTML>
<HEAD>
<TITLE>xml</TITLE>
</HEAD>
<BODY bgcolor="#000000">
<!-- URL's used in the movie-->
<!-- text used in the movie-->
<OBJECT classid="clsid
27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,2,0"
WIDTH=400 HEIGHT=300>
<PARAM NAME=movie VALUE="xml.swf"> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#000000> <EMBED src="xml.swf" quality=high bgcolor=#000000 WIDTH=400 HEIGHT=300 TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>
</OBJECT>
</BODY>
</HTML>
myxml.asp
<%@ Language=VBScript %>
<%
Option Explicit
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fsoObject, fileName, filTextStream, strName, strEmail, strMessage, strDate, strData, strOldData, x, filepath
Dim process
'Get Path of Current ASP file
filepath = Server.MapPath("myxml.asp")
'Use The Path
filepath = left(filepath, len(filepath) - 9)
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set fileName = fsoObject.GetFile(filepath & "myxml.xml")
Set filTextStream = fileName.OpenAsTextStream(ForReading, TristateFalse)
strOldData = filTextStream.ReadAll
x = len(strOldData) - 13
strData = Mid(strOldData, 1, x)
'Response.Write strData
filTextStream.close
Set filTextStream = fileName.OpenAsTextStream(ForWriting, TristateFalse)
strDate = Date
strName = Request.Form("strName")
strEmail = Request.Form("strEmail")
strMessage = Request.Form("strMessage")
'strData = Mid(strData, 32)
strData = strData & vbcrlf & "<entry>" & vbcrlf
strData = strData & "<date>" & strDate & "</date>" & vbcrlf
strData = strData & "<name>" & strName & "</name>" & vbcrlf
strData = strData & "<email>" & strEmail & "</email>" & vbcrlf
strData = strData & "<message>" & strMessage & "</message>" & vbcrlf
strData = strData & "</entry>" & vbcrlf
strData = strData & "</sqltable>"
filTextStream.Write strData
filTextStream.close
Set fsoObject = nothing
set fileName = nothing
set filTextStream = nothing
process = true
Response.Expires = 0
myxml.xml
<?xml version="1.0"?><sqltable>
<entry>
<date>9/12/2000</date>
<name>Brent Ziemann</name>
<email>brent@ribit.com</email>
<message>Here is my newest creation. It's a guestbook written with asp, xml, and flash 5.0.
Enjoy!</message>
</entry>
<entry>
<date>9/13/00</date>
<name>Brent Ziemann</name>
<email>brent@ribit.com</email>
<message>This is just another record letting you know that the guestbook does work.
Have fun with it and learn from it.
Brent.</message>
</entry>
</sqltable>
mfg
JohnnyEnglish
