CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

boss Nybegynder

16. september 2000 - 15:20 Der er 18 kommentarer og
1 løsning

Begrænset tekst i asp med ord eller linier

der var et spm. her på eksperten.dk vdr. begrænsning af txt i asp men der var ikke nogen svar som man kunne bruge :(

er der nogen der kan lave sådan en script i asp der virker.

Teksten som kommer fra databasen er meget langt men vi vil have at der skal kun vises 1000 ord eller 50 linier
efter 1000 ord eller 50 linier skal der være et link hvor man kan trykke på for at se det næste 1000 ord eller 50 linier og sådan skal den fortsætte til slutningen af teksten.

på forhånd TUSIND TAK !!!

Synes godt om

otis Nybegynder

16. september 2000 - 15:23 #1

Hmm....Jeg R ik så god i asp, jeg vil gætte på at der skal være en Maxlimit på 50 lins eller sådan noget.....Bare et gæt ;-)

-Otis

Synes godt om

tandpine Nybegynder

16. september 2000 - 16:33 #2

Boss.. skal det være hvad der er kortest af de to eller???

Synes godt om

boss Nybegynder

16. september 2000 - 17:29 #3

>> tandpine

det er ligemeget, bare det virker :)

Synes godt om

tandpine Nybegynder

16. september 2000 - 17:31 #4

okay boss.. jeg er ved at strikke noget sammen til dig.. :)

Synes godt om

boss Nybegynder

16. september 2000 - 17:33 #5

ok, tusind tak tandpine :)

Synes godt om

tandpine Nybegynder

16. september 2000 - 18:38 #6

boss! her har du løsningen :) håber at du kan få den til at virke :) (skulle være meget simpel at få til at funke.. )

<%@ language=\"VBSCRIPT\" %>
<html>
<body>

<%
Set Conn=Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"tekst.mdb\")

\' feltet ID er nøglen i databasen
\' feltet FIELDtekst er teksten i databasen

sql=\"select FIELDtekst from tekst where ID=\"&request.querystring(\"ID\")

set rs=conn.execute(sql)

text=rs(\"FIELDtekst\")

rs.close
conn.close

set rs=nothing
set conn=nothing

start= int(request.querystring(\"start\"))
if start=0 then start=1

linecount=20
wordcount=1000
counter=start
text2=\"\"

while (counter=<len(text)) and (linecount>0) and (wordcount>0)
text2=text2 & mid(text,counter,1)
if mid(text,counter,1)=\" \" then wordcount=wordcount-1
if mid(text,counter,1)=chr(13) then linecount=linecount-1
counter=counter+1
wend

response.write(replace(text2&\"\",vbCrLf,\"<BR>\"&vbCrLf))
if counter<len(text) then response.write(\"<a href=\'test.asp?ID=\"&request.querystring(\"ID\")&\"&start=\"&counter&\"\'>NEXT</a>\")

%>

Synes godt om

tandpine Nybegynder

16. september 2000 - 18:41 #7

du skal lige huske at kalde den test.asp (eller også rette i den sidste del: <a href=\'test.asp....
du kalder den med test.asp?ID=..... hvor ID svarer til din primary key i databasen :)

Synes godt om

boss Nybegynder

16. september 2000 - 20:05 #8

>> tandpine

tak for scriptet jeg kan dæsvre førts teste den i morgen med mindre du hjælpe mig :)

Synes godt om

tandpine Nybegynder

16. september 2000 - 20:09 #9

hjælpe dig??? hvordan????

Synes godt om

boss Nybegynder

16. september 2000 - 21:22 #10

hvordan indsæter jeg den her

<td valign=\"top\" align=\"center\" width=\"380\">
<%

Dim ConnectionK2, RSK2, IK2,sqlk2
Set ConnectionK2 = Server.CreateObject(\"ADODB.Connection\")
ConnectionK2.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\\x\\domain.dk\\database.mdb\"

If Request(\"iid\") = \"\" Then
sqlk2 = \"SELECT * FROM Kultur_Tekst ORDER BY ID DESC\"
\' Vis nyeste
Else
sqlk2 = \"SELECT * FROM Kultur_Tekst WHERE(ID = \" & Request(\"iid\") & \")\"
\' Vis bestemt artikel
End If

Set RSK2 = ConnectionK2.Execute(sqlk2)

If not (RSK2.BOF Or RSK2.EOF) Then
%>
<table bgColor=\"black\" border=\"0\" cellPadding=\"0\" cellSpacing=\"0\" width=\"380\">
<tbody>
<tr>
<td>
<table border=\"0\" cellPadding=\"0\" cellSpacing=\"1\" width=\"378\">
<tbody>
<tr>
<td><img border=\"0\" src=\"../images/head.gif\"></td>
</tr>
<tr>
<td bgColor=\"white\"><b>
<table border=\"0\" cellPadding=\"4\" cellSpacing=\"0\" width=\"378\" height=\"263\">
<tbody>
<tr>
<td vAlign=\"top\" width=\"362\" height=\"24\"><b>
<p align=\"center\"><font face=\"Verdana,Georgia,Times\" size=\"2\"><br>
<%= RSK2(\"OverSkrift\") %>
<br>
<br>
</font>
</p>
</b></td>
</font>
</tr>
</b>
<tr>
<td width=\"372\" height=\"200\"><p><font face=\"Verdana,Georgia,Times\" size=\"1\"><i>Autor </i><%= RSK2(\"ByName\") %><br><br>

<%
Response.Write Replace(RSK2(\"Tekst\"),vbCrLf,\"<br>\")

%>

<font face=\"Verdana,Georgia,Times\" size=\"1\"><p>Copyright 2000
</font>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<%
End If

ConnectionK2.Close
Set ConnectionK2 = Nothing
%>
</td>

Synes godt om

tandpine Nybegynder

17. september 2000 - 10:32 #11

boss: du skriver bare den her del af det:

start= int(request.querystring(\"start\"))
if start=0 then start=1

linecount=20
wordcount=1000
counter=start
text2=\"\"

while (counter=<len(text)) and (linecount>0) and (wordcount>0)
text2=text2 & mid(text,counter,1)
if mid(text,counter,1)=\" \" then wordcount=wordcount-1
if mid(text,counter,1)=chr(13) then linecount=linecount-1
counter=counter+1
wend

response.write(replace(text2&\"\",vbCrLf,\"<BR>\"&vbCrLf))
if counter<len(text) then response.write(\"<a href=\'test.asp?ID=\"&request.querystring(\"ID\")&\"&start=\"&counter&\"\'>NEXT</a>\")

ind der hvor du før skrev Response.Write Replace(RSK2(\"Tekst\"),vbCrLf,\"<br>\")

(du skal nok lige rette et par rs og conn ting.. men det ved du vel :)

Synes godt om

tandpine Nybegynder

17. september 2000 - 17:43 #12

BOSS... kan du bruge det???

Synes godt om

boss Nybegynder

17. september 2000 - 19:57 #13

>> tandpine

kan du ikke ´ret i det for mig dem der rs og connection

fordi jeg kender ikke så meget til asp

Synes godt om

boss Nybegynder

17. september 2000 - 20:15 #14

>> tandpine

alt er ok ;)

Synes godt om

boss Nybegynder

17. september 2000 - 20:53 #15

>> tandpine

har du ICQ nr.

Synes godt om

tandpine Nybegynder

17. september 2000 - 21:21 #16

ja 40062409
men jeg kan først hjælpe dig i morgen aften

Synes godt om

tandpine Nybegynder

18. september 2000 - 17:26 #17

<td valign=\"top\" align=\"center\" width=\"380\">
<%

Dim ConnectionK2, RSK2, IK2,sqlk2, start, linecount, wordcount, counter, text, text2
Set ConnectionK2 = Server.CreateObject(\"ADODB.Connection\")
ConnectionK2.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=d:\\x\\domain.dk\\database.mdb\"

If Request(\"iid\") = \"\" Then
sqlk2 = \"SELECT * FROM Kultur_Tekst ORDER BY ID DESC\"
\' Vis nyeste
Else
sqlk2 = \"SELECT * FROM Kultur_Tekst WHERE(ID = \" & Request(\"iid\") & \")\"
\' Vis bestemt artikel
End If

Set RSK2 = ConnectionK2.Execute(sqlk2)

If not (RSK2.BOF Or RSK2.EOF) Then
%>
<table bgColor=\"black\" border=\"0\" cellPadding=\"0\" cellSpacing=\"0\" width=\"380\">
<tbody>
<tr>
<td>
<table border=\"0\" cellPadding=\"0\" cellSpacing=\"1\" width=\"378\">
<tbody>
<tr>
<td><img border=\"0\" src=\"../images/head.gif\"></td>
</tr>
<tr>
<td bgColor=\"white\"><b>
<table border=\"0\" cellPadding=\"4\" cellSpacing=\"0\" width=\"378\" height=\"263\">
<tbody>
<tr>
<td vAlign=\"top\" width=\"362\" height=\"24\"><b>
<p align=\"center\"><font face=\"Verdana,Georgia,Times\" size=\"2\"><br>
<%= RSK2(\"OverSkrift\") %>
<br>
<br>
</font>
</p>
</b></td>
</font>
</tr>
</b>
<tr>
<td width=\"372\" height=\"200\"><p><font face=\"Verdana,Georgia,Times\" size=\"1\"><i>Autor </i><%= RSK2(\"ByName\") %><br><br>

<%

text=RSK2(\"Tekst\")
start= int(request.querystring(\"start\"))
if start=0 then start=1

linecount=50
wordcount=1000
counter=start
text2=\"\"

while (counter=<len(text)) and (linecount>0) and (wordcount>0)
text2=text2 & mid(text,counter,1)
if mid(text,counter,1)=\" \" then wordcount=wordcount-1
if mid(text,counter,1)=chr(13) then linecount=linecount-1
counter=counter+1
wend

response.write(replace(text2&\"\",vbCrLf,\"<BR>\"&vbCrLf))
if counter<len(text) then response.write(\"<a href=\'test.asp?iid=\"&request.querystring(\"iid\")&\"&start=\"&counter&\"\'>NEXT</a>\")

%>

<font face=\"Verdana,Georgia,Times\" size=\"1\"><p>Copyright 2000
</font>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<%
End If

ConnectionK2.Close
Set ConnectionK2 = Nothing
%>
</td>

Synes godt om

boss Nybegynder

18. september 2000 - 17:44 #18

tusind TAK tandpine :)

Synes godt om

otis Nybegynder

30. december 2000 - 18:16 #19

Få et liv.. php rocks.. *Gg*
Asp er for windows
Php for linux... yeah *Gg*
<? while (true) print\'php rocks *Gg*\';?>
hehe.. Hygge
/otis

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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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