/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord? 		Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
1  smorch 9259
2  Harlekin 1866
3  molokyle 1040
4  Steffanst.. 758
5  gandalf 657
6  smilly 564
7  gibson 560
8  cumano 530
9  MouseKeep.. 480
10  Random 410
indsæt i en Session
Fra : Martin Jørgensen

Dato : 09-06-04 08:29
Hej NG

Jeg bruger en komponent som hedder aspSmartUpload, koden:
<%
' Variables
' *********
Dim mySmartUpload
Dim intCount

' Object creation
' ***************
Set mySmartUpload =
Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload
' ******
mySmartUpload.Upload

' Gem filen med det originale navn i den virtuele mappe på
Serveren
intCount = mySmartUpload.Save("../log")

Session("Hej") = mySmartUpload.Form("pic")
Session("Hej") = "Hej med dig"

'Response.Write(intCount & " fil(er) er uploaded.")
%>

Jeg bruger en Response.Write til at tjekke om den har fået alle
tingene med, koden:
<%
   Response.Write Session("Hej")
%>

Når at jeg bruger: Session("Hej") = mySmartUpload.Form("pic")
Får den ikke tingene med, men den skal virke.

Men når at jeg bruger: Session("Hej") = "Hej med dig"
Den får fat tingene, men jeg skal bruge den første streng.

Kan I se hvad der er galt?

Mvh
Martin Jørgensen

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

 
 
pepss (09-06-2004)
Kommentar
Fra : pepss

Dato : 09-06-04 09:22

"Martin Jørgensen" skrev
> Jeg bruger en komponent som hedder aspSmartUpload, koden:

[snip kode]

> Kan I se hvad der er galt?

prøv at kom med din form (formular) kode

hvad skal Sessionen bruges til?


--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk



Martin Jørgensen (09-06-2004)
Kommentar
Fra : Martin Jørgensen

Dato : 09-06-04 09:44
Hej Pepss

prøv at kom med din form (formular) kode

Her kommer min kode til start:
<!-- #include file="session.asp" -->

<html>
<head>
<title><!-- #include file="../title.asp" --></title>
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<body>

<!-- #include file="script_pic.asp" -->

<form action="pic_upload.asp" method="post" onsubmit="return
Check_Form(this)" ENCTYPE="multipart/form-data">

<table align="center" width="700px" height="100%" border="0px"
cellpadding="0" cellspacing="0">
<tr>
<td width="100%" align="center" colspan="4" cellpadding="0"
cellspacing="0"><!-- #include file="banner.asp"--></td>
</tr>
<tr>
<td>&nbsp;</td>
</tr>
<tr>
<td width="100%" align="center" colspan="4" cellpadding="0"
cellspacing="0"><!-- #include file="menu.asp" --></td>
</tr>
<tr>
   <td width="20px" div id="bgcolor" cellpadding="0"
cellspacing="0" height="100%"></td>
   <td width="490px" cellpadding="0" cellspacing="0"
align="center">

<table border="0px" align="center">
<tr>
<td colspan="2" align="center">
   Her kan du uploade et billed.
<td>
</tr>
<tr>
<td colspan="2">
&nbsp;
</td>
</tr>
<tr>
<td align="center">
   Billed:
</td>
<td>
   <input type="file" id="pic" name="pic">
</td>
</tr>
<tr>
<td colspan="2">&nbsp;</td>
</tr>
<tr>
<td colspan="2" rowspan="2" align="center">
   <input type="submit" name="submit" id="submit" value="Upload
billedet">
</td>
</tr>
</table>

</td>
   <td width="170px" cellpadding="0" cellspacing="0"><!-- #include
file="left.asp" --></td>
   <td width="20px" div id="bgcolor" cellpadding="0"
cellspacing="0" height="100%"></td>
</tr>
<tr>
<td width="100%" align="center" colspan="4" cellpadding="0"
cellspacing="0"><!-- #include file="bund.asp" --></td>
</tr>
</table>
</form>
</body>
</html>

Her kommer min kode til: pic_upload.asp:
<!-- #include file="function.asp" -->

<!-- #include file="../mysql.asp" -->

<%
' Variables
' *********
Dim mySmartUpload
Dim intCount

' Object creation
' ***************
Set mySmartUpload =
Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload
' ******
mySmartUpload.Upload

' Gem filen med det originale navn i den virtuele mappe på
Serveren
intCount = mySmartUpload.Save("../log")

Session("Hej") = mySmartUpload.Form("pic")
Session("Hej") = "Hej med dig"

'Response.Write(intCount & " fil(er) er uploaded.")
%>

<%
   'Response.Write mySmartUpload.Form("pic")
   'Response.Write mySmartUpload.Form("Hej")
   'Response.Write Session("pic")
   Response.Write Session("Hej")
%>

<%
'strSQL = "INSERT INTO galleri (pic)"
'strSQL = strSQL & " values ('" & fixStr(Session("Hej")) & "')"

'Response.write strSQL
'Conn.Execute(strSQL)

'Conn.Close
'Set Conn = Nothing
'Set strSQL = nothing
'Response.Redirect "adm.asp"
%>

hvad skal Sessionen bruges til?

Jeg skal først uploade et billed til serveren, f.eks. fra c:, og
derefter skal den nye adresse indsættes i en database, hvor efter
at man kan se billedet på kundens hjemmeside.

Jeg ved godt at det er nemmere at bruge et uploadings program,
men det er fordi at kunden ikke har så meget forstand på
hjemmesider, og han vil have det så nemt for ham som muligt.

Mvh
Martin Jørgensen

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

pepss (09-06-2004)
Kommentar
Fra : pepss

Dato : 09-06-04 09:58

"Martin Jørgensen" skrev

pepss

> prøv at kom med din form (formular) kode
> <input type="file" id="pic" name="pic">

når det som her er type fil kan du ikke hente navnet ud på den måde du
prøver.

> hvad skal Sessionen bruges til?
>
> Jeg skal først uploade et billed til serveren, f.eks. fra c:, og
> derefter skal den nye adresse indsættes i en database, hvor efter
> at man kan se billedet på kundens hjemmeside.

prøv noget alá
strFilename = mySmartUpload.Files("pic").FileName

strSQL = "Update min_tabel set pic = '" & strFilename & "' Where kunde =
'"& Session("kundenavn") &"'"
Conn.Execute(strSQL)


--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk



Martin Jørgensen (09-06-2004)
Kommentar
Fra : Martin Jørgensen

Dato : 09-06-04 10:20
Hej Pepss

Der hjalp, nu bliver det skrevet i databasen, men billedet bliver lagt i
"log" mappen, og som det er nu bliver det skrevet i databasen at billedet
ligger i roden af webstedet, ved du hvad jeg skal skrive mere, for at linket
bliver bliver som i "log" mappen?

Her hentes linket til billedet:
strFileName = mySmartUpload.Files("pic").FileName


Mvh
Martin Jørgensen

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

pepss (09-06-2004)
Kommentar
Fra : pepss

Dato : 09-06-04 11:39

"Martin Jørgensen" skrev

> Der hjalp, nu bliver det skrevet i databasen, men billedet bliver lagt i
> "log" mappen, og som det er nu bliver det skrevet i databasen at billedet
> ligger i roden af webstedet, ved du hvad jeg skal skrive mere, for at
linket
> bliver bliver som i "log" mappen?

hvis det altid er i mappen log er det meget næmt

strGemFileName = "/log/" & strFileName


--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk



Martin Jørgensen (09-06-2004)
Kommentar
Fra : Martin Jørgensen

Dato : 09-06-04 11:47
pepss wrote in dk.edb.internet.webdesign.serverside.asp:
> "Martin Jørgensen" skrev
>
> > Der hjalp, nu bliver det skrevet i databasen, men billedet bliver lagt i
> > "log" mappen, og som det er nu bliver det skrevet i databasen at billedet
> > ligger i roden af webstedet, ved du hvad jeg skal skrive mere, for at
> linket
> > bliver bliver som i "log" mappen?
>
> hvis det altid er i mappen log er det meget næmt
>
> strGemFileName = "/log/" & strFileName
>
>
> --
> Pepss
> Den ordblinde der prøver at blive webdesigner
> Fræk frækkere www.cafe-flirt.dk
> De frække noveller www.novelle.cafe-flirt.dk

Hej Pepss

Nu virker det endeligt, jeg har rodet med det i en lille uges tid.
Mange tak for hjælpen...

Mvh
Martin Jørgensen

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

pepss (09-06-2004)
Kommentar
Fra : pepss

Dato : 09-06-04 12:02

"Martin Jørgensen" skrev
> pepss

> > > Der hjalp, nu bliver det skrevet i databasen, men billedet bliver lagt
i
> > > "log" mappen, og som det er nu bliver det skrevet i databasen at
billedet
> > > ligger i roden af webstedet, ved du hvad jeg skal skrive mere, for at
> > linket
> > > bliver bliver som i "log" mappen?
> >
> > hvis det altid er i mappen log er det meget næmt
> >
> > strGemFileName = "/log/" & strFileName

> Nu virker det endeligt, jeg har rodet med det i en lille uges tid.
> Mange tak for hjælpen...

det var så lidt! har selv brugt meget tid på at forstå hvordan det virker!

min kode er lavede med nogen fejlmedelser så man for besked hvis det er en
forkert fil type m.m.
måske du kan bruge noget af det:

On Error Resume Next

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.MaxFileSize = 307200
mySmartUpload.AllowedFilesList = "jpg,jpeg,png"
mySmartUpload.Upload
If Err <> 0 Then
If Err = -2147220494 Then intErrorCode = 20
If Err = -2147220399 Then intErrorCode = 21
Err.Clear


elseIf Not mySmartUpload.Files("filename").IsMissing And intErrorCode = 0
Then
strFilename = mySmartUpload.Files("filename").FileName

mySmartUpload.Files("filename").SaveAs Server.MapPath("/min_mappe/" &
strFilename)
If Err = 0 Then
Set fso = Server.CreateObject("Scripting.FileSystemObject")

strSQL = "Update min_table set felt_navn = '" & strFilename & "' Where navn
= '"& Session("navn") &"'"
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

Set fso = Nothing

Else
intErrorCode = 30
End If
ElseIf intErrorCode = 0 Then
intErrorCode = 40
End If
%>

<% If intErrorCode > 0 Then %>
Der opstod en fejl under uploade af dit billede.<br>
Fejlen er:
<p>
<font color="#ff0000"><b>
<%
Select Case intErrorCode
Case 20: Response.Write "Forkert filtype! Der kan kun uploades JPG
(*.jpg; *.jpeg) og PNG (*.png) filer!"
Case 21: Response.Write "Billedet fylder for meget! Max størrelse er:
&tilde;" & (307200 \ 1024) & " KB"
Case 30: Response.Write "Der opstod en fejl under upload af dit billede.
Dette skyldes højst sandsynligt en systemfejl!"
Case 40: Response.Write "Du valgte ikke noget billede!"
End Select
%>
</font></b>
<p>
Klik på din browsers tilbage knap, ret fejlen og prøv igen

<% Else %>
<h3>Dit nye billede er blevet uploadet </h3>
<% End If %>

NB der er klippet i det så det kan godt være det skal rettes lidt til.

håber du kan bruge det til noget!


--
Pepss
Den ordblinde der prøver at blive webdesigner
Fræk frækkere www.cafe-flirt.dk
De frække noveller www.novelle.cafe-flirt.dk



Jens Gyldenkærne Cla~ (09-06-2004)
Kommentar
Fra : Jens Gyldenkærne Cla~

Dato : 09-06-04 09:40
Martin Jørgensen skrev:

> Session("Hej") = mySmartUpload.Form("pic")

Pic er navnet på dit fil-felt i formen, ikke?

I så fald er det mySmartUpload.Form("pic") ikke en reference til
filnavnet men til selve filen (og formentlig endda ikke en brugbar
reference, da filer i stedet tilgås med mySmartUpload.Files).

Så vidt jeg husker har du spurgt før om samme problem. Prøv at
kigge på hjemmesiden for aspSmartUpload under Code Samples. Den kan
findes via Google. Du kan også se et direkte eksempel her:
<http://kortlink.dk/6eh>. Her kan du se hvordan man tilgår filnavn
mm.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html
Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408941
Brugere : 218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.