övergång från smartaspupload till SAFileUP

sin_adecMedlem sedan apr. 2002272 inlägg

Frågan28 mars 2007 14:30#1

Tjenare, har precis skaffat mig ett konto på Surftown och tänkte inte på att de inte har stöd för smart ASP upload utan använder sig av SAFileUP-komponenten.

Nu undrar jag ifall det finns någon några som har arbetat med det tidigare och kan hjälpa mig med övergången till SAFileUP.

tack

upload.html

<html>
 <head><title>Upload file</title></head>
 <body>
  <form action ="upload.asp" enctype="multipart/form-data" method="post">
   Filnavn:
   <input type="file" name="file">
   <br/>
   <input type="submit" value="Upload file">
  </form>
 </body>
</html>

upload.asp

<% @ LANGUAGE = VBSCRIPT %>
<html>
 <body>
  <% 
   set upl = Server.CreateObject("SoftArtisans.FileUp")

   ' Specify the path to where to file should be placed
   ' - here the current path is used (.) 
   upl.Path = Server.MapPath(".") 

   if (upl.IsEmpty) then
    Response.write "<p>Error: The file is empty or doesn't exist!</p>"
   elseif (upl.ContentDisposition <> "form-data") then
    Response.write "<p>Error: Upload failed!</p>"
   else
    Response.write "<p>The file was successfully uploaded.</p>"
   on error resume next 
   ' Save the uploaded file 
    upl.Save 
   end if 
  %>
 </body>
</html>

Nedan är min nuvarande kod.
Sedan med formuläret

<form name="form1" method="post" enctype="multipart/form-data" action="send.asp">
	<input type="file" name="filen" value=""><br>

	<input type="file" name="filen2" value=""><br>

	<input type="file" name="filen3" value=""><br>

	<input type="file" name="filen4" value=""><br>

	<input type="file" name="filen5" value=""><br>

	<input type="file" name="filen6" value="">
</form>

Send.asp

<!--#include file="../adovbs.inc"-->

<% 
' nedan publicear bilden för första bilden
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 100000  ' Ändra maxstorlek på uppladdad fil
Upload.SaveVirtual "filer/" ' Mappen som uppladdade filer hamnar i
Upload.OverwriteFiles = True  ' Sätt till False om du inte vill spara över filer med samma namn

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databasen.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From foretag"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	RecSet.AddNew	
	
	Recset("datum") = Date()
	Recset("foretagsnamn") = upload.form("foretagsnamn")
	Recset("organisationsnummer") = upload.form("organisationsnummer")
	Recset("telefonnummer") = upload.form("telefonnummer")
	Recset("faxnummer") = upload.form("faxnummer")
	Recset("hemsida") = upload.form("hemsida")
	
	Recset("epost") = upload.form("epost")
	Recset("accept") ="0"
	Recset("refnummer") = upload.form("refnummer")
	Recset("verksamhetsbeskrivning") = upload.form("verksamhetsbeskrivning")
	
	if not Upload.Files("filen") is nothing then
   Recset("logotyp") = Upload.Files("filen").ExtractFileName
end if

 	RecSet.Update
	RecSet.close
	
    Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
	

%>