Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera, cosegui aqui no forum um sistem pequeno de update, onde o include é um arquivo upload.asp, e logo abaixo o arquivo cadastrar_download.asp...segue estrutura do mesmo. Já pedi para o pessal do servidor configurar as pastas para poder executar, ler e etc...para não dar problema, como eles já fizeram a configuração acho que o problema é o caminho que me enviaram absouto: D:\domains\fmnovotempo.com.br\httpdocs\imagens\, relativo: httpdocs/imagens
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Server.ScriptTimeout = 7200%>
<!--#include file="upload.asp"-->
<% if (session("validalogin")<>true)then
response.Redirect("login_ilegal.asp")
end If
response.Write(vlogin)
'Lê o formulário
upload_ReadRequest
'Obtém nome e email
nome=uRequest("nome")
email=uRequest("email")
vdata=uRequest("data")
vdata2=uRequest("data2")
Dim Fso
Set Fso = CreateObject("scripting.filesystemobject")
arq = Fso.GetBaseName(imagem1)
arq2 = Fso.GetExtensionName(imagem1)
arq3 = ((arq)&"."&(arq2))
'tamanho
Set arq4 = Fso.GetFile(imagem1)
arq5 = arq4.Size
arq6=(((arq5)/1000)&" "&"bytes")
imagemxx=("D:\domains\fmnovotempo.com.br\httpdocs\imagens\"&(arq3))
'Salva o arquivo
upload_SalvaArquivo "imagem", "D:\domains\fmnovotempo.com.br\httpdocs\imagens", (arq3), "jpg,doc,txt,rtf,pdf,cdr"
%>
<!--#include file="css.txt"-->
<!--#include file="bd.asp"-->
<%
set conexao= Server.CreateObject("ADODB.connection")
conexao.open ConString
set rsdownload= Server.CreateObject("ADODB.recordset")
rsdownload.open("insert into tab_download (nome,titulo,descricao,data,data2,tamanho,extensao,caminho)values('"& arq3 &"','"& nome &"','"& email &"','"& vdata &"','"& vdata2 &"','"& arq6 &"','"& arq2 &"','"& imagemxx &"')"),conexao
set rsdownload=nothing
conexao.Close
set conexao=nothing
%>
Carregando comentários...