Online system

Når du opretter en side, så gemmer du bare disse informationer i databasen, så kan jeg da ikke se noget problem: Sti, beskrivelse
Er det det du mener?
P.S. hvis jeg har forstået spørgsmålet ret, så er 200 point lidt for meget...

kan man hente stien via en database???? hvis man kan, vil du så ikke lige forklare hvordan....

Når siden bliver oprettet online, så skal man vel også indtaste stien hvor siden bliver oprettet, det er da bare at gemme den, eller er der noget jeg har misforstået?

Jeg holder med egede, men der skal da alligevel lidt mere til når man skal redigere filen/slette den. Eller hvad.

Jamen, kan man gøre det sådan at man kan lægge stien på filerne ind i databasen, og når den så loader siden, så henter den sider ved hjælp af stien som står i databasen....

Hvis det er nogen hjælp, så skal det minde lidt om det system som de har på friserverplads.dk

Så vidt spørgsmålet er forstået, sagtens :-)
Har du ikke et eksempel på systemet?

jeg har det der slet/opret/redigere  filerne, jeg skal bare have den til at få til at redigere de rigtige filer..

et eksempel????

slet og redigere skal køre på almindelige database forespørgelser... det samme skal opret, hvis dedt kan lade sig gøre....

Jeg kunne godt tænke mig at vide hvordan redigere, er det billeder, tekstdokumenter eller hvad.

Jeg tænkte på om du har lavet et eksempel på hvordan man opretter siderne (altså noget HTML).

<%
filnavn = "onlinesystem.asp"

if mode = "opret_fil" then
                           
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if Request.form("file_type") = "andet" then
filnavn = Request.Form("navn")& "." & Request.Form("andet")
else
filnavn = Request.Form("navn")& "." & Request.Form("file_type")
end if
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.CreateTextFile(Server.MapPath(filnavn))
file.Write(Request.form("fil"))
file.close
Response.Write("<b>Filen er oprettet</b>")
end if               
%>
<form method=post action=<%=filnavn%>?action=opret_fil>
<table border=0>
<tr>
<td>Navn på filen</td>
<td><input type=text name=navn></td>
</tr>
<tr>
<td>Type</td>
<td><select name=file_type>
<option value=".asp">*asp</option>
<option value=".htm">*htm</option>
<option value=".html">*html</option>
<option value=".inc">*inc</option>
<option value=".php">*php</option>
<option value="andet">Andet</option>
</select>
</td>
</tr>
<tr>
<td>Hvis andet:</td>
<td><b>.&nbsp</b><input size=2 type=text name=andet value=""></td>
</tr>
>tr>
<td>Indhold af fil:</td>
<td>&nbsp</td>
</tr>
<tr>
<td colspan=2><textarea name=fil rows=30 cols=50></textarea></td>
</tr>
<tr>
<td>&nbsp</td>
<td><input type=submit value="Lav fil"></td>
</tr>
</table>
</form>
<% end if %>

Hvad er der så galt med at putte variablen "filnavn" ind i en database?

hvordan mener du???

Så kunne du jo godt lave det sådan at indholdet af filen (dit textarea) bliver indsat i din database.

Så når man henter en bestemt fil skal du bare lave en søgning i en database.

SQL = "Select * From Tabelnavn Where sti = stien_på_filen"

Også lave nogle variabler som kan bruges senere

If Not rs.EOF Then
sti = rs("sti")
indholdet = rs("Indholdet")
Beskrivelse = rs("beskrivelse")
Else
Response.Write filen findes ikke
End If

Så kan man jo nemt ændre på filen ikke, da du bare bruger variablen Indholdet.
Så udskriver du bare din variabel til redigering.
Response.Write "<textarea name=fil rows=30 cols=50>" & Indholdet & "</textarea>"


Og når man så gemmer det igen opdaterer du både filen på serveren og databasen så de altid er ens.

og sletning er bare at slette filen med filesystem og slette den i databasen.

Sådan kan det da løses.

kan du ikke lige smide et eksempel op, for jeg ved ikke lige hvordan jeg skal få sat det du lige har skrevet ind i koden....

bliver databsen så ikke hurtigt meget stor, for der kan jo være mange tegn på sådan en side....

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("DINDB.mdb")
Conn.Open DSN
strSQL = "Insert into TABELNAVN (sti, beskrivelse) values ("&filnavn&","&Request.form("beskrivelse")"
Conn.execute(strSQL)
%>

jo du smider det her ind i toppen eller et andet sted
<%
If (Request.Form("fil") > "") Then

Set Conn = Server.Createobject("ADODB.Connection")
'I dette tilfælde er det en Access database.
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

stien = ved ikke lige hvordan den ser ud
beskivelsen = beskrivelsen af filen
Indholdet = Request.Form("fil")

SQL = "Insert into Tabel(sti,beskrivelse,indholdet) values('" & stien & "','" & beskrivelsen & "','" & Indholdet & "',)"
Conn.Execute(SQL)

End If
%>

Sådan skal det sættes ind, og det loades på den måde som -master-d- kom med...

okai... prøver det lige... vender tilbage

og når du så skal opdatere laves det sådan her

<%
If (Request.Form("fil") > "") Then

Set Conn = Server.Createobject("ADODB.Connection")
'I dette tilfælde er det en Access database.
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

Indholdet = Request.Form("fil")

SQL = "Update Tabel SET Indholdet = " & Indholdet & " Where sti = stien"
Conn.Execute(SQL)

End If
%>

man kan godt skrive det sådan ik?

stien = Request.Form("sti")
beskivelsen = Request.Form("beskrivelse")
Indholdet = Request.Form("fil")

så skal den altså se sådan ud...

<%@ Language=VBScript %>

<%
filnavn = "onlinesystem.asp"

If (Request.Form("fil") > "") Then

Set Conn = Server.Createobject("ADODB.Connection")
'I dette tilfælde er det en Access database.
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

stien = Request.Form("sti")
beskivelsen = Request.Form("beskrivelse")
Indholdet = Request.Form("fil")

SQL = "Insert into Tabel(sti,beskrivelse,indholdet) values('" & stien & "','" & beskrivelsen & "','" & Indholdet & "',)"
Conn.Execute(SQL)

End If

if mode = "opret_fil" then
                           
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if Request.form("file_type") = "andet" then
filnavn = Request.Form("navn")& "." & Request.Form("andet")
else
filnavn = Request.Form("navn")& "." & Request.Form("file_type")
end if
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.CreateTextFile(Server.MapPath(filnavn))
file.Write(Request.form("fil"))
file.close
Response.Write("<b>Filen er oprettet</b>")
end if               
%>
<html>
<head>
<title>Gigaload.dk - Online ASP/HTML</title>
</head>
<body>

<form method=post action=<%=filnavn%>?action=opret_fil>
<table border=0>
<tr>
<td>Navn på filen</td>
<td><input type=text name=navn></td>
</tr>
<tr>
<td>Type</td>
<td><select name=file_type>
<option value=".asp">*asp</option>
<option value=".htm">*htm</option>
<option value=".html">*html</option>
<option value=".inc">*inc</option>
<option value=".php">*php</option>
<option value="andet">Andet</option>
</select>
</td>
</tr>
<tr>
<td>Hvis andet:</td>
<td><b>.&nbsp</b><input size=2 type=text name=andet value=""></td>
</tr>
>tr>
<td>Indhold af fil:</td>
<td>&nbsp</td>
</tr>
<tr>
<td colspan=2><textarea name=fil rows=30 cols=50></textarea></td>
</tr>
<tr>
<td>&nbsp</td>
<td><input type=submit value="Lav fil"></td>
</tr>
</table>
</form>
<% end if %>

jo, det ser fint ud.

eller hvad hvor i den formular har du da stien og beskrivelsen.

okai... takker