Limitare il numero delle parole mostrate da una tabella di database access

**salsaweb** · 14-12-2006, 17:34

Salve a tutti!
Ho creato una semplice pagina asp, utilizzando dreamweaver, che mi visualizza 3 campi di un database.
Titolo
Testo
Allegato
La pagina funziona benissimo (naturalmente ho anche una pagina per l'inserimento), ma vorrei che nel capo testo mi venissero visualizzate solo le prima 200 lettere del campo stesso, dove poi metterò un collegamento alla pagina completa
Su Dreamweaver c'è un modo automatico per farlo?
Oppure bisogna inserire codice a mano, e quale eventualmente?
Grazie a tutti per le risposte.
Salsaweb

**OcchioCrepato** · 14-12-2006, 17:51

http://forum.html.it/forum/showthrea...readid=1067142

**salsaweb** · 14-12-2006, 18:33

Grazie!!!!
Siete sempre i migliori. Lo provo subito!

**OcchioCrepato** · 14-12-2006, 18:39

prego

**salsaweb** · 14-12-2006, 19:03

Non funziona

ma dove sbaglio?

<%
Dim rsLeggi
Dim rsLeggi_numRows

Set rsLeggi = Server.CreateObject("ADODB.Recordset")
rsLeggi.ActiveConnection = MM_siciliasalsa_STRING
rsLeggi.Source = "SELECT * FROM News ORDER BY idNews DESC"
rsLeggi.CursorType = 0
rsLeggi.CursorLocation = 2
rsLeggi.LockType = 1
rsLeggi.Open()

rsLeggi_numRows = 0
%>
<%
'il tuo codice

function truncate(snTesto,iLunghezza)
'snStringa -> Stringa da modificare
'iLunghezza -> Lunghezza di trocamento

strLen=Len(snTesto)
newStr=left(snTesto,iLunghezza)
if strLen>iLunghezza then
for i=iLunghezza+1 to strLen
if mid(snTesto,i,1)<>" " then
newStr=newStr & mid(snTesto,i,1)
else
exit for
end if
next
end if

truncate=newStr

end function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="news.css" type="text/css">
</head>

<body>
<table width="40%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td colspan="2"><span class="Stile1"><span class="Stile5"><%=(rsLeggi.Fields.Item("nData").Va lue)%></span> - </span><span class="Stile3"><span class="Stile2"><%=(rsLeggi.Fields.Item("nTitolo"). Value)%></span></span></td>
</tr>
<tr>
<td colspan="2">[img]images/newslinee.gif[/img]</td>
</tr>
<tr>
<td valign="top"><div align="justify"><span class="Stile4"> <%=(rsLeggi.Fields.Item("nTesto").Value)%></span></div></td>
<td><span class="Stile4">[img]public/<%=(rsLeggi.Fields.Item([/img]" width="50" height="50" align="right"></span></td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
</table>

</body>
</html>
<%
rsLeggi.Close()
Set rsLeggi = Nothing
%>

Sono novello con asp

**OcchioCrepato** · 14-12-2006, 22:25

La funzione mettila in un file esterno chiamalo funzione.asp

nella rua pagina inserisci il codice

<-- #include virtual="/tuadirectory/funzione.asp" -->
dove tuadirectory è il percorso

Poi richiami la funzione dove ti serve
ad esempio

<%=truncate(rsLeggi.Fields.Item("nTesto").Value,20 0)%>

**crizio5** · 15-12-2006, 13:51

function caratteri(car)
if len(car) >200 then
descr = left(car, 200)&"..."
else
descr = car
end if

caratteri = descr
end function

<%=caratteri(testo)%>

Discussione: Limitare il numero delle parole mostrate da una tabella di database access

Strumenti discussione

Ricerca discussione

Visualizza

Limitare il numero delle parole mostrate da una tabella di database access

wow!!!

Permessi di invio