De bedoeling is het wegschrijven van een toegangscode(dit is een klein stukje ervan)
Wanneer ik het volgende script run krijg ik een bad file mode error. Ik heb weleens gelezen dat als je een bad file mode krijgt dat er dan meerdere schrijf en leesacties in een sessie zitten, alleen is dat hier niet van toepassing.
---------------
foutcode:
---------------
Error Type:
Microsoft VBScript runtime (0x800A0036)
Bad file mode
/marco/exist.asp, line 18
Wanneer ik het volgende script run krijg ik een bad file mode error. Ik heb weleens gelezen dat als je een bad file mode krijgt dat er dan meerdere schrijf en leesacties in een sessie zitten, alleen is dat hier niet van toepassing.
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| <%
Option Explicit
Dim objFileSys
Dim TheTextStream
Dim temparray
Dim str
str = "123456789:blank:wouterbe"
Dim user_old, passwd_old, productid_old, productid_new
tempArray =split(str,":")
user_old = LTrim(tempArray(0))
passwd_old = LTrim(tempArray(1))
productid_old = LTrim(tempArray(2))
productid_new = Request("productcode")
set objFileSys = Server.CreateObject ("Scripting.FileSystemObject")
set TheTextStream = objFileSys.OpenTextFile("d:\Inetpub\wwwroot\marco\wachtwoord.txt",1)
TheTextStream.WriteLine user_old & ":" & passwd_old & ":" & productid_new
TheTextStream.Close
%> |
---------------
foutcode:
---------------
Error Type:
Microsoft VBScript runtime (0x800A0036)
Bad file mode
/marco/exist.asp, line 18