SnoOx
-
Total de itens
3 -
Registro em
-
Última visita
Sobre SnoOx
SnoOx's Achievements
0
Reputação
-
Oi amigo, a Locaweb me respondeu que está instalado no meu pacote. Não sei mais o que fazer :wacko:
-
Perdão, aqui está todo o código :) <%@ Language=VBScript %> <%if Session("user")(0)="" then Response.Redirect("default.asp")%> <!--#include file="../!include/funcoes.inc"--> <!--#include file="../!include/conexao.inc"--> <% ' arq_path = "e:\home\helpadm\web\documentos\" arq_path = "E:\vhosts\helpadm.net\web\documentos\" select case Request("acao") case "incluir" 'set cn = server.CreateObject("ADODB.connection") cn.BeginTrans() sql = " INSERT INTO DOCUMENTO (sq_condominio, sq_tipodocumento, ds_documento, ds_path, dt_lancamento) VALUES "&_ "("&Request("in_condominio")&_ ", "&Request("in_tipodocumento")&_ ", '"&aspas(Request("nome"))&"'"&_ ", ''"&_ ", "& date() &")" cn.execute(sql) set rs = server.CreateObject("ADODB.recordSet") sql = " select sq_documento from DOCUMENTO where " &_ " sq_condominio = "& Request("in_condominio") &_ " AND sq_tipodocumento = "& Request("in_tipodocumento") &_ " AND ds_documento = '"& Request("nome") &"'" &_ " AND ds_path = ''" set rs = cn.execute(sql) in_documento = rs("sq_documento") set rs = nothing tmp_path = arq_path & "temp\" nome_ref = "HelpAdm" & request("in_condominio") & request("in_tipodocumento") & in_documento err = false set objUpload = Server.CreateObject ("Dundas.Upload.2") '=> CRIA OBJETO objUpload.UseUniqueNames = true '=> COM MESMO NOME DO ENVIADO objUpload.Save tmp_path '=> SALVA EM DIRETORIO TEMPORARIO For Each Item in objUpload.Files '=> RETORNA NOME DO ARQUIVO SALVO nome_arquivo = mid(item.path,len(tmp_path)+1) nomeArqExt = mid(nome_arquivo,inStrRev(nome_arquivo,".")) Next If (objUpload.FileExists(arq_path&nome_ref)) then '=> VERIFICA EXISTENCIA DO ARQUIVO NO DIRETÓRIO DE PRODUÇÃO objUpload.FileDelete tmp_path&nome_arquivo '=> SE EXISTE, APAGA O TEMPORÁRIO E RETORNA MENSAGEM DE ARQUIVO JÁ EXISTENTE err = true Response.Write("arquivo já existe") else objUpload.FileCopy tmp_path&nome_arquivo, arq_path&nome_ref&nomeArqExt '=> COPIA O ARQUIVO PARA O DIRETÓRIO DE PRODUÇÃO COM NOVO NOME objUpload.FileDelete tmp_path&nome_arquivo '=> APAGA ARQUIVO DO TEMPORÁRIO 'objUpload.FileMove tmp_path&nome_arquivo,arq_path&nome_arquivo '=> SE NÃO EXISTE, MOVE DO DIR TEMPORÁRIO PARA O DE PRODUÇÃO sql = " update DOCUMENTO set ds_path = '"& nome_ref&nomeArqExt &"' where sq_documento = " & in_documento cn.execute (sql) '=> ATUALIZA O NOME DO ARQUIVO NO BD end if if err then cn.RollbackTrans() else cn.CommitTrans() msg = "O documento foi cadastrado com sucesso." end if Set objUpload = Nothing '=> DESTROI OBJETO DE UPLOAD case "excluir" sql = " select ds_path from DOCUMENTO where " &_ " sq_documento = " & request("ind") set rs = cn.execute(sql) nome_arquivo = rs("ds_path") set rs = nothing set objUpload = Server.CreateObject ("Dundas.Upload.2") '=> CRIA OBJETO objUpload.FileDelete arq_path&nome_arquivo '=> APAGA ARQUIVO DO TEMPORÁRIO set objUpload = Nothing '=> DESTROI OBJETO DE UPLOAD sql = " delete from DOCUMENTO where sq_documento = "& Request("ind") cn.execute(sql) msg = "Arquivo excluido com sucesso." end select %> <html> <head><link rel="stylesheet" type="text/css" href="../!include/admin.css"></head> <body> <p> </p> <p align='center'><%=msg%></p> </body> </html> <%cn.close%>
-
Amigos, bom dia. Trabalho em uma pequena administradora de condomínios, e em nosso site temos uma parte onde os clientes acessam para visualizar relatórios, etc. Dentro de uma determinada página, antes de realizarmos o upload do novo relatório, primeiro clicamos num "X" para deletar o anterior, deixando apenas para o cliente o mais atualizado. Porém está acontecendo o seguinte erro quando clicamos no X para deletar: Isso está atrapalhando muito nosso trabalho, alguns dos amigos poderiam colaborar? Abraços! :rolleyes: