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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
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

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

12:00

Ugen i tech: El-kolos kan fragte syv personer over 620 kilometer / Sony er klar med ny kamera-konge: Alpha 1 mk II

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

Vis flere artikler

IT-JOB

KMD A/S

Senior Customer Success Project Lead

Edora A/S

Fullstack udviklere

Ward247 ApS

IT Operations Manager

Capgemini Danmark A/S

Salesforce Senior Technical Consultant

TV2

Software Engineer, Integrations

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 18:09	Billedoverførsel Af Laurids i iOS, iPhone & iPad
I går 13:30	Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I går 13:01	Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I går 11:40	Fjerne mappe i stifinder Af Peter Olsen i Andet software
I går 11:27	renteberegning Af Pil i Excel