mi ricollego ad un mio precedente post al quale mi era stato risposto
Ciao Ragazzi, sono ancora a richiedere aiuto a qualcuno
perchè dovrei formattare un testo nell'inserimento di dati in un form
di un db da pagina asp, tipo quel che si usa nel form in alto ci sono grassetto, etc.. size, font color etc...
vorrei poter associare alla mia pagina inserimento tipo questa
una formattazione del testo come si fa????
quì
weppos... ho visto il tuo post
Quì
dove dicevi:
Innanzi tutto la textarea non ha formattazione, eccetto per gli a capo.
Per mantenere la formattazione degli a capo è sufficiente PRIMA di inserire il contenuto richiamato dalla textarea nel database eseguire un replace
codice:
stringa = Replace(stringa, vbCrLf, "<br /
Per tutte le altre formattazioni basta non codificare il codice.
Se scrivi dunque
ciao nella textarea l'imput rimarrà in HTML e quindi il contenuto ciao verrà formattato.
io ho un casino generato da dreamweaver dove lo infilo???
ti posto il codice mi dici intanto questo??? grazie:
codice:
<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "form1") Then
'Setta il timestamp
vN = Now()
vTyear = Year(vN)
If Len(vTyear) = 1 Then vTyear= "0" & vTyear
vTmon = Month(vN)
If Len(vTmon) = 1 Then vTmon= "0" & vTmon
vTday = Day(vN)
If Len(vTday) = 1 Then vTday = "0" & vTday
vThour = Hour(vN)
If Len(vThour) = 1 Then vThour = "0" & vThour
vTmin = Minute(vN)
If Len(vTmin) = 1 Then vTmin = "0" & vTmin
vTsec = Second(vN)
If Len(vTsec) = 1 Then vTsec = "0" & vTsec
vTimeStamp = vTyear & vTmon & vTday & vThour & vTmin & vTsec
MM_editConnection = MM_database_STRING
MM_editTable = "tabella"
MM_editRedirectUrl = "modifica.asp?timestamp=" & vTimeStamp
MM_fieldsStr = "txt_oggetto|value|multi_testo|value|chk_invista|value|timestamp|value"
MM_columnsStr = "oggetto|',none,''|testo|',none,''|record_in_vista|none,1,0|time_stamp|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
'Memorizza il timestamp
MM_fields(7)=vTimeStamp
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_formVal = MM_fields(MM_i+1)
MM_typeArray = Split(MM_columns(MM_i+1),",")
MM_delim = MM_typeArray(0)
If (MM_delim = "none") Then MM_delim = ""
MM_altVal = MM_typeArray(1)
If (MM_altVal = "none") Then MM_altVal = ""
MM_emptyVal = MM_typeArray(2)
If (MM_emptyVal = "none") Then MM_emptyVal = ""
If (MM_formVal = "") Then
MM_formVal = MM_emptyVal
Else
If (MM_altVal <> "") Then
MM_formVal = MM_altVal
ElseIf (MM_delim = "'") Then ' escape quotes
MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
Else
MM_formVal = MM_delim + MM_formVal + MM_delim
End If
End If
If (MM_i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End If
MM_tableValues = MM_tableValues & MM_columns(MM_i)
MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
end if
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Toscanaoccasioni inserimento Eventi</title>
<style type="text/css">
<!--
.style14 { font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: medium;
font-weight: bold;
}
.style6 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: small; font-weight: bold; }
.style8 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: small; }
-->
</style>
</head>
<body>
<p class="style14">Inserisci nuovo record Eventi in Toscana
[img]../adminarea/p_ev.jpg[/img]</p>
<form name="form1" method="POST" action="<%=MM_editAction%>">
<table width="100%" border="1" bordercolor="#990000">
<tr>
<td colspan="2" height="8"></td>
</tr>
<tr>
<td width="9%"><span class="style6">Oggetto:</span></td>
<td width="91%"><span class="style8">
<input name="txt_oggetto" type="text" id="txt_oggetto" size="65" maxlength="50">
</span></td>
</tr>
<tr>
<td colspan="2" height="8"></td>
</tr>
<tr>
<td><span class="style6">Testo:</span></td>
<td><span class="style8">
<textarea name="multi_testo" cols="65" rows="5" id="multi_testo"></textarea>
</span></td>
</tr>
<tr>
<td colspan="2" height="8"></td>
</tr>
<tr>
<td><span class="style6">In Vista: </span></td>
<td><span class="style8">
<input name="chk_invista" type="checkbox" id="chk_invista" value="checkbox">
</span></td>
</tr>
<tr>
<td colspan="2" height="8"></td>
</tr>
</table>
<input name="inserisci" type="submit" id="inserisci" value="inserisci">
<input type="hidden" name="timestamp" value="">
<input type="hidden" name="MM_insert" value="form1">
</form>
dove inserisco
codice:
<% multi_testo = Replace(multi_testo, vbCrLf, "
") %>
AIUTO...... 
Rispondi quotando
