11. juni 2003 - 16:38Der er
10 kommentarer og 1 løsning
ASP upload
hej. er der nogen der kan lave dette script om, så det virker med "ASP SMART UPLOAD", i stedet for "asp upload".
<html> <body>
<% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.OverwriteFiles = True Upload.SetMaxSize 300000, True 'Mappen billederne bliver uploadet til Upload.SaveVirtual("refbilled")
'For Each item in Upload.Form
Set Str_dato = Upload.form("dato") Set Str_overskrift = Upload.form("overskrift") Set Str_indhold = Upload.form("indhold") Set Str_andet = Upload.form("andet")
For Each File in Upload.Files
Dim FileName FileName = File.ExtractFileName
if Err <> 0 Then
Response.Write "Der er sket en fejl! : " & Err.Description
Else
Response.Write "Filen "&FileName&" er uploaded!<br>"
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
det kan jeg ikke få til at virke på den måde jeg gerne vil have det. så hvis man kunne lave det her script om, eller lave et andet script der virkede på samme måde, ville det være godt
ok. så har jeg lige to ting til. 1.) hvordan for jeg lagt billed navnet, kun navnet, ind i en database. 2.) hvordan gør jeg sådan at der også er nogle text form felter. der også bliver uploadet i databasen.
håber du forstår.
<HTML> <BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 2</H1> <HR>
<% ' Variables ' ********* Dim mySmartUpload Dim file Dim intCount intCount=0
' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload ' ****** mySmartUpload.Upload
' Select each file ' **************** For each file In mySmartUpload.Files ' Only if the file exist ' ********************** If not file.IsMissing Then ' Save the files with his original names in a virtual path of the web server ' ************************************************************************** file.SaveAs("/aspSmartUpload/Upload/" & file.FileName) ' sample with a physical path ' file.SaveAs("c:\temp\" & file.FileName)
' Display the number of files which could be uploaded ' *************************************************** Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")
' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.<BR>") %> </BODY> </HTML>
<% ' Variables ' ********* Dim mySmartUpload Dim file Dim intCount intCount=0
' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload ' ****** mySmartUpload.Upload
' Select each file ' **************** For each file In mySmartUpload.Files ' Only if the file exist ' ********************** If not file.IsMissing Then ' Save the files with his original names in a virtual path of the web server ' ************************************************************************** file.SaveAs("/aspSmartUpload/Upload/" & file.FileName) '<----DIN EGEN STI! ' sample with a physical path ' file.SaveAs("c:\temp\" & file.FileName)
intCount = intCount + 1 End If Next
For each value In mySmartUpload.Form(item) Response.Write(item & " = " & value & "<BR>") Next
' Display the number of files which could be uploaded ' *************************************************** Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")
' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.<BR>") %> </BODY> </HTML>
Synes godt om
Ny brugerNybegynder
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.
