webForumDet fria alternativet

Hjälp mig

ASPur ASP

11 svar · 332 visningar · startad av Beckis

BeckisMedlem sedan jan. 2001142 inlägg
#1

Jag får följande felmeddelande:

Response-objekt fel 'ASP 0156 : 80004005'

Fel på huvuden

/tips/funktioner.asp, rad 54

HTTP-huvudena har redan skrivits till klientläsaren. Ändringar till HTTP-huvudena måste göras innan sidinnehållet skrivs.

På rad 54 står: Response.Redirect(strRedirLink)

Vad är det för fel

@ndersMedlem sedan juni 200032 969 inlägg
#2

Uhm, en favorit i repris, eller?

http://webforum.aleborg.com/forum/showthread.php?s=&threadid=38140

Mvh,

BeckisMedlem sedan jan. 2001142 inlägg
#3

Jag har fössökt med att lägga in <% response.buffer = true %> men då är det fel på rad 1 istället och då kan man inte heller titta på infon för länkarna i dl_count.asp

@ndersMedlem sedan juni 200032 969 inlägg
#4

Du får inte ha någonting ovanför response.buffer-raden. Inte ens en tom rad.

Har du lagt raden absolut överst?

BeckisMedlem sedan jan. 2001142 inlägg
#5

Ja den ligger överst

BeckisMedlem sedan jan. 2001142 inlägg
#6

Det är ett download script och jag länkar till: tips/dl_count.asp?do=count&id=14 då ökas antal klick på länken men jag kommer inte till den adress som jag lagt till i databasen.
det är ett script från aspsidan.com

@ndersMedlem sedan juni 200032 969 inlägg
#7

Lägg upp koden för sidan här, så får vi kika.

BeckisMedlem sedan jan. 2001142 inlägg
#8

Här är koden:
<% response.buffer = true %>
<!--
DOWNLOADCOUNTER v2

Detta script är skapat av Mattias Järnhäll på https://www.aspsidan.nu
och får användas fritt så länge det sker i ett icke kommersiellt
syfte. Samt att kommentarerna lämnas intakta

-->

<%
SUB add_new_link(strLink,strKat)

' Lägg till en länk
Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
	SQL = "Insert Into dl(link,kategori) Values('" & strLink & "','" & strKat & "')"
	Con.Execute(SQL)
Con.Close
Set Con = nothing

End SUB

SUB delete_link(id)

' Tar bort en länk
If Session("inloggad") = "true" Then
	Set Con = Server.CreateObject("ADODB.Connection") 
	Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
		SQL = "Delete From dl Where id = " & id
		Con.Execute(SQL)
	Con.Close
	Set Con = nothing
End if

End SUB

SUB count(id)

' Räkna klick på länken
Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
	SQL = "Update dl Set nr_dl = (nr_dl + 1) Where id = " & id
	Con.Execute(SQL)
	
	SQL 	= "Select link From dl Where id = " & id
	Set RS  = Con.Execute(SQL)
	strRedirLink = RS("link")
	RS.Close
	Set RS = nothing
Con.Close
Set Con = nothing

Response.Redirect(strRedirLink)

End SUB

SUB print_links()

' skriv ut länkarna på sidan
Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
	SQL 	= "Select \* From dl"
	Set RS 	= Con.Execute(SQL)
	
	Do Until RS.EOF
		With Response
			.Write "\[\<a href = 'dl_count.asp?do=del&id=" & RS("id") & "'\>Tabort\</a\>\] "
			.Write "\[\<a href = 'dl_count.asp?do=info&id=" & RS("id") & "'\>Info\</a\>\] "
			.Write RS("link") & "\[" & RS("nr_dl") & "\] (" & RS("kategori") & ")\<br\>"
		End With
		RS.MoveNext
	Loop
Con.Close
Set Con = nothing

End SUB

SUB print_info(id)

' Visa info om en länk
Set Con = Server.CreateObject("ADODB.Connection") 
Con.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("dl_count.mdb")&";"
	SQL = "Select \* From dl Where id = " & id
	Set RS = Con.Execute(SQL)
	
	With Response
		.Write "\<hr width='100%' size='1' noshade\>"
		.Write "Länk: \<b\>" & strSokvag & "dl_count.asp?do=count&id=" & RS("id") & "\</b\>\<br\>"
		.Write "Kategori: \<b\>" & RS("kategori") & "\</b\>\<br\>"
		.Write "Downloads: \<b\>" & RS("nr_dl") & "\</b\>"
		.Write "\<hr width='100%' size='1' noshade\>"
	End With
Con.Close
Set Con = nothing

End SUB

%>

@ndersMedlem sedan juni 200032 969 inlägg
#9

Är det denna sida som körs, eller är det en includefil?

Om det är det senare, så ska du inte ha response.buffer-raden i denna fil, utan den fil som inkluderar.

Mvh,

BeckisMedlem sedan jan. 2001142 inlägg
#10

Nej det är inte den som körs utan jag länkar till: tips/dl_count.asp?do=count&id=14
Men meddelandet säger att felet är på den här sidan. När koden ser ut som den ovan med koden överst fungerar inget tar jag bort den så får jag fel meddelandet jag talade om.

BeckisMedlem sedan jan. 2001142 inlägg
#11

Nu är det fixat koden skulle ligga på dl_count.asp Jag fatta inte varför den säger att det är fel på funktioner.asp när felet ligger på annan sida

solbulleMedlem sedan mars 20015 287 inlägg
#12

...som sagt...

137 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)