Ir para conteúdo

POWERED BY:

Arquivado

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

allan.web

Upload.. componente??

Por , em ASP Clássico

Recommended Posts

allan.web    0

allan.web
Postado

Ola pessoal.... Tenho um servidor que roda o win 2k server.... completinho.. com exchange e tudo mais... agora um cliente quer que a pagina dele faça o upload pala propria pagina... presiso instalar algum componente adicional no servidor..??.. ou é só comandos em ASP??... Desde ja agradeço...Um abraço

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

você pode instalar o Dundas Upload, ASPUpload e tem vários outros!, só depende de qt você quer gastar!

 

Dundas

AspUpload

Compartilhar este post

Link para o post
Compartilhar em outros sites

allan.web    0

allan.web
Postado

você pode instalar o Dundas Upload, ASPUpload e tem vários outros!, só depende de qt você quer gastar!DundasAspUpload

você TEM IDEIA DE QUANDO CUSTA EM MEDIA CADA UM DESSES??... E PARA USAR ELES .. É FACIL??...OBRIGADO

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
você TEM IDEIA DE QUANDO CUSTA EM MEDIA CADA UM DESSES??... E PARA USAR ELES .. É FACIL??...

 

OBRIGADO

Não tenho idéia de preço, mas dê uma olhada nas páginas que te passei, pois elas devem ter a base de preço.

 

Quanto a serem fáceis só depende de você, é uma questão de se acostumar com a sintaxe de cada componente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
ASP é um saco...pra qualquer coisa ele precisa de componente!!!!!por isso acho PHP muito melhor

Se não pode ajudar, não atrapalhe!

 

Se a M$ fizesse o mesmo que a Base do PHP, não deixasse componentes de terceiros você diriam que ela está tentando quebrar e monopolizar tudo!

 

 

E tb é possivel fazer upload sem nenhum componente!

Compartilhar este post

Link para o post
Compartilhar em outros sites

gastao    0

gastao
Postado

ASP é um saco...pra qualquer coisa ele precisa de componente!!!!!por isso acho PHP muito melhor

PHP, é linguagem de pobre..............................falow...

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

Oras , se você naum gosta do ASP pq você naum faz seu projeto em PHP? Assim não teria doque reclamar e não falaria bobeiras aqui no fórum!!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

WebASP    0

WebASP
Postado

Olha o pessoal metendo pau por causa de linguagens fala sério

 

Ao inves de brigar um contra os outros e mais facil ajundar um a o outro a aprender as linguagens e todos saberao um pouco de cada sei la

 

Eu manjo ASP e manjo PHP

 

mais de boa os dois tem seus pontos fracos e pontos fortes

 

mais oq interessa agora e ajudar o cra com o upload

 

ai tenho um scripts em upload sme componente segue logo abaixo

 

OBS: O code eu peguei do meu site por isso precisa mudar as imagens mais o code esat funcionando e so mudar o caminho fisico e ja era

 

<html><head><title>Upload de Arquivos Rede 2</title><style>	a:link      {color:000000; TEXT-DECORATION: none;}	a:visited   	 {color:000000; TEXT-DECORATION: none;}	a:hover      {color:1170A0; TEXT-DECORATION: none;}	body 	 { font-family: Tahoma, Verdana; font-size: 8pt; }	body 	 { scrollbar-face-color: #EFEFEF;}	body 	 { scrollbar-shadow-color: #EFEFEF;}	body 	 { scrollbar-highlight-color: #EFEFEF;}	body 	 { scrollbar-3dlight-color: #FFFFFF;}	body 	 { scrollbar-darkshadow-color:  #000000;}	body 	 { scrollbar-track-color:  #CCCCCC;}	body 	 { scrollbar-arrow-color: #000000;}	body 	 { OVERFLOW:scroll;OVERFLOW-X:hidden;}td { font-family: Tahoma, Verdana; font-size: 8pt; }.campo  {	    font-family: Tahoma, Verdana;     font-size: 8pt;     color: #006699;     background-color: #FDFDFD;	    border-width:1px;    border-left: 1 solid #CCCCCC;    border-top: 1 solid #CCCCCC;    border-right: 1 solid #DDDDDD;    border-bottom: 1 solid #DDDDDD;     	 }  .botao  {    background-color: #E8E8E8;     color: black;     border-color: #FFFFFF;     border-width: 1px;     font-family: Tahoma, Verdana;     font-size: 8pt; 	 }</style></head><body bgcolor="#CCCCCC"><div align="center">  <center><table width="400" cellspacing cellpadding style="border: 1 solid #000000">  <tr>    <td width="100%" bgcolor="#FFFFFF"> </td>  </tr>  <tr>    <td width="100%" bgcolor="#FFFFFF">    <IMG SRC="images/extranet_ti_upload.gif" WIDTH="132" HEIGHT="38" BORDER="0"></td>  </tr>  <tr>    <td width="100%" bgcolor="#FFFFFF" height="100" align="center"><%	Set fsoObject = CreateObject("Scripting.FileSystemObject")  IF Not fsoObject.FolderExists("C:\w2n.com.br\arquivos") THEN 	 fsoObject.CreateFolder("C:\w2n.com.br\arquivos")  END IF	Set fsoObject = Nothing	destFolder = "C:\w2n.com.br\arquivos"	Set FSO = server.CreateObject ("Scripting.FileSystemObject")	Call Upload	Set FSO = Nothing	Sub Upload()  If Request("command")="DoUpload" Then 	 Dim Uploader 	 Set Uploader = New classUploader	 	 Uploader.Upload()	 	 If not Uploader.uploaded Then    Response.Write "Selecione um Arquivo" 	 Else    If Uploader.uploadedFile.FileName="" OR (Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "htm" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "tml" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "ttf" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "bmp" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "gif" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "jpg" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "peg" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "png" AND Lcase(Right(Uploader.uploadedFile.FileName,3)) <> "txt") THEN       	 Response.Write "Selecione um Arquivo válido NÃO é permitido arquivo(.asp .php .cfm) etc..."    Else   	 IF Uploader.uploadedFile.Save(destFolder) Then      Response.Write Uploader.uploadedFile.FileName & " enviado com sucesso.<br>"      Response.Write FormatSize(Uploader.uploadedFile.FileSize) & " (" & Uploader.uploadedFile.FileSize & " bytes) gravado.<br>"   	 ELSE      Response.Write Uploader.uploadedFile.FileName & " erro no envio.<br>"   	 END IF    End If 	 End If 	 %><script>setTimeout("window.close();",1000*2);</script> 	 <%  Else%>   	 <form enctype="multipart/form-data" name=formBuffer method=post action="popUpload.asp?command=DoUpload">      <input type=file name=file class=campo size="20">      <input type="submit" name="ok" value="Enviar" class="botao">   	 </form><%  End If	End SubClass classUploader  Public uploaded  Public uploadedFile	  Public Default Sub Upload() 	 Dim biData, sInputName 	 Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos 	 Dim nPosFile, nPosBound	 	 biData = Request.BinaryRead(Request.TotalBytes) 	 nPosBegin = 1 	 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) 	  	 If (nPosEnd-nPosBegin) <= 0 Then Exit Sub     	 vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin) 	 nDataBoundPos = InstrB(1, biData, vDataBounds) 	  	 Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))        nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))    nPos = InstrB(nPos, biData, CByteString("name="))    nPosBegin = nPos + 6    nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))    sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))    nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))    nPosBound = InstrB(nPosEnd, biData, vDataBounds)        If nPosFile <> 0 And  nPosFile < nPosBound Then   	 Dim sFileName   	 Set uploadedFile = New classUploadedFile   	    	 nPosBegin = nPosFile + 10   	 nPosEnd =  InstrB(nPosBegin, biData, CByteString(Chr(34)))   	 sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))   	 uploadedFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))	   	 nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))   	 nPosBegin = nPos + 14   	 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))   	    	 nPosBegin = nPosEnd+4   	 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2   	 uploadedFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)   	    	 If uploadedFile.FileSize > 0 Then uploaded = true Else uploaded = false    End If    nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds) 	 Loop  End Sub  Private Function CByteString(sString) 	 Dim index 	 For index = 1 to Len(sString)    CByteString = CByteString & ChrB(AscB(Mid(sString,index,1))) 	 Next  End Function  Private Function CWideString(bsString) 	 Dim index 	 CWideString ="" 	 For index = 1 to LenB(bsString)    CWideString = CWideString & Chr(AscB(MidB(bsString,index,1)))  	 Next  End Function	End Class	Class classUploadedFile  Public FileName, FileData    Public Property Get FileSize() 	 FileSize = LenB(FileData)  End Property	  Public Function Save(path) 	 Dim file 	 Dim index   	 If path = "" Or FileName = "" Then     Save = false    Exit Function 	 End If 	 path = FixPath(path, "\")   	 If Not FSO.FolderExists(path) Then    Save = false    Exit Function 	 End If   	 on error resume next 	 Set file = FSO.CreateTextFile(path & FileName, True) 	  	 For index = 1 to LenB(FileData)       file.Write Chr(AscB(MidB(FileData,index,1))) 	 Next	 	 file.Close 	 If err.Number<>0 Then    Save = false 	 Else    Save = true 	 End If  End Function	End Class	Function FixPath(path, slash)  If Right(path, 1) <> slash Then            FixPath = path & slash        Else 	 FixPath = path        End If	End Function	Function FormatSize (givenSize)  If (givenSize < 1024) Then 	 FormatSize = givenSize & " B"  ElseIf (givenSize < 1024*1024) Then 	 FormatSize = FormatNumber(givenSize/1024,2) & " KB"  ElseIf (givenSize < 1024*1024*1024) Then 	 FormatSize = FormatNumber(givenSize/(1024*1024),2) & " MB"  Else 	 FormatSize = FormatNumber(givenSize/(1024*1024*1024),2) & " GB"  End If	End Function%></td>  </tr>  <tr>    <td width="100%" background="images/extranet_r11_c1.gif">      <p align="center"><img border="0" src="images/extranet_r11_c1.gif" width="148" height="20"><img border="0" src="images/extranet_r11_c9.gif" width="252" height="20"></p>    </td>  </tr></table>  </center></div></body></html>

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