Avatar billede hjfpwhfpwh Nybegynder
23. oktober 2001 - 23:12 Der er 9 kommentarer og
1 løsning

max 20 tegn

Jeg skal lave en list over en række posts... jeg får fint nok den rigtig liste frem osv, men de ting der står er lidt for lange... jeg skal simpelthen have kortet lidt ned i teksten....

Dvs. at når det viste tekst når ud over 10 tegn, så skal der står ... efter de 10 tegn! er det noget man kan lave?
Avatar billede nute Nybegynder
23. oktober 2001 - 23:14 #1
str = \"Dette er en liten streng som inneholder mange tegn\"
if( LEN(str) > 10 ) then
  str = LEFT( str, 10) & \"...\"
end if
reponse.write str

/nute
Avatar billede bjarke-b Nybegynder
23. oktober 2001 - 23:14 #2
<%
din_streng = \"bla bla bla bla bla bla\"

if len(din_streng) > 10 then
Response.Write left(din_streng,10) & \"...\"
else
Response.Write din_streng
end if
%>
Avatar billede bjarke-b Nybegynder
23. oktober 2001 - 23:15 #3
nute > Hvorfor kommer du altid før mig *Hehe* . o O ( Dumme svensker ;-p ) O o .
Avatar billede nute Nybegynder
23. oktober 2001 - 23:16 #4
bjarke >> fordi jeg er eldre enn deg ;)

GRRR....nordmann !!! :-)
Avatar billede hjfpwhfpwh Nybegynder
23. oktober 2001 - 23:18 #5
hehe undskyld jeg er meget grøn til asp, så lidt mere hjælp tak... nute du får pointne, men lidt hjælp til det her udløser også lidt point:

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"db/forum.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 5 * FROM entries ORDER BY id desc\"
set rs = DataConn.execute(sql)

Do While NOT rs.EOF
%>
&nbsp;&nbsp:<%=rs(\"subject\")%>
</tr>
<%
rs.MoveNext
loop
rs.Close
set rs = nothing
Dataconn.Close
%>

I teksten ovenover hvordan sættes det så ind så når der har været 10 tegn så sætter den \"...\"?
Avatar billede hjfpwhfpwh Nybegynder
23. oktober 2001 - 23:21 #6
Ups der var lige en </tr> der ikke skulle være der

<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"db/forum.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 5 * FROM entries ORDER BY id desc\"
set rs = DataConn.execute(sql)

Do While NOT rs.EOF
%>

&nbsp;&nbsp:<%=rs(\"subject\")%>
<br>

<%
rs.MoveNext
loop
rs.Close
set rs = nothing
Dataconn.Close
%>
Avatar billede nute Nybegynder
23. oktober 2001 - 23:22 #7
<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"db/forum.mdb\")
DataConn.Open DSN
%>

<%
sql = \"SELECT TOP 5 * FROM entries ORDER BY id desc\"
set rs = DataConn.execute(sql)

Do While NOT rs.EOF
  tmpSubj = rs(\"subject\")
  if( LEN( tmpSubj ) > 10 ) then
    tmpSubj = LEFT( tmpSubj, 10 ) & \"...<br/>\"
  end if
  response.write \"&nbsp;&nbsp;\" & tmpSubj
  <%
  rs.MoveNext
loop
rs.Close
set rs = nothing
Dataconn.Close
%>
Avatar billede hjfpwhfpwh Nybegynder
23. oktober 2001 - 23:26 #8
Hmmm something is wrong... you forgot a <% tag,,, but is looks VERY funny.....
Avatar billede nute Nybegynder
23. oktober 2001 - 23:28 #9
naaa...sorry...fjern <% som ligger her:

response.write \"&nbsp;&nbsp;\" & tmpSubj
  <%
  rs.MoveNext

skal bare være:

response.write \"&nbsp;&nbsp;\" & tmpSubj
rs.MoveNext

/nute
Avatar billede hjfpwhfpwh Nybegynder
23. oktober 2001 - 23:28 #10
Fixed it my self :)
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
Kurser inden for grundlæggende programmering

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