waag

alguém pode me ajudar. uso paginas em ASP con access, funciona perfeitamente. Mas eu gostaria de proibir, impedir o usuario de fazer um download da minha base de datos mdb pela url caso ele discubra o caminho. é possivel?? obrigado

alguém porfavor pode me ajudar, estoy realmente precisando

oi pessoal, preciso de uma ajuda de voces, Eu tenho um codigo en PURE download, que faz download de arquivos para uma pasta no meu servidor, é excelente esse codigo, porque não usa componentes. Ele está perfeito, funciona corretamente, porem eu já tentei de tudo mas não consigo fazer o seguinte: eu tenho dois campos que fazem o download, preciso com que o sistema coloque o caminho (path) da onde esta o download na tabela em access que eu tenho. exemplo pega o campo_1 faz o download normalmente e coloca o caminho na tabela na coluna campo_donwnload_1 e assim igual com o meu campo_2 faz o download e coloca na tabela na coluna campo_download_2. Os dois no mesmo numero de registro (ID). abaixo o codigo, desde já agradeço muito. <% Option Explicit Dim ResultHTML Server.ScriptTimeout = 9000 Dim DestinationPath DestinationPath = Server.MapPath(".") LogFolder = Server.MapPath(".") UploadSizeLimit = 90000000 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Dim Upload Set Upload = GetUpload() ResultHTML = "" If Err = 0 Then Dim Field For Each Field In Upload.Items if isarray(Field) then else ResultHTML = ResultHTML & "<br>Field : <b>" & LogF(Field.Name) & "</b>, Length : <b>" & LogFn(Field.Length) & "</b>, Content-Type : <b>" & LogF(Field.ContentType) & "</b>, SourceFileName : <b>" & LogF(Field.FileName) & "</b>" end if Next ResultHTML = ResultHTML & "<BR>" & SaveUpload(Upload, DestinationPath, LogFolder) Else ResultHTML = ResultHTML & "<br>Error : " & Err.Description End If On Error GoTo 0 Upload = Empty End If %> <%'upload.inc, contains GetUpload function, Required for upload - only the one file%> <!--#INCLUDE FILE="upload.inc"--> <%'utils.inc, contains SaveUpload function%> <!--#INCLUDE FILE="utils.inc"--> <%'format.inc, contains head and Foot function, optional.%> <!--#INCLUDE FILE="format.inc"--> <% response.write Head("Sample multiple binary files upload via ASP", "Demonstrates using of the ByteArray class for working with binary data from Request.BinaryRead.") response.write upDescription response.write CheckRequirements %> <Table Width=600> <form method=post ENCTYPE="multipart/form-data"> <TR BGColor=Silver><TD></TD><TD Align=Right><input type="submit" value="Upload the files >>"></TD></TR> <TR><TD ColSpan=2> <Table Width=100% Border=0 cellpadding=0 cellspacing=0><tr><TD> <Div ID=files> File 1 : <input type="file" name="File1"><br> File 2 : <input type="file" name="File2"> </Div> <TD><TD Align=right VAlign=top> <Input Type=Button Value="Add a file" OnClick=return(Expand()) Style="border=0;background=white;cursor:hand"> </TD></TR></Table> </TD></TR> <TR><TD>Checkbox</TD><TD><input type="CHECKBOX" name="Check1" Checked></TD></TR> <TR><TD>Password</TD><TD><input type="PASSWORD" name="PASSWORD"></TD></TR> <TR><TD>Comments</TD><TD><input size="60" name="Comments" value="Some comments."></TD></TR> <TR><TD>Description</TD><TD><textarea cols="60" rows="8" name="Description"></textarea></TD></TR> </form> </Table> <HR> <%=ResultHTML%> <script> var nfiles = 2; function Expand(){ nfiles++ files.insertAdjacentHTML('BeforeEnd','<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'">'); return false } </Script> <%=Foot%>

mas em java script não da?

oi pessoal alguém sabe um codigo em ASP que envia arquivos para uma tabela em access, ou seja, na verdade envia o arquivo para uma pasta e automaticamente envia o link dos arquivos pra tabela, não importando o tipo de arquivo e o nome dele, que faça tudo automatico. muito obrigado pela ajuda

oi pessoal, to precisando de uma ajudona. já procurei em todos o lugares e nada, eu não consigo achar e fazer um codigo em javascript que verifique o tamanho (peso) das imagens (exemplo: se a imagem for maior que 200 kb, aparece uma mensagem: imagem muito grande) antes de enviar. Até consegui um, mas não funcionou no firefox. então se alguém sabe um codigo desses que funcione em todos os browsers, por favor me ajudem. muito obrigado

muito obrigado NOTAX, obrigado mesmo.... mas uma ultima coisa, meu servidor limita o tamanho dos anexos, limite de 2mb somando todos. então teria uma forma nesse codigo de limitar o tamanho do anexo?? muito obrigado pela ajuda

blzzz hummm por isso então, puxa que sacanagem isso de que funciona em um browser e não funciona em outro... mas você ou alguém conhece uma manera de limitar o tamanho da imagem antes de fazer o uplaod que funcione em todos os browsers??? obrigado

sim eu sei, to usando o CDOSYS obrigado

não funcionou esse codigo

oi pessoa, meu codigo funciona perfeitamente no IE mas não funciona no firefox, alguém sabe o porque? muito obrigado <script> function setdumy(file) { dumy.src=file; } function checksize() { if (dumy.fileSize>51200) { formData.reset(); alert("fileSize should be less than 50K!"); } } </script> <form name="formData"> <input type="file" name="uploadfiledwwd" onChange="setdumy(value)"> </form> <img style="visibility:hidden;position:absolute;" id=dumy onload="checksize()">

Oi pessoal abaixo meu script para verificar o tamanho das imagens antes de fazer o upload. já tentei de tudo mas ele não funciona. Antes quando tinha somente um anexo funcionava perfeitamente, mas depois que coloquei pra dois anexos, não funciona mais por favor alguém pode me ajudar muito obrigado &lt;script> function tamanhos() { tamanhoArqMax = 205227 imagem2=new Image(); imagem2.src=document.form1.Solicitud_pagina_1.value; tamanho_imagem2 = imagem2.fileSize img_tan2 = tamanho_imagem2 imagem3=new Image(); imagem3.src=document.form1.Solicitud_pagina_2.value; tamanho_imagem3 = imagem3.fileSize img_tan3 = tamanho_imagem3 if (tamanho_imagem2 < 0) {java script:tamanhos()} else if (tamanho_imagem2 > tamanhoArqMax) {alert("Máximo suportado de 200 KBytes por cada anexo");java script:location.reload()} if (tamanho_imagem3 < 0) {java script:tamanhos()} else if (tamanho_imagem3 > tamanhoArqMax) {alert("Máximo suportado de 200 KBytes por cada anexo");java script:location.reload()} } </script>

Muito obrigado, funcionou perfeitamente, mas sera que você pode me dar mais uma ajudinha... abaixo meu script para o tamanho das imagens antes de fazer o upload. já tentei de tudo mas ele não funciona. Antes quando tinha somente um anexo funcionava perfeitamente, mas depois que coloquei pra dois anexos, não funciona mais por favor você pode dar uma ajuda para mim muito obrigado function tamanhos() { tamanhoArqMax = 205227 imagem2=new Image(); imagem2.src=document.form1.Solicitud_pagina_1.value; tamanho_imagem2 = imagem2.fileSize img_tan2 = tamanho_imagem2 imagem3=new Image(); imagem3.src=document.form1.Solicitud_pagina_2.value; tamanho_imagem3 = imagem3.fileSize img_tan3 = tamanho_imagem3 if (tamanho_imagem2 < 0) {java script:tamanhos()} else if (tamanho_imagem2 > tamanhoArqMax) {alert("Máximo suportado de 200 KBytes por cada anexo");java script:location.reload()} if (tamanho_imagem3 < 0) {java script:tamanhos()} else if (tamanho_imagem3 > tamanhoArqMax) {alert("Máximo suportado de 200 KBytes por cada anexo");java script:location.reload()} } </script>

oi pessoal, meu codigo esta funcionando, quando o arquivo é .jpg ou .gif vai adiante, e quando não é aparece uma mensagem de erro, até ai perfeitamente, porem se o campo ficar em branco, ou seja o usuario não selecionar nenhum arquivo aparece dizendo que não tem a extencao correta, como se fosse um arquivo que não é jpg e nem gif. Preciso que ele va adiante quando esta em branco, vazio por favor se alguém sabe como corrigir isso, me ajudaria muito muito obrigado

oi cara, uma duvida. eu coloco os nomes dos "files" nessa linha Item("blob").Item("Value") ? obrigado

oi pessoal, preciso de uma ajuda preciso de uma funcao em ASP na qual ele verifique si o arquivo (qualquer extencao, .jpg, .doc, .pdf) seja menor que um tamanho determinado (exemplo, menor que 200 kb) isso tudo antes de ir para um pagina determinada. usando um desses: <input name="upload" type="file" id="upload" > Eu to precisando disso porque minha pagina faz upload para o meu email, só que infelizmente meu servidor suporta somente 500 kb de envio, então eu preciso limitar o tamanho do arquivo antes de enviar. muito obrigado

que pena, mas muito obrigado pela sua ajuda. vou tentar fazer isso em ASP

oi pessoal uma ajuda meu codigo abaixo é para limitar o tamanho de um arquivo na hora de fazer um upload. funciona perfeitamente, porem somente com imagens, eu preciso que ele funcione com qualquer tipo de arquivo. (doc, pdf, jpg, etc.................) function tamanhos() { tamanhoArqMax = 100 imagem=new Object(); imagem.src=document.form.arq.value; tamanho_imagem = imagem.fileSize img_tan = tamanho_imagem if (tamanho_imagem < 0) {java script:tamanhos()} else if (tamanho_imagem > tamanhoArqMax) {alert("O tamanho da Imagem é muito grande ... "+tamanho_imagem+" Bytes!! \n Tamanho Máximo suportado : "+tamanhoArqMax+" Bytes \n São "+(tamanho_imagem-tamanhoArqMax)+" Bytes a Mais!");java script:location.reload()} else {java script:ativafigura()} } obrigado

eu quero pronto. : ) obrigado

Necessito de uma grande ajuda. Preciso de uma pagina em ASP que envia mas de um anexo e com campos de formulario para um email determinado. já procurei em varios sites mas só achei em PHP, mas eu quero um em ASP Porfavor se alguém sabe como. Agradeço muito WAAG

muito obrigado funcionou vlw

Oi pessoal uma ajudinha meu codigo funciona perfeitamente, mas eu queria fazer um alteracao nele, quando o usuario vai alterar o campo dm_moto, eu queria que si o campo esta em branco ou si for a primeira vez que ele vai alterar o sistema deixa ele alterar, porem depois da primeira vez que ele alterou eu quero que o sistema não deixe mas ele alterar a informacao. MUITO OBRIGADO <% dim dm_moto dm_moto=request.Form("dm_moto") %> <% Dim objConn, strQuery, sql_query, RsQuery, campo, sql, ObjRs Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DBQ=" & Server.MapPath("/dahacfs/programacion/solicitud_access_mdb/microsoft_access/solicitud/solicitud.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" strQuery = "UPDATE solicitud SET dm_moto = '"&dm_moto&"'" %>

oi pessoal uma ajudinha meu codigo funciona perfeitamente, porem, quando eu coloco mais uma and exemplo='"&request("exemplo")&"' aparece um erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] Expressão muito complexa alguém sabe me dizer como eu faço pra que não aparece o erro muito obrigado <%set conectar=createobject("adodb.connection") conectar.open="driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/dahacfs/programacion/solicitud_access_mdb/microsoft_access/solicitud/solicitud.mdb") set visualiza=server.CreateObject("adodb.recordset") visualiza.open "select * from solicitud where fecha_hora_solicitud='"&request("fecha_hora_solicitud")&"' and dm_ano='"&request("dm_ano")&"' and dm_color='"&request("dm_color")&"' and dm_domiciliacion='"&request("dm_domiciliacion")&"' and dp_nombre='"&request("dp_nombre")&"' and dp_direccion='"&request("dp_direccion")&"' and dp_colonia='"&request("dp_colonia")&"' and dp_postal='"&request("dp_postal")&"' and dp_ciudad='"&request("dp_ciudad")&"' and dp_estado='"&request("dp_estado")&"' and dp_correo='"&request("dp_correo")&"' and dp_tel='"&request("dp_tel")&"' and dp_cel='"&request("dp_cel")&"' and dp_identificacion='"&request("dp_identificacion")&"' and dp_rfc='"&request("dp_rfc")&"' and dp_curpp='"&request("dp_curpp")&"' and dp_fecha_nacimiento='"&request("dp_fecha_nacimiento")&"' and dp_sexo='"&request("dp_sexo")&"' and dp_nacionalidad='"&request("dp_nacionalidad")&"' and dp_seguro_social='"&request("dp_seguro_social")&"' and dp_ant_dom_actual='"&request("dp_ant_dom_actual")&"' and dp_ant_dom_anterior='"&request("dp_ant_dom_anterior")&"' and dp_num_dependientes_economicos='"&request("dp_num_dependientes_economicos")&"' and dp_estado_civil='"&request("dp_estado_civil")&"' and dp_reg_matrimonial='"&request("dp_reg_matrimonial")&"' and dp_escolaridad='"&request("dp_escolaridad")&"' and dp_vivienda='"&request("dp_vivienda")&"' and dp_nombre_padre='"&request("dp_nombre_padre")&"' and dp_ocupacion_padre='"&request("dp_ocupacion_padre")&"' and dp_tel_padre='"&request("dp_tel_padre")&"' and dp_nombre_madre='"&request("dp_nombre_madre")&"' and dp_ocupacion_madre='"&request("dp_ocupacion_madre")&"' and dp_tel_madre='"&request("dp_tel_madre")&"' and dp_nombre_conyuge='"&request("dp_nombre_conyuge")&"' and dp_ocupacion_conyuge='"&request("dp_ocupacion_conyuge")&"' and dp_nacimiento_nonyuge='"&request("dp_nacimiento_nonyuge")&"' and em_renta='"&request("em_renta")&"' and em_manutencion='"&request("em_manutencion")&"' and em_deudas='"&request("em_deudas")&"' and em_pagos_servicios='"&request("em_pagos_servicios")&"' and em_transporte='"&request("em_transporte")&"' and em_colegiaturas='"&request("em_colegiaturas")&"' and em_otros_gastos='"&request("em_otros_gastos")&"' and em_bienes_1='"&request("em_bienes_1")&"' and em_pagado_bienes_1='"&request("em_pagado_bienes_1")&"' and em_bienes_2='"&request("em_bienes_2")&"' and em_pagado_bienes_2='"&request("em_pagado_bienes_2")&"' and em_vehiculo_1='"&request("em_vehiculo_1")&"' and em_marca_1='"&request("em_marca_1")&"' and em_modelo_ano_1='"&request("em_modelo_ano_1")&"' and em_pagado_vehiculo_1='"&request("em_pagado_vehiculo_1")&"' and em_vehiculo_2='"&request("em_vehiculo_2")&"' and em_marca_2='"&request("em_marca_2")&"' and em_modelo_ano_2='"&request("em_modelo_ano_2")&"' and em_pagado_vehiculo_2='"&request("em_pagado_vehiculo_2")&"' and em_mas_2_vehiculos='"&request("em_mas_2_vehiculos")&"' and de_empresa='"&request("de_empresa")&"' and de_puesto_actual='"&request("de_puesto_actual")&"' and de_ingresos_mensuales='"&request("de_ingresos_mensuales")&"' and de_direccion='"&request("de_direccion")&"' and de_ciudad='"&request("de_ciudad")&"' and de_estado='"&request("de_estado")&"' and de_tel='"&request("de_tel")&"' and de_cel='"&request("de_cel")&"' and de_contacto='"&request("de_contacto")&"' and de_postal='"&request("de_postal")&"' and de_colonia='"&request("de_colonia")&"' and de_antiguedad_actual='"&request("de_antiguedad_actual")&"' and de_otros_ingresos='"&request("de_otros_ingresos")&"' and de_concepto_otros_igresos='"&request("de_concepto_otros_igresos")&"' and de_correspondencia='"&request("de_correspondencia")&"' and dea_empresa_anterior='"&request("dea_empresa_anterior")&"' and dea_antiguedad_anterior='"&request("dea_antiguedad_anterior")&"' and dea_puesto_anterior='"&request("dea_puesto_anterior")&"' and dea_jefe_anterior='"&request("dea_jefe_anterior")&"' and dea_tel_empresa_anterior='"&request("dea_tel_empresa_anterior")&"' and rp_nombre_1='"&request("rp_nombre_1")&"' and rp_direccion_1='"&request("rp_direccion_1")&"' and rp_tel_1='"&request("rp_tel_1")&"' and rp_cel_1='"&request("rp_cel_1")&"' and rp_nombre_2='"&request("rp_nombre_2")&"' and rp_direccion_2='"&request("rp_direccion_2")&"' and rp_tel_2='"&request("rp_tel_2")&"' and rp_cel_2='"&request("rp_cel_2")&"' and rf_nombre_1='"&request("rf_nombre_1")&"' and rf_direccion_1='"&request("rf_direccion_1")&"' and rf_tel_1='"&request("rf_tel_1")&"' and rf_cel_1='"&request("rf_cel_1")&"' and rf_nombre_2='"&request("rf_nombre_2")&"' and rf_direccion_2='"&request("rf_direccion_2")&"' and rf_tel_2='"&request("rf_tel_2")&"' and rf_cel_2='"&request("rf_cel_2")&"' and rb_banco_1='"&request("rb_banco_1")&"' and rb_surcusal_1='"&request("rb_surcusal_1")&"' and rb_cuenta_1='"&request("rb_cuenta_1")&"' and rb_tel_1='"&request("rb_tel_1")&"' and rb_banco_2='"&request("rb_banco_2")&"' and rb_surcusal_2='"&request("rb_surcusal_2")&"' and rb_surcusal_2='"&request("rb_surcusal_2")&"' ", conecta %>

Oi pessoal preciso de uma ajuda, meu codigo abaixo funciona muito bem, serve para buscar informacoes na tabela access. porem estou tentando fazer com que ele faça paginar depois de 10 informacoes por exemplo, ou seja que depois de 10 informacoes aparece uma opcao para ir para uma outra pagina e assim sucesivamente. muito obrigado <% Dim strURL Dim cnnSearch Dim rstSearch Dim strDBPath Dim strSQL Dim strSearch inicio = Timer function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra End Select texto = texto & Letra next TiraAcento = texto end function strURL = Request.ServerVariables("URL") strSearch = Request.QueryString("search") %> <td bgcolor="#FFFFFF"><form action="<%= strURL %>" method="get"> <select name="search" id="search" > </select> </font> <input name="submit" type="submit" value="Buscar" /> </div> </form> <p align="center"> <% If strSearch <> "" Then strDBPath = Server.MapPath("tabela.mdb") Const adUseClient = 3 Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" cnnSearch.CursorLocation = adUseClient strSQL = "SELECT nombre, ciudad " _ & "FROM ventas " _ & "WHERE ciudad LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "OR ano LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _ & "ORDER BY precio" Set rstSearch = cnnSearch.Execute(strSQL) intContador = rstSearch.RecordCount %> <% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If %>

PESSOAL AGRADEÇO MUITO PELA TENTATIVA DE VOCES ME AJUDAREM, MAS EU já DESCOBRI O ERRO ERA PORQUE FALTAVA UM & NO MEU COGIDO logar.open "select * from distribuidores_acceso where usuario='"&session("usuario")&"' and senha='"&session("senha")&"'", conecta tava faltando um & MAS OBRIGADO PELA ATENCAO DE VOCES ABRAÇO