27. april 2001 - 11:33Der er
6 kommentarer og 1 løsning
oprette side +lidt mere
jeg har igennem en andens sprøgsmål fundet ud af at man opretter asp-sider med følgende kode:
<% Set fso = CreateObject(\"Scripting.FileSystemObject\") Set MyFile = fso.CreateTextFile(server.mappath(\"side.asp\"), True) MyFile.Write(request.form(\"indhold\")) MyFile.Close %>
Men hvad så når man selv vil definere sidens navn, er det bare: <% Set fso = CreateObject(\"Scripting.FileSystemObject\") Set MyFile = fso.CreateTextFile(server.mappath(\"(request.form(\"sidenavn\").asp\"), True) MyFile.Write(request.form(\"indhold\")) MyFile.Close %>
eller ?
Og så lige en ekstra lille ting...hvordan sørger man for at den ikke kan overskrive en allerede oprettet side ?
Manuelle og semi-automatiske strategier for identitetsstyring virker - lige indtil nogen beder om dokumentation. For at undgå denne fare har DKTV taget kontrol over sin identitets- og adgangsstrategi.
Set fso = CreateObject(\"Scripting.FileSystemObject\") if (fso.FileExists(filnavn)) then exit function Set MyFile = fso.CreateTextFile(server.mappath(filnavn), True) MyFile.Write(request.form(\"indhold\")) MyFile.Close
Ups. Der var en lille swipser. Her er en testet version:
<%
function Opretside (filnavn)
Set fso = CreateObject(\"Scripting.FileSystemObject\") if (fso.FileExists(server.mappath(filnavn))) then exit function Set MyFile = fso.CreateTextFile(server.mappath(filnavn), True) MyFile.Write(request.form(\"indhold\")) MyFile.Close
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.