Avatar billede websam Nybegynder
28. juli 2002 - 01:22 Der er 19 kommentarer og
1 løsning

Funktion ???

Hejsa !

Er der en der kan fortælle mig hvorledes jeg laver en
funktion der korter en tekststreng ned således at hvis
der i et felt står :

http://www.firma.dk/,http://www.firma.dk/

at det bliver vist som :

http://www.firma.dk/

Og ikke andet håber der er en der kan hjælpe :-))
Avatar billede eagleeye Praktikant
28. juli 2002 - 01:29 #1
skal du havde den delt ved , så kan du bruge split:

str = "http://www.firma.dk/,http://www.firma.dk/"
tempArr = Split(str, ",")

Så er: tempArr(0) = "http://www.firma.dk/"
Og:    tempArr(1) = "http://www.firma.dk/"
Avatar billede websam Nybegynder
28. juli 2002 - 01:34 #2
Jeg tester lige :-))
Avatar billede websam Nybegynder
28. juli 2002 - 01:43 #3
oki det virker men når jeg så lister mine stats får jeg følgende :

http://www.firma.dk/ - hits : 114
http://www.firma.dk/ - hits : 256

og det var jo ikke lige meningen :-0
Avatar billede websam Nybegynder
28. juli 2002 - 01:46 #4
Hele koden til skidtet ser således ud hvis det hjælper lidt :

<%
Sql = "Select Url, Count(*) As Total From AffiliateHits Where AffiliateId = 19 GROUP BY Url"
Set Rs = Conn.execute(Sql)

Str = "Rs('Url')"
tempArr = Split(str, ",")
tempArr(0) = Rs("Url")

Do While Not Rs.EOF
If Trim(Rs("Url")) = "" Then
Response.Write "Not Defined (Type-in or console traffic.)"
Else
Response.Write tempArr(0)
End If
Response.Write "<br>"
Response.Write Rs("Total")
Response.Write "<br>"
Rs.MoveNext
Loop
%>
Avatar billede eagleeye Praktikant
28. juli 2002 - 01:49 #5
nej jeg er ikke helt med ... er hits i strengen eller hvordan??
Avatar billede eagleeye Praktikant
28. juli 2002 - 01:50 #6
dette :

Str = "Rs('Url')"
tempArr = Split(str, ",")
tempArr(0) = Rs("Url")

er uden for dit loop er det rigtgit??
Avatar billede websam Nybegynder
28. juli 2002 - 01:53 #7
jeps det er ganske korrekt det ligger udenfor !
Avatar billede eagleeye Praktikant
28. juli 2002 - 01:56 #8
Men det deler ikke strengen op ...for at dele sterngen rs("url") skal det være:

Str = Rs("Url")
tempArr = Split(str, ",")
Avatar billede websam Nybegynder
28. juli 2002 - 01:58 #9
Hmmmm.......så vil den ikke vise Url'en længere !?!
Avatar billede eagleeye Praktikant
28. juli 2002 - 02:05 #10
hvad ligger der i Rs("Url")
Avatar billede websam Nybegynder
28. juli 2002 - 02:12 #11
Der kan ligge 1 af 3 muligheder :

1.ingenting (felt tomt)
2.en url som www.firma.dk
3.en url som www.firma.dk,www.firma.dk

Jeg opfanger hvorfra en surfer kommer med Http_Referer komando og der kan
der jo være tilfælde hvor feltet er tomt og åbentbart også tilfælde
hvor der skilles med et komma !?!
Avatar billede eagleeye Praktikant
28. juli 2002 - 02:16 #12
Så har du nok fået fat i en tom url, da du kun ligger url ind i arrayet uden for dit loop og vil for alle hits skrive samme url.. Mit bud er din kode skal de sådan ud:


<%
Sql = "Select Url, Count(*) As Total From AffiliateHits Where AffiliateId = 19 GROUP BY Url"
Set Rs = Conn.execute(Sql)


Do While Not Rs.EOF
  tempArr = Split(Rs("Url"), ",")
  If Trim(Rs("Url")) = "" Then
    Response.Write "Not Defined (Type-in or console traffic.)"
  Else
    Response.Write tempArr(0)
  End If
  Response.Write "<br>"
  Response.Write Rs("Total")
  Response.Write "<br>"
  Rs.MoveNext
Loop
%>
Avatar billede websam Nybegynder
28. juli 2002 - 02:19 #13
Jeg prøver lige at teste og hvis det nu skulle virke og du skal have nogle
point skal du lige svare på spørgsmålet :-))
Avatar billede eagleeye Praktikant
28. juli 2002 - 02:21 #14
Jeg svare lige... ;)
Avatar billede websam Nybegynder
28. juli 2002 - 02:25 #15
Så lister den som følger :

Not Defined (Type-in or console traffic.)
48
http://www.firma.dk/
3
http://www.firma.dk/
1

hvor de 2 nederste jo helst skulle ligges sammen :-))
Avatar billede eagleeye Praktikant
28. juli 2002 - 02:29 #16
Ja men det er jo et SQL spøgsmål... hvis din kolonne kan indeholder disse oplysniger :

1.ingenting (felt tomt)
2.en url som www.firma.dk
3.en url som www.firma.dk,www.firma.dk

Selvom 2 og 3 måsker er samme firma.dk så er de ikke ens og dermed sker der det rigtige set fra kode. Set fra databasen er linie 2 og 3 ikke ens.
Avatar billede eagleeye Praktikant
28. juli 2002 - 02:34 #17
Så hvis Http_Referer kan give nummer 3 (hvor linket står to gange) kan du måske løse problemmet hvor du gemmer i databsen....:

Så skal du lave en split på Http_Referer

tempArr = Split( ..Http_Referer.. , ",")

og SQL for insert:
SQL = "INSERT INTO tabel (url) VALUES ('" & tempArr(0) & "')"
Avatar billede websam Nybegynder
28. juli 2002 - 02:34 #18
hmmm....det må jeg så lige have luret lidt hvis du da ikke lige har
et hurtigt forslag !?!
Avatar billede websam Nybegynder
28. juli 2002 - 02:44 #19
Jeps jeg kigger på det tak for hjælpen !
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