[ASP] filename change by uploading - Softwareontwikkeling

maandag 2 april 2007 17:36

Acties:

Topicstarter

ik heb een upload script voor asp ergens van het www geplukt.
deze werkt perfect ik zou alleen graag zien dat de naam van deze file gelijk is aan een variabele

script dat ik gebruik is wordt vanuit een form gestuurd (dus niet zo lastig en geen moeite om te posten lijkt mij)

naar uploadtekst.asp

code:

<%@ Language=VBScript %>
<% 
option explicit 
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<!-- #include file="style.css" -->

<div id ="pagina">
<%
    
    
    
    
        
    Dim strCon
    Dim objCon
    Dim accessDB
    dim SQL
    dim objAdd


    accessDB = server.mappath("database.mdb")
    strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
    strCon = strCon & accessDB & ";"

    ' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
    ' Open de verbinding met de database. Voor objCon wordt er een
    ' verbinding geopend met opgegeven database.
    Set objCon = Server.CreateObject ( "ADODB.Connection" )
    objCon.Open strCon
    
    
'vraag maximale waarde op van de hoogste id en doet hier 1 bij voor ID en FILENAME
Dim maximaal, objRec, id

SQL="select max(id) as maximaal from data"
    set objRec = objCon.execute(SQL)

maximaal = objRec.Fields("maximaal")


    id = maximaal+1

    
    
    
    
    

' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
  Dim uploadsDirVar
  uploadsDirVar = "c:\inetpub\wwwroot\wesley\scholtens\images" 
' ****************************************************

' Note: this file uploadTester.asp is just an example to demonstrate
' the capabilities of the freeASPUpload.asp class. There are no plans
' to add any new features to uploadTester.asp itself. Feel free to add
' your own code. If you are building a content management system, you
' may also want to consider this script: http://www.webfilebrowser.com/

function OutputForm()
%>

<%
end function


function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)

    ' If something fails inside the script, but the exception is handled
    If Err.Number<>0 then Exit function

    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then

        for each fileKey in Upload.UploadedFiles.keys
            filename = Upload.UploadedFiles(fileKey).FileName
        
    

        
        next
    else
        SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
    end if

    
    
    
    %>
    <%
dim naam, prijs, tekst, pagina

 
 naam = Upload.Form("naam")
 prijs = Upload.Form("prijs")

     tekst = Upload.Form("DESCR")
     pagina = Upload.Form("pagina")
     
     

     


%>

<h3> De volgende gegevens zijn met succes ingevoegd </h3>
<table width="500" border="0">



<tr>
     <td>naam:</td>
    <td><input type="text" name="naam" maxlength="27" size ="30" value="<%= naam %>"></td><td></td><td><img src="images/<%=filename %>" width="112" height="84"></td>

  </tr>
    <tr>
    <td>Prijs</td>
<td><input type="text" name="prijs" value="<%= prijs %>"></td>
  </tr>
      <tr>
    <td>pagina</td>
<td><input type="text" name="pagina" value="<%= pagina %>"></td>
  </tr>
  
</table>
beschrijving:<BR><TEXTAREA NAME="DESCR" rows="6" cols="35"><%= tekst %></TEXTAREA><BR>
 
 

    </table>
<geldig>U wordt zo terug gestuurd een ongeblik geduld</geldig>
    <%
    

    
    

    
    
    
                                                                                                    


    ' De SQL query die de gegevens in de database zet. De SQL hieronder is opgedeeld ' in stukjes om het duidelijker te maken. Alles kan gewoon achterelkaar.
        SQL = "INSERT INTO data(naam, filename, tekst, prijs,pagina,id) VALUES('"&naam&"','"&filename&"','"&tekst&"','"& "€" +  prijs & "','"&pagina&"','"&id&"')"

    ' Maak een object objAdd aan. Open dit record met bepaalde waarden
    set objAdd = objCon.execute(SQL)


    ' Sluit de recordset en de verbinding af omdat we die niet meer gebruiken.
    Set objAdd = Nothing
    objCon.close
    set objCon = Nothing

%>
    
    
    
    
    
    
    
    
    
    
    
    <%
end function


%>


<BODY>

<br><br>

<%
Dim diagnostics
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
    diagnostics = TestEnvironment()
    if diagnostics<>"" then
        response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">"
        response.write diagnostics
        response.write "<p>After you correct this problem, reload the page."
        response.write "</div>"
    else
        response.write "<div style=""margin-left:150"">"
        OutputForm()
        response.write "</div>"
    end if
else
    response.write "<div style=""margin-left:150"">"
    OutputForm()
    response.write SaveFiles()
    response.write "<br><br></div>"
end if

%>

<meta http-equiv="refresh" content="4;URL=opvragen.asp" /> 
</div>
</BODY>
</HTML>

(de volgende wordt geinclude)
freeaspupload.asp

code:

<%@ Language=VBScript %>
<% 
option explicit 
Response.Expires = -1
Server.ScriptTimeout = 600
%>
<!-- #include file="freeaspupload.asp" -->
<!-- #include file="style.css" -->

<div id ="pagina">
<%


    Dim strCon
    Dim objCon
    Dim accessDB
    dim SQL
    dim objAdd


    accessDB = server.mappath("database.mdb")
    strCon = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
    strCon = strCon & accessDB & ";"

    ' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
    ' Open de verbinding met de database. Voor objCon wordt er een
    ' verbinding geopend met opgegeven database.
    Set objCon = Server.CreateObject ( "ADODB.Connection" )
    objCon.Open strCon
    
    
'vraag maximale waarde op van de hoogste id en doet hier 1 bij voor ID en FILENAME
Dim maximaal, objRec, id

SQL="select max(id) as maximaal from data"
    set objRec = objCon.execute(SQL)

maximaal = objRec.Fields("maximaal")


    id = maximaal+1


' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
  Dim uploadsDirVar
  uploadsDirVar = "c:\inetpub\wwwroot\wesley\scholtens\images" 
' ****************************************************

' Note: this file uploadTester.asp is just an example to demonstrate
' the capabilities of the freeASPUpload.asp class. There are no plans
' to add any new features to uploadTester.asp itself. Feel free to add
' your own code. If you are building a content management system, you
' may also want to consider this script: http://www.webfilebrowser.com/

function OutputForm()
%>

<%
end function


function SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)

    ' If something fails inside the script, but the exception is handled
    If Err.Number<>0 then Exit function

    SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then

        for each fileKey in Upload.UploadedFiles.keys
            filename = Upload.UploadedFiles(fileKey).FileName


        next
    else
        SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
    end if


    %>
    <%
dim naam, prijs, tekst, pagina

 
 naam = Upload.Form("naam")
 prijs = Upload.Form("prijs")

     tekst = Upload.Form("DESCR")
     pagina = Upload.Form("pagina")


%>

<h3> De volgende gegevens zijn met succes ingevoegd </h3>
<table width="500" border="0">


<tr>
     <td>naam:</td>
    <td><input type="text" name="naam" maxlength="27" size ="30" value="<%= naam %>"></td><td></td><td><img src="images/<%=filename %>" width="112" height="84"></td>

  </tr>
    <tr>
    <td>Prijs</td>
<td><input type="text" name="prijs" value="<%= prijs %>"></td>
  </tr>
      <tr>
    <td>pagina</td>
<td><input type="text" name="pagina" value="<%= pagina %>"></td>
  </tr>
  
</table>
beschrijving:<BR><TEXTAREA NAME="DESCR" rows="6" cols="35"><%= tekst %></TEXTAREA><BR>


    </table>
<geldig>U wordt zo terug gestuurd een ongeblik geduld</geldig>
    <%


    ' De SQL query die de gegevens in de database zet. De SQL hieronder is opgedeeld ' in stukjes om het duidelijker te maken. Alles kan gewoon achterelkaar.
        SQL = "INSERT INTO data(naam, filename, tekst, prijs,pagina,id) VALUES('"&naam&"','"&filename&"','"&tekst&"','"& "€" +  prijs & "','"&pagina&"','"&id&"')"

    ' Maak een object objAdd aan. Open dit record met bepaalde waarden
    set objAdd = objCon.execute(SQL)


    ' Sluit de recordset en de verbinding af omdat we die niet meer gebruiken.
    Set objAdd = Nothing
    objCon.close
    set objCon = Nothing

%>


    <%
end function


%>


<BODY>

<br><br>

<%
Dim diagnostics
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
    diagnostics = TestEnvironment()
    if diagnostics<>"" then
        response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">"
        response.write diagnostics
        response.write "<p>After you correct this problem, reload the page."
        response.write "</div>"
    else
        response.write "<div style=""margin-left:150"">"
        OutputForm()
        response.write "</div>"
    end if
else
    response.write "<div style=""margin-left:150"">"
    OutputForm()
    response.write SaveFiles()
    response.write "<br><br></div>"
end if

%>

<meta http-equiv="refresh" content="4;URL=opvragen.asp" /> 
</div>
</BODY>
</HTML>

[ Voor 0% gewijzigd door RobIII op 02-04-2007 17:41 . Reden: Code tag fix ]

maandag 2 april 2007 17:38

Acties:

Janoz

Moderator Devschuur®

!litemod

(dus niet zo lastig en geen moeite om te posten lijkt mij)

Faq en dan met name de quickstart lezen lijkt me ook niet zo moeilijk, maar blijkbaar heb je dat niet gedaan....

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'

maandag 2 april 2007 17:39

Acties:

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

Ja, helaas. Zo werken wij hier niet.
Zowieso geven wij geen support op code van derden, wij programmeren hier in [PRG] zélf. Voor support op scripts die je ergens vindt/'leent' kun je contact opnemen met de makers.

Daarnaast is het de bedoeling dat, als je code post, je alleen relevante code post en niet hele lappen. Daarbij hoor je dan ook nog eens aan te geven wat je denkt dat er verkeerd is, wat je geprobeerd en/of gezocht hebt om het probleem op te lossen en wat er niet aan werkt(e) enzovoorts. Zie daarvoor ook onze Programming Beleid Quickstart.

Je topic is nu een zgn. quickfix topic, en die laten we hier niet staan.

[ Voor 5% gewijzigd door RobIII op 02-04-2007 17:46 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij