Textfiler

7 svar · 840 visningar · startad av J0han 16 juli 2000

J0han

Trådstart16 juli 2000 14:37#1

Pysslade lite med textfiler i ASP, tänkte göra en enkel sidan som man kunde lagra text i, jaja, hursomhelst, men jag får ett fel och jag vet inte vad jag ska göra för att åtgärda det. Här är lite kod:

spara.asp

<html>
<head>
</head>
<body>
<%
dim namn
namn = request.form("namn")
Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject")
Set MinFil = MittTxtObj.OpenTextFile("c:\Inetpub\wwwroot\fil.txt")
MinFil.WriteLine namn
MinFil.Close
%>
</body>
</html>

felmeddelandet

Serverobjekt fel 'ASP 0177 : 800a0036' 

Server.CreateObject misslyckades 

/spara.asp, rad 7 

00000000

Det vore helnice om nån kunde berätta vad som e fel..

@ndersMedlem sedan juni 200032 967 inlägg

16 juli 2000 18:03#2

gissar på att iusr_xxx inte har skrivrättighet i mappen du försöker skriva till.

J0han

16 juli 2000 22:43#3

jo, mappen har alla rättigheter, jag kör på PWS 4.0... det måste vara nåt annat...

ZaphodMedlem sedan maj 2000107 inlägg

17 juli 2000 01:00#4

Verkar snarare vara så att du inte har filesystemobject installerat(?!).

testa detta:

On Error Resume Next
dim objFso
set objFso = Server.CreateObject("Scripting.Filesystemobject")
If IsObject(objFso) Then
Response.Write  "Kanon fett: objFso är ett objekt"
Else
Response.Write "Himmel å pannkaka: objFso kunde inte skapas"
End if

Så får du reda på vilket som är fallet.

J0han

17 juli 2000 17:53#5

Jag får upp "Kanon fett: objFso är ett objekt", så jag antar att det inte var felet...

@ndersMedlem sedan juni 200032 967 inlägg

17 juli 2000 18:12#6

hördudu, förresten, en liten idé:

kan det vara så att filen du försöker skriva till inte finns? pröva i så fall med CreateTextFile istf OpenTextFile. (alternativt lägg till parametern som säger skapa om filen inte finns (minns dock inte vilket värde det ska vara...)

J0han

17 juli 2000 20:29#7

jo, filen den finns... det måste vara nåt annat...

PatrikBMedlem sedan mars 20002 836 inlägg

17 juli 2000 23:18#8

Hello,
detta funkar:

<html>
<head>
</head>
<body>
<%
dim namn
namn = Request.Form("namn")

	Set MittTxtObj = Server.CreateObject("Scripting.FileSystemObject")
	Set MinFil = MittTxtObj.OpenTextFile("c:\inetpub\wwwroot\fil.txt",8)

		MinFil.WriteLine namn

		MinFil.Close

	Set MinFil = Nothing
	Set MittTxtObj = Nothing
%>
</body>
</html>

8 efter sökvägen gör så att det lägger till namn efter namn.
byt till 1 om du vill skriva över

cya
PatrikB