Decio
Membros-
Total de itens
797 -
Registro em
-
Última visita
Tudo que Decio postou
-
você tem que mudar o seu 'db' pelo 'Conn' do nosso amigo, que é o objeto. não é isso?
-
Com include não da certo, você pode usar váriaveis tipo: Session("MyVar")="XXXX" , e recuperar na outra página com o metódo Response.Write Session("MyVar"), ou então passando parâmetros através do link.
-
Existe uma forma de fazer upload sem utilizar componentes, apenas abrindo o arquivo de forma binaria e o salvando da mesma forma.Eu já postei o código aqui antes. O que pode estar acontecendo é o nosso amigo estar tentando gravar o arquivo em um diretório sem permissão de escrita.
-
na verdade a página pode ser até em html , basta dar un refresh de tempo em tempo. O que você precisa fazer ou procurar é um programa que capture as imagens da camera e as envie automáticamente via ftp para o site onde sua página esta hospedada.Eu já vi uma reportagem na revista www.com.br , mas não lembro em qual foi.
-
Tive o mesmo problema , reclamei com o pessoal que cuida do servidor e eles resolveram.Deve ser alguma configuração no IIs.
-
Tentei fazer uma rotina usando este código como exemplo (não sei a quem dar os créditos) , mas achei muito lento: <% ' Ajuste o timeout conforme o tamanho ' dos arquivos que você irá aceitar server.scripttimeout = 5400 'Caminho virtual onde os arquivos devem ser salvos no servidor filePathDefault = "./" const ForWriting = 2 const TristateTrue = -1 crlf = chr(13) & chr(10) ' Esta função recupera o nome do campo do formulário function getFieldName( infoStr) sPos = inStr( infoStr, "name=") endPos = inStr( sPos + 6, infoStr, chr(34) & ";") if endPos = 0 then endPos = inStr( sPos + 6, infoStr, chr(34)) end if getFieldName = mid( infoStr, sPos + 6, endPos - (sPos + 6)) end function ' Esta função recupera o nome do arquivo function getFileName( infoStr) sPos = inStr( infoStr, "filename=") endPos = inStr( infoStr, chr(34) & crlf) getFileName = mid( infoStr, sPos + 10, endPos - (sPos + 10)) end function ' Esta função recupera o tipo mime do arquivo function getFileType( infoStr) sPos = inStr( infoStr, "Content-Type: ") getFileType = mid( infoStr, sPos + 14) end function ' Lê o arquivo o arquivo e tudo mais que foi enviado postData = "" Dim biData biData = Request.BinaryRead(Request.TotalBytes) ' Como o arquivo é binário, iremos armazená-lo ' numa variável mais controlável for nIndex = 1 to LenB( biData) postData = postData & Chr(AscB(MidB( biData, nIndex, 1))) next ' Como os dados foram lidos de uma forma binária (BinaryRead), a instrução Request.Form ' não está mais disponível. Portanto, será necessário processar as variáveis manualmente. ' Primeiro, será verificado o tipo de codificação. contentType = Request.ServerVariables( "HTTP_CONTENT_TYPE") ctArray = split( contentType, ";") ' O envio de arquivos somente funciona com a codificação ' "multipart/form-data", por isso vamos checar se esse foi a codificação usada. if trim(ctArray(0)) = "multipart/form-data" then errMsg = "" ' Armazene o conteúdo do formulário ... bArray = split( trim( ctArray(1)), "=") boundry = trim( bArray(1)) ' ... divida as variáveis formData = split( postData, boundry) ' agora, nós precisamos extrair a informação de cada variável. dim myRequest, myRequestFiles(9, 3) Set myRequest = CreateObject("Scripting.Dictionary") fileCount = 0 for x = 0 to ubound( formData) ' duas marcas "crlf" indicam o final da informação sobre campo ' tudo depois dele é o valor infoEnd = instr( formData(x), crlf & crlf) if infoEnd > 0 then ' lê as informações do campo... varInfo = mid( formData(x), 3, infoEnd - 3) ' lê o valor do campo varValue = mid( formData(x), infoEnd + 4, len(formData(x)) - infoEnd - 7) ' verifica se ele é um arquivo if (instr( varInfo, "filename=") > 0) then myRequestFiles( fileCount, 0) = getFieldName( varInfo) myRequestFiles( fileCount, 1) = varValue myRequestFiles( fileCount, 2) = getFileName( varInfo) myRequestFiles( fileCount, 3) = getFileType( varInfo) fileCount = fileCount + 1 else ' outro tipo de campo myRequest.add getFieldName( varInfo), varValue end if end if next else errMsg = "Tipo de codificação inválido!" end if ' Salva o arquivo enviado set lf = server.createObject( "Scripting.FileSystemObject") if myRequest("filename") = "original" then ' Usa o nome do arquivo original browserType = UCase( Request.ServerVariables( "HTTP_USER_AGENT")) if (inStr(browserType, "WIN") > 0) then ' Sistema Windows sPos = inStrRev( myRequestFiles( 0, 2), "\") fName = mid( myRequestFiles( 0, 2), sPos + 1) end if ' Sistema Mac if (inStr(browserType, "MAC") > 0) then fName = myRequestFiles(0, 2) end if ' Caminho onde os arquivos devem ser salvos filePath = filePathDefault & fName else ' use o nome especificado pelo usuário ' Caminho do arquivo filePath = filePathDefault & myRequest("userSpecifiedName") end if savePath = server.mapPath( filePath) set saveFile = lf.createtextfile(savePath, true) saveFile.write( myRequestFiles(0, 1)) saveFile.close %> <html> <body> <% if errMsg = "" then %> Arquivo enviado com sucesso! <%else %> Erro no envio do arquivo!<br> <%= errMsg %> <% end if %> </body> </html>
-
É o contrário, eu quero que a página desapareça, que não fique guardada em cache.valeu..
-
Tipo assim , não sei se o exemplo vai ajudar: <% dim cor dim fcor fcor = 0 for a = 1 to 10 if fcor = 0 then fcor=1 cor="#0000FF" else fcor=0 cor="#FF0000" end if Response.Write "<font color='" & cor & "'>Teste de cores</font><br>" next %> Eu acredito que você queira mostrar os dados na tela tipo em tabelas, e cada linha da tabela tenha uma cor diferente.Se não for isto, me explica melhor.
-
Posso sugerir que você me envie um exemplo simples , com uma página enviando dados para outra que funciona localmente e não funciona no servidor (de preferencia que não use banco de dados).ai eu faço o mesmo teste localmente e no servidor. se funcionar nos dois aqui , você avisa o responsável pelo servidor que o problema é dele.tem uns camaradas que são acomodados, sempre falam que o problema não é deles e nunca dão a solução. meu e-mail é deciohp@yahoo.com.br
-
Crie uma flag para saber qual foi a ultima cor usada. Se a cor atual for igual a ultima cor utilizado use outra cor
-
Fui mal em não entender direito. Eu já vi post aqui sobre WebMail mas não lembro se teve resposta..
-
Eu uso do Yahoo (www.yahoo.com.br), é gratis , em portugues , e funciona bem
-
Tenho uma pagina que usa frame, e gostaria de apagar a ultima pagina que o usuario visitou, para quando ele clicar em voltar ou avançar não voltar a ultima página visitada. Tentei de duas formas: A primeira usando Response.Buffer = False na primeira linha da pagina, e não deu certo. A segunda tentativa , que tambèm me serviria foi com Response.Expires=0 que também não funcionou. alguém tem alguma sugestão?
-
No site da Microsoft tem um SP para este componente: http://support.microsoft.com/default.aspx?...&NoWebContent=1
-
Da uma Olhada no Yahoo, no serviço de hospedagem de sites, eles oferecem uma opção de formulário em que o usuario pode editar e depois os dados são enviados por e-mail, quem sabe não serve para você.
-
Eu acho que é o que o nosso colega falou mesmo: salvar usando fso , só que é você quem vai ter que gerar o html . Ex: <% Set Obj = Objeto.GetFile(Server.MapPath("P09033.html ")) Set txtHTML = Objeto.OpenTextFile(Server.MapPath("P09033.html "), forAppending, true) txtHTML.WriteLine("<html><head>") txtHTML.WriteLine("</head><B><i>) txtHTML.WriteLine("etc....") txtHTML.write("</html>") txtHTML.close set objeto = nothing set obj = nothing %> Tipo assim, sei la ... PS: não testei o código, é só um exemplo.
-
Desculpe, eu não expliquei direito, na verdade eu queria dizer isso mesmo: usar em páginas separadas. Os dois juntos numa mesma página eu nunca tentei , mas acho muito dificil funcionar pois o IIs não vai reconhecer a extensão de páginas aspx. Valeu..
-
tente assim (não rodei o script) use NomeBanco go ALTER TABLE NomeTabela ADD NovoCampo nText
-
você pode usar os dois juntos, desde que o servidor tenha o IIs e o .NET Framework instalados.
-
Tente fazer o seguinte: pesocab = 7.3 * Cint(peso) / 100 Lembrando que cálculo não pode ser com virgula e sim com ponto.
-
Caro colega, fiz este exemplo e está funcionando. A unica grande diferença é que não tem a tag disabled , que é aonde deve estar dando o problema: <% agente ="TESTE" Response.Write " Agente:" & Request.Form("agente1") %> <table> <tr> <td> <form method="POST" action="teste.asp"> <p><input type="submit" value="Submeter" name="B1"><input name="agente1" type="text" class="caixa_alta" value="<%= agente %>" </p> </form> </td> </tr>
-
Analize o código abaixo, ele funciona: <HTML><HEAD><TITLE></TITLE></HEAD> <table style="BACKGROUND-COLOR: #33cc66" width=230 bgColor=#ffffff border="0" > <tr > <td align=middle width=230 bgColor="#FFFFFF" ><form name=FrmLogsis onsubmit="return checkFormulario(this)" action=http://teste.html method=post target="menu" > <p ><input style="BACKGROUND-COLOR: #99ccff" type=password name="password" ></p> <p ><input style="BORDER-BOTTOM-WIDTH: thin; TEXT-TRANSFORM: none; BACKGROUND-COLOR: gold" type=submit value=Confirmar name="B1" ></p></form></td></tr></table> <script language=JavaScript> <!-- var ok = true // Função para verificar se o campo foi preenchido. function checkFormulario() { //basta repetir este código para inserir mais verificações if (document.FrmLogsis.password.value == "") { window.alert("Por favor, informe a sua senha de acesso!"); document.FrmLogsis.password.focus(); return false; } return ok; } --> </SCRIPT> </HTML>
-
Eu não conheço este componente que você usa para enviar e-mail, eu costumo usar o CDONTS , e já cheguei a usar o ASPMail, mas parece que ele não esta registrado corretamente , pois não conseguiu criar o objeto. Que componente é este??
-
É como noso colega respondeu, a senha do banco de dados é unica, você coloca a senha do SQL na string de conexão e isto fica transparente para o usuario.Não é preciso criar mais nehuma senha , a não ser que você queira restringir o acesso ao conteudo do seu site a apenas usuarios cadastrados , você cria a senha , mas não vai ter nada a ver com a senha do banco de dados SQL.