Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

hinom

UPLOAD sem componente

Por , em ASP Clássico

Recommended Posts

hinom    5

hinom
Postado

enviar.asp

em vermelho o nome do diretorio pra onde vai o arquivo "uploadeado"

<%

dir = "tmp/"

'dir = request.querystring("dir")

 

%>

 

<html><head><title>ASP - UPLOAD sem componente</title>

<style type='text/css'>

a{color=ffcc00; font-family=verdana; font-size=12px; text-decoration=none;}

a:hover{color=ffcc00; font-family=verdana; font-size=12px; text-decoration=underline;}

.table{color=ffffff; font-family=verdana; font-size=12px;}

.entrada{font-family=verdana; font-size=12; font-weight=big; background-color=000000; color=ffffff;}

.botao{font-family=verdana; font-size=11; font-weight=bold; background-color=000000; color=cccccc; cursor:hand;}

</style>

</head>

<body bgcolor=000000 text=ffffff cellspacing=0 cellpadding=0 topmargin=0 leftmargin=0 marginwidth=0 marginheight=0 margin=0px border=0><center>

<table width=100% height=100% cellspacing=0 cellpadding=0 border=0><tr><td align=center valign=middle>

 

E n v i a r A r q u i v o

<div align=left style=width:200px;>

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">

<INPUT TYPE="hidden" NAME="dir" VALUE="<%=dir%>">

 

<INPUT TYPE="file" size=20 NAME="blob" class=entrada><p>

</div>

 

<INPUT TYPE="submit" NAME="Enter" value=" enviar " class=botao>

</FORM>

 

 

</td></tr.</table>

</center></body></html>

 

upload.asp

<%

Sub BuildUploadRequest(RequestBin)

'Get the boundary

PosBeg = 1

PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))

boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)

boundaryPos = InstrB(1,RequestBin,boundary)

'Get all data inside the boundaries

Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))

  'Members variable of objects are put in a dictionary object

  Dim UploadControl

  Set UploadControl = CreateObject("Scripting.Dictionary")

  'Get an object name

  Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))

  Pos = InstrB(Pos,RequestBin,getByteString("name="))

  PosBeg = Pos+6

  PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))

  Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

  PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))

  PosBound = InstrB(PosEnd,RequestBin,boundary)

  'Test if object is of file type

  If  PosFile<>0 AND (PosFile<PosBound) Then

   'Get Filename, content-type and content of file

   PosBeg = PosFile + 10

   PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))

   FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

   'Add filename to dictionary object

   UploadControl.Add "FileName", FileName

   Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))

   PosBeg = Pos+14

   PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))

   'Add content-type to dictionary object

   ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

   UploadControl.Add "ContentType",ContentType

   'Get content of object

   PosBeg = PosEnd+4

   PosEnd = InstrB(PosBeg,RequestBin,boundary)-2

   Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)

   Else

   'Get content of object

   Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))

   PosBeg = Pos+4

   PosEnd = InstrB(PosBeg,RequestBin,boundary)-2

   Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))

  End If

  'Add content to dictionary object

UploadControl.Add "Value" , Value

  'Add dictionary object to main dictionary

UploadRequest.Add name, UploadControl

  'Loop to next object

  BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)

Loop

 

End Sub

 

'String to byte string conversion

Function getByteString(StringStr)

For i = 1 to Len(StringStr)

  char = Mid(StringStr,i,1)

getByteString = getByteString & chrB(AscB(char))

Next

End Function

 

'Byte string to string conversion

Function getString(StringBin)

getString =""

For intCount = 1 to LenB(StringBin)

getString = getString & chr(AscB(MidB(StringBin,intCount,1)))

Next

End Function

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

mvca    0

mvca
Postado

Como faço agora para gravar os dados enviados no formulário num banco de dados, como o nome do diretorio, o nome do arquivo, etc ...Obrigado pela atenção.Marcus

Compartilhar este post

Link para o post
Compartilhar em outros sites

hinom    5

hinom
Postado

Como faço agora para gravar os dados enviados no formulário num banco de dados, como o nome do diretorio, o nome do arquivo, etc ...Obrigado pela atenção.Marcus

no arquivo upload.asp é obtido o nome do arquivo em "FileName"

Compartilhar este post

Link para o post
Compartilhar em outros sites

hinom    5

hinom
Postado

O server eh XP professional!Não mostrou nenhum erro! . . . serah q ele jogou na raiz?

é justamente no XP Professional que ele não funciona, tinha esquecido de avisartb uso xp pro ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

d.eleete    0

d.eleete
Postado

Ah.. :lol: tipow.. mas eu tenho um upload sem COM q funfa aqui comigo... esse do hinom eh bem compacto, mas pra quem tem xp pro e estiver afim da um grito!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito