Questo è il codice dello script che uso per creare pagine html e contemporaneamente salvarle nel db.
codice:
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" bgcolor="#000080" height="32">
<tr>
<td width="100%" height="32">
<p align="center"><font color="#FFFFFF" face="Verdana">Crea una nuova
pagina</font></td>
</tr>
</table>
</center>
</div>
<meta http-equiv="Content-Language" content="it"><%@LANGUAGE="VBSCRIPT"%>
<font face="Verdana" size="2" color="#000080">
<%
set db = Server.CreateObject("ADODB.Connection")
connect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("../mdb-database/links.mdb")
db.Open connect
Dim path
Dim objMakeFile
Dim objFso
Dim objFile
path= "../public/pagine/"
If Request.Form("NewPage")="Yes" Then
objFile=Server.MapPath(path & Request.Form("Page") & ".html")
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objMakeFile = objFso.CreateTextFile(objFile, 2, True)
strPath = path & Request.Form("Page") & ".html"
virtPath = "" & strPath
Page = Request.Form("Page")
Page = replace(Page, "'", "''")
Associate=Request.Form("Associate")
Associate= replace(Associate, "'", "''")
Ranking=Request.Form("Ranking")
Ranking= replace(Ranking, "'", "''")
Cont=Request.Form("Cont")
Cont= replace(Cont, "'", "''")
sql = "INSERT INTO linksdata (Associate,Description,link,Cont) values ('"&Associate&"','"&Page&"','"&virtPath&"','"&Cont&"')"
db.Execute(SQL)
objMakeFile.WriteLine("<font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">")
objMakeFile.WriteLine(Request.Form("Cont")&"</font>
")
objMakeFile.Close
Set objFso = Nothing
Response.Redirect path & Request.Form("Page") & ".html"
Else
Response.Write vbCrLf & "<form name=""NewPage"" method=""post"" action="""&Request.ServerVariables("SCRIPT_NAME")&""">"
Response.Write vbCrLf & "<input type=""hidden"" value=""Yes"" name=""NewPage"">"
%>
</font>
<font face="Verdana" size="1" color="#000080">
</font>
<font face="Verdana" size="2" color="#000080">
<% Response.Write vbCrLf%> Nome pagina:
<input type="text" size="19" name="Page"Page"">
<% Response.Write vbCrLf%> Menu Principale (numero):
</select>
<select name="Associate">
<%SQL="SELECT * FROM categories"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec = Conn.Execute(SQL)
While Not rec.EOF%>
<option>
<% =rec("id") %>
</option>
<%rec.MoveNext
Wend
rec.close%>
</select>
</font>
<font face="Verdana" color="#000080" style="font-size: 5pt">
</font>
<font face="Verdana" size="2" color="#000080">
<%
Dim oFCKeditor
Set oFCKeditor = New FCKeditor
oFCKeditor.BasePath = "../FCKeditor/"
oFCKeditor.Create "Cont"
%>
<center>
<%
'Response.Write vbCrLf & "Contenuto
<textarea name=""Cont"" rows=""5"" cols=""50""></textarea>
"
Response.Write vbCrLf & "<input type=""submit"" value="" Crea e Visualizza Pagina >> "">"
Response.Write vbCrLf & "</form>"
End If
db.Close
set db = Nothing
%>
</center>
</font></p>
<form method="POST" action="--WEBBOT-SELF--">
</p>
</form>
La pagina puoi chiamarla come vuoi, per esempio crea_nuova_pag.asp e la devi mettere in una cartella (per esempio di nome nuove ) che stia allo stesso livello della cartella FckEditor, mdb-database e public.
All'interno della cartella public crea una cartella di nome pagine
Chiaramente devi cambiare il nome del database, della tabella e dei campi e metterci il nome dei tuoi.
Per problemi sono a tua disposizione.
Enza
Rispondi quotando
sono troppe le cose che non so ... il mio pc non ne può più ... poverino ... aiutatemi, ve ne prego!
