Notifikationer

Markér alle som læst Log ud

clansite.dk Nybegynder

03. oktober 2003 - 16:43 Der er 24 kommentarer og
1 løsning

ASP Script som billede..

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. Hits = rs("Counter")
14. strText = " Hits ialt : " & Hits & " "
15. Set Image = Server.CreateObject("SImageUtil.Image")
16. Image.OpenImageFile("Counters/Hvid.jpg")
17. Image.BoxMargin = 0
18. Image.KeepAspect = true
19. Image.ChangeSize 375, 375
20. Image.SetBoxColor "black", 0
21. Image.SetTextColor "black", 100
22. Image.TextBox 8, strText
23. Image.SaveJpgFile "Counter.jpg", 85
24. Image.Close
25. Set Image = Nothing
26. Response.ContentType = "image/jpeg"
27. Response.BinaryWrite("<img src=Counter.jpg>")
28. end if
29. %>

Det virker også helt ffint....

Men nu har jeg igen det probblem at jeg ikke ved hvordan jeg skal lave det med at de bare kan skrive <IMG SRC=" http://blink182.dk/Calle/index.asp?mode=CounterID=1">........
Er der ikke nogen der vil hjælpe?

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 17:00 #1

Der mangler et & i SRC linket imellem Counter og ID:

<IMG SRC=" http://blink182.dk/Calle/index.asp?mode=Counter&ID=1">

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 17:00 #2

Ja, men det virker stadig ikke...

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 17:03 #3

http://blink182.dk/Calle/Index.asp?mode=Counter&ID=1

Der virker det fint nok. Man kan se det man skal.
Men når man laver finten med at lave IMG på det, så viser den bare at billedet ikke findes :(!

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 17:05 #4

Jo det skulle da være muligt med img src:
Prøv uden hjemme side adressen:

<IMG SRC="/Calle/index.asp?mode=Counter&ID=1">

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 17:07 #5

Virker stadig ikke :(

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 17:08 #6

hvilken side er linket på?

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 17:10 #7

http://blink182.dk/Calle/Index.asp?mode=Test

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 17:17 #8

Prøv at tilføje denne linje.:
Response.End

Efter denne:
Response.BinaryWrite("<img src=Counter.jpg>")
Response.End

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 17:21 #9

Virker stadig ikke!

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 17:33 #10

Det kode som skriver til filen skal være før HTML tags
<%
kode som laver filen
%>
<html>
<head>

<img src="http://blink182.dk/Calle/Index.asp?mode=Counter&ID=1">

Eller er headeren sat til ContentType=HTML/Text og kan ikke ændres så med seneere til image/jpg

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 17:40 #11

Har jeg lige prøvet i www.blink182.dk/Calle/Counter.asp&id=1 og det virker stadig ikke

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 17:41 #12

http://www.blink182.dk/Calle/Counter.asp?ID=1

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 17:56 #13

du udskriver ikke billede data men, teksten: <img src=Counter.jpg>

man udskriver typisk noget binært som eksvis her:

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("Counter.jpg")
Response.ContentType = "image/jpeg"
Response.BinaryWrite objStream.read
set objStream = Nothing

Synes godt om

netro Nybegynder

03. oktober 2003 - 17:57 #14

Godt du kom videre med det ;)

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 18:02 #15

<%
if Request.Cookies("Service-Taeller") = "" AND Request("ID") <> "" then

Set rs = Server.CreateObject("ADODB.RecordSet")
Sql1 = "Select * From ServiceTaeller Where Id = " & request.querystring("id") & ""
rs.Open Sql1, Conn, 1, 3
Rs("Counter") = Rs("Counter") +1
Rs.Update
Response.Cookies("Service-Taeller") = "Counted"
else
Set Rs = Conn.Execute("Select * From ServiceTaeller Where Id = " & request.querystring("id") & "")
Hits = rs("Counter")
strText = " Hits ialt : " & Hits & " "
Set Image = Server.CreateObject("SImageUtil.Image")
Image.OpenImageFile("Counters/Hvid.jpg")
Image.BoxMargin = 0
Image.KeepAspect = true
Image.ChangeSize 375, 375
Image.SetBoxColor "black", 0
Image.SetTextColor "black", 100
Image.TextBox 8, strText
Image.SaveJpgFile "Counter.jpg", 85
Image.Close
Set Image = Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("Counter.jpg")
Response.ContentType = "image/jpeg"
Response.BinaryWrite objStream.read
set objStream = Nothing
end if
%>

Altså sådan her?

netro: Ja, men nu er jeg inde i et problem igen >(

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 18:04 #16

Ja prøv det.

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 18:04 #17

http://www.blink182.dk/Calle/Counter.asp?ID=1
Virker ikke

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 18:07 #18

er det hele din kode?
Ligger Counter.jpg i samme folder som filen Counter.asp ?

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 18:08 #19

Nej vent...
http://www.blink182.dk/Calle/?Mode=Counter&ID=1
Der sker noget der, men ikke ligefrem et billede >(

Synes godt om

netro Nybegynder

03. oktober 2003 - 18:11 #20

Jo, det er et billede - men ikke som de fleste kender det ;)

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 18:13 #21

Hehe! Jah, men hvordan får jeg det til at være et "normalt" billede? :)

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 18:14 #22

humm

Prøv at tilføje:

Response.End

før end if

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 18:16 #23

Stadig det samme...
http://www.blink182.dk/Calle/?Mode=Counter&ID=1

Synes godt om

clansite.dk Nybegynder

03. oktober 2003 - 18:21 #24

Har fundet ud af det...
Det skulle "bare" laves sådan her:

<%
mode = request("mode")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & Server.MapPath("db.mdb") & "; uid=Admin; pwd=;"
%>
<%
if Request.Cookies("Service-Taeller") = "" AND Request("ID") <> "" then

Set rs = Server.CreateObject("ADODB.RecordSet")
Sql1 = "Select * From ServiceTaeller Where Id = " & request.querystring("id") & ""
rs.Open Sql1, Conn, 1, 3
Rs("Counter") = Rs("Counter") +1
Rs.Update
Response.Cookies("Service-Taeller") = "Counted"
else
Set Rs = Conn.Execute("Select * From ServiceTaeller Where Id = " & request.querystring("id") & "")
Hits = rs("Counter")
strText = " Hits ialt : " & Hits & " "
Set Image = Server.CreateObject("SImageUtil.Image")
Image.OpenImageFile("Counters/Hvid.jpg")
Image.BoxMargin = 0
Image.KeepAspect = true
Image.ChangeSize 375, 375
Image.SetBoxColor "black", 0
Image.SetTextColor "black", 100
Image.TextBox 8, strText
Image.SaveJpgFile "Counter.jpg", 85
Image.Close
Set Image = Nothing
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile Server.MapPath("Counter.jpg")
Response.ContentType = "image/jpeg"
Response.BinaryWrite objStream.read
set objStream = Nothing
Response.End
end if

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<BODY>

</BODY>
</HTML>

Men lig et svar eagleeye!

Synes godt om

eagleeye Praktikant

03. oktober 2003 - 18:35 #25

Ok ;) var lige inde og spise

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	I går 02:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
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

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