Új hozzászólás Aktív témák
-
sziszegőII
tag
válasz
ízirider #140 üzenetére
Találtam jobbat. Mármint ingyeneset.
ASPBrowser a neve
!-- ------------------------------------------------------------------------- -->
<!-- ASPBROWSER v1.0 (06-2004) -->
<!-- ------------------------------------------------------------------------- -->
<!-- Copyright (C) 2004 AVRIL CONSEIL -->
<!-- http://www.avril-conseil.com -->
<!-- ------------------------------------------------------------------------- -->
<!-- This program is free software; you can redistribute it and/or modify -->
<!-- it under the terms of the GNU General Public License as published by -->
<!-- the Free Software Foundation; either version 2 of the License, or -->
<!-- (at your option) any later version. -->
<!-- ------------------------------------------------------------------------- -->
<%
call downloadFile(Request.querystring(''file''))
function downloadFile(strFile)
dim ads, fso, f
'empties buffer
Response.Buffer = True
Response.Clear
'create a stream (check you have last MDAC version installed)
set ads = Server.CreateObject(''ADODB.Stream'')
ads.Open
ads.Type = 1
on error resume next
set fso = Server.CreateObject(''Scripting.FileSystemObject'')
if not fso.FileExists(strfile) then
Response.Write ''<h1>Erreur: </h1><font color='#485e9e'>'' & strfile & ''</font> n'existe pas<p>''
Response.Write strfile
Response.End
end if
set f = fso.GetFile(strfile)
intFilelength = f.size
ads.LoadFromFile(strfile)
if err then
Response.Write ''<h1>Erreur: </h1><font color='#485e9e'>'' & err.Description & ''</font><p>''
Response.End
end if
'send header to browser
Response.AddHeader ''Content-Disposition'', ''attachment; filename='' & f.name
Response.AddHeader ''Content-Length'', intFilelength
Response.Charset = ''UTF-8''
Response.ContentType = ''application/octet-stream''
'send file
Response.BinaryWrite ads.Read
Response.Flush
ads.Close
set ads = Nothing
end function
%>
Bocsi kicsit hosszú, de jónak tűnik
Új hozzászólás Aktív témák
- AKCIÓ!!! GAMER PC: Új i5-14400F +RTX 5060/5060Ti/5070/5070Ti +16-64GB DDR4! GAR/SZÁMLA! 50 FÉLE HÁZ!
- Új! Számla + 1-3ÉV Gari! Áfás! Gamer PC - Számítógép! I5 14400F / RTX 5060 / 32GB DDR5 / 1TB M.2 SSD
- Dobozos gamer MSI Prestige 14 /i7-1185G7/16GB/512 SSD/GTX 1650 4GB GB/FHD/IPS/Gari/
- HP Spectre x360 Érintős Hajtogatós Laptop Tab 16" -60% i7-1360P 32/2TB Intel Arc A370M 4GB UHD OLED
- Szép! Lenovo Thinkpad T14s G2 Üzleti "Golyóálló" Laptop 14" -60% i5-1135G7 4Mag 16GB /512GB FHD IPS
- BESZÁMÍTÁS! Sony PlayStation4 PRO 1TB fekete konzol extra játékokkal garanciával hibátlan működéssel
- Xiaomi Redmi Note 14 Pro 256GB Kártyafüggetlen 1Év Garanciával
- AKCIÓ! HP Elitedesk 800 G1 USDT mini asztali számítógép - i7 4770S 16GB RAM 128GB SSD Intel HD
- Okosóra felvásárlás!! Samsung Galaxy Watch 6, Samsung Galaxy Watch 7, Samsung Galaxy Watch Ultra
- Microsoft Surface Pro 7 - Újszerű, dobozban, gyári töltővel, billentyűzettel
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest