5 svar · 583 visningar · startad av KINGofLEON
Någon som vet av något script som gör att vänsterklick med musknappen på en länk leder till kommandot "Spara mål som..." direkt?
Jag skulle vilja att detta sker för att slippa skriva: "högerklicka och välj sedan spara mål som..."
Känns onödigt att Mp3:or exempelvis ska spelas upp med QuickTime-plugin direkt i webbläsaren vid alla vänsterklick.
Så, någon som har en idé?
Tack på förhand! :birp /Alex
Har du tillgång till PHP?
Ja det har jag, har aldrig använt mig av det dock, men planerar att lära mig... Hur går jag tillväga?
Oops, sorry, såg nu att man inte ska ställa frågor i detta forum... gör en ny tråd där det passar... Kan nån bara förklara för mig hur jag raderar en tråd?
KINGofLEON skrev:
Oops, sorry, såg nu att man inte ska ställa frågor i detta forum... gör en ny tråd där det passar... Kan nån bara förklara för mig hur jag raderar en tråd?
Du skapar inte en ny tråd, du väntar på att tråden flyttas. ;)
Denna koden har jag saxat från en annan tråd här på sidan (tror jag). den ska göra något i stil med att man måste spara filen på disk.
Men vad den gör och hur den ska implederas vet jag icke det får den som skrivit den svara på (eller nån annan som vet).
Lycka till.
<%
'--------------------------------------------
Response.Buffer = True
Dim strFilePath, strFileSize, strFileName
Const adTypeBinary = 1
strFilePath = "C:\ whatever the path is "
strFileSize = ... the size of file .. optional
strFileName = the file na,e
Response.Clear
'8*******************************8
' Requires MDAC 2.5 to be stable
' I recommend MDAC 2.6 or 2.7
'8*******************************8
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
strFileType = lcase(Right(strFileName, 4))
' Feel Free to Add Your Own Content-Types Here
Select Case strFileType
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html"
ContentType = "text/html"
Case ".asp"
ContentType = "text/asp"
Case Else
'Handle All Other Files
ContentType = "application/octet-stream"
End Select
Response.AddHeader "Content-Disposition", "attachment; filename= strFileName
Response.AddHeader "Content-Length", strFileSize
' In a Perfect World, Your Client would also have UTF-8 as the default
' In Their Browser
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
objStream.Close
Set objStream = Nothing
%>