Toon posts:

[asp/vb] SA FileUp

Pagina: 1
Acties:

vrijdag 22 maart 2002 13:21

Acties:

Verwijderd

Topicstarter
LS,

vraagje (heb al gezocht, kon niets vinden :'()
Ik zet mn plaatjes op de server met SA Fileup maar nou wil ik dat als ik een plaatje upload dat dan de locatie waar deze wordt opgeslagen opgeslagen wordt in mijn database (*.mdb)
bv:
www.autorecycler.nl/blaat/blaat.jpg --> in de database

mn FileUp script:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

<%@ LANGUAGE="VBSCRIPT" %>

<HTML>

<HEAD>
<TITLE>Upload File Resultaten</TITLE> 
</HEAD>

<BODY >


<% Set upl = Server.CreateObject("SoftArtisans.FileUp") 
' locatie op de server
upl.Path = "g:\activewebroot\blaat\blaat\Admin\" %> 
<% upl.Save %><BR>


Uw bestand is opgeslagen.<br>
Totaal aantal bytes: <%=upl.TotalBytes%>
<br>

</BODY>

wil de verwijzingen die in de database komen gebruiken om de fotoz te bekijken....

thnx ;)

vrijdag 22 maart 2002 13:56

Acties:
  • raptorix
  • Registratie: Februari 2000
  • Laatst online: 17-02-2022

raptorix

Ik heb heb het laatst in elkaar geflanst :
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

<%
Server.ScriptTimeout = 50000

Set upl = Server.CreateObject("SoftArtisans.FileUp")
if upl.ContentType = "image/gif" or upl.ContentType = "image/pjpeg" or  upl.ContentType = "audio/mpeg" or  upl.ContentType = "application/x-zip-compressed" or  upl.ContentType = "application/msword" then
NewFileName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)
Description = replace(Upl.Form("Description"),"'","''")
Size = upl.TotalBytes
upl.SaveinVirtual NewFileName
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DSN=DMG"
Conn.open
sql = "Insert into Files (Name,Description,Size,Uploader,Dateuploaded) Values ('" & NewFileName & "','" & Description & "','" & Size & "'," & Session("memberid") & ",'" & now & "')"
Conn.execute sql
Conn.close
Set Conn = Nothing
set upl = nothing
end if
response.redirect("../uploadfile.asp")
%>

vrijdag 22 maart 2002 13:59

Acties:

Verwijderd

Topicstarter
thnx, maar deze is voor sql en k heb wel sql maar wil dat t opgeslagen wordt in de database op de site...

maak k zo verbinding mee:
code:
1
2
3
4
5
6
7
8
9
10
11
12

<%

Dim DB_CONNSTRING
DB_CONNSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("Admin/Database/Database_algemeen.mdb") & ";"
Dim rsCount ' The recordset object
Set rsCount = Server.CreateObject("ADODB.Recordset")
' rsCount.Open "onderdelen" ---> zoekt naar de betreffende tabel.
rsCount.Open "onderdelen", DB_CONNSTRING, adOpenStatic, adLockReadOnly, adCmdTable
Response.Write rsCount.RecordCount
Response.Write " Onderdelen in onze database." & vbCrLf

%>

is voor mn teller van iets dus niet de betreffende ;)
kun je je script daar misschien voor aanpassen ?

thnx

vrijdag 22 maart 2002 14:28

Acties:

Verwijderd

Niet te geloven, duik er ff zelf in, ik vind het al benoemenwaardig dat raptorix je een compleet script in de handen drukt.

[NOTE]Voetenzalf vind Raptorix zeer behulpzaam[/NOTE]
Reageer