Avatar billede jannikf Nybegynder
01. januar 2005 - 04:20 Der er 9 kommentarer og
1 løsning

Forkortede nyheder o.lign. på forsiden

Efterhånden som nyhederne og artiklerne bliver længere og længere kan jeg nu se at det ville være smart hvis jeg kun behøvede at kalde x-antal karakterer fra teksten frem og lave en læs mere funktion. Jeg aner dog intet om hvordan dette kan lade sig gøre, nemlig at begrænse de data der kommer fra rs("tekst") og strTekst til at f.eks. vise 100 karakterer og ingen billeder.

I til index.asp har jeg lavet en include som hedder forside.asp og indeholder:

<tr>
<td><strong><font color="#640000" face="Verdana, Arial, Helvetica, sans-serif"><% Response.Write rs("overskrift") %></font></strong></td>
</tr>
<tr>
<td valign="top" colspan="2"><font color="#CCCCCC" size="1" face="Verdana, Arial, Helvetica, sans-serif">Skrevet
                den <% Response.Write rs("dato") %> kl. <% Response.Write rs("tid") %></font></td>
</tr>
<tr>
<td valign="top" colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><% Response.Write rs("tekst") %></font></td>
</tr>
<tr>
<td><br></td>
</tr>

Det er netop ved Response.Write rs("tekst") at den skal begrænses til ikke at vise billeder samt kun lad os sige 100 tegn. Tror at det er svært, derfor 60 point.
Avatar billede autohh Nybegynder
01. januar 2005 - 04:28 #1
<%
Function KlipTekst(strTekst, intLaengde, strTilfoejTekst)
  Dim strWork
  Dim strResult
  strResult = ""
  ' Henter teksten og sikrer at den er tekst
  strWork = CStr("" & strTekst)
  ' Er teksten længere end ønsket ?
  If Len(strWork) > intLaengde Then
    ' Yep - så vi klipper den
    strResult = Mid(strWork, 1, intLaengde)
    ' Så tilføjer vi den eventuelle tilføjelsestekst
    strResult = strResult & strTilfoejTekst
  Else
    ' Nope - så vi bruger bare originalen
    strResult = strWork
  End If
  ' Færdig med arbejdet - lever resultatet
  KlipTekst = strResult
End Function
%>


også:
"><font size="1" face="Verdana"><% Response.Write KlipTekst(rs("nyhed"), 100, "...") %></font>
Avatar billede apo Praktikant
01. januar 2005 - 04:52 #2
... Eller den korte version:

<%=Left(rs("Tekst"),100)%>

:-)

Apo
Avatar billede jannikf Nybegynder
01. januar 2005 - 04:54 #3
Utroligt med sådan et hurtigt svar, men blander du ikke strTekst og rs("tekst") sammen?

Jeg definerer ikke strTekst i filen med henter derimod den rene rs("tekst")

Desuden så melder den fejl:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/includes/forside.asp, line 19

Function KlipTekst(strTekst, intLaengde, strTilfoejTekst)
Avatar billede jannikf Nybegynder
01. januar 2005 - 04:58 #4
<td valign="top" colspan="2"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Left(rs("Tekst"),100)%></font></td>

Det så straks meget lettere og bedre ud, men nu er der slet ingen tekst der fremkommer?

http://jblog.dk
Avatar billede apo Praktikant
01. januar 2005 - 04:59 #5
Det kan jeg ikke tro? Jeg bruger selv præcis den samme metode til mine egne artikler ;-)

Du har ikke rettet/slettet noget i mellemtiden?
Avatar billede jannikf Nybegynder
01. januar 2005 - 05:08 #6
Fandt ud at fejlen som var at jeg havde defineret strTekst til at være rs("tekst") og derved allerede brugt den én gang. Det virker fint nu, MEN hvis nyheden er mindre en de 100 så laver den koks i alle de nedenstående og billederne bliver stadig taget med, og de bliver også ødelagt hvis grænsen er sat uheldigt.
Avatar billede apo Praktikant
01. januar 2005 - 06:43 #7
Eksperten var nede, så jeg kunne ikke svare dig før nu :-)

Jeg har en seperat tekst, jeg kalder for 'blikfang' (det er meget almindeligt at bruge til artikler, se evt. aviser på nettet). Blikfanget er en indledning til artiklen, som kan placeres i databasen uafhængigt af resten af artiklen (i databasen kan cellerne f.eks. organiseres sådan her: 'ID | Blikfang | Artikelindhold | ...').

Jeg bruger blikfang-teksten til at vise et kort uddrag fra artiklerne, på min forside (lige som du gør). Forskellen er blot, at jeg aldrig har billeder i blikfanget, og har derfor ingen problemer med billeder når jeg viser korte uddrag af mine artikler :-)

Det samme kan du jo lave...

Nå, nu vil jeg i kanen, men kigger ind i morgen.

Apo
Avatar billede jannikf Nybegynder
12. januar 2005 - 22:09 #8
Jeg siger mange tak til apo. Jeg har valgt at bruge blikfang metoden til fremover til at vise mine nye indlæg, dog er det ikke lavet endnu, men det kommer.
Avatar billede jannikf Nybegynder
15. januar 2005 - 21:24 #9
Det virker perfekt nu. Jeg siger igen mange tak.

http://jblog.dk/anmeldelse.asp?type=anmeldelse
Avatar billede apo Praktikant
16. januar 2005 - 00:14 #10
Det ser jo fint ud nu...

Glad for at kunne hjælpe, og tak for points :-)

Apo
Avatar billede 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.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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