Avatar billede west Nybegynder
14. august 2002 - 22:22 Der er 4 kommentarer og
2 løsninger

opret bibliotek og upload fil til dette

jeg vil gerne have denne for til at virke, hvordan skal upload.asp se ud ?

--
<form method="POST" action="upload.asp" enctype="multipart/form-data">

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="450" id="AutoNumber11">
<tr>
<td width="100%" bgcolor="#666699">
<p align="center"><font color="#FFFFFF"><b>UPLOAD</b></font></td>
</tr>
<tr>
<td width="100%">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="104%" id="AutoNumber12" height="1">
<tr>
<td width="35%" height="10">bibliotek </td>
<td width="69%" height="10">
<input type="text" name="katagori" size="39"></td>
</tr>
<tr>
<td width="35%" height="1">Fil til upload</td>
<td width="69%" height="1">
<input type="file" name="klip1" size="22"></td>
</tr>
</table>
</td>
</tr>
</table>
<p align="center">
<input type="button" value="Upload" name="B1"></p>
</form>
Avatar billede west Nybegynder
14. august 2002 - 22:24 #1
for = form
der skal bruges Persits.Upload
Avatar billede west Nybegynder
14. august 2002 - 22:28 #2
jeg mangler kun at få oprettet biblioteket, selve uploaddelen har jeg fundet ud af :

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = False
    Upload.SetMaxSize 2048576
    Upload.Save server.mappath("klip/")
%>


  <%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("database.mdb")
Conn.Open DSN



strSQL = "Insert into klip (katagori, navn, email) values('" & upload.Form("katagori") & "','" & upload.Form("navn") & "','" & upload.Form("email") & "')"


' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

%>tak for dit bidrag
Avatar billede medions Nybegynder
14. august 2002 - 22:34 #3
Her er metoden til at oprette mapper via ASP:

<%
Function CreateFolderDemo
  Dim fso, f
  Set fso = CreateObject(\"Scripting.FileSystemObject\")
  Set f = fso.CreateFolder(\"d:\\home\\urghdk\\db\\test\\\")
  CreateFolderDemo = f.Path
End Function

call CreateFolderDemo
%>

//>Rune
Avatar billede eagleeye Praktikant
14. august 2002 - 22:35 #4
Noget i stil med:


<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveToMemory

If Count >= 1 Then ' 1 or more file uploaded
  for i = 1 to Count
    Set File = Upload.Files(i)

    'Du skal så rette "c:\upload\" til at passe med din kode og
    'kategori bliver lagt efter fra formen
    Path = "c:\upload\" & Upload.Form("katagori") & "\" & Upload.Form("klip1")

    File.SaveAs Path
  next
end if
Avatar billede west Nybegynder
05. september 2002 - 12:56 #5
takker for hjælpen
Avatar billede medions Nybegynder
05. september 2002 - 14:17 #6
Anytime :o)
Thx 4 Poinz

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester