Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

enrrike

passar código

Por , em ASP Clássico

Recommended Posts

enrrike    0

enrrike
Postado

oi galera

 

eu tinha feito minha página desse jeito

 

altera_func.asp

<form name="form1" method="POST" action="altera_func2.asp" enctype="multipart/form-data"> <input type="hidden" value="<%=vcod%>" name="CodigoUsuario">

altera_func2.asp

vcod = objUpload.Form("CodigoUsuario")

e não deu certo, o valor do vcod tava vindo em branco

 

 

------------------------------

 

 

depois eu fiz assim

 

altera_func.asp

<form name="form1" method="POST" action="altera_func2.asp?CodigoUsuario=<%=vcod%>" enctype="multipart/form-data">

altera_func2.asp

vcod = objUpload.QueryString("CodigoUsuario")

a apareceu o seguinte erro:

Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'QueryString'

 

??????????

 

 

help-me

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o nome do objeto que fa o upload ta certo??objUpload

Compartilhar este post

Link para o post
Compartilhar em outros sites

sublyer    0

sublyer
Postado

Passa o código todo das duas páginas pra gente analisar melhor.. principalmente da onde está vindo os dados do vcod ok..Valeww

Compartilhar este post

Link para o post
Compartilhar em outros sites

enrrike    0

enrrike
Postado

código completo:

----------------------

 

altera_func.asp

ASP

[*]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

[*]"http://www.w3.org/TR/html4/loose.dtd">

[*]<html>

[*]<head>

[*]<title> </title>

[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

[*]<link href="../../adm/css/estilo.css" rel="stylesheet" type="text/css">

[*]<style type="text/css">

[*]<!--

[*].style1 {

[*] font-family: Arial, Helvetica, sans-serif;

[*] font-size: 12pt;

[*] font-weight: bold;

[*]}

[*].style3 {

[*] color: #000000;

[*] background-color: #dddddd;

[*] }

[*].style5 {

[*] color: #000000;

[*] background-color: #bbbbbb;

[*] }

[*].style4 {

[*] font-family: Arial, Helvetica, sans-serif;

[*] font-size: 8pt;

[*]}

[*]

[*]-->

[*]</style>

[*]</head>

[*]

[*]<script language="JavaScript">

[*] <!--

[*] function valida(form)

[*] {

[*] if (form.nome.value == "")

[*] {

[*] alert("Favor informar o nome!");

[*] form.nome.focus();

[*] return false;

[*] }

[*] if (form.creci.value == "")

[*] {

[*] alert("Favor informar o creci!");

[*] form.creci.focus();

[*] return false;

[*] }

[*] if (form.loja.value == "0")

[*] {

[*] alert("Favor informar a loja!");

[*] form.loja.focus();

[*] return false;

[*] }

[*] if (form.creci.value == "")

[*] {

[*] alert("Favor informar o creci!");

[*] form.creci.focus();

[*] return false;

[*] }

[*] if (form.datanascimento.value == "")

[*] {

[*] alert("Favor informar a data de nascimento!");

[*] form.datanascimento.focus();

[*] return false;

[*] }

[*] if (form.dataadmissao.value == "")

[*] {

[*] alert("Favor informar a data de admissão!");

[*] form.dataadmissao.focus();

[*] return false;

[*] }

[*] if (form.foto.value == "")

[*] {

[*] alert("Favor escolher a foto!");

[*] form.foto.focus();

[*] return false;

[*] }

[*] else

[*] {

[*] return true;

[*] }

[*] }

[*]

[*] -->

[*]</script>

[*]

[*]<body>

[*]

[*]<table width="100%" border="0" cellspacing="1" cellpadding="1">

[*]<form name="form1" method="POST" action="altera_func2.asp?CodigoUsuario=<%=vcod%>" enctype="multipart/form-data">

[*]

[*] <tr>

[*] <td width="200" rowspan="2" align="middle"><span class="tabelahome"><IMG height=70 src="../../adm/imagens/logo.gif" width=150></span></td>

[*] <td height="47"><div align="center" class="style1">Alteração de Funcionários</div></td>

[*] <td ><div align="center" class="style4"><a href="cadastra_func.asp"><b>Cadastro de funcionários</a></div></b></td>

[*] <td ><div align="center" class="style4"><a href="lista_func.asp"><b>Listagem de funcionários</a></div></b></td>

[*]

[*] </tr>

[*] <table width="50%" align="center" border="0" cellpadding="2" cellspacing="1" bgcolor="#666666">

[*]<%

[*] CONSTRING="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("DADOS/funcionarios.MDB")

[*] SET BD=SERVER.CREATEOBJECT("ADODB.CONNECTION")

[*] BD.OPEN CONSTRING

[*]

[*] vcod = Request.QueryString("CodigoUsuario")

[*]

[*] set bdfunc = bd.execute("SELECT * FROM funcionarios, imagem WHERE funcionarios.cod_func = imagem.cod_fun AND funcionarios.cod_func = "& vcod &" ORDER BY nome ASC ")

[*]

[*]%>

[*] <tr class="texto2">

[*] <td class="style5"> Nome:</td>

[*] <td class="style3">

[*] <input type="text" name="nome" class="form-branco" value="<%=bdfunc("nome")%>" size="40" maxlength="50">

[*] </td>

[*] </tr>

[*] <tr class="texto2">

[*] <td class="style5"> Creci:</td>

[*] <td class="style3">

[*] <input type="text" name="nome" value="<%=bdfunc("creci")%>" class="form-branco" size="40" maxlength="50">

[*] </td>

[*] </tr>

[*] <tr class="texto2">

[*] <td class="style5"> Loja: </td>

[*] <td class="style3">

[*] <select class="form-azul" name="loja">

[*] <option value="0" selected>Selecione a loja</option>

[*] <option value="Mata da Praia" <%if (bdfunc("loja") = "Mata da Praia") then%> selected<%end if%>>Mata da Praia</option>

[*] <option value="Praia do Canto" <%if (bdfunc("loja") = "Praia do Canto") then%> selected<%end if%>>Praia do Canto</option>

[*] <option value="Jardim Camburi" <%if (bdfunc("loja") = "Jardim Camburi") then%> selected<%end if%>>Jardim Camburi</option>

[*] <option value="Empreendimentos" <%if (bdfunc("loja") = "Empreendimentos") then%> selected<%end if%>>Empreendimentos</option>

[*] </select>

[*] </td>

[*] </tr>

[*] <tr class="texto2">

[*] <td class="style5"> Data de Nascimento: </td>

[*] <td class="style3">

[*] <input type="text" value="<%=bdfunc("data_nascimento")%>" name="datanascimento" class="form-branco" value="" size="12" maxlength="10" onkeyup="return txtBoxFormat(this.form, this.name, '99/99/9999', event);">

[*] dd/mm/aaaa</td>

[*] </tr>

[*] <tr class="texto2">

[*] <td class="style5"> Data de Admissão:</font></td>

[*] <td class="style3">

[*] <input type="text" value="<%=bdfunc("data_admissao")%>" name="dataadmissao" class="form-branco" value="" size="12" maxlength="10" onkeyup="return txtBoxFormat(this.form, this.name, '99/99/9999', event);">

[*] dd/mm/aaaa

[*] </td>

[*] </tr>

[*] <tr class="texto2">

[*] <td class="style5"> Foto:</td>

[*] <td class="style3">

[*] <input name="foto" type="file" class="form-branco" id="foto" size="20">

[*] </td>

[*] </tr>

[*] <tr>

[*] <td align="right" colspan="2" class="texto-preto"><input type="image" src="../../imagens/botoes/bt_barra.gif" alt="" name="bt_barra1" width="29" height="19" border="0" id="bt_barra1" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('bt_barra1','','../../imagens/botoes/bt_barra_f2.gif',1)"></td>

[*]

[*] </tr>

[*]

[*] </table>

[*] </td>

[*] </tr>

[*]</table>

[*]

[*]

[*]

 

 

altera_func2.asp

ASP

[*]<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"

[*]"http://www.w3.org/TR/html4/loose.dtd">

[*]<html>

[*]<head>

[*]<title> </title>

[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

[*]<link href="../../adm/css/estilo.css" rel="stylesheet" type="text/css">

[*]<style type="text/css">

[*]<!--

[*].style1 {

[*] font-family: Arial, Helvetica, sans-serif;

[*] font-size: 12pt;

[*] font-weight: bold;

[*]}

[*].style3 {

[*] color: #000000;

[*] background-color: #dddddd;

[*] }

[*].style5 {

[*] color: #000000;

[*] background-color: #bbbbbb;

[*] }

[*].style4 {

[*] font-family: Arial, Helvetica, sans-serif;

[*] font-size: 8pt;

[*]}

[*]

[*]-->

[*]</style>

[*]</head>

[*]

[*]<%

[*]

[*]dim objUpload

[*]dim strMessage

[*]

[*]set objUpload = server.CreateObject("Dundas.Upload.2")

[*]

[*]objUpload.MaxFileSize = 1048576

[*]

[*]objUpload.UseVirtualDir = False

[*]

[*]objUpload.UseUniqueNames = False

[*]

[*]objUpload.Save "e:home\pointerimoveis1\web\outros\funcionarios\img"

[*]

[*] For Each UploadedFile in objUpload.Files

[*] caminho = UploadedFile.Path

[*] Next

[*]

[*] quebra = split(caminho,"\")

[*] nom_arq = quebra(ubound(quebra))

[*]

[*] tpo_arq = right(nom_arq,3) ' armazena o tipo do arquivo

[*] 'vcodigo = Day(date) & Month (date) & Hour (time) & Minute (time)& Second(time)

[*] 'vcod = CLng(vcodigo)

[*]

[*] if tpo_arq <> "gif" and tpo_arq <> "jpg" then

[*] Response.Redirect "erro.asp"

[*] else

[*]

[*] arquivo_up = "e:home\pointerimoveis1\web\outros\funcionarios\imagens"

[*]

[*] CONSTRING="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("DADOS/funcionarios.MDB")

[*] SET BD=SERVER.CREATEOBJECT("ADODB.CONNECTION")

[*] BD.OPEN CONSTRING

[*]

[*] vcod = objUpload.QueryString("CodigoUsuario")

[*]

[*]

[*] vnome = objUpload.Form("nome")

[*] vcreci = objUpload.Form("creci")

[*] vloja = objUpload.Form("loja")

[*] vdatanasc = objUpload.Form("datanascimento")

[*] vdataadm = objUpload.Form("dataadmissao")

[*]

[*] bd.Execute("UPDATE funcionarios SET nome = '" & vnome & "' AND creci = '" & vcreci & "' AND loja = '" & vloja & "' AND data_nascimento = '" & vdatanasc & "' AND data_admissao = '" & vdataadm & "' WHERE cod_func = "& vcod &" ")

[*] set bdfunc = bd.execute("SELECT * FROM funcionarios WHERE nome = '"&vnome&"' ")

[*]

[*] bd.Execute("UPDATE imagem SET nome_img = '" & nom_arq & "'AND nome_img_ren = " & "null" & " AND cod_fun = " & vcod_func & " WHERE cod_fun = "& vcod &" ")

[*]

[*] set bdimg = bd.execute("SELECT * FROM imagem WHERE cod_fun = "& vcod &" ")

[*] vcod_img = bdimg("cod_img")

[*]

[*] vimg_ren = "img"&vcod_img&"."&tpo_arq

[*]

[*] bd.Execute("UPDATE imagem SET nome_img_ren = '" & vimg_ren & "' WHERE cod_img = " & vcod_img & " ")

[*]

[*] 'For Each objUploadedFile in objUpload.Files

[*]

[*] 'fileName = objUpload.GetFileName(objUploadedFile.OriginalPath)

[*] 'arq = cStr(vimg_ren)

[*] 'Session("nom_arq") = arq

[*] 'objUploadedFile.SaveAs arquivo_up & arq

[*] 'objUpload.SaveAS arquivo_up & arq

[*] 'Next

[*]

[*] end if

[*]

[*] set objUpload = nothing

[*]

[*]%>

[*]

[*]<table width="80%" align="center" border="0" cellpadding="2" cellspacing="1" >

[*]<tr>

[*] <td width="200" align="middle"><span class="tabelahome"><IMG height=70 src="../../adm/imagens/logo.gif" width=150></span></td>

[*] <td height="47"><div align=center" class="style1">Alteração de Funcionários</div></td>

[*]

[*] </tr>

[*] <tr>

[*] <td colspan="2">

[*]

[*] <br>

[*] <br>

[*] <br>

[*] <div align="center"><font color="#FF0000" size="+1">Funcionário alterado com sucesso !</font></div>

[*] <br>

[*] <br>

[*] <p align="center" class="style4"><A href="lista_func.asp"><b>Alterar outro funcionário</a></b>

[*] <br>

[*] <br>

[*] <p align="center" class="style4"><A href="lista_func.asp"><b>Listar Funcionários</a></b>

[*] </td>

[*] </tr>

[*]</table>

[*]

[*]

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito