| Exemple |
Code |
Remarque |
| Upload |
Code ici |
Fait de l'Upload après avoir enregistré la DLL sur le serveur (en ASP)
Documentation,
ASP-ASPSmartUpload.zip |
|
|
<%
strLogPath = "phrase.htm"
base_root = Replace(request("PATH_TRANSLATED"), "default.asp" ,strLogPath)
'on error resume next
ForReading = 1
ForWriting = 2
ForAppending = 3
TristateUseDefault = -2
TristateTrue = -1
TristateFalse = 0
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile base_root 'Cr�er un fichier
Set f = fs.GetFile(base_root)
Set ts = f.OpenAsTextStream(ForWriting, TristateFalse )
ts.Write "<html>"
ts.Write "<head>"
ts.Write "<title>R�sultat</title>"
ts.Write "</head>"
ts.Write "<body>"
ts.Write "<p>" & request.form("phrase") & "</P>"
ts.Write "</body>"
ts.Write "</html>"
ts.Close
%>
|
Écrit dans un fichier html la phrase envoyée (en ASP)
- Nom script Asp est "default.asp
- Utilisateur web doit avoir des droit en écriture sur le dossier
cible
|
| Affichage d'image
aléatoire
|
<script language="JavaScript">
NombreImage=3;
valeur=Math.floor(Math.random()*NombreImage+1);
document.write ('<IMG SRC=lettres/alphabet',valeur,'.gif ALT="Cette lettre est la ',valeur,' parmis A-B-C">');
</script>
|
Affichage de 3 images aléatoire (en
JavaScript) :
- alphabet1.gif
- alphabet2.gif
- alphabet3.gif
qui doivent être dans un sous dossier "lettres" |
| Liste
d'images dans un dossier Exemple |
<html>
<head>
<title>Script</title>
</head>
<body>
<p>
<%Dim fs, f, f1, fc, s
folderspec= Replace(request("PATH_TRANSLATED"), "default.asp","")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files%>
<table border="5" width="100%" cellpadding="10">
<tr>
<td align="center" bgcolor="#C0C0C0"><strong>Image</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>Name</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>Size (octets)</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>Attributes</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>DateCreated</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>DateLastAccessed </strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>DateLastModified</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>Drive</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>ParentFolder</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>Path</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>ShortName</strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>ShortPath </strong></td>
<td align="center" bgcolor="#C0C0C0"><strong>Type </strong></td>
</tr>
<%For Each f1 in fc
nom_image = f1.name
size_image = f1.size
Attributes_image = f1.Attributes
Created_image = f1.DateCreated
Accessed_image = f1.DateLastAccessed
Modified_image = f1.DateLastModified
Drive_image = f1.Drive
Folder_image = f1.ParentFolder
Path_image = f1.Path
ShortName_image = f1.ShortName
ShortPath_image = f1.ShortPath
Type_image = f1.Type
if (nom_image<>"default.asp") then%>
<tr>
<td align="left"><p align="left"><img src="<% = nom_image%>"></td>
<td align="left"><% = nom_image%></td>
<td align="left"><% = size_image%></td>
<td align="left"><% = Attributes_image%></td>
<td align="left"><% = Created_image%></td>
<td align="left"><%= Accessed_image%></td>
<td align="left"><% = Modified_image%></td>
<td align="left"><% = Drive_image%></td>
<td align="left"><% = Folder_image%></td>
<td align="left"><% = Path_image%></td>
<td align="left"><% = ShortName_image%></td>
<td align="left"><% = ShortPath_image%></td>
<td align="left"><% = Type_image%></td>
</tr>
<%end if
Next%>
</table>
</p>
</body>
</html>
|
Liste les images d'un dossier (en ASP)
Le fichier de script doit être ";default.asp".
"default.asp" est masqué:
if
(nom_image<>"default.asp") then ... |
| Exemple ASP |
<%
// le dossier du serveur doit avoir un droit en lecture pour l'utilisateur Web
// ici le sous-dossier
strLogPath = ".."
folderspec = Replace(request("PATH_TRANSLATED"), "default.asp" ,strLogPath)
// ou directement
// folderspec= "d:\mon_dossier\"
Response.write "Dossier local : " & folderspec & "<br>"
Dim fs, f, s , fc, f1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = s & UCase(f1.Name) & " utilise " & f.size & " octets."
s = s & "<br>"
Next
Response.write s
%>
|
Liste les fichiers d'un dossier (en ASP) L'utilisateur doit avoir un droit en lecture sur les dossiers du serveurr |
