I denna tråden står det många bra punkter.
Såsom att skriva ut felmeddeladet, och använda [kod]-taggarna.
3 svar · 261 visningar · startad av Sammy
Varför fungerar inte nedan kod?
Jag ligger på ett webbhotell som tidigare använde sig av FSO men ändrade igår till ISSecureFile.FileSystemObject.
Enligt manualen ska jag bara ändra Scripting.FileSystemObject mot ISSecureFile.FileSystemObject och det är gjort.
Det fungerar ändå inte!? Tacksam för svar!
Ändrade också .Close till .CloseFile
Manualen finns på: http://www.baygan.com/Issecurefile.asp
<%
IF Request.Cookies("Add") = "" Then
Set Conn = CreateObject("ISSecureFile.FileSystemObject")
Set RecSet = Conn.OpenTextFile(Server.Mappath("count.txt"))
Counter = RecSet.Readline
Counter = Counter + 1
RecSet.Close
Set RecSet = Conn.CreateTextFile(Server.Mappath("count.txt"), true)
RecSet.WriteLine(Counter)
RecSet.CloseFile
Response.Cookies("Add") = "Count"
Response.Cookies("Add").Expires = Date + 1000
End If
%>
<%
Set Conn = CreateObject("ISSecureFile.FileSystemObject")
Set RecSet = Conn.OpenTextFile(server.mappath("count.txt"))
Counter = RecSet.Readline
Counter = Counter + 0
RecSet.CloseFile
Set RecSet = Conn.CreateTextFile(Server.Mappath("count.txt"), true)
RecSet.WriteLine(Counter)
RecSet.CloseFile
%>
I denna tråden står det många bra punkter.
Såsom att skriva ut felmeddeladet, och använda [kod]-taggarna.
Tack för tipset, det var ett tag sedan jag skrev något här och visste inte om dessa nya "regler".
Fixade detta nu med kod-taggarna och såg också nu när jag läste koden att jag glömt RecSet.CloseFile på första RecSet.
Nu fungerar därför scriptet.
Note: Fick inget felmeddelande så därför kunde jag inte skriva ut något!!!
Note: Fick inget felmeddelande så därför kunde jag inte skriva ut något!!!
Då blir det genast lite svårare.
Bra att det löste sig.