Notifikationer

Markér alle som læst Log ud

forcedesigner Nybegynder

01. juli 2002 - 21:06 Der er 13 kommentarer og
1 løsning

En lille problem...

Jeg har lavet en nyhedssystem som jeg ikke er helt tilfreds med.

Jeg vil har sådan en side som dette: http://www.udvikleren.dk/vis_artikler.php4?kat=7

Som viser en lille referat på omkring 255 ord.

Hjælp mig venner :-)

Synes godt om

skovtrold Nybegynder

01. juli 2002 - 21:07 #1

Så kan du bruge:

dintekst = RS("nyhed")
dintekst = left(dintekst,250)

hvor 250 er det antal tegn du vil vise af hele teksten.

Synes godt om

skovtrold Nybegynder

01. juli 2002 - 21:09 #2

Hvis du vil have eks. 3 punktummer efter teksten hvis den er længere end 250 tegn kan du gøre sådan her:

dintekst = RS("nyhed")
If len(dintekst)>250 Then
dintekst = left(dintekst,250) & "..."
Else
dintekst = dintekst
End if

Synes godt om

forcedesigner Nybegynder

01. juli 2002 - 21:12 #3

Fra databasen

Synes godt om

skovtrold Nybegynder

01. juli 2002 - 21:15 #4

? Hvad mener du?

Synes godt om

forcedesigner Nybegynder

01. juli 2002 - 21:17 #5

Jeg bruger denne koder:<% Response.Write Record("nyhed")%> til at henter hele nyheden. Men nu vil jeg have 255 ord fra databasen.

Nyhedssystemet virker fint!

Synes godt om

skovtrold Nybegynder

01. juli 2002 - 21:20 #6

Ja, så bruger du:

dintekst = Record("nyhed")
If len(dintekst)>250 Then
dintekst = left(dintekst,250) & "..."
Else
dintekst = dintekst
End if

Og der hvor du vil have udskrevet en del af nyheden skriver du bare:
<%=dintekst%>

Synes godt om

forcedesigner Nybegynder

01. juli 2002 - 21:25 #7

Jeg forståd det ikke hvad mener du med din tekst?
Teksten er fra databasen:

Sådan ser koden der henter nyhederne:

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)
%>

<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>

</head>

<body>

<table border="0" cellspacing="0" width="550">
<tr><td> </td></tr>



<% Do While Not Record.EOF %>
<td><% Response.Write Record("Dato")%></td>
<td align="right">Fra <% Response.Write Record("Forfatter")%></td>
<tr>
<td colspan="2"><% Response.Write Record("nyhed")%></td>
</tr>
<tr><td> </td></tr>
<%
Record.MoveNext
Loop
%>


</table>

</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>

Synes godt om

a-torsten Nybegynder

01. juli 2002 - 21:27 #8

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("nyheder.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
Sql = "SELECT * FROM nyheder ORDER BY Dato DESC"
Set Record = Con.Execute(Sql)
%>

<html>

<head>
<meta http-equiv=Content-Language content=ar-sa>
<meta http-equiv=Content-Type content=text/html; charset=windows-1256>

</head>

<body>

<table border="0" cellspacing="0" width="550">
<tr><td> </td></tr>



<% Do While Not Record.EOF %>
<td><% Response.Write Record("Dato")%></td>
<td align="right">Fra <% Response.Write Record("Forfatter")%></td>
<tr>
<td colspan="2"><% Response.Write left(Record("nyhed"),250) & "..."%></td>
</tr>
<tr><td> </td></tr>
<%
Record.MoveNext
Loop
%>


</table>

</body>
</html>
<%
' Lukke connection
Con.Close
Set Con = Nothing
%>

Synes godt om

skovtrold Nybegynder

01. juli 2002 - 21:30 #9

Med dintekst, så mente jeg den tekst som du henter fra databasen.
Eks.:
Nu kalder jeg teksten for "nyhed".



<% Do While Not Record.EOF

'Først hentes nyhedsteksten, og kaldes herefter for "nyhed".
nyhed = Record("nyhed")

'Så tjekkes der om nyheden er mere end 250 karakterer lang.
If len(nyhed)>250 Then
'Hvis det er tilfældet, skal nyhedsteksten forkortes og tilføjes 3 prikker
nyhed = left(nyhed,250) & "..."
Else
' Ellers skal nyheden bare udskrives i sin fulde længde.
nyhed = nyhed
End if%>
<td><% Response.Write Record("Dato")%></td>
<td align="right">Fra <% Response.Write Record("Forfatter")%></td>
<tr>
<%' Her udskrives nyhedsteksten ved bare at udskrive "nyhed"%>
<td colspan="2"><% Response.Write nyhed%></td>
</tr>
<tr><td> </td></tr>
<%
Record.MoveNext
Loop
%>

Synes godt om

forcedesigner Nybegynder

01. juli 2002 - 21:33 #10

Point til a-torsten :-), han kom først med den rigtige løsning.

Synes godt om

skovtrold Nybegynder

01. juli 2002 - 21:33 #11

Nå, hvorfor nu det?
a-torsten har skrevet det samme som jeg gjorde i mit første svar.

Synes godt om

skovtrold Nybegynder

01. juli 2002 - 21:35 #12

Kl. 21:07:48 svarer jeg:
dintekst = RS("nyhed")
dintekst = left(dintekst,250)
hvilket er nøjagtigt det samme som a-torsten har skrevet.

Synes godt om

forcedesigner Nybegynder

01. juli 2002 - 21:37 #13

Det kunne ik' rigtig forstå skovtrod, det er jeg ked af, men næste gang bliver det dig.

Synes godt om

benson Nybegynder

01. juli 2002 - 21:45 #14

Hmmm !! sådan kan det gå skovtrold ;-| Din løsning passede ellers fint !

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS