Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:04 Der er 28 kommentarer og
1 løsning

ASP-Script som billede

Hejsa.
Jeg ønsker at lave en counter jeg kan sætte ind på andre sider der ikke kan bruge ASP.
Jeg har lavet counteren, men vil så gerne have at når folk skal sætte den ind, skal de bare skrive <IMG SRC=" http://www.blink182.dk/Calle/Index.asp?Mode=Counter&ID=1">  eksembelvis.

Er der nogen der vil hjælpe mig med at lave det?

1. <% Elseif mode = "Counter" then %>
2. <%
3. if Request.Cookies("Service-Taeller") = "" AND Request("ID") <> "" then
4.
5.    Set rs = Server.CreateObject("ADODB.RecordSet")
6.    Sql1 = "Select * From ServiceTaeller Where Id = " & request.querystring("id") & ""
7.    rs.Open Sql1, Conn, 1, 3
8.  Rs("Counter") = Rs("Counter") +1
9.    Rs.Update
10.    Response.Cookies("Service-Taeller") = "Counted"
11. else
12.    Set Rs = Conn.Execute("Select * From ServiceTaeller Where Id = " & request.querystring("id") & "")
13.    response.write rs("counter")
14.    strCount = rs("Counter")
15. end if
16. %>

Håber at i kan hjælpe mig!

//Calle
Avatar billede netro Nybegynder
02. oktober 2003 - 14:09 #1
Der kan du få et problem med tredjepart-cookies, som langt fra alle accepterer. Dvs. cookies der ikke kommer fra det oprindelige websted.
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:10 #2
Hmm... SÅ laver jeg det sådan at det bliver tilføjet i access DB med ip... Bare i vil hjælpe med det andet!
Avatar billede netro Nybegynder
02. oktober 2003 - 14:12 #3
IP-adressen er ikke særlig velegnet til at kontrollere besøg med, som du måske ved. Men lad nu det ligge - hvad er det præcis, du gerne vil have hjælp til?
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:15 #4
At lave sådan at mine brugere bare kan skrive <IMG SRC="http://www.blink182.dk/Calle/Index.asp?Mode=Counter&ID=1"> for at få vist counteren!
Avatar billede netro Nybegynder
02. oktober 2003 - 14:20 #5
Så kunne du f.eks. lave det sådan. Hvis der kommer flere besøg fra samme IP-adresse indenfor 15 minutter registreres kun ét besøg.
Herefter udskrives et billede med besøgstallet binært.


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & ("c:\sti\til\db.mdb")
Conn.Open DSN

Set rs = Conn.Execute("Select * From hits Where IP = '" & Request.ServerVariables("Remote_Addr") & "' And DateDiff('n', Dato, Now()) < 15")
If rs.EOF Then
    Conn.Execute("Insert Into hits(Dato, IP) Values(Now(), '" & Request.ServerVariables("Remote_Addr") & "')")
End If

Set rs = Nothing
Conn.Close
Set Conn = Nothing

Response.ContentType = "image/jpeg"
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.Type = 1
Stream.Open
Stream.LoadFromFile "c:\sti\til\billede.jpg"
Contents = Stream.Read
Response.BinaryWrite Contents
Stream.Close
Set Stream = Nothing
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:26 #6
Kan jeg så bare skrive <IMG SRC="http://www.blink182.dk/Calle/Index.asp?Mode=Counter&ID=1"> for at få billedet vist? (Efter jeg har sat Databasen!
Avatar billede netro Nybegynder
02. oktober 2003 - 14:27 #7
Ja, det kan du.
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:29 #8
Jamen hvad skal jeg med  Stream.LoadFromFile "c:\sti\til\billede.jpg" ?
Avatar billede netro Nybegynder
02. oktober 2003 - 14:30 #9
Det er billedet med besøgstallet, der skal udskrives binært til brugeren. Jeg har ikke leget så meget med netop dette, men er det ikke også sådan Chart gør det?
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:33 #10
Jamen den ska jo ikke hente et billede. Jeg skal bare have sådan at brugeren kan se hvad counteren er sat til via. et billede. Kan det ikke lade sig gøre?
Avatar billede netro Nybegynder
02. oktober 2003 - 14:39 #11
Nej, for så er det jo ikke et billede.
Avatar billede netro Nybegynder
02. oktober 2003 - 14:40 #12
Chart gør det på samme vis: http://hit37.chart.dk/chart.jsp?id=22908
Avatar billede netro Nybegynder
02. oktober 2003 - 14:44 #13
I øvrigt ved jeg ikke, om jeg skal deltage mere i dette spørgsmål. Har lige set, hvor "god" du har været til at lukke dine andre spørgsmål.
http://www.eksperten.dk/bruger.phtml?navn=clansite.dk&option=22
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:45 #14
Jamen hvordan dælen dylen kan de gøre det? Hvordan får de tekst ind i billedet?
Avatar billede netro Nybegynder
02. oktober 2003 - 14:46 #15
Jeg skylder måske lige at fortælle, at du selvfølgelig ikke skal have 1 mio. forskellige billeder liggende med alle besøgstal. Du skal automatisk lave hvert billede med en image-komonent.
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:46 #16
Brolig.. Du skal nok fådin P hvis du kan hjælpe!
Avatar billede netro Nybegynder
02. oktober 2003 - 14:47 #17
Du kan f.eks. have et standard-billede liggende (som Chart). Herpå kan du med f.eks. ASPimage indsætte besøgstallet ovenpå dette standard-billede.
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:47 #18
Okay! Der er ikke andet foor end at prøve sig frem!
Avatar billede netro Nybegynder
02. oktober 2003 - 14:49 #19
Er det din egen server?
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:50 #20
Ja, det er det!
Avatar billede netro Nybegynder
02. oktober 2003 - 14:52 #21
Så kan jeg anbefale komponenten SimageUtil, der er gratis. Se her hvordan du let kan sætte en tekst ind ovenpå et billede med denne: http://www.reneris.com/tools/iusage.asp#Image.TextBox()
Avatar billede netro Nybegynder
02. oktober 2003 - 14:52 #22
(Se under TextBox())
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 14:53 #23
Nice... Tak skal du have!
Avatar billede netro Nybegynder
02. oktober 2003 - 14:55 #24
Håber du kan bruge den. Den er rimelig nem og ligetil.
Downloades her: http://www.reneris.com/tools/idownbin.asp

Tak for points :)
Avatar billede clansite.dk Nybegynder
02. oktober 2003 - 15:19 #25
Netro...
Når jeg laver dette:

<%
Set Image = Server.CreateObject("SImageUtil.Image")
Image.OpenImageFile("Test.jpg")
Image.TextBox(1, "Det virker ikke!!")
%>

så får jeg denne fejl:

Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a0414'

Der kan ikke bruges parenteser ved kald af en Sub

/Calle/test.asp, linje 5

Image.TextBox(1, "Det virker ikke!!")
-------------------------------------^

Kan du hjælpe iigen ?
Avatar billede -mundi- Nybegynder
02. oktober 2003 - 15:22 #26
fjern dine paranteser
Image.TextBox 1, "Det virker ikke!!"
eller skriv
call Image.TextBox(1, "Det virker ikke!!")
Avatar billede netro Nybegynder
02. oktober 2003 - 15:48 #27
Ja, men nu kom -mundi- først. Der er et lille eksempel her på, hvordan du indsætter en tekstboks. Positionerne kan du se af linket.

Hits = 2345

Set Image = Server.CreateObject("SImageUtil.Image")
Image.OpenImageFile "mappe1/mappe2/billede1.jpg"
Image.SetBoxColor "black", 70
Image.TextBox 8, "<font color='gray' face='verdana' size='10'><b>" & Hits & " besøg</b></font>"
Image.SaveJpgFile "mappe1/mappe2/billede2.jpg", 85
Image.Close
Set Image = Nothing
Avatar billede clansite.dk Nybegynder
03. oktober 2003 - 13:37 #28
Nu får jeg pludselig denne fejl:

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01fb'

Der er opstået en undtagelse: 'TextBox'

/Calle/index.asp, linje 570


Mega underligt...
Avatar billede netro Nybegynder
03. oktober 2003 - 14:00 #29
Den har jeg godt nok aldrig fået...
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