Jeg kan prøve at hjælpe dig udfra den måde jeg selv gør det på. Jeg koder i asp og benytter en database til at lagre min information i!
1. Hent Microsofts DHTML editoer hvis du ikke allerede har gjort det:
http://msdn.microsoft.com/downloads/samples/internet/browser/editcntrl/dhtmsamp.exe2. Åben dernæst filen builded.htm der ligger i følgende mappe hvis du har udpakket overstående fil:
SAMPLES/Web/WebApp/builded.htm
3. Find følgende i din builded.htm (Er noget af det sidste der er i filen):
<!-- Form for posting updated files back to server -->
<form NAME="UploadForm" action="upload.asp" method="POST">
Her skal du ændre upload.asp til navnet på den side som du vil have der skal modtage teksten du har skrevet. Det skal være en asp side for at de næste koder virker!
4. Du skal nu oprette eller rediger den fil du vil overføre informationerne til eks upload.asp
Uploas.asp:
-----------
<html>
<head>
<title>Upload</title>
</head>
<%
'--- Nyheder Opret ---
mode=request("mode")
mode1=request.Form("Submit")
if mode="opret" OR mode1="Opret Nyheden" then
'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"
'Hvis brugeren har submittet formularen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Tjecker om felterne er udfyld
if (Request.Form("title") <> "" AND Request.Form("nyhed") <> "") then
'Tilføjer brugeren til databasen
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from nyheder"
rs.Open strsql, conn, 1, 3
'Tilføjer nyheden til databasen
rs.AddNew
rs("title") = Server.HTMLEncode(Request("title"))
rs("nyhed") = Replace(Request("nyhed"), vbCrLf, "<br>")
rs("dato") = Now()
rs.update
Response.Write("<strong><font color=000000>Din nyhed er nu postet!</font></strong>")
rs.Close
set rs = nothing
else
Response.Write"<strong><font color='#ffffff'>Du mangler at udfylde en eller flere felter!</font></strong>"
Response.Write"<script>"
Response.Write"window.setTimeout('history.back();',2000);"
Response.Write"</script>"
end if
end if
%>
<form action="admin.asp" method="post">
<td width="17%"><b>Title <font color="#336699">*</font></b></td>
<td width="83%"><input name="title" type="textbox" class="InputTable" size="40"></td>
</tr><br>
<tr>
<td width="17%"><b>Nyhed <font color="#336699">*</font></b></td>
<td width="83%">
<textarea cols="79" rows="13" name="nyhed"></textarea></td>
</tr>
</table>
<p align="center"><a href="builded.htm">Editor</a><br>(Kræver Internet Explorer 5 eller højere) </p>
<p>Felterne med en * skal udfyldes!</p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="100%">
<p align="center">
<input name="submit" type="submit" class="Button" value="Opret Nyheden">
<input name="reset" type="reset" class="Button" value="Slet og Start Forfra">
<input name="submit" type="submit" class="Button" value="Preview"></td>
</tr>
</table>
<% '--- Nyheder Editor ---
Elseif mode="editor" then %>
<form action="admin.asp" method="post">
<td width="17%"><b>Title <font color="#336699">*</font></b></td>
<td width="83%"><input name="title" type="textbox" class="InputTable" size="40"></td>
</tr><br>
<tr>
<td width="17%"><b>Nyhed <font color="#336699">*</font></b></td>
<td width="83%">
<textarea cols="79" rows="13" name="nyhed"><%=Request.Form("UploadDocument")%></textarea></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="100%">
<p align="center">
<input name="submit" type="submit" class="Button" value="Opret Nyheden">
<input name="reset" type="reset" class="Button" value="Slet og Start Forfra">
<input name="submit" type="submit" class="Button" value="Preview"></td>
</tr>
</table>
<% '--- Forsiden ---
else %>
<form action="admin.asp" method="post">
<td width="17%"><b>Title <font color="#336699">*</font></b></td>
<td width="83%"><input name="title" type="textbox" class="InputTable" size="40"></td>
</tr><br>
<tr>
<td width="17%"><b>Nyhed <font color="#336699">*</font></b></td>
<td width="83%">
<textarea cols="79" rows="13" name="nyhed"></textarea></td>
</tr>
</table>
<p align="center"><a href="builded.htm">Editor</a><br>(Kræver Internet Explorer 5 eller højere) </p>
<p>Felterne med en * skal udfyldes!</p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<td width="100%">
<p align="center">
<input name="submit" type="submit" class="Button" value="Opret Nyheden">
<input name="reset" type="reset" class="Button" value="Slet og Start Forfra">
<input name="submit" type="submit" class="Button" value="Preview"></td>
</tr>
</table>
<%
End if
%>
</form>
</body>
</html>
----------
Jeg går ud fra i min uploads.asp at du har kaldt din editor "builded.htm" samt at upload.asp filen og builded.htm filen ligger i samme mappe. Desuden har jeg ladet den database som du skal føre teksten over i kalde db.mdb og den har en talbel: "nyheder" med følgende kolonner:
title
nyhed
dato
5. Du kan nu oploade alle dine sider og databasen og så skal du gerne kunne overføre teksten fra din editor til en database. Hvis du ikke vil have at man skal kunne skrive tekst i en almindelig editor så kan du bare skjule den. Jeg har lavet det sådan at det er meningen at man åbner upload.asp som den første. Så er det mulighed for at skrive en hurtig simpel besked som vi gøre her på eksperten og hvis der er nogen der vil lave noget fancy så kan de åbne editoren ved at trykke på editor.
6. Hvis du skal hente informationerne fra siden kan det gøres med denne kode:
------
<%
' Connection til database
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db.mdb")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};Password=1234 ;" & DBPath
strSQL = "SELECT * FROM nyheder ORDER BY Dato DESC"
set rs = conn.execute(strSQL)
%>
Titel: <%=rs("title")%>
Dato: <%= FormatDateTime(rs("dato"),1)%>
Nyhed: <%=rs("nyhed")%>
-----------
Jeg håber du kan bruge det til noget ... ellers er der da noget du kan starte med og få nogle ideer fra!
