ASP problem (vad annars)

4 svar · 171 visningar · startad av Skarre 18 sep. 2001

SkarreMedlem sedan apr. 20012 427 inlägg

18 sep. 2001 17:21#1

En del av er kanske kommer ihåg ett tidigare inlägg där jag bad om hjälp med asp-kod som inte fungerade på min IIS, och jag måste faktiskt pröva att fråga en sista gång om detta eftersom jag inte kan öva på ASP hemma utan en fungerande ASP-server, och detta kommer att leda till att jag kommer efter i plugget.

Jag har försökt tillämpa ett exempel från webstudio där författaren skapar ett enkelt annonssystem. En användare ska skicka lite text via ett formulär till filen "process.asp" som ska lägga informationen i en textfil.

Skulle någon/några vilja titta på koden och eventuellt testa om den fungerar på er IIS. Jag vill bara veta om det är IIS:en eller koden det är fel på.

Koden i formulärsidan:

<html>
<head>

</head>
<body>

<form name="formular" method="post" action="process.asp"> 

  <p>Namn:<br>
  <input type="text" size="30" name="namn"></p>

  <p>E-post:<br>
  <input type="text" size="30" name="epost"></p>

  <p>Hemsida:<br>
  <input type="text" size="30" name="hemsida"></p>

  <p>Annonstext:<br>
  <textarea rows="10" cols="40" name="annons"></textarea></p>

  <p><input type="submit" value="Skicka!">
  <input type="reset" value="Radera"></p>

</form>

</body>
</html>

Koden i "process.asp":

<%@ language="VBScript"%>
<html>
<head>

</head>
<body>

<%

Dim fso, txt 
Set fso = CreateObject("Scripting.FileSystemObject") 

If fso.FileExists("data.txt") = False Then 
	Set txt = fso.CreateTextFile("data.txt", 8) 
Else 
	Set txt = fso.OpenTextFile("data.txt", 8) 
End If

txt.WriteLine Request.Form("namn")
txt.WriteLine Request.Form("epost")
txt.WriteLine Request.Form("hemsida")
txt.WriteLine Request.Form("annons") 

txt.Close

%>

</body>
</html>

Det som händer när jag försöker köra detta är att browsern sakta, sakta försöker ladda "recieve.asp", men blir aldrig färdig, och eftersom IE aldrig slutar försöka ladda sidan får jag inget felmeddelande.

Efter att detta hänt händer samma sak med alla asp-sidor jag försöker ladda, även om de fungerade innan. Inte förrän jag startat om datorn kan jag köra asp-sidor igen.

Koden:

Dim fso, txt 
Set fso = CreateObject("Scripting.FileSystemObject")

Fungerar fint, men så fort jag lägger till t.ex.:

Set txt = fso.CreateTextFile("data.txt")

Pajar det ihop enligt ovanstående beskrivning.

Tack på förhand!

------------------
// Skarre

SkarreMedlem sedan apr. 20012 427 inlägg

19 sep. 2001 07:01#2

Nu har jag i alla fall lyckats utesluta fel på koden eftersom den fungerade på skolans server. Om någon som läser kan ha en aning om vad som orskar problemen skulle jag uppskatta ett inlägg.

------------------
// Skarre

[Redigerat av Skarre den 19 sep 2001]

OveRRidEMedlem sedan feb. 200112 078 inlägg

19 sep. 2001 11:06#3

Set txt = fso.CreateTextFile("data.txt")

Kan inte det ha att göra med att du inte har rättighet att skapa en textfil kanske?

------------------
Om hus byggdes såsom vissa programmerare skriver program, skulle första bästa hackspett ruinera vår civilsation.

EclipseMedlem sedan juli 20003 825 inlägg

19 sep. 2001 13:59#4

Annonssystem i textfiler kan ju inte bli annat än skit.

Du borde kolla in Access, även om det kanske tar emot i början.

SkarreMedlem sedan apr. 20012 427 inlägg

19 sep. 2001 15:49#5

OveRRidE, jag har kollat i IIS admin att mappen har alla tillåtelser som finns. Måste man kanske se till att mappen är "skrivbar" även i utforskaren? När jag högerklickar på mappen i utforskaren är rutan "Read only" ikryssad i grått som det brukar bli när filerna har olika tillåtelser, men även om jag tar bort krysset och klickar "apply" så ser det likadant ut nästa gång. Den vill liksom inte ge mappen skrivrättigheter.

Eclipse, jag inser självklart fördelarna med databaser, men poängen är att jag ska lära mig FileSystemObject innan jag går vidare.

------------------
// Skarre

[Redigerat av Skarre den 19 sep 2001]