ASP-koden i default.asp

I filen default.asp som du tidigare skapade skall du nu lägga till den ASP-kod som behövs för att få allt att fungera. Det är ett ganska kort kodblock, som skall placeras efter FORM-elementets avslutande P-tagg – alltså i luckan mellan de här raderna:

</FORM></P>

</TD></TR>

ASP-koden ser ut så här:

Den här koden innehåller en del som egentligen inte behövs. Men om du senare skulle pröva en annan metod för att läsa från och skriva till textfilen i skriv.asp, har du nytta av det här. Därför tar jag med den "överflödiga" koden här.

Först av allt skapar du variabeln strMinFil, som innehåller information om var textfilen finns. Använd en av de båda metoder som anges i koden, beroende på var du tänker lägga textfilen. Så länge du provkör gästboken på datorn hemma utan att vara uppkopplad, måste du använda Server.MapPath(). Se till att en av de båda raderna är kommenterad med en enkelfnutt i början.

Sedan öppnar du filen. Först skapar du ett filsystemobjekt som gör att du kan läsa från textfilen.

Därefter kommer en villkorskod, som börjar med "If fsoMinFil.FileExists" och fortsätter genom resten av ASP-koden fram till och med "End if".

Om filen som anges i variabeln fsoMinFil finns, kommer variabeln "strMinTextFil" att skapas. Denna kommer att använda objektet fsoMinFil för att öppna filen i StrMinFil.

Om filen inte finns händer på den här sidan ingenting förutom att ASP-skriptet avslutas. Däremot blir det ett felmeddelande när besökaren klickar på Skicka-knappen, eftersom filen som anropas i skriv.asp inte existerar.

Den här slingan, som upprepas tills strMinTextFil har kommit till slutet av textfilen, behövs egentligen inte. Den läser in texten från textfilen rad för rad, men eftersom allt innehåll i textfilen redan ligger i en enda rad finns det bara en rad att läsa. Variabeln strMinTextFil når alltså slutet på textfilen redan i första varvet.

Om du ändrar metod för att läsa från och skriva till textfilen, så att innehållet hamnar på flera rader, kommer slingan att behövas. Så låt den ligga kvar – den gör ingen skada.

WHILE NOT ... WEND-slingan passerar i varje varv förbi den här raden och skriver då innehållet i strMinTextFil till sidan.

Slutligen stänger du textfilen och sätter ut ett avslutande "End if". Glöm inte att skriva in den avslutande skriptavgränsaren %>. Spara filen default.asp.

Eftersom all din text finns i en enda rad, kan du korta ned koden. Byt i så fall ut all kod från raden under "'Öppna gästboksfilen" till och med "End if" mot följande:

© SupportData.Net