1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
<%
'************************************************************************************************************************
' Création et configuration d'un fichier .bat sur le serveur avec les noms et parametres de redimentionnement des images
'************************************************************************************************************************
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWriteFile = fs.CreateTextFile(server.MapPath("automatique.bat"),true)
NomApplication = "CHEMIN ABSOLU\siteShoter.exe" ' adresse de l'application siteshoter
NomAdresseDestination ="CHEMIN ABSOLU"
url=Request.Form("url")
NomFichierDestination =Request.Form("nom")
objWriteFile.writeline (""&NomApplication&" /URL "&url&" /Filename "&NomAdresseDestination&""&NomFichierDestination&".jpg /DisableScrollBars 1 /BrowserTimeout 10000 /BrowserWidth 1000 /BrowserHeight 750 /ImageSizePerCent 10")
objWriteFile.close
Set objWriteFile = Nothing
Set fs = Nothing
'*************************************************************************************
' Lancer le redimentionnement des images en fonction des paramettres du fichier.bat
'*************************************************************************************
set wshell=Server.CreateObject("wscript.shell")
WShell.Run("cmd CHEMIN ABSOLU\automatique.bat")
%>
<form action="page.asp?action=ok" method="post">
URL à capturer : <input name="url" type="text" /> <br />
nom <input name="nom" type="text" /> <br />
<input type="submit" name="button" id="button" value="Envoyer" />
</form> |
Partager