Avatar billede mrs Nybegynder
07. november 2002 - 11:24 Der er 4 kommentarer og
1 løsning

Lig url i database ved at bruge SAFileUp

Hej er der nogen der ved lidt om hvordan man kan få skrevet url'en ind i en record sammen med tekstfelter, samtidig med billedet bliver uploadet.
Kan man bruge upl.ServerName til at få skrevet url'en?
Gerne skrive hvordan.

Her er min kode:

<%
'---
'--- Instanciate SA-FileUp
'---
Set upl = Server.CreateObject("SoftArtisans.FileUp")
'---
'--- Set the default path to store uploaded files.
'---

upl.Path = server.mappath("../elevraad/")

%>

<%
'Hvis brugeren har submittet formularen
    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from konkurrence"
    rs.Open strsql, conn, 1, 3
   
'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs("Overskrift") = Server.HTMLEncode(Request("Overskrift"))
    rs("Teaser") = Server.HTMLEncode(Request("Teaser"))
    rs("Url") = Server.HTMLEncode(Request("& upl.ServerName &"))
    rs("Dato") = Now()
    rs.update
   
    rs.Close
    set rs = nothing
   
    end if
%>

<FONT COLOR="#000080"><H3 ALIGN="CENTER">KONKURRENCE PÅ RAMSOE-USK.DK</H3></FONT>
<br><br><br>
<b>Konkurrence til visning på ramsoe-usk.dk</b><br>
Udfyld felterne.<br>
<hr size="0" width="98%" align="center" color="#000000">


<form method="POST" action="konkurrence.asp">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
        <tr valign="top">
          <td valign="middle" align="left" colspan="2"><br>Indtast venligst oplysningerne i følgende felter:<strong>
      <%=strError%></td>
        </tr>
        <tr valign="top">
          <td align="right"><p><b>Overskrift: </b></td>
          <td valign="middle" align="left">
<input type="text" name="Overskrift" size="50"></td>
        </tr>
        <tr valign="top">
          <td align="right"><p><b>Teaser: </b></td>
          <td valign="middle" align="left">
<textarea rows="10" name="Teaser" cols="40"></textarea></td>
        </tr>
        <tr valign="top">
          <td align="right"><p><b>Upload billed: </b></td>
          <td valign="middle" align="left">
  <INPUT TYPE="FILE" NAME="Url" SIZE="50">
</td>
        </tr>
        <tr>
          <td><p align="center"><br>
          <input type="submit" value="Upload" name="Gem"> <input type="button" value="Annuller" name="Annuller" onClick="java script:location.href='main.asp'"></p></td>
        </tr>
      </table>
</form>
Avatar billede rasmuslund Nybegynder
07. november 2002 - 14:11 #1
Hvis det er den aktuelle url du vil hive ud kan du bruge request.ServerVariables objektet.

f.eks.:

request.ServerVariables("URL") = URL fra roden af serveren /minmappe/minfil.asp
request.ServerVariables("SERVER_NAME") = webserveren navn www.eksempel.dk
request.ServerVariables("QUERY_STRING") = evt. parametre sendt med i querystringen

Så vil du hive hele URL'en ud:

myUrl = "http://" & request.ServerVariables("SERVER_NAME") & request.ServerVariables("URL") & "?" & request.ServerVariables("QUERY_STRING")

Rasmus c",)
Avatar billede mrs Nybegynder
07. november 2002 - 14:56 #2
rasmuslund>>> jeg kan ikke lige gennemskue hvor der er du vil have at jeg skal indsætte værdierne?

Det er en side, der skal skrives tekst i to felter og så skal der uploades et billed til en mappe.

Meningen er at filnavnet fra det billed skal ligges i database i samme record som teksten.
Dvs. den skal både uploade billedet og oprette recorden.
Webhotellet er hos zitechnet.dk så der er de komponenter som de har til rådighed.
Avatar billede rasmuslund Nybegynder
07. november 2002 - 15:15 #3
Okay så dit spørgsmål går på hvordan du benytter sa-fileup til at læse den sti som du lige har uploadet filen til og derefter gemme den i DB?

Kender ikke rigtig sa-fileup men fandet denne vejledning på deres hjemmeside: http://support.softartisans.com/docs/FileUp/ her kan du se referencer til metoder og Properties. Der er sikkert også eksempler.

Rasmus c",)
Avatar billede mrs Nybegynder
16. november 2002 - 16:23 #4
Den uploader billedet til mappen, så nu må der kun være en fejl i delen der skal uploade tekst til databasen.
Jeg har selv prøvet en del, men det er ikke lykkedes andre der kan se fejlen??

Jeg kan ikke få en fejlmeddelse da jeg kører det fra et webhotel fordi ikke selv har SaFileup liggende på min egen computer.

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")
upl.Path = Server.Mappath ("../elevraad")
%>
<%
upl.Form("FILE1").Save

if Err <> 0 Then %>
<H1><font color="#ff0000" size="3">Der er opstået en fejl</font></H1>
Mulige grunde til problemet
<UL>
  <LI>Der er angivet et forkert filnavn
  <LI>Den valgte fil er af en forkert type
</UL>
a>
<% End If %>
<%

'Tilføjer brugeren til databasen
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs = "select * from konkurrence"
    rs.Open strsql, Conn, 2, 3
   
'Tilføjer brugeren til databasen og sender ham/hende til login siden
    rs.AddNew
    rs.Fields("Overskrift") = upl.form("Overskrift")
    rs.Fields("Teaser") = upl.form("Teaser")
    upl.form("FILE1").SaveAs rs.Fields("Url")
    rs("Dato") = Now()
    rs.update
   
    rs.Close
    rs = nothing
%>
Avatar billede mrs Nybegynder
17. november 2002 - 15:17 #5
Det virkede åbenbart ikke det her, jeg prøver at oprette et nyt spørgsmål som er lidt mere konkret.
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