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 ?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
