Olá pessoal!
Primeiramente irei me apresentar, já que acabo de entrar para a comunidade. Caso não quiser pule direto para o #Sustenido#
Me chamo Lukas, tenho 21 anos, sou estudante de Tecnologo em Analise e Desenvolvimento de Sistemas na FIB e estou no ultimo ano. Em minha grade da faculdade, eu já vi, pascalzin, delphi, html, php, sql server, e agora estou em java web.
Faço estágio de programação nos correios em minha cidade, onde acabo sendo um programador web em asp classico, um web designer, um dba, programador de VBA para criação de macros e etc...
E tudo que eu vi na faculdade me ajudou em logica, mas as linguagem sempre vimos o basico já que meu curso é de 2 anos e 6 meses.
E tambem, a maioria das linguagem que vejo aqui em meu estágio eu não fiz na faculdade tive que apreender na raça.
#Agora vamos ao que interessa....
Já fiz varios projetos de sistema web para a intranet aqui do meu setor, mas nunca precisei mecher com o <input type="file"> e agora preciso, neste sistema eu preciso preencher um formulario, e caso haver anexo (de 4 campos fixos, sendo que pode ser um arquivo do excel, uma imagem, um doc, um pdf etc. Mas tambem não precisam ser preenchidos logicamente) o formulario web já está pronto, inclusive já coloquei no form enctype="multipart/data"
Agora preciso saber como fazer o procedimento para receber o formulario para gravar no banco SQL Server 2014 (no qual eu já fazia por StoredProcedure que já preparei no SQL Server) mas agora preciso incluir o codigo para pegar o arquivo caso o usuario informe que tenha anexo.
Sendo que, depois que eu salvar todo o formulario juntamente com os arquivos, precisarei criar um link para fazer o download do mesmo em outra pagina... que irá puxar o arquivo do banco de dados...
a minha pagina que grava no banco somente o formulario já está feita... que no caso é esta... só falta incluir o codigo para os arquivos...
Pagina que recebe o formulário:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" >
<title>Sistema de Solicitação e Contratação</title>
</head>
<link href="css/estilo.css" rel="stylesheet">
<body>
<br />
<div id="Tudo">
<div id="Menu" align="left" class="lmenu"><!--#include file="menu.asp"--></div>
<div id="Conteudo" align="right">
<font style="font-size:14px;" class="menu">Sistema de Solicitação e Contratação de Serviços</font><br />
<font class="nlista">Solicitação - Validação de Serviços<br /><hr align="right" width="100%"></font>
<br />
<p class="menu" align="left" style="font-size:15px;"> <u>Solicitação de um novo Serviço</u></p>
<%
'DECLARA VARIAVEIS
on error resume next
dim sql, rs, conn,solicitante,objeto,detalhesServico,descricaoNecessidade,motivacaoContratacao,quantidadeJustificada,prazoDesejado,parametroPrazo,localPrestacaoServico,fiscaisContrato,mm_percentageAtrasoInjustificado,mm_parametroPercentageAtrasoInjustificado,mm_minutosAtrasoInjustificado,mm_valorLimiteAtrasoInjustificado,mm_tipoLimiteAtrasoInjustificado,mm_outrosPorcentuaisMulta,dm_percentualInexecucao,dm_parametroInexecucao,dm_percentualOutrosDescumprimentos,email
if request("solicitante") = "" then solicitante = "''" else solicitante = request("solicitante") End if
if request("objeto") = "" then objeto = "''" else objeto = request("objeto") End if
if request("detalhesServico") = "" then detalhesServico = "''" else detalhesServico = request("detalhesServico") End if
if request("descricaoNecessidade") = "" then descricaoNecessidade = "''" else descricaoNecessidade = request("descricaoNecessidade") End if
if request("motivacaoContratacao") = "" then motivacaoContratacao = "''" else motivacaoContratacao = request("motivacaoContratacao") End if
if request("quantidadeJustificada") = "" then quantidadeJustificada = "''" else quantidadeJustificada = request("quantidadeJustificada") End if
if request("prazoDesejado") = "" then prazoDesejado = "''" else prazoDesejado = request("prazoDesejado") End if
if request("parametroPrazo") = "" then parametroPrazo = "''" else parametroPrazo = request("parametroPrazo") End if
if request("localPrestacaoServico") = "" then localPrestacaoServico = "''" else localPrestacaoServico = request("localPrestacaoServico") End if
if request("fiscaisContrato") = "" then fiscaisContrato = "''" else fiscaisContrato = request("fiscaisContrato") End if
if request("mm_percentageAtrasoInjustificado") = "" then mm_percentageAtrasoInjustificado = "''" else mm_percentageAtrasoInjustificado = request("mm_percentageAtrasoInjustificado") End if
if request("mm_parametroPercentageAtrasoInjustificado") = "" then mm_parametroPercentageAtrasoInjustificado = "''" else mm_parametroPercentageAtrasoInjustificado = request("mm_parametroPercentageAtrasoInjustificado") End if
if request("mm_minutosAtrasoInjustificado") = "" then mm_minutosAtrasoInjustificado = "''" else mm_minutosAtrasoInjustificado = request("mm_minutosAtrasoInjustificado") End if
if request("mm_valorLimiteAtrasoInjustificado") = "" then mm_valorLimiteAtrasoInjustificado = "''" else mm_valorLimiteAtrasoInjustificado = request("mm_valorLimiteAtrasoInjustificado") End if
if request("mm_tipoLimiteAtrasoInjustificado") = "" then mm_tipoLimiteAtrasoInjustificado = "''" else mm_tipoLimiteAtrasoInjustificado = request("mm_tipoLimiteAtrasoInjustificado") End if
if request("mm_outrosPorcentuaisMulta") = "" then mm_outrosPorcentuaisMulta = "''" else mm_outrosPorcentuaisMulta = request("mm_outrosPorcentuaisMulta") End if
if request("dm_percentualInexecucao") = "" then dm_percentualInexecucao = "''" else dm_percentualInexecucao = request("dm_percentualInexecucao") End if
if request("dm_parametroInexecucao") = "" then dm_parametroInexecucao = "''" else dm_parametroInexecucao = request("dm_parametroInexecucao") End if
if request("dm_percentualOutrosDescumprimentos") = "" then dm_percentualOutrosDescumprimentos = "''" else dm_percentualOutrosDescumprimentos = request("dm_percentualOutrosDescumprimentos") End if
if request("email") = "" then email = "''" else email = request("email") End if
set conn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")
conn.Open "Provider=SQLOLEDB;Data Source=localhost\SQLEXPRESS;Initial Catalog=NOMEDOBANCO;UID=USUARIO;PWD=SENHA"
sql = "EXEC sp_insert_servicos @solicitante = '" & solicitante & "', @objeto = '" & objeto & "', @detalhesServico = '" & detalhesServico & "', @descricaoNecessidade = '" & descricaoNecessidade & "', @motivacaoContratacao = '" & motivacaoContratacao & "', @quantidadeJustificada = '" & quantidadeJustificada & "', @prazoDesejado = " & prazoDesejado & ", @ParametroPrazo = " & parametroPrazo & ", @localPrestacaoServico = " & localPrestacaoServico & ", @fiscaisContrato = '" & fiscaisContrato & "', @mm_percentageAtrasoInjustificado = " & mm_percentageAtrasoInjustificado & ", @mm_parametroPercentageAtrasoInjustificado = " & mm_parametroPercentageAtrasoInjustificado & ", @mm_minutosAtrasoInjustificado = " & mm_minutosAtrasoInjustificado & ", @mm_valorLimiteAtrasoInjustificado = " & mm_valorLimiteAtrasoInjustificado & ", @mm_tipoLimiteAtrasoInjustificado = " & mm_tipoLimiteAtrasoInjustificado & ", @mm_outrosPorcentuaisMulta = " & mm_outrosPorcentuaisMulta & ", @dm_percentualInexecucao = " & dm_percentualInexecucao & ", @dm_parametroInexecucao = " & dm_parametroInexecucao & ", @dm_percentualOutrosDescumprimentos = " & dm_percentualOutrosDescumprimentos & ", @email = '" & Email & "'"
'Response.Write(sql)
'Response.End
set rs = conn.Execute(sql)
if err.number = 0 then
Response.Write("<p align=""center"" style=""color:#006600""><img src=""imgs/ok.gif""><br />Validação de Serviço solicitada com sucesso!<br /><br /><input type=""button"" name=""principal"" value=""Voltar à Tela Principal"" onClick=""javascript:window.location.href ='http://msi75212559/desenvolvimento/ssc/0/';""></p><br><hr>")
else
Response.Write("<p align=""center"" style=""color:#FF0000""><img src=""imgs/erro.gif""><br />Ocorreu um erro ao solicitar o serviço!<br>Por favor, tente novamente.<br>ERRO: " & err.description & " <br><br><input type=""button"" name=""voltar"" align=""center"" value=""Voltar"" onClick=""javascript:history.go(-1);""></p><br><hr>")
end if
if rs.State = 1 then rs.Close
conn.Close
set conn = nothing
set rs = nothing
%>
</div>
</div>
</body>
</html>
Precisa receber tambem estes inputs:
Anexo 1:<br /> <input type="file" valign="bottom" width="100%" name="Anexo1" id="Anexo1"> <br /><br /> Anexo 2: <u>(Se necessário)</u><br /> <input type="file" valign="bottom" width="100%" name="Anexo2" id="Anexo2"> <br /><br /> Anexo 3: <u>(Se necessário</u>)<br /> <input type="file" valign="bottom" width="100%" name="Anexo3" id="Anexo3"> <br /><br /> Anexo 4: <u>(Se necessário)</u><br /> <input type="file" valign="bottom" width="100%" name="Anexo4" id="Anexo4">