Preview på indexsidan?

8 svar · 314 visningar · startad av Jesper T 3 mars 2002

Jesper TMedlem sedan nov. 20017 144 inlägg

Frågan3 mars 2002 17:25#1

Hello!
Jag har en nyhetssida (hämtad ifrån en db) som jag har htmlkod i. Det ser ju snyggt ut på den sidan.
På min indexsida så har jag en "top3" av nyheterna med en överskrift och 110 tecken av "brödtexten" på de tre senaste nyheterna med en länk till nyhetssidorna....Läs mer

<%Response.write left(articles("ArticleName"),45)&"<br>"& left(articles("ArticleData"),110)&"...<a href='news.asp?cmd=view&articleid="&articles("ArticleID")&"' >&#187; 
                        Läs mer</a>%>

Detta går ju jättebra så länge man inte använder sig av html utan skriver "rakt av". När man har html med så blir "preview:en" riktigt ful med radbyten och annat fjams.

Är det ngn som kanske har ett tips hur man löser det på ett enkelt sätt?

MVH Jesper

Jesper TMedlem sedan nov. 20017 144 inlägg

3 mars 2002 17:42#2

Kanske med Regexp som på solbulles inlägg?

Solbulles inlägg

@ndersMedlem sedan juni 200032 967 inlägg

3 mars 2002 17:46#3

Japp.

Du kan se på Microsofts referens till RegExp hur ett pattern som matchar alla html-taggar ser ut.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsgrpregexpsyntax.asp

Mvh,

Jesper TMedlem sedan nov. 20017 144 inlägg

3 mars 2002 18:38#4

Ussh..Det verkar ju vara en djungel!

Kan ngn ge ett litet exempel kanske...? :r

LarsG´s inlägg till solbulle ger:

Microsoft VBScript runtime error '800a139a'

Unexpected quantifier

/prov.asp, line 13

Line 13: response.write r.replace(str,"")

LarsGMedlem sedan dec. 200012 464 inlägg

3 mars 2002 18:58#5

Det hänger nog ihop med vilken version av VB-script du har.

Jag testade det i min IE som har version 5.5

För att se vilken version du har:

response.write scriptenginemajorversion & "." & scriptengineminorversion

Jesper TMedlem sedan nov. 20017 144 inlägg

3 mars 2002 19:12#6

Tack LarsG!

Jag(mitt webhotel) har version 5.1

Men det jag behöver är väl ngt som tar bort allt imellan <och>?

Jesper TMedlem sedan nov. 20017 144 inlägg

3 mars 2002 19:43#7

Har hittat detta men vet inte riktigt hur man inplementerar det tillsammans med mina grejjor!

Set objRe = New regExp
objRe.IgnoreCase = True
objRe.Global = True

If x <> "" Then 
objRe.Pattern = "<[^>]*>" 
x = objRe.Replace(x," ")
End if

solbulleMedlem sedan mars 20015 287 inlägg

3 mars 2002 19:55#8

X = "din sträng" eller kanske ditt rs("fält")

...tror jag...

Red. men glöm mig iofs, såg ditt exempel, kanske inte riktigt var så enkelt.

Red2. Kanske ska du till att göra en fuktion av den som du kallar när du skriver ut texten precis som du gör nu med leftfunktionen.

Jesper TMedlem sedan nov. 20017 144 inlägg

3 mars 2002 20:13#9

Har gjort så här nu, det funkar jättebra:

x = articles("ArticleData")
Set objRe = New regExp
objRe.IgnoreCase = True
objRe.Global = True

If x <> "" Then 
objRe.Pattern = "<[^>]*>" 
x = objRe.Replace(x," ")
End if
Response.write left(articles("ArticleName"),45)&"<br>"%><%=left(x,110)%>...<a href="news.asp?cmd=view&articleid=<%=articles("ArticleID")%>" >&#187; 
                        Läs mer</a>

Tack! :)