Avatar billede sp Nybegynder
29. oktober 2001 - 22:06 Der er 27 kommentarer og
1 løsning

Problem med menu opbygget af en for -løkke

Jeg har ikke taget hele det table det er inde i.
Problemet er at på et tidspunkt i løkken skal i være af lig med page, sådan at strvm bliver vmo inde i div attributten og linket bliver fjernet, så man kan se hvilken side man er på.

Er der nogle der kan hjælpe mig med løse problemet?  mvh
Søren Peter

<%
Dim page
Dim strvm
Dim i
page= Request.QueryString(\"page\")


for i=1 to 33


%>

<tr valign=\"top\">
    <td align=\"center\" bgcolor=\"#444444\">
    <%
    if  i=page  then
strvm = \"vmo\"
else strvm = \"vm\"
End if
    %>
        <div class=\"<% =strvm %>\">
       
        <% if i <> page then
        Response.write page
        Response.write \"<a href=\"\"?page=\" & i & \"\"\">\"
      End if
        Response.write \"Side \" & i
        if i <> page then
        Response.write\"</a>\"
        end if
        %>
        </div>
        </td>
    </tr>
  <% next %>
Avatar billede eagleeye Praktikant
29. oktober 2001 - 22:11 #1
det er muligt der er nødvendigt med Cint på i og page i dine sætninger:

if i=page then  -->  if Cint(i)=Cint(page) then
Avatar billede sp Nybegynder
29. oktober 2001 - 22:14 #2
Yes det virker
Avatar billede eagleeye Praktikant
29. oktober 2001 - 22:16 #3
ASP fortolkeren har det med at antage request.QueryString(\"XX\") altid er en streng.
Avatar billede sp Nybegynder
29. oktober 2001 - 22:19 #4
Hvad skulle jeg gøre uden Eksperten og eagleeye???
Det er efterhånden flere gange jeg har fået hjælp!

Har du fundet ud af at forbedre link-funktionen??
Avatar billede eagleeye Praktikant
29. oktober 2001 - 22:23 #5
Nej jeg kan squ ikke for den til at ungå det sidste . for i selve koden benyttes . som en del af et link  www.get.to.the.light.dk og så tager den altså også sidste . med.

Hvis linket er http://www.dj.dk. så mener jeg det kan fjerne pga af man har et fast udgangs punkt http://.

Men jeg har ikke helt glemt det.
Avatar billede sp Nybegynder
29. oktober 2001 - 22:28 #6
Men skal jeg vente at se eller hvad?
Avatar billede eagleeye Praktikant
29. oktober 2001 - 22:40 #7
Tja
Jeg vil give dig løsningen hvis jeg finder den.
Avatar billede sp Nybegynder
29. oktober 2001 - 22:44 #8
Kan man ikke fjerne punktummet til sidst efter den har lavet linket i strengen?
Avatar billede eagleeye Praktikant
29. oktober 2001 - 22:52 #9
jow det kan man da :)

Prøv lige denne:


Function LinkString(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

objRegExpHTTP1.Pattern = \"(http|ftp)(:\\/\\/[\\w\\._-]+\\.[\\w\\._-]+\\S*)\"
objRegExpHTTP2.Pattern = \"(^|[^\\/])(www[^\\.\\s]?\\.[\\w\\._-]+\\.[A-Za-z]{2,3}[\\w\\S]*)\"
objRegExpEMail.Pattern = \"([\\w\\._-]+@[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, \" <a href=\'mailto:$1\'>$1</a> \")
strOutput = objRegExpHTTP1.Replace(strOutput, \" <a href=\'$1$2\' target=\'_blank\'>$1$2</a> \")
strOutput = objRegExpHTTP2.Replace(strOutput, \" <a href=\'http://$2\' target=\'_blank\'>$2</a> \")
objRegExpHTTP2.Pattern = \"([.])(\' target=)\"
strOutput = objRegExpHTTP2.Replace(strOutput, \"$2\")
objRegExpHTTP2.Pattern = \"([.])(</a>)\"
strOutput = objRegExpHTTP2.Replace(strOutput, \"$2$1\")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
Set objRegExpEMail = Nothing

LinkString = strOutput
End Function
Avatar billede eagleeye Praktikant
29. oktober 2001 - 22:55 #10
Jeg har prøvet at lave den lidt om så den også virker på come.to/sejsite :

Function LinkString(strInput)
    Set objRegExpHTTP1 = New RegExp
    Set objRegExpEMail = New RegExp

    objRegExpHTTP1.Global = True
    objRegExpEMail.Global = True

    objRegExpHTTP1.IgnoreCase = True
    objRegExpEMail.IgnoreCase = True

    objRegExpEMail.Pattern = \"([\\w\\._-]+@[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"
    strOutput = objRegExpEMail.Replace(strInput, \" <a href=\'mailto:$1\'>$1</a> \")
   
    objRegExpHTTP1.Pattern = \"(http)(:\\/\\/)([\\w\\._-]+\\.[\\w\\._-]+\\S*)\"
    strOutput = objRegExpHTTP1.Replace(strOutput, \" $3 \")
    objRegExpHTTP1.Pattern = \"([\\w\\._-]+\\.[\\w\\._-]+\\S*)\"
    strOutput = objRegExpHTTP1.Replace(strOutput, \" <a href=\'http://$1\' target=\'_blank\'>$1</a> \")

    objRegExpHTTP1.Pattern = \"([.])(\' target=)\"
    strOutput = objRegExpHTTP1.Replace(strOutput, \"$2\")
    objRegExpHTTP1.Pattern = \"([.])(</a>)\"
    strOutput = objRegExpHTTP1.Replace(strOutput, \"$2$1\")
   
    set objRegExpHTTP1 = Nothing
    Set objRegExpEMail = Nothing

    LinkString = strOutput
End Function

Den sidste fjerne også http:// fra teksten.
Avatar billede sp Nybegynder
29. oktober 2001 - 23:00 #11
Hvad mener du med at http:// skal fjernes, skal det ikke bruges til linket???
Avatar billede sp Nybegynder
29. oktober 2001 - 23:01 #12
Hvilken en skal jeg nu prøve... Nu er jeg forvirret.
Avatar billede eagleeye Praktikant
29. oktober 2001 - 23:02 #13
jow jeg fik vist ikke forklaret ordenligt:
Hvis du skriver en streng: \"Flot side på http://www.sejtsite.dk.\"
bliver det til: \"Flot side på www.sejtsite.dk.\"
Avatar billede eagleeye Praktikant
29. oktober 2001 - 23:05 #14
den første har en anden fejl for hvis jeg skriver: home7.inet.tele.dk blvier det ikke til et link med den første jeg viste.

Det gør den med den anden jeg viste der bliver home7.inet.tele.dk til et link.
Avatar billede sp Nybegynder
29. oktober 2001 - 23:05 #15
ok, kan jeg få en som sørger for at fjerne http:// (synlige) og ikke tager det sidste punktum med...
Avatar billede eagleeye Praktikant
29. oktober 2001 - 23:05 #16
:) det gør den heller ikke på eksperten.
Avatar billede eagleeye Praktikant
29. oktober 2001 - 23:07 #17
Ja det skulle nummer 2 jeg har lagt her gerne gøre. kommentar fra: 29/10 2001 22:55:36 
Avatar billede sp Nybegynder
29. oktober 2001 - 23:09 #18
Der er en fejl. Den laver F.eks. om til et link!
Avatar billede sp Nybegynder
29. oktober 2001 - 23:11 #19
Altså \"F.eks.\" om til et link...
Avatar billede eagleeye Praktikant
29. oktober 2001 - 23:12 #20
hmm det var måske for hurtigt lavet :(
Ja jeg kan se et problem der.
Avatar billede eagleeye Praktikant
29. oktober 2001 - 23:21 #21
har du altid http://  på dine links?
Avatar billede eagleeye Praktikant
29. oktober 2001 - 23:28 #22
hvis du altid har http://  foran linket i dine streng kan det let løses problemmet er hvis der står microsoft.dk i strengen så er det jo et link men man har ikke noget andet at søge på end \".\"

nu er den lavet så der skal være min 3 karekter før \".\" for at bliver lavet om til et link. Det reder f.eks.  eks.

Function LinkString(strInput)
    Set objRegExpHTTP1 = New RegExp
    Set objRegExpEMail = New RegExp

    objRegExpHTTP1.Global = True
    objRegExpEMail.Global = True

    objRegExpHTTP1.IgnoreCase = True
    objRegExpEMail.IgnoreCase = True

    objRegExpEMail.Pattern = \"([\\w\\._-]+@[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"
    strOutput = objRegExpEMail.Replace(strInput, \" <a href=\'mailto:$1\'>$1</a> \")
   
    objRegExpHTTP1.Pattern = \"(http)(:\\/\\/)([\\w\\._-]+\\.[\\w\\._-]+\\S*)\"
    strOutput = objRegExpHTTP1.Replace(strOutput, \" $3 \")
    objRegExpHTTP1.Pattern = \"([\\w\\._-]{3,}\\.[\\w\\._-]+\\S*)\"
    strOutput = objRegExpHTTP1.Replace(strOutput, \" <a href=\'http://$1\' target=\'_blank\'>$1</a> \")

    objRegExpHTTP1.Pattern = \"([.])(\' target=)\"
    strOutput = objRegExpHTTP1.Replace(strOutput, \"$2\")
    objRegExpHTTP1.Pattern = \"([.])(</a>)\"
    strOutput = objRegExpHTTP1.Replace(strOutput, \"$2$1\")
   
    set objRegExpHTTP1 = Nothing
    Set objRegExpEMail = Nothing

    LinkString = strOutput
End Function
Avatar billede sp Nybegynder
29. oktober 2001 - 23:31 #23
Nej jeg kan ikke garantere at http:// altid er med.
Avatar billede sp Nybegynder
29. oktober 2001 - 23:33 #24
Men nu virker det ihvertfald!:)
Avatar billede sp Nybegynder
30. oktober 2001 - 21:48 #25
Nu har jeg et problem med tal.
F.eks. bliver 250.000 nu til et link.

Avatar billede sp Nybegynder
30. oktober 2001 - 21:49 #26
Kan den ikke bare nøjes med at virke ved http:// eller www...?
Måske bliver det andet for kompliceret???
Avatar billede eagleeye Praktikant
30. oktober 2001 - 22:36 #27
Ja nu kan jeg bedre forstå hvorfor man laver berænsninger mht link. Det er lidt for man andre ting som kan tolkes som link:


Function LinkString(strInput)
Set objRegExpHTTP1 = New RegExp
Set objRegExpHTTP2 = New RegExp
Set objRegExpEMail = New RegExp

objRegExpHTTP1.Pattern = \"(http|ftp)(:\\/\\/[\\w\\._-]+\\.[\\w\\._-]+\\S*)\"
objRegExpHTTP2.Pattern = \"(^|[^\\/])(www[^\\.\\s]?\\.[\\w\\._-]+\\.[A-Za-z]{2,3}[\\w\\S]*)\"
objRegExpEMail.Pattern = \"([\\w\\._-]+@[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"

objRegExpHTTP1.Global = True
objRegExpHTTP2.Global = True
objRegExpEMail.Global = True

objRegExpHTTP1.IgnoreCase = True
objRegExpHTTP2.IgnoreCase = True
objRegExpEMail.IgnoreCase = True

strOutput = objRegExpEMail.Replace(strInput, \" <a href=\'mailto:$1\'>$1</a> \")
strOutput = objRegExpHTTP1.Replace(strOutput, \" <a href=\'$1$2\' target=\'_blank\'>$1$2</a> \")
strOutput = objRegExpHTTP2.Replace(strOutput, \" <a href=\'http://$2\' target=\'_blank\'>$2</a> \")
objRegExpHTTP2.Pattern = \"([.])(\' target=)\"
strOutput = objRegExpHTTP2.Replace(strOutput, \"$2\")
objRegExpHTTP2.Pattern = \"([.])(</a>)\"
strOutput = objRegExpHTTP2.Replace(strOutput, \"$2$1\")

Set objRegExpHTTP2 = Nothing
set objRegExpHTTP1 = Nothing
Set objRegExpEMail = Nothing

LinkString = strOutput
End Function
Avatar billede sp Nybegynder
30. oktober 2001 - 22:55 #28
ok det ser ud til at virke:)
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