- Eldurvul a Nova Lake-kel az Intel-féle hibrid dizájn
- AMD Navi Radeon™ RX 6xxx sorozat
- Nvidia GPU-k jövője - amit tudni vélünk
- Nem tetszik a Procon-SP-nek, hogy a Nintendo távolról kivégezheti a Switch 2-t
- Milyen TV-t vegyek?
- HiFi műszaki szemmel - sztereó hangrendszerek
- NVIDIA GeForce RTX 5060 Ti (GB206)
- Időnként túlmelegedhet a Switch 2?
- Milyen billentyűzetet vegyek?
- Intel Core Ultra 3, Core Ultra 5, Ultra 7, Ultra 9 "Arrow Lake" LGA 1851
Ú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
- Luck Dragon: Asszociációs játék. :)
- BestBuy topik
- gban: Ingyen kellene, de tegnapra
- Építő/felújító topik
- Eldurvul a Nova Lake-kel az Intel-féle hibrid dizájn
- Formula-1
- Vírusirtó topic
- Újabb európai vasúttársaság vált műholdas internetre
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Milyen autót vegyek?
- További aktív témák...
- AKCIÓ!!! GAMER PC: Új i5-14400F +RTX 4060/5060/4070/5070 +16-64GB DDR4! GAR/SZÁMLA! 50 FÉLE HÁZ!
- Elite Dragonfly G3 13.5" FHD+ IPS érintő i5-1235U 16GB 512GB NVMe ujjlolv gar
- Újszerű 17.3" FHD (1920x1080) IPS 40pin 144Hz matt LED kijelző. AUO B173HAN04.9
- Lenovo kezdő laptop (i3 6th, 500 GB, 4 GB) reklámáron! AkciÓÓ!
- Monitor audio RSW-12 sub eladó
- Azonnali A320 B350 X370 B450 X470 A520 B550 X570 chipset alaplap felvásárlás személyes/csomagküldés
- Az ASUS TUF Gaming B550-Plus csak rád vár! Kamatmentes rèszletre is!!
- Bomba ár! HP ProBook 450 G6 - i7-8GEN I 16GB I 256SSD I HDMI I 15,6" FHD I Cam I W10 I Gari!
- 125 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 9 7945HX, RTX 4070 (ELKELT)
- BESZÁMÍTÁS! Asus A520 R5 3600 16GB DDR4 500GB SSD RTX 2060 8GB Rampage SHIVA CoolerMaster 700W
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest