Avatar billede svksvk Nybegynder
26. marts 2004 - 14:12 Der er 1 kommentar og
1 løsning

Endnu et upload spg. Fra tekstfil til variabel.

Jeg har fundet nedenstående script fra activedeveloper.dk:

<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
  intFormSize = Request.TotalBytes

  If intFormSize > 20000 Then
    Response.Write "Du må maksimum uploade 20k i denne demo!"
    Response.End
  End If
 
  strData = Request.BinaryRead(intFormSize)
  bCrLf = ChrB(13) & ChrB(10)
 
  intDivider = LeftB(strData, InStrB(strData, bCrLf) - 1)
  intDataStart = InStrB(strData, bCrLf & bCrLf) + 4
  intDataEnd = InStrB(intDataStart + 1, strData, intDivider) - intDataStart
 
  Response.ContentType = "image/gif"
  Response.BinaryWrite MidB(strData, intDataStart, intDataEnd)
  Response.End
End If
%>
<html><head>
<title>Upload uden komponent</title>
</head><body>

<form enctype="multipart/form-data" action="upload.asp" method="POST">
<p>Vælg et billede:<br>
<input name="image" type="file"><br>
<input type="submit" value="Upload" name="Action">
</form>

</body></html>

Jeg vil gerne have det modificeret, så jeg kan uploade en alm. tekstfil der så skal gemmes i en variabel. Tekstfilen indeholder en kommasepareret fil der senere skal lagres i en database, men det kan jeg nok godt selv finde ud af :-)
Avatar billede eagleeye Praktikant
26. marts 2004 - 17:02 #1
Man skal havde lavet det binære man før om til en streng så. Det kan evt gøres ved at tilføje en function som kan lave bin til string.:

Så tilføj denne funktion

'* Funktion der oversætter en bstr binær streng til en almindelig streng
'* Pas på med 00 værdier, da de fungerer som EOF i en almindelig streng
Function bin2str(bstrBinary)
    Dim i
    For i = 1 To LenB(bstrBinary)
      bin2str = bin2str & Chr(AscB(MidB(bstrBinary, i, 1)))
    Next
End Function


Prøv at rette disse linjer:

  Response.ContentType = "image/gif"
  Response.BinaryWrite MidB(strData, intDataStart, intDataEnd)
  Response.End

Til disse linjer:

  str = bin2str(MidB(strData, intDataStart, intDataEnd))
  Response.Write str
  Response.End
Avatar billede svksvk Nybegynder
26. marts 2004 - 18:30 #2
Det virker bare. 1k tak.
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