Ir para conteúdo

POWERED BY:

Arquivado

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

hbtasp

Caminho para armazenar upload

Por , em ASP Clássico

Recommended Posts

hbtasp    0

hbtasp
Postado

OLÁ

BOM EU TENHO QUE FAZER O UPLOAD DE ALGUMAS FOTOS PARA O SERVIDOR WEB.

NO CODIGO QUE ESTOU USANDO TEM ESSES CAMINHOS MAS QUE NEHUM DAR CERTO

 

[<%

Response.Expires=0

Response.Buffer = TRUE

Response.Clear

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest

Set UploadRequest = CreateObject("Scripting.Dictionary")

 

BuildUploadRequest RequestBin

 

contentType = UploadRequest.Item("blob").Item("ContentType")

filepathname = UploadRequest.Item("blob").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

'filename = Replace(filename,".","_"& rndit &".")

value = UploadRequest.Item("blob").Item("Value")

 

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

 

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

' Set MyFile = ScriptObject.CreateTextFile("c:\Inetpub\wwwroot\no\imagem\"&filename)

'Set MyFile = ScriptObject.CreateTextFile("d:\caminho_dapasta\"&filename)

Set MyFile= ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"\"&filename) '=> JA TENTEI ESTES CAMINHOS MAS NENHUM DEU CERTO

ALGUEM PODE ME DAR UMA LUZ POR FAVOR

 

For i = 1 to LenB(value)

MyFile.Write chr(AscB(MidB(value,i,1)))

Next

MyFile.Close

'renomeia ao arquivo

Function rndit()

Dim RndTemp

Randomize

RndTemp = Rnd * 10000

RndTemp= Int(RndTemp)

rndit = RndTemp

End Function

PasswordTemp = rndit()

%>

<title>Upload</title>

<link href="../css/novaopcao.css" rel="stylesheet" type="text/css">

<style type="text/css">

<!--

.style1 {

color: #FF6600;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-weight: bold;

font-size: 10px;

}

-->

</style>

<body class="tbl_titulo">

<!--#include file = "../jss/upload.js"-->

<%

codigo = PasswordTemp

%>

<%session("codigo1")= codigo %>

<table width="100%" height="10" border="0" align="center" cellpadding="0" cellspacing="0" class="titulo_frm">

<tr>

<td >

<div align="center">acp - Upload</div>

</td>

</tr>

</table>

<table width="100%" border="0" align="center">

<tr>

<td height="163">

<div align="center"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>O Arquivo

<font color="#990000"><%= filename%></font> foi carregado.<br>

<%session("filename1")= filename %>

<br>

Upload concluido com exito.<br>

<br>

</font></b> </div>

<table width="75%" height="100" border="0" align="CENTER" cellpadding="0" cellspacing="0">

<form name="frm" action="../codigo/upload.asp" method="post">

<tr>

<td height="20">

<center><span class="style1">Digite a descrição da imagem</span></center></td>

</tr>

<tr>

<td height="20"><input name="blob" type="hidden" id="blob" value="<%=filename%>">

<input name="vc_descricao" type="text" class="box" id="vc_descricao" value="<%=vc_descircao%>"></td>

</tr>

<tr>

<td height="20"><input name="Submit" type="button" class="cmd" value="Cadastrar" onClick="verificar();"></td>

</tr>

<tr>

<td height="20"> </td>

</tr>

<tr>

<td height="20"> </td>

</tr>

</form>

</table>

</td>

</tr>

</table>

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

 

 

E AINDA RETORNA NO SEGUINTE ERRO

 

Microsoft VBScript runtime error '800a004c'

 

Path not found

 

/hbtagles82/frm/outputFile1.asp, line 23

 

ACHO QUE NÃO FOI ECONTRADO O CAMINHO, MAS COMO FAÇO PARA COLOCAR O CAMINHO DI PATH

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Experimente assim:Set MyFile = ScriptObject.CreateTextFile(Server.MapPath(pasta) & "\" & filename)

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